IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../obsrads/agrmet/getgrad.F 03/09/11 11:04:01 >>>>> 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 "../obsrads/agrmet/getgrad.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: getgrad.F90 24 |! 25 |! !DESCRIPTION: 26 |! Opens, reads, interpolates and overlays radiation forcing. 27 |! 28 |! TIME1 = most recent past data 29 |! TIME2 = most recent future data 30 |! 31 |! 32 |! !REVISION HISTORY: 33 |! 28 Oct 1999: Brian Cosgrove; Initial code, see getrad.f 34 |! 27 Apr 2000: Brian Cosgrove' Disabled zenith angle correction cutoff for 35 |! cos(zen) less than .2 36 |! 11 May 2000: Brian Cosgrove; Enabled correction cutoffs for cos(zen) less 37 |! than .1, stop model if computed value is greater than 1367 w/m2 38 |! 08 Jan 2001: Brian Cosgrove; Added check to see if czb or czm is equal 39 |! to zero before trying to divide by czm or czb. If it is 40 |! zero, set radiation value to zero 41 |! 06 Mar 2001: Brian Cosgrove; Changed computation of WT1 and WT2 in cases 42 |! where the previous hour or the next hour of observed radiation 43 |! is not available. Substituted TIME1 for LDAS%PINKTIME1 and 44 |! LDAS%NESTIME1 and TIME2 for LDAS%PINKTIME2 and LDAS%NESTIME2 45 |! 15 Jun 2001: Urszula Jambor; Reworked algorithm for AGRMET data & GLDAS. 46 |! 15 Oct 2001: Jesse Meng; Replace lis%agrmet flag by lis%agrmetsw and 47 |! lis%agrmetlw; added call retagrlw() to calculate 48 |! AGRMET LW; 49 |! 25 Feb 2002: Urszula Jambor; check on both SW & LW file status before 50 |! using 51 |! 04 Jun 2002: Urszula Jambor; allowed fall back to model SW. 52 |! 10 Dec 2002: Urszula Jambor; replaced lis%astat1,2 with local sstat1,2 53 |! Reorganized routine to mirror other get-routines,and 54 |! corrected bug in file status check for initial time1. 55 |! !INTERFACE: 56 |subroutine getgrad 57 |! !USES: 58 | use lisdrv_module, only : lis, grid 59 | use obsradforcing_module, only : obswdata1,obswdata2,oblwdata1,oblwdata2,& 60 | sstat1,sstat2,lstat1,lstat2 61 | use time_manager 62 | use agrmetdomain_module, only : agrmetdrv 63 |#line 67 67 | implicit none 68 |!EOP 69 | 70 |!=== Local Variables ===================================================== 71 | integer :: c, r, f, zdoy 72 | integer :: yr1, mo1, da1, hr1, mn1, ss1, doy1, ts1 73 | integer :: yr2, mo2, da2, hr2, mn2, ss2, doy2, ts2 74 | 75 | integer :: movetime ! if 1=move time 2 data into time 1 76 | integer :: nstep, ierr 77 | real*8 :: time1, time2 78 | real :: wt1, wt2, zw1, zw2, czb, cze, czm, gmt1, gmt2 79 | real :: obsw(lis%d%lnc,lis%d%lnr) 80 | 81 | character*80 :: nameNH, nameSH 82 | 83 |!=== End Variable Definition ============================================= 84 |!BOC 85 |!---------------------------------------------------------------------- 86 |! Determine Required Observed Radiation Data Times 87 |!---------------------------------------------------------------------- 88 | yr1 = lis%t%yr !Previous Hour 89 | mo1 = lis%t%mo 90 | da1 = lis%t%da 91 | hr1 = lis%t%hr 92 | mn1 = 0 93 | ss1 = 0 94 | ts1 = 0 95 | call tick ( time1, doy1, gmt1, yr1, mo1, da1, hr1, mn1, ss1, ts1 ) 96 | 97 | yr2 = lis%t%yr !Next Hour 98 | mo2 = lis%t%mo 99 | da2 = lis%t%da 100 | hr2 = lis%t%hr 101 | mn2 = 0 102 | ss2 = 0 103 | ts2 = 60*60 104 | call tick ( time2, doy2, gmt2, yr2, mo2, da2, hr2, mn2, ss2, ts2 ) 105 | 106 | lis%f%findagrtime1=0 107 | lis%f%findagrtime2=0 108 | movetime=0 109 | 110 | if(lis%t%time.ge.agrmetdrv%agrmtime2) then 111 | movetime=1 112 | lis%f%findagrtime2=1 113 | endif 114 |#line 121 121 | nstep = get_nstep(lis%t) 122 | 123 | if ( nstep == 0 .or. nstep == 1 ) then 124 | lis%f%findagrtime1=1 125 | lis%f%findagrtime2=1 126 | movetime=0 127 | endif 128 | 129 | if (lis%f%findagrtime1==1) then 130 |#line 133 133 | sstat1 = 0 134 | sstat2 = 0 135 | lstat1 = 0 136 | lstat2 = 0 137 | call agrSWfile ( nameSH, lis, yr1, mo1, da1, hr1 ) 138 | print*, 'using AGRMET ',nameSH 139 | sstat1 = 0 140 | call retglbSW ( 1, nameSH, sstat1, 1 ) 141 | 142 |!JESSE 20041227 USE SW ONLY 143 |! lstat1 = 0 144 |! call retagrlw ( 1, yr1, mo1, da1, hr1, lstat1, 1 ) 145 |! 146 |! if ((sstat1 + lstat1) < 2) then 147 |! sstat1 = 0 148 |! lstat1 = 0 149 |! end if 150 | if (sstat1 /= 0) agrmetdrv%agrmtime1 = time1 151 | endif 152 | if(movetime.eq.1) then 153 | agrmetdrv%agrmtime1 = agrmetdrv%agrmtime2 154 | sstat1 = sstat2 155 | lstat1 = lstat2 156 | do c=1, lis%d%ngrid 157 | obswdata1(c) = obswdata2(c) 158 |! oblwdata1(c) = oblwdata2(c) 159 | end do 160 | endif 161 | 162 | if(lis%f%findagrtime2.eq.1) then 163 |#line 166 166 | sstat2 = 0 167 | lstat2 = 0 168 | call agrSWfile ( nameSH, lis, yr2, mo2, da2, hr2 ) 169 | sstat2 = 0 170 | print*, 'using AGRMET ',nameSH 171 | call retglbSW ( 2, nameSH, sstat2, 1 ) 172 |! lstat2 = 0 173 |! call retagrlw ( 2, yr2, mo2, da2, hr2, lstat2, 1 ) 174 |! 175 |! if ((sstat2 + lstat2) < 2) then 176 |! sstat2 = 0 177 |! lstat2 = 0 178 |! end if 179 | if (sstat2 /= 0) agrmetdrv%agrmtime2 = time2 180 | endif 181 |!---------------------------------------------------------------------- 182 |! Print out Status of data holdings 183 |!---------------------------------------------------------------------- 184 | if (lis%t%time == time1) then 185 | if (sstat1==0) write(*,*) 'NO AGR SW USED',mo1,da1,yr1,hr1 186 | if (sstat1/=0) write(*,*) 'USED AGRMET SW',mo1,da1,yr1,hr1 187 | if (sstat2==0) write(*,*) 'NO AGR SW USED',mo2,da2,yr2,hr2 188 | if (sstat2/=0) write(*,*) 'USED AGRMET SW',mo2,da2,yr2,hr2 189 | 190 | if (lstat1==0) write(*,*) 'NO AGR LW USED',mo1,da1,yr1,hr1 191 | if (lstat1/=0) write(*,*) 'USED AGRMET LW',mo1,da1,yr1,hr1 192 | if (lstat2==0) write(*,*) 'NO AGR LW USED',mo2,da2,yr2,hr2 193 | if (lstat2/=0) write(*,*) 'USED AGRMET LW',mo2,da2,yr2,hr2 194 | endif 195 | return 196 |!EOC 197 |end subroutine getgrad >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES a Use associated, Derived type: lisassimil, Component of Derived type definition: lisdec, Offset: 1276, Alignment: full word 0-58.7$ advance_timestep Use associated, Module Subroutine 0-61.7$ agrmetdir Use associated, Character(40), Component of Derived type definition: agrmetdrvdec, Offset: 12, Alignment: byte 0-62.7$ agrmetdomain_module Use associated, Nonintrinsic Module 0-62.7$ 0-62.7 agrmetdrv Use associated, Static, Derived type: agrmetdrvdec, Offset: 0, Alignment: quadruple word 0-62.35$ agrmetdrv%agrmtime1 Use associated, Static, Real(8), Offset: 56, Alignment: double word 0-150.23@ 0-153.6@ agrmetdrv%agrmtime2 Use associated, Static, Real(8), Offset: 64, Alignment: quadruple word 0-110.20 0-153.28 0-179.23@ agrmetdrv_module Use associated, Nonintrinsic Module 0-62.7$ agrmtime1 Use associated, Real(8), Component of Derived type definition: agrmetdrvdec, Offset: 56, Alignment: double word 0-62.7$ agrmtime2 Use associated, Real(8), Component of Derived type definition: agrmetdrvdec, Offset: 64, Alignment: double word 0-62.7$ agrswfile External Subroutine 0-137.11 0-168.11 avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-58.7$ c Automatic, Integer(4), Offset: 0, Alignment: full word 0-71.14$ 0-156.9@ 0-157.22 0-157.37 clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-58.7$ czb Automatic, Real(4), Offset: 0, Alignment: full word 0-78.33$ cze Automatic, Real(4), Offset: 0, Alignment: full word 0-78.38$ czm Automatic, Real(4), Offset: 0, Alignment: full word 0-78.43$ d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-58.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-58.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ da1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.24$ 0-90.3@ 0-95.44 0-137.46 0-185.53 0-186.53 0-190.53 0-191.53 da2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.24$ 0-99.3@ 0-104.44 0-168.46 0-187.53 0-188.53 0-192.53 0-193.53 date2time Use associated, Module Subroutine 0-61.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ days Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-58.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-58.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-58.7$ doy1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.44$ 0-95.22 doy2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.44$ 0-104.22 ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-58.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-58.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-58.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-58.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-58.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-58.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-58.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-58.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-58.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-58.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-58.7$ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-58.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-58.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-58.7$ expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-58.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-58.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-58.7$ f Automatic, Integer(4), Offset: 0, Alignment: full word 0-71.20$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-58.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-58.7$ fgrd Use associated, Real(4) (1:13), Component of Derived type definition: griddec, Offset: 72, Alignment: full word 0-58.7$ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-58.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-58.7$ findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-58.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-58.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-58.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-58.7$ force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-58.7$ forcing Use associated, Real(4) (1:16), Component of Derived type definition: griddec, Offset: 8, Alignment: full word 0-58.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-58.7$ ftn_unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-61.7$ ftn_unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-61.7$ get_curr_calday Use associated, Module Function Real(4) 0-61.7$ get_curr_date Use associated, Module Subroutine 0-61.7$ get_curr_time Use associated, Module Subroutine 0-61.7$ get_nstep Use associated, Module Function Integer(4) 0-61.7$ 0-121.11 get_prev_date Use associated, Module Subroutine 0-61.7$ get_ref_date Use associated, Module Subroutine 0-61.7$ get_start_date Use associated, Module Subroutine 0-61.7$ get_step_size Use associated, Module Function Integer(4) 0-61.7$ getgrad Subroutine 0-56.12$ glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-58.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-58.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-61.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-61.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-58.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-61.7$ gmt1 Automatic, Real(4), Offset: 0, Alignment: full word 0-78.48$ 0-95.28 gmt2 Automatic, Real(4), Offset: 0, Alignment: full word 0-78.54$ 0-104.28 gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-58.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-58.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-58.7$ grid Pointer, Use associated, Static, Derived type: griddec (:), Offset: 0, Alignment: quadruple word 0-58.34$ grid_module Use associated, Nonintrinsic Module 0-58.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-58.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-58.7$ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-58.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-58.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ hr1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.29$ 0-91.3@ 0-95.49 0-137.51 0-185.61 0-186.61 0-190.61 0-191.61 hr2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.29$ 0-100.3@ 0-104.49 0-168.51 0-187.61 0-188.61 0-192.61 0-193.61 i8 Use associated, Parameter, Integer(4) 0-61.7$ ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-58.7$ ierr Automatic, Integer(4), Offset: 0, Alignment: full word 0-76.21$ interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-58.7$ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-58.7$ is_last_step Use associated, Module Function Logical(4) 0-61.7$ iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-58.7$ lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-58.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-58.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-58.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-58.7$ lat Use associated, Real(4), Component of Derived type definition: griddec, Offset: 0, Alignment: full word 0-58.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-58.7$ lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-58.7$ lis Use associated, Static, Derived type: lisdec, Offset: 0, Alignment: quadruple word 0-58.29$ 0-137.31 0-168.31 lis%d%lnc Use associated, Static, Integer(4), Offset: 44, Alignment: full word 0-79.18 0-79.18 lis%d%lnr Use associated, Static, Integer(4), Offset: 48, Alignment: quadruple word 0-79.28 0-79.28 lis%d%ngrid Use associated, Static, Integer(4), Offset: 20, Alignment: full word 0-156.14 lis%f%findagrtime1 Use associated, Static, Integer(4), Offset: 396, Alignment: full word 0-106.3@ 0-124.6@ 0-129.7 lis%f%findagrtime2 Use associated, Static, Integer(4), Offset: 400, Alignment: quadruple word 0-107.3@ 0-112.6@ 0-125.6@ 0-162.6 lis%t Use associated, Static, Derived type: listime, Offset: 1000, Alignment: double word 0-121.21 lis%t%da Use associated, Static, Integer(4), Offset: 1088, Alignment: quadruple word 0-90.9 0-99.9 lis%t%hr Use associated, Static, Integer(4), Offset: 1092, Alignment: full word 0-91.9 0-100.9 lis%t%mo Use associated, Static, Integer(4), Offset: 1084, Alignment: full word 0-89.9 0-98.9 lis%t%time Use associated, Static, Real(8), Offset: 1112, Alignment: double word 0-110.6 0-184.7 lis%t%yr Use associated, Static, Integer(4), Offset: 1080, Alignment: double word 0-88.9 0-97.9 lis_module Use associated, Nonintrinsic Module 0-58.7$ 0-61.7$ lisdrv_module Use associated, Nonintrinsic Module 0-58.7$ 0-58.7 lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-58.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-58.7$ lon Use associated, Real(4), Component of Derived type definition: griddec, Offset: 4, Alignment: full word 0-58.7$ longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-58.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-58.7$ lstat1 Use associated, Static, Integer(4), Offset: 8, Alignment: double word 0-60.22$ 0-135.6@ 0-155.6@ 0-190.10 0-191.10 lstat2 Use associated, Static, Integer(4), Offset: 12, Alignment: full word 0-60.29$ 0-136.6@ 0-155.15 0-167.6@ 0-192.10 0-193.10 lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-61.7$ masterproc Use associated, Static, Logical(4), Offset: 8, Alignment: double word 0-61.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-58.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-58.7$ mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-58.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-58.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ mn1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.34$ 0-92.3@ 0-95.54 mn2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.34$ 0-101.3@ 0-104.54 mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-58.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ mo1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.19$ 0-89.3@ 0-95.39 0-137.41 0-185.49 0-186.49 0-190.49 0-191.49 mo2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.19$ 0-98.3@ 0-104.39 0-168.41 0-187.49 0-188.49 0-192.49 0-193.49 modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-58.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ movetime Automatic, Integer(4), Offset: 0, Alignment: full word 0-75.14$ 0-108.3@ 0-111.6@ 0-126.6@ 0-152.6 namenh Automatic, Character(80), Offset: 0, Alignment: full word 0-81.19$ namesh Automatic, Character(80), Offset: 0, Alignment: full word 0-81.27$ 0-137.23 0-138.30 0-140.25 0-168.23 0-170.30 0-171.25 nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-58.7$ ncold Use associated, Integer(4), Component of Derived type definition: agrmetdrvdec, Offset: 0, Alignment: full word 0-62.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-58.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-58.7$ ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-58.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-58.7$ nmif Use associated, Integer(4), Component of Derived type definition: agrmetdrvdec, Offset: 8, Alignment: full word 0-62.7$ nrold Use associated, Integer(4), Component of Derived type definition: agrmetdrvdec, Offset: 4, Alignment: full word 0-62.7$ nstep Automatic, Integer(4), Offset: 0, Alignment: full word 0-76.14$ 0-121.3@ 0-123.8 0-123.24 nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-58.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-58.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-58.7$ oblwdata1 Pointer, Use associated, Static, Real(4) (:), Offset: 112, Alignment: quadruple word 0-59.56$ oblwdata2 Pointer, Use associated, Static, Real(4) (:), Offset: 168, Alignment: double word 0-59.66$ obsradforcing_module Use associated, Nonintrinsic Module 0-59.7$ 0-59.7 obsw Controlled Automatic, Real(4) (1:?, 1:?), Offset: 0, Alignment: full word 0-79.13$ obswdata1 Pointer, Use associated, Static, Real(4) (:), Offset: 0, Alignment: quadruple word 0-59.36$ 0-157.12@ obswdata2 Pointer, Use associated, Static, Real(4) (:), Offset: 56, Alignment: double word 0-59.46$ 0-157.27 odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-58.7$ offset Use associated, Reference argument, Optional, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-61.7$ offset Use associated, Reference argument, Optional, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-61.7$ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-58.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-58.7$ po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-58.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-58.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-58.7$ precision Use associated, Nonintrinsic Module 0-61.7$ r Automatic, Integer(4), Offset: 0, Alignment: full word 0-71.17$ r4 Use associated, Parameter, Integer(4) 0-61.7$ r8 Use associated, Parameter, Integer(4) 0-61.7$ radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-58.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-58.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-58.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-58.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-58.7$ retglbsw External Subroutine 0-140.11 0-171.11 ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-58.7$ rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-58.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-58.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-58.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-58.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-58.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-58.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-58.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-58.7$ seconds Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ selected_int_kind Use associated, Pure Intrinsic 0-61.7$ selected_real_kind Use associated, Pure Intrinsic 0-61.7$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-58.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-58.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-58.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-58.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-58.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-58.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-58.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-58.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-58.7$ spmdmod Use associated, Nonintrinsic Module 0-61.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-58.7$ ss Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ ss Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ ss1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.39$ 0-93.3@ 0-95.59 ss2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.39$ 0-102.3@ 0-104.59 sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-58.7$ sstat1 Use associated, Static, Integer(4), Offset: 0, Alignment: quadruple word 0-60.8$ 0-133.6@ 0-139.6@ 0-140.33 0-150.10 0-154.6@ 0-185.10 0-186.10 sstat2 Use associated, Static, Integer(4), Offset: 4, Alignment: full word 0-60.15$ 0-134.6@ 0-154.15 0-166.6@ 0-169.6@ 0-171.33 0-179.10 0-187.10 0-188.10 startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-58.7$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-58.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-58.7$ tick Use associated, Module Subroutine 0-61.7$ 0-95.8 0-104.8 tile_spmdmod Use associated, Nonintrinsic Module 0-58.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-61.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-61.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-58.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-61.7$ time1 Automatic, Real(8), Offset: 0, Alignment: double word 0-77.13$ 0-95.15 0-150.45 0-184.21 time2 Automatic, Real(8), Offset: 0, Alignment: double word 0-77.20$ 0-104.15 0-179.45 time2date Use associated, Module Subroutine 0-61.7$ time_manager Use associated, Nonintrinsic Module 0-61.7$ 0-61.7 timemgr_init Use associated, Module Subroutine 0-61.7$ timemgr_print Use associated, Module Subroutine 0-61.7$ timemgr_read_restart Use associated, Module Subroutine 0-61.7$ timemgr_restart Use associated, Module Subroutine 0-61.7$ timemgr_write_restart Use associated, Module Subroutine 0-61.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-58.7$ ts Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ ts1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.50$ 0-94.3@ 0-95.64 ts2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.50$ 0-103.3@ 0-104.64 tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-58.7$ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-58.7$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-58.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-58.7$ wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-58.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-58.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-58.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-58.7$ wt1 Automatic, Real(4), Offset: 0, Alignment: full word 0-78.13$ wt2 Automatic, Real(4), Offset: 0, Alignment: full word 0-78.18$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-58.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-61.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-58.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-61.7$ yr1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-72.14$ 0-88.3@ 0-95.34 0-137.36 0-185.57 0-186.57 0-190.57 0-191.57 yr2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.14$ 0-97.3@ 0-104.34 0-168.36 0-187.57 0-188.57 0-192.57 0-193.57 yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-58.7$ zdoy Automatic, Integer(4), Offset: 0, Alignment: full word 0-71.23$ zw1 Automatic, Real(4), Offset: 0, Alignment: full word 0-78.23$ zw2 Automatic, Real(4), Offset: 0, Alignment: full word 0-78.28$ ** getgrad === End of Compilation 1 === >>>>> COMPILATION UNIT EPILOGUE SECTION <<<<< FORTRAN Summary of Diagnosed Conditions TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL (U) (S) (E) (W) (I) 0 0 0 0 0 0 >>>>> 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 <<<<< 198 | 199 |!BOP 200 |! !ROUTINE: agrSWfile: 201 |! 202 |! !DESCRIPTION: 203 |! This subroutine puts together the radiation data filenames. 204 |! 205 |! !REVISION HISTORY: 206 |! 28 Oct 1999: Brian Cosgrove; Initial code 207 |! 18 Jun 2001: Urszula Jambor; Modified for AGRMET data use in GLDAS 208 |! 24 Oct 2001: Jesse Meng; Modified for AGRMET directory structure 209 |! 15 Aug 2003: Sujay Kumar: Modified to create a global filename 210 |! instead of two filenames for each hemisphere. 211 |! 212 |! !INTERFACE: 213 |subroutine agrSWfile ( nameSH, lis, yr, mo, da, hr ) 214 |! !USES: 215 | use lis_module 216 | use agrmetdomain_module, only : agrmetdrv 217 |!EOP 218 | implicit none 219 | type (lisdec) lis 220 | 221 |!=== Local Variables ===================================================== 222 | 223 | character*80 :: nameSH 224 | integer :: yr, mo, da, hr 225 | 226 | integer :: i, c 227 | 228 | character*1 :: fname(80), fbase(80), fsub(80) 229 | character*1 :: ftime(15), fdir(13), fhemi(1) 230 | 231 |!=== End Variable Definition ============================================= 232 | 233 |!BOC 234 |92 format (80a1) 235 |93 format (a80) 236 |94 format (a5, i4, i2, i2, i2) 237 |95 format (15a1) 238 |96 format (a40) 239 |97 format (a1) 240 |98 format (a6, i4, i2, a1) 241 |99 format (13a1) 242 | 243 | open(unit=81, file='temp', form='formatted', access='direct', recl=80) 244 | write(81,96,rec=1) agrmetdrv%agrmetdir 245 | read(81,92,rec=1) (fbase(i), i=1,80) 246 | 247 | write(81,98,REC=1)'/SWDN/',yr,mo,'/' 248 | read(81,99,rec=1) fdir 249 | do i = 1, 13 250 | if ( fdir(i) == ' ' ) fdir(i) = '0' 251 | end do 252 | write(81,94,rec=1) 'swdn_', yr, mo, da, hr 253 | read(81,95,rec=1) ftime 254 | do i = 1, 15 255 | if ( ftime(i) == ' ' ) ftime(i) = '0' 256 | end do 257 | c = 0 258 | do i = 1, 80 259 | if ( (fbase(i) == ' ') .and. (c == 0) ) c = i-1 260 | end do 261 | 262 | write(81, 92, rec=1) (fbase(i),i=1,c), (fdir(i),i=1,13), & 263 | (ftime(i),i=1,15) 264 | read(81, 93, rec=1) nameSH 265 | close(81) 266 | 267 | return 268 |!EOC 269 |end subroutine agrSWfile >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES a Use associated, Derived type: lisassimil, Component of Derived type definition: lisdec, Offset: 1276, Alignment: full word 0-215.7$ agrmetdir Use associated, Character(40), Component of Derived type definition: agrmetdrvdec, Offset: 12, Alignment: byte 0-216.7$ agrmetdomain_module Use associated, Nonintrinsic Module 0-216.7$ 0-216.7 agrmetdrv Use associated, Static, Derived type: agrmetdrvdec, Offset: 0, Alignment: quadruple word 0-216.35$ agrmetdrv%agrmetdir Use associated, Static, Character(40), Offset: 12, Alignment: full word 0-244.22 agrmetdrv_module Use associated, Nonintrinsic Module 0-216.7$ agrmtime1 Use associated, Real(8), Component of Derived type definition: agrmetdrvdec, Offset: 56, Alignment: double word 0-216.7$ agrmtime2 Use associated, Real(8), Component of Derived type definition: agrmetdrvdec, Offset: 64, Alignment: double word 0-216.7$ agrswfile Subroutine 0-213.12$ avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-215.7$ c Automatic, Integer(4), Offset: 0, Alignment: full word 0-226.17$ 0-257.3@ 0-259.36 0-259.46@ 0-262.38 clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-215.7$ d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-215.7$ da Reference argument, Integer(4), Offset: 0, Alignment: full word 0-224.22$ 0-213.45 0-252.39 da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-215.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-215.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-215.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-215.7$ ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-215.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-215.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-215.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-215.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-215.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-215.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-215.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-215.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-215.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-215.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-215.7$ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-215.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-215.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-215.7$ expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-215.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-215.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-215.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-215.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-215.7$ fbase Automatic, Character(1) (1:80), Offset: 0, Alignment: full word 0-228.29$ 0-245.22@ 0-259.12 0-262.25 fdir Automatic, Character(1) (1:13), Offset: 0, Alignment: full word 0-229.29$ 0-248.21@ 0-250.11 0-250.28@ 0-262.43 fhemi Automatic, Character(1) (1:1), Offset: 0, Alignment: full word 0-229.39$ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-215.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-215.7$ findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-215.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-215.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-215.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-215.7$ fname Automatic, Character(1) (1:80), Offset: 0, Alignment: full word 0-228.18$ force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-215.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-215.7$ fsub Automatic, Character(1) (1:80), Offset: 0, Alignment: full word 0-228.40$ ftime Automatic, Character(1) (1:15), Offset: 0, Alignment: full word 0-229.18$ 0-253.21@ 0-255.11 0-255.29@ 0-263.9 glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-215.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-215.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-215.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-215.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-215.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-215.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-215.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-215.7$ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-215.7$ hr Reference argument, Integer(4), Offset: 0, Alignment: full word 0-224.26$ 0-213.49 0-252.43 hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-215.7$ i Automatic, Integer(4), Offset: 0, Alignment: full word 0-226.14$ 0-245.28 0-245.32@ 0-249.6@ 0-250.16 0-250.33 0-254.6@ 0-255.17 0-255.35 0-258.6@ 0-259.18 0-259.50 0-262.31 0-262.34@ 0-262.48 0-262.51@ 0-263.15 0-263.18@ ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-215.7$ interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-215.7$ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-215.7$ iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-215.7$ lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-215.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-215.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-215.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-215.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-215.7$ lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-215.7$ lis Reference argument, Derived type: lisdec, Offset: 0, Alignment: double word 0-219.17$ 0-213.32 lis%a Reference argument, Derived type: lisassimil, Offset: 1276, Alignment: full word 0-219.17$ lis%a%rbias Reference argument, Integer(4), Offset: 1280, Alignment: quadruple word 0-219.17$ lis%a%rdbc Reference argument, Integer(4), Offset: 1288, Alignment: double word 0-219.17$ lis%a%ribc Reference argument, Integer(4), Offset: 1284, Alignment: full word 0-219.17$ lis%a%rpsas Reference argument, Integer(4), Offset: 1276, Alignment: full word 0-219.17$ lis%a%rsdbc Reference argument, Integer(4), Offset: 1292, Alignment: full word 0-219.17$ lis%d Reference argument, Derived type: lisdomain, Offset: 0, Alignment: quadruple word 0-219.17$ lis%d%domain Reference argument, Integer(4), Offset: 28, Alignment: full word 0-219.17$ lis%d%elev Reference argument, Integer(4), Offset: 12, Alignment: full word 0-219.17$ lis%d%elev_griddesc Reference argument, Real(4) (1:6), Offset: 296, Alignment: double word 0-219.17$ lis%d%glbnch Reference argument, Integer(4), Offset: 16, Alignment: quadruple word 0-219.17$ lis%d%glbngrid Reference argument, Integer(4), Offset: 24, Alignment: double word 0-219.17$ lis%d%gnc Reference argument, Integer(4), Offset: 36, Alignment: full word 0-219.17$ lis%d%gnr Reference argument, Integer(4), Offset: 40, Alignment: double word 0-219.17$ lis%d%griddesc Reference argument, Real(4) (1:50), Offset: 72, Alignment: double word 0-219.17$ lis%d%ic Reference argument, Integer(4), Offset: 52, Alignment: full word 0-219.17$ lis%d%ir Reference argument, Integer(4), Offset: 56, Alignment: double word 0-219.17$ lis%d%landcover Reference argument, Integer(4), Offset: 32, Alignment: quadruple word 0-219.17$ lis%d%lc_griddesc Reference argument, Real(4) (1:6), Offset: 320, Alignment: quadruple word 0-219.17$ lis%d%lnc Reference argument, Integer(4), Offset: 44, Alignment: full word 0-219.17$ lis%d%lnr Reference argument, Integer(4), Offset: 48, Alignment: quadruple word 0-219.17$ lis%d%lsm Reference argument, Integer(4), Offset: 4, Alignment: full word 0-219.17$ lis%d%maxt Reference argument, Integer(4), Offset: 60, Alignment: full word 0-219.17$ lis%d%mina Reference argument, Real(4), Offset: 64, Alignment: quadruple word 0-219.17$ lis%d%nch Reference argument, Integer(4), Offset: 0, Alignment: quadruple word 0-219.17$ lis%d%ngrid Reference argument, Integer(4), Offset: 20, Alignment: full word 0-219.17$ lis%d%soil Reference argument, Integer(4), Offset: 8, Alignment: double word 0-219.17$ lis%d%soil_griddesc Reference argument, Real(4) (1:6), Offset: 272, Alignment: quadruple word 0-219.17$ lis%d%udef Reference argument, Real(4), Offset: 68, Alignment: full word 0-219.17$ lis%f Reference argument, Derived type: lisforcing, Offset: 344, Alignment: double word 0-219.17$ lis%f%ecor Reference argument, Integer(4), Offset: 348, Alignment: full word 0-219.17$ lis%f%f00_flag Reference argument, Integer(4), Offset: 404, Alignment: full word 0-219.17$ lis%f%f06_flag Reference argument, Integer(4), Offset: 408, Alignment: double word 0-219.17$ lis%f%findagrtime1 Reference argument, Integer(4), Offset: 396, Alignment: full word 0-219.17$ lis%f%findagrtime2 Reference argument, Integer(4), Offset: 400, Alignment: quadruple word 0-219.17$ lis%f%findtime1 Reference argument, Integer(4), Offset: 388, Alignment: full word 0-219.17$ lis%f%findtime2 Reference argument, Integer(4), Offset: 392, Alignment: double word 0-219.17$ lis%f%force Reference argument, Integer(4), Offset: 344, Alignment: double word 0-219.17$ lis%f%gpcpsrc Reference argument, Integer(4), Offset: 412, Alignment: full word 0-219.17$ lis%f%gridchange Reference argument, Integer(4), Offset: 368, Alignment: quadruple word 0-219.17$ lis%f%interp Reference argument, Integer(4), Offset: 372, Alignment: full word 0-219.17$ lis%f%latmax Reference argument, Integer(4), Offset: 376, Alignment: double word 0-219.17$ lis%f%longflag Reference argument, Integer(4), Offset: 384, Alignment: quadruple word 0-219.17$ lis%f%nf Reference argument, Integer(4), Offset: 356, Alignment: full word 0-219.17$ lis%f%nforce Reference argument, Integer(4), Offset: 352, Alignment: quadruple word 0-219.17$ lis%f%nmif Reference argument, Integer(4), Offset: 360, Alignment: double word 0-219.17$ lis%f%radsrc Reference argument, Integer(4), Offset: 416, Alignment: quadruple word 0-219.17$ lis%f%rstflag Reference argument, Integer(4), Offset: 364, Alignment: full word 0-219.17$ lis%f%shortflag Reference argument, Integer(4), Offset: 380, Alignment: full word 0-219.17$ lis%o Reference argument, Derived type: lisoutput, Offset: 1144, Alignment: double word 0-219.17$ lis%o%dfile Reference argument, Character(40), Offset: 1236, Alignment: full word 0-219.17$ lis%o%expcode Reference argument, Integer(4), Offset: 1164, Alignment: full word 0-219.17$ lis%o%fidgm Reference argument, Integer(4), Offset: 1180, Alignment: full word 0-219.17$ lis%o%fidtm Reference argument, Integer(4), Offset: 1188, Alignment: full word 0-219.17$ lis%o%foropen Reference argument, Integer(4), Offset: 1172, Alignment: full word 0-219.17$ lis%o%numoutf Reference argument, Integer(4), Offset: 1176, Alignment: double word 0-219.17$ lis%o%odir Reference argument, Character(40), Offset: 1196, Alignment: full word 0-219.17$ lis%o%rcgm Reference argument, Integer(4), Offset: 1184, Alignment: quadruple word 0-219.17$ lis%o%rctm Reference argument, Integer(4), Offset: 1192, Alignment: double word 0-219.17$ lis%o%startcode Reference argument, Integer(4), Offset: 1168, Alignment: quadruple word 0-219.17$ lis%o%wfor Reference argument, Integer(4), Offset: 1144, Alignment: double word 0-219.17$ lis%o%wout Reference argument, Integer(4), Offset: 1152, Alignment: quadruple word 0-219.17$ lis%o%wparam Reference argument, Integer(4), Offset: 1160, Alignment: double word 0-219.17$ lis%o%wsingle Reference argument, Integer(4), Offset: 1156, Alignment: full word 0-219.17$ lis%o%wtil Reference argument, Integer(4), Offset: 1148, Alignment: full word 0-219.17$ lis%p Reference argument, Derived type: lisparameters, Offset: 424, Alignment: double word 0-219.17$ lis%p%avhrrdir Reference argument, Character(40), Offset: 824, Alignment: double word 0-219.17$ lis%p%clfile Reference argument, Character(40), Offset: 584, Alignment: double word 0-219.17$ lis%p%elevfile Reference argument, Character(40), Offset: 944, Alignment: quadruple word 0-219.17$ lis%p%iscfile Reference argument, Character(40), Offset: 904, Alignment: double word 0-219.17$ lis%p%lai Reference argument, Integer(4), Offset: 424, Alignment: double word 0-219.17$ lis%p%laiflag Reference argument, Integer(4), Offset: 436, Alignment: full word 0-219.17$ lis%p%laitime Reference argument, Real(8), Offset: 984, Alignment: double word 0-219.17$ lis%p%mfile Reference argument, Character(50), Offset: 444, Alignment: full word 0-219.17$ lis%p%modisdir Reference argument, Character(40), Offset: 864, Alignment: quadruple word 0-219.17$ lis%p%nt Reference argument, Integer(4), Offset: 428, Alignment: full word 0-219.17$ lis%p%po1file Reference argument, Character(40), Offset: 624, Alignment: quadruple word 0-219.17$ lis%p%po2file Reference argument, Character(40), Offset: 664, Alignment: double word 0-219.17$ lis%p%po3file Reference argument, Character(40), Offset: 704, Alignment: quadruple word 0-219.17$ lis%p%safile Reference argument, Character(40), Offset: 544, Alignment: quadruple word 0-219.17$ lis%p%saiflag Reference argument, Integer(4), Offset: 440, Alignment: double word 0-219.17$ lis%p%saitime Reference argument, Real(8), Offset: 992, Alignment: quadruple word 0-219.17$ lis%p%sifile Reference argument, Character(40), Offset: 784, Alignment: quadruple word 0-219.17$ lis%p%slfile Reference argument, Character(40), Offset: 744, Alignment: double word 0-219.17$ lis%p%vclass Reference argument, Integer(4), Offset: 432, Alignment: quadruple word 0-219.17$ lis%p%vfile Reference argument, Character(50), Offset: 494, Alignment: half word 0-219.17$ lis%t Reference argument, Derived type: listime, Offset: 1000, Alignment: double word 0-219.17$ lis%t%da Reference argument, Integer(4), Offset: 1088, Alignment: quadruple word 0-219.17$ lis%t%doy Reference argument, Integer(4), Offset: 1076, Alignment: full word 0-219.17$ lis%t%eda Reference argument, Integer(4), Offset: 1048, Alignment: double word 0-219.17$ lis%t%edoy Reference argument, Integer(4), Offset: 1040, Alignment: quadruple word 0-219.17$ lis%t%egmt Reference argument, Real(4), Offset: 1132, Alignment: full word 0-219.17$ lis%t%ehr Reference argument, Integer(4), Offset: 1044, Alignment: full word 0-219.17$ lis%t%emn Reference argument, Integer(4), Offset: 1036, Alignment: full word 0-219.17$ lis%t%emo Reference argument, Integer(4), Offset: 1052, Alignment: full word 0-219.17$ lis%t%endcode Reference argument, Integer(4), Offset: 1028, Alignment: full word 0-219.17$ lis%t%endtime Reference argument, Integer(4), Offset: 1104, Alignment: quadruple word 0-219.17$ lis%t%ess Reference argument, Integer(4), Offset: 1032, Alignment: double word 0-219.17$ lis%t%etime Reference argument, Real(8), Offset: 1120, Alignment: quadruple word 0-219.17$ lis%t%eyr Reference argument, Integer(4), Offset: 1056, Alignment: quadruple word 0-219.17$ lis%t%gmt Reference argument, Real(4), Offset: 1128, Alignment: double word 0-219.17$ lis%t%hhmmss Reference argument, Integer(4), Offset: 1072, Alignment: quadruple word 0-219.17$ lis%t%hr Reference argument, Integer(4), Offset: 1092, Alignment: full word 0-219.17$ lis%t%mn Reference argument, Integer(4), Offset: 1096, Alignment: double word 0-219.17$ lis%t%mo Reference argument, Integer(4), Offset: 1084, Alignment: full word 0-219.17$ lis%t%pda Reference argument, Integer(4), Offset: 1108, Alignment: full word 0-219.17$ lis%t%sda Reference argument, Integer(4), Offset: 1016, Alignment: double word 0-219.17$ lis%t%sdoy Reference argument, Integer(4), Offset: 1004, Alignment: full word 0-219.17$ lis%t%sgmt Reference argument, Real(4), Offset: 1136, Alignment: quadruple word 0-219.17$ lis%t%shr Reference argument, Integer(4), Offset: 1012, Alignment: full word 0-219.17$ lis%t%smn Reference argument, Integer(4), Offset: 1008, Alignment: quadruple word 0-219.17$ lis%t%smo Reference argument, Integer(4), Offset: 1020, Alignment: full word 0-219.17$ lis%t%ss Reference argument, Integer(4), Offset: 1100, Alignment: full word 0-219.17$ lis%t%sss Reference argument, Integer(4), Offset: 1000, Alignment: double word 0-219.17$ lis%t%syr Reference argument, Integer(4), Offset: 1024, Alignment: quadruple word 0-219.17$ lis%t%time Reference argument, Real(8), Offset: 1112, Alignment: double word 0-219.17$ lis%t%ts Reference argument, Integer(4), Offset: 1060, Alignment: full word 0-219.17$ lis%t%tscount Reference argument, Integer(4), Offset: 1064, Alignment: double word 0-219.17$ lis%t%yr Reference argument, Integer(4), Offset: 1080, Alignment: double word 0-219.17$ lis%t%yyyymmdd Reference argument, Integer(4), Offset: 1068, Alignment: full word 0-219.17$ lis_module Use associated, Nonintrinsic Module 0-215.7$ 0-215.7 lisassimil Use associated, Derived type definition 0-215.7$ lisdec Use associated, Derived type definition 0-215.7$ 0-219.9 lisdomain Use associated, Derived type definition 0-215.7$ lisforcing Use associated, Derived type definition 0-215.7$ lisoutput Use associated, Derived type definition 0-215.7$ lisparameters Use associated, Derived type definition 0-215.7$ listime Use associated, Derived type definition 0-215.7$ lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-215.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-215.7$ longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-215.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-215.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-215.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-215.7$ mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-215.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-215.7$ mo Reference argument, Integer(4), Offset: 0, Alignment: full word 0-224.18$ 0-213.41 0-247.33 0-252.35 mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-215.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-215.7$ namesh Reference argument, Character(80), Offset: 0, Alignment: byte 0-223.20$ 0-213.24 0-264.23@ nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-215.7$ ncold Use associated, Integer(4), Component of Derived type definition: agrmetdrvdec, Offset: 0, Alignment: full word 0-216.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-215.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-215.7$ ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-215.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-215.7$ nmif Use associated, Integer(4), Component of Derived type definition: agrmetdrvdec, Offset: 8, Alignment: full word 0-216.7$ nrold Use associated, Integer(4), Component of Derived type definition: agrmetdrvdec, Offset: 4, Alignment: full word 0-216.7$ nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-215.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-215.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-215.7$ odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-215.7$ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-215.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-215.7$ po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-215.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-215.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-215.7$ radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-215.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-215.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-215.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-215.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-215.7$ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-215.7$ rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-215.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-215.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-215.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-215.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-215.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-215.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-215.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-215.7$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-215.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-215.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-215.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-215.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-215.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-215.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-215.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-215.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-215.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-215.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-215.7$ startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-215.7$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-215.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-215.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-215.7$ ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-215.7$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-215.7$ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-215.7$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-215.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-215.7$ wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-215.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-215.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-215.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-215.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-215.7$ yr Reference argument, Integer(4), Offset: 0, Alignment: full word 0-224.14$ 0-213.37 0-247.30 0-252.31 yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-215.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-215.7$ ** agrswfile === End of Compilation 2 === >>>>> COMPILATION UNIT EPILOGUE SECTION <<<<< FORTRAN Summary of Diagnosed Conditions TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL (U) (S) (E) (W) (I) 0 0 0 0 0 0 >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../obsrads/agrmet/getgrad.F 03/09/11 11:04:01 >>>>> 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....................................... 257 1501-510 Compilation successful for file getgrad.F. 1501-543 Object file created.