IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../domains/readdomain_default.F 03/09/11 11:04:50 >>>>> 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 "../domains/readdomain_default.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: readdomain_default 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 readdomain_default 49 |! !USES: 50 | use lisdrv_module, only : lis 51 | implicit none 52 |!EOP 53 | 54 |!=== Local Variables ===================================================== 55 | INTEGER :: I ! Loop Counter 56 | integer :: tl,k 57 | real :: run_dd(7) 58 | real :: param_dd(6) 59 | NAMELIST /run_domain/run_dd 60 | NAMELIST /param_domain/param_dd 61 | character :: ch=' ' 62 |!=== End Variable Definition ============================================= 63 |!BOC 64 | open(10,file='lis.crd',form='formatted',status='old') 65 | 66 | read(unit=10,NML=run_domain) 67 | read(unit=10,NML=param_domain) 68 | print*,'DOMAIN details:' 69 |!------------------------------------------------------------------------ 70 |! Read namelist of parameters depending on the domain 71 |!------------------------------------------------------------------------ 72 | lis%d%gridDesc(1) = run_dd(1) 73 | lis%d%gridDesc(4) = run_dd(2) 74 | lis%d%gridDesc(5) = run_dd(3) 75 | lis%d%gridDesc(7) = run_dd(4) 76 | lis%d%gridDesc(8) = run_dd(5) 77 | lis%d%gridDesc(9) = run_dd(6) 78 | lis%d%gridDesc(10) = run_dd(7) 79 | 80 | lis%d%gridDesc(41) = lis%d%gridDesc(1) 81 | lis%d%gridDesc(44) = param_dd(1) 82 | lis%d%gridDesc(45) = param_dd(2) 83 | lis%d%gridDesc(47) = param_dd(3) 84 | lis%d%gridDesc(48) = param_dd(4) 85 | lis%d%gridDesc(49) = param_dd(5) 86 | lis%d%gridDesc(50) = param_dd(6) 87 |! if(lis%d%gridDesc(1).eq.0) then 88 |! lis%d%gridDesc(10) = run_dd(7) 89 |! lis%d%gridDesc(50) = param_dd(5) 90 |! elseif(lis%d%gridDesc(1) .eq. 4 ) then 91 |! lis%d%gridDesc(10) = run_dd(7) 92 |! lis%d%gridDesc(50) = param_dd(6) 93 |! endif 94 |! lis%d%gridDesc(48) = param_dd(4) 95 |! lis%d%gridDesc(49) = param_dd(6) 96 | if(lis%d%gridDesc(1).eq.0) then 97 | lis%d%gridDesc(43) = nint((lis%d%gridDesc(47)-lis%d%gridDesc(44))/lis%d%gridDesc(49)) + 1 98 | lis%d%gridDesc(42) = nint((lis%d%gridDesc(48)-lis%d%gridDesc(45))/lis%d%gridDesc(50)) + 1 99 | elseif(lis%d%gridDesc(1).eq.4) then 100 | lis%d%gridDesc(43) = 2*lis%d%gridDesc(50) 101 | lis%d%gridDesc(42) = nint(360/param_dd(5)) 102 | endif 103 |#line 105 105 | if(lis%d%gridDesc(1).eq.0) then 106 | lis%d%gridDesc(6) = 128 107 | lis%d%gridDesc(11) = 64 108 | lis%d%gridDesc(20) = 255 109 | 110 | if(lis%d%gridDesc(7).le.lis%d%gridDesc(4)) then 111 | print*, 'lat2 must be greater than lat1' 112 | print*, 'Stopping run...' 113 | call endrun 114 | endif 115 | if(lis%d%gridDesc(8).le.lis%d%gridDesc(5)) then 116 | print*, 'lon2 must be greater than lon1' 117 | print*, 'Stopping run...' 118 | call endrun 119 | endif 120 |#line 143 143 | lis%d%gridDesc(2) = nint((lis%d%gridDesc(8)-lis%d%gridDesc(5))/lis%d%gridDesc(10))+ 1 144 | lis%d%gridDesc(3) = nint((lis%d%gridDesc(7)-lis%d%gridDesc(4))/lis%d%gridDesc(9)) + 1 145 | elseif(lis%d%gridDesc(1).eq.4) then 146 | lis%d%gridDesc(2) = nint(360/run_dd(6)) 147 | lis%d%gridDesc(3) = 2*lis%d%gridDesc(10) 148 | lis%d%gridDesc(6) = 128 149 | lis%d%gridDesc(11) = 64 150 | lis%d%gridDesc(20) = 255 151 | lis%d%gridDesc(46) = 128 152 | endif 153 | do k=1,13 154 | print*, '(',k,',',lis%d%gridDesc(k),')' 155 | enddo 156 | do k=41,50 157 | print*, '(',k,',',lis%d%gridDesc(k),')' 158 | enddo 159 | 160 | lis%d%lnc = lis%d%gridDesc(2) 161 | lis%d%lnr = lis%d%gridDesc(3) 162 | print*,'running domain','(',lis%d%lnc,lis%d%lnr,')' 163 | print*,'parameter domain','(',lis%d%gridDesc(42),lis%d%gridDesc(43),')' 164 | close(10) 165 | return 166 |!EOC 167 |end subroutine readdomain_default >>>>> 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$ ch Static, Character(1), Offset: 0, Alignment: full word 0-61.16& 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$ 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, Integer(4), Component of Derived type definition: listime, Offset: 76, Alignment: full word 0-50.7$ 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$ 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$ endrun External Subroutine 0-113.11 0-118.11 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$ 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, 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, 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-55.14$ 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$ k Automatic, Integer(4), Offset: 0, Alignment: full word 0-56.17$ 0-153.6@ 0-154.18 0-154.39 0-156.6@ 0-157.18 0-157.39 lai Use associated, Integer(4), Component of Derived type definition: lisparameters, Offset: 0, Alignment: full word 0-50.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 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$ lis%d%griddesc Use associated, Static, Real(4) (1:50), Offset: 72, Alignment: double word 0-72.3@ 0-73.3@ 0-74.3@ 0-75.3@ 0-76.3@ 0-77.3@ 0-78.3@ 0-80.3@ 0-80.24 0-81.3@ 0-82.3@ 0-83.3@ 0-84.3@ 0-85.3@ 0-86.3@ 0-96.6 0-97.6@ 0-97.33 0-97.52 0-97.72 0-98.6@ 0-98.33 0-98.52 0-98.72 0-99.10 0-100.6@ 0-100.29 0-101.6@ 0-105.6 0-106.6@ 0-107.6@ 0-108.6@ 0-110.6 0-110.27 0-115.6 0-115.27 0-143.3@ 0-143.29 0-143.47 0-143.66 0-144.3@ 0-144.29 0-144.47 0-144.66 0-145.10 0-146.7@ 0-147.7@ 0-147.29 0-148.7@ 0-149.7@ 0-150.7@ 0-151.7@ 0-154.24 0-157.24 0-160.15 0-161.15 0-163.33 0-163.52 lis%d%lnc Use associated, Static, Integer(4), Offset: 44, Alignment: full word 0-160.3@ 0-162.31 lis%d%lnr Use associated, Static, Integer(4), Offset: 48, Alignment: quadruple word 0-161.3@ 0-162.41 lis_module Use associated, Nonintrinsic Module 0-50.7$ 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$ mo Use associated, Integer(4), Component of Derived type definition: listime, Offset: 84, Alignment: full word 0-50.7$ modisdir Use associated, Character(40), Component of Derived type definition: lisparameters, Offset: 440, Alignment: byte 0-50.7$ 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$ nint Pure Intrinsic 0-97.27 0-98.27 0-101.27 0-143.23 0-144.23 0-146.27 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$ p Use associated, Derived type: lisparameters, Component of Derived type definition: lisdec, Offset: 424, Alignment: double word 0-50.7$ param_dd Automatic, Real(4) (1:6), Offset: 0, Alignment: full word 0-58.11$ 0-60.26 0-81.24 0-82.24 0-83.24 0-84.24 0-85.24 0-86.24 0-101.36 param_domain Namelist 0-60.13$ 0-67.20 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$ readdomain_default 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$ run_dd Automatic, Real(4) (1:7), Offset: 0, Alignment: full word 0-57.11$ 0-59.24 0-72.23 0-73.23 0-74.23 0-75.23 0-76.23 0-77.23 0-78.24 0-146.36 run_domain Namelist 0-59.13$ 0-66.20 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$ 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$ ss Use associated, Integer(4), Component of Derived type definition: listime, Offset: 100, Alignment: full word 0-50.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$ 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$ tl Automatic, Integer(4), Offset: 0, Alignment: full word 0-56.14$ 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$ 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, 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$ ** readdomain_default === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../domains/readdomain_default.F 03/09/11 11:04:50 >>>>> 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....................................... 145 1501-510 Compilation successful for file readdomain_default.F. 1501-543 Object file created.