IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../core/readcard.F 03/09/11 11:04:49 >>>>> 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 "../core/readcard.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: readcard.F90 24 |! 25 |! !DESCRIPTION: 26 |! 27 |! Reads in LIS run specifics from lis.crd 28 |! 29 |! !REVISION HISTORY: 30 |! 31 |! REVISION HISTORY: 32 |! 15 Oct 1999: Paul Houser; Initial code 33 |! 4 Apr 2000: Jeffrey Walker; Added catchment model output interval 34 |! 11 Apr 2000: Brian Cosgrove; Added Elevation correction and Forcing 35 |! Mask read statements 36 |! 6 Jun 2000: Jon Radakovich; Updated for new version of CLM 37 |! 23 Feb 2001: Urszula Jambor; Added GEOS or GDAS forcing option 38 |! 27 Mar 2001: Jon Gottschalck; Revision of subroutine by implementing namelists 39 |! 05 Sep 2001: Brian Cosgrove; Altered forcing logfile output to include 40 |! more precip types 41 |! 04 Feb 2002: Jon Gottschalck; Added section to set to Koster tilespace files if necessary 42 |! 15 Apr 2002: Urszula Jambor; Added ECMWF forcing options, also 43 |! adding 1 & 1/2 degree GLDAS domain options. 44 |! 28 Apr 2002: Kristi Arsenault; Added NOAH LSM code 45 |! 14 Nov 2003: Sujay Kumar; Modified card file that includes regional 46 |! modeling options 47 |! !INTERFACE: 48 |subroutine readcard 49 |! !USES: 50 | use lisdrv_module, only : lis 51 | use time_manager, only : date2time 52 | use soils_pluginMod, only : soils_plugin 53 | use lai_pluginMod, only : lai_plugin 54 | implicit none 55 |!EOP 56 | 57 |!=== Local Variables ===================================================== 58 |! integer :: i ! loop counter 59 | character*80 :: name ! file name to open 60 | CHARACTER*20 :: stmp, ttmp ! temp string for command line args 61 | integer :: iargc 62 | integer :: i 63 | NAMELIST /driver/lis 64 | NAMELIST /lis_run_inputs/lis 65 | NAMELIST /landcover/lis 66 | NAMELIST /elevation/lis 67 | NAMELIST /soils/lis 68 | NAMELIST /lai/lis 69 | 70 |!=== End Variable Definition ============================================= 71 |!BOC 72 | open(10,file='lis.crd',form='formatted',status='old') 73 |!------------------------------------------------------------------------ 74 |! Reading in parameters that need to be initialized 75 |! to avoid any problems later 76 |! Reading in parameters that are used by all LDAS runs 77 |!------------------------------------------------------------------------ 78 | read(unit=10,nml=driver) 79 | read(unit=10,nml=lis_run_inputs) 80 | 81 |!YDT: get command line arguments and convert to IC, IR 82 | lis%d%IC = 1 83 | lis%d%IR = 1 84 | ttmp='' 85 | Do i=1, iargc() 86 | call getarg(i, stmp) 87 | if (trim(stmp).eq.'-ic') then 88 | call getarg(i+1, stmp) 89 | Read(Unit=stmp, fmt='(I3)') lis%d%IC 90 | ttmp=trim(stmp)//'-' 91 | end if 92 | if (trim(stmp).eq.'-ir') then 93 | call getarg(i+1, stmp) 94 | Read(Unit=stmp, fmt='(I3)') lis%d%IR 95 | ttmp=trim(ttmp)//trim(stmp) 96 | end if 97 | End Do 98 | 99 |! if ( lis%o%odirn == 1 ) then 100 |! lis%o%odir_array(1) = trim(lis%o%odir_array(1))//trim(ttmp) 101 |! endif 102 |! lis%o%odir = lis%o%odir_array(1) 103 |!------------------------------------------------------------------------ 104 |! Open runtime diagnostics file 105 |!------------------------------------------------------------------------ 106 | call openfile(name,lis%o%odir,lis%o%expcode,lis%o%dfile) 107 |88 format(a4,25x,a3,5x,16a) 108 |89 format(20x,a49) 109 |!------------------------------------------------------------------------ 110 |! Impose limit on time step 111 |!------------------------------------------------------------------------ 112 | call check_timestep(lis%t%ts) 113 |!------------------------------------------------------------------------ 114 |! Set Time 115 |!------------------------------------------------------------------------ 116 | call set_time(lis%t) 117 | 118 | call set_output_counters(lis%o%numoutf) 119 | 120 | call date2time(lis%t%time,lis%t%doy,lis%t%gmt, & 121 | lis%t%yr,lis%t%mo,lis%t%da,lis%t%hr,lis%t%mn,lis%t%ss) 122 | 123 | print* 124 | print*,'********** GSFC-LIS driver **********' 125 | print*,'experiment code: ','-',lis%o%expcode,'-' 126 | print*,'starting time: ',lis%t%smo,'/',lis%t%sda,'/',lis%t%syr 127 | print*,'ending time: ',lis%t%emo,'/',lis%t%eda,'/',lis%t%eyr 128 | print* 129 | 130 | print*,'forcing details:' 131 | read(unit=10,nml=landcover) 132 | read(unit=10,nml=elevation) 133 | read(unit=10,nml=soils) 134 | read(unit=10,nml=lai) 135 | 136 | call soils_plugin 137 | call lai_plugin 138 | 139 |!------------------------------------------------------------------------ 140 |! Setting Satellite LAI variables 141 |!------------------------------------------------------------------------ 142 | lis%p%laitime = 0.0 143 |! 144 | lis%p%saitime = 0.0 145 |! 146 | if(lis%p%lai.eq.2) then 147 | print*, "Using AVHRR Satellite LAI" 148 | endif 149 | if(lis%p%lai.eq.3) then 150 | print*, "Using MODIS Satellite LAI" 151 | endif 152 | 153 | lis%f%rstflag = 1 154 | lis%f%gridchange = 1 155 |!------------------------------------------------------------------------ 156 |! Initialize Statistics files conditional 157 |!------------------------------------------------------------------------ 158 | lis%o%foropen=0 159 |!------------------------------------------------------------------------ 160 |! Fix MAXT out of bounds problems 161 |!------------------------------------------------------------------------ 162 | if(lis%d%maxt.gt.lis%p%nt) lis%d%maxt=lis%p%nt 163 | if(lis%d%maxt.lt.1 ) lis%d%maxt=1 164 |!------------------------------------------------------------------------ 165 |! Select which vegetation tile space and mask files 166 |!------------------------------------------------------------------------ 167 | print*, 'miscellaneous details:' 168 | if(lis%p%vclass.eq.1) print*, 'avhrr umd vegetation', lis%p%vclass 169 | if(lis%p%vclass.eq.2) print*, 'modis umd vegetation', lis%p%vclass 170 | print*,'mask file: ', lis%p%mfile 171 | print*,'vegetation file: ', lis%p%vfile 172 | if (lis%d%soil.eq.1) print *,'original vegetation-based soil scheme' 173 | if (lis%d%soil.eq.2) print *,'reynolds soils' 174 | if (lis%d%soil.eq.1) print *,'original vegetation-based soil scheme' 175 | if (lis%d%soil.eq.2) print *,'reynolds soils' 176 | 177 | close(10) 178 | return 179 |!EOC 180 |end subroutine readcard >>>>> 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-50.7$ avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-50.7$ check_timestep External Subroutine 0-112.8 clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-50.7$ d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-50.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-50.7$ da Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-51.7$ date2time Use associated, Module Subroutine 0-51.28$ 0-120.8 dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-50.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-50.7$ doy Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-51.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-50.7$ driver Namelist 0-63.13$ 0-78.20 ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-50.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-50.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-50.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-50.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-50.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-50.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-50.7$ elevation Namelist 0-66.13$ 0-132.20 elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-50.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-50.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-50.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-50.7$ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-50.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-50.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-50.7$ expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-50.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-50.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-50.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-50.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-50.7$ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-50.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-50.7$ findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-50.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-50.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-50.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-50.7$ force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-50.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-50.7$ getarg External Subroutine 0-86.11 0-88.12 0-93.12 glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-50.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-50.7$ gmt Use associated, Reference argument, Real(4), Offset: 0, Alignment: full word 0-51.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-50.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-50.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-50.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-50.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-50.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-50.7$ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-50.7$ hr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-51.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-50.7$ i Automatic, Integer(4), Offset: 0, Alignment: full word 0-62.14$ 0-85.8@ 0-86.18 0-88.19 0-93.19 iargc External Function Integer(4) 0-61.14$ 0-85.13 ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-50.7$ interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-50.7$ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-50.7$ iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-50.7$ lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-50.7$ lai Namelist 0-68.13$ 0-134.20 lai_plugin Use associated, Module Subroutine 0-53.29$ 0-137.8 lai_pluginmod Use associated, Nonintrinsic Module 0-53.7$ 0-53.7 laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-50.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-50.7$ landcover Namelist 0-65.13$ 0-131.20 landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-50.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-50.7$ lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-50.7$ lis Use associated, Static, Derived type: lisdec, Offset: 0, Alignment: quadruple word 0-50.29$ 0-63.20 0-64.28 0-65.23 0-66.23 0-67.19 0-68.17 lis%d%ic Use associated, Static, Integer(4), Offset: 52, Alignment: full word 0-82.5@ 0-89.35@ lis%d%ir Use associated, Static, Integer(4), Offset: 56, Alignment: double word 0-83.5@ 0-94.35@ lis%d%maxt Use associated, Static, Integer(4), Offset: 60, Alignment: full word 0-162.6 0-162.30@ 0-163.6 0-163.29@ lis%d%soil Use associated, Static, Integer(4), Offset: 8, Alignment: double word 0-172.7 0-173.7 0-174.7 0-175.7 lis%f%gridchange Use associated, Static, Integer(4), Offset: 368, Alignment: quadruple word 0-154.3@ lis%f%rstflag Use associated, Static, Integer(4), Offset: 364, Alignment: full word 0-153.3@ lis%o%dfile Use associated, Static, Character(40), Offset: 1236, Alignment: full word 0-106.47 lis%o%expcode Use associated, Static, Integer(4), Offset: 1164, Alignment: full word 0-106.33 0-125.34 lis%o%foropen Use associated, Static, Integer(4), Offset: 1172, Alignment: full word 0-158.3@ lis%o%numoutf Use associated, Static, Integer(4), Offset: 1176, Alignment: double word 0-118.28 lis%o%odir Use associated, Static, Character(40), Offset: 1196, Alignment: full word 0-106.22 lis%p%lai Use associated, Static, Integer(4), Offset: 424, Alignment: double word 0-146.6 0-149.6 lis%p%laitime Use associated, Static, Real(8), Offset: 984, Alignment: double word 0-142.3@ lis%p%mfile Use associated, Static, Character(50), Offset: 444, Alignment: full word 0-170.25 lis%p%nt Use associated, Static, Integer(4), Offset: 428, Alignment: full word 0-162.20 0-162.41 lis%p%saitime Use associated, Static, Real(8), Offset: 992, Alignment: quadruple word 0-144.3@ lis%p%vclass Use associated, Static, Integer(4), Offset: 432, Alignment: quadruple word 0-168.6 0-168.57 0-169.6 0-169.57 lis%p%vfile Use associated, Static, Character(50), Offset: 494, Alignment: half word 0-171.31 lis%t Use associated, Static, Derived type: listime, Offset: 1000, Alignment: double word 0-116.17 lis%t%da Use associated, Static, Integer(4), Offset: 1088, Alignment: quadruple word 0-121.26 lis%t%doy Use associated, Static, Integer(4), Offset: 1076, Alignment: full word 0-120.29 lis%t%eda Use associated, Static, Integer(4), Offset: 1048, Alignment: double word 0-127.40 lis%t%emo Use associated, Static, Integer(4), Offset: 1052, Alignment: full word 0-127.26 lis%t%eyr Use associated, Static, Integer(4), Offset: 1056, Alignment: quadruple word 0-127.54 lis%t%gmt Use associated, Static, Real(4), Offset: 1128, Alignment: double word 0-120.39 lis%t%hr Use associated, Static, Integer(4), Offset: 1092, Alignment: full word 0-121.35 lis%t%mn Use associated, Static, Integer(4), Offset: 1096, Alignment: double word 0-121.44 lis%t%mo Use associated, Static, Integer(4), Offset: 1084, Alignment: full word 0-121.17 lis%t%sda Use associated, Static, Integer(4), Offset: 1016, Alignment: double word 0-126.42 lis%t%smo Use associated, Static, Integer(4), Offset: 1020, Alignment: full word 0-126.28 lis%t%ss Use associated, Static, Integer(4), Offset: 1100, Alignment: full word 0-121.53 lis%t%syr Use associated, Static, Integer(4), Offset: 1024, Alignment: quadruple word 0-126.56 lis%t%time Use associated, Static, Real(8), Offset: 1112, Alignment: double word 0-120.18 lis%t%ts Use associated, Static, Integer(4), Offset: 1060, Alignment: full word 0-112.23 lis%t%yr Use associated, Static, Integer(4), Offset: 1080, Alignment: double word 0-121.8 lis_module Use associated, Nonintrinsic Module 0-50.7$ lis_run_inputs Namelist 0-64.13$ 0-79.20 lisdrv_module Use associated, Nonintrinsic Module 0-50.7$ 0-50.7 lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-50.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-50.7$ longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-50.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-50.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-50.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-50.7$ mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-50.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-50.7$ mn Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-51.7$ mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-50.7$ mo Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-51.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-50.7$ name Automatic, Character(80), Offset: 0, Alignment: full word 0-59.19$ 0-106.17 nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-50.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-50.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-50.7$ ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-50.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-50.7$ nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-50.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-50.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-50.7$ odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-50.7$ openfile External Subroutine 0-106.8 p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-50.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-50.7$ po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-50.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-50.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-50.7$ radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-50.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-50.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-50.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-50.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-50.7$ readcard Subroutine 0-48.12@ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-50.7$ rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-50.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-50.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-50.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-50.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-50.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-50.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-50.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-50.7$ set_output_counters External Subroutine 0-118.8 set_time External Subroutine 0-116.8 sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-50.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-50.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-50.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-50.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-50.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-50.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-50.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-50.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-50.7$ soils Namelist 0-67.13$ 0-133.20 soils_plugin Use associated, Module Subroutine 0-52.31$ 0-136.8 soils_pluginmod Use associated, Nonintrinsic Module 0-52.7$ 0-52.7 ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-50.7$ ss Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-51.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-50.7$ startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-50.7$ stmp Automatic, Character(20), Offset: 0, Alignment: full word 0-60.19$ 0-86.21 0-87.15 0-88.24 0-89.17 0-90.17 0-92.15 0-93.24 0-94.17 0-95.29 syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-50.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-50.7$ time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-50.7$ time Use associated, Reference argument, Real(8), Offset: 0, Alignment: double word 0-51.7$ time_manager Use associated, Nonintrinsic Module 0-51.7$ 0-51.7 trim Pure Intrinsic 0-87.10 0-90.12 0-92.10 0-95.12 0-95.24 ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-50.7$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-50.7$ ttmp Automatic, Character(20), Offset: 0, Alignment: full word 0-60.25$ 0-84.5@ 0-90.7@ 0-95.7@ 0-95.17 udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-50.7$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-50.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-50.7$ wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-50.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-50.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-50.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-50.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-50.7$ yr Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-51.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-50.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-50.7$ ** readcard === 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 <<<<< 181 | 182 |subroutine set_output_counters(numoutf) 183 | implicit none 184 | integer::numoutf 185 | numoutf=0 ! initialize output time counters 186 | return 187 |end subroutine set_output_counters >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES numoutf Reference argument, Integer(4), Offset: 0, Alignment: full word 0-184.12$ 0-182.32 0-185.3@ set_output_counters Subroutine 0-182.12$ ** set_output_counters === 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 >>>>> 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 <<<<< 188 |#line 190 190 |subroutine set_time(time) 191 | use lis_module 192 | implicit none 193 | type(listime), intent(inout) ::time 194 | time%YR= time%SYR 195 | time%MO= time%SMO 196 | time%DA= time%SDA 197 | time%HR= time%SHR 198 | time%MN= time%SMN 199 | time%SS= time%SSS 200 | return 201 |end subroutine set_time >>>>> 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-191.7$ avhrrdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 400, Alignment: byte 0-191.7$ clfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 160, Alignment: byte 0-191.7$ d Use associated, Derived type: lisdomain, Component of Derived type definition: lisdec, Offset: 0, Alignment: full word 0-191.7$ da Use associated, Integer(4), Component of Derived type definition: listime, Offset: 88, Alignment: full word 0-191.7$ dfile Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 92, Alignment: byte 0-191.7$ domain Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 28, Alignment: full word 0-191.7$ doy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-191.7$ ecor Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 4, Alignment: full word 0-191.7$ eda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 48, Alignment: full word 0-191.7$ edoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 40, Alignment: full word 0-191.7$ egmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 132, Alignment: full word 0-191.7$ ehr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 44, Alignment: full word 0-191.7$ elev Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 12, Alignment: full word 0-191.7$ elev_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 296, Alignment: full word 0-191.7$ elevfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 520, Alignment: byte 0-191.7$ emn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 36, Alignment: full word 0-191.7$ emo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 52, Alignment: full word 0-191.7$ endcode Use associated, Integer(4), Component of Derived type definition: listime, Offset: 28, Alignment: full word 0-191.7$ endtime Use associated, Integer(4), Component of Derived type definition: listime, Offset: 104, Alignment: full word 0-191.7$ ess Use associated, Integer(4), Component of Derived type definition: listime, Offset: 32, Alignment: full word 0-191.7$ etime Use associated, Real(8), Component of Derived type definition: listime, Offset: 120, Alignment: double word 0-191.7$ expcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 20, Alignment: full word 0-191.7$ eyr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 56, Alignment: full word 0-191.7$ f Use associated, Derived type: lisforcing, Component of Derived type definition: lisdec, Offset: 344, Alignment: full word 0-191.7$ f00_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 60, Alignment: full word 0-191.7$ f06_flag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 64, Alignment: full word 0-191.7$ fidgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 36, Alignment: full word 0-191.7$ fidtm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 44, Alignment: full word 0-191.7$ findagrtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 52, Alignment: full word 0-191.7$ findagrtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 56, Alignment: full word 0-191.7$ findtime1 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 44, Alignment: full word 0-191.7$ findtime2 Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 48, Alignment: full word 0-191.7$ force Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 0, Alignment: full word 0-191.7$ foropen Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 28, Alignment: full word 0-191.7$ glbnch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 16, Alignment: full word 0-191.7$ glbngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 24, Alignment: full word 0-191.7$ gmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 128, Alignment: full word 0-191.7$ gnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 36, Alignment: full word 0-191.7$ gnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 40, Alignment: full word 0-191.7$ gpcpsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 68, Alignment: full word 0-191.7$ gridchange Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 24, Alignment: full word 0-191.7$ griddesc Use associated, Real(4) (1:50), Component of Derived type definition: lisdomain, Offset: 72, Alignment: full word 0-191.7$ hhmmss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 72, Alignment: full word 0-191.7$ hr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 92, Alignment: full word 0-191.7$ ic Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 52, Alignment: full word 0-191.7$ interp Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 28, Alignment: full word 0-191.7$ ir Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 56, Alignment: full word 0-191.7$ iscfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 480, Alignment: byte 0-191.7$ lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-191.7$ laiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 12, Alignment: full word 0-191.7$ laitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 560, Alignment: double word 0-191.7$ landcover Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 32, Alignment: full word 0-191.7$ latmax Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 32, Alignment: full word 0-191.7$ lc_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 320, Alignment: full word 0-191.7$ lis_module Use associated, Nonintrinsic Module 0-191.7$ 0-191.7 lisassimil Use associated, Derived type definition 0-191.7$ lisdec Use associated, Derived type definition 0-191.7$ lisdomain Use associated, Derived type definition 0-191.7$ lisforcing Use associated, Derived type definition 0-191.7$ lisoutput Use associated, Derived type definition 0-191.7$ lisparameters Use associated, Derived type definition 0-191.7$ listime Use associated, Derived type definition 0-191.7$ 0-193.8 lnc Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 44, Alignment: full word 0-191.7$ lnr Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 48, Alignment: full word 0-191.7$ longflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 40, Alignment: full word 0-191.7$ lsm Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 4, Alignment: full word 0-191.7$ maxt Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 60, Alignment: full word 0-191.7$ mfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 20, Alignment: byte 0-191.7$ mina Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 64, Alignment: full word 0-191.7$ mn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 96, Alignment: full word 0-191.7$ mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-191.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-191.7$ nch Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 0, Alignment: full word 0-191.7$ nf Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 12, Alignment: full word 0-191.7$ nforce Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 8, Alignment: full word 0-191.7$ ngrid Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 20, Alignment: full word 0-191.7$ nmif Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 16, Alignment: full word 0-191.7$ nt Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 4, Alignment: full word 0-191.7$ numoutf Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 32, Alignment: full word 0-191.7$ o Use associated, Derived type: lisoutput, Component of Derived type definition: lisdec, Offset: 1144, Alignment: full word 0-191.7$ odir Use associated, Character(40), Component of Derived type definition: lisoutput, Offset: 52, Alignment: byte 0-191.7$ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-191.7$ pda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 108, Alignment: full word 0-191.7$ po1file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 200, Alignment: byte 0-191.7$ po2file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 240, Alignment: byte 0-191.7$ po3file Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 280, Alignment: byte 0-191.7$ radsrc Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 72, Alignment: full word 0-191.7$ rbias Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 4, Alignment: full word 0-191.7$ rcgm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 40, Alignment: full word 0-191.7$ rctm Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 48, Alignment: full word 0-191.7$ rdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 12, Alignment: full word 0-191.7$ ribc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 8, Alignment: full word 0-191.7$ rpsas Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 0, Alignment: full word 0-191.7$ rsdbc Use associated, Integer(4), Component of Derived type definition: lisassimil, Offset: 16, Alignment: full word 0-191.7$ rstflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 20, Alignment: full word 0-191.7$ safile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 120, Alignment: byte 0-191.7$ saiflag Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 16, Alignment: full word 0-191.7$ saitime Use associated, Real(8), Component of Derived type definition: lisparameters, Offset: 568, Alignment: double word 0-191.7$ sda Use associated, Integer(4), Component of Derived type definition: listime, Offset: 16, Alignment: full word 0-191.7$ sdoy Use associated, Integer(4), Component of Derived type definition: listime, Offset: 4, Alignment: full word 0-191.7$ set_time Subroutine 0-190.12$ sgmt Use associated, Real(4), Component of Derived type definition: listime, Offset: 136, Alignment: full word 0-191.7$ shortflag Use associated, Integer(4), Component of Derived type definition: lisforcing, Offset: 36, Alignment: full word 0-191.7$ shr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 12, Alignment: full word 0-191.7$ sifile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 360, Alignment: byte 0-191.7$ slfile Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 320, Alignment: byte 0-191.7$ smn Use associated, Integer(4), Component of Derived type definition: listime, Offset: 8, Alignment: full word 0-191.7$ smo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 20, Alignment: full word 0-191.7$ soil Use associated, Integer(4), Component of Derived type definition: lisdomain, Offset: 8, Alignment: full word 0-191.7$ soil_griddesc Use associated, Real(4) (1:6), Component of Derived type definition: lisdomain, Offset: 272, Alignment: full word 0-191.7$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-191.7$ sss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 0, Alignment: full word 0-191.7$ startcode Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 24, Alignment: full word 0-191.7$ syr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 24, Alignment: full word 0-191.7$ t Use associated, Derived type: listime, Component of Derived type definition: lisdec, Offset: 1000, Alignment: double word 0-191.7$ time Reference argument, Intent (INOUT), Derived type: listime, Offset: 0, Alignment: double word 0-193.34$ 0-190.21 time Use associated, Real(8), Component of Derived type definition: listime, Offset: 112, Alignment: double word 0-191.7$ time%da Reference argument, Intent (INOUT), Integer(4), Offset: 88, Alignment: double word 0-193.34$ 0-196.3@ time%doy Reference argument, Integer(4), Offset: 76, Alignment: full word 0-193.34$ time%eda Reference argument, Integer(4), Offset: 48, Alignment: quadruple word 0-193.34$ time%edoy Reference argument, Integer(4), Offset: 40, Alignment: double word 0-193.34$ time%egmt Reference argument, Real(4), Offset: 132, Alignment: full word 0-193.34$ time%ehr Reference argument, Integer(4), Offset: 44, Alignment: full word 0-193.34$ time%emn Reference argument, Integer(4), Offset: 36, Alignment: full word 0-193.34$ time%emo Reference argument, Integer(4), Offset: 52, Alignment: full word 0-193.34$ time%endcode Reference argument, Integer(4), Offset: 28, Alignment: full word 0-193.34$ time%endtime Reference argument, Integer(4), Offset: 104, Alignment: double word 0-193.34$ time%ess Reference argument, Integer(4), Offset: 32, Alignment: quadruple word 0-193.34$ time%etime Reference argument, Real(8), Offset: 120, Alignment: double word 0-193.34$ time%eyr Reference argument, Integer(4), Offset: 56, Alignment: double word 0-193.34$ time%gmt Reference argument, Real(4), Offset: 128, Alignment: quadruple word 0-193.34$ time%hhmmss Reference argument, Integer(4), Offset: 72, Alignment: double word 0-193.34$ time%hr Reference argument, Intent (INOUT), Integer(4), Offset: 92, Alignment: full word 0-193.34$ 0-197.3@ time%mn Reference argument, Intent (INOUT), Integer(4), Offset: 96, Alignment: quadruple word 0-193.34$ 0-198.3@ time%mo Reference argument, Intent (INOUT), Integer(4), Offset: 84, Alignment: full word 0-193.34$ 0-195.3@ time%pda Reference argument, Integer(4), Offset: 108, Alignment: full word 0-193.34$ time%sda Reference argument, Intent (INOUT), Integer(4), Offset: 16, Alignment: quadruple word 0-193.34$ 0-196.12 time%sdoy Reference argument, Integer(4), Offset: 4, Alignment: full word 0-193.34$ time%sgmt Reference argument, Real(4), Offset: 136, Alignment: double word 0-193.34$ time%shr Reference argument, Intent (INOUT), Integer(4), Offset: 12, Alignment: full word 0-193.34$ 0-197.12 time%smn Reference argument, Intent (INOUT), Integer(4), Offset: 8, Alignment: double word 0-193.34$ 0-198.12 time%smo Reference argument, Intent (INOUT), Integer(4), Offset: 20, Alignment: full word 0-193.34$ 0-195.12 time%ss Reference argument, Intent (INOUT), Integer(4), Offset: 100, Alignment: full word 0-193.34$ 0-199.3@ time%sss Reference argument, Intent (INOUT), Integer(4), Offset: 0, Alignment: quadruple word 0-193.34$ 0-199.12 time%syr Reference argument, Intent (INOUT), Integer(4), Offset: 24, Alignment: double word 0-193.34$ 0-194.12 time%time Reference argument, Real(8), Offset: 112, Alignment: quadruple word 0-193.34$ time%ts Reference argument, Integer(4), Offset: 60, Alignment: full word 0-193.34$ time%tscount Reference argument, Integer(4), Offset: 64, Alignment: quadruple word 0-193.34$ time%yr Reference argument, Intent (INOUT), Integer(4), Offset: 80, Alignment: quadruple word 0-193.34$ 0-194.3@ time%yyyymmdd Reference argument, Integer(4), Offset: 68, Alignment: full word 0-193.34$ ts Use associated, Integer(4), Component of Derived type definition: listime, Offset: 60, Alignment: full word 0-191.7$ tscount Use associated, Integer(4), Component of Derived type definition: listime, Offset: 64, Alignment: full word 0-191.7$ udef Use associated, Real(4), Component of Derived type definition: lisdomain, Offset: 68, Alignment: full word 0-191.7$ vclass Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 8, Alignment: full word 0-191.7$ vfile Use associated, Character(50), Component of Derived type definition: lisparameters, Offset: 70, Alignment: byte 0-191.7$ wfor Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 0, Alignment: full word 0-191.7$ wout Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 8, Alignment: full word 0-191.7$ wparam Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 16, Alignment: full word 0-191.7$ wsingle Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 12, Alignment: full word 0-191.7$ wtil Use associated, Integer(4), Component of Derived type definition: lisoutput, Offset: 4, Alignment: full word 0-191.7$ yr Use associated, Integer(4), Component of Derived type definition: listime, Offset: 80, Alignment: full word 0-191.7$ yyyymmdd Use associated, Integer(4), Component of Derived type definition: listime, Offset: 68, Alignment: full word 0-191.7$ ** set_time === End of Compilation 3 === >>>>> 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 <<<<< 202 |!BOP 203 |! !ROUTINE: check_timestep 204 |! 205 |! !DESCRIPTION: 206 |! check timestep to make sure it is between 1 and 3600 207 |! 208 |! !INTERFACE: 209 |subroutine check_timestep(timestep) 210 |!EOP 211 | implicit none 212 | integer, intent(inout) ::timestep 213 | character :: ch=' ' 214 |!BOC 215 | if (timestep.gt.3600) then 216 | print *,'--------------------------------------' 217 | print *,'error, user timestep > 3600 seconds!!!' 218 | print *,'resetting lis%ts to 3600!!!!' 219 | print *,'--------------------------------------' 220 | timestep=3600 221 | endif 222 | if(timestep.lt.1) then 223 | print*,'Timestep can not be less than 1 minute, reset to 15 min.' 224 | timestep=15*60 225 | endif 226 | return 227 |!EOC 228 |end subroutine check_timestep >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES ch Static, Character(1), Offset: 0, Alignment: full word 0-213.16& check_timestep Subroutine 0-209.12$ timestep Reference argument, Intent (INOUT), Integer(4), Offset: 0, Alignment: full word 0-212.28$ 0-209.27 0-215.7 0-220.6@ 0-222.6 0-224.6@ ** check_timestep === End of Compilation 4 === >>>>> 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 <<<<< 229 | 230 |!BOP 231 |! !ROUTINE: openfile 232 |! 233 |! !DESCRIPTION: 234 |! This subroutine puts together a filename 235 |! 236 |! !REVISION HISTORY: 237 |! 4 Jan 2000: Paul Houser; Original Code 238 |! 239 |! !INTERFACE: 240 |subroutine openfile(name, odir, expcode, ffile) 241 | implicit none 242 |! !OUTPUT PARAMETERS: 243 | character*80, intent(out):: name 244 |! !INPUT PARAMETERS: 245 | character*40, intent(in):: odir, ffile 246 | integer, intent(in) :: expcode 247 | character*80 mkdir 248 |!EOP 249 | integer i,c,d,e 250 | character*1 fbase(80),fname(80),fcode(80),fmkdir(80) 251 | 252 | character (len=100) :: temp 253 |!=== End Variable Definition ============================================= 254 |!BOC 255 |!----------------------------------------------------------------------- 256 |! Put together filename 257 |!----------------------------------------------------------------------- 258 | write(unit=temp,fmt='(a40)') odir 259 | read(unit=temp,fmt='(80a1)') (fbase(i),i=1,80) 260 | c=0 261 | do i=1,80 262 | if(fbase(i).eq.(' ').and.c.eq.0)c=i-1 263 | enddo 264 | 265 | write(unit=temp,fmt='(a4,i3,a1)')'/EXP',expcode,'/' 266 | read(unit=temp,fmt='(80a1)')(fcode(i),i=1,80) 267 | d=0 268 | do i=1,80 269 | if(fcode(i).eq.(' ').and.d.eq.0)d=i-1 270 | enddo 271 | write(unit=temp,fmt='(a40)') ffile 272 | read(unit=temp,fmt='(80a1)')(fname(i),i=1,80) 273 | e=0 274 | do i=1,80 275 | if(fname(i).eq.(' ').and.e.eq.0)e=i-1 276 | enddo 277 | 278 | write(unit=temp,fmt='(80a1)')(fbase(i),i=1,c), & 279 | (fcode(i),i=1,d), (fname(i),i=1,e) 280 | read(unit=temp,fmt='(a80)') name 281 | write(unit=temp,fmt='(a9)')'mkdir -p ' 282 | read(unit=temp,fmt='(80a1)')(fmkdir(i),i=1,9) 283 |!----------------------------------------------------------------------- 284 |! Make the directories for the output files 285 |!----------------------------------------------------------------------- 286 | write(unit=temp,fmt='(80a1)')(fmkdir(i),i=1,9), & 287 | (fbase(i),i=1,c),(fcode(i),i=1,d) 288 | read(unit=temp,fmt='(a80)')mkdir 289 | call system(mkdir) 290 | return 291 |!EOC 292 |end subroutine openfile >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES c Automatic, Integer(4), Offset: 0, Alignment: full word 0-249.13$ 0-260.3@ 0-262.31 0-262.38@ 0-278.46 0-287.22 d Automatic, Integer(4), Offset: 0, Alignment: full word 0-249.15$ 0-267.3@ 0-269.31 0-269.38@ 0-279.22 0-287.39 e Automatic, Integer(4), Offset: 0, Alignment: full word 0-249.17$ 0-273.3@ 0-275.31 0-275.38@ 0-279.40 expcode Reference argument, Intent (IN), Integer(4), Offset: 0, Alignment: full word 0-246.26$ 0-240.33 0-265.43 fbase Automatic, Character(1) (1:80), Offset: 0, Alignment: full word 0-250.15$ 0-259.33@ 0-262.9 0-278.33 0-287.9 fcode Automatic, Character(1) (1:80), Offset: 0, Alignment: full word 0-250.35$ 0-266.32@ 0-269.9 0-279.9 0-287.26 ffile Reference argument, Intent (IN), Character(40), Offset: 0, Alignment: byte 0-245.36$ 0-240.42 0-271.32 fmkdir Automatic, Character(1) (1:80), Offset: 0, Alignment: full word 0-250.45$ 0-282.32@ 0-286.33 fname Automatic, Character(1) (1:80), Offset: 0, Alignment: full word 0-250.25$ 0-272.32@ 0-275.9 0-279.27 i Automatic, Integer(4), Offset: 0, Alignment: full word 0-249.11$ 0-259.39 0-259.42@ 0-261.6@ 0-262.15 0-262.40 0-266.38 0-266.41@ 0-268.6@ 0-269.15 0-269.40 0-272.38 0-272.41@ 0-274.6@ 0-275.15 0-275.40 0-278.39 0-278.42@ 0-279.15 0-279.18@ 0-279.33 0-279.36@ 0-282.39 0-282.42@ 0-286.40 0-286.43@ 0-287.15 0-287.18@ 0-287.32 0-287.35@ mkdir Automatic, Character(80), Offset: 0, Alignment: full word 0-247.16$ 0-288.30@ 0-289.15 name Reference argument, Intent (OUT), Character(80), Offset: 0, Alignment: byte 0-243.31$ 0-240.21 0-280.31@ odir Reference argument, Intent (IN), Character(40), Offset: 0, Alignment: byte 0-245.30$ 0-240.27 0-258.32 openfile Subroutine 0-240.12$ system Intrinsic 0-289.8 temp Automatic, Character(100), Offset: 0, Alignment: full word 0-252.26$ 0-258.14 0-259.13 0-265.14 0-266.13 0-271.14 0-272.13 0-278.14 0-280.13 0-281.14 0-282.13 0-286.14 0-288.13 ** openfile === End of Compilation 5 === >>>>> 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 ../core/readcard.F 03/09/11 11:04:49 >>>>> 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....................................... 292 1501-510 Compilation successful for file readcard.F. 1501-543 Object file created.