Page 1 Source Listing FIXED 2014-12-17 20:47 FIXED.f 1 SUBROUTINE FIXED(IMOUT,JMOUT) 2 C 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . 5 C SUBPROGRAM: FIXED POSTS FIXED FIELDS 6 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-08-30 7 C 8 C ABSTRACT: THIS ROUTINE POSTS FIXED (IE, TIME INDEPENDENT) 9 C ETA MODEL FIELDS. 10 C . 11 C 12 C PROGRAM HISTORY LOG: 13 C 93-08-30 RUSS TREADON 14 C 96-04-05 MIKE BALDWIN - CHANGED ALBEDO CALC 15 C 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D 16 C 98-07-17 MIKE BALDWIN - REMOVED LABL84 17 C 00-01-05 JIM TUCCILLO - MPI VERSION 18 C 03-01-27 CHUANG AND EK- ADD SNOW FREE AND MAX SNOW ALBEDO 19 C 20 C USAGE: CALL FIXED(IMOUT,JMOUT) 21 C INPUT ARGUMENT LIST: 22 C IMOUT - FIRST DIMENSION OF OUTPUT GRID. 23 C JMOUT - SECOND DIMENSION OF OUTPUT GRID. 24 C 25 C OUTPUT ARGUMENT LIST: 26 C NONE 27 C 28 C OUTPUT FILES: 29 C NONE 30 C 31 C SUBPROGRAMS CALLED: 32 C UTILITIES: 33 C NONE 34 C LIBRARY: 35 C COMMON - LOOPS 36 C MASKS 37 C LLGRDS 38 C RQSTFLD 39 C PHYS 40 C 41 C ATTRIBUTES: 42 C LANGUAGE: FORTRAN 43 C MACHINE : CRAY C-90 44 C$$$ 45 C 46 C INCLUDE/DECLARE PARAMETERS. 47 C 48 INCLUDE "parmeta" 66 INCLUDE "parmout" 70 INCLUDE "parm.tbl" 72 INCLUDE "params" 114 INCLUDE "parmsoil" 115 C 116 cek PARAMETER (SNOALB=0.55) 117 C 118 C DECLARE VARIABLES 120 REAL EGRID1(IM,JM),EGRID2(IM,JM) Page 2 Source Listing FIXED 2014-12-17 20:47 FIXED.f 121 REAL GRID1(IMOUT,JMOUT),GRID2(IMOUT,JMOUT) 122 C 123 C INCLUDE COMMON BLOCKS. 124 C 125 INCLUDE "LOOPS.comm" 133 INCLUDE "LLGRDS.comm" 147 INCLUDE "MASKS.comm" 155 INCLUDE "RQSTFLD.comm" 168 INCLUDE "PHYS.comm" 189 INCLUDE "PVRBLS.comm" 201 INCLUDE "SOIL.comm" 210 INCLUDE "CTLBLK.comm" 211 C 212 C 213 C******************************************************************** 214 C 215 C START FIXED HERE. 216 C 217 C LATITUDE (OUTPUT GRID). 232 IF (IGET(048).GT.0) THEN 233 DO J = 1,JMOUT 234 DO I = 1,IMOUT 235 GRID1(I,J) = GDLAT(I,J) 236 END DO 237 END DO 238 ID(1:25) = 0 239 CALL OUTPUT(IOUTYP,IGET(048),LVLS(1,IGET(048)), 240 X GRID1,IMOUT,JMOUT) 241 ENDIF 242 C 243 C LONGITUDE (OUTPUT GRID). CONVERT TO EAST 244 IF (IGET(049).GT.0) THEN 245 DO J = 1,JMOUT 246 DO I = 1,IMOUT 247 GRID1(I,J) = 360. - GDLON(I,J) 248 END DO 249 END DO 250 ID(1:25) = 0 251 CALL OUTPUT(IOUTYP,IGET(049),LVLS(1,IGET(049)), 252 X GRID1,IMOUT,JMOUT) 253 ENDIF 254 C 255 C LAND/SEA MASK. 256 IF (IGET(050).GT.0) THEN 257 DO J = JSTA,JEND 258 DO I = 1,IM 259 EGRID1(I,J) = 1. - SM(I,J) 260 ENDDO 261 ENDDO 262 CALL E2OUT(050,000,EGRID1,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 263 ID(1:25) = 0 264 CALL OUTPUT(IOUTYP,IGET(050),LVLS(1,IGET(050)), 265 X GRID1,IMOUT,JMOUT) 266 ENDIF 267 C 268 C SEA ICE MASK. 269 IF (IGET(051).GT.0) THEN Page 3 Source Listing FIXED 2014-12-17 20:47 FIXED.f 270 CALL E2OUT(051,000,SICE,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 271 ID(1:25) = 0 272 CALL OUTPUT(IOUTYP,IGET(051),LVLS(1,IGET(051)), 273 X GRID1,IMOUT,JMOUT) 274 ENDIF 275 C 276 C MASS POINT ETA SURFACE MASK. 277 IF (IGET(052).GT.0) THEN 278 DO J=JSTA,JEND 279 DO I=1,IM 280 EGRID1(I,J) = FLOAT(LMH(I,J)) 281 ENDDO 282 ENDDO 283 CALL E2OUT(052,000,EGRID1,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 284 ID(1:25) = 0 285 CALL OUTPUT(IOUTYP,IGET(052),LVLS(1,IGET(052)), 286 X GRID1,IMOUT,JMOUT) 287 ENDIF 288 C 289 C VELOCITY POINT ETA SURFACE MASK. 290 IF (IGET(053).GT.0) THEN 291 DO J=JSTA,JEND 292 DO I=1,IM 293 EGRID1(I,J) = FLOAT(LMV(I,J)) 294 ENDDO 295 ENDDO 296 CALL E2OUT(053,000,EGRID1,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 297 ID(1:25) = 0 298 CALL OUTPUT(IOUTYP,IGET(053),LVLS(1,IGET(053)), 299 X GRID1,IMOUT,JMOUT) 300 ENDIF 301 C 302 C SURFACE ALBEDO. 303 C 304 IF (IGET(150).GT.0) THEN 305 DO J=JSTA,JEND 306 DO I=1,IM 307 EGRID1(I,J)=ALBEDO(I,J) 308 ENDDO 309 ENDDO 310 CALL E2OUT(150,000,EGRID1,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 311 ID(1:25) = 0 312 CALL SCLFLD(GRID1,100.,IMOUT,JMOUT) 313 CALL OUTPUT(IOUTYP,IGET(150),LVLS(1,IGET(150)), 314 X GRID1,IMOUT,JMOUT) 315 ENDIF 316 ! ADD SNOW FREE ALBEDO 317 IF (IGET(226).GT.0) THEN 318 CALL E2OUT(226,000,ALBASE,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 319 ID(1:25) = 0 320 ID(02)=130 321 CALL SCLFLD(GRID1,100.,IMOUT,JMOUT) 322 CALL OUTPUT(IOUTYP,IGET(226),LVLS(1,IGET(226)), 323 X GRID1,IMOUT,JMOUT) 324 ENDIF 325 ! ADD MAX SNOW ALBEDO 326 IF (IGET(227).GT.0) THEN Page 4 Source Listing FIXED 2014-12-17 20:47 FIXED.f 327 DO J=JSTA,JEND 328 DO I=1,IM 329 c sea point, albedo=0.06 same as snow free albedo 330 IF( (abs(SM(I,J)-1.) .lt. 1.0E-5) ) THEN 331 RMXSNAL(I,J)=0.06 332 c sea-ice point, albedo=0.60, same as snow free albedo 333 ELSEIF( (abs(SM(I,J)-0.) .lt. 1.0E-5) .AND. 334 & (abs(SICE(I,J)-1.) .lt. 1.0E-5) ) THEN 335 RMXSNAL(I,J)=0.60 336 ENDIF 337 ENDDO 338 ENDDO 339 c 340 CALL E2OUT(227,000,RMXSNAL,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 341 ID(1:25) = 0 342 ID(02)=130 343 CALL SCLFLD(GRID1,100.,IMOUT,JMOUT) 344 CALL OUTPUT(IOUTYP,IGET(227),LVLS(1,IGET(227)), 345 X GRID1,IMOUT,JMOUT) 346 ENDIF 347 ! 348 C IF (IGET(227).GT.0) THEN 349 ! icount=0 350 ! do j=jsta,jend 351 ! do i=1,im 352 ! print*,'SAMPLE MXSNAL',i,j, 353 ! + RMXSNAL(i,j) 354 c icount=icount+1 355 c if(icount.gt.200)go to 51 356 ! end do 357 ! end do 358 c 51 continue 359 C CALL E2OUT(227,000,RMXSNAL,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 360 C ID(1:25) = 0 361 C ID(02)=130 362 C CALL SCLFLD(GRID1,100.,IMOUT,JMOUT) 363 C CALL OUTPUT(IOUTYP,IGET(227),LVLS(1,IGET(227)), 364 C X GRID1,IMOUT,JMOUT) 365 C ENDIF 366 C 367 C SEA SURFACE TEMPERAURE. 368 IF (IGET(151).GT.0) THEN 369 CALL E2OUT(151,000,SST,EGRID2,GRID1,GRID2,IMOUT,JMOUT) 370 ID(1:25) = 0 371 CALL OUTPUT(IOUTYP,IGET(151),LVLS(1,IGET(151)), 372 X GRID1,IMOUT,JMOUT) 373 ENDIF 374 C 375 C END OF ROUTINE. 376 C 377 RETURN 378 END Page 5 Source Listing FIXED 2014-12-17 20:47 Entry Points FIXED.f ENTRY POINTS Name fixed_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A2 Param 41 R(4) 4 scalar A3 Param 41 R(4) 4 scalar A4 Param 41 R(4) 4 scalar ABS Func 175 scalar 175,178,179 ACCLIQ Scalar 7 R(4) 4 2 91719 COM ACPREC Scalar 7 R(4) 4 2 91719 COM AD05 Param 33 R(4) 4 scalar AETA Scalar 7 R(4) 4 1 45 COM AKHS Scalar 3 R(4) 4 2 91719 COM AKMS Scalar 3 R(4) 4 2 91719 COM ALBASE Scalar 14 R(4) 4 2 91719 COM 163 ALBEDO Scalar 15 R(4) 4 2 91719 COM 152 AVBL Scalar 2 CHAR 20 1 250 COM BETA Param 37 R(4) 4 scalar 37 BTG Param 37 R(4) 4 scalar CAPA Param 28 R(4) 4 scalar 35 CFT0 Param 33 R(4) 4 scalar CI Scalar 4 R(4) 4 scalar COM CLDEFI Scalar 6 R(4) 4 2 91719 COM CM1 Param 23 R(4) 4 scalar CM2 Param 23 R(4) 4 scalar CM3 Param 23 R(4) 4 scalar CMC Scalar 6 R(4) 4 2 91719 COM CP Param 34 R(4) 4 scalar 36,40 CPDR Param 36 R(4) 4 scalar CS Scalar 4 R(4) 4 scalar COM CTLBLK Common 2 96 CUPREC Scalar 7 R(4) 4 2 91719 COM CZEN Scalar 12 R(4) 4 2 91719 COM CZMEAN Scalar 16 R(4) 4 2 91719 COM D00 Param 25 R(4) 4 scalar D001 Param 25 R(4) 4 scalar D0065 Param 29 R(4) 4 scalar D01 Param 25 R(4) 4 scalar D05 Param 29 R(4) 4 scalar 33 D1 Param 25 R(4) 4 scalar D115 Param 29 R(4) 4 scalar D125 Param 27 R(4) 4 scalar D25 Param 27 R(4) 4 scalar D50 Param 25 R(4) 4 scalar D608 Param 29 R(4) 4 scalar DATSET Scalar 3 CHAR 6 scalar COM DEC Scalar 8 R(4) 4 1 250 COM DETA Scalar 7 R(4) 4 1 45 COM Page 6 Source Listing FIXED 2014-12-17 20:47 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References DFRLG Scalar 7 R(4) 4 1 46 COM DI Scalar 4 R(4) 4 scalar COM DP10M Param 35 R(4) 4 scalar DS Scalar 4 R(4) 4 scalar COM DT Scalar 4 R(4) 4 scalar COM DTD Scalar 3 R(4) 4 scalar COM DTQ2 Scalar 3 R(4) 4 scalar COM DTR Param 34 R(4) 4 scalar 34 E2OUT Subr 107 107,115,128,141,155,163,185,214 EGRDI Scalar 9 R(4) 4 2 91719 COM EGRDJ Scalar 9 R(4) 4 2 91719 COM EGRID1 Local 57 R(4) 4 2 91719 104,107,125,128,138,141,152,155 EGRID2 Local 57 R(4) 4 2 91719 107,115,128,141,155,163,185,214 ELDR Param 36 R(4) 4 scalar ELWDWN Scalar 13 R(4) 4 2 91719 COM ELWV Param 36 R(4) 4 scalar 36 EPS Param 39 R(4) 4 scalar 39 EPSQ2 Param 40 R(4) 4 scalar EPSR Scalar 11 R(4) 4 2 91719 COM ERAD Param 34 R(4) 4 scalar EVLAT Scalar 8 R(4) 4 2 91762 COM EVLON Scalar 8 R(4) 4 2 91762 COM FIELD Scalar 2 CHAR 20 1 250 COM FIRST Scalar 3 R(4) 4 scalar COM FIXED Subr 1 FLOAT Func 125 scalar 125,138 FMD Param 39 R(4) 4 scalar 39 FMW Param 39 R(4) 4 scalar 39 FVTLON Scalar 7 R(4) 4 2 91762 COM G Param 32 R(4) 4 scalar 32 GDLAT Scalar 3 R(4) 4 2 91719 COM 80 GDLON Scalar 3 R(4) 4 2 91719 COM 92 GDTLAT Scalar 4 R(4) 4 2 91719 COM GDTLON Scalar 4 R(4) 4 2 91719 COM GFFC Scalar 14 R(4) 4 2 91719 COM GI Param 32 R(4) 4 scalar 36 GLAT Scalar 12 R(4) 4 2 91719 COM GLON Scalar 12 R(4) 4 2 91719 COM GRID1 Local 58 R(4) 4 2 0 80,85,92,97,107,110,115,118,128,13 1,141,144,155,157,159,163,166,168, 185,188,190,214,217 GRID2 Local 58 R(4) 4 2 0 107,115,128,141,155,163,185,214 GRNFLX Scalar 4 R(4) 4 2 91719 COM H1 Param 26 R(4) 4 scalar 33 H100 Param 27 R(4) 4 scalar H1000 Param 27 R(4) 4 scalar H10000 Param 28 R(4) 4 scalar H10E5 Param 28 R(4) 4 scalar H1E2 Param 30 R(4) 4 scalar H1E4 Param 30 R(4) 4 scalar H1M12 Param 26 R(4) 4 scalar H1M2 Param 30 R(4) 4 scalar H1M5 Param 27 R(4) 4 scalar H2 Param 26 R(4) 4 scalar H4 Param 26 R(4) 4 scalar Page 7 Source Listing FIXED 2014-12-17 20:47 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References H999 Param 25 R(4) 4 scalar H99999 Param 26 R(4) 4 scalar HBM2 Scalar 3 R(4) 4 2 91719 COM HBOT Scalar 13 R(4) 4 2 91719 COM HDAC Scalar 16 R(4) 4 2 91719 COM HDACV Scalar 16 R(4) 4 2 91719 COM HTLAT Scalar 5 R(4) 4 2 91719 COM HTLON Scalar 5 R(4) 4 2 91719 COM HTM Scalar 5 R(4) 4 3 4127355 COM HTOP Scalar 13 R(4) 4 2 91719 COM I Local 79 I(4) 4 scalar 79,80,91,92,103,104,124,125,137,13 8,151,152,173,175,176,178,179,180 ICNT Scalar 7 I(4) 4 1 1024 COM ID Scalar 11 I(4) 4 1 25 COM 83,95,108,116,129,142,156,164,165, 186,187,215 IDAT Scalar 3 I(4) 4 1 3 COM IDENT Scalar 10 I(4) 4 1 250 COM IDIM1 Param 14 I(4) 4 scalar IDIM2 Param 14 I(4) 4 scalar IDN Scalar 7 I(4) 4 scalar COM IDSP Scalar 7 I(4) 4 1 1024 COM IDTAD Scalar 4 I(4) 4 scalar COM IEGRD Scalar 10 I(4) 4 2 91719 COM IEGRDK Scalar 6 I(4) 4 2 91719 COM IFILV Scalar 11 I(4) 4 1 250 COM IGET Scalar 8 I(4) 4 1 250 COM 77,84,89,96,101,109,114,117,122,13 0,135,143,149,158,162,167,171,189, 213,216 IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHHA Scalar 3 I(4) 4 1 760 COM IHLA Scalar 3 I(4) 4 1 760 COM IHRST Scalar 3 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 3,4,5,6,7,9,11,12,13,14,15,16,57,1 03,124,137,151,173 IM1 Param 6 I(4) 4 scalar IMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 58,79,85,91,97,107,110,115,118,128 ,131,141,144,155,157,159,163,166,1 68,185,188,190,214,217 IMT Param 4 I(4) 4 scalar 7,8 IMX Param 3 I(4) 4 scalar 3,4,9,10,11,12 INPES Param 6 I(4) 4 scalar 11,14 IOUT Scalar 3 I(4) 4 scalar COM IOUTYP Scalar 8 I(4) 4 scalar COM 84,96,109,117,130,143,158,167,189, 216 IQ Scalar 9 I(4) 4 1 250 COM IS Scalar 9 I(4) 4 1 250 COM ISLOPE Scalar 5 I(4) 4 2 91719 COM ISLTYP Scalar 5 I(4) 4 2 91719 COM ISMFUL Scalar 9 I(4) 4 1 250 COM ISMOUT Scalar 10 I(4) 4 1 250 COM ISMSTG Scalar 9 I(4) 4 1 250 COM ITAIL Param 11 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 8,18 ITBQ Param 1 I(4) 4 scalar 9,18 Page 8 Source Listing FIXED 2014-12-17 20:47 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References IUP Scalar 7 I(4) 4 scalar COM IVGTYP Scalar 5 I(4) 4 2 91719 COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IWGT Scalar 11 I(4) 4 2 91719 COM J Local 78 I(4) 4 scalar 78,80,90,92,102,104,123,125,136,13 8,150,152,172,175,176,178,179,180 JAM Param 6 I(4) 4 scalar 3 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEGRD Scalar 10 I(4) 4 2 91719 COM JEGRDK Scalar 6 I(4) 4 2 91719 COM JEND Scalar 6 I(4) 4 scalar COM 102,123,136,150,172 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM JEND_M2 Scalar 7 I(4) 4 scalar COM JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JM Param 3 I(4) 4 scalar 3,4,5,6,7,9,11,12,13,14,15,16,57 JM2 Param 6 I(4) 4 scalar JMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 58,78,85,90,97,107,110,115,118,128 ,131,141,144,155,157,159,163,166,1 68,185,188,190,214,217 JMT Param 4 I(4) 4 scalar 7,8 JMX Param 3 I(4) 4 scalar 3,4,9,10,11,12 JNPES Param 6 I(4) 4 scalar 12,15 JRA Scalar 3 I(4) 4 1 760 COM JSTA Scalar 6 I(4) 4 scalar COM 102,123,136,150,172 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM JSTA_M2 Scalar 7 I(4) 4 scalar COM JTAIL Param 12 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 8,18 JTBQ Param 1 I(4) 4 scalar 18 KGTYPE Scalar 8 I(4) 4 scalar COM KSAV Param 14 I(4) 4 scalar KSFI Param 13 I(4) 4 scalar KSLI Param 14 I(4) 4 scalar KSLP Param 14 I(4) 4 scalar KSLPD Param 13 I(4) 4 scalar KSMUD Param 13 I(4) 4 scalar KSRH Param 14 I(4) 4 scalar KSSLP Param 13 I(4) 4 scalar KST Param 13 I(4) 4 scalar KSUV Param 14 I(4) 4 scalar KTM Scalar 3 I(4) 4 scalar COM LB Param 9 I(4) 4 scalar LHEAT Param 40 I(4) 4 scalar 40 LHTOCP Param 40 I(4) 4 scalar LIST Scalar 3 I(4) 4 scalar COM LLGRDS Common 2 8071788 LM Param 3 I(4) 4 scalar 3,5,7,8,9,19 LM1 Param 8 I(4) 4 scalar LMH Scalar 5 I(4) 4 2 91719 COM 125 LMV Scalar 5 I(4) 4 2 91719 COM 138 Page 9 Source Listing FIXED 2014-12-17 20:47 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References LOOPS Common 2 748952 LP1 Param 8 I(4) 4 scalar 7 LSM Param 3 I(4) 4 scalar LVLS Scalar 10 I(4) 4 2 11250 COM 84,96,109,117,130,143,158,167,189, 216 MASKS Common 2 34853220 ME Scalar 6 I(4) 4 scalar COM MXFLD Param 3 I(4) 4 scalar 2,8,9,10,11 MXLVL Param 3 I(4) 4 scalar 10 NBC Scalar 3 I(4) 4 scalar COM NBOCO Scalar 4 I(4) 4 scalar COM NCP Scalar 4 I(4) 4 scalar COM NDDAMP Scalar 4 I(4) 4 scalar COM NFCST Scalar 3 I(4) 4 scalar COM NFLD Scalar 8 I(4) 4 scalar COM NINC Param 7 I(4) 4 scalar NPHS Scalar 5 I(4) 4 scalar COM NPREC Scalar 4 I(4) 4 scalar COM NRADL Scalar 5 I(4) 4 scalar COM NRADS Scalar 5 I(4) 4 scalar COM NROOT Param 1 I(4) 4 scalar NSHDE Scalar 4 I(4) 4 scalar COM NSOIL Param 1 I(4) 4 scalar 6,7 NSTAT Param 19 I(4) 4 scalar NSUMD Param 15 I(4) 4 scalar NTSD Scalar 4 I(4) 4 scalar COM NTSTM Scalar 4 I(4) 4 scalar COM NUM_PROCS Scalar 6 I(4) 4 scalar COM NWORD Param 19 I(4) 4 scalar 19 NWORD3 Param 19 I(4) 4 scalar NWORD6 Param 19 I(4) 4 scalar ONEPS Param 39 R(4) 4 scalar OUTPUT Subr 84 84,96,109,117,130,143,158,167,189, 216 OVERRC Param 33 R(4) 4 scalar 33 P1000 Param 35 R(4) 4 scalar PARALLEL Common 9 8240 PCTSNO Scalar 4 R(4) 4 2 91719 COM PHYS Common 2 7690036 PL Scalar 5 R(4) 4 scalar COM PLQ Scalar 6 R(4) 4 scalar COM PQ0 Param 41 R(4) 4 scalar PREC Scalar 7 R(4) 4 2 91719 COM PT Scalar 3 R(4) 4 scalar COM PTBL Scalar 18 R(4) 4 2 10184 COM PVRBLS Common 2 23480064 Q2 Scalar 9 R(4) 4 3 4127355 COM QS Scalar 3 R(4) 4 2 91719 COM QS0 Scalar 8 R(4) 4 1 134 COM QWBS Scalar 5 R(4) 4 2 91719 COM QZ0 Scalar 4 R(4) 4 2 91719 COM RADIN Scalar 11 R(4) 4 2 91719 COM RADOT Scalar 11 R(4) 4 2 91719 COM RCAPA Param 35 R(4) 4 scalar RD Param 32 R(4) 4 scalar 32,36,40 Page 10 Source Listing FIXED 2014-12-17 20:47 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References RDOCP Param 40 R(4) 4 scalar RDP Scalar 5 R(4) 4 scalar COM RDPQ Scalar 6 R(4) 4 scalar COM RDQ Scalar 5 R(4) 4 scalar COM RDTH Scalar 5 R(4) 4 scalar COM RDTHE Scalar 5 R(4) 4 scalar COM RDTHEQ Scalar 6 R(4) 4 scalar COM RESTRT Scalar 3 R(4) 4 scalar COM RF Scalar 5 R(4) 4 2 91719 COM RG Param 36 R(4) 4 scalar RITE2 Scalar 5 L(4) 4 scalar COM RITEHD Scalar 5 L(4) 4 scalar COM RMXSNAL Scalar 11 R(4) 4 2 91719 COM 176,180,185 ROG Param 32 R(4) 4 scalar ROI Scalar 4 R(4) 4 scalar COM ROS Scalar 4 R(4) 4 scalar COM RQSTFLD Common 7 64130 RTD Param 34 R(4) 4 scalar RTDPTH Scalar 7 R(4) 4 1 4 COM RUN Scalar 3 R(4) 4 scalar COM SCLFLD Subr 157 157,166,188 SFCEXC Scalar 3 R(4) 4 2 91719 COM SH2O Scalar 7 R(4) 4 3 366876 COM SI Scalar 6 R(4) 4 2 91719 COM SICE Scalar 3 R(4) 4 2 91719 COM 115,179 SIGMA Scalar 3 R(4) 4 scalar COM SIGT4 Scalar 16 R(4) 4 2 91719 COM SLDPTH Scalar 7 R(4) 4 1 4 COM SM Scalar 3 R(4) 4 2 91719 COM 104,175,178 SMC Scalar 6 R(4) 4 3 366876 COM SMSTAV Scalar 3 R(4) 4 2 91719 COM SMSTOT Scalar 3 R(4) 4 2 91719 COM SMTHA Param 15 R(4) 4 scalar SMTHB Param 15 R(4) 4 scalar SNO Scalar 6 R(4) 4 2 91719 COM SOIL Common 2 8438180 SOILTB Scalar 3 R(4) 4 2 91719 COM SQS Scalar 8 R(4) 4 1 134 COM SST Scalar 14 R(4) 4 2 91719 COM 214 STC Scalar 6 R(4) 4 3 366876 COM STHE Scalar 8 R(4) 4 1 76 COM STHEQ Scalar 9 R(4) 4 1 152 COM SVALUE Scalar 8 R(4) 4 scalar COM SWNET Scalar 12 R(4) 4 2 91719 COM TDTD Scalar 3 R(4) 4 scalar COM TDTQ2 Scalar 3 R(4) 4 scalar COM TFRZ Param 39 R(4) 4 scalar TG Scalar 14 R(4) 4 2 91719 COM THE0 Scalar 8 R(4) 4 1 76 COM THE0Q Scalar 9 R(4) 4 1 152 COM THL Scalar 5 R(4) 4 scalar COM THS Scalar 3 R(4) 4 2 91719 COM THZ0 Scalar 4 R(4) 4 2 91719 COM TTBL Scalar 18 R(4) 4 2 10184 COM TTBLQ Scalar 18 R(4) 4 2 66880 COM Page 11 Source Listing FIXED 2014-12-17 20:47 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References TWBS Scalar 5 R(4) 4 2 91719 COM UZ0 Scalar 4 R(4) 4 2 91719 COM VBM2 Scalar 3 R(4) 4 2 91719 COM VBM3 Scalar 3 R(4) 4 2 91719 COM VEGFRC Scalar 5 R(4) 4 2 91719 COM VTLAT Scalar 7 R(4) 4 2 91719 COM VTLON Scalar 7 R(4) 4 2 91719 COM VTM Scalar 5 R(4) 4 3 4127355 COM VZ0 Scalar 4 R(4) 4 2 91719 COM WIJ Scalar 11 R(4) 4 2 91719 COM WIJP Scalar 12 R(4) 4 2 91719 COM WIPJ Scalar 11 R(4) 4 2 91719 COM WIPJP Scalar 12 R(4) 4 2 91719 COM Z0 Scalar 3 R(4) 4 2 91719 COM Page 12 Source Listing FIXED 2014-12-17 20:47 FIXED.f 379 Page 13 Source Listing FIXED 2014-12-17 20:47 Subprograms/Common Blocks FIXED.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 FIXED Subr 1 LLGRDS Common 2 8071788 LOOPS Common 2 748952 MASKS Common 2 34853220 PARALLEL Common 9 8240 PHYS Common 2 7690036 PVRBLS Common 2 23480064 RQSTFLD Common 7 64130 SOIL Common 2 8438180 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ Page 14 Source Listing FIXED 2014-12-17 20:47 FIXED.f -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model noprecise -fp_model fast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/,.f,./.f,/usrx/local/intel/composerxe/mkl/include/.f, /usrx/local/intel/composerxe/tbb/include/.f,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/.f,/usr/local/include/.f,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/.f, /usr/include/.f,/usr/include/.f -list filename : FIXED.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100