IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../obsrads/agrmet/interp_agrmet_sw.F 03/09/11 11:04:05 >>>>> OPTIONS SECTION <<<<< *** Options In Effect *** == On / Off Options == CR DBG ESCAPE FULLPATH I4 INLGLUE NOLIBESSL NOLIBPOSIX OBJECT SOURCE STRICT SWAPOMP THREADED UNWIND ZEROSIZE == Options Of Integer Type == ALIAS_SIZE(65536) MAXMEM(-1) OPTIMIZE(2) SPILLSIZE(2000) STACKTEMP(0) == Options Of Character Type == 64(LARGETYPE) ALIAS(STD,NOINTPTR) ALIGN(BINDC(POWER),STRUCT(NATURAL)) ARCH(PWR6) ATTR(FULL) AUTODBL(NONE) DESCRIPTOR(V1) DIRECTIVE(IBM*,IBMT) ENUM() FLAG(I,I) FLOAT(RNDSNGL,MAF,FOLD,RNGCHK,SINGLE) FREE(F90) HALT(S) IEEE(NEAR) INTSIZE(4) LANGLVL(EXTENDED) REALSIZE(4) NOSAVE() TUNE(PWR6) UNROLL(AUTO) XREF(FULL) XLF2003(NOPOLYMORPHIC,NOBOZLITARGS,NOSTOPEXCEPT,NOVOLATILE,NOAUTOREALLOC,OLDNANINF) XLF77(LEADZERO,BLANKPAD) XLF90(NOSIGNEDZERO,NOAUTODEALLOC,OLDPAD) >>>>> SOURCE SECTION <<<<< 1 |#line 1 "../obsrads/agrmet/interp_agrmet_sw.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: interp_agrmet_sw.F90 24 |! 25 |! !DESCRIPTION: 26 |! Opens, reads, and interpolates AGRMET shortwave radiation forcing 27 |! 28 |! !REVISION HISTORY: 29 |! 26 Jun 2001: Urszula Jambor; Initial code, based on Jesse Meng's 30 |! RTNEPH2LATLON.F code. 31 |! 08 Feb 2002: Urszula Jambor; Modified declarations of arrays 32 |! dependant on domain & resolution to allocatable. 33 |! Pass in values for latmax. 34 |! 11 Dec 2002: Urszula Jambor; Added 1/2 & 1 degree resolution GDS arrays 35 |! 36 |! !INTERFACE: 37 |subroutine interp_agrmet_sw( nameSH, outdata, ferror ) 38 |! !USES: 39 | use lisdrv_module,only : lis,gindex 40 | use agrmetdomain_module, only : rlat,rlon,w11,w12,w21,w22,n11,n12,n21,& 41 | n22, mi, mo 42 | use lis_openfileMod 43 | use lis_indices_module 44 | implicit none 45 |! !ARGUMENTS: 46 | character*80 :: nameSH 47 | real :: outdata(lis%d%ngrid) 48 | integer :: ferror 49 |!EOP 50 | integer, parameter :: nagrc = 1440, nagrr=600 51 | integer :: openerrN=0, openerrS=0 !set to non-zero if error found 52 | integer :: readerrN=0, readerrS=0 !set to non-zero if error found 53 | 54 | integer :: ip, i,j,count 55 | integer :: ipopt(20) 56 | integer :: gridDesci(22) 57 | integer :: gridDesco(50) 58 | integer, parameter :: km=1 59 | integer :: ibi(km) 60 | logical*1, allocatable :: li1(:) 61 | integer :: no !ipolates returns no=latmax*lonmax 62 | integer :: iret 63 | real, allocatable :: pdata1(:,:) 64 | real, allocatable :: pdata(:) 65 | real, allocatable :: ldata(:) 66 | integer :: ibo 67 | logical*1, allocatable :: lo1(:) 68 | integer :: kgdsi(200), kgdso(200) 69 | integer misave 70 | logical :: file_exists 71 | integer :: c1 = 0 72 |!BOC 73 | print*,"J---INTERP_AGRMET_SW" 74 | allocate(pdata1(1440,600)) 75 | openerrS = 0 76 | readerrS = 0 77 | misave = mi 78 | mi = mi + 120*1440 79 | print*, "mi = ", mi 80 | mo = lis_nc_working*lis_nr_working 81 | print*, "mo = ", mo 82 | allocate(pdata(mi)) 83 | allocate(li1(mi)) 84 | allocate(ldata(lis_nc_working*lis_nr_working)) 85 | allocate(lo1(lis_nc_working*lis_nr_working)) 86 | 87 | pdata = -9999. 88 | ldata = -9999. 89 | 90 | print*, 'Reading AGRMET file : ',nameSH 91 | inquire (file=nameSH, exist=file_exists) 92 | if ( file_exists ) then 93 | call lis_open_file(11, file=nameSH, form='unformatted',script='getagrmet_sw.pl') 94 | read(11, iostat=readerrS) pdata1 95 | close(11) 96 | else 97 | openerrS = 1 98 | endif 99 | 100 | if ((openerrS+readerrS) > 0) then 101 | ferror = 0 102 | print*, 'AGRMET file problem: ', nameSH, openerrS, readerrS 103 | do i=1,lis%d%ngrid 104 | outdata(i) = lis%d%udef 105 | end do 106 | else 107 | ferror = 1 108 | ibi = 1 109 | count = 120 *1440 110 | li1 = .false. 111 | do j=1,nagrr 112 | do i=1,nagrc 113 | if( pdata1(i,j) .GE. 0. ) pdata(count+i) = pdata1(i,j) 114 | enddo 115 | count = count+nagrc 116 | enddo 117 | 118 | do i=1,mi 119 | if(pdata(i).lt.0.0) then 120 | li1(i) = .false. 121 | else 122 | li1(i) = .true. 123 | endif 124 | enddo 125 | 126 | gridDesco = 0 127 | gridDesco = lis%d%gridDesc 128 | 129 |! call bilinear_interp(gridDesco,ibi,li1,pdata,ibo,lo1,ldata,mi,mo,& 130 |! rlat,rlon,w11,w12,w21,w22,n11,n12,n21,n22,iret) 131 | 132 |!------------------------------------------------------------------------- 133 |! JESSE 20041228 USE IPOLATES 134 |!------------------------------------------------------------------------- 135 | 136 | ip = 0 137 | ipopt = 0 138 | 139 | write(*,*) "mi = ", mi 140 | write(*,*) "mo = ", mo 141 | 142 | kgdsi = 0 143 | kgdsi(1) = 0 144 | kgdsi(2) = 1440 145 | kgdsi(3) = 720 146 | kgdsi(4) = -89875 147 | kgdsi(5) = -179875 148 | kgdsi(6) = 128 149 | kgdsi(7) = 89875 150 | kgdsi(8) = 179875 151 | kgdsi(9) = 250 152 | kgdsi(10)= 250 153 | kgdsi(11)= 64 154 | kgdsi(20)= 255 155 | 156 | write(*,'(11I7)') kgdsi(1:11) 157 | 158 | kgdso = 0 159 | do i = 1, 10 160 | if( i.EQ.4 .OR. i.EQ.7 .OR. i.EQ.8 .OR. i.EQ.9 ) then 161 | kgdso(i) = int(lis%d%gridDesc(i)*1000) 162 | else 163 | kgdso(i) = int(lis%d%gridDesc(i)) 164 | endif 165 | enddo 166 | kgdso(11) = 0 167 | kgdso(20) = 255 168 | write(*,'(11I7)') kgdso(1:11) 169 | 170 | print*,"BEFORE IPOLATES, ldata(",c1,")=",ldata(c1) 171 | iret = 0 172 | call ipolates (ip,ipopt,kgdsi,kgdso,mi,mo, & 173 | km,ibi,li1,pdata,no,rlat,rlon,ibo,lo1,ldata,iret) 174 | print*,"AFTER IPOLATES, ldata(",c1,")=",ldata(c1) 175 | print*,"C1 LAT/LON =", rlat(c1), rlon(c1) 176 |!------------------------------------------------------------------------- 177 | 178 | if(iret .NE. 0) then 179 | print*, "IPOLATES ERROR!! PROGRAM STOP!!" 180 | call exit(iret) 181 | end if 182 | count = 0 183 | do j=lis_nr_working,1,-1 184 | do i=1,lis_nc_working 185 | if(gindex(i,j).ne. -1) then 186 | outdata(gindex(i,j)) = ldata(i+count) 187 | endif 188 | enddo 189 | count = count+lis_nc_working 190 | enddo 191 | endif 192 | deallocate(pdata) 193 | deallocate(li1) 194 | deallocate(ldata) 195 | deallocate(lo1) 196 | deallocate(pdata1) 197 | 198 | mi = misave 199 | print*,"DONE interp_agrmet_sw" 200 |!EOC 201 |end subroutine interp_agrmet_sw >>>>> 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-39.7$ access Use associated, Reference argument, Optional, Character(-2), Offset: 0, Alignment: byte 0-42.7$ agrmetdomain_module Use associated, Nonintrinsic Module 0-40.7$ 0-40.7 array Use associated, Reference argument, Intent (INOUT), Real(4) (1:?, 1:?), Offset: 0, Alignment: full word 0-42.7$ avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-39.7$ c1 Static, Integer(4), Offset: 0, Alignment: full word 0-71.14& 0-170.36 0-170.50 0-174.36 0-174.50 0-175.31 0-175.41 clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-39.7$ count Automatic, Integer(4), Offset: 0, Alignment: full word 0-54.22$ 0-109.6@ 0-113.44 0-115.9@ 0-115.17 0-182.6@ 0-186.46 0-189.9@ 0-189.17 d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-39.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-39.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-39.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-39.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-39.7$ ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-39.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-39.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-39.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-39.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-39.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-39.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-39.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-39.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-39.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-39.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-39.7$ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-39.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-39.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-39.7$ exit External Subroutine 0-180.14 expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-39.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-39.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-39.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-39.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-39.7$ ferror Reference argument, Integer(4), Offset: 0, Alignment: full word 0-48.14$ 0-37.47 0-101.6@ 0-107.6@ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-39.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-39.7$ file Use associated, Reference argument, Intent (INOUT), Character(-2), Offset: 0, Alignment: byte 0-42.7$ file Use associated, Reference argument, Intent (IN), Character(-2), Offset: 0, Alignment: byte 0-42.7$ file Use associated, Reference argument, Intent (IN), Character(-2), Offset: 0, Alignment: byte 0-42.7$ file Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-42.7$ file_exists Automatic, Logical(4), Offset: 0, Alignment: full word 0-70.14$ 0-91.31 0-92.8 findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-39.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-39.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-39.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-39.7$ force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-39.7$ form Use associated, Reference argument, Optional, Character(-2), Offset: 0, Alignment: byte 0-42.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-39.7$ gindex Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-39.32$ 0-185.15 0-186.23 glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-39.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-39.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-39.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-39.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-39.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-39.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-39.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-39.7$ griddesci Automatic, Integer(4) (1:22), Offset: 0, Alignment: full word 0-56.14$ griddesco Automatic, Integer(4) (1:50), Offset: 0, Alignment: full word 0-57.14$ 0-126.6@ 0-127.6@ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-39.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-39.7$ i Automatic, Integer(4), Offset: 0, Alignment: full word 0-54.18$ 0-103.9@ 0-104.17 0-112.12@ 0-113.23 0-113.50 0-113.62 0-118.9@ 0-119.18 0-120.16 0-122.16 0-159.6@ 0-160.10 0-160.22 0-160.34 0-160.46 0-161.14 0-161.38 0-163.14 0-163.38 0-184.12@ 0-185.22 0-186.30 0-186.44 ibi Automatic, Integer(4) (1:1), Offset: 0, Alignment: full word 0-59.14$ 0-108.6@ 0-173.11 ibo Automatic, Integer(4), Offset: 0, Alignment: full word 0-66.14$ 0-173.38 ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-39.7$ int Pure Intrinsic 0-161.19 0-163.19 interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-39.7$ interp_agrmet_sw Subroutine 0-37.12$ ip Automatic, Integer(4), Offset: 0, Alignment: full word 0-54.14$ 0-136.3@ 0-172.18 ipolates External Subroutine 0-172.8 ipopt Automatic, Integer(4) (1:20), Offset: 0, Alignment: full word 0-55.14$ 0-137.3@ 0-172.21 ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-39.7$ iret Automatic, Integer(4), Offset: 0, Alignment: full word 0-62.14$ 0-171.3@ 0-173.52 0-178.9 0-180.19 iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-39.7$ j Automatic, Integer(4), Offset: 0, Alignment: full word 0-54.20$ 0-111.9@ 0-113.25 0-113.64 0-183.9@ 0-185.24 0-186.32 kgdsi Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-68.14$ 0-142.3@ 0-143.3@ 0-144.3@ 0-145.3@ 0-146.3@ 0-147.3@ 0-148.3@ 0-149.3@ 0-150.3@ 0-151.3@ 0-152.3@ 0-153.3@ 0-154.3@ 0-156.21 0-172.27 kgdso Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-68.26$ 0-158.3@ 0-161.8@ 0-163.8@ 0-166.3@ 0-167.3@ 0-168.21 0-172.33 km Parameter, Integer(4) 0-58.25$ 0-59.18 0-173.8 lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-39.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-39.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-39.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-39.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-39.7$ lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-39.7$ ldata Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-65.24$ 0-84.12 0-88.3@ 0-170.44 0-173.46 0-174.44 0-186.38 0-194.14 li1 Allocatable, Controlled, Logical(1) (:), Offset: 0, Alignment: byte 0-60.29$ 0-83.12 0-110.6@ 0-120.12@ 0-122.12@ 0-173.15 0-193.14 lis Use associated, Static, Derived type: lisdec, Offset: 0, Alignment: quadruple word 0-39.28$ 0-42.7$ 0-43.7$ lis%d%griddesc Use associated, Static, Real(4) (1:50), Offset: 72, Alignment: double word 0-127.18 0-161.23 0-163.23 lis%d%ngrid Use associated, Static, Integer(4), Offset: 20, Alignment: full word 0-47.19 0-47.19 0-103.13 lis%d%udef Use associated, Static, Real(4), Offset: 68, Alignment: full word 0-104.22 lis_g2l_col_offset Use associated, Static, Integer(4), Offset: 28, Alignment: full word 0-42.7$ 0-43.7$ lis_g2l_row_offset Use associated, Static, Integer(4), Offset: 24, Alignment: double word 0-42.7$ 0-43.7$ lis_get_data_elon Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_data_lat_res Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_data_lon_res Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_data_nlat Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_data_slat Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_data_wlon Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_run_elon Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_run_lat_res Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_run_lon_res Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_run_nlat Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_run_slat Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_get_run_wlon Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_global_to_local_col_offset Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_global_to_local_row_offset Use associated, Module Function Real(4) 0-42.7$ 0-43.7$ lis_grid_offset Use associated, Static, Integer(4), Offset: 20, Alignment: full word 0-42.7$ 0-43.7$ lis_indices_module Use associated, Nonintrinsic Module 0-42.7$ 0-43.7 0-43.7$ lis_module Use associated, Nonintrinsic Module 0-39.7$ 0-42.7$ 0-43.7$ lis_nc_data Use associated, Static, Integer(4), Offset: 8, Alignment: double word 0-42.7$ 0-43.7$ lis_nc_working Use associated, Static, Integer(4), Offset: 0, Alignment: quadruple word 0-42.7$ 0-43.7$ 0-80.8 0-84.18 0-85.16 0-184.16 0-189.23 lis_nr_data Use associated, Static, Integer(4), Offset: 12, Alignment: full word 0-42.7$ 0-43.7$ lis_nr_working Use associated, Static, Integer(4), Offset: 4, Alignment: full word 0-42.7$ 0-43.7$ 0-80.23 0-84.33 0-85.31 0-183.11 lis_open_file Use associated, Module Subroutine 0-42.7$ 0-93.11 lis_openfilemod Use associated, Nonintrinsic Module 0-42.7$ 0-42.7 lis_read_file Use associated, Module Subroutine 0-42.7$ lis_set_filename Use associated, Module Subroutine 0-42.7$ lis_set_indices Use associated, Module Subroutine 0-42.7$ 0-43.7$ lis_tnroffset Use associated, Static, Integer(4), Offset: 16, Alignment: quadruple word 0-42.7$ 0-43.7$ lisdrv_module Use associated, Nonintrinsic Module 0-39.7$ 0-39.7 0-42.7$ 0-43.7$ lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-39.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-39.7$ lo1 Allocatable, Controlled, Logical(1) (:), Offset: 0, Alignment: byte 0-67.29$ 0-85.12 0-173.42 0-195.14 longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-39.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-39.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-39.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-39.7$ mi Use associated, Static, Integer(4), Offset: 72, Alignment: double word 0-41.13$ 0-77.12 0-78.3@ 0-78.8 0-79.20 0-82.18 0-83.16 0-118.13 0-139.23 0-172.39 0-198.3@ mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-39.7$ misave Automatic, Integer(4), Offset: 0, Alignment: full word 0-69.11$ 0-77.3@ 0-198.8 mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-39.7$ mo Use associated, Static, Integer(4), Offset: 76, Alignment: full word 0-41.17$ 0-80.3@ 0-81.20 0-140.23 0-172.42 mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-39.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-39.7$ n11 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-40.61$ n12 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-40.65$ n21 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-40.69$ n22 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-41.8$ nagrc Parameter, Integer(4) 0-50.25$ 0-112.16 0-115.23 nagrr Parameter, Integer(4) 0-50.39$ 0-111.13 namesh Reference argument, Character(80), Offset: 0, Alignment: byte 0-46.19$ 0-37.30 0-90.36 0-91.17 0-93.34 0-102.39 nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-39.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-39.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-39.7$ ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-39.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-39.7$ no Automatic, Integer(4), Offset: 0, Alignment: full word 0-61.14$ 0-173.25 nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-39.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-39.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-39.7$ odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-39.7$ offset Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-42.7$ offset Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-43.7$ openerrn Static, Integer(4), Offset: 0, Alignment: full word 0-51.14& openerrs Static, Integer(4), Offset: 0, Alignment: full word 0-51.26& 0-75.3@ 0-97.6@ 0-100.8 0-102.47 outdata Reference argument, Real(4) (1:?), Offset: 0, Alignment: full word 0-47.11$ 0-37.38 0-104.9@ 0-186.15@ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-39.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-39.7$ pdata Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-64.24$ 0-82.12 0-87.3@ 0-113.38@ 0-119.12 0-173.19 0-192.14 pdata1 Allocatable, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-63.24$ 0-74.12 0-94.32@ 0-113.16 0-113.55 0-196.14 po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-39.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-39.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-39.7$ radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-39.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-39.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-39.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-39.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-39.7$ readerrn Static, Integer(4), Offset: 0, Alignment: full word 0-52.14& readerrs Static, Integer(4), Offset: 0, Alignment: full word 0-52.26& 0-76.3@ 0-94.22 0-100.17 0-102.57 recl Use associated, Reference argument, Optional, Integer(4), Offset: 0, Alignment: full word 0-42.7$ retrieve_data Use associated, Module Subroutine 0-42.7$ retrieve_script Use associated, Module Subroutine 0-42.7$ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-39.7$ rlat Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-40.35$ 0-173.28 0-175.26 rlon Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-40.40$ 0-173.33 0-175.36 rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-39.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-39.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-39.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-39.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-39.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-39.7$ script Use associated, Reference argument, Intent (IN), Character(-2), Offset: 0, Alignment: byte 0-42.7$ script Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-42.7$ script Use associated, Reference argument, Optional, Character(-2), Offset: 0, Alignment: byte 0-42.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-39.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-39.7$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-39.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-39.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-39.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-39.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-39.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-39.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-39.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-39.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-39.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-39.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-39.7$ startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-39.7$ status Use associated, Reference argument, Optional, Character(-2), Offset: 0, Alignment: byte 0-42.7$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-39.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-39.7$ tile_spmdmod Use associated, Nonintrinsic Module 0-39.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-39.7$ time_offset Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-42.7$ time_offset Use associated, Reference argument, Optional, Character(-2), Offset: 0, Alignment: byte 0-42.7$ time_offset Use associated, Reference argument, Optional, Character(-2), Offset: 0, Alignment: byte 0-42.7$ time_offset Use associated, Reference argument, Optional, Character(-2), Offset: 0, Alignment: byte 0-42.7$ ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-39.7$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-39.7$ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-39.7$ unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-42.7$ unit Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-42.7$ use_opendap_server Use associated, Parameter, Logical(4) 0-42.7$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-39.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-39.7$ w11 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-40.45$ w12 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-40.49$ w21 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-40.53$ w22 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-40.57$ wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-39.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-39.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-39.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-39.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-39.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-39.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-39.7$ ** interp_agrmet_sw === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../obsrads/agrmet/interp_agrmet_sw.F 03/09/11 11:04:05 >>>>> 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....................................... 202 1501-510 Compilation successful for file interp_agrmet_sw.F. 1501-543 Object file created.