IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../obsrads/agrmet/interp_agrmet_lw.F 03/09/11 11:04:04 >>>>> 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_lw.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 | 22 |!BOP 23 |! 24 |! !ROUTINE: subroutine interp_agrmet_lw.F90 25 |! 26 |! !DESCRIPTION: 27 |! Opens, reads, and interpolates AGRMET longwave radiation 28 |! 29 |! GRIB IPOLATES UTILITY TO INTERPOLATE DATA FOR NH AND SH 30 |! IN RTNEPH (512X512) POLAR STEREOGRAPHIC GRIDS TO MERGED 31 |! GLOBAL DATA IN GLDAS-SPECIFIED LAT/LON GRIDS; 32 |! 33 |! !REVISION HISTORY: 34 |! 26 Jun 2001: Urszula Jambor; Initial code, based on Jesse Meng's 35 |! RTNEPH2LATLON.F code. 36 |! 08 Feb 2002: Urszula Jambor; Modified declarations of arrays 37 |! dependant on domain & resolution to allocatable. 38 |! Pass in values for latmax. 39 |! 11 Dec 2002: Urszula Jambor; Added 1/2 & 1 degree resolution GDS arrays 40 |! 41 |! !INTERFACE: 42 |subroutine interp_agrmet_lw( pdata1, outdata, ferror ) 43 |! !USES: 44 | use lisdrv_module,only : lis,gindex 45 | use agrmetdomain_module, only : rlat,rlon,w11,w12,w21,w22,n11,n12,n21,& 46 | n22, mi,mo 47 | use lis_indices_module 48 | implicit none 49 | 50 | integer, parameter :: nagrc = 1440, nagrr=600 51 |! !ARGUMENTS: 52 | real :: pdata1(nagrc, nagrr) 53 | real :: outdata(lis%d%ngrid) !output array matching grid(c,r) 54 | integer :: ferror !set to zero if error found 55 |!EOP 56 | character*80 :: nameSH 57 | integer :: ip, i,j,count 58 | integer :: ipopt(20) 59 | integer :: gridDesci(22) 60 | integer :: gridDesco(50) 61 | integer, parameter :: km=1 62 | integer :: ibi(km) 63 | logical*1 :: li1(mi) 64 | integer :: no !ipolates returns no=latmax*lonmax 65 | integer :: iret 66 | real :: pdata2(nagrc, nagrr) 67 | real, allocatable :: pdata(:) 68 | real, allocatable :: ldata1(:) 69 | integer :: ibo 70 | logical*1, allocatable :: lo1(:) 71 |!BOC 72 |!--------------------------------------------------------------------- 73 |! READ INPUT DATA 74 |!--------------------------------------------------------------------- 75 | allocate(pdata(mi)) 76 | allocate(lo1(lis_nc_working*lis_nr_working)) 77 | allocate(ldata1(lis_nc_working*lis_nr_working)) 78 | if (ferror == 0) then 79 | do i=1,lis%d%ngrid 80 | outdata(i) = lis%d%udef 81 | end do 82 | else 83 | ferror = 1 84 | ibi = 1 85 | count = 0 86 | li1 = .false. 87 | do j=1,nagrr 88 | do i=1,nagrc 89 | pdata(count+i) = pdata1(i,j) 90 | enddo 91 | count = count+nagrc 92 | enddo 93 | do i=1,mi 94 | if(pdata(i).eq.-9999) then 95 | li1(i) = .false. 96 | else 97 | li1(i) = .true. 98 | endif 99 | enddo 100 | gridDesco = 0 101 | gridDesco = lis%d%gridDesc 102 | call bilinear_interp(gridDesco,ibi,li1,pdata,ibo,lo1,ldata1,mi,mo,& 103 | rlat,rlon,w11,w12,w21,w22,n11,n12,n21,n22,iret) 104 | 105 | if(iret .NE. 0) then 106 | print*, "IPOLATES ERROR!! PROGRAM STOP!!" 107 | call exit(iret) 108 | end if 109 |!--------------------------------------------------------------------- 110 |! COMBINE LDATA1 AND LDATA2 INTO LDATA 111 |!--------------------------------------------------------------------- 112 | count = 0 113 | do j=1,lis_nr_working 114 | do i=1,lis_nc_working 115 | if(gindex(i,j).ne. -1) then 116 | outdata(gindex(i,j)) = ldata1(i+count) 117 | endif 118 | enddo 119 | count = count+lis_nc_working 120 | enddo 121 | endif 122 | deallocate(pdata) 123 | deallocate(lo1) 124 | deallocate(ldata1) 125 |!EOC 126 |end subroutine interp_agrmet_lw >>>>> 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-44.7$ agrmetdomain_module Use associated, Nonintrinsic Module 0-45.7$ 0-45.7 avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-44.7$ bilinear_interp External Subroutine 0-102.11 clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-44.7$ count Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.22$ 0-85.6@ 0-89.18 0-91.9@ 0-91.17 0-112.6@ 0-116.47 0-119.9@ 0-119.17 d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-44.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-44.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-44.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-44.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-44.7$ ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-44.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-44.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-44.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-44.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-44.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-44.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-44.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-44.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-44.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-44.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-44.7$ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-44.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-44.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-44.7$ exit External Subroutine 0-107.14 expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-44.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-44.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-44.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-44.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-44.7$ ferror Reference argument, Integer(4), Offset: 0, Alignment: full word 0-54.14$ 0-42.47 0-78.7 0-83.6@ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-44.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-44.7$ findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-44.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-44.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-44.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-44.7$ force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-44.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-44.7$ gindex Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-44.32$ 0-115.15 0-116.23 glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-44.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-44.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-44.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-44.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-44.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-44.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-44.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-44.7$ griddesci Automatic, Integer(4) (1:22), Offset: 0, Alignment: full word 0-59.14$ griddesco Automatic, Integer(4) (1:50), Offset: 0, Alignment: full word 0-60.14$ 0-100.6@ 0-101.6@ 0-102.27 hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-44.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-44.7$ i Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.18$ 0-79.9@ 0-80.17 0-88.12@ 0-89.24 0-89.36 0-93.9@ 0-94.18 0-95.16 0-97.16 0-114.12@ 0-115.22 0-116.30 0-116.45 ibi Automatic, Integer(4) (1:1), Offset: 0, Alignment: full word 0-62.14$ 0-84.6@ 0-102.37 ibo Automatic, Integer(4), Offset: 0, Alignment: full word 0-69.14$ 0-102.51 ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-44.7$ interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-44.7$ interp_agrmet_lw Subroutine 0-42.12$ ip Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.14$ ipopt Automatic, Integer(4) (1:20), Offset: 0, Alignment: full word 0-58.14$ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-44.7$ iret Automatic, Integer(4), Offset: 0, Alignment: full word 0-65.14$ 0-103.53 0-105.9 0-107.19 iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-44.7$ j Automatic, Integer(4), Offset: 0, Alignment: full word 0-57.20$ 0-87.9@ 0-89.38 0-113.9@ 0-115.24 0-116.32 km Parameter, Integer(4) 0-61.25$ 0-62.18 lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-44.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-44.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-44.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-44.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-44.7$ lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-44.7$ ldata1 Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-68.24$ 0-77.12 0-102.59 0-116.38 0-124.14 li1 Controlled Automatic, Logical(1) (1:?), Offset: 0, Alignment: byte 0-63.16$ 0-86.6@ 0-95.12@ 0-97.12@ 0-102.41 lis Use associated, Static, Derived type: lisdec, Offset: 0, Alignment: quadruple word 0-44.28$ 0-47.7$ lis%d%griddesc Use associated, Static, Real(4) (1:50), Offset: 72, Alignment: double word 0-101.18 lis%d%ngrid Use associated, Static, Integer(4), Offset: 20, Alignment: full word 0-53.19 0-53.19 0-79.13 lis%d%udef Use associated, Static, Real(4), Offset: 68, Alignment: full word 0-80.22 lis_g2l_col_offset Use associated, Static, Integer(4), Offset: 28, Alignment: full word 0-47.7$ lis_g2l_row_offset Use associated, Static, Integer(4), Offset: 24, Alignment: double word 0-47.7$ lis_get_data_elon Use associated, Module Function Real(4) 0-47.7$ lis_get_data_lat_res Use associated, Module Function Real(4) 0-47.7$ lis_get_data_lon_res Use associated, Module Function Real(4) 0-47.7$ lis_get_data_nlat Use associated, Module Function Real(4) 0-47.7$ lis_get_data_slat Use associated, Module Function Real(4) 0-47.7$ lis_get_data_wlon Use associated, Module Function Real(4) 0-47.7$ lis_get_run_elon Use associated, Module Function Real(4) 0-47.7$ lis_get_run_lat_res Use associated, Module Function Real(4) 0-47.7$ lis_get_run_lon_res Use associated, Module Function Real(4) 0-47.7$ lis_get_run_nlat Use associated, Module Function Real(4) 0-47.7$ lis_get_run_slat Use associated, Module Function Real(4) 0-47.7$ lis_get_run_wlon Use associated, Module Function Real(4) 0-47.7$ lis_global_to_local_col_offset Use associated, Module Function Real(4) 0-47.7$ lis_global_to_local_row_offset Use associated, Module Function Real(4) 0-47.7$ lis_grid_offset Use associated, Static, Integer(4), Offset: 20, Alignment: full word 0-47.7$ lis_indices_module Use associated, Nonintrinsic Module 0-47.7$ 0-47.7 lis_module Use associated, Nonintrinsic Module 0-44.7$ 0-47.7$ lis_nc_data Use associated, Static, Integer(4), Offset: 8, Alignment: double word 0-47.7$ lis_nc_working Use associated, Static, Integer(4), Offset: 0, Alignment: quadruple word 0-47.7$ 0-76.16 0-77.19 0-114.16 0-119.23 lis_nr_data Use associated, Static, Integer(4), Offset: 12, Alignment: full word 0-47.7$ lis_nr_working Use associated, Static, Integer(4), Offset: 4, Alignment: full word 0-47.7$ 0-76.31 0-77.34 0-113.13 lis_set_indices Use associated, Module Subroutine 0-47.7$ lis_tnroffset Use associated, Static, Integer(4), Offset: 16, Alignment: quadruple word 0-47.7$ lisdrv_module Use associated, Nonintrinsic Module 0-44.7$ 0-44.7 0-47.7$ lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-44.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-44.7$ lo1 Allocatable, Controlled, Logical(1) (:), Offset: 0, Alignment: byte 0-70.29$ 0-76.12 0-102.55 0-123.14 longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-44.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-44.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-44.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-44.7$ mi Use associated, Static, Integer(4), Offset: 72, Alignment: double word 0-46.13$ 0-63.20 0-63.20 0-75.18 0-93.13 0-102.66 mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-44.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-44.7$ mo Use associated, Static, Integer(4), Offset: 76, Alignment: full word 0-46.16$ 0-102.69 mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-44.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-44.7$ n11 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-45.61$ 0-103.37 n12 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-45.65$ 0-103.41 n21 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-45.69$ 0-103.45 n22 Allocatable, Use associated, Controlled, Integer(4) (:), Offset: 0, Alignment: full word 0-46.8$ 0-103.49 nagrc Parameter, Integer(4) 0-50.25$ 0-52.18 0-66.18 0-88.16 0-91.23 nagrr Parameter, Integer(4) 0-50.39$ 0-52.25 0-66.25 0-87.13 namesh Automatic, Character(80), Offset: 0, Alignment: full word 0-56.19$ nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-44.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-44.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-44.7$ ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-44.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-44.7$ no Automatic, Integer(4), Offset: 0, Alignment: full word 0-64.14$ nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-44.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-44.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-44.7$ odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-44.7$ offset Use associated, Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-47.7$ outdata Reference argument, Real(4) (1:?), Offset: 0, Alignment: full word 0-53.11$ 0-42.38 0-80.9@ 0-116.15@ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-44.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-44.7$ pdata Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-67.24$ 0-75.12 0-89.12@ 0-94.12 0-102.45 0-122.14 pdata1 Reference argument, Real(4) (1:1440, 1:600), Offset: 0, Alignment: full word 0-52.11$ 0-42.30 0-89.29 pdata2 Automatic, Real(4) (1:1440, 1:600), Offset: 0, Alignment: full word 0-66.11$ po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-44.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-44.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-44.7$ radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-44.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-44.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-44.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-44.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-44.7$ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-44.7$ rlat Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-45.35$ 0-103.11 rlon Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-45.40$ 0-103.16 rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-44.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-44.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-44.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-44.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-44.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-44.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-44.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-44.7$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-44.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-44.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-44.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-44.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-44.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-44.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-44.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-44.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-44.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-44.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-44.7$ startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-44.7$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-44.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-44.7$ tile_spmdmod Use associated, Nonintrinsic Module 0-44.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-44.7$ ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-44.7$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-44.7$ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-44.7$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-44.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-44.7$ w11 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-45.45$ 0-103.21 w12 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-45.49$ 0-103.25 w21 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-45.53$ 0-103.29 w22 Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-45.57$ 0-103.33 wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-44.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-44.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-44.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-44.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-44.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-44.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-44.7$ ** interp_agrmet_lw === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../obsrads/agrmet/interp_agrmet_lw.F 03/09/11 11:04:04 >>>>> 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....................................... 127 1501-510 Compilation successful for file interp_agrmet_lw.F. 1501-543 Object file created.