IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../baseforcing/gdas.20070502/retgdas.F 03/09/11 11:04:52 >>>>> 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 "../baseforcing/gdas.20070502/retgdas.F" 1 |!------------------------------------------------------------------------- 2 |! NASA GSFC Land Information Systems LIS 2.3 ! 3 |!------------------------------------------------------------------------- 4 |!BOP 5 |! !ROUTINE: retgdas.F90 6 |! 7 |! !DESCRIPTION: 8 |! Defines forcing parameters, retrieves the fields using calls to 9 |! getgb, and interpolates the fields to LDAS specifications 10 |! 11 |! !REVISION HISTORY: 12 |! 14 Dec 2000: Urszula Jambor; Rewrote geteta.f to use GDAS forcing in GLDAS 13 |! 15 Mar 2001: Jon Gottschalck; Added additional parameters and octets in 14 |! which to search in GRIB files 15 |! 01 Jun 2001: Urszula Jambor; Added option to get forcing from different 16 |! files (F00 instantaneous and F06 six hour means) 17 |! 29 Jan 2003: Urszula Jambor; Rewrote code, uses GETGB call to replace 18 |! ungribgdas. Interpolation now occurs in interp_gdas. 19 |! Using GETGB avoids problems with the Oct2002 GDAS 20 |! grid update. 21 |! 12 Nov 2003: Matt Rodell; Check to make sure input file exists before 22 |! opening and thereby creating a new, empty file. 23 |! 14 Nov 2003: Matt Rodell; Ensure lugb varies in call to baopen 24 |! 25 |! !INTERFACE: 26 |subroutine retgdas( order, ld, gindex, name, ferror,try ) 27 |! !USES: 28 | use lis_module ! LDAS non-model-specific 1-D variables 29 | use lisdrv_module, only : lis 30 | use time_manager 31 | use baseforcing_module, only: glbdata1, glbdata2 32 | use gdasdomain_module, only : gdasdrv 33 | implicit none 34 |! !ARGUMENTS: 35 | type (lisdec) ld 36 | integer :: gindex(ld%d%lnc, ld%d%lnr) 37 | integer :: order ! 1 indicates lesser interp. bdry, 2 indicates greater 38 | character(len=80) :: name, nameF06 39 | integer :: F00flag ! if 1, need for data from 2 files (name, nameF06) 40 | integer :: ferror ! set to zero if there's an error 41 | integer :: try 42 |!EOP 43 |!==== Local Variables======================= 44 | 45 | integer agrmetFlag, cmapFlag 46 | 47 | character(len=80) :: fname 48 | integer :: iv, c, r, ii, mx, my,i 49 | integer :: errorflag 50 | integer :: endloop, nforce 51 | integer :: j, lugb,iret,gbret,jret,jpds(200),jgds(200) 52 | integer :: lubi,kf,k,kpds(200),kgds(200) 53 | integer :: ngdas 54 | integer, dimension(gdasdrv%nmif) :: pds5, pds6, pds7, pds16 55 | 56 | !logical*1, allocatable :: lb(:) 57 | logical*1 :: lb(gdasdrv%ncold*gdasdrv%nrold) 58 | logical :: file_exists 59 | !real, allocatable :: f(:) 60 | real :: f(gdasdrv%ncold*gdasdrv%nrold) 61 | !real, allocatable :: varfield(:,:) 62 | real :: varfield(ld%d%lnc,ld%d%lnr) 63 | real :: ism 64 | integer :: count 65 | 66 |! IPOLATES VARIABLES, JESSE 20050225 67 | 68 | integer :: ip, ipopt(20) 69 | integer :: kgdsi(25), kgdso(25) 70 | integer :: mi, mo 71 | integer, parameter :: km = 1 72 | integer, parameter :: ibi = 1 73 | integer :: no 74 | real, allocatable :: rlat(:) 75 | real, allocatable :: rlon(:) 76 | integer :: ibo 77 | logical*1, allocatable :: lo(:) 78 | !real, allocatable :: g(:) 79 | real :: g(gdasdrv%ncold*gdasdrv%nrold) 80 | 81 |!=== End Variable Definition ======================= 82 |!BOC 83 | ngdas = (gdasdrv%ncold*gdasdrv%nrold) 84 |!-------------------------------------------------------------------------- 85 |! Set the GRIB parameter specifiers 86 |! FORCING() ARRAY: \\ 87 |! 1. T 2m Temperature interpolated to 2 metres [$K$] \\ 88 |! 2. q 2m Instantaneous specific humidity interpolated to 2 metres[$kg/kg$] \\ 89 |! 3. radswg Downward shortwave flux at the ground [$W/m^2$] \\ 90 |! 4. lwgdwn Downward longwave radiation at the ground [$W/m^2$] \\ 91 |! 5. u 10m Instantaneous zonal wind interpolated to 10 metres [$m/s$] \\ 92 |! 6. v 10m Instantaneous meridional wind interpolated to 10 metres[$m/s$] \\ 93 |! 7. ps Instantaneous Surface Pressure [$Pa$] \\ 94 |! 8. preacc Total precipitation [$mm/s$] \\ 95 |! 9. gfrac Greenness fraction (0-1) 96 |! 10. albedo Surface albedo (0-1) 97 |! 11. zlvl Height of atmospheric forcing [m] 98 |! 12. z0 Surface roughness [m] 99 |! 13. ch Surface exchange coefficient [m/s] 100 |! 14. t1 Skin Temperature [K] 101 |! 15. sneqv SWE [m] 102 |! 16. snowh Snow Depth [m] 103 |!-------------------------------------------------------------------------- 104 |!J if (get_nstep() .eq. 0) then 105 |!J pds5 = (/011,051,204,205,033,034,001,059,214,084,144,144, 011,011, 065/) !parameter 106 |!J pds7 = (/002,002,000,000,010,010,000,000,000,000,010,2760,010,2760,000/) !htlev2 107 |!J nforce = gdasdrv%nmif 108 |!J else 109 | pds5 = (/ 011,051,204,205,033,034,001,059,087,084,007,083,208,011,065,066 /) !parameter 110 | pds6 = (/ 109,109,001,001,109,109,001,001,001,001,109,001,001,001,001,001 /) !level 111 | pds7 = (/ 001,001,000,000,001,001,000,000,000,000,001,000,000,000,000,000 /) !height 112 | pds16= (/ 010,010,010,010,010,010,010,003,010,003,010,010,010,010,010,010 /) !3-ave; 10-fcst 113 | nforce = gdasdrv%nmif 114 |!J endif 115 | 116 | ferror = 1 117 |!-------------------------------------------------------------------------- 118 |! if there's a problem then ferror is set to zero 119 |!-------------------------------------------------------------------------- 120 | iv = 0 121 | errorflag = 0 122 | endloop = 0 123 | 124 | fname = name 125 | read(fname(24:24),'(i1)') i 126 | read(fname(34:34),'(i1)') j 127 | read(fname(47:47),'(i1)') k 128 | inquire (file=fname, exist=file_exists) 129 | if (file_exists) then 130 | lugb = i+j+k*3 131 | lubi = i+j+k*7 132 | iret=0 133 | call baopenr(lugb,fname,iret) 134 | print*,"J---retgdas()---baopenr()---lugb, iret= ",trim(fname),lugb,iret 135 | iret=0 136 | call baopenr(lubi,trim(fname)//'.index',iret) 137 | print*,"J---retgdas()---baopenr()---lubi, iret= ",trim(fname)//'.index',lubi,iret 138 | else 139 | ferror = 0 140 | return 141 | endif 142 | 143 | ! allocate(lb(gdasdrv%ncold*gdasdrv%nrold)) 144 | ! allocate( f(gdasdrv%ncold*gdasdrv%nrold)) 145 | 146 | mi = ngdas 147 | mo = ld%d%lnc*ld%d%lnr 148 | ! allocate(rlat(mo)) 149 | ! allocate(rlon(mo)) 150 | ! allocate( lo(mo)) 151 | ! allocate( g(mo)) 152 | 153 | ! allocate(varfield(ld%d%lnc,ld%d%lnr)) 154 | 155 | j=0 156 | do iv = 1, nforce 157 | ! do 158 | ! if ( endloop == 1 ) exit 159 | ! iv = iv+1 160 | ! fname = name 161 | ! inquire (file=fname, exist=file_exists) 162 | ! if (file_exists) then 163 |!!-------------------------------------------------------------------------- 164 |!! Set up to open file and retrieve specified field 165 |!!-------------------------------------------------------------------------- 166 | ! lugb = iv +try 167 | ! j = 0 168 | jpds = -1 169 | jpds(5) = pds5(iv) 170 | jpds(6) = pds6(iv) 171 | jpds(7) = pds7(iv) 172 | jpds(16)= pds16(iv) 173 | gbret=0 174 | call getgb(lugb,lubi,ngdas,j,jpds,jgds,kf,k,kpds,kgds,lb,f,gbret) 175 | print*,"J---retgdas()---getgb()-----lugb,lubi,gbret= ", lugb,lubi,gbret 176 | 177 | ! call baopenr(lugb,fname,iret) 178 | ! print*,"J---retgdas()---baopenr()---iret= ", iret 179 | ! 180 | ! if(iret==0) then 181 | ! call getgb(lugb,lubi,ngdas,j,jpds,jgds,kf,k,kpds,kgds,lb,f,gbret) 182 | ! else 183 | ! gbret = 99 184 | ! endif 185 | ! print*,"J---retgdas()---getgb()----gbret= ", gbret 186 | ! call baclose(lugb,jret) 187 | ! call getgb(lugb,lubi,ngdas,j,jpds,jgds,kf,k,kpds,kgds,lb,f,gbret) 188 | ! else 189 | ! ferror = 0 190 | ! deallocate(f) 191 | ! deallocate(lb) 192 | ! deallocate(rlat) 193 | ! deallocate(rlon) 194 | ! deallocate(lo) 195 | ! deallocate(g) 196 | ! deallocate(varfield) 197 | ! return 198 | ! endif 199 |!-------------------------------------------------------------------------- 200 |! If field successfully retrieved, interplate to LIS domain 201 |!-------------------------------------------------------------------------- 202 |! JESSE 20050225 USE IPOLATES 203 |!-------------------------------------------------------------------------- 204 | 205 | if (gbret==0) then 206 | 207 | ip = 0 208 | ipopt = 0 209 | 210 | write(*,'(3I7)') iv, mi, mo 211 | 212 | write(*,'(11I7)') kpds(1:16) 213 | kgdsi(1:25) = kgds(1:25) 214 | write(*,'(11I7)') kgdsi(1:11) 215 | 216 | kgdso = 0 217 | do i = 1, 10 218 | if( i.EQ.4 .OR. i.EQ.7 .OR. i.EQ.8 .OR. i.EQ.9 ) then 219 | kgdso(i) = int(lis%d%gridDesc(i)*1000) 220 | else 221 | kgdso(i) = int(lis%d%gridDesc(i)) 222 | endif 223 | enddo 224 | kgdso(11) = 0 225 | kgdso(20) = 255 226 | write(*,'(11I7)') kgdso(1:11) 227 | 228 |!------------------------------------------------------ 229 |! IPOLATE FORCING TO RUN DOMAIN 230 |!------------------------------------------------------ 231 | iret = 0 232 |! call ipolates (ip,ipopt,kgdsi,kgdso,mi,mo, & 233 |! km,ibi,lb,f,no,rlat,rlon,ibo,lo,g,iret) 234 | g = f 235 | 236 | if(iret .NE. 0) then 237 | print*, "IPOLATES ERROR!! PROGRAM STOP!!" 238 | call exit(iret) 239 | end if 240 |!------------------------------------------------------ 241 |! END JESSE 20050225 IPOLATES 242 |!------------------------------------------------------ 243 | 244 | count = 0 245 | do r = ld%d%lnr, 1, -1 246 | do c = 1, ld%d%lnc 247 | varfield(c,r) = g(c+count) 248 | end do 249 | count = count + ld%d%lnc 250 | end do 251 | else 252 | errorflag = 1 253 | endif !endif (gbret==0) 254 | 255 | if ( errorflag == 1 ) then 256 | endloop = 1 257 | ferror = 0 258 | else 259 | count = 0 260 | do r = 1, ld%d%lnr 261 | do c = 1, ld%d%lnc 262 | if (gindex(c,r).ne. -1) then 263 | if ( order == 1 ) then 264 | glbdata1(iv,gindex(c,r)) = varfield(c,r) 265 | else 266 | glbdata2(iv,gindex(c,r)) = varfield(c,r) 267 | end if 268 | endif 269 | end do 270 | count = count +ld%d%lnc 271 | end do 272 | end if 273 | 274 | if ( errorflag == 1 ) then 275 | print *, 'Could not find correct forcing parameter in file ',name 276 | end if 277 | if ( iv == nforce ) endloop = 1 278 | end do 279 | jret=0 280 | call baclose(lugb,jret) 281 | jret=0 282 | call baclose(lubi,jret) 283 | !deallocate(lb) 284 | !deallocate(f) 285 | !deallocate(rlat) 286 | !deallocate(rlon) 287 | !deallocate(lo) 288 | !deallocate(g) 289 | !deallocate(varfield) 290 | 291 | return 292 |!EOC 293 |end subroutine retgdas >>>>> 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-28.7$ advance_timestep Use associated, Module Subroutine 0-30.7$ agrmetflag Automatic, Integer(4), Offset: 0, Alignment: full word 0-45.11$ avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-28.7$ baclose External Subroutine 0-280.8 0-282.8 baopenr External Subroutine 0-133.9 0-136.9 baseforcing_module Use associated, Nonintrinsic Module 0-31.7$ 0-31.7 c Automatic, Integer(4), Offset: 0, Alignment: full word 0-48.18$ 0-246.12@ 0-247.21 0-247.30 0-261.15@ 0-262.25 0-264.37 0-264.54 0-266.37 0-266.54 clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-28.7$ cmapflag Automatic, Integer(4), Offset: 0, Alignment: full word 0-45.23$ count Automatic, Integer(4), Offset: 0, Alignment: full word 0-64.14$ 0-244.6@ 0-247.32 0-249.9@ 0-249.17 0-259.9@ 0-270.11@ 0-270.19 d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-28.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-28.7$ date2time Use associated, Module Subroutine 0-30.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ day Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ days Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-28.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-28.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-28.7$ ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-28.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-28.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-28.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-28.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-28.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-28.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-28.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-28.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-28.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-28.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-28.7$ endloop Automatic, Integer(4), Offset: 0, Alignment: full word 0-50.14$ 0-122.3@ 0-256.9@ 0-277.26@ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-28.7$ errorflag Automatic, Integer(4), Offset: 0, Alignment: full word 0-49.14$ 0-121.3@ 0-252.3@ 0-255.11 0-274.11 ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-28.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-28.7$ exit External Subroutine 0-238.14 expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-28.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-28.7$ f Controlled Automatic, Real(4) (1:?), Offset: 0, Alignment: full word 0-60.24$ 0-174.66 0-234.7 f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-28.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-28.7$ f00flag Automatic, Integer(4), Offset: 0, Alignment: full word 0-39.14$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-28.7$ ferror Reference argument, Integer(4), Offset: 0, Alignment: full word 0-40.14$ 0-26.46 0-116.3@ 0-139.4@ 0-257.9@ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-28.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-28.7$ file_exists Automatic, Logical(4), Offset: 0, Alignment: full word 0-58.14$ 0-128.30 0-129.7 findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-28.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-28.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-28.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-28.7$ fname Automatic, Character(80), Offset: 0, Alignment: full word 0-47.24$ 0-124.3@ 0-125.8 0-126.8 0-127.8 0-128.17 0-133.22 0-134.59 0-136.27 0-137.59 force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-28.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-28.7$ ftn_unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-30.7$ ftn_unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-30.7$ g Controlled Automatic, Real(4) (1:?), Offset: 0, Alignment: full word 0-79.29$ 0-234.3@ 0-247.28 gbret Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.27$ 0-173.9@ 0-174.68 0-175.75 0-205.6 gdasdir Use associated, Character(40), Component of Derived type definition: gdasdrvdec, Offset: 12, Alignment: byte 0-32.7$ gdasdomain_module Use associated, Nonintrinsic Module 0-32.7$ 0-32.7 gdasdrv Use associated, Static, Derived type: gdasdrvdec, Offset: 0, Alignment: quadruple word 0-32.33$ gdasdrv%ncold Use associated, Static, Integer(4), Offset: 0, Alignment: quadruple word 0-57.32 0-57.32 0-60.26 0-60.26 0-79.31 0-79.31 0-83.12 gdasdrv%nmif Use associated, Static, Integer(4), Offset: 8, Alignment: double word 0-54.22 0-54.22 0-113.15 gdasdrv%nrold Use associated, Static, Integer(4), Offset: 4, Alignment: full word 0-57.46 0-57.46 0-60.40 0-60.40 0-79.45 0-79.45 0-83.26 gdasdrv_module Use associated, Nonintrinsic Module 0-32.7$ gdastime1 Use associated, Real(8), Component of Derived type definition: gdasdrvdec, Offset: 56, Alignment: double word 0-32.7$ gdastime2 Use associated, Real(8), Component of Derived type definition: gdasdrvdec, Offset: 64, Alignment: double word 0-32.7$ get_curr_calday Use associated, Module Function Real(4) 0-30.7$ get_curr_date Use associated, Module Subroutine 0-30.7$ get_curr_time Use associated, Module Subroutine 0-30.7$ get_nstep Use associated, Module Function Integer(4) 0-30.7$ get_prev_date Use associated, Module Subroutine 0-30.7$ get_ref_date Use associated, Module Subroutine 0-30.7$ get_start_date Use associated, Module Subroutine 0-30.7$ get_step_size Use associated, Module Function Integer(4) 0-30.7$ getgb External Subroutine 0-174.14 gindex Reference argument, Integer(4) (1:?, 1:?), Offset: 0, Alignment: full word 0-36.14$ 0-26.32 0-262.18 0-264.30 0-266.30 glbdata1 Pointer, Use associated, Static, Real(4) (:, :), Offset: 0, Alignment: quadruple word 0-31.33$ 0-264.18@ glbdata2 Pointer, Use associated, Static, Real(4) (:, :), Offset: 80, Alignment: quadruple word 0-31.43$ 0-266.18@ glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-28.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-28.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-30.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-30.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-30.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-28.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-28.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-28.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-28.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-28.7$ gridchange1 Use associated, Logical(4), Component of Derived type definition: gdasdrvdec, Offset: 88, Alignment: full word 0-32.7$ gridchange2 Use associated, Logical(4), Component of Derived type definition: gdasdrvdec, Offset: 92, Alignment: full word 0-32.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-28.7$ griduptime1 Use associated, Real(8), Component of Derived type definition: gdasdrvdec, Offset: 72, Alignment: double word 0-32.7$ griduptime2 Use associated, Real(8), Component of Derived type definition: gdasdrvdec, Offset: 80, Alignment: double word 0-32.7$ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-28.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-28.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ i Automatic, Integer(4), Offset: 0, Alignment: full word 0-48.35$ 0-125.29@ 0-130.11 0-131.11 0-217.6@ 0-218.10 0-218.22 0-218.34 0-218.46 0-219.14 0-219.38 0-221.14 0-221.38 i8 Use associated, Parameter, Integer(4) 0-30.7$ ibi Parameter, Integer(4) 0-72.29$ ibo Automatic, Integer(4), Offset: 0, Alignment: full word 0-76.29$ ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-28.7$ ii Automatic, Integer(4), Offset: 0, Alignment: full word 0-48.24$ int Pure Intrinsic 0-219.19 0-221.19 interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-28.7$ ip Automatic, Integer(4), Offset: 0, Alignment: full word 0-68.29$ 0-207.3@ ipopt Automatic, Integer(4) (1:20), Offset: 0, Alignment: full word 0-68.33$ 0-208.3@ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-28.7$ iret Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.22$ 0-132.4@ 0-133.28 0-134.71 0-135.4@ 0-136.44 0-137.81 0-231.3@ 0-236.6 0-238.19 is_last_step Use associated, Module Function Logical(4) 0-30.7$ iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-28.7$ ism Automatic, Real(4), Offset: 0, Alignment: full word 0-63.11$ iv Automatic, Integer(4), Offset: 0, Alignment: full word 0-48.14$ 0-120.3@ 0-156.7@ 0-169.24 0-170.24 0-171.24 0-172.25 0-210.20 0-264.27 0-266.27 0-277.11 j Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.14$ 0-126.29@ 0-130.13 0-131.13 0-155.3@ 0-174.36 jgds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-51.48$ 0-174.43 jpds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-51.38$ 0-168.9@ 0-169.9@ 0-170.9@ 0-171.9@ 0-172.9@ 0-174.38 jret Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.33$ 0-279.3@ 0-280.21 0-281.3@ 0-282.21 k Automatic, Integer(4), Offset: 0, Alignment: full word 0-52.22$ 0-127.29@ 0-130.15 0-131.15 0-174.51 kf Automatic, Integer(4), Offset: 0, Alignment: full word 0-52.19$ 0-174.48 kgds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-52.34$ 0-174.58 0-213.17 kgdsi Automatic, Integer(4) (1:25), Offset: 0, Alignment: full word 0-69.29$ 0-213.3@ 0-214.21 kgdso Automatic, Integer(4) (1:25), Offset: 0, Alignment: full word 0-69.40$ 0-216.3@ 0-219.8@ 0-221.8@ 0-224.3@ 0-225.3@ 0-226.21 km Parameter, Integer(4) 0-71.29$ kpds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-52.24$ 0-174.53 0-212.21 lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-28.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-28.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-28.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-28.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-28.7$ lb Controlled Automatic, Logical(1) (1:?), Offset: 0, Alignment: byte 0-57.29$ 0-174.63 lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-28.7$ ld Reference argument, Derived type: lisdec, Offset: 0, Alignment: double word 0-35.17$ 0-26.28 ld%a Reference argument, Derived type: lisassimil, Offset: 1276, Alignment: full word 0-35.17$ ld%a%rbias Reference argument, Integer(4), Offset: 1280, Alignment: quadruple word 0-35.17$ ld%a%rdbc Reference argument, Integer(4), Offset: 1288, Alignment: double word 0-35.17$ ld%a%ribc Reference argument, Integer(4), Offset: 1284, Alignment: full word 0-35.17$ ld%a%rpsas Reference argument, Integer(4), Offset: 1276, Alignment: full word 0-35.17$ ld%a%rsdbc Reference argument, Integer(4), Offset: 1292, Alignment: full word 0-35.17$ ld%d Reference argument, Derived type: lisdomain, Offset: 0, Alignment: quadruple word 0-35.17$ ld%d%domain Reference argument, Integer(4), Offset: 28, Alignment: full word 0-35.17$ ld%d%elev Reference argument, Integer(4), Offset: 12, Alignment: full word 0-35.17$ ld%d%elev_griddesc Reference argument, Real(4) (1:6), Offset: 296, Alignment: double word 0-35.17$ ld%d%glbnch Reference argument, Integer(4), Offset: 16, Alignment: quadruple word 0-35.17$ ld%d%glbngrid Reference argument, Integer(4), Offset: 24, Alignment: double word 0-35.17$ ld%d%gnc Reference argument, Integer(4), Offset: 36, Alignment: full word 0-35.17$ ld%d%gnr Reference argument, Integer(4), Offset: 40, Alignment: double word 0-35.17$ ld%d%griddesc Reference argument, Real(4) (1:50), Offset: 72, Alignment: double word 0-35.17$ ld%d%ic Reference argument, Integer(4), Offset: 52, Alignment: full word 0-35.17$ ld%d%ir Reference argument, Integer(4), Offset: 56, Alignment: double word 0-35.17$ ld%d%landcover Reference argument, Integer(4), Offset: 32, Alignment: quadruple word 0-35.17$ ld%d%lc_griddesc Reference argument, Real(4) (1:6), Offset: 320, Alignment: quadruple word 0-35.17$ ld%d%lnc Reference argument, Integer(4), Offset: 44, Alignment: full word 0-35.17$ 0-36.21 0-36.21 0-62.33 0-62.33 0-147.8 0-246.19 0-249.25 0-261.22 0-270.26 ld%d%lnr Reference argument, Integer(4), Offset: 48, Alignment: quadruple word 0-35.17$ 0-36.31 0-36.31 0-62.42 0-62.42 0-147.17 0-245.13 0-260.19 ld%d%lsm Reference argument, Integer(4), Offset: 4, Alignment: full word 0-35.17$ ld%d%maxt Reference argument, Integer(4), Offset: 60, Alignment: full word 0-35.17$ ld%d%mina Reference argument, Real(4), Offset: 64, Alignment: quadruple word 0-35.17$ ld%d%nch Reference argument, Integer(4), Offset: 0, Alignment: quadruple word 0-35.17$ ld%d%ngrid Reference argument, Integer(4), Offset: 20, Alignment: full word 0-35.17$ ld%d%soil Reference argument, Integer(4), Offset: 8, Alignment: double word 0-35.17$ ld%d%soil_griddesc Reference argument, Real(4) (1:6), Offset: 272, Alignment: quadruple word 0-35.17$ ld%d%udef Reference argument, Real(4), Offset: 68, Alignment: full word 0-35.17$ ld%f Reference argument, Derived type: lisforcing, Offset: 344, Alignment: double word 0-35.17$ ld%f%ecor Reference argument, Integer(4), Offset: 348, Alignment: full word 0-35.17$ ld%f%f00_flag Reference argument, Integer(4), Offset: 404, Alignment: full word 0-35.17$ ld%f%f06_flag Reference argument, Integer(4), Offset: 408, Alignment: double word 0-35.17$ ld%f%findagrtime1 Reference argument, Integer(4), Offset: 396, Alignment: full word 0-35.17$ ld%f%findagrtime2 Reference argument, Integer(4), Offset: 400, Alignment: quadruple word 0-35.17$ ld%f%findtime1 Reference argument, Integer(4), Offset: 388, Alignment: full word 0-35.17$ ld%f%findtime2 Reference argument, Integer(4), Offset: 392, Alignment: double word 0-35.17$ ld%f%force Reference argument, Integer(4), Offset: 344, Alignment: double word 0-35.17$ ld%f%gpcpsrc Reference argument, Integer(4), Offset: 412, Alignment: full word 0-35.17$ ld%f%gridchange Reference argument, Integer(4), Offset: 368, Alignment: quadruple word 0-35.17$ ld%f%interp Reference argument, Integer(4), Offset: 372, Alignment: full word 0-35.17$ ld%f%latmax Reference argument, Integer(4), Offset: 376, Alignment: double word 0-35.17$ ld%f%longflag Reference argument, Integer(4), Offset: 384, Alignment: quadruple word 0-35.17$ ld%f%nf Reference argument, Integer(4), Offset: 356, Alignment: full word 0-35.17$ ld%f%nforce Reference argument, Integer(4), Offset: 352, Alignment: quadruple word 0-35.17$ ld%f%nmif Reference argument, Integer(4), Offset: 360, Alignment: double word 0-35.17$ ld%f%radsrc Reference argument, Integer(4), Offset: 416, Alignment: quadruple word 0-35.17$ ld%f%rstflag Reference argument, Integer(4), Offset: 364, Alignment: full word 0-35.17$ ld%f%shortflag Reference argument, Integer(4), Offset: 380, Alignment: full word 0-35.17$ ld%o Reference argument, Derived type: lisoutput, Offset: 1144, Alignment: double word 0-35.17$ ld%o%dfile Reference argument, Character(40), Offset: 1236, Alignment: full word 0-35.17$ ld%o%expcode Reference argument, Integer(4), Offset: 1164, Alignment: full word 0-35.17$ ld%o%fidgm Reference argument, Integer(4), Offset: 1180, Alignment: full word 0-35.17$ ld%o%fidtm Reference argument, Integer(4), Offset: 1188, Alignment: full word 0-35.17$ ld%o%foropen Reference argument, Integer(4), Offset: 1172, Alignment: full word 0-35.17$ ld%o%numoutf Reference argument, Integer(4), Offset: 1176, Alignment: double word 0-35.17$ ld%o%odir Reference argument, Character(40), Offset: 1196, Alignment: full word 0-35.17$ ld%o%rcgm Reference argument, Integer(4), Offset: 1184, Alignment: quadruple word 0-35.17$ ld%o%rctm Reference argument, Integer(4), Offset: 1192, Alignment: double word 0-35.17$ ld%o%startcode Reference argument, Integer(4), Offset: 1168, Alignment: quadruple word 0-35.17$ ld%o%wfor Reference argument, Integer(4), Offset: 1144, Alignment: double word 0-35.17$ ld%o%wout Reference argument, Integer(4), Offset: 1152, Alignment: quadruple word 0-35.17$ ld%o%wparam Reference argument, Integer(4), Offset: 1160, Alignment: double word 0-35.17$ ld%o%wsingle Reference argument, Integer(4), Offset: 1156, Alignment: full word 0-35.17$ ld%o%wtil Reference argument, Integer(4), Offset: 1148, Alignment: full word 0-35.17$ ld%p Reference argument, Derived type: lisparameters, Offset: 424, Alignment: double word 0-35.17$ ld%p%avhrrdir Reference argument, Character(40), Offset: 824, Alignment: double word 0-35.17$ ld%p%clfile Reference argument, Character(40), Offset: 584, Alignment: double word 0-35.17$ ld%p%elevfile Reference argument, Character(40), Offset: 944, Alignment: quadruple word 0-35.17$ ld%p%iscfile Reference argument, Character(40), Offset: 904, Alignment: double word 0-35.17$ ld%p%lai Reference argument, Integer(4), Offset: 424, Alignment: double word 0-35.17$ ld%p%laiflag Reference argument, Integer(4), Offset: 436, Alignment: full word 0-35.17$ ld%p%laitime Reference argument, Real(8), Offset: 984, Alignment: double word 0-35.17$ ld%p%mfile Reference argument, Character(50), Offset: 444, Alignment: full word 0-35.17$ ld%p%modisdir Reference argument, Character(40), Offset: 864, Alignment: quadruple word 0-35.17$ ld%p%nt Reference argument, Integer(4), Offset: 428, Alignment: full word 0-35.17$ ld%p%po1file Reference argument, Character(40), Offset: 624, Alignment: quadruple word 0-35.17$ ld%p%po2file Reference argument, Character(40), Offset: 664, Alignment: double word 0-35.17$ ld%p%po3file Reference argument, Character(40), Offset: 704, Alignment: quadruple word 0-35.17$ ld%p%safile Reference argument, Character(40), Offset: 544, Alignment: quadruple word 0-35.17$ ld%p%saiflag Reference argument, Integer(4), Offset: 440, Alignment: double word 0-35.17$ ld%p%saitime Reference argument, Real(8), Offset: 992, Alignment: quadruple word 0-35.17$ ld%p%sifile Reference argument, Character(40), Offset: 784, Alignment: quadruple word 0-35.17$ ld%p%slfile Reference argument, Character(40), Offset: 744, Alignment: double word 0-35.17$ ld%p%vclass Reference argument, Integer(4), Offset: 432, Alignment: quadruple word 0-35.17$ ld%p%vfile Reference argument, Character(50), Offset: 494, Alignment: half word 0-35.17$ ld%t Reference argument, Derived type: listime, Offset: 1000, Alignment: double word 0-35.17$ ld%t%da Reference argument, Integer(4), Offset: 1088, Alignment: quadruple word 0-35.17$ ld%t%doy Reference argument, Integer(4), Offset: 1076, Alignment: full word 0-35.17$ ld%t%eda Reference argument, Integer(4), Offset: 1048, Alignment: double word 0-35.17$ ld%t%edoy Reference argument, Integer(4), Offset: 1040, Alignment: quadruple word 0-35.17$ ld%t%egmt Reference argument, Real(4), Offset: 1132, Alignment: full word 0-35.17$ ld%t%ehr Reference argument, Integer(4), Offset: 1044, Alignment: full word 0-35.17$ ld%t%emn Reference argument, Integer(4), Offset: 1036, Alignment: full word 0-35.17$ ld%t%emo Reference argument, Integer(4), Offset: 1052, Alignment: full word 0-35.17$ ld%t%endcode Reference argument, Integer(4), Offset: 1028, Alignment: full word 0-35.17$ ld%t%endtime Reference argument, Integer(4), Offset: 1104, Alignment: quadruple word 0-35.17$ ld%t%ess Reference argument, Integer(4), Offset: 1032, Alignment: double word 0-35.17$ ld%t%etime Reference argument, Real(8), Offset: 1120, Alignment: quadruple word 0-35.17$ ld%t%eyr Reference argument, Integer(4), Offset: 1056, Alignment: quadruple word 0-35.17$ ld%t%gmt Reference argument, Real(4), Offset: 1128, Alignment: double word 0-35.17$ ld%t%hhmmss Reference argument, Integer(4), Offset: 1072, Alignment: quadruple word 0-35.17$ ld%t%hr Reference argument, Integer(4), Offset: 1092, Alignment: full word 0-35.17$ ld%t%mn Reference argument, Integer(4), Offset: 1096, Alignment: double word 0-35.17$ ld%t%mo Reference argument, Integer(4), Offset: 1084, Alignment: full word 0-35.17$ ld%t%pda Reference argument, Integer(4), Offset: 1108, Alignment: full word 0-35.17$ ld%t%sda Reference argument, Integer(4), Offset: 1016, Alignment: double word 0-35.17$ ld%t%sdoy Reference argument, Integer(4), Offset: 1004, Alignment: full word 0-35.17$ ld%t%sgmt Reference argument, Real(4), Offset: 1136, Alignment: quadruple word 0-35.17$ ld%t%shr Reference argument, Integer(4), Offset: 1012, Alignment: full word 0-35.17$ ld%t%smn Reference argument, Integer(4), Offset: 1008, Alignment: quadruple word 0-35.17$ ld%t%smo Reference argument, Integer(4), Offset: 1020, Alignment: full word 0-35.17$ ld%t%ss Reference argument, Integer(4), Offset: 1100, Alignment: full word 0-35.17$ ld%t%sss Reference argument, Integer(4), Offset: 1000, Alignment: double word 0-35.17$ ld%t%syr Reference argument, Integer(4), Offset: 1024, Alignment: quadruple word 0-35.17$ ld%t%time Reference argument, Real(8), Offset: 1112, Alignment: double word 0-35.17$ ld%t%ts Reference argument, Integer(4), Offset: 1060, Alignment: full word 0-35.17$ ld%t%tscount Reference argument, Integer(4), Offset: 1064, Alignment: double word 0-35.17$ ld%t%yr Reference argument, Integer(4), Offset: 1080, Alignment: double word 0-35.17$ ld%t%yyyymmdd Reference argument, Integer(4), Offset: 1068, Alignment: full word 0-35.17$ lis Use associated, Static, Derived type: lisdec, Offset: 0, Alignment: quadruple word 0-29.29$ lis%d%griddesc Use associated, Static, Real(4) (1:50), Offset: 72, Alignment: double word 0-219.23 0-221.23 lis_module Use associated, Nonintrinsic Module 0-28.7$ 0-28.7 0-29.7$ 0-30.7$ lisassimil Use associated, Derived type definition 0-28.7$ 0-30.7$ lisdec Use associated, Derived type definition 0-28.7$ 0-30.7$ 0-35.9 lisdomain Use associated, Derived type definition 0-28.7$ 0-30.7$ lisdrv_module Use associated, Nonintrinsic Module 0-29.7$ 0-29.7 lisforcing Use associated, Derived type definition 0-28.7$ 0-30.7$ lisoutput Use associated, Derived type definition 0-28.7$ 0-30.7$ lisparameters Use associated, Derived type definition 0-28.7$ 0-30.7$ listime Use associated, Derived type definition 0-28.7$ 0-30.7$ lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-28.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-28.7$ lo Allocatable, Controlled, Logical(1) (:), Offset: 0, Alignment: byte 0-77.29$ longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-28.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-28.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lt Use associated, Reference argument, Derived type: listime, Offset: 0, Alignment: double word 0-30.7$ lubi Automatic, Integer(4), Offset: 0, Alignment: full word 0-52.14$ 0-131.4@ 0-136.17 0-137.76 0-174.25 0-175.70 0-282.16 lugb Automatic, Integer(4), Offset: 0, Alignment: full word 0-51.17$ 0-130.4@ 0-133.17 0-134.66 0-174.20 0-175.65 0-280.16 masterproc Use associated, Static, Logical(4), Offset: 8, Alignment: double word 0-30.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-28.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-28.7$ mi Automatic, Integer(4), Offset: 0, Alignment: full word 0-70.29$ 0-146.3@ 0-210.24 mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-28.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-28.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-28.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ mo Automatic, Integer(4), Offset: 0, Alignment: full word 0-70.33$ 0-147.3@ 0-210.28 mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-28.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ mon Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ mx Automatic, Integer(4), Offset: 0, Alignment: full word 0-48.28$ my Automatic, Integer(4), Offset: 0, Alignment: full word 0-48.32$ name Reference argument, Character(80), Offset: 0, Alignment: byte 0-38.24$ 0-26.40 0-124.11 0-275.70 namef06 Automatic, Character(80), Offset: 0, Alignment: full word 0-38.30$ nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-28.7$ ncold Use associated, Integer(4), Component of Derived type definition: gdasdrvdec, Offset: 0, Alignment: full word 0-32.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-28.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-28.7$ nforce Automatic, Integer(4), Offset: 0, Alignment: full word 0-50.23$ 0-113.6@ 0-156.15 0-277.17 ngdas Automatic, Integer(4), Offset: 0, Alignment: full word 0-53.14$ 0-83.3@ 0-146.8 0-174.30 ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-28.7$ nmif Use associated, Integer(4), Component of Derived type definition: gdasdrvdec, Offset: 8, Alignment: full word 0-32.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-28.7$ no Automatic, Integer(4), Offset: 0, Alignment: full word 0-73.29$ nrold Use associated, Integer(4), Component of Derived type definition: gdasdrvdec, Offset: 4, Alignment: full word 0-32.7$ nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-28.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-28.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-28.7$ odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-28.7$ offset Use associated, Reference argument, Optional, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-30.7$ offset Use associated, Reference argument, Optional, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-30.7$ order Reference argument, Integer(4), Offset: 0, Alignment: full word 0-37.14$ 0-26.21 0-263.20 p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-28.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-28.7$ pds16 Controlled Automatic, Integer(4) (1:?), Offset: 0, Alignment: full word 0-54.57$ 0-112.6@ 0-172.19 pds5 Controlled Automatic, Integer(4) (1:?), Offset: 0, Alignment: full word 0-54.39$ 0-109.6@ 0-169.19 pds6 Controlled Automatic, Integer(4) (1:?), Offset: 0, Alignment: full word 0-54.45$ 0-110.6@ 0-170.19 pds7 Controlled Automatic, Integer(4) (1:?), Offset: 0, Alignment: full word 0-54.51$ 0-111.6@ 0-171.19 po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-28.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-28.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-28.7$ precision Use associated, Nonintrinsic Module 0-30.7$ r Automatic, Integer(4), Offset: 0, Alignment: full word 0-48.21$ 0-245.9@ 0-247.23 0-260.12@ 0-262.27 0-264.39 0-264.56 0-266.39 0-266.56 r4 Use associated, Parameter, Integer(4) 0-30.7$ r8 Use associated, Parameter, Integer(4) 0-30.7$ radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-28.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-28.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-28.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-28.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-28.7$ retgdas Subroutine 0-26.12$ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-28.7$ rlat Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-74.29$ rlon Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-75.29$ rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-28.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-28.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-28.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-28.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-28.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-28.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-28.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-28.7$ seconds Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ selected_int_kind Use associated, Pure Intrinsic 0-30.7$ selected_real_kind Use associated, Pure Intrinsic 0-30.7$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-28.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-28.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-28.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-28.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-28.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-28.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-28.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-28.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-28.7$ spmdmod Use associated, Nonintrinsic Module 0-30.7$ ss Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-28.7$ ss Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-28.7$ startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-28.7$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-28.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-28.7$ tick Use associated, Module Subroutine 0-30.7$ tile_spmdmod Use associated, Nonintrinsic Module 0-31.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-30.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-30.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-30.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-28.7$ time2date Use associated, Module Subroutine 0-30.7$ time_manager Use associated, Nonintrinsic Module 0-30.7$ 0-30.7 timemgr_init Use associated, Module Subroutine 0-30.7$ timemgr_print Use associated, Module Subroutine 0-30.7$ timemgr_read_restart Use associated, Module Subroutine 0-30.7$ timemgr_restart Use associated, Module Subroutine 0-30.7$ timemgr_write_restart Use associated, Module Subroutine 0-30.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ tod Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ trim Pure Intrinsic 0-134.54 0-136.22 0-137.54 try Reference argument, Integer(4), Offset: 0, Alignment: full word 0-41.14$ 0-26.53 ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-28.7$ ts Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-28.7$ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-28.7$ varfield Controlled Automatic, Real(4) (1:?, 1:?), Offset: 0, Alignment: full word 0-62.24$ 0-247.12@ 0-264.45 0-266.45 vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-28.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-28.7$ wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-28.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-28.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-28.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-28.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-28.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-28.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-30.7$ yr Use associated, Reference argument, Intent (OUT), Integer(4), Offset: 0, Alignment: full word 0-30.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-28.7$ ** retgdas === 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 <<<<< 294 |#line 296 296 |!BOP 297 |! !ROUTINE: interp_gdas 298 |! 299 |! !DESCRIPTION: 300 |! This subroutine interpolates a given GDAS field 301 |! to the LIS domain. Special treatment for some 302 |! initialization fields. 303 |! Code based on old ungribgdas.f 304 |! 305 |! !INTERFACE: 306 |subroutine interp_gdas(kpds,kgds,ngdas,f,lb,lis_gds,nc,nr, & 307 | varfield) 308 |! !USES: 309 |! use def_ipMod, only : w110,w120,w210,w220,n110,n120,n210,n220,& 310 |! rlat0,rlon0, & 311 |! w113,w123,w213,w223,n113,n123,n213,n223,rlat3,rlon3 312 | use bilinear_interpMod 313 | use conserv_interpMod 314 | use gdasdomain_module, only : mi 315 |!EOP 316 |!w113,w123,w213,w223,n113,n123,n213,n223,rlat3, & 317 |! rlon3 318 | implicit none 319 | 320 |!=== Begin variable declarations 321 | integer :: nc, nr, ngdas, nglis 322 | integer :: kpds(200),kgds(200), lis_gds(200) 323 | integer :: ip, ipopt(20),ibi,km,iret 324 | integer :: no, ibo 325 | integer :: count,i,j,v 326 | 327 | real :: f(ngdas) 328 | real :: ism, udef 329 | real, dimension(nc,nr) :: varfield, geogtemp 330 | real, dimension(nc*nr) :: lis1d 331 | 332 | logical*1 :: geogmask(nc,nr) 333 | logical*1 :: lb(ngdas) 334 | logical*1 :: lo(nc*nr) 335 | 336 |!=== End variable declarations 337 |!BOC 338 |!----------------------------------------------------------------------- 339 |! Setting interpolation options (ip=0,bilinear) 340 |! (km=1, one parameter, ibi=1,use undefined bitmap 341 |! (needed for soil moisture and temperature only) 342 |! Use budget bilinear (ip=3) for precip forcing fields 343 |!----------------------------------------------------------------------- 344 | nglis = nc*nr 345 | if (kpds(5)==59 .or. kpds(5)==214) then 346 | ip=3 347 | ipopt(1)=-1 348 | ipopt(2)=-1 349 | km=1 350 | ibi=1 351 | else 352 | ip=0 353 | do i=1,20 354 | ipopt(i)=0 355 | enddo 356 | km=1 357 | ibi=1 358 | endif 359 |!----------------------------------------------------------------------- 360 |! Initialize output bitmap. Important for soil moisture and temp. 361 |!----------------------------------------------------------------------- 362 | lo = .true. 363 |!----------------------------------------------------------------------- 364 |! Interpolate to LIS grid 365 |!----------------------------------------------------------------------- 366 | if (kpds(5)==59 .or. kpds(5)==214) then 367 | call polates3(lis_gds,ibi,lb,f,ibo,lo,lis1d,mi, & 368 | rlat3,rlon3,w113,w123,w213,w223,n113,n123,n213,n223,iret) 369 | else 370 | call polates0 (lis_gds,ibi,lb,f,ibo,lo,lis1d,mi,& 371 | rlat0, rlon0,w110,w120,w210,w220,n110,n120,n210,n220,iret) 372 | endif 373 |!----------------------------------------------------------------------- 374 |! Create 2D array for main program. Also define a "soil" mask 375 |! due to different geography between GDAS & LDAS. For LDAS land 376 |! points not included in GDAS geography dataset only. 377 |!----------------------------------------------------------------------- 378 | count = 0 379 | do j = 1, nr 380 | do i = 1, nc 381 | varfield(i,j) = lis1d(i+count) 382 | geogmask(i,j) = lo(i+count) 383 | enddo 384 | count = count + nc 385 | enddo 386 |!----------------------------------------------------------------------- 387 |! Save air tempertaure interpolated field for later use in 388 |! initialization of soil temp where geography differs 389 |! between GDAS and LDAS 390 |!----------------------------------------------------------------------- 391 | if (kpds(5) .eq. 11 .and. kpds(6) .eq. 105) then 392 | do i = 1, nc 393 | do j = 1, nr 394 | geogtemp(i,j) = varfield(i,j) 395 | enddo 396 | enddo 397 | endif 398 |!EOC 399 |end subroutine interp_gdas >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES allocate_bilinear_interp Use associated, Module Subroutine 0-312.7$ allocate_conserv_interp Use associated, Module Subroutine 0-313.7$ bilinear_interp_input Use associated, Module Subroutine 0-312.7$ bilinear_interpmod Use associated, Nonintrinsic Module 0-312.7$ 0-312.7 conserv_interp_input Use associated, Module Subroutine 0-313.7$ conserv_interpmod Use associated, Nonintrinsic Module 0-313.7$ 0-313.7 count Automatic, Integer(4), Offset: 0, Alignment: full word 0-325.14$ 0-378.3@ 0-381.33 0-382.30 0-384.6@ 0-384.14 f Reference argument, Real(4) (1:?), Offset: 0, Alignment: full word 0-327.11$ 0-306.40 0-367.35 0-370.36 gdasdomain_module Use associated, Nonintrinsic Module 0-314.7$ 0-314.7 geogmask Controlled Automatic, Logical(1) (1:?, 1:?), Offset: 0, Alignment: byte 0-332.16$ 0-382.9@ geogtemp Controlled Automatic, Real(4) (1:?, 1:?), Offset: 0, Alignment: full word 0-329.39$ 0-394.12@ griddesci Use associated, Reference argument, Intent (IN), Real(4) (1:50), Offset: 0, Alignment: full word 0-313.7$ griddesci Use associated, Reference argument, Intent (IN), Real(4) (1:50), Offset: 0, Alignment: full word 0-312.7$ griddesco Use associated, Reference argument, Real(4) (1:50), Offset: 0, Alignment: full word 0-313.7$ griddesco Use associated, Reference argument, Real(4) (1:50), Offset: 0, Alignment: full word 0-312.7$ i Automatic, Integer(4), Offset: 0, Alignment: full word 0-325.20$ 0-353.9@ 0-354.15 0-380.9@ 0-381.18 0-381.31 0-382.18 0-382.28 0-392.9@ 0-394.21 0-394.37 ibi Automatic, Integer(4), Offset: 0, Alignment: full word 0-323.28$ 0-350.6@ 0-357.6@ 0-367.28 0-370.29 ibo Automatic, Integer(4), Offset: 0, Alignment: full word 0-324.18$ 0-367.37 0-370.38 interp_gdas Subroutine 0-306.12$ ip Automatic, Integer(4), Offset: 0, Alignment: full word 0-323.14$ 0-346.6@ 0-352.6@ ipopt Automatic, Integer(4) (1:20), Offset: 0, Alignment: full word 0-323.18$ 0-347.6@ 0-348.6@ 0-354.9@ iret Automatic, Integer(4), Offset: 0, Alignment: full word 0-323.35$ 0-368.63 0-371.64 ism Automatic, Real(4), Offset: 0, Alignment: full word 0-328.11$ j Automatic, Integer(4), Offset: 0, Alignment: full word 0-325.22$ 0-379.6@ 0-381.20 0-382.20 0-393.12@ 0-394.23 0-394.39 kgds Reference argument, Integer(4) (1:200), Offset: 0, Alignment: full word 0-322.24$ 0-306.29 km Automatic, Integer(4), Offset: 0, Alignment: full word 0-323.32$ 0-349.6@ 0-356.6@ kpds Reference argument, Integer(4) (1:200), Offset: 0, Alignment: full word 0-322.14$ 0-306.24 0-345.7 0-345.24 0-366.7 0-366.24 0-391.7 0-391.29 lb Reference argument, Logical(1) (1:?), Offset: 0, Alignment: byte 0-333.16$ 0-306.42 0-367.32 0-370.33 lis1d Controlled Automatic, Real(4) (1:?), Offset: 0, Alignment: full word 0-330.29$ 0-367.44 0-370.45 0-381.25 lis_gds Reference argument, Integer(4) (1:200), Offset: 0, Alignment: full word 0-322.35$ 0-306.45 0-367.20 0-370.21 lo Controlled Automatic, Logical(1) (1:?), Offset: 0, Alignment: byte 0-334.16$ 0-362.3@ 0-367.41 0-370.42 0-382.25 mi Use associated, Static, Integer(4), Offset: 96, Alignment: quadruple word 0-314.33$ 0-367.50 0-370.51 n Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-312.7$ n Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-313.7$ n110 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.44 n113 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.43 n120 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.49 n123 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.48 n210 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.54 n213 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.53 n220 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.59 n223 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.58 nb3 Use associated, Static, Integer(4), Offset: 0, Alignment: quadruple word 0-313.7$ nb4 Use associated, Static, Integer(4), Offset: 4, Alignment: full word 0-313.7$ nc Reference argument, Integer(4), Offset: 0, Alignment: full word 0-321.14$ 0-306.53 0-329.19 0-329.19 0-330.19 0-330.19 0-332.25 0-332.25 0-334.19 0-334.19 0-344.11 0-380.16 0-384.22 0-392.16 ngdas Reference argument, Integer(4), Offset: 0, Alignment: full word 0-321.22$ 0-306.34 0-327.13 0-327.13 0-333.19 0-333.19 nglis Automatic, Integer(4), Offset: 0, Alignment: full word 0-321.29$ 0-344.3@ no Automatic, Integer(4), Offset: 0, Alignment: full word 0-324.14$ npts Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-313.7$ npts Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-312.7$ nr Reference argument, Integer(4), Offset: 0, Alignment: full word 0-321.18$ 0-306.56 0-329.22 0-329.22 0-330.22 0-330.22 0-332.28 0-332.28 0-334.22 0-334.22 0-344.14 0-379.13 0-393.19 polates0 External Subroutine 0-370.11 polates3 External Subroutine 0-367.11 rlat0 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.11 rlat3 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-313.7$ 0-368.11 rlon0 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.18 rlon3 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-313.7$ 0-368.17 udef Automatic, Real(4), Offset: 0, Alignment: full word 0-328.16$ v Automatic, Integer(4), Offset: 0, Alignment: full word 0-325.24$ varfield Reference argument, Real(4) (1:?, 1:?), Offset: 0, Alignment: full word 0-329.29$ 0-307.6 0-381.9@ 0-394.28 w110 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.24 w113 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.23 w120 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.29 w123 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.28 w210 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.34 w213 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.33 w220 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-312.7$ 0-371.39 w223 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-313.7$ 0-368.38 ** interp_gdas === 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 ../baseforcing/gdas.20070502/retgdas.F 03/09/11 11:04:52 >>>>> 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....................................... 399 1501-510 Compilation successful for file retgdas.F. 1501-543 Object file created.