IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../obsprecips/cmap_0.5/readcmapcrd.F 03/09/11 11:04:50 >>>>> 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 "../obsprecips/cmap_0.5/readcmapcrd.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 |! !ROUTINE: readcmapcrd.F90 24 |! 25 |! !DESCRIPTION: 26 |! Routine to read CMAP specific parameters from the card file. 27 |! 28 |! !REVISION HISTORY: 29 |! 11 Dec 2003; Sujay Kumar, Initial Code 30 |! 31 |! !INTERFACE: 32 |subroutine readcmapcrd(cmapdrv) 33 |! !USES: 34 | use cmapdrv_module 35 |!EOP 36 | implicit none 37 | integer :: lsm 38 | type(cmapdrvdec) :: cmapdrv 39 | namelist /cmap/cmapdrv 40 |!BOC 41 | open(11,file='lis.crd',form='formatted',status='old') 42 | read(unit=11,NML=cmap) 43 | print*,'Using CMAP forcing' 44 | print*, 'CMAP forcing directory :',cmapdrv%CMAPDIR 45 |!------------------------------------------------------------------------ 46 |! Setting global observed precip times to zero to ensure 47 |! data is read in during first time step 48 |!------------------------------------------------------------------------ 49 | cmapdrv%cmaptime = 0.0 50 | close(11) 51 |!EOC 52 |end subroutine readcmapcrd >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES cmap Namelist 0-39.13$ 0-42.20 cmapdir Use associated, Character(40), Component of Derived type definition: cmapdrvdec, Offset: 8, Alignment: byte 0-34.7$ cmapdrv Reference argument, Derived type: cmapdrvdec, Offset: 0, Alignment: double word 0-38.23$ 0-32.24 0-39.18 cmapdrv%cmapdir Reference argument, Character(40), Offset: 8, Alignment: double word 0-38.23$ 0-44.38 cmapdrv%cmaptime Reference argument, Real(8), Offset: 48, Alignment: quadruple word 0-38.23$ 0-49.3@ cmapdrv%gridchange1 Reference argument, Logical(4), Offset: 64, Alignment: quadruple word 0-38.23$ cmapdrv%griduptime1 Reference argument, Real(8), Offset: 56, Alignment: double word 0-38.23$ cmapdrv%ncold Reference argument, Integer(4), Offset: 0, Alignment: quadruple word 0-38.23$ cmapdrv%nrold Reference argument, Integer(4), Offset: 4, Alignment: full word 0-38.23$ cmapdrv_module Use associated, Nonintrinsic Module 0-34.7$ 0-34.7 cmapdrvdec Use associated, Derived type definition 0-34.7$ 0-38.8 cmaptime Use associated, Real(8), Component of Derived type definition: cmapdrvdec, Offset: 48, Alignment: double word 0-34.7$ gridchange1 Use associated, Logical(4), Component of Derived type definition: cmapdrvdec, Offset: 64, Alignment: full word 0-34.7$ griduptime1 Use associated, Real(8), Component of Derived type definition: cmapdrvdec, Offset: 56, Alignment: double word 0-34.7$ lsm Automatic, Integer(4), Offset: 0, Alignment: full word 0-37.14$ ncold Use associated, Integer(4), Component of Derived type definition: cmapdrvdec, Offset: 0, Alignment: full word 0-34.7$ nrold Use associated, Integer(4), Component of Derived type definition: cmapdrvdec, Offset: 4, Alignment: full word 0-34.7$ readcmapcrd Subroutine 0-32.12@ ** readcmapcrd === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../obsprecips/cmap_0.5/readcmapcrd.F 03/09/11 11:04:50 >>>>> 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....................................... 53 1501-510 Compilation successful for file readcmapcrd.F. 1501-543 Object file created.