IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../params/lai/climatologysairead.F 03/09/11 11:03:45 >>>>> 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 "../params/lai/climatologysairead.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: climatologysairead.F90 24 |! 25 |! !DESCRIPTION: 26 |! This program reads in AVHRR LAI data for CLM 27 |! 28 |! !REVISION HISTORY: 29 |! 27 Nov 2001: Jon Gottschalck; Initial code 30 |! 20 Feb 2002: Jon Gottschalck; Modified to use for 1/4 and 2x2.5 using 1/8 degree monthly data 31 |! 01 Oct 2002: Jon Gottschalck; Modified to add MODIS LAI data 32 |! 33 |! !INTERFACE: 34 |subroutine climatologysairead(name15,name16,sai_t1_f,sai_t2_f) 35 |! !USES: 36 | use time_manager 37 | use lisdrv_module, only : grid,lis, tile 38 | use spmdMod,only :iam 39 | use precision 40 |!EOP 41 | implicit none 42 | 43 |!=== Arguments =========================================================== 44 | real :: tsai(lis%d%nch) 45 | real,allocatable :: domlai(:,:) 46 | integer :: cindex, rindex 47 | integer :: index 48 | real(r8) :: sai_t1_f(lis%d%nch) 49 | real(r8) :: sai_t2_f(lis%d%nch) 50 |!=== Local variables 51 | integer :: line,t,v,mlat,mlon,l 52 | real :: lat1,lon1,lat2,lon2 ! Lat/Lon to determine specific data for each tile in direct access files 53 | character*1 :: sai_1(14),sai_2(14) ! LAI/SAI for all vegetation types 54 | integer :: flag1, flag2 55 | integer :: cnt1,cnt2,cnt3,cnt4,cnt5,cnt6,cnt7,cnt8,ii8,j8 56 | real :: sum1,sum2,sum3,sum4,sum5,sum6,sum7,sum8 57 | integer :: d_start_nr,d_start_nc,start_8th_nr,start_8th_nc 58 | integer :: end_8th_nr,end_8th_nc,k,mm 59 | character(len=80) :: name15, name16 60 | character(len=80) :: ntop1, ntop2, nbot1, nbot2 61 | character(len=100) :: temp 62 | real :: pthtop(17),pthbot(17) ! Canopy top and bottom height for the 13 UMD vegetation types 63 | integer :: p, domain 64 | real*8 :: latdeg, londeg 65 | 66 |!=== End Local variable list 67 | if(lis%d%gridDesc(9) .eq. 0.01) then 68 | domain = 8 69 | elseif(lis%d%gridDesc(9).eq.0.05) then 70 | domain = 7 71 | elseif(lis%d%gridDesc(9) .eq. 0.125) then 72 | domain = 6 73 | elseif(lis%d%gridDesc(9) .eq. 0.25) then 74 | domain = 5 75 | elseif(lis%d%gridDesc(9) .eq. 0.50) then 76 | domain = 4 77 | elseif(lis%d%gridDesc(9) .eq. 1.0) then 78 | domain = 3 79 | elseif((lis%d%gridDesc(9) .eq. 2) .and. & 80 | (lis%d%gridDesc(10) .eq. 2.5)) then 81 | domain = 2 82 | endif 83 | flag1 = 0 84 | flag2 = 0 85 | print*, 'reading sai file ',name15 86 | if(domain==8) then 87 | open(12,file=name15,status='old',form='unformatted',& 88 | access='direct',recl=1) 89 | print*, 'msg: lairead -- using 1/8 avhrr sai data for month 1 ', & 90 | name15,' (',iam,')' 91 | flag1 = 1 92 | else if(domain==7) then 93 | open(12,file=name15,status='old',form='unformatted',& 94 | access='direct',recl=22) 95 | print*, 'msg: lairead -- using 1/8 avhrr sai data for month 1 ', & 96 | name15,' (',iam,')' 97 | flag1 = 1 98 | else 99 | open(12,file=name15,status='old',form='unformatted',& 100 | access='direct',recl=24) 101 | print*, 'msg: lairead -- using 1/8 avhrr sai data for month 1 ', & 102 | name15,' (',iam,')' 103 | flag1 = 1 104 | endif 105 | 106 | if( domain ==8) then 107 | open(13,file=name16,status='old',form='unformatted',& 108 | access='direct',recl=1) 109 | flag2 = 1 110 | print*, 'msg: lairead -- using 1/8 avhrr lai/dsai data for month 2 ', & 111 | name16,' (',iam,')' 112 | else if( domain ==7) then 113 | open(13,file=name16,status='old',form='unformatted',& 114 | access='direct',recl=22) 115 | flag2 = 1 116 | print*, 'msg: lairead -- using 1/8 avhrr lai/dsai data for month 2 ', & 117 | name16,' (',iam,')' 118 | else 119 | open(13,file=name16,status='old',form='unformatted',& 120 | access='direct',recl=24) 121 | flag2 = 1 122 | print*, 'msg: lairead -- no realtime monthly data for month 2', & 123 | ' (',iam,')' 124 | print*, 'msg: lairead -- using 1/8 avhrr sai data for month 2 ', & 125 | name16,' (',iam,')' 126 | endif 127 | 128 | do t=1,lis%d%nch 129 | index = tile(t)%index 130 | 131 | latdeg = grid(index)%lat 132 | londeg = grid(index)%lon 133 | if (domain .ne. 1 .and. domain .le. 5) then 134 | 135 | select case (domain) 136 | case (2) 137 | d_start_nr = ((latdeg - (-60)) / 2.0) + 1 138 | start_8th_nr = ((d_start_nr - 1) * 16) + 1 139 | end_8th_nr = start_8th_nr + 15 140 | d_start_nc = ((londeg - (-180)) / 2.5) + 1 141 | start_8th_nc = ((d_start_nc - 1) * 20) + 1 142 | end_8th_nc = start_8th_nc + 19 143 | case (3) 144 | d_start_nr = ((latdeg - (-59.500)) / 1.00) + 1 145 | start_8th_nr = ((d_start_nr - 1) * 8) + 1 146 | end_8th_nr = start_8th_nr + 7 147 | d_start_nc = ((londeg - (-179.500)) / 1.00) + 1 148 | start_8th_nc = ((d_start_nc - 1) * 8) + 1 149 | end_8th_nc = start_8th_nc + 7 150 | case (4) 151 | d_start_nr = ((latdeg - (-59.750)) / 0.50) + 1 152 | start_8th_nr = ((d_start_nr - 1) * 4) + 1 153 | end_8th_nr = start_8th_nr + 3 154 | d_start_nc = ((londeg - (-179.750)) / 0.50) + 1 155 | start_8th_nc = ((d_start_nc - 1) * 4) + 1 156 | end_8th_nc = start_8th_nc + 3 157 | case (5) 158 | d_start_nr = ((latdeg - (-59.875)) / 0.25) + 1 159 | start_8th_nr = ((d_start_nr - 1) * 2) + 1 160 | end_8th_nr = start_8th_nr + 1 161 | d_start_nc = ((londeg - (-179.875)) / 0.25) + 1 162 | start_8th_nc = ((d_start_nc - 1) * 2) + 1 163 | end_8th_nc = start_8th_nc + 1 164 | case default 165 | print*, 'err: lairead -- improper domain selection',' (',iam,')' 166 | call endrun 167 | end select 168 |!------------------------------------------------------------------------ 169 |! Initilaize sums for LAI month 1, LAI month 2, DSAI month 1, DSAI month 2 170 |!------------------------------------------------------------------------ 171 | sum1 = 0.0 172 | sum2 = 0.0 173 | sum3 = 0.0 174 | sum4 = 0.0 175 | cnt1 = 0 176 | cnt2 = 0 177 | cnt3 = 0 178 | cnt4 = 0 179 |!------------------------------------------------------------------------ 180 |! Looping over 1/8 grid space that relates to 1/4 or 2x2.5 domains 181 |!------------------------------------------------------------------------ 182 | do ii8 = start_8th_nr,end_8th_nr 183 | do j8 = start_8th_nc,end_8th_nc 184 | line = (ii8 - 1)*2880 + j8 185 | read(12,rec=line) lat1, lon1, sai_1 186 | read(13,rec=line) lat2, lon2, sai_2 187 | 188 | select case (lis%p%lai) 189 | 190 | case(2) ! avhrr lai 191 | if (ichar(sai_1(tile(t)%vegt+1)) .ne. 251 & 192 | .and. ichar(sai_1(tile(t)%vegt+1)) .ne. 0) then 193 | sum3 = sum3 + (ichar(sai_1(tile(t)%vegt+1))) * 0.04 194 | cnt3 = cnt3 + 1 195 | endif 196 | if (ichar(sai_2(tile(t)%vegt+1)) .ne. 251 & 197 | .and. ichar(sai_2(tile(t)%vegt+1)) .ne. 0) then 198 | sum4 = sum4 + (ichar(sai_2(tile(t)%vegt+1))) * 0.04 199 | cnt4 = cnt4 + 1 200 | endif 201 | 202 | case(3) ! modis lai 203 | if (ichar(sai_1(tile(t)%vegt+1)) .lt. 200) then 204 | sum3 = sum3 + (ichar(sai_1(tile(t)%vegt+1))) * 0.10 205 | cnt3 = cnt3 + 1 206 | endif 207 | if (ichar(sai_2(tile(t)%vegt+1)) .lt. 200) then 208 | sum4 = sum4 + (ichar(sai_2(tile(t)%vegt+1))) * 0.10 209 | cnt4 = cnt4 + 1 210 | endif 211 | case default 212 | print*, 'err: lairead -- not a valid sai domain',' (',iam,')' 213 | call endrun 214 | 215 | end select 216 | enddo 217 | enddo 218 |!------------------------------------------------------------------------ 219 |! Compute averages for the vegetation type represented by tile 220 |!------------------------------------------------------------------------ 221 | if (cnt3 .ne. 0) then 222 | sai_t1_f(t) = sum3 / cnt3 223 | else 224 | sai_t1_f(t) = 0 225 | endif 226 | if (cnt4 .ne. 0) then 227 | sai_t2_f(t) = sum4 / cnt4 228 | else 229 | sai_t2_f(t) = 0 230 | endif 231 | elseif(domain.eq.7) then 232 | mlat = (latdeg + 59.975) / 0.05 + 1 233 | mlon = (londeg + 179.975) / 0.05 + 1 234 | line = (mlat - 1)*7200 + mlon 235 | read(12,rec=line) lat1, lon1, sai_1 236 | read(13,rec=line) lat2, lon2, sai_2 237 | select case(lis%p%lai) 238 | case(2) ! avhrr lai 239 | sai_t1_f(t) = ichar(sai_1(tile(t)%vegt+1)) * 0.04 240 | sai_t2_f(t) = ichar(sai_2(tile(t)%vegt+1)) * 0.04 241 | case(3) 242 | sai_t1_f(t) = ichar(sai_1(tile(t)%vegt+1)) * 0.10 243 | sai_t2_f(t) = ichar(sai_2(tile(t)%vegt+1)) * 0.10 244 | case default 245 | print*, 'err: lairead -- invalid domain for lai data',' (',iam,')' 246 | call endrun 247 | end select 248 | elseif(domain.eq.8) then 249 | mlat = (latdeg + 59.995) / 0.01 + 1 250 | mlon = (londeg + 179.995) / 0.01 + 1 251 | line = (mlat - 1)*36000 + mlon 252 |!=== read in data for both lai and dsai 253 |!=== only 1 veg for each tile @ 1km 254 | read(12,rec=line) sai_1(1) 255 | read(13,rec=line) sai_2(1) 256 | !=== scale to real physical values 257 | select case(lis%p%lai) 258 | case(2) ! avhrr lai 259 | sai_t1_f(t) = ichar(sai_1(1)) * 0.04 260 | sai_t2_f(t) = ichar(sai_2(1)) * 0.04 261 | case(3) 262 | sai_t1_f(t) = ichar(sai_1(1)) * 0.10 263 | sai_t2_f(t) = ichar(sai_2(1)) * 0.10 264 | case default 265 | print*, 'err: lairead -- invalid domain for lai data',' (',iam,')' 266 | stop 267 | end select 268 | endif 269 | enddo 270 | close(10) 271 | close(11) 272 | close(12) 273 | close(13) 274 | 275 | end subroutine climatologysairead >>>>> 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-36.7$ advance_timestep Use associated, Module Subroutine 0-36.7$ avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-36.7$ cindex Automatic, Integer(4), Offset: 0, Alignment: full word 0-46.14$ clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-36.7$ climatologysairead Subroutine 0-34.12$ cnt1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.25$ 0-175.10@ cnt2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.30$ 0-176.10@ cnt3 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.35$ 0-177.10@ 0-194.22@ 0-194.29 0-205.22@ 0-205.29 0-221.14 0-222.34 cnt4 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.40$ 0-178.10@ 0-199.22@ 0-199.29 0-209.22@ 0-209.29 0-226.14 0-227.34 cnt5 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.45$ cnt6 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.50$ cnt7 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.55$ cnt8 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.60$ col Use associated, Integer(4), Component of Derived type definition: tiledec, Offset: 0, Alignment: full word 0-37.7$ d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-36.7$ d_start_nc Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.36$ 0-140.13@ 0-141.30 0-147.13@ 0-148.30 0-154.13@ 0-155.30 0-161.13@ 0-162.30 d_start_nr Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.25$ 0-137.13@ 0-138.30 0-144.13@ 0-145.30 0-151.13@ 0-152.30 0-158.13@ 0-159.30 da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-36.7$ date2time Use associated, Module Subroutine 0-36.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ days Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-36.7$ domain Automatic, Integer(4), Offset: 0, Alignment: full word 0-63.17$ 0-68.6@ 0-70.6@ 0-72.6@ 0-74.6@ 0-76.6@ 0-78.6@ 0-81.6@ 0-86.7 0-92.12 0-106.8 0-112.13 0-133.11 0-133.31 0-135.23 0-231.14 0-248.14 domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-36.7$ domlai Allocatable, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-45.23$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-36.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-36.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-36.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-36.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-36.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-36.7$ elev Use associated, Real(4), Component of Derived type definition: tiledec, Offset: 20, Alignment: full word 0-37.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-36.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-36.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-36.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-36.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-36.7$ end_8th_nc Automatic, Integer(4), Offset: 0, Alignment: full word 0-58.36$ 0-142.13@ 0-149.13@ 0-156.13@ 0-163.13@ 0-183.34 end_8th_nr Automatic, Integer(4), Offset: 0, Alignment: full word 0-58.25$ 0-139.13@ 0-146.13@ 0-153.13@ 0-160.13@ 0-182.32 endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-36.7$ endrun External Subroutine 0-166.18 0-213.24 0-246.18 endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-36.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-36.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-36.7$ expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-36.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-36.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-36.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-36.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-36.7$ fgrd Use associated, Real(4), Component of Derived type definition: tiledec, Offset: 16, Alignment: full word 0-37.7$ fgrd Use associated, Real(4) (1:13), Component of Derived type definition: griddec, Offset: 72, Alignment: full word 0-37.7$ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-36.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-36.7$ findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-36.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-36.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-36.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-36.7$ flag1 Automatic, Integer(4), Offset: 0, Alignment: full word 0-54.25$ 0-83.4@ 0-91.7@ 0-97.7@ 0-103.7@ flag2 Automatic, Integer(4), Offset: 0, Alignment: full word 0-54.32$ 0-84.4@ 0-109.7@ 0-115.7@ 0-121.7@ force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-36.7$ forcing Use associated, Real(4) (1:16), Component of Derived type definition: griddec, Offset: 8, Alignment: full word 0-37.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-36.7$ ftn_unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-36.7$ ftn_unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-36.7$ get_curr_calday Use associated, Module Function Real(4) 0-36.7$ get_curr_date Use associated, Module Subroutine 0-36.7$ get_curr_time Use associated, Module Subroutine 0-36.7$ get_nstep Use associated, Module Function Integer(4) 0-36.7$ get_prev_date Use associated, Module Subroutine 0-36.7$ get_ref_date Use associated, Module Subroutine 0-36.7$ get_start_date Use associated, Module Subroutine 0-36.7$ get_step_size Use associated, Module Function Integer(4) 0-36.7$ glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-36.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-36.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-36.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-36.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-36.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-36.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-36.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-36.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-36.7$ grid Pointer, Use associated, Static, Derived type: griddec (:), Offset: 0, Alignment: quadruple word 0-37.29$ grid%lat Use associated, Real(4), Offset: 0, Alignment: quadruple word 0-131.16 grid%lon Use associated, Real(4), Offset: 4, Alignment: full word 0-132.16 grid_module Use associated, Nonintrinsic Module 0-37.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-36.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-36.7$ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-36.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-36.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ i8 Use associated, Parameter, Integer(4) 0-36.7$ 0-39.7$ iam Use associated, Static, Integer(4), Offset: 4, Alignment: full word 0-38.21$ 0-90.24 0-96.24 0-102.24 0-111.24 0-117.24 0-123.17 0-125.24 0-165.70 0-212.74 0-245.72 0-265.72 ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-36.7$ ichar Pure Intrinsic 0-191.23 0-192.30 0-193.37 0-196.23 0-197.30 0-198.37 0-203.23 0-204.37 0-207.23 0-208.37 0-239.27 0-240.27 0-242.27 0-243.27 0-259.27 0-260.27 0-262.27 0-263.27 ii8 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.65$ 0-182.13@ 0-184.24 index Automatic, Integer(4), Offset: 0, Alignment: full word 0-47.14$ 0-129.7@ 0-131.21 0-132.21 index Use associated, Integer(4), Component of Derived type definition: tiledec, Offset: 8, Alignment: full word 0-37.7$ interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-36.7$ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-36.7$ is_last_step Use associated, Module Function Logical(4) 0-36.7$ iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-36.7$ j8 Automatic, Integer(4), Offset: 0, Alignment: full word 0-55.69$ 0-183.16@ 0-184.40 k Automatic, Integer(4), Offset: 0, Alignment: full word 0-58.47$ l Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.44$ lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-36.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-36.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-36.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-36.7$ lat Use associated, Real(4), Component of Derived type definition: griddec, Offset: 0, Alignment: full word 0-37.7$ lat1 Automatic, Real(4), Offset: 0, Alignment: full word 0-52.25$ 0-185.34@ 0-235.28@ lat2 Automatic, Real(4), Offset: 0, Alignment: full word 0-52.35$ 0-186.34@ 0-236.28@ latdeg Automatic, Real(8), Offset: 0, Alignment: double word 0-64.14$ 0-131.7@ 0-137.29 0-144.29 0-151.29 0-158.29 0-232.18 0-249.18 latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-36.7$ lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-36.7$ line Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.25$ 0-184.16@ 0-185.28 0-186.28 0-234.10@ 0-235.22 0-236.22 0-251.10@ 0-254.22 0-255.22 lis Use associated, Static, Derived type: lisdec, Offset: 0, Alignment: quadruple word 0-37.34$ lis%d%griddesc Use associated, Static, Real(4) (1:50), Offset: 72, Alignment: double word 0-67.6 0-69.10 0-71.10 0-73.10 0-75.10 0-77.10 0-79.11 0-80.9 lis%d%nch Use associated, Static, Integer(4), Offset: 0, Alignment: quadruple word 0-44.16 0-44.16 0-48.24 0-48.24 0-49.24 0-49.24 0-128.11 lis%p%lai Use associated, Static, Integer(4), Offset: 424, Alignment: double word 0-188.29 0-237.22 0-257.22 lis_module Use associated, Nonintrinsic Module 0-36.7$ 0-37.7$ lisassimil Use associated, Derived type definition 0-36.7$ lisdec Use associated, Derived type definition 0-36.7$ lisdomain Use associated, Derived type definition 0-36.7$ lisdrv_module Use associated, Nonintrinsic Module 0-37.7$ 0-37.7 lisforcing Use associated, Derived type definition 0-36.7$ lisoutput Use associated, Derived type definition 0-36.7$ lisparameters Use associated, Derived type definition 0-36.7$ listime Use associated, Derived type definition 0-36.7$ lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-36.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-36.7$ lon Use associated, Real(4), Component of Derived type definition: griddec, Offset: 4, Alignment: full word 0-37.7$ lon1 Automatic, Real(4), Offset: 0, Alignment: full word 0-52.30$ 0-185.40@ 0-235.34@ lon2 Automatic, Real(4), Offset: 0, Alignment: full word 0-52.40$ 0-186.40@ 0-236.34@ londeg Automatic, Real(8), Offset: 0, Alignment: double word 0-64.22$ 0-132.7@ 0-140.29 0-147.29 0-154.29 0-161.29 0-233.18 0-250.18 longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-36.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-36.7$ masterproc Use associated, Static, Logical(4), Offset: 8, Alignment: double word 0-36.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-36.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-36.7$ mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-36.7$ mlat Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.34$ 0-232.10@ 0-234.18 0-249.10@ 0-251.18 mlon Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.39$ 0-233.10@ 0-234.35 0-250.10@ 0-251.36 mm Automatic, Integer(4), Offset: 0, Alignment: full word 0-58.49$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-36.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-36.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-36.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ name15 Reference argument, Character(80), Offset: 0, Alignment: byte 0-59.24$ 0-34.31 0-85.32 0-87.20 0-90.12 0-93.20 0-96.12 0-99.20 0-102.12 name16 Reference argument, Character(80), Offset: 0, Alignment: byte 0-59.32$ 0-34.38 0-107.20 0-111.12 0-113.20 0-117.12 0-119.20 0-125.12 nbot1 Automatic, Character(80), Offset: 0, Alignment: full word 0-60.38$ nbot2 Automatic, Character(80), Offset: 0, Alignment: full word 0-60.45$ nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-36.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-36.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-36.7$ ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-36.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-36.7$ nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-36.7$ ntop1 Automatic, Character(80), Offset: 0, Alignment: full word 0-60.24$ ntop2 Automatic, Character(80), Offset: 0, Alignment: full word 0-60.31$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-36.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-36.7$ odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-36.7$ offset Use associated, Reference argument, Optional, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-36.7$ offset Use associated, Reference argument, Optional, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-36.7$ p Automatic, Integer(4), Offset: 0, Alignment: full word 0-63.14$ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-36.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-36.7$ po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-36.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-36.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-36.7$ precision Use associated, Nonintrinsic Module 0-36.7$ 0-39.7 0-39.7$ pthbot Automatic, Real(4) (1:17), Offset: 0, Alignment: full word 0-62.25$ pthtop Automatic, Real(4) (1:17), Offset: 0, Alignment: full word 0-62.14$ r4 Use associated, Parameter, Integer(4) 0-36.7$ 0-39.7$ r8 Use associated, Parameter, Integer(4) 0-36.7$ 0-39.7$ 0-48.8 0-49.8 radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-36.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-36.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-36.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-36.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-36.7$ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-36.7$ rindex Automatic, Integer(4), Offset: 0, Alignment: full word 0-46.22$ row Use associated, Integer(4), Component of Derived type definition: tiledec, Offset: 4, Alignment: full word 0-37.7$ rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-36.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-36.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-36.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-36.7$ sai_1 Automatic, Character(1) (1:14), Offset: 0, Alignment: full word 0-53.25$ 0-185.46@ 0-191.29 0-192.36 0-193.43 0-203.29 0-204.43 0-235.40@ 0-239.33 0-242.33 0-254.28@ 0-259.33 0-262.33 sai_2 Automatic, Character(1) (1:14), Offset: 0, Alignment: full word 0-53.35$ 0-186.46@ 0-196.29 0-197.36 0-198.43 0-207.29 0-208.43 0-236.40@ 0-240.33 0-243.33 0-255.28@ 0-260.33 0-263.33 sai_t1_f Reference argument, Real(4) (1:?), Offset: 0, Alignment: full word 0-48.15$ 0-34.45 0-222.13@ 0-224.13@ 0-239.13@ 0-242.13@ 0-259.13@ 0-262.13@ sai_t2_f Reference argument, Real(4) (1:?), Offset: 0, Alignment: full word 0-49.15$ 0-34.54 0-227.13@ 0-229.13@ 0-240.13@ 0-243.13@ 0-260.13@ 0-263.13@ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-36.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-36.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-36.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-36.7$ seconds Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ selected_int_kind Use associated, Pure Intrinsic 0-36.7$ 0-39.7$ selected_real_kind Use associated, Pure Intrinsic 0-36.7$ 0-39.7$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-36.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-36.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-36.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-36.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-36.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-36.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-36.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-36.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-36.7$ spmdmod Use associated, Nonintrinsic Module 0-36.7$ 0-38.7 0-38.7$ ss Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ ss Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-36.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-36.7$ start_8th_nc Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.60$ 0-141.13@ 0-142.30 0-148.13@ 0-149.30 0-155.13@ 0-156.30 0-162.13@ 0-163.30 0-183.21 start_8th_nr Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.47$ 0-138.13@ 0-139.30 0-145.13@ 0-146.30 0-152.13@ 0-153.30 0-159.13@ 0-160.30 0-182.19 startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-36.7$ sum1 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.25$ 0-171.10@ sum2 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.30$ 0-172.10@ sum3 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.35$ 0-173.10@ 0-193.22@ 0-193.29 0-204.22@ 0-204.29 0-222.27 sum4 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.40$ 0-174.10@ 0-198.22@ 0-198.29 0-208.22@ 0-208.29 0-227.27 sum5 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.45$ sum6 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.50$ sum7 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.55$ sum8 Automatic, Real(4), Offset: 0, Alignment: full word 0-56.60$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-36.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-36.7$ t Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.30$ 0-128.7@ 0-129.20 0-191.40 0-192.47 0-193.54 0-196.40 0-197.47 0-198.54 0-203.40 0-204.54 0-207.40 0-208.54 0-222.22 0-224.22 0-227.22 0-229.22 0-239.22 0-239.44 0-240.22 0-240.44 0-242.22 0-242.44 0-243.22 0-243.44 0-259.22 0-260.22 0-262.22 0-263.22 temp Automatic, Character(100), Offset: 0, Alignment: full word 0-61.25$ tick Use associated, Module Subroutine 0-36.7$ tile Pointer, Use associated, Static, Derived type: tiledec (:), Offset: 216, Alignment: double word 0-37.39$ tile%index Use associated, Integer(4), Offset: 8, Alignment: double word 0-129.15 tile%vegt Use associated, Integer(4), Offset: 12, Alignment: full word 0-191.35 0-192.42 0-193.49 0-196.35 0-197.42 0-198.49 0-203.35 0-204.49 0-207.35 0-208.49 0-239.39 0-240.39 0-242.39 0-243.39 tile_module Use associated, Nonintrinsic Module 0-37.7$ tile_spmdmod Use associated, Nonintrinsic Module 0-37.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-36.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-36.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-36.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-36.7$ time2date Use associated, Module Subroutine 0-36.7$ time_manager Use associated, Nonintrinsic Module 0-36.7$ 0-36.7 timemgr_init Use associated, Module Subroutine 0-36.7$ timemgr_print Use associated, Module Subroutine 0-36.7$ timemgr_read_restart Use associated, Module Subroutine 0-36.7$ timemgr_restart Use associated, Module Subroutine 0-36.7$ timemgr_write_restart Use associated, Module Subroutine 0-36.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ ts Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-36.7$ tsai Controlled Automatic, Real(4) (1:?), Offset: 0, Alignment: full word 0-44.11$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-36.7$ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-36.7$ v Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.32$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-36.7$ vegt Use associated, Integer(4), Component of Derived type definition: tiledec, Offset: 12, Alignment: full word 0-37.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-36.7$ wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-36.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-36.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-36.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-36.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-36.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-36.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-36.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-36.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-36.7$ ** climatologysairead === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../params/lai/climatologysairead.F 03/09/11 11:03:45 >>>>> 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....................................... 276 1501-510 Compilation successful for file climatologysairead.F. 1501-543 Object file created.