IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../core/domain_module.F 03/09/11 11:03:36
 
>>>>> OPTIONS SECTION <<<<<
***   Options In Effect   ***
  
         ==  On / Off Options  ==
         CR              DBG             ESCAPE          FULLPATH
         I4              INLGLUE         NOLIBESSL       NOLIBPOSIX
         OBJECT          SOURCE          STRICT          SWAPOMP
         THREADED        UNWIND          ZEROSIZE
  
         ==  Options Of Integer Type ==
         ALIAS_SIZE(65536)     MAXMEM(-1)            OPTIMIZE(2)
         SPILLSIZE(2000)       STACKTEMP(0)
  
         ==  Options Of Character Type  ==
         64(LARGETYPE)         ALIAS(STD,NOINTPTR)   ALIGN(BINDC(POWER),STRUCT(NATURAL))
         ARCH(PWR6)            ATTR(FULL)            AUTODBL(NONE)
         DESCRIPTOR(V1)        DIRECTIVE(IBM*,IBMT)  ENUM()
         FLAG(I,I)             FLOAT(RNDSNGL,MAF,FOLD,RNGCHK,SINGLE)
         FREE(F90)             HALT(S)               IEEE(NEAR)
         INTSIZE(4)            LANGLVL(EXTENDED)     REALSIZE(4)
         NOSAVE()              TUNE(PWR6)            UNROLL(AUTO)
         XREF(FULL)            XLF2003(NOPOLYMORPHIC,NOBOZLITARGS,NOSTOPEXCEPT,NOVOLATILE,NOAUTOREALLOC,OLDNANINF)
         XLF77(LEADZERO,BLANKPAD)
         XLF90(NOSIGNEDZERO,NOAUTODEALLOC,OLDPAD)
  
>>>>> SOURCE SECTION <<<<<
          1 |#line 1 "../core/domain_module.F"
          1 |!-------------------------------------------------------------------------
          2 |! NASA Goddard Space Flight Center Land Information System (LIS) V3.0
          3 |! Released May 2004
          4 |!
          5 |! See SOFTWARE DISTRIBUTION POLICY for software distribution policies
          6 |!
          7 |! The LIS source code and documentation are in the public domain,
          8 |! available without fee for educational, research, non-commercial and
          9 |! commercial purposes.  Users may distribute the binary or source
         10 |! code to third parties provided this statement appears on all copies and
         11 |! that no charge is made for such copies.
         12 |!
         13 |! NASA GSFC MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
         14 |! SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED AS IS WITHOUT EXPRESS OR
         15 |! IMPLIED WARRANTY.  NEITHER NASA GSFC NOR THE US GOVERNMENT SHALL BE
         16 |! LIABLE FOR ANY DAMAGES SUFFERED BY THE USER OF THIS SOFTWARE.
         17 |!
         18 |! See COPYRIGHT.TXT for copyright details.
         19 |!
         20 |!-------------------------------------------------------------------------
         21 |!BOP
         22 |!
         23 |!  !MODULE: domain_module.F90
         24 |!
         25 |!  !DESCRIPTION:
         26 |!   This module contains
         27 |!   interfaces and subroutines that controls the incorporation
         28 |!   of new domains
         29 |!
         30 |!  !REVISION HISTORY:
         31 |!  17Feb04    Sujay Kumar  Initial Specification
         32 |!
         33 |!EOP
         34 |module domain_module
         35 |
         36 |contains
         37 |!BOP
         38 |! !ROUTINE: forcing_init
         39 |!
         40 |! !DESCRIPTION:
         41 |! Sets up functions for defining domain initializations
         42 |!
         43 |! !INTERFACE:
         44 |  subroutine define_domains()
         45 |! !USES:
         46 |  use domain_pluginMod, only : domain_plugin
         47 |  use landcover_pluginMod, only : landcover_plugin
         48 |  use elevdiff_pluginMod, only : elevdiff_plugin
         49 |
         50 |!EOP
         51 |    call domain_plugin
         52 |    call landcover_plugin
         53 |    call elevdiff_plugin
         54 |  end subroutine define_domains
         55 |!BOP
         56 |! !ROUTINE:
         57 |!
         58 |! !DESCRIPTION:
         59 |! Makes the domain
         60 |!
         61 |!
         62 |! !INTERFACE:
         63 |  subroutine domain_init(domain)
         64 |! !USES:
         65 |    integer, intent(in) :: domain
         66 |!EOP
         67 |!BOC
         68 |    call makedomain(domain)
         69 |  end subroutine domain_init
         70 |!EOP
         71 |#line 73
         73 |!BOP
         74 |! !ROUTINE: read_domain
         75 |!
         76 |! !DESCRIPTION:
         77 |!  calls the appropriate domain
         78 |!
         79 |! !INTERFACE:
         80 |  subroutine read_domain(domain)
         81 |! !USES:
         82 |    integer, intent(in) :: domain
         83 |!EOP
         84 |!BOC
         85 |    call readinput(domain)
         86 |  end subroutine read_domain
         87 |!EOP
         88 |
         89 |end module domain_module
 
>>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<<
 
 
 
IDENTIFIER NAME                  CROSS REFERENCE AND ATTRIBUTES
 
define_domains                   Public, Module Subroutine
                                 0-44.14$
 
domain                           Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word
                                 0-82.28$  0-80.26  0-85.20
 
domain                           Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word
                                 0-65.28$  0-63.26  0-68.21
 
domain_init                      Public, Module Subroutine
                                 0-63.14$
 
domain_module                    Nonintrinsic Module
                                 0-34.8$
 
domain_plugin                    Use associated, Module Subroutine
                                 0-46.32$  0-51.10
 
domain_pluginmod                 Use associated, Nonintrinsic Module
                                 0-46.7$  0-46.7
 
elevdiff_plugin                  Use associated, Module Subroutine
                                 0-48.34$  0-53.10
 
elevdiff_pluginmod               Use associated, Nonintrinsic Module
                                 0-48.7$  0-48.7
 
landcover_plugin                 Use associated, Module Subroutine
                                 0-47.35$  0-52.10
 
landcover_pluginmod              Use associated, Nonintrinsic Module
                                 0-47.7$  0-47.7
 
makedomain                       External Subroutine
                                 0-68.10
 
read_domain                      Public, Module Subroutine
                                 0-80.14$
 
readinput                        External Subroutine
                                 0-85.10
 
** domain_module   === End of Compilation 1 ===
 
>>>>> FILE TABLE SECTION <<<<<
 
 
                                       FILE CREATION        FROM
FILE NO   FILENAME                    DATE       TIME       FILE    LINE
     0    ../core/domain_module.F     03/09/11   11:03:36
 
 
>>>>> COMPILATION EPILOGUE SECTION <<<<<
 
 
FORTRAN Summary of Diagnosed Conditions
 
TOTAL   UNRECOVERABLE  SEVERE       ERROR     WARNING    INFORMATIONAL
               (U)       (S)         (E)        (W)          (I)
    0           0         0           0          0            0
 
 
    Source records read.......................................      89
1501-510  Compilation successful for file domain_module.F.
1501-543  Object file created.