Page 1 Source Listing INITPOST 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 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 2014-12-17 20:48 Entry Points INITPOST.f ENTRY POINTS Name initpost_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 884 882 125 Label 914 905 150 Label 962 952,956 155 Label 963 961 160 Label 989 978,981,985 170 Label 991 973 175 Label 992 965 50 Label 293 290 51 Label 294 292 75 Label 352 351 80 Label 355 354 A2 Param 41 R(4) 4 scalar A3 Param 41 R(4) 4 scalar A4 Param 41 R(4) 4 scalar ABS Func 910 scalar 910 ACCLIQ Scalar 7 R(4) 4 2 91719 COM 580 ACFRCV Scalar 3 R(4) 4 2 91719 COM 588 ACFRST Scalar 4 R(4) 4 2 91719 COM 594 ACMCLD Common 2 1467512 ACMCLH Common 2 24 ACMPRE Common 2 1467508 ACMRDL Common 2 2201268 ACMRDS Common 2 2201268 ACMSFC Common 2 2568144 ACPREC Scalar 7 R(4) 4 2 91719 COM 576 ACSNOM Scalar 3 R(4) 4 2 91719 COM 604 ACSNOW Scalar 3 R(4) 4 2 91719 COM 601 ACUTIM Scalar 3 R(4) 4 scalar COM AD05 Param 33 R(4) 4 scalar AETA Local 85 R(4) 4 1 45 262,828,909 AETA1 Scalar 8 R(4) 4 1 45 COM 237 AETA2 Scalar 7 R(4) 4 1 45 COM 210 AETAD Scalar 4 R(4) 4 1 45 COM 175,262 AKHS Scalar 3 R(4) 4 2 91719 COM 459 AKMS Scalar 3 R(4) 4 2 91719 COM 451 ALBASE Scalar 14 R(4) 4 2 91719 COM 228 ALBEDO Scalar 15 R(4) 4 2 91719 COM 726 ALOG Func 897 scalar 897,1003 ALPINT Scalar 4 R(4) 4 3 4219074 COM 897,1003,1033,1034,1035 ALSL Scalar 7 R(4) 4 1 39 COM 330 ALWIN Scalar 4 R(4) 4 2 91719 COM 646 ALWOUT Scalar 4 R(4) 4 2 91719 COM 649 ALWTOA Scalar 4 R(4) 4 2 91719 COM 652 APREC Scalar 3 R(4) 4 2 91719 COM Page 21 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References ARATIM Scalar 3 R(4) 4 scalar COM ARDLW Scalar 3 R(4) 4 scalar COM 654 ARDSW Scalar 3 R(4) 4 scalar COM 654 ASRFC Scalar 3 R(4) 4 scalar COM 654 ASWIN Scalar 4 R(4) 4 2 91719 COM 637 ASWOUT Scalar 4 R(4) 4 2 91719 COM 640 ASWTOA Scalar 4 R(4) 4 2 91719 COM 643 AVCNVC Scalar 3 R(4) 4 scalar COM 654 AVRAIN Scalar 3 R(4) 4 scalar COM 654 BETA Param 37 R(4) 4 scalar 37 BGROFF Scalar 4 R(4) 4 2 91719 COM 610 BLANK Local 83 CHAR 4 scalar 127,368 BOCO Common 2 1860144 BOUNDL Subr 883 883 BTG Param 37 R(4) 4 scalar CAPA Param 28 R(4) 4 scalar 35,828 CFRACH Scalar 3 R(4) 4 2 91719 COM 521 CFRACL Scalar 3 R(4) 4 2 91719 COM 477 CFRACM Scalar 3 R(4) 4 2 91719 COM 499 CFT0 Param 33 R(4) 4 scalar CI Scalar 4 R(4) 4 scalar COM 209 CLDEFI Scalar 6 R(4) 4 2 91719 COM 509 CLDINC Scalar 6 R(4) 4 2 91719 COM 794 CLDINC7 Scalar 6 R(4) 4 2 91719 COM 797 CLDWTR Common 2 17610408 CM1 Param 23 R(4) 4 scalar CM2 Param 23 R(4) 4 scalar CM3 Param 23 R(4) 4 scalar CMC Scalar 6 R(4) 4 2 91719 COM 706 CMLD Scalar 6 R(4) 4 scalar COM 237 CNVCLD Common 2 1467504 CONTRL Local 80 CHAR 40 scalar CP Param 34 R(4) 4 scalar 36,40,911 CPDR Param 36 R(4) 4 scalar CPGFU Scalar 8 R(4) 4 2 91719 COM 184 CPGFV Scalar 3 R(4) 4 scalar COM 174 CPHI0 Scalar 9 R(4) 4 scalar COM CS Scalar 4 R(4) 4 scalar COM 209 CTLBLK Common 2 96 CUPPT Scalar 3 R(4) 4 2 91719 COM 518 CUPREC Scalar 7 R(4) 4 2 91719 COM 584 CURV Scalar 8 R(4) 4 2 91719 COM 187 CWM Scalar 3 R(4) 4 3 4127355 COM 422 CWMB Scalar 4 R(4) 4 3 77220 COM CZEN Scalar 12 R(4) 4 2 91719 COM 455 CZMEAN Scalar 16 R(4) 4 2 91719 COM 551 D00 Param 25 R(4) 4 scalar 956 D001 Param 25 R(4) 4 scalar D0065 Param 29 R(4) 4 scalar D01 Param 25 R(4) 4 scalar D05 Param 29 R(4) 4 scalar 33 D1 Param 25 R(4) 4 scalar D115 Param 29 R(4) 4 scalar D125 Param 27 R(4) 4 scalar D25 Param 27 R(4) 4 scalar Page 22 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References D50 Param 25 R(4) 4 scalar 299,300,301,302,303,304,305,306,30 7,308,313,315,333 D608 Param 29 R(4) 4 scalar 908 DCFLX Scalar 15 R(4) 4 2 91719 COM 744 DCFLX7 Scalar 17 R(4) 4 2 91719 COM 769 DDMPU Scalar 9 R(4) 4 2 91719 COM 202 DDMPV Scalar 9 R(4) 4 2 91719 COM 205 DETA Local 85 R(4) 4 1 45 261 DETA1 Scalar 8 R(4) 4 1 45 COM 237 DETA2 Scalar 7 R(4) 4 1 45 COM 210 DETAD Scalar 4 R(4) 4 1 45 COM 175,261 DFL Scalar 4 R(4) 4 1 46 COM 175,1033 DFRLG Scalar 7 R(4) 4 1 46 COM 210 DI Scalar 4 R(4) 4 scalar COM 209 DISLP Scalar 7 R(4) 4 scalar COM DLMD Scalar 6 R(4) 4 scalar COM 237 DP10M Param 35 R(4) 4 scalar DP30 Scalar 6 R(4) 4 scalar COM 237 DPHD Scalar 6 R(4) 4 scalar COM 237 DQADV Scalar 19 R(4) 4 2 91719 COM 775 DQFLX Scalar 14 R(4) 4 2 91719 COM 735 DQFLX7 Scalar 16 R(4) 4 2 91719 COM 757 DS Scalar 4 R(4) 4 scalar COM 209 DT Scalar 4 R(4) 4 scalar COM 143,311,911 DTD Scalar 3 R(4) 4 scalar COM 313,314,315,326 DTQ2 Scalar 3 R(4) 4 scalar COM 311,312,313,315,325 DTR Param 34 R(4) 4 scalar 34 DUMMY Local 69 R(4) 4 2 91719 146,147,149,150,156,157,159,160,16 2,163,166,167,171,172,177,178,180, 181,183,184,186,187,189,190,192,19 3,195,196,198,199,201,202,204,205, 212,213,215,216,218,219,221,222,22 4,225,227,228,230,231,233,234,240, 241,243,244,246,247,249,250,381,38 2,391,392,394,395,397,398,404,405, 407,408,410,411,413,414,416,417,42 1,422,434,435,438,439,442,443,446, 447,450,451,454,455,458,459,461,46 2,464,465,467,468,470,471,473,474, 476,477,480,481,483,484,486,487,48 9,490,492,493,495,496,498,499,502, 503,505,506,508,509,511,512,514,51 5,517,518,520,521,525,526,528,529, 531,532,534,535,537,538,540,541,54 4,545,547,548,550,551,553,554,557, 558,560,561,563,564,571,572,575,57 6,579,580,583,584,587,588,590,591, 593,594,596,597,600,601,603,604,60 6,607,609,610,614,615,617,618,620, 621,623,624,626,627,629,630,632,63 3,636,637,639,640,642,643,645,646, 648,649,651,652,657,658,660,661,66 3,664,666,667,669,670,672,673,675, 676,679,680,681,683,684,685,687,68 8,689,691,692,693,698,699,705,706, Page 23 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References 710,711,718,719,725,726,728,729,73 1,732,734,735,737,738,740,741,743, 744,747,748,749,751,752,753,755,75 6,757,759,760,761,763,764,765,767, 768,769,772,773,774,775,777,778,77 9,780,782,783,784,785,787,788,790, 791,793,794,796,797 DX Scalar 8 R(4) 4 2 91719 COM 178 DY Scalar 3 R(4) 4 scalar COM 174 DYNAM Common 2 3675964 E2PFL Common 2 8 EF4T Scalar 3 R(4) 4 scalar COM 175 ELDR Param 36 R(4) 4 scalar ELWDWN Scalar 13 R(4) 4 2 91719 COM ELWV Param 36 R(4) 4 scalar 36 EM Scalar 6 R(4) 4 1 760 COM 175 EMT Scalar 6 R(4) 4 1 760 COM 175 EN Scalar 3 R(4) 4 scalar COM 174 ENT Scalar 3 R(4) 4 scalar COM 174 ENVAR Local 83 CHAR 50 scalar 342,343,345,346,368,371 EPS Param 39 R(4) 4 scalar 39 EPSQ2 Param 40 R(4) 4 scalar EPSR Scalar 11 R(4) 4 2 91719 COM 216 ERAD Param 34 R(4) 4 scalar ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Local 85 R(4) 4 1 46 263,265,1001 ETA1 Scalar 8 R(4) 4 1 46 COM 238 ETAD Scalar 4 R(4) 4 1 46 COM 175,263,265 EXCH Subr 920 920 EXP Func 1035 scalar 1035 EXTRA Common 3 71506268 EXTRACT Subr 147 147,150,157,160,163,167,172,178,18 1,184,187,190,193,196,199,202,205, 213,216,219,222,225,228,231,234,24 1,244,247,250,382,392,395,398,405, 408,411,414,417,422,435,439,443,44 7,451,455,459,462,465,468,471,474, 477,481,484,487,490,493,496,499,50 3,506,509,512,515,518,521,526,529, 532,535,538,541,545,548,551,554,55 8,561,564,572,576,580,584,588,591, 594,597,601,604,607,610,615,618,62 1,624,627,630,633,637,640,643,646, 649,652,658,661,664,667,670,673,67 6,681,685,689,693,699,706,711,719, 726,729,732,735,738,741,744,749,75 3,757,761,765,769,775,780,785,788, 791,794,797 F Scalar 9 R(4) 4 2 91719 COM 199 F4D Scalar 3 R(4) 4 scalar COM 174 F4Q Scalar 3 R(4) 4 scalar COM 174 F4Q2 Scalar 4 R(4) 4 1 45 COM 175 FAD Scalar 9 R(4) 4 2 91719 COM 196 FCNEV Scalar 5 R(4) 4 2 91719 COM FCNEV7 Scalar 6 R(4) 4 2 91719 COM Page 24 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References FCP Scalar 8 R(4) 4 2 91719 COM 190 FCSEV Scalar 5 R(4) 4 2 91719 COM FCSEV7 Scalar 6 R(4) 4 2 91719 COM FCSTDATA Local 120 scalar 276 FCU Scalar 10 R(4) 4 2 91719 COM 738 FCU7 Scalar 12 R(4) 4 2 91719 COM 761 FCV Scalar 10 R(4) 4 2 91719 COM 741 FCV7 Scalar 12 R(4) 4 2 91719 COM 765 FDIV Scalar 9 R(4) 4 2 91719 COM 193 FILALL Local 80 CHAR 40 scalar FILCLD Local 81 CHAR 40 scalar FILMST Local 80 CHAR 40 scalar FILRAD Local 81 CHAR 40 scalar FILSFC Local 81 CHAR 40 scalar FILTKE Local 80 CHAR 40 scalar FILTMP Local 80 CHAR 40 scalar FILUNV Local 80 CHAR 40 scalar FIRST Scalar 76 L(4) 4 scalar COM 298,319,388 FIS Scalar 3 R(4) 4 2 91719 COM 398 FMD Param 39 R(4) 4 scalar 39 FMW Param 39 R(4) 4 scalar 39 FNAME Local 83 CHAR 80 scalar 371,372 FQNEV Scalar 2 R(4) 4 2 91719 COM FQNEV1 Scalar 20 R(4) 4 2 91719 COM 780 FQNEV7 Scalar 3 R(4) 4 2 91719 COM FQSEV Scalar 2 R(4) 4 2 91719 COM FQSEV1 Scalar 20 R(4) 4 2 91719 COM 785 FQSEV7 Scalar 3 R(4) 4 2 91719 COM FQU Scalar 9 R(4) 4 2 91719 COM 729 FQU7 Scalar 11 R(4) 4 2 91719 COM 749 FQV Scalar 9 R(4) 4 2 91719 COM 732 FQV7 Scalar 11 R(4) 4 2 91719 COM 753 FSL Scalar 8 R(4) 4 2 91719 COM G Param 32 R(4) 4 scalar 32 GET_ENVIRONMENT_VARIABLE Intrin 343 343,344 GFFC Scalar 14 R(4) 4 2 91719 COM 222 GI Param 32 R(4) 4 scalar 36 GLAT Scalar 12 R(4) 4 2 91719 COM 206 GLON Scalar 12 R(4) 4 2 91719 COM 207 GRNFLX Scalar 4 R(4) 4 2 91719 COM 538 H1 Param 26 R(4) 4 scalar 33,908,985 H100 Param 27 R(4) 4 scalar H1000 Param 27 R(4) 4 scalar H10000 Param 28 R(4) 4 scalar H10E5 Param 28 R(4) 4 scalar H1E2 Param 30 R(4) 4 scalar H1E4 Param 30 R(4) 4 scalar H1M12 Param 26 R(4) 4 scalar 883,910 H1M2 Param 30 R(4) 4 scalar H1M5 Param 27 R(4) 4 scalar H2 Param 26 R(4) 4 scalar H4 Param 26 R(4) 4 scalar H999 Param 25 R(4) 4 scalar H99999 Param 26 R(4) 4 scalar 883 HBM2 Scalar 3 R(4) 4 2 91719 COM 152 Page 25 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References HBOT Scalar 13 R(4) 4 2 91719 COM 474 HDAC Scalar 16 R(4) 4 2 91719 COM 231 HDACV Scalar 16 R(4) 4 2 91719 COM 234 HTM Scalar 5 R(4) 4 3 4127355 COM 167,956,985 HTOP Scalar 13 R(4) 4 2 91719 COM 496 I Local 166 I(4) 4 scalar 166,171,332,333,381,404,407,410,41 3,416,421,698,710,718,814,815,816, 824,825,827,828,829,844,848,854,85 5,859,860,861,863,864,865,868,869, 893,894,895,896,897,907,908,909,91 1,923,924,925,930,931,932,937,938, 939,955,956,981,985,1000,1001,1002 ,1003,1016,1019,1022,1031,1033,103 4,1035 IADD Local 1017 I(4) 4 scalar 1017,1020,1023,1025 ICNT Scalar 7 I(4) 4 1 1024 COM IDAT Scalar 3 I(4) 4 1 3 COM 375,387,433,437,441,445,449,453,57 0,574,578,582 IDATB Local 84 I(4) 4 1 3 IDIM1 Param 14 I(4) 4 scalar IDIM2 Param 14 I(4) 4 scalar IDN Scalar 7 I(4) 4 scalar COM IDSP Scalar 7 I(4) 4 1 1024 COM IDTAD Scalar 4 I(4) 4 scalar COM 143 IEND Local 979 I(4) 4 scalar 979,980,981 IER Local 372 I(4) 4 scalar 372 IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHE Scalar 3 I(4) 4 1 387 COM 837,838,854,859,863 IHHA Scalar 3 I(4) 4 1 760 COM IHLA Scalar 3 I(4) 4 1 760 COM IHRST Scalar 3 I(4) 4 scalar COM 375,387,433,437,441,445,449,453,57 0,574,578,582 IHW Scalar 3 I(4) 4 1 387 COM 838,854,860,864 II Local 697 I(4) 4 scalar 697,698,699,709,710,711,717,718,71 9 IM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,19,20,69,166,171,381,404,407 ,410,413,416,421,698,710,718,814,8 24,844,883,893,907,923,930,937,945 ,948,955,979,980,1000,1015,1016,10 22 IM1 Param 6 I(4) 4 scalar IMJM Param 2 I(4) 4 scalar 5 IMT Param 4 I(4) 4 scalar 1013,1014,1016,1019 INDEX Func 345 scalar 345,359 INDX Common 2 6192 INITPOST Subr 1 INPES Param 6 I(4) 4 scalar 11,14 INT Func 299 scalar 299,300,301,302,303,304,305,306,30 7,308,315,333 IOALL Scalar 78 L(4) 4 scalar COM 809 IOOMG Scalar 78 L(4) 4 scalar COM 808 IOUNIT Common 4 20 IOUT Scalar 3 I(4) 4 scalar COM 388 Page 26 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References ISHDE Scalar 4 I(4) 4 1 61 COM 333 ISLOPE Scalar 5 I(4) 4 2 91719 COM 247 ISLTYP Scalar 5 I(4) 4 2 91719 COM 244 ITAG Scalar 3 I(4) 4 scalar COM 351,354 ITAIL Param 11 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 8,18 ITBQ Param 1 I(4) 4 scalar 9,18 ITSTLOC Scalar 4 I(4) 4 scalar COM IUNIT Scalar 10 I(4) 4 scalar COM IUP Scalar 7 I(4) 4 scalar COM IVE Scalar 3 I(4) 4 1 387 COM 839,840 IVGTYP Scalar 5 I(4) 4 2 91719 COM 241 IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IVW Scalar 3 I(4) 4 1 387 COM 840 IXM Scalar 3 I(4) 4 scalar COM 237 IYM Scalar 3 I(4) 4 scalar COM 237 J Local 166 I(4) 4 scalar 166,171,381,404,407,410,413,416,42 1,698,710,718,813,815,816,823,825, 827,828,829,836,837,838,839,840,84 3,844,848,854,855,859,860,861,863, 864,865,868,869,892,894,895,896,89 7,906,908,909,911,922,924,925,929, 931,932,943,944,945,954,956,978,98 0,983,985,999,1001,1002,1003,1025, 1031,1033,1034,1035 JAM Param 6 I(4) 4 scalar 3,6 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEND Scalar 6 I(4) 4 scalar COM 813,823,892,906,954,983,999 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM 843 JEND_M2 Scalar 7 I(4) 4 scalar COM JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,19,20,69,166,171,381,404,407 ,410,413,416,421,698,710,718,836,8 83,922,929,939,943,948,978 JM2 Param 6 I(4) 4 scalar JMT Param 4 I(4) 4 scalar JNPES Param 6 I(4) 4 scalar 12,15 JRA Scalar 3 I(4) 4 1 760 COM JSTA Scalar 6 I(4) 4 scalar COM 813,823,892,906,954,983,999 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM 843 JSTA_M2 Scalar 7 I(4) 4 scalar COM JTAIL Param 12 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 8,18 JTBQ Param 1 I(4) 4 scalar 18 JTSTLOC Scalar 4 I(4) 4 scalar COM K Local 290 I(4) 4 scalar 290,977,982,984,987,1012,1013,1014 ,1016,1019 KHH2 Local 144 I(4) 4 scalar 144 KHHA Local 144 I(4) 4 scalar 144 Page 27 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References KHL2 Local 144 I(4) 4 scalar 144 KHLA Local 144 I(4) 4 scalar 144 KM Local 1011 I(4) 4 scalar 1011,1012 KMM Local 1010 I(4) 4 scalar 1010,1011 KMN Local 974 I(4) 4 scalar 974,986,987,990 KMNT Scalar 5 I(4) 4 2 4118670 COM 984,987,1012 KMNTM Scalar 5 I(4) 4 1 45 COM 975,990,1010 KPATH Local 345 I(4) 4 scalar 345,346,347,371 KRST Local 359 I(4) 4 scalar 359,360,361,371 KSAV Param 14 I(4) 4 scalar KSFI Param 13 I(4) 4 scalar KSLI Param 14 I(4) 4 scalar KSLP Param 14 I(4) 4 scalar KSLPD Param 13 I(4) 4 scalar KSMUD Param 13 I(4) 4 scalar KSRH Param 14 I(4) 4 scalar KSSLP Param 13 I(4) 4 scalar KST Param 13 I(4) 4 scalar KSUV Param 14 I(4) 4 scalar KTM Scalar 3 I(4) 4 scalar COM 315,326 KUNIT Scalar 10 I(4) 4 scalar COM KVH2 Local 144 I(4) 4 scalar 144 KVHA Local 144 I(4) 4 scalar 144 KVL2 Local 144 I(4) 4 scalar 144 KVLA Local 144 I(4) 4 scalar 144 L Local 164 I(4) 4 scalar 164,167,169,172,260,261,262,263,29 2,329,330,379,382,402,405,408,411, 414,417,422,882,883,905,908,909,91 1,952,956,960,973,975,984,985,987, 990,998,1001,1002,1003,1032,1033,1 034,1035 LABEL Local 79 CHAR 32 scalar 375,385,387,429,433,437,441,445,44 9,453,566,570,574,578,582,799 LB Param 9 I(4) 4 scalar 3,4 LC Scalar 3 I(4) 4 2 91719 COM 561 LCNTRL Scalar 5 I(4) 4 scalar COM LEN Func 346 scalar 346,360 LFCSTD Local 274 I(4) 4 scalar 274,275,276 LFTOV1 Local 1014 I(4) 4 scalar 1014,1015,1018,1021 LHEAT Param 40 I(4) 4 scalar 40 LHMNT Local 960 I(4) 4 scalar 960,963,967,973 LHTOCP Param 40 I(4) 4 scalar LIST Scalar 3 I(4) 4 scalar COM 143 LM Param 3 I(4) 4 scalar 2,3,4,5,7,8,9,19,85,164,169,260,37 9,402,826,828,829,849,854,855,859, 860,861,863,864,865,882,905,952,96 7,973,998,1010,1012,1032 LM1 Param 8 I(4) 4 scalar LMAP1 Local 1031 I(4) 4 scalar 1031,1032 LMH Scalar 5 I(4) 4 2 91719 COM 147,825,1031 LMHK Local 825 I(4) 4 scalar 825,826 LMV Scalar 5 I(4) 4 2 91719 COM 150,848 LMVK Local 848 I(4) 4 scalar 848,849 LOG Func 330 scalar 330 LOOPS Common 2 748952 Page 28 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References LP1 Param 8 I(4) 4 scalar 4,7,8,85,265,896,897,963 LRSTRT Scalar 3 I(4) 4 scalar COM 363,364,369,372,375,377,381,387,39 1,393,394,396,397,400,404,407,410, 413,416,418,421,423,424,433,436,43 7,440,441,444,445,448,449,452,453, 458,460,461,463,464,466,467,469,47 0,472,473,475,476,480,482,483,485, 486,488,489,491,492,494,495,497,49 8,502,504,505,507,508,510,511,513, 514,516,517,519,520,525,527,528,53 0,531,533,534,536,537,539,540,544, 546,547,549,550,552,553,557,559,56 0,562,563,570,573,574,577,578,581, 582,587,589,590,592,593,595,596,60 0,602,603,605,606,608,609,614,616, 617,619,620,622,623,625,626,628,62 9,631,632,636,638,639,641,642,644, 645,647,648,650,651,654,657,659,66 0,662,663,665,666,668,669,671,672, 674,675,678,679,682,683,686,687,69 0,691,698,700,702,705,710,712,714, 718,720,722,725,728,730,731,733,73 4,736,737,739,740,742,743,746,747, 750,751,754,755,758,759,762,763,76 6,767,771,772,776,777,781,782,787, 789,790,792,793,795,796,804 LSL Scalar 3 I(4) 4 scalar COM 140,329 LSM Param 3 I(4) 4 scalar 7,140,292 LUNCO Scalar 5 I(4) 4 scalar COM LUNHB Local 139 I(4) 4 scalar 139,141,143,146,149,152,154,156,15 9,162,166,171,174,177,180,183,186, 189,192,195,198,201,204,206,207,20 8,209,212,215,218,221,224,227,230, 233,235,236,240,243,246,249,251,25 2 LUNIT Scalar 10 I(4) 4 scalar COM LUNLL Scalar 5 I(4) 4 scalar COM LUNOUT Scalar 5 I(4) 4 scalar COM MAPOT Common 2 1448 MASKS Common 2 34853220 MAX Func 815 scalar 815 ME Scalar 6 I(4) 4 scalar COM MIN Func 816 scalar 816 MOD Func 837 scalar 837,839,844,980,1014 MPI_LAST Subr 871 871 MTSTPE Scalar 4 I(4) 4 scalar COM MUNIT Scalar 10 I(4) 4 scalar COM N Local 698 I(4) 4 scalar 698,710,718 NBC Scalar 3 I(4) 4 scalar COM 143 NBOCO Scalar 4 I(4) 4 scalar COM NCFRCV Scalar 3 I(4) 4 2 91719 COM 591 NCFRST Scalar 4 I(4) 4 2 91719 COM 597 NCLOD Scalar 3 I(4) 4 scalar COM 305,322 NCNVC Local 123 I(4) 4 scalar 123 NCP Scalar 4 I(4) 4 scalar COM 301,320 Page 29 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References NDDAMP Scalar 4 I(4) 4 scalar COM 302,321 NDROW Local 1013 I(4) 4 scalar 1013,1016,1019,1025 NEST Local 77 L(4) 4 scalar 125 NFCST Scalar 3 I(4) 4 scalar COM 143 NHEAT Scalar 3 I(4) 4 scalar COM 304,321 NINC Param 7 I(4) 4 scalar NINT Func 309 scalar 309,310 NMAP Local 122 I(4) 4 scalar 122,284,332 NPHS Scalar 5 I(4) 4 scalar COM 123,284,311 NPREC Scalar 4 I(4) 4 scalar COM 303,321 NRADL Scalar 5 I(4) 4 scalar COM 310,324 NRADLH Local 123 I(4) 4 scalar 123,285,310 NRADS Scalar 5 I(4) 4 scalar COM 309,324 NRADSH Local 123 I(4) 4 scalar 123,285,309 NRDLW Scalar 3 I(4) 4 scalar COM 307,322 NRDSW Scalar 3 I(4) 4 scalar COM 306,322 NROOT Param 1 I(4) 4 scalar NSHDE Scalar 4 I(4) 4 scalar COM 388 NSOIL Param 1 I(4) 4 scalar 6,7,697,709,717 NSRFC Scalar 3 I(4) 4 scalar COM 308,323 NSTART Local 299 I(4) 4 scalar 299,320 NSTAT Param 19 I(4) 4 scalar NSUMD Param 15 I(4) 4 scalar NTDDMP Local 123 I(4) 4 scalar 123 NTSD Scalar 4 I(4) 4 scalar COM 375,387,433,437,441,445,449,453,57 0,574,578,582 NTSTM Scalar 4 I(4) 4 scalar COM 300,320 NUM_PROCS Scalar 6 I(4) 4 scalar COM NUNIT Scalar 10 I(4) 4 scalar COM NWORD Param 19 I(4) 4 scalar 19 NWORD3 Param 19 I(4) 4 scalar NWORD6 Param 19 I(4) 4 scalar OLDRD Scalar 10 R(4) 4 scalar COM OMGA Scalar 2 R(4) 4 3 4127355 COM 382,911 OMGAOT Common 2 16509420 ONEPS Param 39 R(4) 4 scalar OUTFIL Common 3 21 OVERRC Param 33 R(4) 4 scalar 33 P1000 Param 35 R(4) 4 scalar PARALLEL Common 9 8240 PBI Local 895 R(4) 4 scalar 895,896,897,1001,1002,1003 PCTSNO Scalar 4 R(4) 4 2 91719 COM 541 PD Scalar 3 R(4) 4 2 91719 COM 392,827,894,895 PDB Scalar 3 R(4) 4 2 1716 COM 400 PDOMG Local 377 R(4) 4 scalar 377 PDSL Scalar 6 R(4) 4 2 91719 COM 827,828,894,909,920,924,925,931,93 2,938,939,944,945,1001 PDVP1 Scalar 6 R(4) 4 2 91719 COM 924,931,938,939,944,945,948 PFSL Scalar 7 R(4) 4 2 91719 COM PHOUR Scalar 2 R(4) 4 2 91719 COM PHYS Common 2 7690036 PINT Scalar 4 R(4) 4 3 4219074 COM 896,1002,1035 PL Scalar 5 R(4) 4 scalar COM 209 PLQ Scalar 6 R(4) 4 scalar COM 208 POTEVP Scalar 5 R(4) 4 2 91719 COM 633 Page 30 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References PPTASM Common 1 19811316 PPTDAT Scalar 3 R(4) 4 3 275157 COM PQ0 Param 41 R(4) 4 scalar PREC Scalar 7 R(4) 4 2 91719 COM 572 PSHLTR Scalar 4 R(4) 4 2 91719 COM 676 PSLP Scalar 6 R(4) 4 2 91719 COM 515 PT Local 174 R(4) 4 scalar 174,258,828,895,909,1001 PT1 Scalar 5 R(4) 4 scalar COM 236 PT2 Scalar 3 R(4) 4 scalar COM 206 PTBL Scalar 18 R(4) 4 2 10184 COM 236 PTDYN Scalar 3 R(4) 4 scalar COM 258 PTSL Scalar 7 R(4) 4 2 91719 COM PVRBLS Common 2 23480064 Q Scalar 5 R(4) 4 3 4127355 COM 408,829,883,908 Q10 Scalar 3 R(4) 4 2 91719 COM 661,829 Q2 Scalar 9 R(4) 4 3 4127355 COM 417 Q2B Scalar 4 R(4) 4 3 77220 COM Q30 Scalar 5 R(4) 4 2 91719 COM 685 QB Scalar 3 R(4) 4 3 77220 COM 400 QFLX Common 1 8438148 QS Scalar 3 R(4) 4 2 91719 COM 465 QS0 Scalar 8 R(4) 4 1 134 COM 210 QSHLTR Scalar 4 R(4) 4 2 91719 COM 673 QSL Scalar 9 R(4) 4 2 91719 COM QWBS Scalar 5 R(4) 4 2 91719 COM 471 QZ0 Scalar 4 R(4) 4 2 91719 COM 484 R Local 174 R(4) 4 scalar 174,259,1033 R1 Scalar 5 R(4) 4 scalar COM 236 RADIN Scalar 11 R(4) 4 2 91719 COM RADOT Scalar 11 R(4) 4 2 91719 COM 548 RCAPA Param 35 R(4) 4 scalar RD Param 32 R(4) 4 scalar 32,36,40 RDETA Scalar 4 R(4) 4 1 45 COM 175 RDOCP Param 40 R(4) 4 scalar RDP Scalar 5 R(4) 4 scalar COM 209 RDPQ Scalar 6 R(4) 4 scalar COM 208 RDQ Scalar 5 R(4) 4 scalar COM 209 RDTH Scalar 5 R(4) 4 scalar COM 209 RDTHE Scalar 5 R(4) 4 scalar COM 210 RDTHEQ Scalar 6 R(4) 4 scalar COM 208 RDYN Scalar 3 R(4) 4 scalar COM 259,908 RES Scalar 3 R(4) 4 2 91719 COM 395,827,894 RESOMG Local 377 R(4) 4 scalar 377 RESTHR Local 82 CHAR 4 scalar 344,348,350,354 RESTRT Scalar 76 L(4) 4 scalar COM 121,273,282 RF Scalar 5 R(4) 4 2 91719 COM 512 RG Param 36 R(4) 4 scalar RLWIN Scalar 3 R(4) 4 2 91719 COM 545 RLWOUT Scalar 3 R(4) 4 2 91719 COM RLWTOA Scalar 3 R(4) 4 2 91719 COM RMXSNAL Scalar 11 R(4) 4 2 91719 COM 213 ROG Param 32 R(4) 4 scalar ROI Scalar 4 R(4) 4 scalar COM 209 ROS Scalar 4 R(4) 4 scalar COM 209 RSTFIL Scalar 2 CHAR 13 scalar COM 351,354,357,359,360,369,371 Page 31 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References RSWIN Scalar 3 R(4) 4 2 91719 COM 435 RSWOUT Scalar 3 R(4) 4 2 91719 COM 439 RSWTOA Scalar 3 R(4) 4 2 91719 COM RTD Param 34 R(4) 4 scalar RTDPTH Scalar 7 R(4) 4 1 4 COM 252 RTOPKL Local 908 R(4) 4 scalar 908,910,911 RUN Scalar 76 L(4) 4 scalar COM 375,387,433,437,441,445,449,453,57 0,574,578,582 RUNB Local 76 L(4) 4 scalar RWMSK Local 858 R(4) 4 scalar 858,862,866 SBD Scalar 6 R(4) 4 scalar COM 236 SFCEVP Scalar 4 R(4) 4 2 91719 COM 630 SFCEXC Scalar 3 R(4) 4 2 91719 COM 529 SFCLHX Scalar 3 R(4) 4 2 91719 COM 618 SFCSHX Scalar 3 R(4) 4 2 91719 COM 615 SFCUVX Scalar 4 R(4) 4 2 91719 COM 627 SH2O Scalar 7 R(4) 4 3 366876 COM 719 SI Scalar 6 R(4) 4 2 91719 COM 506 SICE Scalar 3 R(4) 4 2 91719 COM 163 SIGMA Scalar 77 L(4) 4 scalar COM 143,964 SIGT4 Scalar 16 R(4) 4 2 91719 COM 554 SINGLRST Local 76 L(4) 4 scalar 121 SLDPTH Scalar 7 R(4) 4 1 4 COM 251 SLP Scalar 5 R(4) 4 2 91719 COM SM Scalar 3 R(4) 4 2 91719 COM 160 SMC Scalar 6 R(4) 4 3 366876 COM 699 SMSTAV Scalar 3 R(4) 4 2 91719 COM 532 SMSTOT Scalar 3 R(4) 4 2 91719 COM 535 SMTHA Param 15 R(4) 4 scalar SMTHB Param 15 R(4) 4 scalar SNO Scalar 6 R(4) 4 2 91719 COM 503 SNOPCX Scalar 4 R(4) 4 2 91719 COM 624 SOIL Common 2 8438180 SOILTB Scalar 3 R(4) 4 2 91719 COM 526 SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM 122,292,330 SQS Scalar 8 R(4) 4 1 134 COM 210 SR Scalar 3 R(4) 4 2 91719 COM 564,815,816 SRFDSP Common 2 4402512 SSROFF Scalar 4 R(4) 4 2 91719 COM 607 SST Scalar 14 R(4) 4 2 91719 COM 225 STC Scalar 6 R(4) 4 3 366876 COM 711 STDOUT Scalar 2 I(4) 4 scalar COM 132,254,278,280,281,282,283,284,28 5,286,287,288,289,290,291,292,317, 318,319,320,321,322,323,324,325,32 6,340,385,429,566,799,885,1050,105 4,1055 STDRD Scalar 10 R(4) 4 scalar COM STHE Scalar 8 R(4) 4 1 76 COM 210 STHEQ Scalar 9 R(4) 4 1 152 COM 208 SUBPOST Local 77 L(4) 4 scalar 122,283 SUBSHX Scalar 4 R(4) 4 2 91719 COM 621 SWNET Scalar 12 R(4) 4 2 91719 COM T Scalar 5 R(4) 4 3 4127355 COM 405,828,908,1033 T500 Scalar 6 R(4) 4 2 91719 COM Page 32 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References TB Scalar 3 R(4) 4 3 77220 COM 400 TCLOD Scalar 3 R(4) 4 scalar COM 124,287,305 TCP Local 121 R(4) 4 scalar 121,281,301 TDDAMP Local 174 R(4) 4 scalar 174,302 TDTD Scalar 3 R(4) 4 scalar COM 314,326 TDTQ2 Scalar 3 R(4) 4 scalar COM 312,325 TEND Local 121 R(4) 4 scalar 121,280,300 TFRZ Param 39 R(4) 4 scalar TG Scalar 14 R(4) 4 2 91719 COM 219,443 TH10 Scalar 3 R(4) 4 2 91719 COM 658,828 TH30 Scalar 5 R(4) 4 2 91719 COM 681 THE0 Scalar 8 R(4) 4 1 76 COM 210 THE0Q Scalar 9 R(4) 4 1 152 COM 208 THEAT Scalar 3 R(4) 4 scalar COM 124,286,304 THL Scalar 5 R(4) 4 scalar COM 209 THS Scalar 3 R(4) 4 2 91719 COM 462 THZ0 Scalar 4 R(4) 4 2 91719 COM 481 TLAT Scalar 2 R(4) 4 3 4127355 COM TLM0D Scalar 6 R(4) 4 scalar COM 236 TPH0D Scalar 6 R(4) 4 scalar COM 236 TPREC Scalar 3 R(4) 4 scalar COM 124,286,303 TRDLW Scalar 3 R(4) 4 scalar COM 124,288,307 TRDSW Scalar 3 R(4) 4 scalar COM 124,287,306 TSHDE Scalar 8 R(4) 4 1 61 COM 122,290,333 TSHLTR Scalar 4 R(4) 4 2 91719 COM 670 TSL Scalar 8 R(4) 4 2 91719 COM TSPH Scalar 5 R(4) 4 scalar COM 236,299,300,301,302,303,304,305,30 6,307,308,309,310,333 TSRFC Scalar 3 R(4) 4 scalar COM 124,288,308 TSTART Local 121 R(4) 4 scalar 121,280,299 TTBL Scalar 18 R(4) 4 2 10184 COM 236 TTBLQ Scalar 18 R(4) 4 2 66880 COM 235 TTV Scalar 8 R(4) 4 2 91719 COM TWBS Scalar 5 R(4) 4 2 91719 COM 468 U Scalar 5 R(4) 4 3 4127355 COM 411,859,860,861 U00 Scalar 3 R(4) 4 2 91719 COM 558 U10 Scalar 3 R(4) 4 2 91719 COM 664,859,868 U30 Scalar 5 R(4) 4 2 91719 COM 689 UB Scalar 3 R(4) 4 3 77220 COM 400 UL Scalar 3 R(4) 4 1 90 COM 560,563 USTAR Scalar 3 R(4) 4 2 91719 COM 493 UZ0 Scalar 4 R(4) 4 2 91719 COM 487 V Scalar 5 R(4) 4 3 4127355 COM 414,863,864,865 V10 Scalar 3 R(4) 4 2 91719 COM 667,863,869 V30 Scalar 5 R(4) 4 2 91719 COM 693 VAPINC Scalar 5 R(4) 4 2 91719 COM 788 VAPINC7 Scalar 5 R(4) 4 2 91719 COM 791 VB Scalar 3 R(4) 4 3 77220 COM 400 VBM2 Scalar 3 R(4) 4 2 91719 COM 154 VBM3 Scalar 3 R(4) 4 2 91719 COM 157 VEGFRC Scalar 5 R(4) 4 2 91719 COM 250 VRBLS Common 2 67138308 VTM Scalar 5 R(4) 4 3 4127355 COM 172,854,855,859,860,861,863,864,86 5 VZ0 Scalar 4 R(4) 4 2 91719 COM 490 Page 33 Source Listing INITPOST 2014-12-17 20:48 Symbol Table INITPOST.f Name Object Declared Type Bytes Dimen Elements Attributes References WBD Scalar 6 R(4) 4 scalar COM 236 WMSK Local 854 R(4) 4 scalar 854,857,858 WPDAR Scalar 8 R(4) 4 2 91719 COM 181 X1P Scalar 6 R(4) 4 scalar COM 237 Y1P Scalar 6 R(4) 4 scalar COM 237 Z0 Scalar 3 R(4) 4 2 91719 COM 447 Z0SLP Scalar 7 R(4) 4 scalar COM Z1000 Scalar 9 R(4) 4 2 91719 COM ZINT Scalar 4 R(4) 4 3 4219074 COM Page 34 Source Listing INITPOST 2014-12-17 20:48 Subprograms/Common Blocks INITPOST.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 2 1467512 ACMCLH Common 2 24 ACMPRE Common 2 1467508 ACMRDL Common 2 2201268 ACMRDS Common 2 2201268 ACMSFC Common 2 2568144 BOCO Common 2 1860144 CLDWTR Common 2 17610408 CNVCLD Common 2 1467504 CTLBLK Common 2 96 DYNAM Common 2 3675964 E2PFL Common 2 8 EXTRA Common 3 71506268 INDX Common 2 6192 INITPOST Subr 1 IOUNIT Common 4 20 LOOPS Common 2 748952 MAPOT Common 2 1448 MASKS Common 2 34853220 OMGAOT Common 2 16509420 OUTFIL Common 3 21 PARALLEL Common 9 8240 PHYS Common 2 7690036 PPTASM Common 1 19811316 PVRBLS Common 2 23480064 QFLX Common 1 8438148 SOIL Common 2 8438180 SRFDSP Common 2 4402512 VRBLS Common 2 67138308 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar Page 35 Source Listing INITPOST 2014-12-17 20:48 INITPOST.f no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model noprecise -fp_model fast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/,.f,./.f,/usrx/local/intel/composerxe/mkl/include/.f, /usrx/local/intel/composerxe/tbb/include/.f,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/.f,/usr/local/include/.f,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/.f, Page 36 Source Listing INITPOST 2014-12-17 20:48 INITPOST.f /usr/include/.f,/usr/include/.f -list filename : INITPOST.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100