IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../lsms/noah.20071219/readkpds.F 03/09/11 11:04:51 >>>>> 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 "../lsms/noah.20071219/readkpds.F" 1 |!------------------------------------------------------------------------- 2 |! NASA GSFC Land Information Systems LIS 2.3 ! 3 |!------------------------------------------------------------------------- 4 |!BOP 5 |! 6 |! !ROUTINE: readkpds.F90 7 |! 8 |! !DESCRIPTION: 9 |! Reads the kpds array from the grib table 10 |! 11 |! !REVISION HISTORY: 12 |! 13 |! 23 Oct 2003; Sujay Kumar; Initial Version 14 |! 15 |! !INTERFACE: 16 | subroutine readkpds(ftn, kpds) 17 |! 18 |! !INTERFACE: 19 | use noah_varder, only : noahdrv 20 |!EOP 21 | integer :: kpds(25),ftn 22 | 23 | read (ftn, 15) kpds(5), kpds(6), kpds(7), kpds(14), & 24 | kpds(15), kpds(16), kpds(22) 25 | if(kpds(16).ne.0) kpds(15)=noahdrv%writeintn 26 | 27 |15 format (29x, 7i6) 28 | end subroutine readkpds >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES ftn Reference argument, Integer(4), Offset: 0, Alignment: full word 0-21.29$ 0-16.23 0-23.11 kpds Reference argument, Integer(4) (1:25), Offset: 0, Alignment: full word 0-21.20$ 0-16.28 0-23.20@ 0-23.29@ 0-23.38@ 0-23.47@ 0-24.10@ 0-24.20@ 0-24.30@ 0-25.8 0-25.23@ noah_aflag Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 28, Alignment: full word 0-19.9$ noah_albdchk Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 32, Alignment: full word 0-19.9$ noah_albfile Use associated, Character(40), Component of Derived type definition: noahdrvdec, Offset: 240, Alignment: byte 0-19.9$ noah_albtime Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 24, Alignment: full word 0-19.9$ noah_gflag Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 20, Alignment: full word 0-19.9$ noah_gfracdchk Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 36, Alignment: full word 0-19.9$ noah_gfractime Use associated, Real(8), Component of Derived type definition: noahdrvdec, Offset: 384, Alignment: double word 0-19.9$ noah_ism Use associated, Real(4), Component of Derived type definition: noahdrvdec, Offset: 392, Alignment: full word 0-19.9$ noah_it Use associated, Real(4), Component of Derived type definition: noahdrvdec, Offset: 396, Alignment: full word 0-19.9$ noah_mgfile Use associated, Character(40), Component of Derived type definition: noahdrvdec, Offset: 200, Alignment: byte 0-19.9$ noah_mxsnal Use associated, Character(50), Component of Derived type definition: noahdrvdec, Offset: 280, Alignment: byte 0-19.9$ noah_nsoilp Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 12, Alignment: full word 0-19.9$ noah_nvegp Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 8, Alignment: full word 0-19.9$ noah_rfile Use associated, Character(40), Component of Derived type definition: noahdrvdec, Offset: 40, Alignment: byte 0-19.9$ noah_sfile Use associated, Character(40), Component of Derived type definition: noahdrvdec, Offset: 120, Alignment: byte 0-19.9$ noah_slpfile Use associated, Character(40), Component of Derived type definition: noahdrvdec, Offset: 160, Alignment: byte 0-19.9$ noah_tbot Use associated, Character(50), Component of Derived type definition: noahdrvdec, Offset: 330, Alignment: byte 0-19.9$ noah_varder Use associated, Nonintrinsic Module 0-19.9$ 0-19.9 noah_vfile Use associated, Character(40), Component of Derived type definition: noahdrvdec, Offset: 80, Alignment: byte 0-19.9$ noah_zst Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 16, Alignment: full word 0-19.9$ noahdrv Use associated, Static, Derived type: noahdrvdec, Offset: 0, Alignment: quadruple word 0-19.29$ noahdrv%writeintn Use associated, Static, Real(4), Offset: 400, Alignment: quadruple word 0-25.32 noahdrv_module Use associated, Nonintrinsic Module 0-19.9$ noahopen Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 0, Alignment: full word 0-19.9$ numoutnh Use associated, Integer(4), Component of Derived type definition: noahdrvdec, Offset: 4, Alignment: full word 0-19.9$ readkpds Subroutine 0-16.14$ writeintn Use associated, Real(4), Component of Derived type definition: noahdrvdec, Offset: 400, Alignment: full word 0-19.9$ ** readkpds === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../lsms/noah.20071219/readkpds.F 03/09/11 11:04:51 >>>>> 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....................................... 29 1501-510 Compilation successful for file readkpds.F. 1501-543 Object file created.