IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../obsprecips/cmap_0.5/glbprecip_cmap.F 03/09/11 11:04:03 >>>>> 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 "../obsprecips/cmap_0.5/glbprecip_cmap.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: glbprecip_cmap.F90 24 |! 25 |! !DESCRIPTION: 26 |! Includes reading routines for global CMAP precipitation product 27 |! Used instead of GDAS/GEOS precipitation forcing 28 |! 29 |! !REVISION HISTORY: 30 |! 17 Jul 2001: Jon Gottschalck; Initial code 31 |! 04 Feb 2002: Jon Gottschalck; Added necessary code to use global precip 32 |! observations with domain 3 (2x2.5) 33 |! 30 Jul 2002: Jon Gottschalck; Added code to use Huffman and Persiann precip data 34 |! !INTERFACE: 35 |subroutine glbprecip_cmap( fname, ferror_cmap, filehr) 36 |! !USES: 37 | use lisdrv_module, only : lis, gindex 38 | use obsprecipforcing_module, only: obsprecip 39 | use cmapdomain_module, only : cmapdrv 40 | implicit none 41 |! !ARGUMENTS: 42 | character(len=80) :: fname(2) ! Filename variable for datafile 43 | integer :: ferror_cmap 44 | integer :: filehr 45 |!EOP 46 | 47 | integer :: i,j,ios,iret,jret ! Loop indicies and error flags 48 | 49 |! real, allocatable :: precip_regrid(:,:) ! Interpolated precipitation array (N-S) 50 | real, allocatable :: precip_cmap(:,:) ! Interpolated precipitation array (S-N) 51 | 52 | integer :: ngdas 53 | real, allocatable :: gdasin(:) ! GDAS 1d 54 | logical*1,allocatable :: lg(:) ! GDAS lb 55 | real, allocatable :: precip_gdas(:,:) ! GDAS 6 hour precipitation array (S-N) 56 | real, allocatable :: w(:,:) ! Weighting mask of obs to GDAS (S-N) 57 | 58 | integer :: ncmap 59 | integer :: jj,lugb(2),lugi,kf,kpds(200),kgds(200),k,gridDesccmap(200),jpds(200),jgds(200) 60 | real :: ism,udef 61 | real, allocatable :: cmap2d(:,:) 62 | real, allocatable :: cmapin(:) 63 | logical*1,allocatable :: lb(:) 64 | 65 | integer :: index 66 | logical :: file_exists 67 |!=== End Variable Definition ======================= 68 |!BOC 69 | print*,"J---glbprecip_cmap()" 70 | 71 | obsprecip = 1.0 72 | allocate (precip_cmap(lis%d%lnc,lis%d%lnr)) 73 | precip_cmap = -1.0 74 | allocate (precip_gdas(lis%d%lnc,lis%d%lnr)) 75 | precip_gdas = -1.0 76 | allocate (w(lis%d%lnc,lis%d%lnr)) 77 | 78 |!------------------------------------------------------------------------ 79 |! Set necessary parameters for call to interp_gdas 80 |!------------------------------------------------------------------------ 81 | ism = 0 82 | udef = lis%d%udef 83 | jj = 0 84 | 85 | cmapdrv%ncold=lis%d%lnc 86 | cmapdrv%nrold=lis%d%lnr 87 | ncmap = cmapdrv%ncold*cmapdrv%nrold 88 | allocate(cmap2d(cmapdrv%ncold, cmapdrv%nrold)) 89 | allocate(cmapin(ncmap)) 90 | allocate(lb(ncmap)) 91 | 92 | ngdas = lis%d%lnc*lis%d%lnr 93 | allocate (gdasin(ngdas)) 94 | allocate (lg(ngdas)) 95 | 96 | lugb(1) = 31 97 | iret = 0 98 | inquire (file=fname(1), exist=file_exists) 99 | if ( file_exists ) then 100 | call baopenr (lugb(1),fname(1),iret) 101 | else 102 | iret = 1 103 | endif 104 | print*, fname(1), "iret =", iret 105 | 106 | lugb(2) = 32 107 | jret = 0 108 | inquire (file=fname(2), exist=file_exists) 109 | if ( file_exists ) then 110 | call baopenr (lugb(2),fname(2),jret) 111 | else 112 | jret = 1 113 | endif 114 | print*, fname(2), "jret =", jret 115 | 116 | if (iret+jret == 0 ) then 117 | 118 |! READ AND INTERP CMAP 119 | 120 | print*, "reading precip_cmap ", fname(1) 121 | 122 | lugi = 0 123 | jj = 0 124 | jpds = -1 125 | jpds(5) = 59 126 | jpds(6) = 1 127 | jpds(7) = 0 128 | jgds = 0 129 | iret = 0 130 | 131 | call getgb (lugb(1),lugi,ncmap,jj,jpds,jgds,kf,k,kpds,& 132 | kgds,lb,cmapin,iret) 133 | iret = 0 134 | call baclose(lugb(1),iret) 135 | 136 | ! call interp_cmap(kpds,ncmap,cmapin,lb,lis%d%gridDesc, & 137 | ! lis%d%lnc,lis%d%lnr,precip_cmap) 138 | 139 | k = 1 140 | do j = lis%d%lnr, 1, -1 141 | do i = 1, lis%d%lnc 142 | precip_cmap(i,j) = cmapin(k) !map to 90S-90N 143 | k = k + 1 144 | end do 145 | end do 146 | 147 |! READ GDAS PRECIP 148 | 149 | print*,"reading precip_gdas ", fname(2) 150 | 151 | lugi = 0 152 | jj = 0 153 | jpds = -1 154 | jpds(5) = 59 155 | jpds(6) = 1 156 | jpds(7) = 0 157 | jgds = 0 158 | iret = 0 159 | 160 | call getgb (lugb(2),lugi,ngdas,jj,jpds,jgds,kf,k,kpds,& 161 | kgds,lg,gdasin,iret) 162 | iret = 0 163 | call baclose(lugb(2),iret) 164 | 165 | k = 1 166 | do j = lis%d%lnr, 1, -1 167 | do i = 1, lis%d%lnc 168 | precip_gdas(i,j) = gdasin(k) !map to 90S-90N 169 | k = k + 1 170 | end do 171 | end do 172 | 173 |! READ WEIGHTING MASK 174 | 175 | open(40,file='./FIX/weight_gage_gdas.bin', & 176 | form='unformatted',access='direct',& 177 | recl=lis%d%lnc*lis%d%lnr*4,status='unknown') 178 | read(40,rec=1) w 179 | close(40) 180 |! open(50,file='w.bin', & 181 |! form='unformatted',access='direct',& 182 |! recl=lis%d%lnc*lis%d%lnr*4,status='unknown') 183 |! write(50,rec=1) w 184 |! close(50) 185 |#line 187 187 | do j = 1,lis%d%lnr 188 | do i = 1,lis%d%lnc 189 | if (precip_cmap(i,j) .ne. -1.0) then 190 | index = gindex(i,j) 191 | if(index .ne. -1) then 192 | if( precip_gdas(i,j) .GE. 1.E-6 ) then 193 | precip_cmap(i,j) = w(i,j)*precip_cmap(i,j) + (1.-w(i,j))*precip_gdas(i,j) 194 | obsprecip(index) = precip_cmap(i,j) / precip_gdas(i,j) 195 | else 196 | obsprecip(index) = 1.0 197 | endif 198 | endif 199 | endif 200 | enddo 201 | enddo 202 | 203 | ferror_cmap = 1 204 | print*, "Obtained CMAP CPC precipitation data " 205 |! print*, fname(1) 206 |! print*, fname(2) 207 | else 208 | ferror_cmap = 0 209 | print*, "Missing CMAP CPC precipitation data " 210 |! print*, fname(1) 211 |! print*, fname(2) 212 | endif 213 | deallocate(precip_cmap) 214 | deallocate(lb) 215 | deallocate(cmapin) 216 | deallocate(cmap2d) 217 | deallocate(precip_gdas) 218 | deallocate(lg) 219 | deallocate(gdasin) 220 | deallocate(w) 221 | print*,"DONE glbprecip_cmap()" 222 | !EOC 223 |end subroutine glbprecip_cmap >>>>> 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-37.7$ avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-37.7$ baclose External Subroutine 0-134.11 0-163.11 baopenr External Subroutine 0-100.11 0-110.11 clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-37.7$ cmap2d Allocatable, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-61.25$ 0-88.12 0-216.14 cmapdir Use associated, Character(40), Component of Derived type definition: cmapdrvdec, Offset: 8, Alignment: byte 0-39.7$ cmapdomain_module Use associated, Nonintrinsic Module 0-39.7$ 0-39.7 cmapdrv Use associated, Static, Derived type: cmapdrvdec, Offset: 0, Alignment: quadruple word 0-39.33$ cmapdrv%ncold Use associated, Static, Integer(4), Offset: 0, Alignment: quadruple word 0-85.3@ 0-87.11 0-88.19 cmapdrv%nrold Use associated, Static, Integer(4), Offset: 4, Alignment: full word 0-86.3@ 0-87.25 0-88.34 cmapdrv_module Use associated, Nonintrinsic Module 0-39.7$ cmapin Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-62.25$ 0-89.12 0-132.19 0-142.31 0-215.14 cmaptime Use associated, Real(8), Component of Derived type definition: cmapdrvdec, Offset: 48, Alignment: double word 0-39.7$ d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-37.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-37.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-37.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-37.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-37.7$ ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-37.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-37.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-37.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-37.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-37.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-37.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-37.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-37.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-37.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-37.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-37.7$ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-37.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-37.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-37.7$ expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-37.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-37.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-37.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-37.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-37.7$ ferror_cmap Reference argument, Integer(4), Offset: 0, Alignment: full word 0-43.25$ 0-35.35 0-203.6@ 0-208.6@ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-37.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-37.7$ file_exists Automatic, Logical(4), Offset: 0, Alignment: full word 0-66.25$ 0-98.33 0-99.8 0-108.33 0-109.8 filehr Reference argument, Integer(4), Offset: 0, Alignment: full word 0-44.25$ 0-35.48 findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-37.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-37.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-37.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-37.7$ fname Reference argument, Character(80) (1:2), Offset: 0, Alignment: byte 0-42.25$ 0-35.28 0-98.17 0-100.28 0-104.11 0-108.17 0-110.28 0-114.11 0-120.35 0-149.34 force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-37.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-37.7$ gdasin Allocatable, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-53.25$ 0-93.13 0-161.19 0-168.31 0-219.14 getgb External Subroutine 0-131.11 0-160.11 gindex Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-37.34$ 0-190.23 glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-37.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-37.7$ glbprecip_cmap Subroutine 0-35.12$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-37.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-37.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-37.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-37.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-37.7$ gridchange1 Use associated, Logical(4), Component of Derived type definition: cmapdrvdec, Offset: 64, 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-37.7$ griddesccmap Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-59.66$ griduptime1 Use associated, Real(8), Component of Derived type definition: cmapdrvdec, Offset: 56, Alignment: double word 0-39.7$ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-37.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-37.7$ i Automatic, Integer(4), Offset: 0, Alignment: full word 0-47.25$ 0-141.12@ 0-142.24 0-167.12@ 0-168.24 0-188.12@ 0-189.28 0-190.30 0-192.34 0-193.32 0-193.41 0-193.58 0-193.71 0-193.89 0-194.51 0-194.70 ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-37.7$ index Automatic, Integer(4), Offset: 0, Alignment: full word 0-65.25$ 0-190.15@ 0-191.18 0-194.30 0-196.30 interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-37.7$ ios Automatic, Integer(4), Offset: 0, Alignment: full word 0-47.29$ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-37.7$ iret Automatic, Integer(4), Offset: 0, Alignment: full word 0-47.33$ 0-97.3@ 0-100.37 0-102.6@ 0-104.31 0-116.7 0-129.3@ 0-132.26 0-133.6@ 0-134.27 0-158.3@ 0-161.26 0-162.6@ 0-163.27 iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-37.7$ ism Automatic, Real(4), Offset: 0, Alignment: full word 0-60.25$ 0-81.3@ j Automatic, Integer(4), Offset: 0, Alignment: full word 0-47.27$ 0-140.9@ 0-142.26 0-166.9@ 0-168.26 0-187.9@ 0-189.30 0-190.32 0-192.36 0-193.34 0-193.43 0-193.60 0-193.73 0-193.91 0-194.53 0-194.72 jgds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-59.94$ 0-128.3@ 0-131.45 0-157.3@ 0-160.45 jj Automatic, Integer(4), Offset: 0, Alignment: full word 0-59.25$ 0-83.3@ 0-123.3@ 0-131.37 0-152.3@ 0-160.37 jpds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-59.84$ 0-124.3@ 0-125.3@ 0-126.3@ 0-127.3@ 0-131.40 0-153.3@ 0-154.3@ 0-155.3@ 0-156.3@ 0-160.40 jret Automatic, Integer(4), Offset: 0, Alignment: full word 0-47.38$ 0-107.3@ 0-110.37 0-112.6@ 0-114.31 0-116.12 k Automatic, Integer(4), Offset: 0, Alignment: full word 0-59.64$ 0-131.53 0-139.6@ 0-142.38 0-143.12@ 0-143.16 0-160.53 0-165.6@ 0-168.38 0-169.12@ 0-169.16 kf Automatic, Integer(4), Offset: 0, Alignment: full word 0-59.41$ 0-131.50 0-160.50 kgds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-59.54$ 0-132.11 0-161.11 kpds Automatic, Integer(4) (1:200), Offset: 0, Alignment: full word 0-59.44$ 0-131.55 0-160.55 lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-37.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-37.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-37.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-37.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-37.7$ lb Allocatable, Controlled, Logical(1) (:), Offset: 0, Alignment: byte 0-63.29$ 0-90.12 0-132.16 0-214.14 lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-37.7$ lg Allocatable, Controlled, Logical(1) (:), Offset: 0, Alignment: byte 0-54.29$ 0-94.13 0-161.16 0-218.14 lis Use associated, Static, Derived type: lisdec, Offset: 0, Alignment: quadruple word 0-37.29$ lis%d%lnc Use associated, Static, Integer(4), Offset: 44, Alignment: full word 0-72.25 0-74.25 0-76.15 0-85.17 0-92.11 0-141.19 0-167.19 0-177.16 0-188.18 lis%d%lnr Use associated, Static, Integer(4), Offset: 48, Alignment: quadruple word 0-72.35 0-74.35 0-76.25 0-86.17 0-92.21 0-140.13 0-166.13 0-177.26 0-187.15 lis%d%udef Use associated, Static, Real(4), Offset: 68, Alignment: full word 0-82.13 lis_module Use associated, Nonintrinsic Module 0-37.7$ lisdrv_module Use associated, Nonintrinsic Module 0-37.7$ 0-37.7 lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-37.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-37.7$ longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-37.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-37.7$ lugb Automatic, Integer(4) (1:2), Offset: 0, Alignment: full word 0-59.28$ 0-96.3@ 0-100.20 0-106.3@ 0-110.20 0-131.18 0-134.19 0-160.18 0-163.19 lugi Automatic, Integer(4), Offset: 0, Alignment: full word 0-59.36$ 0-122.3@ 0-131.26 0-151.3@ 0-160.26 maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-37.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-37.7$ mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-37.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-37.7$ mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-37.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-37.7$ nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-37.7$ ncmap Automatic, Integer(4), Offset: 0, Alignment: full word 0-58.25$ 0-87.3@ 0-89.19 0-90.15 0-131.31 ncold Use associated, Integer(4), Component of Derived type definition: cmapdrvdec, 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-37.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-37.7$ ngdas Automatic, Integer(4), Offset: 0, Alignment: full word 0-52.25$ 0-92.3@ 0-93.20 0-94.16 0-160.31 ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-37.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-37.7$ nrold Use associated, Integer(4), Component of Derived type definition: cmapdrvdec, Offset: 4, Alignment: full word 0-39.7$ nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-37.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-37.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-37.7$ obsprecip Pointer, Use associated, Static, Real(4) (:), Offset: 0, Alignment: quadruple word 0-38.38$ 0-71.3@ 0-194.20@ 0-196.20@ obsprecipforcing_module Use associated, Nonintrinsic Module 0-38.7$ 0-38.7 odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-37.7$ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-37.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-37.7$ po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-37.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-37.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-37.7$ precip_cmap Allocatable, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-50.25$ 0-72.13 0-73.3@ 0-142.12@ 0-189.16 0-193.20@ 0-193.46 0-194.39 0-213.14 precip_gdas Allocatable, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-55.25$ 0-74.13 0-75.3@ 0-168.12@ 0-192.22 0-193.77 0-194.58 0-217.14 radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-37.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-37.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-37.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-37.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-37.7$ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-37.7$ rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-37.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-37.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-37.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-37.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-37.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-37.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-37.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-37.7$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-37.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-37.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-37.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-37.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-37.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-37.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-37.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-37.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-37.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-37.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-37.7$ startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-37.7$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-37.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-37.7$ tile_spmdmod Use associated, Nonintrinsic Module 0-37.7$ 0-38.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-37.7$ ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-37.7$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-37.7$ udef Automatic, Real(4), Offset: 0, Alignment: full word 0-60.29$ 0-82.3@ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-37.7$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-37.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-37.7$ w Allocatable, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-56.25$ 0-76.13 0-178.18@ 0-193.39 0-193.69 0-220.14 wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-37.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-37.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-37.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-37.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-37.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-37.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-37.7$ ** glbprecip_cmap === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../obsprecips/cmap_0.5/glbprecip_cmap.F 03/09/11 11:04:03 >>>>> 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....................................... 223 1501-510 Compilation successful for file glbprecip_cmap.F. 1501-543 Object file created.