Page 1 Source Listing FIXED 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 Entry Points FIXED.f ENTRY POINTS Name fixed_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A2 Param 113 R(4) 4 scalar A3 Param 113 R(4) 4 scalar A4 Param 113 R(4) 4 scalar ABS Func 330 scalar 330,333,334 AD05 Param 105 R(4) 4 scalar BETA Param 109 R(4) 4 scalar 109 BTG Param 109 R(4) 4 scalar CAPA Param 100 R(4) 4 scalar 107 CFT0 Param 105 R(4) 4 scalar CM1 Param 95 R(4) 4 scalar CM2 Param 95 R(4) 4 scalar CM3 Param 95 R(4) 4 scalar CP Param 106 R(4) 4 scalar 108,112 CPDR Param 108 R(4) 4 scalar CTLBLK Common 219 96 SAVE D00 Param 97 R(4) 4 scalar D001 Param 97 R(4) 4 scalar D0065 Param 101 R(4) 4 scalar D01 Param 97 R(4) 4 scalar D05 Param 101 R(4) 4 scalar 105 D1 Param 97 R(4) 4 scalar D115 Param 101 R(4) 4 scalar D125 Param 99 R(4) 4 scalar D25 Param 99 R(4) 4 scalar D50 Param 97 R(4) 4 scalar D608 Param 101 R(4) 4 scalar DP10M Param 107 R(4) 4 scalar DTR Param 106 R(4) 4 scalar 106 E2OUT Subr 262 262,270,283,296,310,318,340,369 EGRID1 Local 120 R(4) 4 2 91719 259,262,280,283,293,296,307,310 EGRID2 Local 120 R(4) 4 2 91719 262,270,283,296,310,318,340,369 ELDR Param 108 R(4) 4 scalar ELWV Param 108 R(4) 4 scalar 108 EPS Param 111 R(4) 4 scalar 111 EPSQ2 Param 112 R(4) 4 scalar ERAD Param 106 R(4) 4 scalar FIXED Subr 1 FLOAT Func 280 scalar 280,293 FMD Param 111 R(4) 4 scalar 111 FMW Param 111 R(4) 4 scalar 111 G Param 104 R(4) 4 scalar 104 GI Param 104 R(4) 4 scalar 108 GRID1 Local 121 R(4) 4 2 0 235,240,247,252,262,265,270,273,28 3,286,296,299,310,312,314,318,321, Page 6 Source Listing FIXED 2025-03-12 18:23 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References 323,340,343,345,369,372 GRID2 Local 121 R(4) 4 2 0 262,270,283,296,310,318,340,369 H1 Param 98 R(4) 4 scalar 105 H100 Param 99 R(4) 4 scalar H1000 Param 99 R(4) 4 scalar H10000 Param 100 R(4) 4 scalar H10E5 Param 100 R(4) 4 scalar H1E2 Param 102 R(4) 4 scalar H1E4 Param 102 R(4) 4 scalar H1M12 Param 98 R(4) 4 scalar H1M2 Param 102 R(4) 4 scalar H1M5 Param 99 R(4) 4 scalar H2 Param 98 R(4) 4 scalar H4 Param 98 R(4) 4 scalar H999 Param 97 R(4) 4 scalar H99999 Param 98 R(4) 4 scalar I Local 234 I(4) 4 scalar 234,235,246,247,258,259,279,280,29 2,293,306,307,328,330,331,333,334, 335 IDIM1 Param 62 I(4) 4 scalar IDIM2 Param 62 I(4) 4 scalar IGSTL Param 57 I(4) 4 scalar 62 IGSTR Param 57 I(4) 4 scalar 62 IM Param 51 I(4) 4 scalar 59,62,69,76,78,79,81,120,130,138,1 39,140,150,152,179,180,181,182,183 ,184,192,193,194,195,196,198,204,2 05,206,207,208,258,279,292,306,328 IM1 Param 78 I(4) 4 scalar IMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 121,234,240,246,252,262,265,270,27 3,283,286,296,299,310,312,314,318, 321,323,340,343,345,369,372 IMT Param 76 I(4) 4 scalar 140,141 IMX Param 69 I(4) 4 scalar 136,137,142,143,144,145 INPES Param 54 I(4) 4 scalar 59,62 ITAIL Param 59 I(4) 4 scalar ITB Param 71 I(4) 4 scalar 176,186 ITBQ Param 71 I(4) 4 scalar 177,186 J Local 233 I(4) 4 scalar 233,235,245,247,257,259,278,280,29 1,293,305,307,327,330,331,333,334, 335 JAM Param 78 I(4) 4 scalar 128 JDIM1 Param 63 I(4) 4 scalar JDIM2 Param 63 I(4) 4 scalar JGSTL Param 58 I(4) 4 scalar 63 JGSTR Param 58 I(4) 4 scalar 63 JM Param 51 I(4) 4 scalar 60,63,69,76,78,81,120,130,138,139, 140,150,152,179,180,181,182,183,18 4,192,193,194,195,196,198,204,205, 206,207,208 JM2 Param 78 I(4) 4 scalar JMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 121,233,240,245,252,262,265,270,27 3,283,286,296,299,310,312,314,318, 321,323,340,343,345,369,372 JMT Param 76 I(4) 4 scalar 140,141 JMX Param 69 I(4) 4 scalar 136,137,142,143,144,145 Page 7 Source Listing FIXED 2025-03-12 18:23 Symbol Table FIXED.f Name Object Declared Type Bytes Dimen Elements Attributes References JNPES Param 54 I(4) 4 scalar 60,63 JTAIL Param 60 I(4) 4 scalar JTB Param 71 I(4) 4 scalar 176,186 JTBQ Param 71 I(4) 4 scalar 186 KSAV Param 86 I(4) 4 scalar KSFI Param 85 I(4) 4 scalar KSLI Param 86 I(4) 4 scalar KSLP Param 86 I(4) 4 scalar KSLPD Param 85 I(4) 4 scalar KSMUD Param 85 I(4) 4 scalar KSRH Param 86 I(4) 4 scalar KSSLP Param 85 I(4) 4 scalar KST Param 85 I(4) 4 scalar KSUV Param 86 I(4) 4 scalar LB Param 81 I(4) 4 scalar LHEAT Param 112 I(4) 4 scalar 112 LHTOCP Param 112 I(4) 4 scalar LLGRDS Common 135 8071788 SAVE LM Param 51 I(4) 4 scalar 69,80,91,152,175,198 LM1 Param 80 I(4) 4 scalar LOOPS Common 127 748952 SAVE LP1 Param 80 I(4) 4 scalar 175 LSM Param 51 I(4) 4 scalar MASKS Common 149 34853220 SAVE MXFLD Param 69 I(4) 4 scalar 157,163,164,165,166 MXLVL Param 69 I(4) 4 scalar 165 NINC Param 79 I(4) 4 scalar NROOT Param 119 I(4) 4 scalar NSOIL Param 119 I(4) 4 scalar 207,208 NSTAT Param 91 I(4) 4 scalar NSUMD Param 87 I(4) 4 scalar NWORD Param 91 I(4) 4 scalar 91 NWORD3 Param 91 I(4) 4 scalar NWORD6 Param 91 I(4) 4 scalar ONEPS Param 111 R(4) 4 scalar OUTPUT Subr 239 239,251,264,272,285,298,313,322,34 4,371 OVERRC Param 105 R(4) 4 scalar 105 P1000 Param 107 R(4) 4 scalar PARALLEL Common 226 8240 PHYS Common 170 7690036 SAVE PQ0 Param 113 R(4) 4 scalar PVRBLS Common 191 23480064 SAVE RCAPA Param 107 R(4) 4 scalar RD Param 104 R(4) 4 scalar 104,108,112 RDOCP Param 112 R(4) 4 scalar RG Param 108 R(4) 4 scalar ROG Param 104 R(4) 4 scalar RQSTFLD Common 162 64130 RTD Param 106 R(4) 4 scalar SCLFLD Subr 312 312,321,343 SMTHA Param 87 R(4) 4 scalar SMTHB Param 87 R(4) 4 scalar SOIL Common 203 8438180 TFRZ Param 111 R(4) 4 scalar Page 8 Source Listing FIXED 2025-03-12 18:23 Symbol Table FIXED.f TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 6236892 2 91719 COM ACPREC R(4) 4 5870016 2 91719 COM AETA R(4) 4 264 1 45 COM AKHS R(4) 4 733752 2 91719 COM AKMS R(4) 4 366876 2 91719 COM ALBASE R(4) 4 5139788 2 91719 COM 318 ALBEDO R(4) 4 5506664 2 91719 COM 307 AVBL CHAR 20 59130 1 250 COM CI R(4) 4 40 scalar COM CLDEFI R(4) 4 5136264 2 91719 COM CMC R(4) 4 3668760 2 91719 COM CS R(4) 4 28 scalar COM CUPREC R(4) 4 6603768 2 91719 COM CZEN R(4) 4 2204780 2 91719 COM CZMEAN R(4) 4 6607292 2 91719 COM DATSET CHAR 6 54124 scalar COM DEC R(4) 4 1016 1 250 COM DETA R(4) 4 84 1 45 COM DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM EGRDI R(4) 4 4769904 2 91719 COM EGRDJ R(4) 4 5136780 2 91719 COM ELWDWN R(4) 4 2938532 2 91719 COM EPSR R(4) 4 370400 2 91719 COM EVLAT R(4) 4 4035808 2 91762 COM EVLON R(4) 4 4402856 2 91762 COM FIELD CHAR 20 54130 1 250 COM FIRST R(4) 4 24 scalar COM FVTLON R(4) 4 3668760 2 91762 COM GDLAT R(4) 4 0 2 91719 COM 235 GDLON R(4) 4 366876 2 91719 COM 247 GDTLAT R(4) 4 733752 2 91719 COM GDTLON R(4) 4 1100628 2 91719 COM GFFC R(4) 4 4406036 2 91719 COM GLAT R(4) 4 1471028 2 91719 COM GLON R(4) 4 1837904 2 91719 COM GRNFLX R(4) 4 1467504 2 91719 COM HBM2 R(4) 4 0 2 91719 COM HBOT R(4) 4 3672284 2 91719 COM HDAC R(4) 4 5873540 2 91719 COM HDACV R(4) 4 6240416 2 91719 COM HTLAT R(4) 4 1467504 2 91719 COM HTLON R(4) 4 1834380 2 91719 COM HTM R(4) 4 1834380 3 4127355 COM HTOP R(4) 4 3305408 2 91719 COM ICNT I(4) 4 40 1 1024 COM ID I(4) 4 54016 1 25 COM 238,250,263,271,284,297,311,319,32 Page 9 Source Listing FIXED 2025-03-12 18:23 Symbol Table FIXED.f Name Type Bytes Offset Dimen Elements Attributes References 0,341,342,370 IDAT I(4) 4 8 1 3 COM IDENT I(4) 4 52016 1 250 COM IDN I(4) 4 36 scalar COM IDSP I(4) 4 4136 1 1024 COM IDTAD I(4) 4 68 scalar COM IEGRD I(4) 4 5503656 2 91719 COM IEGRDK I(4) 4 2201256 2 91719 COM IFILV I(4) 4 53016 1 250 COM IGET I(4) 4 16 1 250 COM 232,239,244,251,256,264,269,272,27 7,285,290,298,304,313,317,322,326, 344,368,371 IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM IOUT I(4) 4 44 scalar COM IOUTYP I(4) 4 4 scalar COM 239,251,264,272,285,298,313,322,34 4,371 IQ I(4) 4 2016 1 250 COM IS I(4) 4 3016 1 250 COM ISLOPE I(4) 4 2935008 2 91719 COM ISLTYP I(4) 4 2568132 2 91719 COM ISMFUL I(4) 4 5016 1 250 COM ISMOUT I(4) 4 6016 1 250 COM ISMSTG I(4) 4 4016 1 250 COM IUP I(4) 4 32 scalar COM IVGTYP I(4) 4 2201256 2 91719 COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IWGT I(4) 4 6237408 2 91719 COM JEGRD I(4) 4 5870532 2 91719 COM JEGRDK I(4) 4 2568132 2 91719 COM JEND I(4) 4 12 scalar COM 257,278,291,305,327 JEND_2U I(4) 4 8236 scalar COM JEND_M I(4) 4 20 scalar COM JEND_M2 I(4) 4 28 scalar COM JRA I(4) 4 12160 1 760 COM JSTA I(4) 4 8 scalar COM 257,278,291,305,327 JSTA_2L I(4) 4 8232 scalar COM JSTA_M I(4) 4 16 scalar COM JSTA_M2 I(4) 4 24 scalar COM KGTYPE I(4) 4 0 scalar COM KTM I(4) 4 0 scalar COM LIST I(4) 4 40 scalar COM LMH I(4) 4 15200 2 91719 COM 280 LMV I(4) 4 382076 2 91719 COM 293 LVLS I(4) 4 7016 2 11250 COM 239,251,264,272,285,298,313,322,34 4,371 ME I(4) 4 4 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 72 scalar COM NCP I(4) 4 80 scalar COM NDDAMP I(4) 4 60 scalar COM NFCST I(4) 4 32 scalar COM NFLD I(4) 4 12 scalar COM Page 10 Source Listing FIXED 2025-03-12 18:23 Symbol Table FIXED.f Name Type Bytes Offset Dimen Elements Attributes References NPHS I(4) 4 84 scalar COM NPREC I(4) 4 64 scalar COM NRADL I(4) 4 92 scalar COM NRADS I(4) 4 88 scalar COM NSHDE I(4) 4 76 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM NUM_PROCS I(4) 4 0 scalar COM PCTSNO R(4) 4 1834380 2 91719 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PREC R(4) 4 5503140 2 91719 COM PT R(4) 4 4 scalar COM PTBL R(4) 4 7341044 2 10184 COM Q2 R(4) 4 6970644 3 4127355 COM QS R(4) 4 1467504 2 91719 COM QS0 R(4) 4 628 1 134 COM QWBS R(4) 4 4035636 2 91719 COM QZ0 R(4) 4 2935008 2 91719 COM RADIN R(4) 4 737276 2 91719 COM RADOT R(4) 4 1104152 2 91719 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RESTRT R(4) 4 28 scalar COM RF R(4) 4 3301884 2 91719 COM RITE2 L(4) 4 54120 scalar COM RITEHD L(4) 4 54116 scalar COM RMXSNAL R(4) 4 3524 2 91719 COM 331,335,340 ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RTDPTH R(4) 4 6970660 1 4 COM RUN R(4) 4 4 scalar COM SFCEXC R(4) 4 366876 2 91719 COM SH2O R(4) 4 6970676 3 366876 COM SI R(4) 4 4769388 2 91719 COM SICE R(4) 4 1467504 2 91719 COM 270,334 SIGMA R(4) 4 0 scalar COM SIGT4 R(4) 4 6974168 2 91719 COM SLDPTH R(4) 4 6970644 1 4 COM SM R(4) 4 1100628 2 91719 COM 259,330,333 SMC R(4) 4 4035636 3 366876 COM SMSTAV R(4) 4 733752 2 91719 COM SMSTOT R(4) 4 1100628 2 91719 COM SNO R(4) 4 4402512 2 91719 COM SOILTB R(4) 4 0 2 91719 COM SQS R(4) 4 1164 1 134 COM SST R(4) 4 4772912 2 91719 COM 369 STC R(4) 4 5503140 3 366876 COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SVALUE R(4) 4 8 scalar COM Page 11 Source Listing FIXED 2025-03-12 18:23 Symbol Table FIXED.f Name Type Bytes Offset Dimen Elements Attributes References SWNET R(4) 4 2571656 2 91719 COM TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TG R(4) 4 4039160 2 91719 COM THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THL R(4) 4 52 scalar COM THS R(4) 4 1100628 2 91719 COM THZ0 R(4) 4 2568132 2 91719 COM TTBL R(4) 4 7381780 2 10184 COM TTBLQ R(4) 4 7422516 2 66880 COM TWBS R(4) 4 3668760 2 91719 COM UZ0 R(4) 4 1834380 2 91719 COM VBM2 R(4) 4 366876 2 91719 COM VBM3 R(4) 4 733752 2 91719 COM VEGFRC R(4) 4 3301884 2 91719 COM VTLAT R(4) 4 2935008 2 91719 COM VTLON R(4) 4 3301884 2 91719 COM VTM R(4) 4 18343800 3 4127355 COM VZ0 R(4) 4 2201256 2 91719 COM WIJ R(4) 4 6604284 2 91719 COM WIJP R(4) 4 7338036 2 91719 COM WIPJ R(4) 4 6971160 2 91719 COM WIPJP R(4) 4 7704912 2 91719 COM Z0 R(4) 4 0 2 91719 COM Page 12 Source Listing FIXED 2025-03-12 18:23 FIXED.f 379 Page 13 Source Listing FIXED 2025-03-12 18:23 Subprograms/Common Blocks FIXED.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 219 96 SAVE FIXED Subr 1 LLGRDS Common 135 8071788 SAVE LOOPS Common 127 748952 SAVE MASKS Common 149 34853220 SAVE PARALLEL Common 226 8240 PHYS Common 170 7690036 SAVE PVRBLS Common 191 23480064 SAVE RQSTFLD Common 162 64130 SOIL Common 203 8438180 COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file Page 14 Source Listing FIXED 2025-03-12 18:23 FIXED.f -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -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 -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone Page 15 Source Listing FIXED 2025-03-12 18:23 FIXED.f -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : FIXED.lst no -o COMPILER: Intel(R) Fortran 19.1-1655