Page 1 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 1 SUBROUTINE INITPOST 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: INITPOST INITIALIZE POST FOR RUN 5 C PRGRMMR: RUSS TREADON ORG: W/NP2 DATE: 93-11-10 6 C 7 C ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND 8 C VARIABLES AT THE START OF AN ETA MODEL OR POST 9 C PROCESSOR RUN. 10 C 11 C THIS ROUTINE ASSUMES THAT INTEGERS AND REALS ARE THE SAME SIZE 12 C . 13 C 14 C PROGRAM HISTORY LOG: 15 C 93-11-10 RUSS TREADON - ADDED DOCBLOC 16 C 98-05-29 BLACK - CONVERSION OF POST CODE FROM 1-D TO 2-D 17 C 99-01 20 TUCCILLO - MPI VERSION 18 C 03-02-01 H CHUANG - CHANGE MAX SNOW ALBEDO TO REAL 19 C 20 C USAGE: CALL INIT 21 C INPUT ARGUMENT LIST: 22 C NONE 23 C 24 C OUTPUT ARGUMENT LIST: 25 C NONE 26 C 27 C OUTPUT FILES: 28 C NONE 29 C 30 C SUBPROGRAMS CALLED: 31 C UTILITIES: 32 C NONE 33 C LIBRARY: 34 C COMMON - CTLBLK 35 C OUTFIL 36 C LOOPS 37 C MASKS 38 C DYNAMD 39 C PHYS2 40 C MAPOT1 41 C VRBLS 42 C PVRBLS 43 C BOCO 44 C GRIDS 45 C ACMCLD 46 C ACMCLH 47 C ACMPRE 48 C ACMRDL 49 C ACMRDS 50 C ACMSFC 51 C INDX 52 C 53 C 54 C ATTRIBUTES: 55 C LANGUAGE: FORTRAN 56 C MACHINE : CRAY C-90 57 C$$$ Page 2 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 58 C 59 C 60 C INCLUDE/SET PARAMETERS. 61 C 62 INCLUDE "parmeta" 80 INCLUDE "params" 122 INCLUDE "parm.tbl" 124 INCLUDE "parmsoil" 125 C 126 C DECLARE VARIABLES. 127 C 129 REAL DUMMY ( IM, JM ) 130 C 131 C NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK 132 C AS LONG AS REALS AND INTEGERS ARE THE SAME SIZE. 133 C 134 C ALSO, EXTRACT IS CALLED WITH DUMMY ( A REAL ) EVEN WHEN THE NUMBERS ARE 135 C INTEGERS - THIS IS OK AS LONG AS INTEGERS AND REALS ARE THE SAME SIZE. 136 LOGICAL RUN,RUNB,FIRST,RESTRT,SINGLRST 137 1, SIGMA,SUBPOST,NEST 138 LOGICAL IOOMG,IOALL 139 CHARACTER*32 LABEL 140 CHARACTER*40 CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 141 &, FILCLD,FILRAD,FILSFC 142 CHARACTER*4 RESTHR 143 CHARACTER FNAME*80,ENVAR*50,BLANK*4 144 INTEGER IDATB(3) 145 REAL ETA(LP1),DETA(LM),AETA(LM) 146 C 147 C INCLUDE COMMON BLOCKS. 148 C 149 INCLUDE "IOUNIT.comm" 157 INCLUDE "OMGAOT.comm" 161 INCLUDE "CTLBLK.comm" 176 INCLUDE "OUTFIL.comm" 182 INCLUDE "LOOPS.comm" 190 INCLUDE "MASKS.comm" 198 INCLUDE "DYNAMD.comm" 210 INCLUDE "PHYS2.comm" 231 INCLUDE "MAPOT1.comm" 244 INCLUDE "SRFDSP.comm" 250 INCLUDE "CNVCLD.comm" 256 INCLUDE "VRBLS.comm" 263 INCLUDE "PVRBLS.comm" 275 INCLUDE "BOCO.comm" 282 INCLUDE "ACMCLD.comm" 289 INCLUDE "ACMCLH.comm" 294 INCLUDE "ACMPRE.comm" 300 INCLUDE "ACMRDL.comm" 306 INCLUDE "ACMRDS.comm" 312 INCLUDE "ACMSFC.comm" 319 INCLUDE "CLDWTR.comm" 325 INCLUDE "SOIL.comm" 334 INCLUDE "EXTRA.comm" 346 INCLUDE "E2PFLG.comm" 352 INCLUDE "INDX.comm" 358 INCLUDE "QFLX.comm" Page 3 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 381 INCLUDE "PPTASM.comm" 382 383 C 384 C DELCARE NAMELIST. 385 C 408 NAMELIST /FCSTDATA/ 409 & TSTART,TEND,TCP,RESTRT,SINGLRST 410 &,SUBPOST,NMAP,TSHDE,SPL 411 &,NPHS,NCNVC,NRADSH,NRADLH,NTDDMP 412 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 413 &,NEST 414 C 415 DATA BLANK/' '/ 416 C 417 C*********************************************************************** 418 C START INIT HERE. 419 C 420 WRITE(STDOUT,*)'INITPOST: ENTER INITPOST' 421 C 422 C ***STEP 1. READ "NHB" NFILE. 423 C 424 C READ DATA FROM UNIT CONNECTED TO NHIBU. THIS DATA CONSISTS 425 C OF "CONSTANTS" FOR A GIVEN ETA MODEL RUN. 426 C 427 LUNHB = 12 428 LSL = LSM 429 REWIND LUNHB 430 C 431 READ(LUNHB) NFCST,NBC,LIST,DT,IDTAD,SIGMA, 432 X KHLA,KHHA,KVLA,KVHA,KHL2,KHH2,KVL2,KVH2 433 cwas READ(LUNHB) LMH 434 READ(LUNHB) DUMMY 435 CALL EXTRACT(DUMMY,LMH) 436 cwas READ(LUNHB) LMV 437 READ(LUNHB) DUMMY 438 CALL EXTRACT(DUMMY,LMV) 439 C NEED ALL OF HBM2 FOR MPI TASK 0 440 READ(LUNHB) HBM2 441 C NEED ALL OF VBM2 FOR MPI TASK 0 442 READ(LUNHB) VBM2 443 cwas READ(LUNHB) VBM3 444 READ(LUNHB) DUMMY 445 CALL EXTRACT(DUMMY,VBM3) 446 cwas READ(LUNHB) SM 447 READ(LUNHB) DUMMY 448 CALL EXTRACT(DUMMY,SM) 449 cwas READ(LUNHB) SICE 450 READ(LUNHB) DUMMY 451 CALL EXTRACT(DUMMY,SICE) 452 DO L=1,LM 453 cwas READ(LUNHB)((HTM(I,J,L),I=1,IM),J=1,JM) 454 READ(LUNHB)((DUMMY(I,J),I=1,IM),J=1,JM) 455 CALL EXTRACT(DUMMY,HTM(1,1,L)) 456 END DO 457 DO L=1,LM 458 cwas READ(LUNHB)((VTM(I,J,L),I=1,IM),J=1,JM) 459 READ(LUNHB)((DUMMY(I,J),I=1,IM),J=1,JM) Page 4 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 460 CALL EXTRACT(DUMMY,VTM(1,1,L)) 461 END DO 462 READ(LUNHB) DY,CPGFV,EN,ENT,R,PT,TDDAMP,F4D,F4Q, 463 X EF4T,DETAD,RDETA,AETAD,F4Q2,ETAD,DFL,EM,EMT 464 cwas READ(LUNHB) DX 465 READ(LUNHB) DUMMY 466 CALL EXTRACT(DUMMY,DX) 467 cwas READ(LUNHB) WPDAR 468 READ(LUNHB) DUMMY 469 CALL EXTRACT(DUMMY,WPDAR) 470 cwas READ(LUNHB) CPGFU 471 READ(LUNHB) DUMMY 472 CALL EXTRACT(DUMMY,CPGFU) 473 cwas READ(LUNHB) CURV 474 READ(LUNHB) DUMMY 475 CALL EXTRACT(DUMMY,CURV) 476 cwas READ(LUNHB) FCP 477 READ(LUNHB) DUMMY 478 CALL EXTRACT(DUMMY,FCP) 479 cwas READ(LUNHB) FDIV 480 READ(LUNHB) DUMMY 481 CALL EXTRACT(DUMMY,FDIV) 482 cwas READ(LUNHB) FAD 483 READ(LUNHB) DUMMY 484 CALL EXTRACT(DUMMY,FAD) 485 cwas READ(LUNHB) F 486 READ(LUNHB) DUMMY 487 CALL EXTRACT(DUMMY,F) 488 cwas READ(LUNHB) DDMPU 489 READ(LUNHB) DUMMY 490 CALL EXTRACT(DUMMY,DDMPU) 491 cwas READ(LUNHB) DDMPV 492 READ(LUNHB) DUMMY 493 CALL EXTRACT(DUMMY,DDMPV) 494 READ(LUNHB) PT2,GLAT 495 READ(LUNHB) GLON 496 READ(LUNHB) PLQ,RDPQ,RDTHEQ,STHEQ,THE0Q 497 READ(LUNHB) ROS,CS,DS,ROI,CI,DI,PL,THL,RDQ,RDTH,RDP, 498 X RDTHE,DETA2,AETA2,DFRLG,QS0,SQS,STHE,THE0 499 cwas READ(LUNHB) RMXSNAL 500 READ(LUNHB) DUMMY 501 CALL EXTRACT(DUMMY,RMXSNAL) 502 cwas READ(LUNHB) EPSR 503 READ(LUNHB) DUMMY 504 CALL EXTRACT(DUMMY,EPSR) 505 cwas READ(LUNHB) TG 506 READ(LUNHB) DUMMY 507 CALL EXTRACT(DUMMY,TG) 508 cwas READ(LUNHB) GFFC 509 READ(LUNHB) DUMMY 510 CALL EXTRACT(DUMMY,GFFC) 511 cwas READ(LUNHB) SST 512 READ(LUNHB) DUMMY 513 CALL EXTRACT(DUMMY,SST) 514 cwas READ(LUNHB) ALBASE 515 READ(LUNHB) DUMMY 516 CALL EXTRACT(DUMMY,ALBASE) Page 5 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 517 cwas READ(LUNHB) HDAC 518 READ(LUNHB) DUMMY 519 CALL EXTRACT(DUMMY,HDAC) 520 cwas READ(LUNHB) HDACV 521 READ(LUNHB) DUMMY 522 CALL EXTRACT(DUMMY,HDACV) 523 READ(LUNHB) TTBLQ 524 READ(LUNHB) PTBL,TTBL,R1,PT1,TSPH,WBD,SBD,TLM0D,TPH0D, 525 X DLMD,DPHD,CMLD,DP30,X1P,Y1P,IXM,IYM,DETA1,AETA1, 526 X ETA1 527 cwas READ(LUNHB) IVGTYP 528 READ(LUNHB) DUMMY 529 CALL EXTRACT(DUMMY,IVGTYP) 530 cwas READ(LUNHB) ISLTYP 531 READ(LUNHB) DUMMY 532 CALL EXTRACT(DUMMY,ISLTYP) 533 cwas READ(LUNHB) ISLOPE 534 READ(LUNHB) DUMMY 535 CALL EXTRACT(DUMMY,ISLOPE) 536 cwas READ(LUNHB) VEGFRC 537 READ(LUNHB) DUMMY 538 CALL EXTRACT(DUMMY,VEGFRC) 539 READ(LUNHB) SLDPTH 540 READ(LUNHB) RTDPTH 541 542 WRITE(STDOUT,*)'INITPOST: READ CONSTANTS FILE NHB' 543 C 544 C COMPUTE DERIVED CONSTANTS FROM NHB INPUT. 545 C 546 PTDYN = PT 547 RDYN = R 548 DO L = 1,LM 549 DETA(L) = DETAD(L) 550 AETA(L) = AETAD(L) 551 ETA(L) = ETAD(L) 552 END DO 553 ETA(LP1) = ETAD(LP1) 554 C 555 C 556 C ***STEP 2. READ NAMELIST FCSTDATA. 557 C 558 C READ NAMELIST FCSTDATA WHICH CONTROLS TIMESTEPS, 559 C ACCUMULATION PERIODS, AND STANDARD OUTPUT 560 C 561 RESTRT = .FALSE. 562 LFCSTD = 11 563 REWIND LFCSTD 564 READ(LFCSTD,FCSTDATA) 565 C 566 WRITE(STDOUT,*)'INITPOST: READ NAMELIST ', 567 X 'FCSTDATA - CONTENTS BELOW' 568 WRITE(STDOUT,*)' TSTART,TEND : ',TSTART,TEND 569 WRITE(STDOUT,*)' TCP : ',TCP 570 WRITE(STDOUT,*)' RESTRT : ',RESTRT 571 WRITE(STDOUT,*)' SUBPOST : ',SUBPOST 572 WRITE(STDOUT,*)' NMAP,NPHS : ',NMAP,NPHS 573 WRITE(STDOUT,*)' NRADSH,NRADLH: ',NRADSH,NRADLH Page 6 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 574 WRITE(STDOUT,*)' TPREC,THEAT : ',TPREC,THEAT 575 WRITE(STDOUT,*)' TCLOD,TRDSW : ',TCLOD,TRDSW 576 WRITE(STDOUT,*)' TRDLW,TSRFC : ',TRDLW,TSRFC 577 WRITE(STDOUT,*)' TSHDE (POSTED FORECAST HOURS) BELOW: ' 578 WRITE(STDOUT,50) (TSHDE(K),K=1,61) 579 WRITE(STDOUT,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' 580 WRITE(STDOUT,51) (SPL(L),L=1,LSM) 581 50 FORMAT(14(F4.1,1X)) 582 51 FORMAT(8(F8.1,1X)) 583 C 584 C COMPUTE DERIVED TIME STEPPING CONSTANTS. 585 C 586 FIRST = .TRUE. 587 NSTART = INT(TSTART*TSPH+D50) 588 NTSTM = INT(TEND *TSPH+D50)+1 589 NCP = INT(TCP *TSPH+D50) 590 NDDAMP = INT(TDDAMP*TSPH+D50) 591 NPREC = INT(TPREC *TSPH+D50) 592 NHEAT = INT(THEAT *TSPH+D50) 593 NCLOD = INT(TCLOD *TSPH+D50) 594 NRDSW = INT(TRDSW *TSPH+D50) 595 NRDLW = INT(TRDLW *TSPH+D50) 596 NSRFC = INT(TSRFC *TSPH+D50) 597 NRADS = NINT(TSPH)*NRADSH 598 NRADL = NINT(TSPH)*NRADLH 599 DTQ2 = NPHS * DT 600 TDTQ2 = DTQ2 + DTQ2 601 DTD = D50 * DTQ2 602 TDTD = DTD + DTD 603 KTM = INT(DTQ2/DTD+D50) 604 C 605 WRITE(STDOUT,*)' ' 606 WRITE(STDOUT,*)'DERIVED TIME STEPPING CONSTANTS' 607 WRITE(STDOUT,*)' FIRST : ',FIRST 608 WRITE(STDOUT,*)' NSTART,NSTSM,NCP : ',NSTART,NTSTM,NCP 609 WRITE(STDOUT,*)' NDDAMP,NPREC,NHEAT: ',NDDAMP,NPREC,NHEAT 610 WRITE(STDOUT,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW 611 WRITE(STDOUT,*)' NSRFC : ',NSRFC 612 WRITE(STDOUT,*)' NRADS,NRADL : ',NRADS,NRADL 613 WRITE(STDOUT,*)' DTQ2,TDTQ2 : ',DTQ2,TDTQ2 614 WRITE(STDOUT,*)' DTD,TDTD,KTM : ',DTD,TDTD,KTM 615 C 616 C COMPUTE DERIVED MAP OUTPUT CONSTANTS. 617 DO L = 1,LSL 618 ALSL(L) = LOG(SPL(L)) 619 END DO 620 DO I=1,NMAP 621 ISHDE(I)=INT(TSHDE(I)*TSPH+D50)+1 622 END DO 623 C 624 C 625 C 626 C STEP 3. READ MODEL RESTART FILE 627 C 628 WRITE(STDOUT,*)'INITPOST: READ RESTRT FILE' 629 C 630 ENVAR=' ' Page 7 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 631 CALL get_environment_variable("RSTFNL",ENVAR) 632 CALL get_environment_variable("tmmark",RESTHR) 633 KPATH = INDEX(ENVAR,' ') -1 634 IF(KPATH.LE.0) KPATH = LEN(ENVAR) 635 print*,'kpath= ',kpath 636 print*,'RESTHR=',RESTHR 637 C 638 IF(RESTHR.EQ.' ')THEN 639 WRITE(RSTFIL,75)ITAG 640 75 FORMAT('restrt',I2.2) 641 ELSE 642 WRITE(RSTFIL,80)ITAG,RESTHR 643 80 FORMAT('restrt',I2.2,'.',a4) 644 ENDIF 645 print*,'rstfil=',rstfil 646 C 647 KRST = INDEX(RSTFIL,' ') -1 648 IF(KRST.LE.0) KRST = LEN(RSTFIL) 649 print *,'krst= ',krst 650 C*** 651 LRSTRT = 13 652 CLOSE(LRSTRT) 653 C CALL ASNUNIT(LRSTRT,'-F cos -C ascii -N ibm',IER) 654 C IF(IER.NE.0) 655 C 1 WRITE(LIST,*)'INITPOST: ASNUNIT ERROR IER=',IER 656 IF(ENVAR(1:4).EQ.BLANK) THEN 657 OPEN(LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED') 658 ELSE 659 FNAME = ENVAR(1:KPATH) // RSTFIL(1:KRST) 660 OPEN(UNIT=LRSTRT,FILE=FNAME,FORM='UNFORMATTED',IOSTAT=IER) 661 ENDIF 662 C*** 663 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 664 C*** 665 READ(LRSTRT) PDOMG,RESOMG 666 C*** 667 DO L = 1,LM 668 cwas READ(LRSTRT) ((OMGA(I,J,L),I=1,IM),J=1,JM) 669 READ(LRSTRT) ((DUMMY(I,J),I=1,IM),J=1,JM) 670 CALL EXTRACT(DUMMY,OMGA(1,1,L)) 671 END DO 672 C*** 673 WRITE(STDOUT,*)' READ ',LABEL 674 C 675 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL, 676 & FIRST,IOUT,NSHDE 677 C*** 678 CWAS READ(LRSTRT) PD,RES,FIS 679 READ(LRSTRT) DUMMY 680 CALL EXTRACT(DUMMY,PD) 681 BACKSPACE LRSTRT 682 READ(LRSTRT) DUMMY,DUMMY 683 CALL EXTRACT(DUMMY,RES) 684 BACKSPACE LRSTRT 685 READ(LRSTRT) DUMMY,DUMMY,DUMMY 686 CALL EXTRACT(DUMMY,FIS) 687 C Page 8 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 688 READ(LRSTRT) PDB,TB,QB,UB,VB 689 C*** 690 DO L = 1,LM 691 cwas READ(LRSTRT) ((T(I,J,L),I=1,IM),J=1,JM) 692 READ(LRSTRT) ((DUMMY(I,J),I=1,IM),J=1,JM) 693 CALL EXTRACT(DUMMY,T(1,1,L)) 694 cwas READ(LRSTRT) ((Q(I,J,L),I=1,IM),J=1,JM) 695 READ(LRSTRT) ((DUMMY(I,J),I=1,IM),J=1,JM) 696 CALL EXTRACT(DUMMY,Q(1,1,L)) 697 cwas READ(LRSTRT) ((U(I,J,L),I=1,IM),J=1,JM) 698 READ(LRSTRT) ((DUMMY(I,J),I=1,IM),J=1,JM) 699 CALL EXTRACT(DUMMY,U(1,1,L)) 700 cwas READ(LRSTRT) ((V(I,J,L),I=1,IM),J=1,JM) 701 READ(LRSTRT) ((DUMMY(I,J),I=1,IM),J=1,JM) 702 CALL EXTRACT(DUMMY,V(1,1,L)) 703 cwas READ(LRSTRT) ((Q2(I,J,L),I=1,IM),J=1,JM) 704 READ(LRSTRT) ((DUMMY(I,J),I=1,IM),J=1,JM) 705 CALL EXTRACT(DUMMY,Q2(1,1,L)) 706 READ(LRSTRT) 707 c READ(LRSTRT) ((TTND(I,J,L),I=1,IM),J=1,JM) 708 cwas READ(LRSTRT) ((CWM(I,J,L),I=1,IM),J=1,JM) 709 READ(LRSTRT) ((DUMMY(I,J),I=1,IM),J=1,JM) 710 CALL EXTRACT(DUMMY,CWM(1,1,L)) 711 READ(LRSTRT) 712 READ(LRSTRT) 713 c READ(LRSTRT) ((TRAIN(I,J,L),I=1,IM),J=1,JM) 714 c READ(LRSTRT) ((TCUCN(I,J,L),I=1,IM),J=1,JM) 715 ENDDO 716 C*** 717 WRITE(STDOUT,*)' READ ',LABEL 718 C 719 cwas READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 720 cwas &, RSWIN,RSWOUT,TG,Z0,AKMS,CZEN 721 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 722 &, DUMMY 723 CALL EXTRACT(DUMMY,RSWIN) 724 BACKSPACE LRSTRT 725 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 726 &, DUMMY,DUMMY 727 CALL EXTRACT(DUMMY,RSWOUT) 728 BACKSPACE LRSTRT 729 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 730 &, DUMMY,DUMMY,DUMMY 731 CALL EXTRACT(DUMMY,TG) 732 BACKSPACE LRSTRT 733 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 734 &, DUMMY,DUMMY,DUMMY,DUMMY 735 CALL EXTRACT(DUMMY,Z0) 736 BACKSPACE LRSTRT 737 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 738 &, DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 739 CALL EXTRACT(DUMMY,AKMS) 740 BACKSPACE LRSTRT 741 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL 742 &, DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 743 CALL EXTRACT(DUMMY,CZEN) 744 C*** Page 9 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 745 cwas READ(LRSTRT) AKHS,THS,QS,TWBS,QWBS,HBOT,CFRACL 746 READ(LRSTRT) DUMMY 747 CALL EXTRACT(DUMMY,AKHS) 748 BACKSPACE LRSTRT 749 READ(LRSTRT) DUMMY,DUMMY 750 CALL EXTRACT(DUMMY,THS) 751 BACKSPACE LRSTRT 752 READ(LRSTRT) DUMMY,DUMMY,DUMMY 753 CALL EXTRACT(DUMMY,QS) 754 BACKSPACE LRSTRT 755 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 756 CALL EXTRACT(DUMMY,TWBS) 757 BACKSPACE LRSTRT 758 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 759 CALL EXTRACT(DUMMY,QWBS) 760 BACKSPACE LRSTRT 761 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 762 CALL EXTRACT(DUMMY,HBOT) 763 BACKSPACE LRSTRT 764 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 765 CALL EXTRACT(DUMMY,CFRACL) 766 C*** 767 cwas READ(LRSTRT) THZ0,QZ0,UZ0,VZ0,USTAR,HTOP,CFRACM 768 READ(LRSTRT) DUMMY 769 CALL EXTRACT(DUMMY,THZ0) 770 BACKSPACE LRSTRT 771 READ(LRSTRT) DUMMY,DUMMY 772 CALL EXTRACT(DUMMY,QZ0) 773 BACKSPACE LRSTRT 774 READ(LRSTRT) DUMMY,DUMMY,DUMMY 775 CALL EXTRACT(DUMMY,UZ0) 776 BACKSPACE LRSTRT 777 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 778 CALL EXTRACT(DUMMY,VZ0) 779 BACKSPACE LRSTRT 780 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 781 CALL EXTRACT(DUMMY,USTAR) 782 BACKSPACE LRSTRT 783 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 784 CALL EXTRACT(DUMMY,HTOP) 785 BACKSPACE LRSTRT 786 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 787 CALL EXTRACT(DUMMY,CFRACM) 788 C*** 789 CWAS READ(LRSTRT) SNO,SI,CLDEFI,RF,PSLP,CUPPT,CFRACH 790 READ(LRSTRT) DUMMY 791 CALL EXTRACT(DUMMY,SNO) 792 BACKSPACE LRSTRT 793 READ(LRSTRT) DUMMY,DUMMY 794 CALL EXTRACT(DUMMY,SI) 795 BACKSPACE LRSTRT 796 READ(LRSTRT) DUMMY,DUMMY,DUMMY 797 CALL EXTRACT(DUMMY,CLDEFI) 798 BACKSPACE LRSTRT 799 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 800 CALL EXTRACT(DUMMY,RF) 801 BACKSPACE LRSTRT Page 10 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 802 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 803 CALL EXTRACT(DUMMY,PSLP) 804 BACKSPACE LRSTRT 805 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 806 CALL EXTRACT(DUMMY,CUPPT) 807 BACKSPACE LRSTRT 808 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 809 CALL EXTRACT(DUMMY,CFRACH) 810 C 811 C*** 812 cwas READ(LRSTRT) SOILTB,SFCEXC,SMSTAV,SMSTOT,GRNFLX,PCTSNO 813 READ(LRSTRT) DUMMY 814 CALL EXTRACT(DUMMY,SOILTB) 815 BACKSPACE LRSTRT 816 READ(LRSTRT) DUMMY,DUMMY 817 CALL EXTRACT(DUMMY,SFCEXC) 818 BACKSPACE LRSTRT 819 READ(LRSTRT) DUMMY,DUMMY,DUMMY 820 CALL EXTRACT(DUMMY,SMSTAV) 821 BACKSPACE LRSTRT 822 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 823 CALL EXTRACT(DUMMY,SMSTOT) 824 BACKSPACE LRSTRT 825 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 826 CALL EXTRACT(DUMMY,GRNFLX) 827 BACKSPACE LRSTRT 828 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 829 CALL EXTRACT(DUMMY,PCTSNO) 830 C*** 831 CWAS READ(LRSTRT) RLWIN,RADOT,CZMEAN,SIGT4 832 READ(LRSTRT) DUMMY 833 CALL EXTRACT(DUMMY,RLWIN) 834 BACKSPACE LRSTRT 835 READ(LRSTRT) DUMMY,DUMMY 836 CALL EXTRACT(DUMMY,RADOT) 837 BACKSPACE LRSTRT 838 READ(LRSTRT) DUMMY,DUMMY,DUMMY 839 CALL EXTRACT(DUMMY,CZMEAN) 840 BACKSPACE LRSTRT 841 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 842 CALL EXTRACT(DUMMY,SIGT4) 843 C*** 844 CWAS READ(LRSTRT) U00,UL,LC,SR 845 READ(LRSTRT) DUMMY 846 CALL EXTRACT(DUMMY,U00) 847 BACKSPACE LRSTRT 848 READ(LRSTRT) DUMMY,UL,DUMMY 849 CALL EXTRACT(DUMMY,LC) 850 BACKSPACE LRSTRT 851 READ(LRSTRT) DUMMY,UL,DUMMY,DUMMY 852 CALL EXTRACT(DUMMY,SR) 853 C*** 854 WRITE(STDOUT,*)' READ ',LABEL 855 C 856 CWAS READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL, 857 CWAS & PREC,ACPREC,ACCLIQ,CUPREC 858 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL, Page 11 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 859 & DUMMY 860 CALL EXTRACT(DUMMY,PREC) 861 BACKSPACE LRSTRT 862 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL, 863 & DUMMY,DUMMY 864 CALL EXTRACT(DUMMY,ACPREC) 865 BACKSPACE LRSTRT 866 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL, 867 & DUMMY,DUMMY,DUMMY 868 CALL EXTRACT(DUMMY,ACCLIQ) 869 BACKSPACE LRSTRT 870 READ(LRSTRT) RUN,IDAT,IHRST,NTSD,LABEL, 871 & DUMMY,DUMMY,DUMMY,DUMMY 872 CALL EXTRACT(DUMMY,CUPREC) 873 C*** 874 cwas READ(LRSTRT) ACFRCV,NCFRCV,ACFRST,NCFRST 875 READ(LRSTRT) DUMMY 876 CALL EXTRACT(DUMMY,ACFRCV) 877 BACKSPACE LRSTRT 878 READ(LRSTRT) DUMMY,DUMMY 879 CALL EXTRACT(DUMMY,NCFRCV) 880 BACKSPACE LRSTRT 881 READ(LRSTRT) DUMMY,DUMMY,DUMMY 882 CALL EXTRACT(DUMMY,ACFRST) 883 BACKSPACE LRSTRT 884 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 885 CALL EXTRACT(DUMMY,NCFRST) 886 C** 887 cwas READ(LRSTRT) ACSNOW,ACSNOM,SSROFF,BGROFF 888 READ(LRSTRT) DUMMY 889 CALL EXTRACT(DUMMY,ACSNOW) 890 BACKSPACE LRSTRT 891 READ(LRSTRT) DUMMY,DUMMY 892 CALL EXTRACT(DUMMY,ACSNOM) 893 BACKSPACE LRSTRT 894 READ(LRSTRT) DUMMY,DUMMY,DUMMY 895 CALL EXTRACT(DUMMY,SSROFF) 896 BACKSPACE LRSTRT 897 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 898 CALL EXTRACT(DUMMY,BGROFF) 899 C*** 900 cwas READ(LRSTRT) SFCSHX,SFCLHX,SUBSHX,SNOPCX 901 cwas 1, SFCUVX,SFCEVP,POTEVP 902 READ(LRSTRT) DUMMY 903 CALL EXTRACT(DUMMY,SFCSHX) 904 BACKSPACE LRSTRT 905 READ(LRSTRT) DUMMY,DUMMY 906 CALL EXTRACT(DUMMY,SFCLHX) 907 BACKSPACE LRSTRT 908 READ(LRSTRT) DUMMY,DUMMY,DUMMY 909 CALL EXTRACT(DUMMY,SUBSHX) 910 BACKSPACE LRSTRT 911 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 912 CALL EXTRACT(DUMMY,SNOPCX) 913 BACKSPACE LRSTRT 914 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 915 CALL EXTRACT(DUMMY,SFCUVX) Page 12 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 916 BACKSPACE LRSTRT 917 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 918 CALL EXTRACT(DUMMY,SFCEVP) 919 BACKSPACE LRSTRT 920 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 921 CALL EXTRACT(DUMMY,POTEVP) 922 C*** 923 cwas READ(LRSTRT) ASWIN,ASWOUT,ASWTOA,ALWIN,ALWOUT,ALWTOA 924 READ(LRSTRT) DUMMY 925 CALL EXTRACT(DUMMY,ASWIN) 926 BACKSPACE LRSTRT 927 READ(LRSTRT) DUMMY,DUMMY 928 CALL EXTRACT(DUMMY,ASWOUT) 929 BACKSPACE LRSTRT 930 READ(LRSTRT) DUMMY,DUMMY,DUMMY 931 CALL EXTRACT(DUMMY,ASWTOA) 932 BACKSPACE LRSTRT 933 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 934 CALL EXTRACT(DUMMY,ALWIN) 935 BACKSPACE LRSTRT 936 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 937 CALL EXTRACT(DUMMY,ALWOUT) 938 BACKSPACE LRSTRT 939 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 940 CALL EXTRACT(DUMMY,ALWTOA) 941 C*** 942 READ(LRSTRT) ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 943 C*** 944 cwas READ(LRSTRT) TH10,Q10,U10,V10,TSHLTR,QSHLTR,PSHLTR 945 READ(LRSTRT) DUMMY 946 CALL EXTRACT(DUMMY,TH10) 947 BACKSPACE LRSTRT 948 READ(LRSTRT) DUMMY,DUMMY 949 CALL EXTRACT(DUMMY,Q10) 950 BACKSPACE LRSTRT 951 READ(LRSTRT) DUMMY,DUMMY,DUMMY 952 CALL EXTRACT(DUMMY,U10) 953 BACKSPACE LRSTRT 954 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 955 CALL EXTRACT(DUMMY,V10) 956 BACKSPACE LRSTRT 957 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 958 CALL EXTRACT(DUMMY,TSHLTR) 959 BACKSPACE LRSTRT 960 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 961 CALL EXTRACT(DUMMY,QSHLTR) 962 BACKSPACE LRSTRT 963 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 964 CALL EXTRACT(DUMMY,PSHLTR) 965 966 BACKSPACE LRSTRT 967 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 968 1, DUMMY 969 CALL EXTRACT(DUMMY,TH30) 970 BACKSPACE LRSTRT 971 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 972 1, DUMMY,DUMMY Page 13 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 973 CALL EXTRACT(DUMMY,Q30) 974 BACKSPACE LRSTRT 975 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 976 1, DUMMY,DUMMY,DUMMY 977 CALL EXTRACT(DUMMY,U30) 978 BACKSPACE LRSTRT 979 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 980 1, DUMMY,DUMMY,DUMMY,DUMMY 981 CALL EXTRACT(DUMMY,V30) 982 983 C*** 984 cwas READ(LRSTRT) (((SMC(I,J,N),I=1,IM),J=1,JM),N=1,NSOIL) 985 DO II = 1, NSOIL 986 READ(LRSTRT) (((DUMMY(I,J),I=1,IM),J=1,JM),N=1,II) 987 CALL EXTRACT(DUMMY,SMC(1,1,II)) 988 BACKSPACE LRSTRT 989 END DO 990 READ(LRSTRT) 991 C*** 992 cwas READ(LRSTRT) CMC 993 READ(LRSTRT) DUMMY 994 CALL EXTRACT(DUMMY,CMC) 995 C*** 996 cwas READ(LRSTRT) (((STC(I,J,N),I=1,IM),J=1,JM),N=1,NSOIL) 997 DO II = 1, NSOIL 998 READ(LRSTRT) (((DUMMY(I,J),I=1,IM),J=1,JM),N=1,II) 999 CALL EXTRACT(DUMMY,STC(1,1,II)) 1000 BACKSPACE LRSTRT 1001 END DO 1002 READ(LRSTRT) 1003 C*** 1004 cwas READ(LRSTRT) (((SH2O(I,J,N),I=1,IM),J=1,JM),N=1,NSOIL) 1005 DO II = 1, NSOIL 1006 READ(LRSTRT) (((DUMMY(I,J),I=1,IM),J=1,JM),N=1,II) 1007 CALL EXTRACT(DUMMY,SH2O(1,1,II)) 1008 BACKSPACE LRSTRT 1009 END DO 1010 READ(LRSTRT) 1011 C*** 1012 cwas READ(LRSTRT) ALBEDO 1013 READ(LRSTRT) DUMMY 1014 CALL EXTRACT(DUMMY,ALBEDO) 1015 C*** 1016 READ(LRSTRT) DUMMY 1017 CALL EXTRACT(DUMMY,FQU) 1018 BACKSPACE LRSTRT 1019 READ(LRSTRT) DUMMY,DUMMY 1020 CALL EXTRACT(DUMMY,FQV) 1021 BACKSPACE LRSTRT 1022 READ(LRSTRT) DUMMY,DUMMY,DUMMY 1023 CALL EXTRACT(DUMMY,DQFLX) 1024 BACKSPACE LRSTRT 1025 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 1026 CALL EXTRACT(DUMMY,FCU) 1027 BACKSPACE LRSTRT 1028 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1029 CALL EXTRACT(DUMMY,FCV) Page 14 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 1030 BACKSPACE LRSTRT 1031 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1032 CALL EXTRACT(DUMMY,DCFLX) 1033 1034 BACKSPACE LRSTRT 1035 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1036 1, DUMMY 1037 CALL EXTRACT(DUMMY,FQU7) 1038 BACKSPACE LRSTRT 1039 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1040 1, DUMMY,DUMMY 1041 CALL EXTRACT(DUMMY,FQV7) 1042 BACKSPACE LRSTRT 1043 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1044 1, DUMMY,DUMMY,DUMMY 1045 CALL EXTRACT(DUMMY,DQFLX7) 1046 BACKSPACE LRSTRT 1047 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1048 1, DUMMY,DUMMY,DUMMY,DUMMY 1049 CALL EXTRACT(DUMMY,FCU7) 1050 BACKSPACE LRSTRT 1051 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1052 1, DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1053 CALL EXTRACT(DUMMY,FCV7) 1054 BACKSPACE LRSTRT 1055 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1056 1, DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1057 CALL EXTRACT(DUMMY,DCFLX7) 1058 1059 BACKSPACE LRSTRT 1060 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1061 1, DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1062 2, DUMMY 1063 CALL EXTRACT(DUMMY,DQADV) 1064 BACKSPACE LRSTRT 1065 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1066 1, DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1067 2, DUMMY,DUMMY 1068 CALL EXTRACT(DUMMY,FQNEV1) 1069 BACKSPACE LRSTRT 1070 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1071 1, DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY 1072 2, DUMMY,DUMMY,DUMMY 1073 CALL EXTRACT(DUMMY,FQSEV1) 1074 C*** 1075 READ(LRSTRT) DUMMY 1076 CALL EXTRACT(DUMMY,VAPINC) 1077 BACKSPACE LRSTRT 1078 READ(LRSTRT) DUMMY,DUMMY 1079 CALL EXTRACT(DUMMY,VAPINC7) 1080 BACKSPACE LRSTRT 1081 READ(LRSTRT) DUMMY,DUMMY,DUMMY 1082 CALL EXTRACT(DUMMY,CLDINC) 1083 BACKSPACE LRSTRT 1084 READ(LRSTRT) DUMMY,DUMMY,DUMMY,DUMMY 1085 CALL EXTRACT(DUMMY,CLDINC7) 1086 C*** Page 15 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 1087 WRITE(STDOUT,*)' READ ',LABEL 1088 C 1089 C END OF RESTART FILE READ. 1090 C 1091 C CLOSE THE RESTART FILE. 1092 CLOSE(LRSTRT) 1093 C 1094 C SET UP THESE FLAGS FOR ETA2P 1095 C 1096 IOOMG=.FALSE. 1097 IOALL=.FALSE. 1098 C*** 1099 C*** BOUND SR BY 0 AND 1 1100 C*** 1101 DO J=JSTA,JEND 1102 DO I=1,IM 1103 SR(I,J)=MAX(SR(I,J),0.) 1104 SR(I,J)=MIN(SR(I,J),1.) 1105 ENDDO 1106 ENDDO 1107 C*** 1108 C*** FILL IN THE EXTRA-LEVEL ARRAYS WITH VALUES AT L=LM 1109 C*** WHEREVER THERE ARE NO STEPS. 1110 C*** 1111 DO J=JSTA,JEND 1112 DO I=1,IM 1113 LMHK=LMH(I,J) 1114 IF(LMHK.EQ.LM)THEN 1115 PDSL(I,J)=RES(I,J)*PD(I,J) 1116 TH10(I,J)=T(I,J,LM)*(1.0E5/(AETA(LM)*PDSL(I,J)+PT))**CAPA 1117 Q10(I,J)=Q(I,J,LM) 1118 ENDIF 1119 ENDDO 1120 ENDDO 1121 C 1122 C CALCULATE THE I-INDEX EAST-WEST INCREMENTS 1123 C 1124 DO J=1,JM 1125 IHE(J)=MOD(J+1,2) 1126 IHW(J)=IHE(J)-1 1127 IVE(J)=MOD(J,2) 1128 IVW(J)=IVE(J)-1 1129 ENDDO 1130 C 1131 DO J=JSTA_M,JEND_M 1132 DO I=1+MOD(J,2),IM-1 1133 1134 ! DO J=JSTA,JEND 1135 ! DO I=1,IM 1136 LMVK=LMV(I,J) 1137 IF(LMVK.EQ.LM)THEN 1138 1139 ! U10(I,J)=U(I,J,LM) 1140 ! V10(I,J)=V(I,J,LM) 1141 1142 WMSK=VTM(I+IHE(J),J,LM)+VTM(I+IHW(J),J,LM) 1143 1 +VTM(I,J+1,LM)+VTM(I,J-1,LM) Page 16 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 1144 1145 IF(WMSK.GT.0.)THEN 1146 RWMSK=1./WMSK 1147 U10(I,J)=(U(I+IHE(J),J,LM)*VTM(I+IHE(J),J,LM) 1148 1 +U(I+IHW(J),J,LM)*VTM(I+IHW(J),J,LM) 1149 2 +U(I,J+1,LM)*VTM(I,J+1,LM)+U(I,J-1,LM)*VTM(I,J-1,LM)) 1150 3 *RWMSK 1151 V10(I,J)=(V(I+IHE(J),J,LM)*VTM(I+IHE(J),J,LM) 1152 1 +V(I+IHW(J),J,LM)*VTM(I+IHW(J),J,LM) 1153 2 +V(I,J+1,LM)*VTM(I,J+1,LM)+V(I,J-1,LM)*VTM(I,J-1,LM)) 1154 3 *RWMSK 1155 ELSE 1156 U10(I,J)=0. 1157 V10(I,J)=0. 1158 WRITE(0,*)'This should not happen !!!!!!!' 1159 CALL MPI_LAST 1160 STOP 1161 ENDIF 1162 1163 ENDIF 1164 1165 ENDDO 1166 ENDDO 1167 C 1168 C CLIP NEGATIVE SPECIFIC HUMIDITY. 1169 C 1170 DO 100 L=1,LM 1171 CALL BOUNDL(Q(1,1,L),H1M12,H99999,IM,JM) 1172 100 CONTINUE 1173 WRITE(STDOUT,*)'INITPOST: CLIP NEGATIVE SPECIFIC HUMIDITY' 1174 C 1175 C COMPUTE PRESSURE AND LN(P) AT INTERFACES. 1176 C SET SURFACE VALUES. 1177 C 1178 !$omp parallel do 1179 !$omp& private(pbi) 1180 DO J=JSTA,JEND 1181 DO I=1,IM 1182 PDSL(I,J) =RES(I,J)*PD(I,J) 1183 PBI =PD(I,J)+PT 1184 PINT(I,J,LP1) =PBI 1185 ALPINT(I,J,LP1)=ALOG(PBI) 1186 ENDDO 1187 ENDDO 1188 C 1189 C COMPUTE OMEGA ON ETA LEVELS. 1190 C 1191 !$omp parallel do 1192 !$omp& private(rtopkl) 1193 DO 125 L=1,LM 1194 DO J=JSTA,JEND 1195 DO I=1,IM 1196 RTOPKL=RDYN*T(I,J,L)*(H1+D608*Q(I,J,L))/ 1197 1 (PDSL(I,J)*AETA(L)+PT) 1198 IF(ABS(RTOPKL).GT.H1M12) 1199 1 OMGA(I,J,L)=OMGA(I,J,L)*CP/(RTOPKL*DT) 1200 ENDDO Page 17 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 1201 ENDDO 1202 125 CONTINUE 1203 C 1204 C CALCULATE AVERAGE PRESSURE DIFFERENCE BETWEEN ETA=1 AND ETA=0 1205 C AT VELOCITY POINTS (PDVP1) USING THE VALUES ALREADY KNOWN AT 1206 C HEIGHT POINTS (PDSL). 1207 C 1208 CALL EXCH(PDSL) 1209 !$omp parallel do 1210 DO J=2,JM-1,2 1211 DO I=2,IM-1 1212 PDVP1(I,J)=0.25*(PDSL(I-1,J)+PDSL(I,J) 1213 1 +PDSL(I,J+1)+PDSL(I,J-1)) 1214 ENDDO 1215 ENDDO 1216 !$omp parallel do 1217 DO J=3,JM-1,2 1218 DO I=1,IM-1 1219 PDVP1(I,J)=0.25*(PDSL(I+1,J)+PDSL(I,J) 1220 1 +PDSL(I,J+1)+PDSL(I,J-1)) 1221 ENDDO 1222 ENDDO 1223 C 1224 !$omp parallel do 1225 DO I=1,IM-1 1226 PDVP1(I,1)=0.5*(PDSL(I,1)+PDSL(I+1,1)) 1227 PDVP1(I,JM)=0.5*(PDSL(I,JM)+PDSL(I+1,JM)) 1228 ENDDO 1229 C 1230 !$omp parallel do 1231 DO J=2,JM-1,2 1232 PDVP1(1,J)=0.5*(PDSL(1,J-1)+PDSL(1,J+1)) 1233 PDVP1(IM,J)=0.5*(PDSL(IM,J-1)+PDSL(IM,J+1)) 1234 ENDDO 1235 C 1236 PDVP1(IM,JM)=PDVP1(IM-1,JM) 1237 C 1238 C FIND THE HIGHEST ETA LAYER CONTAINING MOUNTAINS. 1239 C 1240 DO 150 L=LM,1,-1 1241 C 1242 DO J=JSTA,JEND 1243 DO I=1,IM 1244 IF (HTM(I,J,L).EQ.D00)GO TO 150 1245 ENDDO 1246 ENDDO 1247 C 1248 LHMNT=L+1 1249 GO TO 155 1250 150 CONTINUE 1251 155 IF(LHMNT.EQ.LP1)THEN 1252 IF(.NOT.SIGMA)THEN 1253 GO TO 175 1254 ELSE 1255 LHMNT = LM 1256 ENDIF 1257 ENDIF Page 18 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 1258 C*** 1259 C*** NOW GATHER THE ADDRESSES OF ALL THE UNDERGROUND POINTS. 1260 C*** 1261 DO 170 L=LHMNT,LM 1262 KMN=0 1263 KMNTM(L)=0 1264 C 1265 K=0 1266 DO 160 J=1,JM 1267 IEND=IM 1268 IF(MOD(J,2).EQ.0)IEND=IM-1 1269 DO 160 I=1,IEND 1270 K=K+1 1271 IF ( J .GE. JSTA .AND. J .LE. JEND ) THEN 1272 KMNT(K,L)=0 1273 IF(HTM(I,J,L).EQ.H1)GO TO 160 1274 KMN=KMN+1 1275 KMNT(KMN,L)=K 1276 END IF 1277 160 CONTINUE 1278 KMNTM(L)=KMN 1279 170 CONTINUE 1280 175 CONTINUE 1281 C 1282 C COMPUTE PRESSURE VALUES ABOVE THE SURFACE. 1283 C 1284 !$omp parallel do 1285 !$omp& private(pbi) 1286 DO L=LM,1,-1 1287 DO J=JSTA,JEND 1288 DO I=1,IM 1289 PBI =PDSL(I,J)*ETA(L)+PT 1290 PINT(I,J,L) =PBI 1291 ALPINT(I,J,L)=ALOG(PBI) 1292 ENDDO 1293 ENDDO 1294 ENDDO 1295 C 1296 C COMPUTE PRESSURE VALUES BELOW THE SURFACE. 1297 C 1298 KMM=KMNTM(LM) 1299 DO KM=1,KMM 1300 K=KMNT(KM,LM) 1301 NDROW=K/IMT 1302 LFTOV1=MOD(K,IMT) 1303 IF(LFTOV1-IM.GT.0)THEN 1304 I=K-NDROW*IMT-IM 1305 IADD=2 1306 ELSEIF(LFTOV1.GT.0)THEN 1307 I=K-NDROW*IMT 1308 IADD=1 1309 ELSEIF(LFTOV1.EQ.0)THEN 1310 I=IM-1 1311 IADD=0 1312 ENDIF 1313 J=2*NDROW+IADD 1314 C Page 19 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f 1315 C COMPUTE ALPINT AND PINT ONLY FOR THOSE POINTS THAT WE OWN 1316 C 1317 C IF ( J .GE. JSTA .AND. J .LE. JEND ) THEN 1318 C 1319 LMAP1=LMH(I,J)+1 1320 DO L=LMAP1,LM 1321 ALPINT(I,J,L+1)=(DFL(L)-DFL(L+1))/(R*T(I,J,L)) 1322 1 +ALPINT(I,J,L) 1323 PINT(I,J,L+1)=EXP(ALPINT(I,J,L+1)) 1324 ENDDO 1325 C END IF 1326 ENDDO 1327 ! moved before U10,V10 loop 1328 !C 1329 !C CALCULATE THE I-INDEX EAST-WEST INCREMENTS 1330 !C 1331 ! DO J=1,JM 1332 ! IHE(J)=MOD(J+1,2) 1333 ! IHW(J)=IHE(J)-1 1334 ! IVE(J)=MOD(J,2) 1335 ! IVW(J)=IVE(J)-1 1336 ! ENDDO 1337 C 1338 WRITE(STDOUT,*)'INITPOST: COMPLETE ONE TIME CALCULATIONS' 1339 C 1340 C END OF ROUTINE. 1341 C 1342 WRITE(STDOUT,*)'INITPOST: ALL INPUT DATA READ/PREPARED.' 1343 WRITE(STDOUT,*)' ' 1344 RETURN 1345 END Page 20 Source Listing INITPOST 2025-03-12 18:23 Entry Points INITPOST.f ENTRY POINTS Name initpost_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 1172 1170 125 Label 1202 1193 150 Label 1250 1240,1244 155 Label 1251 1249 160 Label 1277 1266,1269,1273 170 Label 1279 1261 175 Label 1280 1253 50 Label 581 578 51 Label 582 580 75 Label 640 639 80 Label 643 642 A2 Param 121 R(4) 4 scalar A3 Param 121 R(4) 4 scalar A4 Param 121 R(4) 4 scalar ABS Func 1198 scalar 1198 ACMCLD Common 284 1467512 SAVE ACMCLH Common 291 24 SAVE ACMPRE Common 296 1467508 SAVE ACMRDL Common 302 2201268 SAVE ACMRDS Common 308 2201268 SAVE ACMSFC Common 314 2568144 SAVE AD05 Param 113 R(4) 4 scalar AETA Local 145 R(4) 4 1 45 550,1116,1197 ALOG Func 1185 scalar 1185,1291 BETA Param 117 R(4) 4 scalar 117 BLANK Local 143 CHAR 4 scalar 415,656 BOCO Common 277 1860144 SAVE BOUNDL Subr 1171 1171 BTG Param 117 R(4) 4 scalar CAPA Param 108 R(4) 4 scalar 115,1116 CFT0 Param 113 R(4) 4 scalar CLDWTR Common 321 17610408 SAVE CM1 Param 103 R(4) 4 scalar CM2 Param 103 R(4) 4 scalar CM3 Param 103 R(4) 4 scalar CNVCLD Common 252 1467504 SAVE CONTRL Local 140 CHAR 40 scalar CP Param 114 R(4) 4 scalar 116,120,1199 CPDR Param 116 R(4) 4 scalar CTLBLK Common 163 96 SAVE D00 Param 105 R(4) 4 scalar 1244 D001 Param 105 R(4) 4 scalar D0065 Param 109 R(4) 4 scalar D01 Param 105 R(4) 4 scalar Page 21 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References D05 Param 109 R(4) 4 scalar 113 D1 Param 105 R(4) 4 scalar D115 Param 109 R(4) 4 scalar D125 Param 107 R(4) 4 scalar D25 Param 107 R(4) 4 scalar D50 Param 105 R(4) 4 scalar 587,588,589,590,591,592,593,594,59 5,596,601,603,621 D608 Param 109 R(4) 4 scalar 1196 DETA Local 145 R(4) 4 1 45 549 DP10M Param 115 R(4) 4 scalar DTR Param 114 R(4) 4 scalar 114 DUMMY Local 129 R(4) 4 2 91719 434,435,437,438,444,445,447,448,45 0,451,454,455,459,460,465,466,468, 469,471,472,474,475,477,478,480,48 1,483,484,486,487,489,490,492,493, 500,501,503,504,506,507,509,510,51 2,513,515,516,518,519,521,522,528, 529,531,532,534,535,537,538,669,67 0,679,680,682,683,685,686,692,693, 695,696,698,699,701,702,704,705,70 9,710,722,723,726,727,730,731,734, 735,738,739,742,743,746,747,749,75 0,752,753,755,756,758,759,761,762, 764,765,768,769,771,772,774,775,77 7,778,780,781,783,784,786,787,790, 791,793,794,796,797,799,800,802,80 3,805,806,808,809,813,814,816,817, 819,820,822,823,825,826,828,829,83 2,833,835,836,838,839,841,842,845, 846,848,849,851,852,859,860,863,86 4,867,868,871,872,875,876,878,879, 881,882,884,885,888,889,891,892,89 4,895,897,898,902,903,905,906,908, 909,911,912,914,915,917,918,920,92 1,924,925,927,928,930,931,933,934, 936,937,939,940,945,946,948,949,95 1,952,954,955,957,958,960,961,963, 964,967,968,969,971,972,973,975,97 6,977,979,980,981,986,987,993,994, 998,999,1006,1007,1013,1014,1016,1 017,1019,1020,1022,1023,1025,1026, 1028,1029,1031,1032,1035,1036,1037 ,1039,1040,1041,1043,1044,1045,104 7,1048,1049,1051,1052,1053,1055,10 56,1057,1060,1061,1062,1063,1065,1 066,1067,1068,1070,1071,1072,1073, 1075,1076,1078,1079,1081,1082,1084 ,1085 DYNAM Common 200 3675964 SAVE E2PFL Common 348 8 SAVE ELDR Param 116 R(4) 4 scalar ELWV Param 116 R(4) 4 scalar 116 ENVAR Local 143 CHAR 50 scalar 630,631,633,634,656,659 EPS Param 119 R(4) 4 scalar 119 EPSQ2 Param 120 R(4) 4 scalar Page 22 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References ERAD Param 114 R(4) 4 scalar ETA Local 145 R(4) 4 1 46 551,553,1289 EXCH Subr 1208 1208 EXP Func 1323 scalar 1323 EXTRA Common 337 71506268 SAVE EXTRACT Subr 435 435,438,445,448,451,455,460,466,46 9,472,475,478,481,484,487,490,493, 501,504,507,510,513,516,519,522,52 9,532,535,538,670,680,683,686,693, 696,699,702,705,710,723,727,731,73 5,739,743,747,750,753,756,759,762, 765,769,772,775,778,781,784,787,79 1,794,797,800,803,806,809,814,817, 820,823,826,829,833,836,839,842,84 6,849,852,860,864,868,872,876,879, 882,885,889,892,895,898,903,906,90 9,912,915,918,921,925,928,931,934, 937,940,946,949,952,955,958,961,96 4,969,973,977,981,987,994,999,1007 ,1014,1017,1020,1023,1026,1029,103 2,1037,1041,1045,1049,1053,1057,10 63,1068,1073,1076,1079,1082,1085 FCSTDATA Local 408 scalar 564 FILALL Local 140 CHAR 40 scalar FILCLD Local 141 CHAR 40 scalar FILMST Local 140 CHAR 40 scalar FILRAD Local 141 CHAR 40 scalar FILSFC Local 141 CHAR 40 scalar FILTKE Local 140 CHAR 40 scalar FILTMP Local 140 CHAR 40 scalar FILUNV Local 140 CHAR 40 scalar FMD Param 119 R(4) 4 scalar 119 FMW Param 119 R(4) 4 scalar 119 FNAME Local 143 CHAR 80 scalar 659,660 G Param 112 R(4) 4 scalar 112 GET_ENVIRONMENT_VARIABLE Intrin 631 631,632 GI Param 112 R(4) 4 scalar 116 H1 Param 106 R(4) 4 scalar 113,1196,1273 H100 Param 107 R(4) 4 scalar H1000 Param 107 R(4) 4 scalar H10000 Param 108 R(4) 4 scalar H10E5 Param 108 R(4) 4 scalar H1E2 Param 110 R(4) 4 scalar H1E4 Param 110 R(4) 4 scalar H1M12 Param 106 R(4) 4 scalar 1171,1198 H1M2 Param 110 R(4) 4 scalar H1M5 Param 107 R(4) 4 scalar H2 Param 106 R(4) 4 scalar H4 Param 106 R(4) 4 scalar H999 Param 105 R(4) 4 scalar H99999 Param 106 R(4) 4 scalar 1171 I Local 454 I(4) 4 scalar 454,459,620,621,669,692,695,698,70 1,704,709,986,998,1006,1102,1103,1 104,1112,1113,1115,1116,1117,1132, 1136,1142,1143,1147,1148,1149,1151 Page 23 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References ,1152,1153,1156,1157,1181,1182,118 3,1184,1185,1195,1196,1197,1199,12 11,1212,1213,1218,1219,1220,1225,1 226,1227,1243,1244,1269,1273,1288, 1289,1290,1291,1304,1307,1310,1319 ,1321,1322,1323 IADD Local 1305 I(4) 4 scalar 1305,1308,1311,1313 IDATB Local 144 I(4) 4 1 3 IDIM1 Param 76 I(4) 4 scalar IDIM2 Param 76 I(4) 4 scalar IEND Local 1267 I(4) 4 scalar 1267,1268,1269 IER Local 660 I(4) 4 scalar 660 IGSTL Param 71 I(4) 4 scalar 76 IGSTR Param 71 I(4) 4 scalar 76 II Local 985 I(4) 4 scalar 985,986,987,997,998,999,1005,1006, 1007 IM Param 65 I(4) 4 scalar 73,76,84,86,87,89,129,159,187,193, 195,206,207,221,222,223,224,225,22 6,247,248,249,253,259,261,266,267, 268,269,270,272,285,286,297,298,30 3,304,309,310,315,316,317,322,328, 329,330,331,332,336,338,339,340,34 1,342,343,360,361,363,364,367,368, 369,370,372,373,374,375,377,378,38 7,388,390,391,454,459,669,692,695, 698,701,704,709,986,998,1006,1102, 1112,1132,1171,1181,1195,1211,1218 ,1225,1233,1236,1243,1267,1268,128 8,1303,1304,1310 IM1 Param 86 I(4) 4 scalar IMJM Param 336 I(4) 4 scalar 339 IMT Param 84 I(4) 4 scalar 1301,1302,1304,1307 INDEX Func 633 scalar 633,647 INDX Common 354 6192 SAVE INITPOST Subr 1 INPES Param 68 I(4) 4 scalar 73,76 INT Func 587 scalar 587,588,589,590,591,592,593,594,59 5,596,603,621 IOUNIT Common 153 20 SAVE ITAIL Param 73 I(4) 4 scalar ITB Param 123 I(4) 4 scalar 218,228 ITBQ Param 123 I(4) 4 scalar 219,228 J Local 454 I(4) 4 scalar 454,459,669,692,695,698,701,704,70 9,986,998,1006,1101,1103,1104,1111 ,1113,1115,1116,1117,1124,1125,112 6,1127,1128,1131,1132,1136,1142,11 43,1147,1148,1149,1151,1152,1153,1 156,1157,1180,1182,1183,1184,1185, 1194,1196,1197,1199,1210,1212,1213 ,1217,1219,1220,1231,1232,1233,124 2,1244,1266,1268,1271,1273,1287,12 89,1290,1291,1313,1319,1321,1322,1 323 JAM Param 86 I(4) 4 scalar 185,204 JDIM1 Param 77 I(4) 4 scalar Page 24 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References JDIM2 Param 77 I(4) 4 scalar JGSTL Param 72 I(4) 4 scalar 77 JGSTR Param 72 I(4) 4 scalar 77 JM Param 65 I(4) 4 scalar 74,77,84,86,89,129,159,187,193,195 ,206,207,221,222,223,224,225,226,2 47,248,249,253,259,261,266,267,268 ,269,270,272,285,286,297,298,303,3 04,309,310,315,316,317,322,328,329 ,330,331,332,336,338,339,340,341,3 42,343,355,360,361,363,364,367,368 ,369,370,372,373,374,375,377,378,3 87,388,390,391,454,459,669,692,695 ,698,701,704,709,986,998,1006,1124 ,1171,1210,1217,1227,1231,1236,126 6 JM2 Param 86 I(4) 4 scalar JMT Param 84 I(4) 4 scalar JNPES Param 68 I(4) 4 scalar 74,77 JTAIL Param 74 I(4) 4 scalar JTB Param 123 I(4) 4 scalar 218,228 JTBQ Param 123 I(4) 4 scalar 228 K Local 578 I(4) 4 scalar 578,1265,1270,1272,1275,1300,1301, 1302,1304,1307 KHH2 Local 432 I(4) 4 scalar 432 KHHA Local 432 I(4) 4 scalar 432 KHL2 Local 432 I(4) 4 scalar 432 KHLA Local 432 I(4) 4 scalar 432 KM Local 1299 I(4) 4 scalar 1299,1300 KMM Local 1298 I(4) 4 scalar 1298,1299 KMN Local 1262 I(4) 4 scalar 1262,1274,1275,1278 KPATH Local 633 I(4) 4 scalar 633,634,635,659 KRST Local 647 I(4) 4 scalar 647,648,649,659 KSAV Param 94 I(4) 4 scalar KSFI Param 93 I(4) 4 scalar KSLI Param 94 I(4) 4 scalar KSLP Param 94 I(4) 4 scalar KSLPD Param 93 I(4) 4 scalar KSMUD Param 93 I(4) 4 scalar KSRH Param 94 I(4) 4 scalar KSSLP Param 93 I(4) 4 scalar KST Param 93 I(4) 4 scalar KSUV Param 94 I(4) 4 scalar KVH2 Local 432 I(4) 4 scalar 432 KVHA Local 432 I(4) 4 scalar 432 KVL2 Local 432 I(4) 4 scalar 432 KVLA Local 432 I(4) 4 scalar 432 L Local 452 I(4) 4 scalar 452,455,457,460,548,549,550,551,58 0,617,618,667,670,690,693,696,699, 702,705,710,1170,1171,1193,1196,11 97,1199,1240,1244,1248,1261,1263,1 272,1273,1275,1278,1286,1289,1290, 1291,1320,1321,1322,1323 LABEL Local 139 CHAR 32 scalar 663,673,675,717,721,725,729,733,73 7,741,854,858,862,866,870,1087 LB Param 89 I(4) 4 scalar 278,279 Page 25 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References LEN Func 634 scalar 634,648 LFCSTD Local 562 I(4) 4 scalar 562,563,564 LFTOV1 Local 1302 I(4) 4 scalar 1302,1303,1306,1309 LHEAT Param 120 I(4) 4 scalar 120 LHMNT Local 1248 I(4) 4 scalar 1248,1251,1255,1261 LHTOCP Param 120 I(4) 4 scalar LM Param 65 I(4) 4 scalar 88,99,145,159,195,202,217,239,261, 272,278,279,322,339,387,452,457,54 8,667,690,1114,1116,1117,1137,1142 ,1143,1147,1148,1149,1151,1152,115 3,1170,1193,1240,1255,1261,1286,12 98,1300,1320 LM1 Param 88 I(4) 4 scalar LMAP1 Local 1319 I(4) 4 scalar 1319,1320 LMHK Local 1113 I(4) 4 scalar 1113,1114 LMVK Local 1136 I(4) 4 scalar 1136,1137 LOG Func 618 scalar 618 LOOPS Common 184 748952 SAVE LP1 Param 88 I(4) 4 scalar 145,202,217,239,338,553,1184,1185, 1251 LSM Param 65 I(4) 4 scalar 238,428,580 LUNHB Local 427 I(4) 4 scalar 427,429,431,434,437,440,442,444,44 7,450,454,459,462,465,468,471,474, 477,480,483,486,489,492,494,495,49 6,497,500,503,506,509,512,515,518, 521,523,524,528,531,534,537,539,54 0 MAPOT Common 233 1448 SAVE MASKS Common 192 34853220 SAVE MAX Func 1103 scalar 1103 MIN Func 1104 scalar 1104 MOD Func 1125 scalar 1125,1127,1132,1268,1302 MPI_LAST Subr 1159 1159 N Local 986 I(4) 4 scalar 986,998,1006 NCNVC Local 411 I(4) 4 scalar 411 NDROW Local 1301 I(4) 4 scalar 1301,1304,1307,1313 NEST Local 137 L(4) 4 scalar 413 NINC Param 87 I(4) 4 scalar NINT Func 597 scalar 597,598 NMAP Local 410 I(4) 4 scalar 410,572,620 NRADLH Local 411 I(4) 4 scalar 411,573,598 NRADSH Local 411 I(4) 4 scalar 411,573,597 NROOT Param 128 I(4) 4 scalar NSOIL Param 128 I(4) 4 scalar 331,332,985,997,1005 NSTART Local 587 I(4) 4 scalar 587,608 NSTAT Param 99 I(4) 4 scalar NSUMD Param 95 I(4) 4 scalar NTDDMP Local 411 I(4) 4 scalar 411 NWORD Param 99 I(4) 4 scalar 99 NWORD3 Param 99 I(4) 4 scalar NWORD6 Param 99 I(4) 4 scalar OMGAOT Common 159 16509420 SAVE ONEPS Param 119 R(4) 4 scalar OUTFIL Common 179 21 SAVE OVERRC Param 113 R(4) 4 scalar 113 Page 26 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References P1000 Param 115 R(4) 4 scalar PARALLEL Common 170 8240 PBI Local 1183 R(4) 4 scalar 1183,1184,1185,1289,1290,1291 PDOMG Local 665 R(4) 4 scalar 665 PHYS Common 212 7690036 SAVE PPTASM Common 386 19811316 SAVE PQ0 Param 121 R(4) 4 scalar PT Local 462 R(4) 4 scalar 462,546,1116,1183,1197,1289 PVRBLS Common 265 23480064 SAVE QFLX Common 359 8438148 R Local 462 R(4) 4 scalar 462,547,1321 RCAPA Param 115 R(4) 4 scalar RD Param 112 R(4) 4 scalar 112,116,120 RDOCP Param 120 R(4) 4 scalar RESOMG Local 665 R(4) 4 scalar 665 RESTHR Local 142 CHAR 4 scalar 632,636,638,642 RG Param 116 R(4) 4 scalar ROG Param 112 R(4) 4 scalar RTD Param 114 R(4) 4 scalar RTOPKL Local 1196 R(4) 4 scalar 1196,1198,1199 RUNB Local 136 L(4) 4 scalar RWMSK Local 1146 R(4) 4 scalar 1146,1150,1154 SINGLRST Local 136 L(4) 4 scalar 409 SMTHA Param 95 R(4) 4 scalar SMTHB Param 95 R(4) 4 scalar SOIL Common 327 8438180 SRFDSP Common 246 4402512 SUBPOST Local 137 L(4) 4 scalar 410,571 TCP Local 409 R(4) 4 scalar 409,569,589 TDDAMP Local 462 R(4) 4 scalar 462,590 TEND Local 409 R(4) 4 scalar 409,568,588 TFRZ Param 119 R(4) 4 scalar TSTART Local 409 R(4) 4 scalar 409,568,587 VRBLS Common 258 67138308 WMSK Local 1142 R(4) 4 scalar 1142,1145,1146 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 6236892 2 91719 COM 868 ACFRCV R(4) 4 8 2 91719 COM 876 ACFRST R(4) 4 733760 2 91719 COM 882 ACPREC R(4) 4 5870016 2 91719 COM 864 ACSNOM R(4) 4 366880 2 91719 COM 892 ACSNOW R(4) 4 4 2 91719 COM 889 ACUTIM R(4) 4 20 scalar COM AETA1 R(4) 4 808 1 45 COM 525 AETA2 R(4) 4 264 1 45 COM 498 AETAD R(4) 4 396 1 45 COM 463,550 AKHS R(4) 4 733752 2 91719 COM 747 AKMS R(4) 4 366876 2 91719 COM 739 ALBASE R(4) 4 5139788 2 91719 COM 516 ALBEDO R(4) 4 5506664 2 91719 COM 1014 Page 27 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Type Bytes Offset Dimen Elements Attributes References ALPINT R(4) 4 16876296 3 4219074 COM 1185,1291,1321,1322,1323 ALSL R(4) 4 472 1 39 COM 618 ALWIN R(4) 4 1100640 2 91719 COM 934 ALWOUT R(4) 4 1467516 2 91719 COM 937 ALWTOA R(4) 4 1834392 2 91719 COM 940 APREC R(4) 4 17976924 2 91719 COM ARATIM R(4) 4 16 scalar COM ARDLW R(4) 4 8 scalar COM 942 ARDSW R(4) 4 8 scalar COM 942 ASRFC R(4) 4 8 scalar COM 942 ASWIN R(4) 4 1100640 2 91719 COM 925 ASWOUT R(4) 4 1467516 2 91719 COM 928 ASWTOA R(4) 4 1834392 2 91719 COM 931 AVCNVC R(4) 4 12 scalar COM 942 AVRAIN R(4) 4 8 scalar COM 942 BGROFF R(4) 4 1100632 2 91719 COM 898 CFRACH R(4) 4 1100628 2 91719 COM 809 CFRACL R(4) 4 366876 2 91719 COM 765 CFRACM R(4) 4 733752 2 91719 COM 787 CI R(4) 4 40 scalar COM 497 CLDEFI R(4) 4 5136264 2 91719 COM 797 CLDINC R(4) 4 19077564 2 91719 COM 1082 CLDINC7 R(4) 4 19444440 2 91719 COM 1085 CMC R(4) 4 3668760 2 91719 COM 994 CMLD R(4) 4 292 scalar COM 525 CPGFU R(4) 4 740956 2 91719 COM 472 CPGFV R(4) 4 4 scalar COM 462 CPHI0 R(4) 4 1420 scalar COM CS R(4) 4 28 scalar COM 497 CUPPT R(4) 4 0 2 91719 COM 806 CUPREC R(4) 4 6603768 2 91719 COM 872 CURV R(4) 4 1107832 2 91719 COM 475 CWM R(4) 4 0 3 4127355 COM 710 CWMB R(4) 4 1551264 3 77220 COM CZEN R(4) 4 2204780 2 91719 COM 743 CZMEAN R(4) 4 6607292 2 91719 COM 839 DCFLX R(4) 4 6236892 2 91719 COM 1032 DCFLX7 R(4) 4 6970644 2 91719 COM 1057 DDMPU R(4) 4 2942212 2 91719 COM 490 DDMPV R(4) 4 3309088 2 91719 COM 493 DETA1 R(4) 4 628 1 45 COM 525 DETA2 R(4) 4 84 1 45 COM 498 DETAD R(4) 4 36 1 45 COM 463,549 DFL R(4) 4 940 1 46 COM 463,1321 DFRLG R(4) 4 444 1 46 COM 498 DI R(4) 4 44 scalar COM 497 DISLP R(4) 4 308 scalar COM DLMD R(4) 4 284 scalar COM 525 DP30 R(4) 4 296 scalar COM 525 DPHD R(4) 4 288 scalar COM 525 DQADV R(4) 4 7337520 2 91719 COM 1063 DQFLX R(4) 4 5870016 2 91719 COM 1023 DQFLX7 R(4) 4 6603768 2 91719 COM 1045 DS R(4) 4 32 scalar COM 497 DT R(4) 4 48 scalar COM 431,599,1199 Page 28 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Type Bytes Offset Dimen Elements Attributes References DTD R(4) 4 16 scalar COM 601,602,603,614 DTQ2 R(4) 4 8 scalar COM 599,600,601,603,613 DX R(4) 4 7204 2 91719 COM 466 DY R(4) 4 0 scalar COM 462 EF4T R(4) 4 32 scalar COM 463 ELWDWN R(4) 4 2938532 2 91719 COM EM R(4) 4 1124 1 760 COM 463 EMT R(4) 4 4164 1 760 COM 463 EN R(4) 4 8 scalar COM 462 ENT R(4) 4 12 scalar COM 462 EPSR R(4) 4 370400 2 91719 COM 504 ERLAM0 R(4) 4 1416 scalar COM ETA1 R(4) 4 988 1 46 COM 526 ETAD R(4) 4 756 1 46 COM 463,551,553 F R(4) 4 2575336 2 91719 COM 487 F4D R(4) 4 24 scalar COM 462 F4Q R(4) 4 28 scalar COM 462 F4Q2 R(4) 4 576 1 45 COM 463 FAD R(4) 4 2208460 2 91719 COM 484 FCNEV R(4) 4 1467504 2 91719 COM FCNEV7 R(4) 4 2201256 2 91719 COM FCP R(4) 4 1474708 2 91719 COM 478 FCSEV R(4) 4 1834380 2 91719 COM FCSEV7 R(4) 4 2568132 2 91719 COM FCU R(4) 4 3668760 2 91719 COM 1026 FCU7 R(4) 4 5136264 2 91719 COM 1049 FCV R(4) 4 4035636 2 91719 COM 1029 FCV7 R(4) 4 5503140 2 91719 COM 1053 FDIV R(4) 4 1841584 2 91719 COM 481 FIRST L(4) 4 24 scalar COM 586,607,676 FIS R(4) 4 733752 2 91719 COM 686 FQNEV R(4) 4 0 2 91719 COM FQNEV1 R(4) 4 7704396 2 91719 COM 1068 FQNEV7 R(4) 4 733752 2 91719 COM FQSEV R(4) 4 366876 2 91719 COM FQSEV1 R(4) 4 8071272 2 91719 COM 1073 FQSEV7 R(4) 4 1100628 2 91719 COM FQU R(4) 4 2935008 2 91719 COM 1017 FQU7 R(4) 4 4402512 2 91719 COM 1037 FQV R(4) 4 3301884 2 91719 COM 1020 FQV7 R(4) 4 4769388 2 91719 COM 1041 FSL R(4) 4 70405632 2 91719 COM GFFC R(4) 4 4406036 2 91719 COM 510 GLAT R(4) 4 1471028 2 91719 COM 494 GLON R(4) 4 1837904 2 91719 COM 495 GRNFLX R(4) 4 1467504 2 91719 COM 826 HBM2 R(4) 4 0 2 91719 COM 440 HBOT R(4) 4 3672284 2 91719 COM 762 HDAC R(4) 4 5873540 2 91719 COM 519 HDACV R(4) 4 6240416 2 91719 COM 522 HTM R(4) 4 1834380 3 4127355 COM 455,1244,1273 HTOP R(4) 4 3305408 2 91719 COM 784 ICNT I(4) 4 40 1 1024 COM IDAT I(4) 4 8 1 3 COM 663,675,721,725,729,733,737,741,85 8,862,866,870 Page 29 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Type Bytes Offset Dimen Elements Attributes References IDN I(4) 4 36 scalar COM IDSP I(4) 4 4136 1 1024 COM IDTAD I(4) 4 68 scalar COM 431 IHE I(4) 4 0 1 387 COM 1125,1126,1142,1147,1151 IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM 663,675,721,725,729,733,737,741,85 8,862,866,870 IHW I(4) 4 1548 1 387 COM 1126,1142,1148,1152 IOALL L(4) 4 4 scalar COM 1097 IOOMG L(4) 4 0 scalar COM 1096 IOUT I(4) 4 44 scalar COM 676 ISHDE I(4) 4 12 1 61 COM 621 ISLOPE I(4) 4 2935008 2 91719 COM 535 ISLTYP I(4) 4 2568132 2 91719 COM 532 ITAG I(4) 4 0 scalar COM 639,642 ITSTLOC I(4) 4 18343800 scalar COM IUNIT I(4) 4 1440 scalar COM IUP I(4) 4 32 scalar COM IVE I(4) 4 3096 1 387 COM 1127,1128 IVGTYP I(4) 4 2201256 2 91719 COM 529 IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 4644 1 387 COM 1128 IXM I(4) 4 4 scalar COM 525 IYM I(4) 4 8 scalar COM 525 JEND I(4) 4 12 scalar COM 1101,1111,1180,1194,1242,1271,1287 JEND_2U I(4) 4 8236 scalar COM JEND_M I(4) 4 20 scalar COM 1131 JEND_M2 I(4) 4 28 scalar COM JRA I(4) 4 12160 1 760 COM JSTA I(4) 4 8 scalar COM 1101,1111,1180,1194,1242,1271,1287 JSTA_2L I(4) 4 8232 scalar COM JSTA_M I(4) 4 16 scalar COM 1131 JSTA_M2 I(4) 4 24 scalar COM JTSTLOC I(4) 4 18343804 scalar COM KMNT I(4) 4 50629068 2 4118670 COM 1272,1275,1300 KMNTM I(4) 4 50628888 1 45 COM 1263,1278,1298 KTM I(4) 4 0 scalar COM 603,614 KUNIT I(4) 4 1428 scalar COM LC I(4) 4 16876656 2 91719 COM 849 LCNTRL I(4) 4 4 scalar COM LIST I(4) 4 40 scalar COM 431 LMH I(4) 4 15200 2 91719 COM 435,1113,1319 LMV I(4) 4 382076 2 91719 COM 438,1136 LRSTRT I(4) 4 4 scalar COM 651,652,657,660,663,665,669,675,67 9,681,682,684,685,688,692,695,698, 701,704,706,709,711,712,721,724,72 5,728,729,732,733,736,737,740,741, 746,748,749,751,752,754,755,757,75 8,760,761,763,764,768,770,771,773, 774,776,777,779,780,782,783,785,78 6,790,792,793,795,796,798,799,801, 802,804,805,807,808,813,815,816,81 8,819,821,822,824,825,827,828,832, Page 30 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Type Bytes Offset Dimen Elements Attributes References 834,835,837,838,840,841,845,847,84 8,850,851,858,861,862,865,866,869, 870,875,877,878,880,881,883,884,88 8,890,891,893,894,896,897,902,904, 905,907,908,910,911,913,914,916,91 7,919,920,924,926,927,929,930,932, 933,935,936,938,939,942,945,947,94 8,950,951,953,954,956,957,959,960, 962,963,966,967,970,971,974,975,97 8,979,986,988,990,993,998,1000,100 2,1006,1008,1010,1013,1016,1018,10 19,1021,1022,1024,1025,1027,1028,1 030,1031,1034,1035,1038,1039,1042, 1043,1046,1047,1050,1051,1054,1055 ,1059,1060,1064,1065,1069,1070,107 5,1077,1078,1080,1081,1083,1084,10 92 LSL I(4) 4 0 scalar COM 428,617 LUNCO I(4) 4 8 scalar COM LUNIT I(4) 4 1432 scalar COM LUNLL I(4) 4 12 scalar COM LUNOUT I(4) 4 16 scalar COM ME I(4) 4 4 scalar COM MTSTPE I(4) 4 18343808 scalar COM MUNIT I(4) 4 1436 scalar COM NBC I(4) 4 36 scalar COM 431 NBOCO I(4) 4 72 scalar COM NCFRCV I(4) 4 366884 2 91719 COM 879 NCFRST I(4) 4 1100636 2 91719 COM 885 NCLOD I(4) 4 4 scalar COM 593,610 NCP I(4) 4 80 scalar COM 589,608 NDDAMP I(4) 4 60 scalar COM 590,609 NFCST I(4) 4 32 scalar COM 431 NHEAT I(4) 4 4 scalar COM 592,609 NPHS I(4) 4 84 scalar COM 411,572,599 NPREC I(4) 4 64 scalar COM 591,609 NRADL I(4) 4 92 scalar COM 598,612 NRADS I(4) 4 88 scalar COM 597,612 NRDLW I(4) 4 4 scalar COM 595,610 NRDSW I(4) 4 4 scalar COM 594,610 NSHDE I(4) 4 76 scalar COM 676 NSRFC I(4) 4 4 scalar COM 596,611 NTSD I(4) 4 52 scalar COM 663,675,721,725,729,733,737,741,85 8,862,866,870 NTSTM I(4) 4 56 scalar COM 588,608 NUM_PROCS I(4) 4 0 scalar COM NUNIT I(4) 4 1444 scalar COM OLDRD R(4) 4 71506260 scalar COM OMGA R(4) 4 0 3 4127355 COM 670,1199 PCTSNO R(4) 4 1834380 2 91719 COM 829 PD R(4) 4 0 2 91719 COM 680,1115,1182,1183 PDB R(4) 4 0 2 1716 COM 688 PDSL R(4) 4 67837500 2 91719 COM 1115,1116,1182,1197,1208,1212,1213 ,1219,1220,1226,1227,1232,1233,128 9 Page 31 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Type Bytes Offset Dimen Elements Attributes References PDVP1 R(4) 4 68204376 2 91719 COM 1212,1219,1226,1227,1232,1233,1236 PFSL R(4) 4 69305004 2 91719 COM PHOUR R(4) 4 0 2 91719 COM PINT R(4) 4 0 3 4219074 COM 1184,1290,1323 PL R(4) 4 48 scalar COM 497 PLQ R(4) 4 72 scalar COM 496 POTEVP R(4) 4 2201268 2 91719 COM 921 PPTDAT R(4) 4 16876296 3 275157 COM PREC R(4) 4 5503140 2 91719 COM 860 PSHLTR R(4) 4 2568132 2 91719 COM 964 PSLP R(4) 4 68571252 2 91719 COM 803 PT1 R(4) 4 260 scalar COM 524 PT2 R(4) 4 4 scalar COM 494 PTBL R(4) 4 7341044 2 10184 COM 524 PTDYN R(4) 4 20 scalar COM 546 PTSL R(4) 4 68938128 2 91719 COM Q R(4) 4 50628888 3 4127355 COM 696,1117,1171,1196 Q10 R(4) 4 733752 2 91719 COM 949,1117 Q2 R(4) 4 6970644 3 4127355 COM 705 Q2B R(4) 4 1242384 3 77220 COM Q30 R(4) 4 3301884 2 91719 COM 973 QB R(4) 4 315744 3 77220 COM 688 QS R(4) 4 1467504 2 91719 COM 753 QS0 R(4) 4 628 1 134 COM 498 QSHLTR R(4) 4 2201256 2 91719 COM 961 QSL R(4) 4 70772508 2 91719 COM QWBS R(4) 4 4035636 2 91719 COM 759 QZ0 R(4) 4 2935008 2 91719 COM 772 R1 R(4) 4 256 scalar COM 524 RADIN R(4) 4 737276 2 91719 COM RADOT R(4) 4 1104152 2 91719 COM 836 RDETA R(4) 4 216 1 45 COM 463 RDP R(4) 4 64 scalar COM 497 RDPQ R(4) 4 76 scalar COM 496 RDQ R(4) 4 56 scalar COM 497 RDTH R(4) 4 60 scalar COM 497 RDTHE R(4) 4 68 scalar COM 498 RDTHEQ R(4) 4 80 scalar COM 496 RDYN R(4) 4 16 scalar COM 547,1196 RES R(4) 4 366876 2 91719 COM 683,1115,1182 RESTRT L(4) 4 28 scalar COM 409,561,570 RF R(4) 4 3301884 2 91719 COM 800 RLWIN R(4) 4 12 2 91719 COM 833 RLWOUT R(4) 4 366888 2 91719 COM RLWTOA R(4) 4 733764 2 91719 COM RMXSNAL R(4) 4 3524 2 91719 COM 501 ROI R(4) 4 36 scalar COM 497 ROS R(4) 4 24 scalar COM 497 RSTFIL CHAR 13 8 scalar COM 639,642,645,647,648,657,659 RSWIN R(4) 4 12 2 91719 COM 723 RSWOUT R(4) 4 366888 2 91719 COM 727 RSWTOA R(4) 4 733764 2 91719 COM RTDPTH R(4) 4 6970660 1 4 COM 540 RUN L(4) 4 4 scalar COM 663,675,721,725,729,733,737,741,85 8,862,866,870 Page 32 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Type Bytes Offset Dimen Elements Attributes References SBD R(4) 4 272 scalar COM 524 SFCEVP R(4) 4 1834392 2 91719 COM 918 SFCEXC R(4) 4 366876 2 91719 COM 817 SFCLHX R(4) 4 366888 2 91719 COM 906 SFCSHX R(4) 4 12 2 91719 COM 903 SFCUVX R(4) 4 1467516 2 91719 COM 915 SH2O R(4) 4 6970676 3 366876 COM 1007 SI R(4) 4 4769388 2 91719 COM 794 SICE R(4) 4 1467504 2 91719 COM 451 SIGMA L(4) 4 0 scalar COM 431,1252 SIGT4 R(4) 4 6974168 2 91719 COM 842 SLDPTH R(4) 4 6970644 1 4 COM 539 SLP R(4) 4 67103748 2 91719 COM SM R(4) 4 1100628 2 91719 COM 448 SMC R(4) 4 4035636 3 366876 COM 987 SMSTAV R(4) 4 733752 2 91719 COM 820 SMSTOT R(4) 4 1100628 2 91719 COM 823 SNO R(4) 4 4402512 2 91719 COM 791 SNOPCX R(4) 4 1100640 2 91719 COM 912 SOILTB R(4) 4 0 2 91719 COM 814 SPHI0 R(4) 4 1424 scalar COM SPL R(4) 4 316 1 39 COM 410,580,618 SQS R(4) 4 1164 1 134 COM 498 SR R(4) 4 17243532 2 91719 COM 852,1103,1104 SSROFF R(4) 4 733756 2 91719 COM 895 SST R(4) 4 4772912 2 91719 COM 513 STC R(4) 4 5503140 3 366876 COM 999 STDOUT I(4) 4 0 scalar COM 420,542,566,568,569,570,571,572,57 3,574,575,576,577,578,579,580,605, 606,607,608,609,610,611,612,613,61 4,628,673,717,854,1087,1173,1338,1 342,1343 STDRD R(4) 4 71506264 scalar COM STHE R(4) 4 2004 1 76 COM 498 STHEQ R(4) 4 2916 1 152 COM 496 SUBSHX R(4) 4 733764 2 91719 COM 909 SWNET R(4) 4 2571656 2 91719 COM T R(4) 4 34119468 3 4127355 COM 693,1116,1196,1321 T500 R(4) 4 67470624 2 91719 COM TB R(4) 4 6864 3 77220 COM 688 TCLOD R(4) 4 0 scalar COM 412,575,593 TDTD R(4) 4 20 scalar COM 602,614 TDTQ2 R(4) 4 12 scalar COM 600,613 TG R(4) 4 4039160 2 91719 COM 507,731 TH10 R(4) 4 366876 2 91719 COM 946,1116 TH30 R(4) 4 2935008 2 91719 COM 969 THE0 R(4) 4 1700 1 76 COM 498 THE0Q R(4) 4 2308 1 152 COM 496 THEAT R(4) 4 0 scalar COM 412,574,592 THL R(4) 4 52 scalar COM 497 THS R(4) 4 1100628 2 91719 COM 750 THZ0 R(4) 4 2568132 2 91719 COM 769 TLAT R(4) 4 366876 3 4127355 COM TLM0D R(4) 4 276 scalar COM 524 TPH0D R(4) 4 280 scalar COM 524 Page 33 Source Listing INITPOST 2025-03-12 18:23 Symbol Table INITPOST.f Name Type Bytes Offset Dimen Elements Attributes References TPREC R(4) 4 0 scalar COM 412,574,591 TRDLW R(4) 4 0 scalar COM 412,576,595 TRDSW R(4) 4 0 scalar COM 412,575,594 TSHDE R(4) 4 1172 1 61 COM 410,578,621 TSHLTR R(4) 4 1834380 2 91719 COM 958 TSL R(4) 4 69671880 2 91719 COM TSPH R(4) 4 264 scalar COM 524,587,588,589,590,591,592,593,59 4,595,596,597,598,621 TSRFC R(4) 4 0 scalar COM 412,576,596 TTBL R(4) 4 7381780 2 10184 COM 524 TTBLQ R(4) 4 7422516 2 66880 COM 523 TTV R(4) 4 70038756 2 91719 COM TWBS R(4) 4 3668760 2 91719 COM 756 U R(4) 4 1100628 3 4127355 COM 699,1147,1148,1149 U00 R(4) 4 16509420 2 91719 COM 846 U10 R(4) 4 1100628 2 91719 COM 952,1147,1156 U30 R(4) 4 3668760 2 91719 COM 977 UB R(4) 4 624624 3 77220 COM 688 UL R(4) 4 16876296 1 90 COM 848,851 USTAR R(4) 4 0 2 91719 COM 781 UZ0 R(4) 4 1834380 2 91719 COM 775 V R(4) 4 17610048 3 4127355 COM 702,1151,1152,1153 V10 R(4) 4 1467504 2 91719 COM 955,1151,1157 V30 R(4) 4 4035636 2 91719 COM 981 VAPINC R(4) 4 18343812 2 91719 COM 1076 VAPINC7 R(4) 4 18710688 2 91719 COM 1079 VB R(4) 4 933504 3 77220 COM 688 VBM2 R(4) 4 366876 2 91719 COM 442 VBM3 R(4) 4 733752 2 91719 COM 445 VEGFRC R(4) 4 3301884 2 91719 COM 538 VTM R(4) 4 18343800 3 4127355 COM 460,1142,1143,1147,1148,1149,1151, 1152,1153 VZ0 R(4) 4 2201256 2 91719 COM 778 WBD R(4) 4 268 scalar COM 524 WPDAR R(4) 4 374080 2 91719 COM 469 X1P R(4) 4 300 scalar COM 525 Y1P R(4) 4 304 scalar COM 525 Z0 R(4) 4 0 2 91719 COM 735 Z0SLP R(4) 4 312 scalar COM Z1000 R(4) 4 71139384 2 91719 COM ZINT R(4) 4 33752592 3 4219074 COM Page 34 Source Listing INITPOST 2025-03-12 18:23 Subprograms/Common Blocks INITPOST.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 284 1467512 SAVE ACMCLH Common 291 24 SAVE ACMPRE Common 296 1467508 SAVE ACMRDL Common 302 2201268 SAVE ACMRDS Common 308 2201268 SAVE ACMSFC Common 314 2568144 SAVE BOCO Common 277 1860144 SAVE CLDWTR Common 321 17610408 SAVE CNVCLD Common 252 1467504 SAVE CTLBLK Common 163 96 SAVE DYNAM Common 200 3675964 SAVE E2PFL Common 348 8 SAVE EXTRA Common 337 71506268 SAVE INDX Common 354 6192 SAVE INITPOST Subr 1 IOUNIT Common 153 20 SAVE LOOPS Common 184 748952 SAVE MAPOT Common 233 1448 SAVE MASKS Common 192 34853220 SAVE OMGAOT Common 159 16509420 SAVE OUTFIL Common 179 21 SAVE PARALLEL Common 170 8240 PHYS Common 212 7690036 SAVE PPTASM Common 386 19811316 SAVE PVRBLS Common 265 23480064 SAVE QFLX Common 359 8438148 SOIL Common 327 8438180 SRFDSP Common 246 4402512 VRBLS Common 258 67138308 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 Page 35 Source Listing INITPOST 2025-03-12 18:23 INITPOST.f -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 -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 Page 36 Source Listing INITPOST 2025-03-12 18:23 INITPOST.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 : INITPOST.lst no -o COMPILER: Intel(R) Fortran 19.1-1655