Page 1 Source Listing GSCOND 2025-03-12 18:22 /tmp/ifortfrcARb.i 1 # 1 "GSCOND.F" 2 SUBROUTINE GSCOND 3 C ****************************************************************** 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBPROGRAM: GSCOND GRID SCALE CONDENSATION AND EVAPORATION 7 C PRGRMMR: ZHAO ORG: W/NP22 DATE: ??-??-?? 8 C 9 C ABSTRACT: 10 C GSCOND COMPUTES THE GRID SCALE EVAPORATION AND CONDENSATION 11 C 12 C PROGRAM HISTORY LOG: 13 C 94-??-?? ZHAO - ORIGINATOR 14 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 15 C 95-03-28 BLACK - ADDED EXTERNAL EDGE 16 C 98-11-02 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 17 C 18 C USAGE: CALL GSCOND FROM MAIN PROGRAM EBU 19 C 20 C INPUT ARGUMENT LIST: 21 C NONE 22 C 23 C OUTPUT ARGUMENT LIST: 24 C NONE 25 C 26 C OUTPUT FILES: 27 C NONE 28 C 29 C SUBPROGRAMS CALLED: 30 C 31 C UNIQUE: NONE 32 C 33 C LIBRARY: NONE 34 C 35 C COMMON BLOCKS: CTLBLK 36 C LOOPS 37 C MASKS 38 C PHYS 39 C VRBLS 40 C CLDWTR 41 C TEMPV 42 C PVRBLS 43 C ACMCLH 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 90 47 C MACHINE : IBM SP 48 C$$$ 49 C*********************************************************************** 50 P A R A M E T E R 51 & (A1=610.78,A2=17.2693882,A3=273.16,A4=35.86 52 &, PQ0=379.90516,TRESH=.95 53 &, CP=1004.6,ELWV=2.50E6,ELIV=2.834E6,ROW=1.E3,G=9.8 54 &, EPSQ=2.E-12,DLDT=2274.0,TM10=263.16,R=287.04 55 &, CPR=CP*R,RCPR=1./(CPR)) 56 P A R A M E T E R 57 & (ARCP=A2*(A3-A4)/CP,RCP=1./CP,PQ0C=PQ0*TRESH,RROG=1./(ROW*G)) Page 2 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F 58 C---------------------------------------------------------------------- 59 INCLUDE "parmeta" 82 INCLUDE "parm.tbl" 84 INCLUDE "mpp.h" 85 # 1 "./sp.h" 1 86 # 4 87 88 # 62 "GSCOND.F" 2 89 C---------------------------------------------------------------------- 148 P A R A M E T E R 149 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10) 150 &, LP1=LM+1,LTOP=1,LBOT=LM) 151 C 152 P A R A M E T E R 153 & (LDA=(IDIM2-IDIM1+1)*(JDIM2-JDIM1+1)) 154 C----------------------------------------------------------------------- 155 L O G I C A L 156 & RUN,FIRST,RESTRT,SIGMA,NOZ 157 C---------------------------------------------------------------------- 158 INCLUDE "CTLBLK.comm" 159 C----------------------------------------------------------------------- 169 INCLUDE "LOOPS.comm" 170 C----------------------------------------------------------------------- 177 INCLUDE "MASKS.comm" 178 C----------------------------------------------------------------------- 189 INCLUDE "PHYS.comm" 190 C----------------------------------------------------------------------- 218 INCLUDE "VRBLS.comm" 219 C----------------------------------------------------------------------- 229 INCLUDE "CLDWTR.comm" 230 C----------------------------------------------------------------------- 238 INCLUDE "TEMPV.comm" 239 C----------------------------------------------------------------------- 246 INCLUDE "PVRBLS.comm" 247 C----------------------------------------------------------------------- 277 INCLUDE "ACMCLH.comm" 278 C----------------------------------------------------------------------- 285 D I M E N S I O N 286 & IW(LM) 287 &,PDSL(IDIM1:IDIM2,JDIM1:JDIM2) 288 &,T_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 289 &,T0_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 290 &,Q_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 291 &,Q0_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 292 &,TRAIN_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 293 &,CWM_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 294 &,HTM_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 295 C---------------------------------------------------------------------- 296 R E A L 297 & MR,KE,INIT 298 C----------------------------------------------------------------------- 299 C----------------------------------------------------------------------- 300 C--------------PREPARATORY CALCULATIONS--------------------------------- 301 DTPH =NPHS*DT 302 RDTPH=1./DTPH 303 TWODT=DTPH 304 RTWODT=1./TWODT Page 3 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F 305 C0=1.5E-4 306 C1=300. 307 C2=0.5 308 MR=3.0E-4 309 KE=2.0E-5 310 US=1. 311 EPS=0.622 312 CCLIMIT=1.0E-3 313 CLIMIT =1.0E-20 314 C----------------------------------------------------------------------- 315 C------------------PADDING SPECIFIC HUMIDITY & CWM IF TOO SMALL--------- 316 C----------------------------------------------------------------------- 317 !$omp parallel do 318 DO 30 L=1,LM 319 DO J=MYJS,MYJE 320 DO I=MYIS,MYIE 321 IF(Q(I,J,L).LT.EPSQ)Q(I,J,L)=EPSQ*HTM(I,J,L) 322 IF(CWM(I,J,L).LT.CLIMIT)CWM(I,J,L)=CLIMIT*HTM(I,J,L) 323 ENDDO 324 ENDDO 325 30 CONTINUE 326 C 327 DO J=MYJS,MYJE 328 DO I=MYIS,MYIE 329 PDSL(I,J)=RES(I,J)*PD(I,J) 330 ENDDO 331 ENDDO 332 C 333 IW(1)=0 334 UTIM=1. 335 C 336 C----------------------------------------------------------------------- 337 C*************BEGINNING OF GRID-SCALE CONDENSATION/EVAP. LOOP*********** 338 C----------------------------------------------------------------------- 339 C*** 340 C*** TRANSPOSE ARRAYS 341 C*** 342 c if(mype.eq.1) then 343 c print*,'lda=',lda 344 c do l=1,lm 345 c print*,'before transpose, t=',l,t(25,33,l) 346 c enddo 347 c endif 348 !$omp parallel sections 349 !$omp section 350 CALL SGETMO(T,LDA,LDA,LM,T_T,LM) 351 CALL SGETMO(Q,LDA,LDA,LM,Q_T,LM) 352 CALL SGETMO(HTM,LDA,LDA,LM,HTM_T,LM) 353 CALL SGETMO(CWM,LDA,LDA,LM,CWM_T,LM) 354 !$omp section 355 CALL SGETMO(T0,LDA,LDA,LM,T0_T,LM) 356 CALL SGETMO(Q0,LDA,LDA,LM,Q0_T,LM) 357 CALL SGETMO(TRAIN,LDA,LDA,LM,TRAIN_T,LM) 358 !$omp end parallel sections 359 c if(mype.eq.1) then 360 c do l=1,lm 361 c print*,'after transpose, t=',l,t_t(l,25,33) Page 4 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F 362 c enddo 363 c endif 364 C 365 C----------------------------------------------------------------------- 366 C------------------QW, QI AND QINT-------------------------------------- 367 C----------------------------------------------------------------------- 368 !$omp parallel do 369 !$omp& private(aa,ab,ac,ad,ae,af,ag,ai,ap,aq,at,bi,ccr,ccrkl, 370 !$omp& ccrkl1,cond,condk,cone0,cwmkl,e0,ec,elv,fi,fiw, 371 !$omp& hbm2ij,hh,iwkl,lmhij,lml,p0ij,pdslij,pp,pp0, 372 !$omp& qc,qi,qint,qkl,qtemp,qw,resij,rqkl,rqkll,rqtmp, 373 !$omp& thh,tkl,tmt0,tmt15,u00ij,u00kl,us00) 374 !$omp& firstprivate(iw) 375 C 376 if(mype.eq.1) then 377 print*,'myis,myie,myjs2,myje2=',myis,myie,myjs2,myje2 378 endif 379 DO 100 J=MYJS2,MYJE2 380 DO 100 I=MYIS,MYIE 381 C----------------------------------------------------------------------- 382 C 383 LMHIJ=LMH(I,J) 384 HBM2IJ=HBM2(I,J) 385 U00IJ=U00(I,J) 386 P0IJ=P0(I,J) 387 RESIJ=RES(I,J) 388 PDSLIJ=PDSL(I,J) 389 C 390 DO 90 L=2,LM 391 C 392 TKL=T_T(L,I,J) 393 QKL=Q_T(L,I,J) 394 CWMKL=CWM_T(L,I,J) 395 C 396 COND=0. 397 E0=0. 398 LML=LM-LMHIJ 399 HH=HTM_T(L,I,J)*HBM2IJ 400 TMT0=(TKL-273.16)*HH 401 TMT15=AMIN1(TMT0,-15.)*HH 402 AI=0.008855 403 BI=1. 404 C 405 IF(TMT0.LT.-20.)THEN 406 AI=0.007225 407 BI=0.9674 408 ENDIF 409 C 410 QW=HH*PQ0/(PDSLIJ*AETA(L)+PT) 411 1 *EXP(HH*A2*(T(I,J,L)-A3)/(T(I,J,L)-A4)) 412 QI=QW*(BI+AI*AMIN1(TMT0,0.)) 413 QINT=QW*(1.-0.00032*TMT15*(TMT15+15.)) 414 IF(TMT0.LE.-40.)QINT=QI 415 C----------------------------------------------------------------------- 416 C-------------------ICE-WATER ID NUMBER IW------------------------------ 417 C----------------------------------------------------------------------- 418 IF(TMT0.LT.-15.)THEN Page 5 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F 419 U00KL=U00IJ+UL(L+LML)*(0.95-U00IJ)*UTIM 420 FI=Q(I,J,L)-U00KL*QI 421 IF(FI.GT.0..OR.CWMKL.GT.CLIMIT)THEN 422 IW(L)=1 423 ELSE 424 IW(L)=0 425 ENDIF 426 ENDIF 427 C 428 IF(TMT0.GE.0.)THEN 429 IW(L)=0 430 ENDIF 431 C 432 IF(TMT0.LT.0.0.AND.TMT0.GE.-15.)THEN 433 IW(L)=0 434 IF(IW(L-1).EQ.1.AND.CWMKL.GT.CLIMIT)IW(L)=1 435 ENDIF 436 C----------------------------------------------------------------------- 437 C--------------CONDENSATION AND EVAPORATION OF CLOUD-------------------- 438 C------------------------AT, AQ AND DP/DT------------------------------- 439 C----------------------------------------------------------------------- 440 THH=TWODT*HH 441 PP=PDSLIJ*AETA(L)+PT 442 PP0=P0IJ*RESIJ*AETA(L)+PT 443 AT=(TKL-T0_T(L,I,J))*RTWODT 444 AQ=(QKL-Q0_T(L,I,J))*RTWODT 445 AP=(PP-PP0)*RTWODT 446 IWKL=IW(L) 447 U00KL=U00IJ+UL(L+LML)*(0.95-U00IJ)*UTIM 448 C----------------------------------------------------------------------- 449 C----------------THE SATUATION SPECIFIC HUMIDITY------------------------ 450 C----------------------------------------------------------------------- 451 FIW=FLOAT(IWKL) 452 ELV=(1.-FIW)*ELWV+FIW*ELIV 453 QC =(1.-FIW)*QINT+FIW*QI 454 C----------------------------------------------------------------------- 455 C----------------THE RELATIVE HUMIDITY---------------------------------- 456 C----------------------------------------------------------------------- 457 IF(QC.LE.0.)THEN 458 RQKL=0. 459 ELSE 460 RQKL=QKL/QC 461 ENDIF 462 C----------------------------------------------------------------------- 463 C----------------CLOUD COVER RATIO CCR---------------------------------- 464 C----------------------------------------------------------------------- 465 IF(RQKL.LE.U00KL)THEN 466 CCR=0. 467 ELSE 468 RQKLL=AMIN1(US,RQKL) 469 CCR=1.-SQRT((US-RQKLL)/(US-U00KL)) 470 ENDIF 471 C----------------------------------------------------------------------- 472 C-----------CORRECT CCR IF IT IS TOO SMALL IN LARGE CWM REGIONS-------- 473 C----------------------------------------------------------------------- 474 IF(CCR.GE.0.01.AND.CCR.LE.0.2.AND.CWMKL.GE.0.2E-3)THEN 475 CCR=AMIN1(1.,CWMKL*1.E3) Page 6 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F 476 ENDIF 477 C 478 CCRKL=CCR 479 C----------------------------------------------------------------------- 480 C-------GIVE UP THIS POINT IF NO CLOUD NOR CONDENSATION EXIST--------- 481 C----------------------------------------------------------------------- 482 IF(CCRKL.LE.CCLIMIT.AND.CWMKL.LE.CLIMIT)GO TO 90 483 C----------------------------------------------------------------------- 484 C----------------EVAPORATION OF CLOUD WATER----------------------------- 485 C----------------------------------------------------------------------- 486 EC=0. 487 IF(CCRKL.LE.CCLIMIT.AND.CWMKL.GT.CLIMIT)THEN 488 EC=QC*(U00KL-RQKL)*RTWODT 489 E0=AMAX1(EC,0.0) 490 E0=AMIN1(CWMKL*RTWODT,E0)*HH 491 E0=AMAX1(0.,E0) 492 ENDIF 493 C----------------------------------------------------------------------- 494 C----------------CONDENSATION OF CLOUD---------------------------------- 495 C----------------------------------------------------------------------- 496 IF(CCRKL.LE.0.20.OR.QC.LE.EPSQ)THEN 497 C IF(CCRKL.LE.CCLIMIT.OR.QC.LE.EPSQ)THEN 498 COND=0. 499 GO TO 80 500 ENDIF 501 C----------------------------------------------------------------------- 502 C-----------THE EQS. FOR COND. HAS BEEN REORGANIZED TO REDUCE CPU------ 503 C----------------------------------------------------------------------- 504 US00=US-U00KL 505 CCRKL1=1.-CCRKL 506 AA=EPS*ELV*PP*QKL 507 AB=CCRKL*CCRKL1*QC*US00 508 AC=AB+0.5*CWMKL 509 AD=AB*CCRKL1 510 AE=CPR*TKL*TKL 511 AF=AE*PP 512 AG=AA*ELV 513 AI=CP*AA 514 COND=(AC-AD)*(AF*AQ-AI*AT+AE*QKL*AP)/(AC*(AF+AG)) 515 C----------------------------------------------------------------------- 516 C-----------CHECK & CORRECT IF OVER CONDENSATION OCCURS----------------- 517 C----------------------------------------------------------------------- 518 CONDK=(QKL-U00KL*QC*0.1)*RTWODT 519 C CONDK=(QKL-U00KL*QC*0.6)*RTWODT 520 IF(COND.GT.CONDK)THEN 521 COND=CONDK 522 ENDIF 523 C----------------------------------------------------------------------- 524 C----------CHECK & CORRECT IF SUPERSATUATION IS TOO HIGH---------------- 525 C----------------------------------------------------------------------- 526 QTEMP=QKL-AMAX1(0.,(COND-E0))*THH 527 RQTMP=QTEMP/QC 528 IF(RQTMP.GE.1.10)THEN 529 COND=(QKL-1.10*QC)*RTWODT 530 ENDIF 531 C----------------------------------------------------------------------- 532 IF(COND.LT.0.)THEN Page 7 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F 533 COND=0. 534 ENDIF 535 C----------------------------------------------------------------------- 536 C-------------------UPDATE OF T, Q AND CWM------------------------------ 537 C----------------------------------------------------------------------- 538 80 CONTINUE 539 if(mype.eq.1.and.i.eq.25.and.j.eq.31.and.l.eq.31) then 540 print*,'cond,e0=',cond,e0 541 endif 542 CONE0=COND-E0 543 CWM_T(L,I,J)=CONE0*THH+CWMKL 544 C 545 C----------------------------------------------------------------------- 546 C ACCUMULATE LATENT HEATING DUE TO GRID-SCALE PRECIP/EVAP. 547 C SCALE BY THE RECIPROCAL OF THE PERIOD AT WHICH THIS ROUTINE 548 C IS CALLED. THIS PERIOD IS THE PHYSICS TIMESTEP. 549 C----------------------------------------------------------------------- 550 C 551 c if(mype.eq.1.and.i.eq.25.and.j.eq.31) then 552 c print*,'elv,rcp,cone0,thh,tkl=',l,i,j,elv,rcp,cone0,thh,tkl 553 c print*,'t_t(ELV*RCP*CONE0*THH+TKL)=',ELV*RCP*CONE0*THH+TKL 554 c print*,'q_t(-CONE0*THH+QKL)=',-CONE0*THH+QKL 555 c endif 556 T_T(L,I,J)=ELV*RCP*CONE0*THH+TKL 557 TRAIN_T(L,I,J)=ELV*RCP*CONE0*THH*RDTPH+TRAIN_T(L,I,J) 558 Q_T(L,I,J)=-CONE0*THH+QKL 559 IF(CWM_T(L,I,J).LE.0.)CWM_T(L,I,J)=0. 560 C 561 90 CONTINUE 562 C 563 100 CONTINUE 564 c if(mype.eq.1) then 565 c print*,'lda=',lda 566 c do l=1,lm 567 c print*,'before transpose, t=',l,t_t(l,25,33) 568 c enddo 569 c endif 570 C----------------------------------------------------------------------- 571 C-------------------SAVE T, Q AND P FOR THIS STEP----------------------- 572 C----------------------------------------------------------------------- 573 C*** 574 C*** TRANSPOSE BACK THE NEEDED ARRAYS 575 C*** 576 !$omp parallel sections 577 !$omp section 578 CALL SGETMO(T_T,LM,LM,LDA,T,LDA) 579 CALL SGETMO(Q_T,LM,LM,LDA,Q,LDA) 580 !$omp section 581 CALL SGETMO(TRAIN_T,LM,LM,LDA,TRAIN,LDA) 582 CALL SGETMO(CWM_T,LM,LM,LDA,CWM,LDA) 583 !$omp end parallel sections 584 C 585 !$omp parallel do 586 DO 125 L=1,LM 587 DO J=MYJS,MYJE 588 DO I=MYIS,MYIE 589 c if(mype.eq.1.and.i.eq.25.and.j.eq.33) then Page 8 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F 590 c print*,'i,j,l,t(i,j,l)=',i,j,l,t(i,j,l) 591 c endif 592 Q0(I,J,L)=Q(I,J,L) 593 T0(I,J,L)=T(I,J,L) 594 ENDDO 595 ENDDO 596 125 CONTINUE 597 C 598 DO J=MYJS,MYJE 599 DO I=MYIS,MYIE 600 P0(I,J)=PD(I,J) 601 ENDDO 602 ENDDO 603 C----------------------------------------------------------------------- 604 RETURN 605 END ENTRY POINTS Name gscond_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 563 379,380 125 Label 596 586 30 Label 325 318 80 Label 538 499 90 Label 561 390,482 A1 Param 51 R(4) 4 scalar A2 Param 51 R(4) 4 scalar 57,411 A3 Param 51 R(4) 4 scalar 57,411 A4 Param 51 R(4) 4 scalar 57,411 AA Local 506 R(4) 4 scalar 506,512,513 AB Local 507 R(4) 4 scalar 507,508,509 AC Local 508 R(4) 4 scalar 508,514 ACMCLH Common 280 6463824 SAVE AD Local 509 R(4) 4 scalar 509,514 AE Local 510 R(4) 4 scalar 510,511,514 AF Local 511 R(4) 4 scalar 511,514 AG Local 512 R(4) 4 scalar 512,514 AI Local 402 R(4) 4 scalar 402,406,412,513,514 AMAX1 Func 489 scalar 489,491,526 AMIN1 Func 401 scalar 401,412,468,475,490 AP Local 445 R(4) 4 scalar 445,514 AQ Local 444 R(4) 4 scalar 444,514 ARCP Param 57 R(4) 4 scalar AT Local 443 R(4) 4 scalar 443,514 BI Local 403 R(4) 4 scalar 403,407,412 C0 Local 305 R(4) 4 scalar 305 C1 Local 306 R(4) 4 scalar 306 C2 Local 307 R(4) 4 scalar 307 Page 9 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References CCLIMIT Local 312 R(4) 4 scalar 312,482,487 CCR Local 466 R(4) 4 scalar 466,469,474,475,478 CCRKL Local 478 R(4) 4 scalar 478,482,487,496,505,507 CCRKL1 Local 505 R(4) 4 scalar 505,507,509 CLDWTR Common 232 3447720 SAVE CLIMIT Local 313 R(4) 4 scalar 313,322,421,434,482,487 COND Local 396 R(4) 4 scalar 396,498,514,520,521,526,529,532,53 3,540,542 CONDK Local 518 R(4) 4 scalar 518,520,521 CONE0 Local 542 R(4) 4 scalar 542,543,556,557,558 CP Param 53 R(4) 4 scalar 55,57,513 CPR Param 55 R(4) 4 scalar 55,510 CTLBLK Common 163 112 SAVE CWMKL Local 394 R(4) 4 scalar 394,421,434,474,475,482,487,490,50 8,543 CWM_T Local 293 R(4) 4 3 807975 353,394,543,559,582 DLDT Param 54 R(4) 4 scalar DTPH Local 301 R(4) 4 scalar 301,302,303 E0 Local 397 R(4) 4 scalar 397,489,490,491,526,540,542 EC Local 486 R(4) 4 scalar 486,488,489 ELIV Param 53 R(4) 4 scalar 452 ELV Local 452 R(4) 4 scalar 452,506,512,556,557 ELWV Param 53 R(4) 4 scalar 452 EPS Local 311 R(4) 4 scalar 311,506 EPSQ Param 54 R(4) 4 scalar 321,496 EXP Func 411 scalar 411 FI Local 420 R(4) 4 scalar 420,421 FIW Local 451 R(4) 4 scalar 451,452,453 FLOAT Func 451 scalar 451 G Param 53 R(4) 4 scalar 57 GLB_TABLE Common 126 128 SAVE GSCOND Subr 2 HBM2IJ Local 384 R(4) 4 scalar 384,399 HH Local 399 R(4) 4 scalar 399,400,401,410,411,440,490 HTM_T Local 294 R(4) 4 3 807975 352,399 I Local 320 I(4) 4 scalar 320,321,322,328,329,380,383,384,38 5,386,387,388,392,393,394,399,411, 420,443,444,539,543,556,557,558,55 9,588,592,593,599,600 IDIM1 Param 78 I(4) 4 scalar 153,174,181,182,184,185,186,203,20 4,205,206,207,208,209,210,211,212, 213,222,224,225,226,233,235,242,24 3,250,251,252,253,254,255,256,257, 258,259,260,261,262,263,264,265,26 6,268,273,282,283,287,288,289,290, 291,292,293,294 IDIM2 Param 78 I(4) 4 scalar 153,174,181,182,184,185,186,203,20 4,205,206,207,208,209,210,211,212, 213,222,224,225,226,233,235,242,24 3,250,251,252,253,254,255,256,257, 258,259,260,261,262,263,264,265,26 6,268,273,282,283,287,288,289,290, 291,292,293,294 IGSTL Param 73 I(4) 4 scalar 78 IGSTR Param 73 I(4) 4 scalar 78 Page 10 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References IM Param 62 I(4) 4 scalar 75,78,132,133,134,135,136,140,141, 146,149 IMJM Param 149 I(4) 4 scalar INIT Local 297 R(4) 4 scalar INPES Param 70 I(4) 4 scalar 75,78,116,117,118,127,128 ITAIL Param 75 I(4) 4 scalar ITB Param 83 I(4) 4 scalar 200,215 ITBQ Param 83 I(4) 4 scalar 201,215 IW Local 286 I(4) 4 1 45 333,422,424,429,433,434,446 IWKL Local 446 I(4) 4 scalar 446,451 J Local 319 I(4) 4 scalar 319,321,322,327,329,379,383,384,38 5,386,387,388,392,393,394,399,411, 420,443,444,539,543,556,557,558,55 9,587,592,593,598,600 JAM Param 149 I(4) 4 scalar 173 JDIM1 Param 79 I(4) 4 scalar 153,174,181,182,184,185,186,203,20 4,205,206,207,208,209,210,211,212, 213,222,224,225,226,233,235,242,24 3,250,251,252,253,254,255,256,257, 258,259,260,261,262,263,264,265,26 6,268,273,282,283,287,288,289,290, 291,292,293,294 JDIM2 Param 79 I(4) 4 scalar 153,174,181,182,184,185,186,203,20 4,205,206,207,208,209,210,211,212, 213,222,224,225,226,233,235,242,24 3,250,251,252,253,254,255,256,257, 258,259,260,261,262,263,264,265,26 6,268,273,282,283,287,288,289,290, 291,292,293,294 JGSTL Param 74 I(4) 4 scalar 79 JGSTR Param 74 I(4) 4 scalar 79 JM Param 62 I(4) 4 scalar 76,79,132,133,134,135,136,140,141, 146,149 JNPES Param 70 I(4) 4 scalar 76,79,116,117,118,127,128 JTAIL Param 76 I(4) 4 scalar JTB Param 83 I(4) 4 scalar 200,215 JTBQ Param 83 I(4) 4 scalar 215 KE Local 297 R(4) 4 scalar 309 L Local 318 I(4) 4 scalar 318,321,322,390,392,393,394,399,41 0,411,419,420,422,424,429,433,434, 441,442,443,444,446,447,539,543,55 6,557,558,559,586,592,593 LBOT Param 150 I(4) 4 scalar LDA Param 153 I(4) 4 scalar 350,351,352,353,355,356,357,578,57 9,581,582 LM Param 62 I(4) 4 scalar 141,150,184,185,199,224,225,233,23 4,242,268,282,283,286,288,289,290, 291,292,293,294,318,350,351,352,35 3,355,356,357,390,398,578,579,581, 582,586 LMHIJ Local 383 I(4) 4 scalar 383,398 LML Local 398 I(4) 4 scalar 398,419,447 LOOPS Common 172 158840 SAVE LP1 Param 150 I(4) 4 scalar 199 LSM Param 62 I(4) 4 scalar Page 11 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References LTOP Param 150 I(4) 4 scalar MAPPINGS Common 145 5024 SAVE MASKS Common 180 6894720 SAVE MPPCOM Common 90 1464 SAVE MR Local 297 R(4) 4 scalar 308 NOZ Local 156 L(4) 4 scalar P0IJ Local 386 R(4) 4 scalar 386,442 PDSL Local 287 R(4) 4 2 17955 329,388 PDSLIJ Local 388 R(4) 4 scalar 388,410,441 PHYS Common 194 1788916 SAVE PP Local 441 R(4) 4 scalar 441,445,506,511 PP0 Local 442 R(4) 4 scalar 442,445 PQ0 Param 52 R(4) 4 scalar 57,410 PQ0C Param 57 R(4) 4 scalar PVRBLS Common 249 5530140 SAVE Q0_T Local 291 R(4) 4 3 807975 356,444 QC Local 453 R(4) 4 scalar 453,457,460,488,496,507,518,527,52 9 QI Local 412 R(4) 4 scalar 412,414,420,453 QINT Local 413 R(4) 4 scalar 413,414,453 QKL Local 393 R(4) 4 scalar 393,444,460,506,514,518,526,529,55 8 QTEMP Local 526 R(4) 4 scalar 526,527 QW Local 410 R(4) 4 scalar 410,412,413 Q_T Local 290 R(4) 4 3 807975 351,393,558,579 R Param 54 R(4) 4 scalar 55 RCP Param 57 R(4) 4 scalar 556,557 RCPR Param 55 R(4) 4 scalar RDTPH Local 302 R(4) 4 scalar 302,557 RESIJ Local 387 R(4) 4 scalar 387,442 ROW Param 53 R(4) 4 scalar 57 RQKL Local 458 R(4) 4 scalar 458,460,465,468,488 RQKLL Local 468 R(4) 4 scalar 468,469 RQTMP Local 527 R(4) 4 scalar 527,528 RROG Param 57 R(4) 4 scalar RTWODT Local 304 R(4) 4 scalar 304,443,444,445,488,490,518,529 SGETMO Subr 350 350,351,352,353,355,356,357,578,57 9,581,582 SINGLRST Local 161 L(4) 4 scalar SQRT Func 469 scalar 469 T0_T Local 289 R(4) 4 3 807975 355,443 TEMPCOM Common 131 6603768 SAVE TEMPV Common 241 6535620 SAVE THH Local 440 R(4) 4 scalar 440,526,543,556,557,558 TKL Local 392 R(4) 4 scalar 392,400,443,510,556 TM10 Param 54 R(4) 4 scalar TMT0 Local 400 R(4) 4 scalar 400,401,405,412,414,418,428,432 TMT15 Local 401 R(4) 4 scalar 401,413 TOPO Common 139 17478548 SAVE TRAIN_T Local 292 R(4) 4 3 807975 357,557,581 TRESH Param 52 R(4) 4 scalar 57 TWODT Local 303 R(4) 4 scalar 303,304,440 T_T Local 288 R(4) 4 3 807975 350,392,556,578 U00IJ Local 385 R(4) 4 scalar 385,419,447 U00KL Local 419 R(4) 4 scalar 419,420,447,465,469,488,504,518 Page 12 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References US Local 310 R(4) 4 scalar 310,468,469,504 US00 Local 504 R(4) 4 scalar 504,507 UTIM Local 334 R(4) 4 scalar 334,419,447 VRBLS Common 221 13143060 SAVE TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 1292760 2 17955 COM ACPREC R(4) 4 1220940 2 17955 COM ACUTIM R(4) 4 20 scalar COM AETA R(4) 4 264 1 45 COM 410,441,442 AFSI R(4) 4 5458320 2 17955 COM AKHS R(4) 4 646380 2 17955 COM AKMS R(4) 4 574560 2 17955 COM ALBASE R(4) 4 1009004 2 17955 COM ALBEDO R(4) 4 1080824 2 17955 COM ARATIM R(4) 4 16 scalar COM AVCNVC R(4) 4 12 scalar COM AVRAIN R(4) 4 8 scalar COM CI R(4) 4 40 scalar COM CLDEFI R(4) 4 1077300 2 17955 COM CNVBOT R(4) 4 721724 2 17955 COM CNVTOP R(4) 4 649904 2 17955 COM CS R(4) 4 28 scalar COM CUPREC R(4) 4 1364580 2 17955 COM CWM R(4) 4 0 3 807975 COM 322,353,582 CZEN R(4) 4 434444 2 17955 COM CZMEAN R(4) 4 1296284 2 17955 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 301 DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM EPSR R(4) 4 75344 2 17955 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 12999420 2 17955 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 865364 2 17955 COM GLAT R(4) 4 290804 2 17955 COM GLON R(4) 4 362624 2 17955 COM HBM2 R(4) 4 6751080 2 17955 COM 384 HBM3 R(4) 4 6822900 2 17955 COM HBOT R(4) 4 578084 2 17955 COM HDAC R(4) 4 1152644 2 17955 COM HDACV R(4) 4 1224464 2 17955 COM HTM R(4) 4 287280 3 807975 COM 321,322,352 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 506264 2 17955 COM IBROW I(4) 4 404 scalar COM Page 13 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Type Bytes Offset Dimen Elements Attributes References ICHUNKTAB I(4) 4 620 1 8 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1064 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1060 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 8 COM IS_LOC_TABLE I(4) 4 492 1 8 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JRA I(4) 4 12160 1 760 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM KTM I(4) 4 0 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 3304080 2 17955 COM LIST I(4) 4 40 scalar COM LMH I(4) 4 15200 2 17955 COM 383 LMV I(4) 4 87020 2 17955 COM MPI_COMM_COMP I(4) 4 652 scalar COM MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM Page 14 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Type Bytes Offset Dimen Elements Attributes References MXSNAL R(4) 4 3524 2 17955 COM MYIE I(4) 4 52 scalar COM 320,328,377,380,588,599 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 320,328,377,380,588,599 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 319,327,587,598 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM 377,379 MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 319,327,587,598 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM Page 15 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Type Bytes Offset Dimen Elements Attributes References MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM 377,379 MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM 376,539 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 76 scalar COM NCNVC I(4) 4 92 scalar COM NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NHEAT I(4) 4 4 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM 301 NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NSHDE I(4) 4 80 scalar COM NSTART I(4) 4 60 scalar COM NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM P0 R(4) 4 6463800 2 17955 COM 386,600 Page 16 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Type Bytes Offset Dimen Elements Attributes References PD R(4) 4 0 2 17955 COM 329,600 PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PREC R(4) 4 1149120 2 17955 COM PSHLTR R(4) 4 2154600 2 17955 COM PT R(4) 4 4 scalar COM 410,441,442 PTBL R(4) 4 1439924 2 10184 COM Q R(4) 4 9767520 3 807975 COM 321,351,420,579,592 Q0 R(4) 4 3231900 3 807975 COM 356,592 Q10 R(4) 4 1795500 2 17955 COM Q2 R(4) 4 2226420 3 807975 COM Q30 R(4) 4 1508220 2 17955 COM QS R(4) 4 502740 2 17955 COM QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 2082780 2 17955 COM QWBS R(4) 4 861840 2 17955 COM QZ0 R(4) 4 359100 2 17955 COM RADIN R(4) 4 147164 2 17955 COM RADOT R(4) 4 218984 2 17955 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 RES R(4) 4 13071240 2 17955 COM 329,387 RESTRT L(4) 4 28 scalar COM RF R(4) 4 718200 2 17955 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RUN L(4) 4 4 scalar COM SI R(4) 4 1005480 2 17955 COM SICE R(4) 4 215460 2 17955 COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 1368104 2 17955 COM SM R(4) 4 143640 2 17955 COM SNO R(4) 4 933660 2 17955 COM SQS R(4) 4 1164 1 134 COM SR R(4) 4 3375900 2 17955 COM SST R(4) 4 937184 2 17955 COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 71820 3 807975 COM 350,411,578,593 T0 R(4) 4 0 3 807975 COM 355,593 TCUCN R(4) 4 3231924 3 807975 COM TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM Page 17 Source Listing GSCOND 2025-03-12 18:22 Symbol Table GSCOND.F Name Type Bytes Offset Dimen Elements Attributes References TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TG R(4) 4 793544 2 17955 COM TH10 R(4) 4 1723680 2 17955 COM TH30 R(4) 4 1436400 2 17955 COM THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THEAT R(4) 4 0 scalar COM THL R(4) 4 52 scalar COM THS R(4) 4 430920 2 17955 COM THZ0 R(4) 4 287280 2 17955 COM TRAIN R(4) 4 24 3 807975 COM 357,581 TSHLTR R(4) 4 2010960 2 17955 COM TTBL R(4) 4 1480660 2 10184 COM TTBLQ R(4) 4 1521396 2 66880 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 790020 2 17955 COM U R(4) 4 3303720 3 807975 COM U00 R(4) 4 3231900 2 17955 COM 385 U10 R(4) 4 1867320 2 17955 COM U30 R(4) 4 1580040 2 17955 COM UL R(4) 4 3303720 1 90 COM 419,447 USTAR R(4) 4 71820 2 17955 COM UZ0 R(4) 4 143640 2 17955 COM V R(4) 4 6535620 3 807975 COM V10 R(4) 4 1939140 2 17955 COM V30 R(4) 4 1651860 2 17955 COM VBM2 R(4) 4 0 2 17955 COM VBM3 R(4) 4 71820 2 17955 COM VTM R(4) 4 3519180 3 807975 COM VZ0 R(4) 4 215460 2 17955 COM Z0 R(4) 4 0 2 17955 COM Page 18 Source Listing GSCOND 2025-03-12 18:22 Subprograms/Common Blocks GSCOND.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLH Common 280 6463824 SAVE CLDWTR Common 232 3447720 SAVE CTLBLK Common 163 112 SAVE GLB_TABLE Common 126 128 SAVE GSCOND Subr 2 LOOPS Common 172 158840 SAVE MAPPINGS Common 145 5024 SAVE MASKS Common 180 6894720 SAVE MPPCOM Common 90 1464 SAVE PHYS Common 194 1788916 SAVE PVRBLS Common 249 5530140 SAVE TEMPCOM Common 131 6603768 SAVE TEMPV Common 241 6535620 SAVE TOPO Common 139 17478548 SAVE VRBLS Common 221 13143060 SAVE 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 Page 19 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F -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 -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 precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat Page 20 Source Listing GSCOND 2025-03-12 18:22 GSCOND.F -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 -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 : GSCOND.lst no -o COMPILER: Intel(R) Fortran 19.1-1655