From a49af0549958def4744cb3903c7315476fe44530 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Mon, 23 Aug 2021 11:14:53 -0400 Subject: [PATCH 001/107] Restrict undefined grids from UPP computation Part 3 (#348) * Modify the computation at defined points. * The second part of changes from debug mode. * The third part of changes from debug_mode. * The fourth part of changes from debug_mode. * The fifth part of changes from debug_mode. * Update per comments from code reviewer. * Remove legacy sigma level temperature from PRSLEV dataset. * Fix MCONV computation on undefined grids. * Fixes for global and regional inline post in debug mode. * Update VERSION to 10.0.9. * Remove duplicated line. --- VERSION | 2 +- parm/fv3lam.xml | 8 ----- parm/postxconfig-NT-fv3lam.txt | 39 +-------------------- sorc/ncep_post.fd/ALLOCATE_ALL.f | 24 ++++++++++--- sorc/ncep_post.fd/BNDLYR.f | 51 ++++++++++----------------- sorc/ncep_post.fd/CALDWP.f | 7 +++- sorc/ncep_post.fd/CALLCL.f | 3 ++ sorc/ncep_post.fd/CALMCVG.f | 10 ++++-- sorc/ncep_post.fd/CALTAU.f | 7 ++++ sorc/ncep_post.fd/CALTHTE.f | 5 ++- sorc/ncep_post.fd/CALVIS_GSD.f | 4 +++ sorc/ncep_post.fd/CALWXT.f | 3 ++ sorc/ncep_post.fd/CALWXT_REVISED.f | 4 ++- sorc/ncep_post.fd/CLDRAD.f | 3 ++ sorc/ncep_post.fd/CLMAX.f | 7 +++- sorc/ncep_post.fd/DEWPOINT.f | 7 +++- sorc/ncep_post.fd/FRZLVL2.f | 6 ++++ sorc/ncep_post.fd/MDL2AGL.f | 4 +++ sorc/ncep_post.fd/MDL2SIGMA2.f | 4 ++- sorc/ncep_post.fd/MDLFLD.f | 8 ++--- sorc/ncep_post.fd/MIXLEN.f | 18 +++++++++- sorc/ncep_post.fd/SLP_new.f | 10 +++++- sorc/ncep_post.fd/SURFCE.f | 56 +++++++++++++++++++++--------- sorc/ncep_post.fd/UPP_PHYSICS.f | 5 ++- sorc/ncep_post.fd/WETBULB.f | 10 ++++-- sorc/ncep_post.fd/WETFRZLVL.f | 7 +++- 26 files changed, 192 insertions(+), 120 deletions(-) diff --git a/VERSION b/VERSION index 5219a0df7..82f3d338c 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -10.0.8 +10.0.9 diff --git a/parm/fv3lam.xml b/parm/fv3lam.xml index 4537c8fb2..2e78a58a5 100755 --- a/parm/fv3lam.xml +++ b/parm/fv3lam.xml @@ -1598,14 +1598,6 @@ 5.0 - - TMP_ON_SIGMA_LVL_HPC - TMP - 4 - 9000. 8500. 8000. 7500. 7000. - -4.0 - - PBLREG_ON_SURFACE PBLREG diff --git a/parm/postxconfig-NT-fv3lam.txt b/parm/postxconfig-NT-fv3lam.txt index dc4a08b94..0e0401d86 100644 --- a/parm/postxconfig-NT-fv3lam.txt +++ b/parm/postxconfig-NT-fv3lam.txt @@ -1,6 +1,6 @@ 2 219 -259 +258 PRSLEV 32769 ncep_nco @@ -8416,43 +8416,6 @@ entire_atmos_single_lyr ? ? ? -296 -TMP_ON_SIGMA_LVL_HPC -? -1 -tmpl4_0 -TMP -? -? -sigma_lvl -1 -4 -5 -9000. 8500. 8000. 7500. 7000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 --4.0 -0 -0 -0 -? -? -? 344 PBLREG_ON_SURFACE ? diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index f615db747..593851af4 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -46,7 +46,7 @@ SUBROUTINE ALLOCATE_ALL() integer ierr,jsx,jex integer i,j,l,k ! Allocate arrays - allocate(u(im,jsta_2l:jend_2u,lm)) + allocate(u(im+1,jsta_2l:jend_2u,lm)) allocate(v(im,jsta_2l:jvend_2u,lm)) allocate(t(im,jsta_2l:jend_2u,lm)) ! CHUANG ADD POTENTIAL TEMP BECAUSE WRF OUTPUT THETA @@ -79,9 +79,23 @@ SUBROUTINE ALLOCATE_ALL() !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=1,im+1 u(i,j,l)=0. + enddo + enddo + enddo +!$omp parallel do private(i,j,l) + do l=1,lm + do j=jsta_2l,jvend_2u + do i=1,im v(i,j,l)=0. + enddo + enddo + enddo +!$omp parallel do private(i,j,l) + do l=1,lm + do j=jsta_2l,jend_2u + do i=1,im t(i,j,l)=spval q(i,j,l)=spval uh(i,j,l)=spval @@ -810,14 +824,14 @@ SUBROUTINE ALLOCATE_ALL() cldfra(i,j)=spval cprate(i,j)=spval cnvcfr(i,j)=spval - ivgtyp(i,j)=spval - isltyp(i,j)=spval + ivgtyp(i,j)=0 + isltyp(i,j)=0 hbotd(i,j)=spval htopd(i,j)=spval hbots(i,j)=spval htops(i,j)=spval cldefi(i,j)=spval - islope(i,j)=spval + islope(i,j)=0 si(i,j)=spval lspa(i,j)=spval rswinc(i,j)=spval diff --git a/sorc/ncep_post.fd/BNDLYR.f b/sorc/ncep_post.fd/BNDLYR.f index f78c2f08b..0ec21e25d 100644 --- a/sorc/ncep_post.fd/BNDLYR.f +++ b/sorc/ncep_post.fd/BNDLYR.f @@ -31,7 +31,7 @@ !! 00-01-04 JIM TUCCILLO - MPI VERSION !! 02-01-15 MIKE BALDWIN - WRF VERSION !! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! 21-04-01 JESSE MENG - COMPUTATION ON DEFINED POINTS ONLY +!! 21-08-20 Wen Meng - Retrict computation fro undefined points. !! !! USAGE: CALL BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, !! WBND,OMGBND,PWTBND,QCNVBND) @@ -208,6 +208,18 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & END IF QSBND(I,J,LBND) = QSBND(I,J,LBND) + QSAT*DP ENDIF + ELSE !undeined grids + PBND(I,J,LBND)=SPVAL + TBND(I,J,LBND)=SPVAL + UBND(I,J,LBND)=SPVAL + VBND(I,J,LBND)=SPVAL + WBND(I,J,LBND)=SPVAL + OMGBND(I,J,LBND)=SPVAL + QCNVBND(I,J,LBND)=SPVAL + PWTBND(I,J,LBND)=SPVAL + QBND(I,J,LBND)=SPVAL + QSBND(I,J,LBND)=SPVAL + RHBND(I,J,LBND)=SPVAL ENDIF ENDDO ENDDO @@ -273,9 +285,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & DO LBND=1,NBND DO J=JSTA,JEND DO I=1,IM - IF(PSUM(I,J,LBND)/=0.)THEN - IF(T(I,J,LBND)1.0) THEN RHBND(I,J,LBND) = 1.0 @@ -387,10 +375,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & RHBND(I,J,LBND) = 0.01 QBND(I,J,LBND) = RHBND(I,J,LBND)*QSBND(I,J,LBND) ENDIF - ELSE - RHBND(I,J,LBND) = spval - QBND(I,J,LBND) = spval - ENDIF + ENDIF ENDDO ENDDO ! diff --git a/sorc/ncep_post.fd/CALDWP.f b/sorc/ncep_post.fd/CALDWP.f index 9d7d62068..aa2405e05 100644 --- a/sorc/ncep_post.fd/CALDWP.f +++ b/sorc/ncep_post.fd/CALDWP.f @@ -12,6 +12,7 @@ !! AMBIENT TEMPERATURE. !! 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D !! 00-01-04 JIM TUCCILLO - MPI VERSION +!! 21-07-23 Wen Meng - Retrict computation from undefined points !! !! USAGE: CALL CALDWP(P1D,Q1D,TDWP,T1D) !! INPUT ARGUMENT LIST: @@ -42,7 +43,7 @@ SUBROUTINE CALDWP(P1D,Q1D,TDWP,T1D) ! ! SET PARAMETERS. use params_mod, only: eps, oneps, d001, h1m12 - use ctlblk_mod, only: jsta, jend, im + use ctlblk_mod, only: jsta, jend, im, spval !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -62,8 +63,12 @@ SUBROUTINE CALDWP(P1D,Q1D,TDWP,T1D) !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM + IF(P1D(I,j) 0.) THEN esx = 6.1078/POL**8 ES = esx E = PMID(I,J,LL)/100.*Q(I,J,LL)/(0.62197+Q(I,J,LL)*0.37803) RHB(I,J,LL) = 100.*AMIN1(1.,E/ES) + ENDIF enddo diff --git a/sorc/ncep_post.fd/CALWXT.f b/sorc/ncep_post.fd/CALWXT.f index 2afc51bca..a50a6065c 100644 --- a/sorc/ncep_post.fd/CALWXT.f +++ b/sorc/ncep_post.fd/CALWXT.f @@ -9,6 +9,7 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! 02-01-15 MIKE BALDWIN - WRF VERSION ! 05-07-07 BINBIN ZHOU - ADD PREC FOR RSM ! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT +! 21-07-26 Wen Meng - Restrict computation from undefined grids ! ! ! ROUTINE TO COMPUTE PRECIPITATION TYPE USING A DECISION TREE @@ -130,12 +131,14 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! AND 500 MB ! IF (PKL<50000.0.OR.PKL>PSFCK-7000.0) CYCLE + IF(QKLTWARM(I,J)) TWARM(I,J)=TKL IF (TDPREPSFCK-7000.0) cycle + IF(QKLTWARM(I,J)) TWARM(I,J)=TKL IF (TDPRE 1.) exit enddo if (opdepth > 1.) num_thick=num_thick+1 ! for debug diff --git a/sorc/ncep_post.fd/CLMAX.f b/sorc/ncep_post.fd/CLMAX.f index 1a87ba4b2..dcc72512b 100644 --- a/sorc/ncep_post.fd/CLMAX.f +++ b/sorc/ncep_post.fd/CLMAX.f @@ -7,6 +7,7 @@ SUBROUTINE CLMAX(EL0,SQZ,SQ,RQ2L,RQ2H) ! EXTRACTED FROM EXISTING CODE BY L. LOBOCKI, JULY 28, 1992 ! 01-10-22 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT ! 02-06-19 MIKE BALDWIN - WRF VERSION +! 21-07-26 W Meng - Restrict computation from undefined grids ! ! INPUT: ! ------ @@ -41,7 +42,7 @@ SUBROUTINE CLMAX(EL0,SQZ,SQ,RQ2L,RQ2H) ! use vrbls2d, only: use masks, only: lmh, sm use params_mod, only: EPSQ2 - use ctlblk_mod, only: jsta, jend, lm, im + use ctlblk_mod, only: jsta, jend, lm, im, spval !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -121,9 +122,13 @@ SUBROUTINE CLMAX(EL0,SQZ,SQ,RQ2L,RQ2H) !$omp parallel do DO J=JSTA,JEND DO I=1,IM + IF(HGT(I,J)24135.1)print*,'bad visbility' & + IF(vis(i,j)/=spval.and.abs(vis(i,j))>24135.1)print*,'bad visbility' & , i,j,Q1D(i,j),QW1(i,j),QR1(i,j),QI1(i,j) & , QS1(i,j),T1D(i,j),P1D(i,j),vis(i,j) @@ -3706,10 +3706,10 @@ SUBROUTINE MDLFLD ! EGRID1 is transport wind speed ! prevent floating overflow if either component is undefined - IF (EGRID1(I,J)==SPVAL .or. EGRID2(I,J)==SPVAL) THEN - EGRID3(I,J) = SPVAL - ELSe + IF (EGRID1(I,J)0.5.AND. !HC 1 HTM2D(I+IHW(J),J-1,L)*HTM2D(I+IHE(J),J-1,L) @@ -272,6 +278,8 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) IF(HTM2D(I,J) > 0.5 .AND. tem < 0.5) then TTV(I,J) = TPRES(I,J,L)*(1.+0.608*QPRES(I,J,L)) ENDIF + else + TTV(I,J) = spval ! if(i==ii.and.j==jj)print*,'Debug:L,TTV B SMOO= ',l,TTV(I,J) end if ! spval ENDDO diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index 3af081583..749e5cdd0 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -38,6 +38,7 @@ !! - 20-11-10 J MENG - USE UPP_PHYSICS MODULE !! - 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) !! - 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY +!! - 21-07-26 W Meng - Restrict computation from undefined grids !! !! USAGE: CALL SURFCE !! INPUT ARGUMENT LIST: @@ -188,7 +189,7 @@ SUBROUTINE SURFCE ! SURFACE (SKIN) POTENTIAL TEMPERATURE AND TEMPERATURE. THSFC(I,J) = THS(I,J) TSFC(I,J) = spval - IF(THSFC(i,j) /= spval) & + IF(THSFC(i,j) /= spval .and. PSFC(I,J) /= spval) & TSFC(I,J) = THSFC(I,J)*(PSFC(I,J)/P1000)**CAPA ! ! SURFACE SPECIFIC HUMIDITY, RELATIVE HUMIDITY, AND DEWPOINT. @@ -198,8 +199,8 @@ SUBROUTINE SURFCE QSFC(I,J) = spval RHSFC(I,J) = spval EVP(I,J) = spval - IF(TSFC(I,J) /= spval) then - QSFC(I,J) = MAX(H1M12,QS(I,J)) + IF(TSFC(I,J) < spval) then + IF(QS(I,J)0)THEN @@ -302,7 +303,7 @@ SUBROUTINE SURFCE ! ! SURFACE SPECIFIC HUMIDITY. IF (IGET(028)>0) THEN - CALL BOUND(GRID1,H1M12,H99999) + !CALL BOUND(GRID1,H1M12,H99999) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(028)) @@ -1302,7 +1303,7 @@ SUBROUTINE SURFCE datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) endif ENDIF -! +! GRID1 ! SHELTER MIXING RATIO. IF (IGET(414)>0) THEN DO J=JSTA,JEND @@ -1336,8 +1337,12 @@ SUBROUTINE SURFCE ! EGRID1(I,J) = DWPT + IF(QSHLTR(I,J)0) THEN DO J=JSTA,JEND DO I=1,IM - GRID1(I,J)=EGRID1(I,J) - IF(MODELNAME == 'FV3R') THEN - GRID1(I,J)=SFCUXI(I,J) - END IF + IF(MODELNAME == 'FV3R') THEN + GRID1(I,J)=SFCUXI(I,J) + ELSE + GRID1(I,J)=EGRID1(I,J) + ENDIF ENDDO ENDDO ! @@ -5220,10 +5241,11 @@ SUBROUTINE SURFCE IF (IGET(134)>0) THEN DO J=JSTA,JEND DO I=1,IM - GRID1(I,J)=EGRID2(I,J) - IF(MODELNAME == 'FV3R') THEN - GRID1(I,J)=SFCVXI(I,J) - END IF + IF(MODELNAME == 'FV3R') THEN + GRID1(I,J)=SFCVXI(I,J) + ELSE + GRID1(I,J)=EGRID2(I,J) + END IF ENDDO ENDDO if(grib=='grib2') then diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index b9ca9995d..3f44dd0c0 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -574,6 +574,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & ! 10-09-09 G MANIKIN - CHANGED COMPUTATION TO USE VIRTUAL TEMP ! - ADDED EQ LVL HGHT AND THUNDER PARAMETER ! 15-xx-xx S MOORTHI - optimization and threading +! 21-07-28 W Meng - Restrict computation from undefined grids. ! ! USAGE: CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, ! CINS,PPARC) @@ -616,7 +617,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & use lookup_mod, only: thl, rdth, jtb, qs0, sqs, rdq, itb, ptbl, & plq, ttbl, pl, rdp, the0, sthe, rdthe, ttblq, & itbq, jtbq, rdpq, the0q, stheq, rdtheq - use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, im, me + use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, im, me, spval ! !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -723,6 +724,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & DO I=1,IM PSFCK = PMID(I,J,NINT(LMH(I,J))) PKL = PMID(I,J,KB) + IF(PSFCKPSFCK)) cycle IF (ITYPE ==2 .OR. & @@ -802,6 +804,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & PARCEL(I,J) = KB ENDIF END IF + ENDIF !end PSFCK0)THEN + IF(PMID(I,J,L)==spval)CYCLE PRESK=PMID(I,J,L) ! IF(PRESK Date: Tue, 31 Aug 2021 13:17:16 -0400 Subject: [PATCH 002/107] Emc post ssmis f17 (#367) * add and update parm files for SSMIS-F17 channels for HAFS satellite products * source code changes for add SSMIS-F17 channels for HAFS satelllite products * add ssmis-f17 varibles to params_grib2_tbl_new and params_grib2_tbl_new.text, remove the params_grib2_tbl_new_ssmisf17 * add change logs in RQSTFLD.f and CALRAD_WCLOUD_newcrtm.f Co-authored-by: Lin.L.Zhu@noaa.gov --- parm/params_grib2_tbl_new | 4 + parm/params_grib2_tbl_new.text | 5 + parm/post_avblflds.xml | 32 + parm/postcntrl_hafs.xml | 181 ++-- parm/postxconfig-NT-hafs.txt | 992 ++++++++-------------- sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f | 74 +- sorc/ncep_post.fd/RQSTFLD.F | 14 +- 7 files changed, 505 insertions(+), 797 deletions(-) diff --git a/parm/params_grib2_tbl_new b/parm/params_grib2_tbl_new index 07db84e1e..2f4c34577 100755 --- a/parm/params_grib2_tbl_new +++ b/parm/params_grib2_tbl_new @@ -947,6 +947,10 @@ 0 3 22 0 SSGSO 10 3 195 1 SSHG 3 5 2 0 SSKSSTMP + 3 192 62 0 SSMS1715 + 3 192 63 0 SSMS1716 + 3 192 64 0 SSMS1717 + 3 192 65 0 SSMS1718 0 1 86 0 SSNOWW 1 0 6 0 SSRUN 1 0 193 1 SSRUN diff --git a/parm/params_grib2_tbl_new.text b/parm/params_grib2_tbl_new.text index bb1ac971b..1ab29afb1 100755 --- a/parm/params_grib2_tbl_new.text +++ b/parm/params_grib2_tbl_new.text @@ -1289,6 +1289,11 @@ 3 192 59 0 SBTAGR14 3 192 60 0 SBTAGR15 3 192 61 0 SBTAGR16 +! Added more parameters in 07/29/2021 + 3 192 62 0 SSMS1715 + 3 192 63 0 SSMS1716 + 3 192 64 0 SSMS1717 + 3 192 65 0 SSMS1718 ! ! GRIB2 - TABLE 4.2-4-0 PARAMETERS FOR DISCIPLINE 4 CATEGORY 0 ! diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index bcca03e07..b9c1f051d 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -7154,6 +7154,38 @@ 4.0 + + 825 + SSMS1715_ON_TOP_OF_ATMOS + SSMS1715 + top_of_atmos + 4.0 + + + + 826 + SSMS1716_ON_TOP_OF_ATMOS + SSMS1716 + top_of_atmos + 4.0 + + + + 827 + SSMS1717_ON_TOP_OF_ATMOS + SSMS1717 + top_of_atmos + 4.0 + + + + 828 + SSMS1718_ON_TOP_OF_ATMOS + SSMS1718 + top_of_atmos + 4.0 + + 890 GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_HYBRID1 diff --git a/parm/postcntrl_hafs.xml b/parm/postcntrl_hafs.xml index 0e409df2b..5aa781905 100755 --- a/parm/postcntrl_hafs.xml +++ b/parm/postcntrl_hafs.xml @@ -92,16 +92,8 @@ - TKE_ON_ISOBARIC_SFC - TKE - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 3.0 - - - - CLMR_ON_ISOBARIC_SFC - CLMR + CLWMR_ON_ISOBARIC_SFC + CLWMR 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. 6.0 @@ -198,19 +190,6 @@ 4.0 - - GUST_ON_SURFACE - GUST - 4.0 - - - - POT_ON_SPEC_HGT_LVL_ABOVE_GRND_10m - POT - 10. - 4.0 - - PRES_ON_SURFACE PRES @@ -223,31 +202,12 @@ 6.0 - - POT_ON_SURFACE - POT - 4.0 - - - - SPFH_ON_SURFACE - SPFH - 3.0 - - TMP_ON_SURFACE TMP 4.0 - - SNOWC_ON_SURFACE - SNOWC - NCEP - 3.0 - - SFEXC_ON_SURFACE SFEXC @@ -310,13 +270,6 @@ 4.0 - - AVE_CDLYR_ON_ENTIRE_ATMOS - CDLYR - NCEP - 3.0 - - INST_USWRF_ON_SURFACE USWRF @@ -380,12 +333,6 @@ 4.0 - - BRTMP_ON_TOP_OF_ATMOS - BRTMP - 4.0 - - INST_DSWRF_ON_SURFACE DSWRF @@ -413,13 +360,6 @@ 4.0 - - CD_ON_SURFACE - CD - NCEP - 6.0 - - UFLX_ON_SURFACE UFLX @@ -432,24 +372,6 @@ 4.0 - - AVE_SHTFL_ON_SURFACE - SHTFL - 4.0 - - - - AVE_LHTFL_ON_SURFACE - LHTFL - 4.0 - - - - ACM_EVP_ON_SURFACE - EVP - 4.0 - - INST_SHTFL_ON_SURFACE SHTFL @@ -506,12 +428,6 @@ 4.0 - - POT_ON_TROPOPAUSE - POT - 4.0 - - UGRD_ON_TROPOPAUSE UGRD @@ -587,39 +503,80 @@ - TCLSW_ON_ENTIRE_ATMOS - TCLSW - NCEP - 5.0 + MAX_PRATE_ON_SURFACE + PRATE + 6.0 - TCOLM_ON_ENTIRE_ATMOS - TCOLM - NCEP - 5.0 + MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + WIND + -4.0 - - LWHR_ON_ENTIRE_ATMOS - LWHR - NCEP - 5.0 - - - AVE_LRGHR_ON_ENTIRE_ATMOS - LRGHR - NCEP - 5.0 - - - - MAX_PRATE_ON_SURFACE - PRATE - 6.0 - + + HURSAT + 32769 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + nws_ncep + hafs + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + SBTAGR8_ON_TOP_OF_ATMOS + 4.0 + + + + SBTAGR9_ON_TOP_OF_ATMOS + 4.0 + + + + SBTAGR10_ON_TOP_OF_ATMOS + 4.0 + + + + SBTAGR13_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1715_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1716_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1717_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1718_ON_TOP_OF_ATMOS + 4.0 + + + + + diff --git a/parm/postxconfig-NT-hafs.txt b/parm/postxconfig-NT-hafs.txt index d60fabd68..6ecea4ebd 100644 --- a/parm/postxconfig-NT-hafs.txt +++ b/parm/postxconfig-NT-hafs.txt @@ -1,5 +1,6 @@ -1 -89 +2 +8 +72 HURPRS 32769 ncep_nco @@ -349,80 +350,6 @@ isobaric_sfc ? ? ? -22 -TKE_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -TKE -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -3.0 -0 -0 -0 -? -? -? -153 -CLMR_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -CLMR -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? 166 ICMR_ON_ISOBARIC_SFC ? @@ -904,12 +831,12 @@ spec_hgt_lvl_above_grnd ? ? ? -245 -GUST_ON_SURFACE +24 +PRES_ON_SURFACE ? 1 tmpl4_0 -GUST +PRES ? ? surface @@ -934,26 +861,26 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -158 -POT_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +25 +HGT_ON_SURFACE ? 1 tmpl4_0 -POT +HGT ? ? -spec_hgt_lvl_above_grnd +surface +0 +? 0 ? -1 -10. ? 0 ? @@ -971,19 +898,19 @@ spec_hgt_lvl_above_grnd 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -24 -PRES_ON_SURFACE +26 +TMP_ON_SURFACE ? 1 tmpl4_0 -PRES +TMP ? ? surface @@ -1008,20 +935,20 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -25 -HGT_ON_SURFACE +169 +SFEXC_ON_SURFACE ? 1 tmpl4_0 -HGT -? +SFEXC +NCEP ? surface 0 @@ -1045,19 +972,19 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -27 -POT_ON_SURFACE +32 +CAPE_ON_SURFACE ? 1 tmpl4_0 -POT +CAPE ? ? surface @@ -1089,12 +1016,12 @@ surface ? ? ? -28 -SPFH_ON_SURFACE +107 +CIN_ON_SURFACE ? 1 tmpl4_0 -SPFH +CIN ? ? surface @@ -1119,22 +1046,22 @@ surface 0 0.0 1 -3.0 +4.0 0 0 0 ? ? ? -26 -TMP_ON_SURFACE +80 +PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR ? 1 tmpl4_0 -TMP +PWAT ? ? -surface +entire_atmos_single_lyr 0 ? 0 @@ -1156,27 +1083,27 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -120 -SNOWC_ON_SURFACE +162 +HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND ? 1 tmpl4_0 -SNOWC -NCEP +HLCY ? -surface -0 ? +spec_hgt_lvl_above_grnd 0 ? -? +1 +3000. +spec_hgt_lvl_above_grnd 0 ? 0 @@ -1193,21 +1120,21 @@ surface 0 0.0 1 -3.0 +4.0 0 0 0 ? ? ? -169 -SFEXC_ON_SURFACE +87 +ACM_APCP_ON_SURFACE ? 1 -tmpl4_0 -SFEXC -NCEP +tmpl4_8 +APCP ? +ACM surface 0 ? @@ -1230,21 +1157,21 @@ surface 0 0.0 1 -4.0 +-4.0 0 0 0 ? ? ? -32 -CAPE_ON_SURFACE +34 +ACM_NCPCP_ON_SURFACE ? 1 -tmpl4_0 -CAPE -? +tmpl4_8 +NCPCP ? +ACM surface 0 ? @@ -1267,19 +1194,19 @@ surface 0 0.0 1 -4.0 +-4.0 0 0 0 ? ? ? -107 -CIN_ON_SURFACE +167 +INST_PRATE_ON_SURFACE ? 1 tmpl4_0 -CIN +PRATE ? ? surface @@ -1304,19 +1231,19 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -80 -PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR +161 +INST_TCDC_ON_ENTIRE_ATMOS ? 1 tmpl4_0 -PWAT +TCDC ? ? entire_atmos_single_lyr @@ -1341,27 +1268,27 @@ entire_atmos_single_lyr 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -162 -HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND +144 +AVE_TCDC_ON_ENTIRE_ATMOS ? 1 -tmpl4_0 -HLCY +tmpl4_8 +TCDC ? +AVE +entire_atmos_single_lyr +0 ? -spec_hgt_lvl_above_grnd 0 ? -1 -3000. -spec_hgt_lvl_above_grnd +? 0 ? 0 @@ -1385,14 +1312,14 @@ spec_hgt_lvl_above_grnd ? ? ? -87 -ACM_APCP_ON_SURFACE +141 +INST_USWRF_ON_SURFACE ? 1 -tmpl4_8 -APCP +tmpl4_0 +USWRF +NCEP ? -ACM surface 0 ? @@ -1415,21 +1342,21 @@ surface 0 0.0 1 --4.0 +6.0 0 0 0 ? ? ? -34 -ACM_NCPCP_ON_SURFACE +142 +INST_ULWRF_ON_SURFACE ? 1 -tmpl4_8 -NCPCP +tmpl4_0 +ULWRF +NCEP ? -ACM surface 0 ? @@ -1452,21 +1379,21 @@ surface 0 0.0 1 --4.0 +6.0 0 0 0 ? ? ? -167 -INST_PRATE_ON_SURFACE +126 +AVE_DSWRF_ON_SURFACE ? 1 -tmpl4_0 -PRATE -? -? +tmpl4_8 +DSWRF +NCEP +AVE surface 0 ? @@ -1496,15 +1423,15 @@ surface ? ? ? -161 -INST_TCDC_ON_ENTIRE_ATMOS +127 +AVE_DLWRF_ON_SURFACE ? 1 -tmpl4_0 -TCDC -? -? -entire_atmos_single_lyr +tmpl4_8 +DLWRF +NCEP +AVE +surface 0 ? 0 @@ -1533,15 +1460,15 @@ entire_atmos_single_lyr ? ? ? -144 -AVE_TCDC_ON_ENTIRE_ATMOS +128 +AVE_USWRF_ON_SURFACE ? 1 tmpl4_8 -TCDC -? +USWRF +NCEP AVE -entire_atmos_single_lyr +surface 0 ? 0 @@ -1563,22 +1490,22 @@ entire_atmos_single_lyr 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -139 -AVE_CDLYR_ON_ENTIRE_ATMOS +129 +AVE_ULWRF_ON_SURFACE ? 1 tmpl4_8 -CDLYR +ULWRF NCEP AVE -entire_atmos_single_lyr +surface 0 ? 0 @@ -1600,22 +1527,22 @@ entire_atmos_single_lyr 0 0.0 1 -3.0 +4.0 0 0 0 ? ? ? -141 -INST_USWRF_ON_SURFACE +130 +AVE_USWRF_ON_TOP_OF_ATMOS ? 1 -tmpl4_0 +tmpl4_8 USWRF NCEP -? -surface +AVE +top_of_atmos 0 ? 0 @@ -1644,15 +1571,15 @@ surface ? ? ? -142 -INST_ULWRF_ON_SURFACE +131 +AVE_ULWRF_ON_TOP_OF_ATMOS ? 1 -tmpl4_0 +tmpl4_8 ULWRF NCEP -? -surface +AVE +top_of_atmos 0 ? 0 @@ -1674,22 +1601,22 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -126 -AVE_DSWRF_ON_SURFACE +274 +INST_ULWRF_ON_TOP_OF_ATMOS ? 1 -tmpl4_8 -DSWRF +tmpl4_0 +ULWRF NCEP -AVE -surface +? +top_of_atmos 0 ? 0 @@ -1711,21 +1638,21 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -127 -AVE_DLWRF_ON_SURFACE +156 +INST_DSWRF_ON_SURFACE ? 1 -tmpl4_8 -DLWRF +tmpl4_0 +DSWRF NCEP -AVE +? surface 0 ? @@ -1748,21 +1675,21 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -128 -AVE_USWRF_ON_SURFACE +157 +INST_DLWRF_ON_SURFACE ? 1 -tmpl4_8 -USWRF +tmpl4_0 +DLWRF NCEP -AVE +? surface 0 ? @@ -1785,21 +1712,21 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -129 -AVE_ULWRF_ON_SURFACE +44 +SFCR_ON_SURFACE ? 1 -tmpl4_8 -ULWRF -NCEP -AVE +tmpl4_0 +SFCR +? +? surface 0 ? @@ -1822,22 +1749,22 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -130 -AVE_USWRF_ON_TOP_OF_ATMOS +45 +FRICV_ON_SURFACE ? 1 -tmpl4_8 -USWRF +tmpl4_0 +FRICV NCEP -AVE -top_of_atmos +? +surface 0 ? 0 @@ -1859,22 +1786,22 @@ top_of_atmos 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -131 -AVE_ULWRF_ON_TOP_OF_ATMOS +133 +UFLX_ON_SURFACE ? 1 -tmpl4_8 -ULWRF -NCEP -AVE -top_of_atmos +tmpl4_0 +UFLX +? +? +surface 0 ? 0 @@ -1903,15 +1830,15 @@ top_of_atmos ? ? ? -274 -INST_ULWRF_ON_TOP_OF_ATMOS +134 +VFLX_ON_SURFACE ? 1 tmpl4_0 -ULWRF -NCEP +VFLX ? -top_of_atmos +? +surface 0 ? 0 @@ -1940,15 +1867,15 @@ top_of_atmos ? ? ? -275 -BRTMP_ON_TOP_OF_ATMOS +154 +INST_SHTFL_ON_SURFACE ? 1 tmpl4_0 -BRTMP +SHTFL ? ? -top_of_atmos +surface 0 ? 0 @@ -1977,13 +1904,13 @@ top_of_atmos ? ? ? -156 -INST_DSWRF_ON_SURFACE +155 +INST_LHTFL_ON_SURFACE ? 1 tmpl4_0 -DSWRF -NCEP +LHTFL +? ? surface 0 @@ -2007,19 +1934,19 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -157 -INST_DLWRF_ON_SURFACE +48 +NLAT_ON_SURFACE ? 1 tmpl4_0 -DLWRF +NLAT NCEP ? surface @@ -2051,13 +1978,13 @@ surface ? ? ? -44 -SFCR_ON_SURFACE +49 +ELON_ON_SURFACE ? 1 tmpl4_0 -SFCR -? +ELON +NCEP ? surface 0 @@ -2081,20 +2008,20 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -45 -FRICV_ON_SURFACE +50 +LAND_ON_SURFACE ? 1 tmpl4_0 -FRICV -NCEP +LAND +? ? surface 0 @@ -2118,20 +2045,20 @@ surface 0 0.0 1 -4.0 +1.0 0 0 0 ? ? ? -132 -CD_ON_SURFACE +151 +WTMP_ON_SURFACE ? 1 tmpl4_0 -CD -NCEP +WTMP +? ? surface 0 @@ -2155,22 +2082,22 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 ? ? ? -133 -UFLX_ON_SURFACE +54 +PRES_ON_TROPOPAUSE ? 1 tmpl4_0 -UFLX +PRES ? ? -surface +tropopause 0 ? 0 @@ -2192,22 +2119,22 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -134 -VFLX_ON_SURFACE +177 +HGT_ON_TROPOPAUSE ? 1 tmpl4_0 -VFLX +HGT ? ? -surface +tropopause 0 ? 0 @@ -2229,22 +2156,22 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -43 -AVE_SHTFL_ON_SURFACE +55 +TMP_ON_TROPOPAUSE ? 1 -tmpl4_8 -SHTFL +tmpl4_0 +TMP ? -AVE -surface +? +tropopause 0 ? 0 @@ -2273,15 +2200,15 @@ surface ? ? ? -42 -AVE_LHTFL_ON_SURFACE +56 +UGRD_ON_TROPOPAUSE ? 1 -tmpl4_8 -LHTFL +tmpl4_0 +UGRD ? -AVE -surface +? +tropopause 0 ? 0 @@ -2310,15 +2237,15 @@ surface ? ? ? -47 -ACM_EVP_ON_SURFACE +57 +VGRD_ON_TROPOPAUSE ? 1 -tmpl4_8 -EVP +tmpl4_0 +VGRD ? -ACM -surface +? +tropopause 0 ? 0 @@ -2347,15 +2274,15 @@ surface ? ? ? -154 -INST_SHTFL_ON_SURFACE +58 +VWSH_ON_TROPOPAUSE ? 1 tmpl4_0 -SHTFL -? +VWSH +NCEP ? -surface +tropopause 0 ? 0 @@ -2377,22 +2304,22 @@ surface 0 0.0 1 -4.0 +3.0 0 0 0 ? ? ? -155 -INST_LHTFL_ON_SURFACE +168 +TMP_ON_CLOUD_TOP ? 1 tmpl4_0 -LHTFL +TMP ? ? -surface +cloud_top 0 ? 0 @@ -2421,15 +2348,15 @@ surface ? ? ? -48 -NLAT_ON_SURFACE +252 +REFC_ON_ENTIRE_ATMOS ? 1 tmpl4_0 -NLAT +REFC NCEP ? -surface +entire_atmos_single_lyr 0 ? 0 @@ -2458,12 +2385,12 @@ surface ? ? ? -49 -ELON_ON_SURFACE +221 +HPBL_ON_SURFACE ? 1 tmpl4_0 -ELON +HPBL NCEP ? surface @@ -2488,22 +2415,22 @@ surface 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -50 -LAND_ON_SURFACE +200 +TCOLW_ON_ENTIRE_ATMOS ? 1 tmpl4_0 -LAND +TCOLW +NCEP ? -? -surface +entire_atmos_single_lyr 0 ? 0 @@ -2525,22 +2452,22 @@ surface 0 0.0 1 -1.0 +5.0 0 0 0 ? ? ? -151 -WTMP_ON_SURFACE +201 +TCOLI_ON_ENTIRE_ATMOS ? 1 tmpl4_0 -WTMP -? +TCOLI +NCEP ? -surface +entire_atmos_single_lyr 0 ? 0 @@ -2562,22 +2489,22 @@ surface 0 0.0 1 -4.0 +5.0 0 0 0 ? ? ? -54 -PRES_ON_TROPOPAUSE +202 +TCOLR_ON_ENTIRE_ATMOS ? 1 tmpl4_0 -PRES -? +TCOLR +NCEP ? -tropopause +entire_atmos_single_lyr 0 ? 0 @@ -2599,22 +2526,22 @@ tropopause 0 0.0 1 -6.0 +5.0 0 0 0 ? ? ? -177 -HGT_ON_TROPOPAUSE +203 +TCOLS_ON_ENTIRE_ATMOS ? 1 tmpl4_0 -HGT -? +TCOLS +NCEP ? -tropopause +entire_atmos_single_lyr 0 ? 0 @@ -2636,22 +2563,22 @@ tropopause 0 0.0 1 -6.0 +5.0 0 0 0 ? ? ? -55 -TMP_ON_TROPOPAUSE +204 +TCOLC_ON_ENTIRE_ATMOS ? 1 tmpl4_0 -TMP -? +TCOLC +NCEP ? -tropopause +entire_atmos_single_lyr 0 ? 0 @@ -2673,22 +2600,22 @@ tropopause 0 0.0 1 -4.0 +5.0 0 0 0 ? ? ? -108 -POT_ON_TROPOPAUSE -? +508 +MAX_PRATE_ON_SURFACE +Maximum Precipitation Rate on surface 1 -tmpl4_0 -POT -? +tmpl4_8 +PRATE ? -tropopause +MAX +surface 0 ? 0 @@ -2710,26 +2637,26 @@ tropopause 0 0.0 1 -4.0 +6.0 0 0 0 ? ? ? -56 -UGRD_ON_TROPOPAUSE -? +422 +MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +maximum wind speed on 10 meter Above Ground 1 -tmpl4_0 -UGRD -? -? -tropopause -0 +tmpl4_8 +WIND ? +MAX +spec_hgt_lvl_above_grnd 0 ? +1 +10. ? 0 ? @@ -2747,22 +2674,38 @@ tropopause 0 0.0 1 -4.0 +-4.0 0 0 0 ? ? ? -57 -VGRD_ON_TROPOPAUSE +HURSAT +32769 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +nws_ncep +hafs +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +959 +SBTAGR8_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -VGRD +SBTAGR8 ? ? -tropopause +top_of_atmos 0 ? 0 @@ -2791,52 +2734,15 @@ tropopause ? ? ? -58 -VWSH_ON_TROPOPAUSE -? -1 -tmpl4_0 -VWSH -NCEP -? -tropopause -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -3.0 -0 -0 -0 -? -? -? -168 -TMP_ON_CLOUD_TOP +960 +SBTAGR9_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -TMP +SBTAGR9 ? ? -cloud_top +top_of_atmos 0 ? 0 @@ -2865,15 +2771,15 @@ cloud_top ? ? ? -252 -REFC_ON_ENTIRE_ATMOS +961 +SBTAGR10_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -REFC -NCEP +SBTAGR10 ? -entire_atmos_single_lyr +? +top_of_atmos 0 ? 0 @@ -2902,52 +2808,15 @@ entire_atmos_single_lyr ? ? ? -221 -HPBL_ON_SURFACE +964 +SBTAGR13_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -HPBL -NCEP +SBTAGR13 ? -surface -0 -? -0 -? -? -0 ? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -200 -TCOLW_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLW -NCEP -? -entire_atmos_single_lyr +top_of_atmos 0 ? 0 @@ -2969,59 +2838,22 @@ entire_atmos_single_lyr 0 0.0 1 -5.0 +4.0 0 0 0 ? ? ? -201 -TCOLI_ON_ENTIRE_ATMOS +825 +SSMS1715_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -TCOLI -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? +SSMS1715 ? ? -202 -TCOLR_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLR -NCEP -? -entire_atmos_single_lyr +top_of_atmos 0 ? 0 @@ -3043,59 +2875,22 @@ entire_atmos_single_lyr 0 0.0 1 -5.0 +4.0 0 0 0 ? ? ? -203 -TCOLS_ON_ENTIRE_ATMOS +826 +SSMS1716_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -TCOLS -NCEP -? -entire_atmos_single_lyr -0 -? -0 +SSMS1716 ? ? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -204 -TCOLC_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLC -NCEP -? -entire_atmos_single_lyr +top_of_atmos 0 ? 0 @@ -3117,59 +2912,22 @@ entire_atmos_single_lyr 0 0.0 1 -5.0 +4.0 0 0 0 ? ? ? -285 -TCLSW_ON_ENTIRE_ATMOS +827 +SSMS1717_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -TCLSW -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 +SSMS1717 ? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 ? -? -? -286 -TCOLM_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLM -NCEP -? -entire_atmos_single_lyr +top_of_atmos 0 ? 0 @@ -3191,96 +2949,22 @@ entire_atmos_single_lyr 0 0.0 1 -5.0 +4.0 0 0 0 ? ? ? -291 -LWHR_ON_ENTIRE_ATMOS +828 +SSMS1718_ON_TOP_OF_ATMOS ? 1 tmpl4_0 -LWHR -NCEP +SSMS1718 ? -entire_atmos_single_lyr -0 -? -0 -? -? -0 ? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -292 -AVE_LRGHR_ON_ENTIRE_ATMOS -? -1 -tmpl4_8 -LRGHR -NCEP -AVE -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -508 -MAX_PRATE_ON_SURFACE -Maximum Precipitation Rate on surface -1 -tmpl4_8 -PRATE -? -MAX -surface +top_of_atmos 0 ? 0 @@ -3302,7 +2986,7 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 diff --git a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f index 3e5d763f7..3ad6ccce2 100644 --- a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f +++ b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f @@ -12,6 +12,7 @@ !! - 20-04-09 Tracy Hertneky - Added Himawari-8 AHI CH7-CH16 !! - 21-01-10 Web Meng - Added checking points for skiping grids with filling value spval !! - 21-03-11 Bo Cui - improve local arrays memory +!! - 21-08-31 Lin Zhu - added ssmis-f17 channels 15-18 grib2 output !! !! OUTPUT FILES: !! NONE @@ -205,6 +206,7 @@ SUBROUTINE CALRAD_WCLOUD logical post_abig16, post_abig17, post_abigr ! if true, user requested at least one abi channel logical fix_abig16, fix_abig17 ! if true, abi_g16, abi_g17 fix files are available logical post_ahi8 ! if true, user requested at least on ahi channel (himawari8) + logical post_ssmis17 ! if true, user requested at least on ssmis_f17 channel ! logical,dimension(nobs):: luse logical, parameter :: debugprint = .false. type(crtm_atmosphere_type),dimension(1):: atmosphere @@ -286,7 +288,10 @@ SUBROUTINE CALRAD_WCLOUD do n = 969, 969+9 ! 969 set in RQSTFLD.f if (iget(n) > 0) post_ahi8=.true. enddo - + post_ssmis17=.false. + do n = 825, 825+3 ! 825 set in RQSTFLD.f + if (iget(n) > 0) post_ssmis17=.true. + enddo ! DO NOT FORGET TO ADD YOUR NEW IGET HERE (IF YOU'VE ADDED ONE) ! START SUBROUTINE CALRAD. @@ -327,7 +332,7 @@ SUBROUTINE CALRAD_WCLOUD .or. iget(874) > 0 .or. iget(875) > 0 .or. iget(876) > 0 & .or. iget(877) > 0 .or. iget(878) > 0 .or. iget(879) > 0 & .or. iget(880) > 0 .or. iget(881) > 0 .or. iget(882) > 0 & - .or. post_ahi8 & + .or. post_ahi8 .or. post_ssmis17 & .or. post_abig16 .or. post_abig17 .or. post_abigr ) then ! specify numbers of cloud species @@ -448,6 +453,21 @@ SUBROUTINE CALRAD_WCLOUD enddo endif endif + + ! SSMIS F17 (37H, 37V, 91H, 91V) + if(post_ssmis17)then + nchanl=14 + do n = 825, 825+3 ! 825 set in RQSTFLD.f + if (iget(n) > 0) then + nchanl = nchanl+1 + endif + enddo + if (nchanl > 14 .and. nchanl < 19) then + do n = 825, 825+3 ! 825 set in RQSTFLD.f + if (iget(n) == 0) channelinfo(11)%Process_Channel(n-825+15)=.False. ! turn off channel processing + enddo + endif + endif ! SSMI, F13-F15 (19H,19V,??H,37H,37V,85H,85V) if(iget(800)>0)then @@ -463,9 +483,9 @@ SUBROUTINE CALRAD_WCLOUD if(iget(818)>0)then call select_channels_L(channelinfo(10),24,(/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 /),lvls(1:24,iget(818)),iget(818)) endif - if(iget(825)>0)then - call select_channels_L(channelinfo(11),24,(/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 /),lvls(1:24,iget(825)),iget(825)) - endif +! if(iget(825)>0)then +! call select_channels_L(channelinfo(11),24,(/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 /),lvls(1:24,iget(825)),iget(825)) +! endif if(iget(832)>0)then call select_channels_L(channelinfo(12),24,(/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 /),lvls(1:24,iget(832)),iget(832)) endif @@ -520,7 +540,7 @@ SUBROUTINE CALRAD_WCLOUD (isis=='ssmi_f14' .and. iget(806) > 0 ) .OR. & (isis=='ssmi_f15' .and. iget(812) > 0 ) .OR. & (isis=='ssmis_f16' .and. iget(818) > 0) .OR. & - (isis=='ssmis_f17' .and. iget(825) > 0) .OR. & + (isis=='ssmis_f17' .and. post_ssmis17) .OR. & (isis=='ssmis_f18' .and. iget(832) > 0) .OR. & (isis=='ssmis_f19' .and. iget(839) > 0) .OR. & (isis=='ssmis_f20' .and. iget(846) > 0) .OR. & @@ -1227,7 +1247,7 @@ SUBROUTINE CALRAD_WCLOUD (isis=='ssmi_f14' .and. iget(806) > 0 ) .OR. & (isis=='ssmi_f15' .and. iget(812) > 0 ) .OR. & (isis=='ssmis_f16' .and. iget(818) > 0) .OR. & - (isis=='ssmis_f17' .and. iget(825) > 0) .OR. & + (isis=='ssmis_f17' .and. post_ssmis17) .OR. & (isis=='ssmis_f18' .and. iget(832) > 0) .OR. & (isis=='ssmis_f19' .and. iget(839) > 0) .OR. & (isis=='ssmis_f20' .and. iget(846) > 0) .OR. & @@ -1786,28 +1806,24 @@ SUBROUTINE CALRAD_WCLOUD endif enddo end if ! end of outputting ssmis f16 - if (isis=='ssmis_f17')then ! writing ssmis to grib (183,19,37 &85GHz) - nc=0 - do ixchan=1,24 - ichan=ixchan - igot=iget(825) - if(igot>0) then - if(lvls(ixchan,igot)==1)then - nc=nc+1 - do j=jsta,jend - do i=1,im - grid1(i,j)=tb(i,j,nc) - enddo - enddo - if (grib=="grib2") then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) - endif - endif - endif - enddo - end if ! end of outputting ssmis f17 + if(isis=='ssmis_f17') then ! writing ssmis f17 to grib (37, 91GHz) + do ixchan=1,4 + ichan=14+ixchan + igot=iget(824+ixchan) + if(igot>0)then + do j=jsta,jend + do i=1,im + grid1(i,j)=tb(i,j,ichan) + enddo + enddo + if(grib=="grib2" )then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(igot) + datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + endif + endif + enddo + endif ! end of outputting ssmis f17 if (isis=='ssmis_f18')then ! writing ssmis to grib (183,19,37 &85GHz) nc=0 do ixchan=1,24 diff --git a/sorc/ncep_post.fd/RQSTFLD.F b/sorc/ncep_post.fd/RQSTFLD.F index d1af714d5..f5b82ad04 100644 --- a/sorc/ncep_post.fd/RQSTFLD.F +++ b/sorc/ncep_post.fd/RQSTFLD.F @@ -20,6 +20,7 @@ module RQSTFLD_mod ! 2019-05-08 Wen Meng added continuous accumulated precipitations(417, 418, ! 419). ! 2019-09-03 Jesse Meng added cape related variables for hrrr (950-957) +! 2021-08-31 Lin Zhu added ssmis-f17 channels 15-18 grib2 output !-------------------------------------------------------------------- implicit none @@ -2364,9 +2365,18 @@ module RQSTFLD_mod & /1,'F16 SSMIS NON-NADIR ',118,109, & & 'SSMIS TB top_of_atmos '/ !table 133 -! SSMIS_F17 (L(1)-L(7) -> ID8: 201-207 -> 183H, 19H, 19V, 37H, 37V, 85H, 85V) +! SSMIS_F17 (SSMIS_F17 (CH15:37H, CH16:37V, CH17:91H, CH18:91V)) DATA IFILV(825),AVBL(825),IQ(825),IS(825),AVBLGRB2(825) & - & /1,'F17 SSMIS NON-NADIR ',118,109, & + & /1,'F17 SSMIS CH15 NON-NADIR ',118,109, & + & 'SSMIS TB top_of_atmos '/ !table 133 + DATA IFILV(826),AVBL(826),IQ(826),IS(826),AVBLGRB2(826) & + & /1,'F17 SSMIS CH16 NON-NADIR ',118,109, & + & 'SSMIS TB top_of_atmos '/ !table 133 + DATA IFILV(827),AVBL(827),IQ(827),IS(827),AVBLGRB2(827) & + & /1,'F17 SSMIS CH17 NON-NADIR ',118,109, & + & 'SSMIS TB top_of_atmos '/ !table 133 + DATA IFILV(828),AVBL(828),IQ(828),IS(828),AVBLGRB2(828) & + & /1,'F17 SSMIS CH18 NON-NADIR ',118,109, & & 'SSMIS TB top_of_atmos '/ !table 133 ! SSMIS_F18 (L(1)-L(7) -> ID8: 208-214 -> 183H, 19H, 19V, 37H, 37V, 85H, 85V) From 34bd5e579a3257c7ced94ea4085fa3b86bd1bab2 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 1 Sep 2021 12:58:13 -0400 Subject: [PATCH 003/107] Increase pd from 25 to 50 mb to avoid finding shallow high level PV layer in high latitudes (#371) from Huiya. --- sorc/ncep_post.fd/GFSPOST.F | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/sorc/ncep_post.fd/GFSPOST.F b/sorc/ncep_post.fd/GFSPOST.F index 42202ed89..9921a3228 100644 --- a/sorc/ncep_post.fd/GFSPOST.F +++ b/sorc/ncep_post.fd/GFSPOST.F @@ -176,6 +176,9 @@ subroutine p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,& ! ! Program history log: ! 1999-10-18 Mark Iredell +! 2021-08-31 Hui-ya Chuang Increase depth criteria for identifying PV layer +! from 25 to 50 to avoid finding shallow high level +! PV layer in high latitudes ! ! Usage: call p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,& ! lpv,upv,vpv,hpv,tpv,ppv,spv) @@ -214,7 +217,10 @@ subroutine p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,& real,intent(in):: pv(kpv),pvpt(kpv),pvpb(kpv) logical*1,intent(out),dimension(kpv):: lpv real,intent(out),dimension(kpv):: upv,vpv,hpv,tpv,ppv,spv - real,parameter:: pd=2500. +! real,parameter:: pd=2500. +! Increase depth criteria for identifying PV layer from 25 to 50 +! to avoid finding shallow high level PV layer in high latitudes + real,parameter:: pd=5000. real w,spdu,spdd integer k,l1,l2,lu,ld,l ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - From 9e2e758450f8765b2b80c67406ecefe419afad91 Mon Sep 17 00:00:00 2001 From: EdwardColon-NOAA Date: Thu, 2 Sep 2021 12:47:27 -0400 Subject: [PATCH 004/107] Correction to the effective layer top and bottom calculation. (#358) * Update params_grib2_tbl_new * Update post_avblflds.xml * This commit includes changes to the computation of the effective layer top and bottom. * This commit includes changes to the computation of the effective layer top and bottom. * Update ALLOCATE_ALL.f i loop indices corrected. * Update MISCLN.f * Update MISCLN.f Removed EL_SCHEME flag and the EL_SCHEME 2 as it was intended as a method of validating the output of EL_SCHEME effective layer top and bottom calculations. The HWT/SFE confirmed that the EL_SCHEME 1 computations were viable making EL_SCHEME 2 superfluous. The debugprint flag was also set to false as it currently not needed in the execution of the MISCLN subprogram, however, it may be switch on at any point it becomes necessary to trace a problem. * Update UPP_PHYSICS.f Removed the definition of CALCAPE1D which was invoked in MISCLN.f as the CAPE/CIN computational routine used in EL_SCHEME 2. It is now a defunct option. * Update MISCLN.f * Update MISCLN.f * Added conditional block that only invokes the effective layer top and bottom correction for RTMA. * Addressed remaining bug linked to the use of the FV3R first guess. * minor code changes made to ALLOCATE_ALL.f, MISCNL.f and UPP_PHYSICS.f to address segmentation fault occurring during the rtma regression tests * Clean up before merging. --- parm/post_avblflds.xml | 2 - sorc/ncep_post.fd/ALLOCATE_ALL.f | 2 + sorc/ncep_post.fd/DEALLOCATE.f | 1 + sorc/ncep_post.fd/INITPOST.F | 4 +- sorc/ncep_post.fd/MISCLN.f | 340 ++++++++++++++++++++++++------- sorc/ncep_post.fd/TTBLEX.f | 5 +- sorc/ncep_post.fd/UPP_PHYSICS.f | 31 +-- sorc/ncep_post.fd/VRBLS2D_mod.f | 5 +- 8 files changed, 302 insertions(+), 88 deletions(-) diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index b9c1f051d..e3b8cb98e 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -7740,7 +7740,6 @@ level_free_convection 6.0 - 994 OZCON_ON_HYBRID_LVL @@ -7756,6 +7755,5 @@ hybrid_lvl 7.0 - diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 593851af4..14ef0c17f 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -683,6 +683,7 @@ SUBROUTINE ALLOCATE_ALL() allocate(z500(im,jsta_2l:jend_2u)) allocate(z700(im,jsta_2l:jend_2u)) allocate(teql(im,jsta_2l:jend_2u)) + allocate(ieql(im,jsta_2l:jend_2u)) allocate(cfracl(im,jsta_2l:jend_2u)) allocate(cfracm(im,jsta_2l:jend_2u)) allocate(cfrach(im,jsta_2l:jend_2u)) @@ -708,6 +709,7 @@ SUBROUTINE ALLOCATE_ALL() t700(i,j)=spval z700(i,j)=spval teql(i,j)=spval + ieql(i,j)=0 cfracl(i,j)=spval cfracm(i,j)=spval cfrach(i,j)=spval diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index fd3eef1be..aba65050a 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -237,6 +237,7 @@ SUBROUTINE DE_ALLOCATE deallocate(z500) deallocate(z700) deallocate(teql) + deallocate(ieql) deallocate(cfracl) deallocate(cfracm) deallocate(cfrach) diff --git a/sorc/ncep_post.fd/INITPOST.F b/sorc/ncep_post.fd/INITPOST.F index 8a8991bc8..87cd31af5 100644 --- a/sorc/ncep_post.fd/INITPOST.F +++ b/sorc/ncep_post.fd/INITPOST.F @@ -1781,7 +1781,7 @@ SUBROUTINE INITPOST IM,1,JM,1,IM,JS,JE,1) do j = jsta_2l, jend_2u do i = 1, im - IF(SUBMODELNAME == 'RTMA')THEN !use 1st level of unstaggered U for U10 + IF(SUBMODELNAME == 'RTMA' .and. MODELNAME == 'RAPR')THEN !use 1st level of unstaggered U for U10 U10 ( i, j ) = uh ( i, j, lm ) ELSE U10 ( i, j ) = dummy( i, j ) @@ -1793,7 +1793,7 @@ SUBROUTINE INITPOST IM,1,JM,1,IM,JS,JE,1) do j = jsta_2l, jend_2u do i = 1, im - IF( SUBMODELNAME == 'RTMA')THEN!use 1st level of unstaggered V for V10 + IF( SUBMODELNAME == 'RTMA' .and. MODELNAME == 'RAPR')THEN!use 1st level of unstaggered V for V10 V10 ( i, j ) = vh ( i, j, lm ) ELSE V10 ( i, j ) = dummy( i, j ) diff --git a/sorc/ncep_post.fd/MISCLN.f b/sorc/ncep_post.fd/MISCLN.f index 3538cd00e..c333ad586 100644 --- a/sorc/ncep_post.fd/MISCLN.f +++ b/sorc/ncep_post.fd/MISCLN.f @@ -45,6 +45,9 @@ !! 20-11-10 J Meng - USE UPP_PHYSICS MODULE !! 21-03-25 E Colon - 3D-RTMA-specific SPC fields added as output !! 21-04-01 J Meng - computation on defined points only +!! 21-09-01 E Colon - Correction to the effective layer top and +!! bottoma calculation which is only employed +!! for RTMA usage. !! !! USAGE: CALL MISCLN !! INPUT ARGUMENT LIST: @@ -86,7 +89,7 @@ SUBROUTINE MISCLN use vrbls3d, only: pmid, uh, vh, t, zmid, zint, pint, alpint, q, omga use vrbls3d, only: catedr,mwt,gtg use vrbls2d, only: pblh, cprate, fis, T500, T700, Z500, Z700,& - teql + teql,ieql use masks, only: lmh use params_mod, only: d00, d50, h99999, h100, h1, h1m12, pq0, a2, a3, a4, & rhmin, rgamog, tfrz, small, g @@ -114,6 +117,7 @@ SUBROUTINE MISCLN real,PARAMETER :: D2000=2000 real,PARAMETER :: HCONST=42000000. real,PARAMETER :: K2C=273.16 + REAL,PARAMETER :: DM9999=-9999.0 ! ! DECLARE VARIABLES. @@ -129,7 +133,8 @@ SUBROUTINE MISCLN RH1D, EGRID1, EGRID2, EGRID3, EGRID4, & EGRID5, EGRID6, EGRID7, EGRID8, & MLCAPE,MLCIN,MLLCL,MUCAPE,MUCIN,MUMIXR, & - FREEZELVL,MUQ1D,SLCL + FREEZELVL,MUQ1D,SLCL,THE,MAXTHE + integer,dimension(im,jsta:jend) :: MAXTHEPOS real, dimension(:,:,:),allocatable :: OMGBND, PWTBND, QCNVBND, & PBND, TBND, QBND, & UBND, VBND, RHBND, & @@ -155,7 +160,7 @@ SUBROUTINE MISCLN ESRH ! integer I,J,jj,L,ITYPE,ISVALUE,LBND,ILVL,IFD,ITYPEFDLVL(NFD), & - iget1, iget2, iget3, LLMH + iget1, iget2, iget3, LLMH,imax,jmax,lmax real DPBND,PKL1,PKU1,FAC1,FAC2,PL,TL,QL,QSAT,RHL,TVRL,TVRBLO, & ES1,ES2,QS1,QS2,RH1,RH2,ZSF,DEPTH(2),work1,work2,work3, & SCINtmp,MUCAPEtmp,MUCINtmp,MLLCLtmp,ESHRtmp,MLCAPEtmp,STP,& @@ -169,11 +174,33 @@ SUBROUTINE MISCLN integer ISTART,ISTOP,JSTART,JSTOP,MIDCAL real dummy(IM,jsta:jend) integer idummy(IM,jsta:jend) +! NEW VARIABLES USED FOR EFFECTIVE LAYER + INTEGER,dimension(:,:),allocatable :: EL_BASE, EL_TOPS + LOGICAL,dimension(:,:),allocatable :: FOUND_BASE, FOUND_TOPS + INTEGER,dimension(:,:),allocatable :: L_THETAE_MAX + INTEGER,dimension(:,:),allocatable :: CAPE9, CINS9 + CHARACTER(LEN=5) :: IM_CH, JSTA_CH, JEND_CH, ME_CH + CHARACTER(LEN=60) :: EFFL_FNAME + CHARACTER(LEN=60) :: EFFL_FNAME2 + INTEGER :: IREC, IUNIT + INTEGER :: IREC2, IUNIT2 + LOGICAL :: debugprint + INTEGER :: LLL + INTEGER :: LLCL_PAR, LEQL_PAR + REAL :: LMASK, PSFC, CAPE_PAR, CINS_PAR, LPAR0 + REAL, DIMENSION(4) :: PARCEL0 + REAL, DIMENSION(:), ALLOCATABLE :: TPAR_B, TPAR_T + REAL, DIMENSION(:), ALLOCATABLE :: TPAR_TMP + REAL, DIMENSION(:), ALLOCATABLE :: P_AMB, T_AMB, Q_AMB, ZINT_AMB + REAL, DIMENSION(:,:,:), ALLOCATABLE :: TPAR_BASE, TPAR_TOPS ! !**************************************************************************** ! START MISCLN HERE. ! + debugprint = .FALSE. + + allocate(USHR1(IM,jsta_2l:jend_2u),VSHR1(IM,jsta_2l:jend_2u), & USHR6(IM,jsta_2l:jend_2u),VSHR6(IM,jsta_2l:jend_2u)) allocate(UST(IM,jsta_2l:jend_2u),VST(IM,jsta_2l:jend_2u), & @@ -1401,7 +1428,9 @@ SUBROUTINE MISCLN DO J=JSTA,JEND DO I=1,IM GRID1(I,J)=Z1D(I,J) - IF (SUBMODELNAME == 'RTMA') FREEZELVL(I,J)=GRID1(I,J) + IF (SUBMODELNAME == 'RTMA') THEN + FREEZELVL(I,J)=GRID1(I,J) + ENDIF ENDDO ENDDO CALL BOUND (GRID1,D00,H99999) @@ -1490,7 +1519,7 @@ SUBROUTINE MISCLN END IF ! HIGHEST FREEZING LEVEL RELATIVE HUMIDITY - IF (IGET(350)>0)THEN + IF (IGET(350)>0)THEN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -1563,7 +1592,7 @@ SUBROUTINE MISCLN END IF ! HIGHEST -10C ISOTHERM RELATIVE HUMIDITY - IF (IGET(777)>0)THEN + IF (IGET(777)>0)THEN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -2115,7 +2144,6 @@ SUBROUTINE MISCLN !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM - IF (EGRID1(I,J) > EGRID2(I,J)) THEN EGRID2(I,J) = EGRID1(I,J) LB2(I,J) = LVLBND(I,J,LBND) @@ -2237,7 +2265,7 @@ SUBROUTINE MISCLN endif ENDIF IF (IGET(110)>0) THEN - GRID1=spval + GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM @@ -2793,8 +2821,8 @@ SUBROUTINE MISCLN ! ! SIGMA 0.85000-1.00000 MOISTURE CONVERGENCE. IF (IGET(103)>0) THEN + GRID1=spval ! CONVERT TO DIVERGENCE FOR GRIB - GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM @@ -2911,7 +2939,7 @@ SUBROUTINE MISCLN / LOG(PMID(I,J,LM)/PMID(I,J,LM-1)) IF (MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R') THEN - EGRID1(I,J) = LOG(PMID(I,J,LM)/EGRID2(I,J)) & + EGRID1(I,J) = LOG(PMID(I,J,LM)/EGRID2(I,J)) & / max(1.e-6,LOG(PMID(I,J,LM)/PMID(I,J,LM-1))) EGRID1(I,J) =max(-10.0,min(EGRID1(I,J), 10.0)) IF ( ABS(PMID(I,J,LM)-PMID(I,J,LM-1)) < 0.5 ) THEN @@ -2987,7 +3015,7 @@ SUBROUTINE MISCLN QS2 = CON_EPS*ES2/(PMID(I,J,LM-1)+CON_EPSM1*ES2) RH2 = Q(I,J,LM-1)/QS2 GRID1(I,J) = (RH1+(RH2-RH1)*EGRID1(I,J))*100. - ENDIF + ENDIF ENDDO ENDDO CALL BOUND(GRID1,D00,H100) @@ -3059,7 +3087,7 @@ SUBROUTINE MISCLN DO J=JSTA,JEND DO I=1,IM IF(OMGA(I,J,LM)0) THEN + IF (IGET(582)>0) THEN ! dong add missing value for cape GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM - IF(T1D(I,J) < spval) THEN - GRID1(I,J) = EGRID1(I,J) - IF (SUBMODELNAME == 'RTMA') MLCAPE(I,J)=GRID1(I,J) - ENDIF + IF(T1D(I,J) < spval) THEN + GRID1(I,J) = EGRID1(I,J) + IF (SUBMODELNAME == 'RTMA')MLCAPE(I,J)=GRID1(I,J) + ENDIF ENDDO ENDDO CALL BOUND(GRID1,D00,H99999) @@ -3162,10 +3186,10 @@ SUBROUTINE MISCLN !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM - IF(T1D(I,J) < spval) THEN - GRID1(I,J) = - GRID1(I,J) - IF (SUBMODELNAME == 'RTMA') MLCIN(I,J) = GRID1(I,J) - ENDIF + IF(T1D(I,J) < spval) THEN + GRID1(I,J) = - GRID1(I,J) + IF (SUBMODELNAME == 'RTMA') MLCIN(I,J)=GRID1(I,J) + ENDIF ENDDO ENDDO ! @@ -3259,10 +3283,10 @@ SUBROUTINE MISCLN !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM - IF(T1D(I,J) < spval) THEN - GRID1(I,J) = EGRID1(I,J) - IF (SUBMODELNAME == 'RTMA') MUCAPE(I,J) = GRID1(I,J) - ENDIF + IF(T1D(I,J) < spval) THEN + GRID1(I,J) = EGRID1(I,J) + IF (SUBMODELNAME == 'RTMA') MUCAPE(I,J)=GRID1(I,J) + ENDIF ENDDO ENDDO CALL BOUND(GRID1,D00,H99999) @@ -3298,7 +3322,7 @@ SUBROUTINE MISCLN DO I=1,IM IF(T1D(I,J) < spval) THEN GRID1(I,J) = - GRID1(I,J) - IF (SUBMODELNAME == 'RTMA') THEN + IF (SUBMODELNAME == 'RTMA')THEN MUCAPE(I,J) = GRID1(I,J) MUQ1D(I,J) = Q1D(I,J) ENDIF @@ -3342,7 +3366,6 @@ SUBROUTINE MISCLN enddo endif ENDIF - !Equilibrium Temperature IF (IGET(982)>0) THEN DO J=JSTA,JEND @@ -3394,7 +3417,7 @@ SUBROUTINE MISCLN ! GENERAL THUNDER PARAMETER ??? 458 ??? IF (IGET(444)>0) THEN - GRID1 = spval + GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM @@ -3422,11 +3445,122 @@ SUBROUTINE MISCLN endif ENDIF ENDIF + + + IF (SUBMODELNAME == 'RTMA')THEN + +! +! --- Effective (inflow) Layer (EL) +! + + ALLOCATE(EL_BASE(IM,JSTA_2L:JEND_2U)) + ALLOCATE(EL_TOPS(IM,JSTA_2L:JEND_2U)) + ALLOCATE(FOUND_BASE(IM,JSTA_2L:JEND_2U)) + ALLOCATE(FOUND_TOPS(IM,JSTA_2L:JEND_2U)) +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + EL_BASE(I,J) = LM + EL_TOPS(I,J) = LM + FOUND_BASE(I,J) = .FALSE. + FOUND_TOPS(I,J) = .FALSE. + ENDDO + ENDDO + +! + + ITYPE = 2 + DPBND = 0. + + DO L = LM, 1, -1 + +! SET AIR PARCELS FOR LEVEL L +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + EGRID1(I,J) = -H99999 + EGRID2(I,J) = -H99999 + IDUMMY(I,J) = 0 + P1D(I,J) = PMID(I,J,L) + T1D(I,J) = T(I,J,L) + Q1D(I,J) = Q(I,J,L) + ENDDO + ENDDO + +!--- CALCULATE CAPE/CIN FOR ALL AIR PARCELS on LEVEL L + IF (debugprint) WRITE(1000+ME,'(A,I3)') & + ' CALCULATING CAPE/CINS ON LEVEL:',L + CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,IDUMMY,EGRID1, & + EGRID2,EGRID3,EGRID4,EGRID5) + +!--- CHECK CAPE/CIN OF EACH AIR PARCELS WITH EL CRITERIA +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + IF ( .NOT. FOUND_BASE(I,J) ) THEN + IF ( EGRID1(I,J) >= 100. .AND. EGRID2(I,J) >= -250. ) THEN + EL_BASE(I,J) = L + FOUND_BASE(I,J) = .TRUE. + ELSE + EL_BASE(I,J) = LM + FOUND_BASE(I,J) = .FALSE. + END IF + ELSE + IF ( .NOT. FOUND_TOPS(I,J) ) THEN + IF ( EGRID1(I,J) < 100. .OR. EGRID2(I,J) < -250. ) THEN + EL_TOPS(I,J) = L + 1 + FOUND_TOPS(I,J) = .TRUE. + ELSE + EL_TOPS(I,J) = LM + FOUND_TOPS(I,J) = .FALSE. + END IF + END IF + END IF + ENDDO + ENDDO + + END DO ! L + + + IF (ALLOCATED(FOUND_BASE)) DEALLOCATE(FOUND_BASE) + IF (ALLOCATED(FOUND_TOPS)) DEALLOCATE(FOUND_TOPS) + + IF (debugprint) THEN + WRITE(IM_CH,'(I5.5)') IM + WRITE(JSTA_CH,'(I5.5)') JSTA + WRITE(JEND_CH,'(I5.5)') JEND + EFFL_FNAME="EFFL_NEW_"//IM_CH//"_"//JSTA_CH//"_"//JEND_CH & + //".dat" + EFFL_FNAME2="EFFL_NEW_LVLS_"//IM_CH//"_"//JSTA_CH//"_"//JEND_CH & + //".dat" + IUNIT=10000+JSTA + IUNIT2=20000+JSTA + IREC=0 + IREC2=0 + OPEN(IUNIT,FILE=TRIM(ADJUSTL(EFFL_FNAME)),FORM='FORMATTED') + + + DO J=JSTA,JEND + DO I=1,IM + IREC = IREC + 1 + IREC2 = IREC2 + 1 + WRITE(IUNIT,'(1x,I6,2x,I6,2(2x,I6,2x,F12.3))') I, J, & + EL_BASE(I,J),PMID(I,J,EL_BASE(I,J)), & + EL_TOPS(I,J),PMID(I,J,EL_TOPS(I,J)) + END DO + ENDDO + CLOSE(IUNIT) + ENDIF + + IF(ALLOCATED(TPAR_BASE)) DEALLOCATE(TPAR_BASE) + IF(ALLOCATED(TPAR_TOPS)) DEALLOCATE(TPAR_TOPS) + + ENDIF ! ! EXPAND HRRR CAPE/CIN RELATED VARIABLES ! ! CAPE AND CINS 0-3KM, FOLLOW ML PROCEDURE WITH HEIGHT 0-3KM - +! FIELD1=.FALSE. FIELD2=.FALSE. ! @@ -3444,8 +3578,12 @@ SUBROUTINE MISCLN FIELD2=.TRUE. ENDIF ! +! IF(FIELD1)ITYPE=2 +! IF(FIELD2)ITYPE=2 + IF(FIELD1.OR.FIELD2)THEN ITYPE = 2 + ! !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -3469,12 +3607,12 @@ SUBROUTINE MISCLN Q1D(I,J) = (QBND(I,J,1) + QBND(I,J,2) + QBND(I,J,3))/3 ENDDO ENDDO -! + DPBND = 0. CALL CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,LB2, & EGRID1,EGRID2,EGRID3,EGRID4,EGRID5, & EGRID6,EGRID7,EGRID8) -! + ! CAPE1, CINS2, LFC3, ESRHL4,ESRHH5, ! DCAPE6,DGLD7, ESP8) ! @@ -3538,7 +3676,7 @@ SUBROUTINE MISCLN ! LFC HEIGHT IF (IGET(952)>0) THEN - GRID1=spval + GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM @@ -3560,6 +3698,7 @@ SUBROUTINE MISCLN endif ENDIF !952 + ! EFFECTIVE STORM RELATIVE HELICITY AND STORM MOTION. allocate(UST(IM,jsta_2l:jend_2u),VST(IM,jsta_2l:jend_2u), & @@ -3578,13 +3717,47 @@ SUBROUTINE MISCLN IF (iget1 > 0 .OR. IGET(162) > 0 .OR. IGET(953) > 0) THEN DEPTH(1) = 3000.0 DEPTH(2) = 1000.0 + IF (SUBMODELNAME == 'RTMA') THEN +!--- IF USSING EL BASE & TOP COMPUTED BY NEW SCHEME FOR THE +!RELATED VARIABLES !$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=1,IM - LLOW(I,J) = INT(EGRID4(I,J)) - LUPP(I,J) = INT(EGRID5(I,J)) + DO J=JSTA,JEND + DO I=1,IM + LLOW(I,J) = EL_BASE(I,J) + LUPP(I,J) = EL_TOPS(I,J) + ENDDO ENDDO - ENDDO + ELSE +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + LLOW(I,J) = INT(EGRID4(I,J)) + LUPP(I,J) = INT(EGRID5(I,J)) + ENDDO + ENDDO + ENDIF +!--- OUTPUT EL BASE & TOP COMPUTED BY OLD SCHEME + IF (debugprint) THEN + WRITE(IM_CH,'(I5.5)') IM + WRITE(JSTA_CH,'(I5.5)') JSTA + WRITE(JEND_CH,'(I5.5)') JEND + EFFL_FNAME="EFFL_OLD_"//IM_CH//"_"//JSTA_CH//"_"//JEND_CH & + //".dat" + IUNIT=10000+JSTA + IREC=0 + OPEN(IUNIT,FILE=TRIM(ADJUSTL(EFFL_FNAME)),FORM='FORMATTED') + DO J=JSTA,JEND + DO I=1,IM + IREC = IREC + 1 +! WRITE(IUNIT,'(1x,I6,2x,I6,2x,I6,2x,I6)')I,J,LLOW(I,J),LUPP(I,J) + WRITE(IUNIT,'(1x,I6,2x,I6,2(2x,I6,2x,F12.3))') I, J, & + LLOW(I,J),PMID(I,J,LLOW(I,J)), & + LUPP(I,J),PMID(I,J,LUPP(I,J)) + END DO + ENDDO + CLOSE(IUNIT) + ENDIF + ! CALL CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) CALL CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) @@ -3613,6 +3786,7 @@ SUBROUTINE MISCLN ENDIF !953 + IF (SUBMODELNAME == 'RTMA') THEN !Start RTMA block !EL field allocation @@ -3622,6 +3796,40 @@ SUBROUTINE MISCLN allocate(EFFUST(IM,jsta_2l:jend_2u),EFFVST(IM,jsta_2l:jend_2u),& ESRH(IM,jsta_2l:jend_2u)) +! + DO J=JSTA,JEND + DO I=1,IM + MAXTHE(I,J)=-H99999 + THE(I,J)=-H99999 + MAXTHEPOS(I,J)=0 + MUQ1D(I,J) = 0. + ENDDO + ENDDO + DO L=LM,1,-1 + + DO J=JSTA,JEND + DO I=1,IM + EGRID1(I,J) = -H99999 + P1D(I,J)=PMID(I,J,L) + T1D(I,J)=T(I,J,L) + Q1D(I,J)=Q(I,J,L) + ENDDO + ENDDO + CALL CALTHTE(P1D,T1D,Q1D,EGRID1) + DO J=JSTA,JEND + DO I=1,IM + THE(I,J)=EGRID1(I,J) + IF(THE(I,J)>=MAXTHE(I,J))THEN + MAXTHE(I,J)=THE(I,J) + MAXTHEPOS(I,J)=L + MUQ1D(I,J) = Q(I,J,L) ! save the Q of air parcel with max theta-e (MU Parcel) + ENDIF + ENDDO + ENDDO + + ENDDO + +! !get surface height IF(gridtype == 'E')THEN JVN = 1 @@ -3724,15 +3932,14 @@ SUBROUTINE MISCLN GRID1=spval DO J=JSTA,JEND DO I=1,IM - IF(LLOW(I,J)0) THEN GRID1(I,J)=STP @@ -3934,7 +4141,7 @@ SUBROUTINE MISCLN !Fixed Layer Tornado Parameter IF (IGET(990)>0) THEN - DO J=JSTA,JEND + DO J=JSTA,JEND DO I=1,IM LLMH = NINT(LMH(I,J)) P1D(I,J) = PMID(I,J,LLMH) @@ -4077,6 +4284,7 @@ SUBROUTINE MISCLN CALL CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,LB2, & EGRID1,EGRID2,EGRID3,EGRID4,EGRID5, & EGRID6,EGRID7,EGRID8) + GRID1=spval DO J=JSTA,JEND DO I=1,IM @@ -4126,9 +4334,6 @@ SUBROUTINE MISCLN GRID1=spval DO J=JSTA,JEND DO I=1,IM - IF(T700(I,J) < spval .and. T500(I,J) < spval .and.& - Z700(I,J) < spval .and. Z500(I,J) < spval .and.& - MUCAPE(I,J) < spval .and. MUQ1D(I,J) < spval .and. FSHR(I,J) < spval) THEN LAPSE=-((T700(I,J)-T500(I,J))/((Z700(I,J)-Z500(I,J)))) SHIP=(MUCAPE(I,J)*D1000*MUQ1D(I,J)*LAPSE*(T500(I,J)-K2C)*FSHR(I,J))/HCONST IF (MUCAPE(I,J)<1300.)THEN @@ -4141,7 +4346,6 @@ SUBROUTINE MISCLN SHIP=SHIP*(FREEZELVL(I,J)/2400.) ENDIF GRID1(I,J)=SHIP - ENDIF ENDDO ENDDO if(grib=='grib2') then @@ -4168,7 +4372,7 @@ SUBROUTINE MISCLN !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM - IF(T1D(I,J) < spval ) GRID1(I,J) = CANGLE(I,J) + IF(T1D(I,J) < spval ) GRID1(I,J) = CANGLE(I,J) ! IF(EGRID1(I,J)<100. .OR. EGRID2(I,J)>-250.) THEN ! GRID1(I,J) = 0. ! ENDIF @@ -4240,21 +4444,21 @@ SUBROUTINE MISCLN ! Downdraft CAPE - ITYPE = 1 - ! DO J=JSTA,JEND - ! DO I=1,IM - ! LB2(I,J) = (LVLBND(I,J,1) + LVLBND(I,J,2) + & - ! LVLBND(I,J,3))/3 - ! P1D(I,J) = (PBND(I,J,1) + PBND(I,J,2) + PBND(I,J,3))/3 - ! T1D(I,J) = (TBND(I,J,1) + TBND(I,J,2) + TBND(I,J,3))/3 - ! Q1D(I,J) = (QBND(I,J,1) + QBND(I,J,2) + QBND(I,J,3))/3 - ! ENDDO - ! ENDDO - - DPBND = 400.E2 - ! CALL CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,LB2, & - ! EGRID1,EGRID2,EGRID3,EGRID4,EGRID5, & - ! EGRID6,EGRID7,EGRID8) +! ITYPE = 1 +! DO J=JSTA,JEND +! DO I=1,IM +! LB2(I,J) = (LVLBND(I,J,1) + LVLBND(I,J,2) + & +! LVLBND(I,J,3))/3 +! P1D(I,J) = (PBND(I,J,1) + PBND(I,J,2) + PBND(I,J,3))/3 +! T1D(I,J) = (TBND(I,J,1) + TBND(I,J,2) + TBND(I,J,3))/3 +! Q1D(I,J) = (QBND(I,J,1) + QBND(I,J,2) + QBND(I,J,3))/3 +! ENDDO +! ENDDO + +! DPBND = 400.E2 +! CALL CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,LB2, & +! EGRID1,EGRID2,EGRID3,EGRID4,EGRID5, & +! EGRID6,EGRID7,EGRID8) IF (IGET(954)>0) THEN GRID1 = spval diff --git a/sorc/ncep_post.fd/TTBLEX.f b/sorc/ncep_post.fd/TTBLEX.f index 09bd3423b..21748a6f4 100644 --- a/sorc/ncep_post.fd/TTBLEX.f +++ b/sorc/ncep_post.fd/TTBLEX.f @@ -112,5 +112,8 @@ SUBROUTINE TTBLEX(TREF,TTBL,ITB,JTB,KARR,PMIDL & ENDDO ! RETURN - END + END SUBROUTINE TTBLEX !&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! +!------------------------------------------------------------------------------------- +! diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index 3f44dd0c0..60a54dee5 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -51,7 +51,7 @@ module upp_physics ! SUBROUTINE CALRH(P1,T1,Q1,RH) - use ctlblk_mod, only: im, jsta, jend, MODELNAME + use ctlblk_mod, only: im, jsta, jend, MODELNAME implicit none REAL,dimension(IM,jsta:jend),intent(in) :: P1,T1 @@ -137,7 +137,7 @@ SUBROUTINE CALRH_NAM(P1,T1,Q1,RH) ! DO J=JSTA,JEND DO I=1,IM - IF (T1(I,J) < SPVAL) THEN + IF (T1(I,J) < spval) THEN IF (ABS(P1(I,J)) >= 1) THEN QC = PQ0/P1(I,J)*EXP(A2*(T1(I,J)-A3)/(T1(I,J)-A4)) ! @@ -156,7 +156,7 @@ SUBROUTINE CALRH_NAM(P1,T1,Q1,RH) ! ENDIF ELSE - RH(I,J) = SPVAL + RH(I,J) = spval ENDIF ENDDO ENDDO @@ -245,7 +245,7 @@ SUBROUTINE CALRH_GFS(P1,T1,Q1,RH) !$omp parallel do private(i,j,es,qc) DO J=JSTA,JEND DO I=1,IM - IF (T1(I,J) < SPVAL .AND. P1(I,J) < SPVAL.AND.Q1(I,J)/=SPVAL) THEN + IF (T1(I,J) < spval .AND. P1(I,J) < spval.AND.Q1(I,J)/=spval) THEN ! IF (ABS(P1(I,J)) > 1.0) THEN ! IF (P1(I,J) > 1.0) THEN IF (P1(I,J) >= 1.0) THEN @@ -269,7 +269,7 @@ SUBROUTINE CALRH_GFS(P1,T1,Q1,RH) ENDIF ELSE - RH(I,J) = SPVAL + RH(I,J) = spval ENDIF ENDDO ENDDO @@ -295,7 +295,7 @@ SUBROUTINE CALRH_GSD(P1,T1,Q1,RHB) DO J=JSTA,JEND DO I=1,IM - IF (T1(I,J) < SPVAL .AND. P1(I,J) < SPVAL .AND. Q1(I,J) < SPVAL) THEN + IF (T1(I,J) < spval .AND. P1(I,J) < spval .AND. Q1(I,J) < spval) THEN ! - compute relative humidity Tx=T1(I,J)-273.15 POL = 0.99999683 + TX*(-0.90826951E-02 + & @@ -309,7 +309,7 @@ SUBROUTINE CALRH_GSD(P1,T1,Q1,RHB) E = P1(I,J)/100.*Q1(I,J)/(0.62197+Q1(I,J)*0.37803) RHB(I,J) = MIN(1.,E/ES) ELSE - RHB(I,J) = SPVAL + RHB(I,J) = spval ENDIF ENDDO ENDDO @@ -344,8 +344,8 @@ SUBROUTINE CALRH_PW(RHPW) k=lm-l+1 DO J=JSTA,JEND DO I=1,IM - if(t(i,j,k) Date: Mon, 20 Sep 2021 08:29:23 -0400 Subject: [PATCH 005/107] Added Jet to the list of MPMD-capable machines. (#380) (#381) --- ush/fv3gfs_downstream_nems.sh | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ush/fv3gfs_downstream_nems.sh b/ush/fv3gfs_downstream_nems.sh index 2e5c16cb6..b2f625de3 100755 --- a/ush/fv3gfs_downstream_nems.sh +++ b/ush/fv3gfs_downstream_nems.sh @@ -99,7 +99,7 @@ fi #----------------------------------------------------- #----------------------------------------------------- -if [ $machine = WCOSS -o $machine = WCOSS_C -o $machine = WCOSS_DELL_P3 -o $machine = HERA -o $machine = ORION -o $machine = S4 ]; then +if [ $machine = WCOSS -o $machine = WCOSS_C -o $machine = WCOSS_DELL_P3 -o $machine = HERA -o $machine = ORION -o $machine = JET -o $machine = S4 ]; then #----------------------------------------------------- #----------------------------------------------------- export nset=1 @@ -173,7 +173,7 @@ date launcher=${APRUN_DWN:-"aprun -j 1 -n 24 -N 24 -d 1 cfp"} if [ $machine = WCOSS_C -o $machine = WCOSS_DELL_P3 ] ; then $launcher $MP_CMDFILE - elif [ $machine = HERA -o $machine = ORION -o $machine = S4 ] ; then + elif [ $machine = HERA -o $machine = ORION -o $machine = JET -o $machine = S4 ] ; then if [ -s $DATA/poescript_srun ]; then rm -f $DATA/poescript_srun; fi touch $DATA/poescript_srun nm=0 From 1aaec8d36d1f157333aac65263bef9135c258704 Mon Sep 17 00:00:00 2001 From: HelinWei-NOAA <48133472+HelinWei-NOAA@users.noreply.github.com> Date: Wed, 22 Sep 2021 15:48:40 -0400 Subject: [PATCH 006/107] adding extra surface fields to the model output (#378) * add some extra surface fields to the model output * correct the name of the variable * fix typo * correct the index in the surface.f * fix the time stamp * put most extra fields to the flux instead of the master file * update control file * clean the code --- parm/params_grib2_tbl_new | 7 + parm/params_grib2_tbl_new.text | 8 + parm/post_avblflds.xml | 74 ++++- parm/postcntrl_gfs.xml | 5 + parm/postcntrl_gfs_anl.xml | 5 + parm/postcntrl_gfs_f00.xml | 5 + parm/postcntrl_gfs_f00_two.xml | 10 + parm/postcntrl_gfs_flux.xml | 35 +++ parm/postcntrl_gfs_flux_f00.xml | 5 + parm/postcntrl_gfs_two.xml | 40 +++ parm/postxconfig-NT-GFS-ANL.txt | 39 ++- parm/postxconfig-NT-GFS-F00-TWO.txt | 78 ++++- parm/postxconfig-NT-GFS-F00.txt | 39 ++- parm/postxconfig-NT-GFS-FLUX-F00.txt | 39 ++- parm/postxconfig-NT-GFS-FLUX.txt | 261 +++++++++++++++- parm/postxconfig-NT-GFS-TWO.txt | 300 ++++++++++++++++++- parm/postxconfig-NT-GFS.txt | 39 ++- sorc/ncep_post.fd/ALLOCATE_ALL.f | 14 + sorc/ncep_post.fd/DEALLOCATE.f | 7 + sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f | 84 +++++- sorc/ncep_post.fd/RQSTFLD.F | 24 ++ sorc/ncep_post.fd/SURFCE.f | 216 ++++++++++++- sorc/ncep_post.fd/VRBLS2D_mod.f | 4 +- 23 files changed, 1322 insertions(+), 16 deletions(-) diff --git a/parm/params_grib2_tbl_new b/parm/params_grib2_tbl_new index 2f4c34577..65da702fb 100755 --- a/parm/params_grib2_tbl_new +++ b/parm/params_grib2_tbl_new @@ -294,6 +294,7 @@ 0 7 204 1 EFHL 0 3 222 1 EFSH 0 7 9 0 EHLX + 2 0 237 1 EIWATER 4 2 1 0 ELCDEN 4 0 1 0 ELECTMP 10 3 194 1 ELEV @@ -461,6 +462,8 @@ 10 0 43 0 KSSEDW 0 7 2 0 KX 0 7 198 1 LAI + 2 0 234 1 LAKEFRC + 2 0 233 1 LANDFRC 1 2 8 0 LANDIL 2 0 218 1 LANDN 2 0 8 0 LANDU @@ -642,6 +645,7 @@ 0 14 200 1 OZMAX1 0 14 201 1 OZMAX8 10 3 196 1 P2OMLT + 2 0 235 1 PAHFLX 3 3 2 0 PBINFRC 3 3 1 0 PBLIFRC 0 19 12 0 PBLREG @@ -658,6 +662,7 @@ 0 1 200 1 PEVPR 0 4 10 0 PHOTAR 3 0 8 0 PIXST + 2 0 238 1 PLANTTR 0 7 0 0 PLI 0 3 200 1 PLPL 4 2 0 0 PLSMDEN @@ -914,6 +919,7 @@ 2 0 3 0 SOILM 2 0 22 0 SOILM 2 3 15 0 SOILP + 2 0 239 1 SOILSE 2 3 18 0 SOILTMP 2 0 38 0 SOILVIC 2 0 192 1 SOILW @@ -1201,6 +1207,7 @@ 0 2 192 1 VWSH 10 4 17 0 WATDENA 10 4 16 0 WATERDEN + 2 0 236 1 WATERSA 10 4 20 0 WATPDENA 10 4 19 0 WATPDEN 10 4 18 0 WATPTEMP diff --git a/parm/params_grib2_tbl_new.text b/parm/params_grib2_tbl_new.text index 1ab29afb1..6fa402120 100755 --- a/parm/params_grib2_tbl_new.text +++ b/parm/params_grib2_tbl_new.text @@ -1033,6 +1033,14 @@ 2 0 230 1 TRANS 2 0 231 1 VEGMIN 2 0 232 1 VEGMAX +! Added more parameters in 7/14/2021 + 2 0 233 1 LANDFRC + 2 0 234 1 LAKEFRC + 2 0 235 1 PAHFLX + 2 0 236 1 WATERSA + 2 0 237 1 EIWATER + 2 0 238 1 PLANTTR + 2 0 239 1 SOILSE ! ! GRIB2 - TABLE 4.2-2-1 PARAMETERS FOR DISCIPLINE 2 CATEGORY 1 ! diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index e3b8cb98e..dd5126d18 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -7740,6 +7740,7 @@ level_free_convection 6.0 + 994 OZCON_ON_HYBRID_LVL @@ -7747,7 +7748,7 @@ hybrid_lvl 7.0 - + 995 PM25TOT_ON_HYBRID_LVL @@ -7755,5 +7756,76 @@ hybrid_lvl 7.0 + + + 996 + LAND_FRAC + LANDFRC + NCEP + surface + 3.0 + + + + 997 + INST_PREC_ADVEC_HEAT + PAHFLX + NCEP + surface + 3.0 + + + + 998 + WATER_AQUIFER + WATERSA + NCEP + surface + 3.0 + + + + 999 + ACM_EIWATER_ON_SURFACE + tmpl4_8 + EIWATER + NCEP + ACM + surface + 3.0 + + + + 1000 + ACM_PLANTTR_ON_SURFACE + tmpl4_8 + PLANTTR + NCEP + ACM + surface + 3.0 + + + + 1001 + ACM_SOILSE_ON_SURFACE + tmpl4_8 + SOILSE + NCEP + ACM + surface + 3.0 + + + + 1002 + AVE_PREC_ADVEC_HEAT + tmpl4_8 + PAHFLX + NCEP + AVE + surface + 3.0 + diff --git a/parm/postcntrl_gfs.xml b/parm/postcntrl_gfs.xml index 4fe5bb0f8..b7733a62d 100755 --- a/parm/postcntrl_gfs.xml +++ b/parm/postcntrl_gfs.xml @@ -1154,6 +1154,11 @@ 4.0 + + LAND_FRAC + 3.0 + + diff --git a/parm/postcntrl_gfs_anl.xml b/parm/postcntrl_gfs_anl.xml index 42d88f330..1306d2e9f 100755 --- a/parm/postcntrl_gfs_anl.xml +++ b/parm/postcntrl_gfs_anl.xml @@ -553,6 +553,11 @@ 5.0 + + LAND_FRAC + 3.0 + + diff --git a/parm/postcntrl_gfs_f00.xml b/parm/postcntrl_gfs_f00.xml index 6792f1a4e..69e151ea2 100755 --- a/parm/postcntrl_gfs_f00.xml +++ b/parm/postcntrl_gfs_f00.xml @@ -902,6 +902,11 @@ 4.0 + + LAND_FRAC + 3.0 + + diff --git a/parm/postcntrl_gfs_f00_two.xml b/parm/postcntrl_gfs_f00_two.xml index 13cefa2e8..1fdb74000 100755 --- a/parm/postcntrl_gfs_f00_two.xml +++ b/parm/postcntrl_gfs_f00_two.xml @@ -902,6 +902,11 @@ 4.0 + + LAND_FRAC + 3.0 + + @@ -1190,6 +1195,11 @@ 4.0 + + LAND_FRAC + 3.0 + + diff --git a/parm/postcntrl_gfs_flux.xml b/parm/postcntrl_gfs_flux.xml index c5c18210e..7bd9203e5 100755 --- a/parm/postcntrl_gfs_flux.xml +++ b/parm/postcntrl_gfs_flux.xml @@ -613,6 +613,41 @@ 4.0 + + LAND_FRAC + 3.0 + + + + INST_PREC_ADVEC_HEAT + 3.0 + + + + WATER_AQUIFER + 3.0 + + + + ACM_EIWATER_ON_SURFACE + 3.0 + + + + ACM_PLANTTR_ON_SURFACE + 3.0 + + + + ACM_SOILSE_ON_SURFACE + 3.0 + + + + AVE_PREC_ADVEC_HEAT + 3.0 + + diff --git a/parm/postcntrl_gfs_flux_f00.xml b/parm/postcntrl_gfs_flux_f00.xml index 26b5bdc2a..42195b196 100755 --- a/parm/postcntrl_gfs_flux_f00.xml +++ b/parm/postcntrl_gfs_flux_f00.xml @@ -286,6 +286,11 @@ 4.0 + + LAND_FRAC + 3.0 + + diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml index 803799027..2d37396dd 100755 --- a/parm/postcntrl_gfs_two.xml +++ b/parm/postcntrl_gfs_two.xml @@ -1154,6 +1154,11 @@ 4.0 + + LAND_FRAC + 3.0 + + @@ -1769,6 +1774,41 @@ 4.0 + + LAND_FRAC + 3.0 + + + + INST_PREC_ADVEC_HEAT + 3.0 + + + + WATER_AQUIFER + 3.0 + + + + ACM_EIWATER_ON_SURFACE + 3.0 + + + + ACM_PLANTTR_ON_SURFACE + 3.0 + + + + ACM_SOILSE_ON_SURFACE + 3.0 + + + + AVE_PREC_ADVEC_HEAT + 3.0 + + diff --git a/parm/postxconfig-NT-GFS-ANL.txt b/parm/postxconfig-NT-GFS-ANL.txt index bab9d8bc8..83c13293b 100644 --- a/parm/postxconfig-NT-GFS-ANL.txt +++ b/parm/postxconfig-NT-GFS-ANL.txt @@ -1,5 +1,5 @@ 1 -92 +93 GFSPRS 0 ncep_nco @@ -3420,3 +3420,40 @@ surface ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-GFS-F00-TWO.txt b/parm/postxconfig-NT-GFS-F00-TWO.txt index 52e08dde7..18ac45613 100644 --- a/parm/postxconfig-NT-GFS-F00-TWO.txt +++ b/parm/postxconfig-NT-GFS-F00-TWO.txt @@ -1,6 +1,6 @@ 2 -45 -149 +46 +150 GFSPRS 0 ncep_nco @@ -5530,6 +5530,43 @@ spec_pres_above_grnd ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? GFSFLX 0 ncep_nco @@ -7211,3 +7248,40 @@ depth_bel_land_sfc ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-GFS-F00.txt b/parm/postxconfig-NT-GFS-F00.txt index 68bfb92cc..9ff346568 100644 --- a/parm/postxconfig-NT-GFS-F00.txt +++ b/parm/postxconfig-NT-GFS-F00.txt @@ -1,5 +1,5 @@ 1 -149 +150 GFSPRS 0 ncep_nco @@ -5529,3 +5529,40 @@ spec_pres_above_grnd ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-GFS-FLUX-F00.txt b/parm/postxconfig-NT-GFS-FLUX-F00.txt index b21e83277..a532af969 100644 --- a/parm/postxconfig-NT-GFS-FLUX-F00.txt +++ b/parm/postxconfig-NT-GFS-FLUX-F00.txt @@ -1,5 +1,5 @@ 1 -45 +46 GFSPRS 0 ncep_nco @@ -1681,3 +1681,40 @@ depth_bel_land_sfc ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-GFS-FLUX.txt b/parm/postxconfig-NT-GFS-FLUX.txt index 6847ad0dc..760fb95a8 100644 --- a/parm/postxconfig-NT-GFS-FLUX.txt +++ b/parm/postxconfig-NT-GFS-FLUX.txt @@ -1,5 +1,5 @@ 1 -104 +111 GFSPRS 0 ncep_nco @@ -3864,3 +3864,262 @@ surface ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +997 +INST_PREC_ADVEC_HEAT +? +1 +tmpl4_0 +PAHFLX +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +998 +WATER_AQUIFER +? +1 +tmpl4_0 +WATERSA +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +999 +ACM_EIWATER_ON_SURFACE +? +1 +tmpl4_8 +EIWATER +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +1000 +ACM_PLANTTR_ON_SURFACE +? +1 +tmpl4_8 +PLANTTR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +1001 +ACM_SOILSE_ON_SURFACE +? +1 +tmpl4_8 +SOILSE +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +1002 +AVE_PREC_ADVEC_HEAT +? +1 +tmpl4_8 +PAHFLX +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt index 4bd605e54..7507a0de7 100644 --- a/parm/postxconfig-NT-GFS-TWO.txt +++ b/parm/postxconfig-NT-GFS-TWO.txt @@ -1,6 +1,6 @@ 2 -104 -196 +111 +197 GFSPRS 0 ncep_nco @@ -7269,6 +7269,43 @@ spec_pres_above_grnd ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? GFSFLX 0 ncep_nco @@ -11133,3 +11170,262 @@ surface ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +997 +INST_PREC_ADVEC_HEAT +? +1 +tmpl4_0 +PAHFLX +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +998 +WATER_AQUIFER +? +1 +tmpl4_0 +WATERSA +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +999 +ACM_EIWATER_ON_SURFACE +? +1 +tmpl4_8 +EIWATER +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +1000 +ACM_PLANTTR_ON_SURFACE +? +1 +tmpl4_8 +PLANTTR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +1001 +ACM_SOILSE_ON_SURFACE +? +1 +tmpl4_8 +SOILSE +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +1002 +AVE_PREC_ADVEC_HEAT +? +1 +tmpl4_8 +PAHFLX +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-GFS.txt b/parm/postxconfig-NT-GFS.txt index dd2922259..c7d4dccb7 100644 --- a/parm/postxconfig-NT-GFS.txt +++ b/parm/postxconfig-NT-GFS.txt @@ -1,5 +1,5 @@ 1 -196 +197 GFSPRS 0 ncep_nco @@ -7268,3 +7268,40 @@ spec_pres_above_grnd ? ? ? +996 +LAND_FRAC +? +1 +tmpl4_0 +LANDFRC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 14ef0c17f..c63ba43b1 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -962,6 +962,13 @@ SUBROUTINE ALLOCATE_ALL() allocate(su_aod550(im,jsta_2l:jend_2u)) allocate(oc_aod550(im,jsta_2l:jend_2u)) allocate(bc_aod550(im,jsta_2l:jend_2u)) + allocate(landfrac(im,jsta_2l:jend_2u)) + allocate(paha(im,jsta_2l:jend_2u)) + allocate(pahi(im,jsta_2l:jend_2u)) + allocate(tecan(im,jsta_2l:jend_2u)) + allocate(tetran(im,jsta_2l:jend_2u)) + allocate(tedir(im,jsta_2l:jend_2u)) + allocate(twa(im,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u @@ -1004,6 +1011,13 @@ SUBROUTINE ALLOCATE_ALL() su_aod550(i,j)=spval oc_aod550(i,j)=spval bc_aod550(i,j)=spval + landfrac(i,j)=spval + paha(i,j)=spval + pahi(i,j)=spval + tecan(i,j)=spval + tetran(i,j)=spval + tedir(i,j)=spval + twa(i,j)=spval enddo enddo ! diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index aba65050a..54f246042 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -378,6 +378,13 @@ SUBROUTINE DE_ALLOCATE deallocate(su_aod550) deallocate(bc_aod550) deallocate(oc_aod550) + deallocate(landfrac) + deallocate(paha) + deallocate(pahi) + deallocate(tecan) + deallocate(tetran) + deallocate(tedir) + deallocate(twa) ! GSD deallocate(rainc_bucket) deallocate(rainc_bucket1) diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f index 3f7cab8f7..811a8d191 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f @@ -48,7 +48,7 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) wh, qqg, ref_10cm use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & - tshltr, albase, avgalbedo, avgtcdc, czen, czmean, mxsnal, radot, sigt4, & + tshltr, albase, avgalbedo, avgtcdc, czen, czmean, mxsnal, landfrac, radot, sigt4, & cfrach, cfracl, cfracm, avgcfrach, qshltr, avgcfracl, avgcfracm, cnvcfr, & islope, cmc, grnflx, vegfrc, acfrcv, ncfrcv, acfrst, ncfrst, ssroff, & bgroff, rlwin, rlwtoa, cldwork, alwin, alwout, alwtoa, rswin, rswinc, & @@ -56,12 +56,13 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) snopcx, sfcux, sfcvx, sfcuxi, sfcvxi, sfcuvx, gtaux, gtauy, potevp, u10, v10, smstav, & smstot, ivgtyp, isltyp, sfcevp, sfcexc, acsnow, acsnom, sst, thz0, qz0, & uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm, & - ptoph, pboth, pblcfr, ttoph, runoff, maxtshltr, mintshltr, maxrhshltr, & + ptoph, pboth, pblcfr, ttoph, runoff, tecan, tetran, tedir, twa, maxtshltr, & + mintshltr, maxrhshltr, & minrhshltr, dzice, smcwlt, suntime, fieldcapa, htopd, hbotd, htops, hbots, & cuppt, dusmass, ducmass, dusmass25, ducmass25, aswintoa,rel_vort_maxhy1, & maxqshltr, minqshltr, acond, sr, u10h, v10h,refd_max, w_up_max, w_dn_max, & up_heli_max,up_heli_min,up_heli_max03,up_heli_min03,rel_vort_max01,u10max, v10max, & - avgedir,avgecan,avgetrans,avgesnow,avgprec_cont,avgcprate_cont,rel_vort_max, & + avgedir,avgecan,paha,pahi,avgetrans,avgesnow,avgprec_cont,avgcprate_cont,rel_vort_max, & avisbeamswin,avisdiffswin,airbeamswin,airdiffswin,refdm10c_max,wspd10max, & alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550 @@ -1270,6 +1271,11 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) enddo ! if(debugprint)print*,'sample ',VarName,' = ',mxsnal(isa,jsa) +! land fraction + VarName='lfrac' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,landfrac) + ! GFS probably does not use sigt4, set it to sig*t^4 !$omp parallel do private(i,j,tlmh) Do j=jsta,jend @@ -2130,7 +2136,55 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) enddo enddo ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,runoff(isa,jsa) + +! accumulated evaporation of intercepted water + VarName='ecan_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tecan) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) tecan(i,j) = spval + enddo + enddo +! accumulated plant transpiration + VarName='etran_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tetran) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) tetran(i,j) = spval + enddo + enddo + +! accumulated soil surface evaporation + VarName='edir_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tedir) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) tedir(i,j) = spval + enddo + enddo + +! total water storage in aquifer + VarName='wa_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,twa) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) twa(i,j) = spval + enddo + enddo + ! retrieve shelter max temperature using nemsio VarName='tmax_max2m' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & @@ -2299,6 +2353,30 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) enddo enddo +! retrieve AVERAGED PRECIP ADVECTED HEAT FLUX + VarName='pah_ave' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,paha) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) paha(i,j) = spval + enddo + enddo + +! retrieve nstantaneous PRECIP ADVECTED HEAT FLUX + VarName='pahi' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pahi) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) pahi(i,j) = spval + enddo + enddo + ! retrieve PLANT TRANSPIRATION VarName='trans_ave' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & diff --git a/sorc/ncep_post.fd/RQSTFLD.F b/sorc/ncep_post.fd/RQSTFLD.F index f5b82ad04..4dab5648b 100644 --- a/sorc/ncep_post.fd/RQSTFLD.F +++ b/sorc/ncep_post.fd/RQSTFLD.F @@ -26,7 +26,9 @@ module RQSTFLD_mod implicit none ! ! increase MXFLD each time you add a new field + INTEGER, PARAMETER :: MXFLD=1200 + #ifdef COMMCODE INTEGER, PARAMETER :: MXLVL=70 #else @@ -2723,6 +2725,28 @@ module RQSTFLD_mod DATA IFILV(995),AVBL(995),IQ(995),IS(995), AVBLGRB2(995) & & /1,'PMTF ',167,109, & !table 141 & 'PM25TOT ON Hybrid level'/ + + DATA IFILV(996),AVBL(996),IQ(996),IS(996),AVBLGRB2(996) & + & /1,'LAND FRACTION',205,217, & + & 'LANDFRAC ON surface'/ + DATA IFILV(997),AVBL(997),IQ(997),IS(997),AVBLGRB2(997) & + & /1,'INST PREC ADVEC HEAT',205,217, & + & 'PAHFLX ON surface'/ + DATA IFILV(998),AVBL(998),IQ(998),IS(998),AVBLGRB2(998) & + & /1,'WATER IN AQUIFER',205,217, & + & 'WATERSA ON surface'/ + DATA IFILV(999),AVBL(999),IQ(999),IS(999),AVBLGRB2(999) & + & /1,'ACM EIWATER',205,217, & + & 'EIWATER ON surface'/ + DATA IFILV(1000),AVBL(1000),IQ(1000),IS(1000),AVBLGRB2(1000) & + & /1,'ACM PLANTTR',205,217, & + & 'PLANTTR ON surface'/ + DATA IFILV(1001),AVBL(1001),IQ(1001),IS(1001),AVBLGRB2(1001) & + & /1,'ACM SOILSE',205,217, & + & 'SOILSE ON surface'/ + DATA IFILV(1002),AVBL(1002),IQ(1002),IS(1002),AVBLGRB2(1002) & + & /1,'AVE PREC ADVEC HEAT',205,217, & + & 'AVE PAHFLX ON surface'/ !end initialization ! diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index 749e5cdd0..e6c547baa 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -89,7 +89,8 @@ SUBROUTINE SURFCE acond,maxqshltr,minqshltr,avgpotevp,AVGPREC_CONT, & AVGCPRATE_CONT,sst,pcp_bucket1,rainnc_bucket1, & snow_bucket1, rainc_bucket1, graup_bucket1, & - shdmin, shdmax, lai, ch10,cd10 + shdmin, shdmax, lai, ch10,cd10,landfrac,paha,pahi, & + tecan,tetran,tedir,twa use soil, only: stc, sllevel, sldpth, smc, sh2o use masks, only: lmh, sm, sice, htm, gdlat, gdlon use physcons_post,only: CON_EPS, CON_EPSM1 @@ -168,7 +169,7 @@ SUBROUTINE SURFCE IF ( (IGET(024)>0).OR.(IGET(025)>0).OR. & (IGET(026)>0).OR.(IGET(027)>0).OR. & (IGET(028)>0).OR.(IGET(029)>0).OR. & - (IGET(154)>0).OR. & + (IGET(154)>0).OR. & (IGET(034)>0).OR.(IGET(076)>0) ) THEN ! allocate(zsfc(im,jsta:jend), psfc(im,jsta:jend), tsfc(im,jsta:jend)& @@ -1220,6 +1221,217 @@ SUBROUTINE SURFCE endif ENDIF + IF ( IGET(996)>0 )THEN + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(996)) +!$omp parallel do private(i,j,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,im + datapd(i,j,cfld) = LANDFRAC(i,jj) + enddo + enddo + endif + ENDIF + + IF ( IGET(997)>0 )THEN + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(997)) +!$omp parallel do private(i,j,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,im + datapd(i,j,cfld) = PAHI(i,jj) + enddo + enddo + endif + ENDIF + + IF ( IGET(998)>0 )THEN + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(998)) +!$omp parallel do private(i,j,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,im + datapd(i,j,cfld) = TWA(i,jj) + enddo + enddo + endif + ENDIF + + IF ( IGET(999)>0 )THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + GRID1(I,J) = TECAN(I,J) + ENDDO + ENDDO + ID(1:25) = 0 + ITPREC = NINT(TPREC) + if (ITPREC /= 0) then + IFINCR = MOD(IFHR,ITPREC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITPREC*60) + else + IFINCR = 0 + endif + ID(18) = 0 + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 4 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITPREC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + IF (ID(18)<0) ID(18) = 0 + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(999)) + fld_info(cfld)%ntrange=1 + fld_info(cfld)%tinvstat=IFHR-ID(18) +!$omp parallel do private(i,j,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,im + datapd(i,j,cfld) = GRID1(i,jj) + enddo + enddo + endif + ENDIF + + IF ( IGET(1000)>0 )THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + GRID1(I,J) = TETRAN(I,J) + ENDDO + ENDDO + ID(1:25) = 0 + ITPREC = NINT(TPREC) + if (ITPREC /= 0) then + IFINCR = MOD(IFHR,ITPREC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITPREC*60) + else + IFINCR = 0 + endif + ID(18) = 0 + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 4 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITPREC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + IF (ID(18)<0) ID(18) = 0 + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(1000)) + fld_info(cfld)%ntrange=1 + fld_info(cfld)%tinvstat=IFHR-ID(18) +!$omp parallel do private(i,j,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,im + datapd(i,j,cfld) = GRID1(i,jj) + enddo + enddo + endif + ENDIF +! + IF ( IGET(1001)>0 )THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + GRID1(I,J) = TEDIR(I,J) + ENDDO + ENDDO + ID(1:25) = 0 + ITPREC = NINT(TPREC) + if (ITPREC /= 0) then + IFINCR = MOD(IFHR,ITPREC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITPREC*60) + else + IFINCR = 0 + endif + ID(18) = 0 + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 4 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITPREC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + IF (ID(18)<0) ID(18) = 0 + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(1001)) + fld_info(cfld)%ntrange=1 + fld_info(cfld)%tinvstat=IFHR-ID(18) +!$omp parallel do private(i,j,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,im + datapd(i,j,cfld) = GRID1(i,jj) + enddo + enddo + endif + ENDIF +! + + IF (IGET(1002)>0) THEN + IF(ASRFC>0.)THEN + RRNUM=1./ASRFC + ELSE + RRNUM=0. + ENDIF + DO J=JSTA,JEND + DO I=1,IM + IF(PAHA(I,J)/=SPVAL)THEN + GRID1(I,J)=-1.*PAHA(I,J)*RRNUM !change the sign to conform with Grib + ELSE + GRID1(I,J)=PAHA(I,J) + END IF + ENDDO + ENDDO + ID(1:25) = 0 + ITSRFC = NINT(TSRFC) + IF(ITSRFC /= 0) then + IFINCR = MOD(IFHR,ITSRFC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITSRFC*60) + ELSE + IFINCR = 0 + endif + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 3 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITSRFC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + IF (ID(18)<0) ID(18) = 0 + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(1002)) + if(ITSRFC>0) then + fld_info(cfld)%ntrange=1 + else + fld_info(cfld)%ntrange=0 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) + datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + endif + ENDIF ! ! ! diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index 11c542b1d..31eef7a90 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -81,9 +81,11 @@ module vrbls2d ,etrans(:,:),esnow(:,:),avgedir(:,:),avgecan(:,:),avgetrans(:,:)& ,avgesnow(:,:),avgpotevp(:,:),avgprec_cont(:,:),avgcprate_cont(:,:)& ,ti(:,:),aod550(:,:),du_aod550(:,:),ss_aod550(:,:),su_aod550(:,:) & - ,bc_aod550(:,:),oc_aod550(:,:) + ,bc_aod550(:,:),oc_aod550(:,:),landfrac(:,:),paha(:,:),pahi(:,:) & + ,tecan(:,:),tetran(:,:),tedir(:,:),twa(:,:) integer, allocatable :: IVGTYP(:,:),ISLTYP(:,:),ISLOPE(:,:) & ,IEQL(:,:) + ! Add 2d aerosol diagnosis fields for GOCART (NGAC) real, allocatable :: & DUSMASS(:,:),DUCMASS(:,:),DUSMASS25(:,:),DUCMASS25(:,:) & From 62dcbd4778b491262391dfcd852d7080a25c5387 Mon Sep 17 00:00:00 2001 From: Edward Hartnett <38856240+edwardhartnett@users.noreply.github.com> Date: Fri, 24 Sep 2021 08:27:44 -0600 Subject: [PATCH 007/107] switched to local copy of FindNetCDF.cmake (#385) * switched to local copy of FindNetCDF.cmake * fixed path to FindNetCDF --- .github/workflows/build_and_test.yml | 1 - .gitmodules | 4 - CMakeLists.txt | 2 +- CMakeModules | 1 - cmake/FindNetCDF.cmake | 340 +++++++++++++++++++++++++++ 5 files changed, 341 insertions(+), 7 deletions(-) delete mode 160000 CMakeModules create mode 100644 cmake/FindNetCDF.cmake diff --git a/.github/workflows/build_and_test.yml b/.github/workflows/build_and_test.yml index eae74db3a..aef646eb6 100644 --- a/.github/workflows/build_and_test.yml +++ b/.github/workflows/build_and_test.yml @@ -51,7 +51,6 @@ jobs: uses: actions/checkout@v2 with: path: post - submodules: true - name: build-post run: | diff --git a/.gitmodules b/.gitmodules index 669c691de..e69de29bb 100644 --- a/.gitmodules +++ b/.gitmodules @@ -1,4 +0,0 @@ -[submodule "CMakeModules"] - path = CMakeModules - url = https://github.com/noaa-emc/CMakeModules - branch = develop diff --git a/CMakeLists.txt b/CMakeLists.txt index e2beafe4b..01d544fde 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -9,7 +9,7 @@ project( VERSION ${pVersion} LANGUAGES Fortran) -list(APPEND CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/CMakeModules/Modules") +list(APPEND CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/cmake") # Handle user options. option(OPENMP "use OpenMP threading" ON) diff --git a/CMakeModules b/CMakeModules deleted file mode 160000 index 09ff76f1f..000000000 --- a/CMakeModules +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 09ff76f1f69ecaab97c59782fc718c124c174dfb diff --git a/cmake/FindNetCDF.cmake b/cmake/FindNetCDF.cmake new file mode 100644 index 000000000..64d039554 --- /dev/null +++ b/cmake/FindNetCDF.cmake @@ -0,0 +1,340 @@ +# (C) Copyright 2011- ECMWF. +# +# This software is licensed under the terms of the Apache Licence Version 2.0 +# which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. +# In applying this licence, ECMWF does not waive the privileges and immunities +# granted to it by virtue of its status as an intergovernmental organisation nor +# does it submit to any jurisdiction. + +# Try to find NetCDF includes and library. +# Supports static and shared libaries and allows each component to be found in sepearte prefixes. +# +# This module defines +# +# - NetCDF_FOUND - System has NetCDF +# - NetCDF_INCLUDE_DIRS - the NetCDF include directories +# - NetCDF_VERSION - the version of NetCDF +# - NetCDF_CONFIG_EXECUTABLE - the netcdf-config executable if found +# - NetCDF_PARALLEL - Boolean True if NetCDF4 has parallel IO support via hdf5 and/or pnetcdf +# - NetCDF_HAS_PNETCDF - Boolean True if NetCDF4 has pnetcdf support +# +# Deprecated Defines +# - NetCDF_LIBRARIES - [Deprecated] Use NetCDF::NetCDF_ targets instead. +# +# +# Following components are available: +# +# - C - C interface to NetCDF (netcdf) +# - CXX - CXX4 interface to NetCDF (netcdf_c++4) +# - Fortran - Fortran interface to NetCDF (netcdff) +# +# For each component the following are defined: +# +# - NetCDF__FOUND - whether the component is found +# - NetCDF__LIBRARIES - the libraries for the component +# - NetCDF__LIBRARY_SHARED - Boolean is true if libraries for component are shared +# - NetCDF__INCLUDE_DIRS - the include directories for specified component +# - NetCDF::NetCDF_ - target of component to be used with target_link_libraries() +# +# The following paths will be searched in order if set in CMake (first priority) or environment (second priority) +# +# - NetCDF_ROOT - root of NetCDF installation +# - NetCDF_PATH - root of NetCDF installation +# +# The search process begins with locating NetCDF Include headers. If these are in a non-standard location, +# set one of the following CMake or environment variables to point to the location: +# +# - NetCDF_INCLUDE_DIR or NetCDF_${comp}_INCLUDE_DIR +# - NetCDF_INCLUDE_DIRS or NetCDF_${comp}_INCLUDE_DIR +# +# Notes: +# +# - Use "NetCDF::NetCDF_" targets only. NetCDF_LIBRARIES exists for backwards compatibility and should not be used. +# - These targets have all the knowledge of include directories and library search directories, and a single +# call to target_link_libraries will provide all these transitive properties to your target. Normally all that is +# needed to build and link against NetCDF is, e.g.: +# target_link_libraries(my_c_tgt PUBLIC NetCDF::NetCDF_C) +# - "NetCDF" is always the preferred naming for this package, its targets, variables, and environment variables +# - For compatibility, some variables are also set/checked using alternate names NetCDF4, NETCDF, or NETCDF4 +# - Environments relying on these older environment variable names should move to using a "NetCDF_ROOT" environment variable +# - Preferred component capitalization follows the CMake LANGUAGES variables: i.e., C, Fortran, CXX +# - For compatibility, alternate capitalizations are supported but should not be used. +# - If no components are defined, all components will be searched +# + +list( APPEND _possible_components C CXX Fortran ) + +## Include names for each component +set( NetCDF_C_INCLUDE_NAME netcdf.h ) +set( NetCDF_CXX_INCLUDE_NAME netcdf ) +set( NetCDF_Fortran_INCLUDE_NAME netcdf.mod ) + +## Library names for each component +set( NetCDF_C_LIBRARY_NAME netcdf ) +set( NetCDF_CXX_LIBRARY_NAME netcdf_c++4 ) +set( NetCDF_Fortran_LIBRARY_NAME netcdff ) + +## Enumerate search components +foreach( _comp ${_possible_components} ) + string( TOUPPER "${_comp}" _COMP ) + set( _arg_${_COMP} ${_comp} ) + set( _name_${_COMP} ${_comp} ) +endforeach() + +set( _search_components C) +foreach( _comp ${${CMAKE_FIND_PACKAGE_NAME}_FIND_COMPONENTS} ) + string( TOUPPER "${_comp}" _COMP ) + set( _arg_${_COMP} ${_comp} ) + list( APPEND _search_components ${_name_${_COMP}} ) + if( NOT _name_${_COMP} ) + message(SEND_ERROR "Find${CMAKE_FIND_PACKAGE_NAME}: COMPONENT ${_comp} is not a valid component. Valid components: ${_possible_components}" ) + endif() +endforeach() +list( REMOVE_DUPLICATES _search_components ) + +## Search hints for finding include directories and libraries +foreach( _comp IN ITEMS "_" "_C_" "_Fortran_" "_CXX_" ) + foreach( _name IN ITEMS NetCDF4 NetCDF NETCDF4 NETCDF ) + foreach( _var IN ITEMS ROOT PATH ) + list(APPEND _search_hints ${${_name}${_comp}${_var}} $ENV{${_name}${_comp}${_var}} ) + list(APPEND _include_search_hints + ${${_name}${_comp}INCLUDE_DIR} $ENV{${_name}${_comp}INCLUDE_DIR} + ${${_name}${_comp}INCLUDE_DIRS} $ENV{${_name}${_comp}INCLUDE_DIRS} ) + endforeach() + endforeach() +endforeach() +#Old-school HPC module env variable names +foreach( _name IN ITEMS NetCDF4 NetCDF NETCDF4 NETCDF ) + foreach( _comp IN ITEMS "_C" "_Fortran" "_CXX" ) + list(APPEND _search_hints ${${_name}} $ENV{${_name}}) + list(APPEND _search_hints ${${_name}${_comp}} $ENV{${_name}${_comp}}) + endforeach() +endforeach() + +## Find headers for each component +set(NetCDF_INCLUDE_DIRS) +set(_new_search_components) +foreach( _comp IN LISTS _search_components ) + if(NOT ${PROJECT_NAME}_NetCDF_${_comp}_FOUND) + list(APPEND _new_search_components ${_comp}) + endif() + find_file(NetCDF_${_comp}_INCLUDE_FILE + NAMES ${NetCDF_${_comp}_INCLUDE_NAME} + DOC "NetCDF ${_comp} include directory" + HINTS ${_include_search_hints} ${_search_hints} + PATH_SUFFIXES include include/netcdf + ) + mark_as_advanced(NetCDF_${_comp}_INCLUDE_FILE) + message(DEBUG "NetCDF_${_comp}_INCLUDE_FILE: ${NetCDF_${_comp}_INCLUDE_FILE}") + if( NetCDF_${_comp}_INCLUDE_FILE ) + get_filename_component(NetCDF_${_comp}_INCLUDE_FILE ${NetCDF_${_comp}_INCLUDE_FILE} ABSOLUTE) + get_filename_component(NetCDF_${_comp}_INCLUDE_DIR ${NetCDF_${_comp}_INCLUDE_FILE} DIRECTORY) + list(APPEND NetCDF_INCLUDE_DIRS ${NetCDF_${_comp}_INCLUDE_DIR}) + endif() +endforeach() +if(NetCDF_INCLUDE_DIRS) + list(REMOVE_DUPLICATES NetCDF_INCLUDE_DIRS) +endif() +set(NetCDF_INCLUDE_DIRS "${NetCDF_INCLUDE_DIRS}" CACHE STRING "NetCDF Include directory paths" FORCE) + +## Find n*-config executables for search components +foreach( _comp IN LISTS _search_components ) + if( _comp MATCHES "^(C)$" ) + set(_conf "c") + elseif( _comp MATCHES "^(Fortran)$" ) + set(_conf "f") + elseif( _comp MATCHES "^(CXX)$" ) + set(_conf "cxx4") + endif() + find_program( NetCDF_${_comp}_CONFIG_EXECUTABLE + NAMES n${_conf}-config + HINTS ${NetCDF_INCLUDE_DIRS} ${_include_search_hints} ${_search_hints} + PATH_SUFFIXES bin Bin ../bin ../../bin + DOC "NetCDF n${_conf}-config helper" ) + message(DEBUG "NetCDF_${_comp}_CONFIG_EXECUTABLE: ${NetCDF_${_comp}_CONFIG_EXECUTABLE}") +endforeach() + +set(_C_libs_flag --libs) +set(_Fortran_libs_flag --flibs) +set(_CXX_libs_flag --libs) +set(_C_includes_flag --includedir) +set(_Fortran_includes_flag --includedir) +set(_CXX_includes_flag --includedir) +function(netcdf_config exec flag output_var) + set(${output_var} False PARENT_SCOPE) + if( exec ) + execute_process( COMMAND ${exec} ${flag} RESULT_VARIABLE _ret OUTPUT_VARIABLE _val) + if( _ret EQUAL 0 ) + string( STRIP ${_val} _val ) + set( ${output_var} ${_val} PARENT_SCOPE ) + endif() + endif() +endfunction() + +## Find libraries for each component +set( NetCDF_LIBRARIES ) +foreach( _comp IN LISTS _search_components ) + string( TOUPPER "${_comp}" _COMP ) + + find_library( NetCDF_${_comp}_LIBRARY + NAMES ${NetCDF_${_comp}_LIBRARY_NAME} + DOC "NetCDF ${_comp} library" + HINTS ${NetCDF_${_comp}_INCLUDE_DIRS} ${_search_hints} + PATH_SUFFIXES lib64 lib ../lib64 ../lib ../../lib64 ../../lib ) + mark_as_advanced( NetCDF_${_comp}_LIBRARY ) + get_filename_component(NetCDF_${_comp}_LIBRARY ${NetCDF_${_comp}_LIBRARY} ABSOLUTE) + set(NetCDF_${_comp}_LIBRARY ${NetCDF_${_comp}_LIBRARY} CACHE STRING "NetCDF ${_comp} library" FORCE) + message(DEBUG "NetCDF_${_comp}_LIBRARY: ${NetCDF_${_comp}_LIBRARY}") + + if( NetCDF_${_comp}_LIBRARY ) + if( NetCDF_${_comp}_LIBRARY MATCHES ".a$" ) + set( NetCDF_${_comp}_LIBRARY_SHARED FALSE ) + set( _library_type STATIC) + else() + list( APPEND NetCDF_LIBRARIES ${NetCDF_${_comp}_LIBRARY} ) + set( NetCDF_${_comp}_LIBRARY_SHARED TRUE ) + set( _library_type SHARED) + endif() + endif() + + #Use nc-config to set per-component LIBRARIES variable if possible + netcdf_config( ${NetCDF_${_comp}_CONFIG_EXECUTABLE} ${_${_comp}_libs_flag} _val ) + if( _val ) + set( NetCDF_${_comp}_LIBRARIES ${_val} ) + if(NOT NetCDF_${_comp}_LIBRARY_SHARED AND NOT NetCDF_${_comp}_FOUND) #Static targets should use nc_config to get a proper link line with all necessary static targets. + list( APPEND NetCDF_LIBRARIES ${NetCDF_${_comp}_LIBRARIES} ) + endif() + else() + set( NetCDF_${_comp}_LIBRARIES ${NetCDF_${_comp}_LIBRARY} ) + if(NOT NetCDF_${_comp}_LIBRARY_SHARED) + message(SEND_ERROR "Unable to properly find NetCDF. Found static libraries at: ${NetCDF_${_comp}_LIBRARY} but could not run nc-config: ${NetCDF_CONFIG_EXECUTABLE}") + endif() + endif() + + #Use nc-config to set per-component INCLUDE_DIRS variable if possible + netcdf_config( ${NetCDF_${_comp}_CONFIG_EXECUTABLE} ${_${_comp}_includes_flag} _val ) + if( _val ) + string( REPLACE " " ";" _val ${_val} ) + set( NetCDF_${_comp}_INCLUDE_DIRS ${_val} ) + else() + set( NetCDF_${_comp}_INCLUDE_DIRS ${NetCDF_${_comp}_INCLUDE_DIR} ) + endif() + + if( NetCDF_${_comp}_LIBRARIES AND NetCDF_${_comp}_INCLUDE_DIRS ) + set( ${CMAKE_FIND_PACKAGE_NAME}_${_arg_${_COMP}}_FOUND TRUE ) + if (NOT TARGET NetCDF::NetCDF_${_comp}) + add_library(NetCDF::NetCDF_${_comp} ${_library_type} IMPORTED) + set_target_properties(NetCDF::NetCDF_${_comp} PROPERTIES + IMPORTED_LOCATION ${NetCDF_${_comp}_LIBRARY} + INTERFACE_INCLUDE_DIRECTORIES "${NetCDF_${_comp}_INCLUDE_DIRS}" + INTERFACE_LINK_LIBRARIES ${NetCDF_${_comp}_LIBRARIES} ) + if( NOT _comp MATCHES "^(C)$" ) + target_link_libraries(NetCDF::NetCDF_${_comp} INTERFACE NetCDF::NetCDF_C) + endif() + endif() + endif() +endforeach() +if(NetCDF_LIBRARIES AND NetCDF_${_comp}_LIBRARY_SHARED) + list(REMOVE_DUPLICATES NetCDF_LIBRARIES) +endif() +set(NetCDF_LIBRARIES "${NetCDF_LIBRARIES}" CACHE STRING "NetCDF library targets" FORCE) + +## Find version via netcdf-config if possible +if (NetCDF_INCLUDE_DIRS) + if( NetCDF_C_CONFIG_EXECUTABLE ) + netcdf_config( ${NetCDF_C_CONFIG_EXECUTABLE} --version _vers ) + if( _vers ) + string(REGEX REPLACE ".* ((([0-9]+)\\.)+([0-9]+)).*" "\\1" NetCDF_VERSION "${_vers}" ) + endif() + else() + foreach( _dir IN LISTS NetCDF_INCLUDE_DIRS) + if( EXISTS "${_dir}/netcdf_meta.h" ) + file(STRINGS "${_dir}/netcdf_meta.h" _netcdf_version_lines + REGEX "#define[ \t]+NC_VERSION_(MAJOR|MINOR|PATCH|NOTE)") + string(REGEX REPLACE ".*NC_VERSION_MAJOR *\([0-9]*\).*" "\\1" _netcdf_version_major "${_netcdf_version_lines}") + string(REGEX REPLACE ".*NC_VERSION_MINOR *\([0-9]*\).*" "\\1" _netcdf_version_minor "${_netcdf_version_lines}") + string(REGEX REPLACE ".*NC_VERSION_PATCH *\([0-9]*\).*" "\\1" _netcdf_version_patch "${_netcdf_version_lines}") + string(REGEX REPLACE ".*NC_VERSION_NOTE *\"\([^\"]*\)\".*" "\\1" _netcdf_version_note "${_netcdf_version_lines}") + set(NetCDF_VERSION "${_netcdf_version_major}.${_netcdf_version_minor}.${_netcdf_version_patch}${_netcdf_version_note}") + unset(_netcdf_version_major) + unset(_netcdf_version_minor) + unset(_netcdf_version_patch) + unset(_netcdf_version_note) + unset(_netcdf_version_lines) + endif() + endforeach() + endif() +endif () + +## Detect additional package properties +netcdf_config(${NetCDF_C_CONFIG_EXECUTABLE} --has-parallel4 _val) +if( NOT _val MATCHES "^(yes|no)$" ) + netcdf_config(${NetCDF_C_CONFIG_EXECUTABLE} --has-parallel _val) +endif() +if( _val MATCHES "^(yes)$" ) + set(NetCDF_PARALLEL TRUE CACHE STRING "NetCDF has parallel IO capability via pnetcdf or hdf5." FORCE) +else() + set(NetCDF_PARALLEL FALSE CACHE STRING "NetCDF has no parallel IO capability." FORCE) +endif() + +## Finalize find_package +include(FindPackageHandleStandardArgs) + +if(NOT NetCDF_FOUND OR _new_search_components) + find_package_handle_standard_args( ${CMAKE_FIND_PACKAGE_NAME} + REQUIRED_VARS NetCDF_INCLUDE_DIRS NetCDF_LIBRARIES + VERSION_VAR NetCDF_VERSION + HANDLE_COMPONENTS ) +endif() + +foreach( _comp IN LISTS _search_components ) + if( NetCDF_${_comp}_FOUND ) + #Record found components to avoid duplication in NetCDF_LIBRARIES for static libraries + set(NetCDF_${_comp}_FOUND ${NetCDF_${_comp}_FOUND} CACHE BOOL "NetCDF ${_comp} Found" FORCE) + #Set a per-package, per-component found variable to communicate between multiple calls to find_package() + set(${PROJECT_NAME}_NetCDF_${_comp}_FOUND True) + endif() +endforeach() + +if( ${CMAKE_FIND_PACKAGE_NAME}_FOUND AND NOT ${CMAKE_FIND_PACKAGE_NAME}_FIND_QUIETLY AND _new_search_components) + message( STATUS "Find${CMAKE_FIND_PACKAGE_NAME} defines targets:" ) + message( STATUS " - NetCDF_VERSION [${NetCDF_VERSION}]") + message( STATUS " - NetCDF_PARALLEL [${NetCDF_PARALLEL}]") + foreach( _comp IN LISTS _new_search_components ) + string( TOUPPER "${_comp}" _COMP ) + message( STATUS " - NetCDF_${_comp}_CONFIG_EXECUTABLE [${NetCDF_${_comp}_CONFIG_EXECUTABLE}]") + if( ${CMAKE_FIND_PACKAGE_NAME}_${_arg_${_COMP}}_FOUND ) + get_filename_component(_root ${NetCDF_${_comp}_INCLUDE_DIR}/.. ABSOLUTE) + if( NetCDF_${_comp}_LIBRARY_SHARED ) + message( STATUS " - NetCDF::NetCDF_${_comp} [SHARED] [Root: ${_root}] Lib: ${NetCDF_${_comp}_LIBRARY} ") + else() + message( STATUS " - NetCDF::NetCDF_${_comp} [STATIC] [Root: ${_root}] Lib: ${NetCDF_${_comp}_LIBRARY} ") + endif() + endif() + endforeach() +endif() + +foreach( _prefix NetCDF NetCDF4 NETCDF NETCDF4 ${CMAKE_FIND_PACKAGE_NAME} ) + set( ${_prefix}_INCLUDE_DIRS ${NetCDF_INCLUDE_DIRS} ) + set( ${_prefix}_LIBRARIES ${NetCDF_LIBRARIES}) + set( ${_prefix}_VERSION ${NetCDF_VERSION} ) + set( ${_prefix}_FOUND ${${CMAKE_FIND_PACKAGE_NAME}_FOUND} ) + set( ${_prefix}_CONFIG_EXECUTABLE ${NetCDF_CONFIG_EXECUTABLE} ) + set( ${_prefix}_PARALLEL ${NetCDF_PARALLEL} ) + + foreach( _comp ${_search_components} ) + string( TOUPPER "${_comp}" _COMP ) + set( _arg_comp ${_arg_${_COMP}} ) + set( ${_prefix}_${_comp}_FOUND ${${CMAKE_FIND_PACKAGE_NAME}_${_arg_comp}_FOUND} ) + set( ${_prefix}_${_COMP}_FOUND ${${CMAKE_FIND_PACKAGE_NAME}_${_arg_comp}_FOUND} ) + set( ${_prefix}_${_arg_comp}_FOUND ${${CMAKE_FIND_PACKAGE_NAME}_${_arg_comp}_FOUND} ) + + set( ${_prefix}_${_comp}_LIBRARIES ${NetCDF_${_comp}_LIBRARIES} ) + set( ${_prefix}_${_COMP}_LIBRARIES ${NetCDF_${_comp}_LIBRARIES} ) + set( ${_prefix}_${_arg_comp}_LIBRARIES ${NetCDF_${_comp}_LIBRARIES} ) + + set( ${_prefix}_${_comp}_INCLUDE_DIRS ${NetCDF_${_comp}_INCLUDE_DIRS} ) + set( ${_prefix}_${_COMP}_INCLUDE_DIRS ${NetCDF_${_comp}_INCLUDE_DIRS} ) + set( ${_prefix}_${_arg_comp}_INCLUDE_DIRS ${NetCDF_${_comp}_INCLUDE_DIRS} ) + endforeach() +endforeach() From 030f6a2c6a439b2562881b372319ebe84f5c4024 Mon Sep 17 00:00:00 2001 From: Edward Hartnett <38856240+edwardhartnett@users.noreply.github.com> Date: Fri, 24 Sep 2021 11:51:16 -0600 Subject: [PATCH 008/107] added link to built docs on gh-pages branch in README (#388) --- README.md | 2 ++ 1 file changed, 2 insertions(+) diff --git a/README.md b/README.md index fc9255270..6f80fd158 100644 --- a/README.md +++ b/README.md @@ -44,6 +44,8 @@ Examples of UPP products include: Support for the UFS UPP is provided through the UFS Forum by the Developmental Testbed Center (DTC) for FV3-based applications. +For full documentation see https://noaa-emc.github.io/UPP/. + The UPP uses some of the [NCEPLIBS](https://github.com/NOAA-EMC/NCEPLIBS) project. From cdfe99ec74ef53cef021b9f89ebc5701f2193631 Mon Sep 17 00:00:00 2001 From: Edward Hartnett <38856240+edwardhartnett@users.noreply.github.com> Date: Sat, 25 Sep 2021 18:05:16 -0600 Subject: [PATCH 009/107] updated Doxyfile, turned on warnings (#390) * updated Doxyfile, turned on warnings * turn off WARN_AS_ERROR in Doxyfile --- docs/Doxyfile.in | 808 +++++++++++++++++++++++++++++++++-------------- 1 file changed, 563 insertions(+), 245 deletions(-) diff --git a/docs/Doxyfile.in b/docs/Doxyfile.in index a5a2d6eb8..85459abdc 100644 --- a/docs/Doxyfile.in +++ b/docs/Doxyfile.in @@ -1,3 +1,5 @@ +# Doxyfile 1.9.1 + # This file describes the settings to be used by the documentation system # doxygen (www.doxygen.org) for a project. # @@ -15,11 +17,11 @@ # Project related configuration options #--------------------------------------------------------------------------- -# This tag specifies the encoding used for all characters in the config file -# that follow. The default is UTF-8 which is also the encoding used for all text -# before the first occurrence of this tag. Doxygen uses libiconv (or the iconv -# built into libc) for the transcoding. See http://www.gnu.org/software/libiconv -# for the list of possible encodings. +# This tag specifies the encoding used for all characters in the configuration +# file that follow. The default is UTF-8 which is also the encoding used for all +# text before the first occurrence of this tag. Doxygen uses libiconv (or the +# iconv built into libc) for the transcoding. See +# https://www.gnu.org/software/libiconv/ for the list of possible encodings. # The default value is: UTF-8. DOXYFILE_ENCODING = UTF-8 @@ -44,12 +46,12 @@ PROJECT_NUMBER = @PROJECT_VERSION@ PROJECT_BRIEF = -# With the PROJECT_LOGO tag one can specify an logo or icon that is included in -# the documentation. The maximum height of the logo should not exceed 55 pixels -# and the maximum width should not exceed 200 pixels. Doxygen will copy the logo -# to the output directory. +# With the PROJECT_LOGO tag one can specify a logo or an icon that is included +# in the documentation. The maximum height of the logo should not exceed 55 +# pixels and the maximum width should not exceed 200 pixels. Doxygen will copy +# the logo to the output directory. -PROJECT_LOGO = +PROJECT_LOGO = # The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) path # into which the generated documentation will be written. If a relative path is @@ -58,7 +60,7 @@ PROJECT_LOGO = OUTPUT_DIRECTORY = -# If the CREATE_SUBDIRS tag is set to YES, then doxygen will create 4096 sub- +# If the CREATE_SUBDIRS tag is set to YES then doxygen will create 4096 sub- # directories (in 2 levels) under the output directory of each output format and # will distribute the generated files over these directories. Enabling this # option can be useful when feeding doxygen a huge amount of source files, where @@ -68,6 +70,14 @@ OUTPUT_DIRECTORY = CREATE_SUBDIRS = NO +# If the ALLOW_UNICODE_NAMES tag is set to YES, doxygen will allow non-ASCII +# characters to appear in the names of generated files. If set to NO, non-ASCII +# characters will be escaped, for example _xE3_x81_x84 will be used for Unicode +# U+3044. +# The default value is: NO. + +ALLOW_UNICODE_NAMES = NO + # The OUTPUT_LANGUAGE tag is used to specify the language in which all # documentation generated by doxygen is written. Doxygen will use this # information to generate all constant output in the proper language. @@ -83,14 +93,22 @@ CREATE_SUBDIRS = NO OUTPUT_LANGUAGE = English -# If the BRIEF_MEMBER_DESC tag is set to YES doxygen will include brief member +# The OUTPUT_TEXT_DIRECTION tag is used to specify the direction in which all +# documentation generated by doxygen is written. Doxygen will use this +# information to generate all generated output in the proper direction. +# Possible values are: None, LTR, RTL and Context. +# The default value is: None. + +OUTPUT_TEXT_DIRECTION = None + +# If the BRIEF_MEMBER_DESC tag is set to YES, doxygen will include brief member # descriptions after the members that are listed in the file and class # documentation (similar to Javadoc). Set to NO to disable this. # The default value is: YES. BRIEF_MEMBER_DESC = YES -# If the REPEAT_BRIEF tag is set to YES doxygen will prepend the brief +# If the REPEAT_BRIEF tag is set to YES, doxygen will prepend the brief # description of a member or function before the detailed description # # Note: If both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the @@ -125,7 +143,7 @@ ALWAYS_DETAILED_SEC = YES INLINE_INHERITED_MEMB = YES -# If the FULL_PATH_NAMES tag is set to YES doxygen will prepend the full path +# If the FULL_PATH_NAMES tag is set to YES, doxygen will prepend the full path # before files name in the file list and in the header files. If set to NO the # shortest path that makes the file name unique will be used # The default value is: YES. @@ -169,6 +187,16 @@ SHORT_NAMES = NO JAVADOC_AUTOBRIEF = YES +# If the JAVADOC_BANNER tag is set to YES then doxygen will interpret a line +# such as +# /*************** +# as being the beginning of a Javadoc-style comment "banner". If set to NO, the +# Javadoc-style will behave just like regular comments and it will not be +# interpreted by doxygen. +# The default value is: NO. + +JAVADOC_BANNER = NO + # If the QT_AUTOBRIEF tag is set to YES then doxygen will interpret the first # line (until the first dot) of a Qt-style comment as the brief description. If # set to NO, the Qt-style will behave just like regular Qt-style comments (thus @@ -189,15 +217,23 @@ QT_AUTOBRIEF = YES MULTILINE_CPP_IS_BRIEF = YES +# By default Python docstrings are displayed as preformatted text and doxygen's +# special commands cannot be used. By setting PYTHON_DOCSTRING to NO the +# doxygen's special commands can be used and the contents of the docstring +# documentation blocks is shown as doxygen documentation. +# The default value is: YES. + +PYTHON_DOCSTRING = YES + # If the INHERIT_DOCS tag is set to YES then an undocumented member inherits the # documentation from any documented member that it re-implements. # The default value is: YES. INHERIT_DOCS = YES -# If the SEPARATE_MEMBER_PAGES tag is set to YES, then doxygen will produce a -# new page for each member. If set to NO, the documentation of a member will be -# part of the file/class/namespace that contains it. +# If the SEPARATE_MEMBER_PAGES tag is set to YES then doxygen will produce a new +# page for each member. If set to NO, the documentation of a member will be part +# of the file/class/namespace that contains it. # The default value is: NO. SEPARATE_MEMBER_PAGES = NO @@ -216,16 +252,15 @@ TAB_SIZE = 4 # will allow you to put the command \sideeffect (or @sideeffect) in the # documentation, which will result in a user-defined paragraph with heading # "Side Effects:". You can put \n's in the value part of an alias to insert -# newlines. +# newlines (in the resulting output). You can put ^^ in the value part of an +# alias to insert a newline as if a physical newline was in the original file. +# When you need a literal { or } or , in the value part of an alias you have to +# escape them by means of a backslash (\), this can lead to conflicts with the +# commands \{ and \} for these it is advised to use the version @{ and @} or use +# a double escape (\\{ and \\}) ALIASES = -# This tag can be used to specify a number of word-keyword mappings (TCL only). -# A mapping has the form "name=value". For example adding "class=itcl::class" -# will allow you to use the command class in the itcl::class meaning. - -TCL_SUBST = - # Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C sources # only. Doxygen will then generate output that is more tailored for C. For # instance, some of the names that are used will be different. The list of all @@ -254,25 +289,40 @@ OPTIMIZE_FOR_FORTRAN = YES OPTIMIZE_OUTPUT_VHDL = NO +# Set the OPTIMIZE_OUTPUT_SLICE tag to YES if your project consists of Slice +# sources only. Doxygen will then generate output that is more tailored for that +# language. For instance, namespaces will be presented as modules, types will be +# separated into more groups, etc. +# The default value is: NO. + +OPTIMIZE_OUTPUT_SLICE = NO + # Doxygen selects the parser to use depending on the extension of the files it # parses. With this tag you can assign which parser to use for a given # extension. Doxygen has a built-in mapping, but you can override or extend it # using this tag. The format is ext=language, where ext is a file extension, and -# language is one of the parsers supported by doxygen: IDL, Java, Javascript, -# C#, C, C++, D, PHP, Objective-C, Python, Fortran, VHDL. For instance to make -# doxygen treat .inc files as Fortran files (default is PHP), and .f files as C -# (default is Fortran), use: inc=Fortran f=C. +# language is one of the parsers supported by doxygen: IDL, Java, JavaScript, +# Csharp (C#), C, C++, D, PHP, md (Markdown), Objective-C, Python, Slice, VHDL, +# Fortran (fixed format Fortran: FortranFixed, free formatted Fortran: +# FortranFree, unknown formatted Fortran: Fortran. In the later case the parser +# tries to guess whether the code is fixed or free formatted code, this is the +# default for Fortran type files). For instance to make doxygen treat .inc files +# as Fortran files (default is PHP), and .f files as C (default is Fortran), +# use: inc=Fortran f=C. # -# Note For files without extension you can use no_extension as a placeholder. +# Note: For files without extension you can use no_extension as a placeholder. # # Note that for custom extensions you also need to set FILE_PATTERNS otherwise -# the files are not read by doxygen. +# the files are not read by doxygen. When specifying no_extension you should add +# * to the FILE_PATTERNS. +# +# Note see also the list of default file extension mappings. EXTENSION_MAPPING = # If the MARKDOWN_SUPPORT tag is enabled then doxygen pre-processes all comments # according to the Markdown format, which allows for more readable -# documentation. See http://daringfireball.net/projects/markdown/ for details. +# documentation. See https://daringfireball.net/projects/markdown/ for details. # The output of markdown processing is further processed by doxygen, so you can # mix doxygen, HTML, and XML commands with Markdown formatting. Disable only in # case of backward compatibilities issues. @@ -280,10 +330,19 @@ EXTENSION_MAPPING = MARKDOWN_SUPPORT = YES +# When the TOC_INCLUDE_HEADINGS tag is set to a non-zero value, all headings up +# to that level are automatically included in the table of contents, even if +# they do not have an id attribute. +# Note: This feature currently applies only to Markdown headings. +# Minimum value: 0, maximum value: 99, default value: 5. +# This tag requires that the tag MARKDOWN_SUPPORT is set to YES. + +TOC_INCLUDE_HEADINGS = 5 + # When enabled doxygen tries to link words that correspond to documented # classes, or namespaces to their corresponding documentation. Such a link can -# be prevented in individual cases by by putting a % sign in front of the word -# or globally by setting AUTOLINK_SUPPORT to NO. +# be prevented in individual cases by putting a % sign in front of the word or +# globally by setting AUTOLINK_SUPPORT to NO. # The default value is: YES. AUTOLINK_SUPPORT = YES @@ -305,7 +364,7 @@ BUILTIN_STL_SUPPORT = NO CPP_CLI_SUPPORT = NO # Set the SIP_SUPPORT tag to YES if your project consists of sip (see: -# http://www.riverbankcomputing.co.uk/software/sip/intro) sources only. Doxygen +# https://www.riverbankcomputing.com/software/sip/intro) sources only. Doxygen # will parse them like normal C++ but will assume all classes use public instead # of private inheritance when no explicit protection keyword is present. # The default value is: NO. @@ -323,13 +382,20 @@ SIP_SUPPORT = NO IDL_PROPERTY_SUPPORT = YES # If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC -# tag is set to YES, then doxygen will reuse the documentation of the first +# tag is set to YES then doxygen will reuse the documentation of the first # member in the group (if any) for the other members of the group. By default # all members of a group must be documented explicitly. # The default value is: NO. DISTRIBUTE_GROUP_DOC = YES +# If one adds a struct or class to a group and this option is enabled, then also +# any nested class or struct is added to the same group. By default this option +# is disabled and one has to add nested compounds explicitly via \ingroup. +# The default value is: NO. + +GROUP_NESTED_COMPOUNDS = NO + # Set the SUBGROUPING tag to YES to allow class member groups of the same type # (for instance a group of public functions) to be put as a subgroup of that # type (e.g. under the Public Functions section). Set it to NO to prevent @@ -384,11 +450,24 @@ TYPEDEF_HIDES_STRUCT = NO LOOKUP_CACHE_SIZE = 0 +# The NUM_PROC_THREADS specifies the number threads doxygen is allowed to use +# during processing. When set to 0 doxygen will based this on the number of +# cores available in the system. You can set it explicitly to a value larger +# than 0 to get more control over the balance between CPU load and processing +# speed. At this moment only the input processing can be done using multiple +# threads. Since this is still an experimental feature the default is set to 1, +# which efficively disables parallel processing. Please report any issues you +# encounter. Generating dot graphs in parallel is controlled by the +# DOT_NUM_THREADS setting. +# Minimum value: 0, maximum value: 32, default value: 1. + +NUM_PROC_THREADS = 1 + #--------------------------------------------------------------------------- # Build related configuration options #--------------------------------------------------------------------------- -# If the EXTRACT_ALL tag is set to YES doxygen will assume all entities in +# If the EXTRACT_ALL tag is set to YES, doxygen will assume all entities in # documentation are documented, even if no documentation was available. Private # class members and static file members will be hidden unless the # EXTRACT_PRIVATE respectively EXTRACT_STATIC tags are set to YES. @@ -398,35 +477,41 @@ LOOKUP_CACHE_SIZE = 0 EXTRACT_ALL = NO -# If the EXTRACT_PRIVATE tag is set to YES all private members of a class will +# If the EXTRACT_PRIVATE tag is set to YES, all private members of a class will # be included in the documentation. # The default value is: NO. EXTRACT_PRIVATE = NO -# If the EXTRACT_PACKAGE tag is set to YES all members with package or internal +# If the EXTRACT_PRIV_VIRTUAL tag is set to YES, documented private virtual +# methods of a class will be included in the documentation. +# The default value is: NO. + +EXTRACT_PRIV_VIRTUAL = NO + +# If the EXTRACT_PACKAGE tag is set to YES, all members with package or internal # scope will be included in the documentation. # The default value is: NO. EXTRACT_PACKAGE = NO -# If the EXTRACT_STATIC tag is set to YES all static members of a file will be +# If the EXTRACT_STATIC tag is set to YES, all static members of a file will be # included in the documentation. # The default value is: NO. EXTRACT_STATIC = YES -# If the EXTRACT_LOCAL_CLASSES tag is set to YES classes (and structs) defined -# locally in source files will be included in the documentation. If set to NO +# If the EXTRACT_LOCAL_CLASSES tag is set to YES, classes (and structs) defined +# locally in source files will be included in the documentation. If set to NO, # only classes defined in header files are included. Does not have any effect # for Java sources. # The default value is: YES. EXTRACT_LOCAL_CLASSES = NO -# This flag is only useful for Objective-C code. When set to YES local methods, +# This flag is only useful for Objective-C code. If set to YES, local methods, # which are defined in the implementation section but not in the interface are -# included in the documentation. If set to NO only methods in the interface are +# included in the documentation. If set to NO, only methods in the interface are # included. # The default value is: NO. @@ -441,6 +526,13 @@ EXTRACT_LOCAL_METHODS = NO EXTRACT_ANON_NSPACES = YES +# If this flag is set to YES, the name of an unnamed parameter in a declaration +# will be determined by the corresponding definition. By default unnamed +# parameters remain unnamed in the output. +# The default value is: YES. + +RESOLVE_UNNAMED_PARAMS = YES + # If the HIDE_UNDOC_MEMBERS tag is set to YES, doxygen will hide all # undocumented members inside documented classes or files. If set to NO these # members will be included in the various overviews, but no documentation @@ -451,21 +543,21 @@ HIDE_UNDOC_MEMBERS = NO # If the HIDE_UNDOC_CLASSES tag is set to YES, doxygen will hide all # undocumented classes that are normally visible in the class hierarchy. If set -# to NO these classes will be included in the various overviews. This option has -# no effect if EXTRACT_ALL is enabled. +# to NO, these classes will be included in the various overviews. This option +# has no effect if EXTRACT_ALL is enabled. # The default value is: NO. HIDE_UNDOC_CLASSES = NO # If the HIDE_FRIEND_COMPOUNDS tag is set to YES, doxygen will hide all friend -# (class|struct|union) declarations. If set to NO these declarations will be -# included in the documentation. +# declarations. If set to NO, these declarations will be included in the +# documentation. # The default value is: NO. HIDE_FRIEND_COMPOUNDS = NO # If the HIDE_IN_BODY_DOCS tag is set to YES, doxygen will hide any -# documentation blocks found inside the body of a function. If set to NO these +# documentation blocks found inside the body of a function. If set to NO, these # blocks will be appended to the function's detailed documentation block. # The default value is: NO. @@ -478,22 +570,36 @@ HIDE_IN_BODY_DOCS = NO INTERNAL_DOCS = NO -# If the CASE_SENSE_NAMES tag is set to NO then doxygen will only generate file -# names in lower-case letters. If set to YES upper-case letters are also -# allowed. This is useful if you have classes or files whose names only differ -# in case and if your file system supports case sensitive file names. Windows -# and Mac users are advised to set this option to NO. +# With the correct setting of option CASE_SENSE_NAMES doxygen will better be +# able to match the capabilities of the underlying filesystem. In case the +# filesystem is case sensitive (i.e. it supports files in the same directory +# whose names only differ in casing), the option must be set to YES to properly +# deal with such files in case they appear in the input. For filesystems that +# are not case sensitive the option should be be set to NO to properly deal with +# output files written for symbols that only differ in casing, such as for two +# classes, one named CLASS and the other named Class, and to also support +# references to files without having to specify the exact matching casing. On +# Windows (including Cygwin) and MacOS, users should typically set this option +# to NO, whereas on Linux or other Unix flavors it should typically be set to +# YES. # The default value is: system dependent. CASE_SENSE_NAMES = YES # If the HIDE_SCOPE_NAMES tag is set to NO then doxygen will show members with -# their full class and namespace scopes in the documentation. If set to YES the +# their full class and namespace scopes in the documentation. If set to YES, the # scope will be hidden. # The default value is: NO. HIDE_SCOPE_NAMES = NO +# If the HIDE_COMPOUND_REFERENCE tag is set to NO (default) then doxygen will +# append additional text to a page's title, such as Class Reference. If set to +# YES the compound reference will be hidden. +# The default value is: NO. + +HIDE_COMPOUND_REFERENCE= NO + # If the SHOW_INCLUDE_FILES tag is set to YES then doxygen will put a list of # the files that are included by a file in the documentation of that file. # The default value is: YES. @@ -521,14 +627,14 @@ INLINE_INFO = YES # If the SORT_MEMBER_DOCS tag is set to YES then doxygen will sort the # (detailed) documentation of file and class members alphabetically by member -# name. If set to NO the members will appear in declaration order. +# name. If set to NO, the members will appear in declaration order. # The default value is: YES. SORT_MEMBER_DOCS = YES # If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the brief # descriptions of file, namespace and class members alphabetically by member -# name. If set to NO the members will appear in declaration order. Note that +# name. If set to NO, the members will appear in declaration order. Note that # this will also influence the order of the classes in the class list. # The default value is: NO. @@ -573,27 +679,25 @@ SORT_BY_SCOPE_NAME = NO STRICT_PROTO_MATCHING = NO -# The GENERATE_TODOLIST tag can be used to enable ( YES) or disable ( NO) the -# todo list. This list is created by putting \todo commands in the -# documentation. +# The GENERATE_TODOLIST tag can be used to enable (YES) or disable (NO) the todo +# list. This list is created by putting \todo commands in the documentation. # The default value is: YES. GENERATE_TODOLIST = NO -# The GENERATE_TESTLIST tag can be used to enable ( YES) or disable ( NO) the -# test list. This list is created by putting \test commands in the -# documentation. +# The GENERATE_TESTLIST tag can be used to enable (YES) or disable (NO) the test +# list. This list is created by putting \test commands in the documentation. # The default value is: YES. GENERATE_TESTLIST = NO -# The GENERATE_BUGLIST tag can be used to enable ( YES) or disable ( NO) the bug +# The GENERATE_BUGLIST tag can be used to enable (YES) or disable (NO) the bug # list. This list is created by putting \bug commands in the documentation. # The default value is: YES. GENERATE_BUGLIST = NO -# The GENERATE_DEPRECATEDLIST tag can be used to enable ( YES) or disable ( NO) +# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or disable (NO) # the deprecated list. This list is created by putting \deprecated commands in # the documentation. # The default value is: YES. @@ -618,8 +722,8 @@ ENABLED_SECTIONS = MAX_INITIALIZER_LINES = 30 # Set the SHOW_USED_FILES tag to NO to disable the list of files generated at -# the bottom of the documentation of classes and structs. If set to YES the list -# will mention the files that were used to generate the documentation. +# the bottom of the documentation of classes and structs. If set to YES, the +# list will mention the files that were used to generate the documentation. # The default value is: YES. SHOW_USED_FILES = YES @@ -659,16 +763,15 @@ FILE_VERSION_FILTER = # DoxygenLayout.xml, doxygen will parse it automatically even if the LAYOUT_FILE # tag is left empty. -LAYOUT_FILE = +LAYOUT_FILE = # The CITE_BIB_FILES tag can be used to specify one or more bib files containing # the reference definitions. This must be a list of .bib files. The .bib # extension is automatically appended if omitted. This requires the bibtex tool -# to be installed. See also http://en.wikipedia.org/wiki/BibTeX for more info. +# to be installed. See also https://en.wikipedia.org/wiki/BibTeX for more info. # For LaTeX the style of the bibliography can be controlled using # LATEX_BIB_STYLE. To use this feature you need bibtex and perl available in the -# search path. Do not use file names with spaces, bibtex cannot handle them. See -# also \cite for info how to create references. +# search path. See also \cite for info how to create references. CITE_BIB_FILES = @@ -684,21 +787,20 @@ CITE_BIB_FILES = QUIET = NO # The WARNINGS tag can be used to turn on/off the warning messages that are -# generated to standard error ( stderr) by doxygen. If WARNINGS is set to YES +# generated to standard error (stderr) by doxygen. If WARNINGS is set to YES # this implies that the warnings are on. # # Tip: Turn warnings on while writing the documentation. # The default value is: YES. WARNINGS = YES -WARN_AS_ERROR = YES -# If the WARN_IF_UNDOCUMENTED tag is set to YES, then doxygen will generate +# If the WARN_IF_UNDOCUMENTED tag is set to YES then doxygen will generate # warnings for undocumented members. If EXTRACT_ALL is set to YES then this flag # will automatically be disabled. # The default value is: YES. -WARN_IF_UNDOCUMENTED = NO +WARN_IF_UNDOCUMENTED = YES # If the WARN_IF_DOC_ERROR tag is set to YES, doxygen will generate warnings for # potential errors in the documentation, such as not documenting some parameters @@ -710,12 +812,22 @@ WARN_IF_DOC_ERROR = YES # This WARN_NO_PARAMDOC option can be enabled to get warnings for functions that # are documented, but have no documentation for their parameters or return -# value. If set to NO doxygen will only warn about wrong or incomplete parameter -# documentation, but not about the absence of documentation. +# value. If set to NO, doxygen will only warn about wrong or incomplete +# parameter documentation, but not about the absence of documentation. If +# EXTRACT_ALL is set to YES then this flag will automatically be disabled. # The default value is: NO. WARN_NO_PARAMDOC = YES +# If the WARN_AS_ERROR tag is set to YES then doxygen will immediately stop when +# a warning is encountered. If the WARN_AS_ERROR tag is set to FAIL_ON_WARNINGS +# then doxygen will continue running as if WARN_AS_ERROR tag is set to NO, but +# at the end of the doxygen process doxygen will return with a non-zero status. +# Possible values are: NO, YES and FAIL_ON_WARNINGS. +# The default value is: NO. + +WARN_AS_ERROR = NO + # The WARN_FORMAT tag determines the format of the warning messages that doxygen # can produce. The string should contain the $file, $line, and $text tags, which # will be replaced by the file and line number from which the warning originated @@ -739,30 +851,46 @@ WARN_LOGFILE = # The INPUT tag is used to specify the files and/or directories that contain # documented source files. You may enter file names like myfile.cpp or # directories like /usr/src/myproject. Separate the files or directories with -# spaces. +# spaces. See also FILE_PATTERNS and EXTENSION_MAPPING # Note: If this tag is empty the current directory is searched. -INPUT = @abs_top_srcdir@/docs/user_guide.md @abs_top_srcdir@/sorc/ncep_post.fd @config_srcdir@ +INPUT = @abs_top_srcdir@/docs/user_guide.md \ + @abs_top_srcdir@/sorc/ncep_post.fd \ + @config_srcdir@ # This tag can be used to specify the character encoding of the source files # that doxygen parses. Internally doxygen uses the UTF-8 encoding. Doxygen uses # libiconv (or the iconv built into libc) for the transcoding. See the libiconv -# documentation (see: http://www.gnu.org/software/libiconv) for the list of -# possible encodings. +# documentation (see: +# https://www.gnu.org/software/libiconv/) for the list of possible encodings. # The default value is: UTF-8. INPUT_ENCODING = UTF-8 # If the value of the INPUT tag contains directories, you can use the # FILE_PATTERNS tag to specify one or more wildcard patterns (like *.cpp and -# *.h) to filter out the source-files in the directories. If left blank the -# following patterns are tested:*.c, *.cc, *.cxx, *.cpp, *.c++, *.java, *.ii, -# *.ixx, *.ipp, *.i++, *.inl, *.idl, *.ddl, *.odl, *.h, *.hh, *.hxx, *.hpp, -# *.h++, *.cs, *.d, *.php, *.php4, *.php5, *.phtml, *.inc, *.m, *.markdown, -# *.md, *.mm, *.dox, *.py, *.f90, *.f, *.for, *.tcl, *.vhd, *.vhdl, *.ucf, -# *.qsf, *.as and *.js. - -FILE_PATTERNS = *.F90 *.f90 *.f *.F *.c *.h +# *.h) to filter out the source-files in the directories. +# +# Note that for custom extensions or not directly supported extensions you also +# need to set EXTENSION_MAPPING for the extension otherwise the files are not +# read by doxygen. +# +# Note the list of default checked file patterns might differ from the list of +# default file extension mappings. +# +# If left blank the following patterns are tested:*.c, *.cc, *.cxx, *.cpp, +# *.c++, *.java, *.ii, *.ixx, *.ipp, *.i++, *.inl, *.idl, *.ddl, *.odl, *.h, +# *.hh, *.hxx, *.hpp, *.h++, *.cs, *.d, *.php, *.php4, *.php5, *.phtml, *.inc, +# *.m, *.markdown, *.md, *.mm, *.dox (to be provided as doxygen C comment), +# *.py, *.pyw, *.f90, *.f95, *.f03, *.f08, *.f18, *.f, *.for, *.vhd, *.vhdl, +# *.ucf, *.qsf and *.ice. + +FILE_PATTERNS = *.F90 \ + *.f90 \ + *.f \ + *.F \ + *.c \ + *.h # The RECURSIVE tag can be used to specify whether or not subdirectories should # be searched for input files as well. @@ -810,7 +938,7 @@ EXCLUDE_SYMBOLS = # that contain example code fragments that are included (see the \include # command). -EXAMPLE_PATH = +EXAMPLE_PATH = # If the value of the EXAMPLE_PATH tag contains directories, you can use the # EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp and @@ -830,7 +958,7 @@ EXAMPLE_RECURSIVE = NO # that contain images that are to be included in the documentation (see the # \image command). -IMAGE_PATH = +IMAGE_PATH = # The INPUT_FILTER tag can be used to specify a program that doxygen should # invoke to filter for each input file. Doxygen will invoke the filter program @@ -846,6 +974,10 @@ IMAGE_PATH = # Note that the filter must not add or remove lines; it is applied before the # code is scanned, but not when the output code is generated. If lines are added # or removed, the anchors will not be placed correctly. +# +# Note that for custom extensions or not directly supported extensions you also +# need to set EXTENSION_MAPPING for the extension otherwise the files are not +# properly processed by doxygen. INPUT_FILTER = @@ -855,11 +987,15 @@ INPUT_FILTER = # (like *.cpp=my_cpp_filter). See INPUT_FILTER for further information on how # filters are used. If the FILTER_PATTERNS tag is empty or if none of the # patterns match the file name, INPUT_FILTER is applied. +# +# Note that for custom extensions or not directly supported extensions you also +# need to set EXTENSION_MAPPING for the extension otherwise the files are not +# properly processed by doxygen. FILTER_PATTERNS = # If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using -# INPUT_FILTER ) will also be used to filter the input files that are used for +# INPUT_FILTER) will also be used to filter the input files that are used for # producing the source files to browse (i.e. when SOURCE_BROWSER is set to YES). # The default value is: NO. @@ -878,7 +1014,7 @@ FILTER_SOURCE_PATTERNS = # (index.html). This can be useful if you have a project on for instance GitHub # and want to reuse the introduction page also for the doxygen output. -USE_MDFILE_AS_MAINPAGE = @abs_top_srcdir@/docs/sp_user_guide.md +USE_MDFILE_AS_MAINPAGE = @abs_top_srcdir@/docs/sp_user_guide.md #--------------------------------------------------------------------------- # Configuration options related to source browsing @@ -907,19 +1043,19 @@ INLINE_SOURCES = NO STRIP_CODE_COMMENTS = YES # If the REFERENCED_BY_RELATION tag is set to YES then for each documented -# function all documented functions referencing it will be listed. +# entity all documented functions referencing it will be listed. # The default value is: NO. -REFERENCED_BY_RELATION = NO +REFERENCED_BY_RELATION = YES # If the REFERENCES_RELATION tag is set to YES then for each documented function # all documented entities called/used by that function will be listed. # The default value is: NO. -REFERENCES_RELATION = NO +REFERENCES_RELATION = YES # If the REFERENCES_LINK_SOURCE tag is set to YES and SOURCE_BROWSER tag is set -# to YES, then the hyperlinks from functions in REFERENCES_RELATION and +# to YES then the hyperlinks from functions in REFERENCES_RELATION and # REFERENCED_BY_RELATION lists will link to the source code. Otherwise they will # link to the documentation. # The default value is: YES. @@ -939,12 +1075,12 @@ SOURCE_TOOLTIPS = YES # If the USE_HTAGS tag is set to YES then the references to source code will # point to the HTML generated by the htags(1) tool instead of doxygen built-in # source browser. The htags tool is part of GNU's global source tagging system -# (see http://www.gnu.org/software/global/global.html). You will need version +# (see https://www.gnu.org/software/global/global.html). You will need version # 4.8.6 or higher. # # To use it do the following: # - Install the latest version of global -# - Enable SOURCE_BROWSER and USE_HTAGS in the config file +# - Enable SOURCE_BROWSER and USE_HTAGS in the configuration file # - Make sure the INPUT points to the root of the source tree # - Run doxygen as normal # @@ -966,16 +1102,22 @@ USE_HTAGS = NO VERBATIM_HEADERS = YES -# If the CLANG_ASSISTED_PARSING tag is set to YES, then doxygen will use the -# clang parser (see: http://clang.llvm.org/) for more accurate parsing at the -# cost of reduced performance. This can be particularly helpful with template -# rich C++ code for which doxygen's built-in parser lacks the necessary type -# information. +# If the CLANG_ASSISTED_PARSING tag is set to YES then doxygen will use the +# clang parser (see: +# http://clang.llvm.org/) for more accurate parsing at the cost of reduced +# performance. This can be particularly helpful with template rich C++ code for +# which doxygen's built-in parser lacks the necessary type information. # Note: The availability of this option depends on whether or not doxygen was -# compiled with the --with-libclang option. +# generated with the -Duse_libclang=ON option for CMake. # The default value is: NO. -# CLANG_ASSISTED_PARSING = NO +CLANG_ASSISTED_PARSING = NO + +# If clang assisted parsing is enabled and the CLANG_ADD_INC_PATHS tag is set to +# YES then doxygen will add the directory of each input to the include path. +# The default value is: YES. + +CLANG_ADD_INC_PATHS = YES # If clang assisted parsing is enabled you can provide the compiler with command # line options that you would normally use when invoking the compiler. Note that @@ -983,7 +1125,20 @@ VERBATIM_HEADERS = YES # specified with INPUT and INCLUDE_PATH. # This tag requires that the tag CLANG_ASSISTED_PARSING is set to YES. -# CLANG_OPTIONS = +CLANG_OPTIONS = + +# If clang assisted parsing is enabled you can provide the clang parser with the +# path to the directory containing a file called compile_commands.json. This +# file is the compilation database (see: +# http://clang.llvm.org/docs/HowToSetupToolingForLLVM.html) containing the +# options used when the source files were built. This is equivalent to +# specifying the -p option to a clang tool, such as clang-check. These options +# will then be passed to the parser. Any options specified with CLANG_OPTIONS +# will be added as well. +# Note: The availability of this option depends on whether or not doxygen was +# generated with the -Duse_libclang=ON option for CMake. + +CLANG_DATABASE_PATH = #--------------------------------------------------------------------------- # Configuration options related to the alphabetical class index @@ -996,13 +1151,6 @@ VERBATIM_HEADERS = YES ALPHABETICAL_INDEX = NO -# The COLS_IN_ALPHA_INDEX tag can be used to specify the number of columns in -# which the alphabetical index list will be split. -# Minimum value: 1, maximum value: 20, default value: 5. -# This tag requires that the tag ALPHABETICAL_INDEX is set to YES. - -COLS_IN_ALPHA_INDEX = 5 - # In case all classes in a project start with a common prefix, all classes will # be put under the same header in the alphabetical index. The IGNORE_PREFIX tag # can be used to specify a prefix (or a list of prefixes) that should be ignored @@ -1015,7 +1163,7 @@ IGNORE_PREFIX = # Configuration options related to the HTML output #--------------------------------------------------------------------------- -# If the GENERATE_HTML tag is set to YES doxygen will generate HTML output +# If the GENERATE_HTML tag is set to YES, doxygen will generate HTML output # The default value is: YES. GENERATE_HTML = YES @@ -1053,7 +1201,7 @@ HTML_FILE_EXTENSION = .html # of the possible markers and block names see the documentation. # This tag requires that the tag GENERATE_HTML is set to YES. -HTML_HEADER = +HTML_HEADER = # The HTML_FOOTER tag can be used to specify a user-defined HTML footer for each # generated HTML page. If the tag is left blank doxygen will generate a standard @@ -1063,7 +1211,7 @@ HTML_HEADER = # that doxygen normally uses. # This tag requires that the tag GENERATE_HTML is set to YES. -HTML_FOOTER = +HTML_FOOTER = # The HTML_STYLESHEET tag can be used to specify a user-defined cascading style # sheet that is used by each HTML page. It can be used to fine-tune the look of @@ -1077,22 +1225,18 @@ HTML_FOOTER = HTML_STYLESHEET = -# The HTML_EXTRA_STYLESHEET tag can be used to specify an additional user- -# defined cascading style sheet that is included after the standard style sheets +# The HTML_EXTRA_STYLESHEET tag can be used to specify additional user-defined +# cascading style sheets that are included after the standard style sheets # created by doxygen. Using this option one can overrule certain style aspects. # This is preferred over using HTML_STYLESHEET since it does not replace the # standard style sheet and is therefore more robust against future updates. -# Doxygen will copy the style sheet file to the output directory. For an example -# see the documentation. +# Doxygen will copy the style sheet files to the output directory. +# Note: The order of the extra style sheet files is of importance (e.g. the last +# style sheet in the list overrules the setting of the previous ones in the +# list). For an example see the documentation. # This tag requires that the tag GENERATE_HTML is set to YES. -HTML_EXTRA_STYLESHEET = - -# If the HTML_ALIGN_MEMBERS tag is set to YES, the members of classes, -# files or namespaces will be aligned in HTML using tables. If set to -# NO a bullet list will be used. - -# HTML_ALIGN_MEMBERS = YES +HTML_EXTRA_STYLESHEET = # The HTML_EXTRA_FILES tag can be used to specify one or more extra images or # other source files which should be copied to the HTML output directory. Note @@ -1105,9 +1249,9 @@ HTML_EXTRA_STYLESHEET = HTML_EXTRA_FILES = # The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. Doxygen -# will adjust the colors in the stylesheet and background images according to +# will adjust the colors in the style sheet and background images according to # this color. Hue is specified as an angle on a colorwheel, see -# http://en.wikipedia.org/wiki/Hue for more information. For instance the value +# https://en.wikipedia.org/wiki/Hue for more information. For instance the value # 0 represents red, 60 is yellow, 120 is green, 180 is cyan, 240 is blue, 300 # purple, and 360 is red again. # Minimum value: 0, maximum value: 359, default value: 220. @@ -1136,12 +1280,24 @@ HTML_COLORSTYLE_GAMMA = 80 # If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML # page will contain the date and time when the page was generated. Setting this -# to NO can help when comparing the output of multiple runs. -# The default value is: YES. +# to YES can help to show when doxygen was last run and thus if the +# documentation is up to date. +# The default value is: NO. # This tag requires that the tag GENERATE_HTML is set to YES. HTML_TIMESTAMP = NO +# If the HTML_DYNAMIC_MENUS tag is set to YES then the generated HTML +# documentation will contain a main index with vertical navigation menus that +# are dynamically created via JavaScript. If disabled, the navigation index will +# consists of multiple levels of tabs that are statically embedded in every HTML +# page. Disable this option to support browsers that do not have JavaScript, +# like the Qt help browser. +# The default value is: YES. +# This tag requires that the tag GENERATE_HTML is set to YES. + +HTML_DYNAMIC_MENUS = YES + # If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML # documentation will contain sections that can be hidden and shown after the # page has loaded. @@ -1165,13 +1321,14 @@ HTML_INDEX_NUM_ENTRIES = 100 # If the GENERATE_DOCSET tag is set to YES, additional index files will be # generated that can be used as input for Apple's Xcode 3 integrated development -# environment (see: http://developer.apple.com/tools/xcode/), introduced with -# OSX 10.5 (Leopard). To create a documentation set, doxygen will generate a -# Makefile in the HTML output directory. Running make will produce the docset in -# that directory and running make install will install the docset in +# environment (see: +# https://developer.apple.com/xcode/), introduced with OSX 10.5 (Leopard). To +# create a documentation set, doxygen will generate a Makefile in the HTML +# output directory. Running make will produce the docset in that directory and +# running make install will install the docset in # ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find it at -# startup. See http://developer.apple.com/tools/creatingdocsetswithdoxygen.html -# for more information. +# startup. See https://developer.apple.com/library/archive/featuredarticles/Doxy +# genXcode/_index.html for more information. # The default value is: NO. # This tag requires that the tag GENERATE_HTML is set to YES. @@ -1210,8 +1367,8 @@ DOCSET_PUBLISHER_NAME = Publisher # If the GENERATE_HTMLHELP tag is set to YES then doxygen generates three # additional HTML index files: index.hhp, index.hhc, and index.hhk. The # index.hhp is a project file that can be read by Microsoft's HTML Help Workshop -# (see: http://www.microsoft.com/en-us/download/details.aspx?id=21138) on -# Windows. +# (see: +# https://www.microsoft.com/en-us/download/details.aspx?id=21138) on Windows. # # The HTML Help Workshop contains a compiler that can convert all HTML output # generated by doxygen into a single compiled HTML file (.chm). Compiled HTML @@ -1233,28 +1390,29 @@ GENERATE_HTMLHELP = NO CHM_FILE = # The HHC_LOCATION tag can be used to specify the location (absolute path -# including file name) of the HTML help compiler ( hhc.exe). If non-empty +# including file name) of the HTML help compiler (hhc.exe). If non-empty, # doxygen will try to run the HTML help compiler on the generated index.hhp. # The file has to be specified with full path. # This tag requires that the tag GENERATE_HTMLHELP is set to YES. HHC_LOCATION = -# The GENERATE_CHI flag controls if a separate .chi index file is generated ( -# YES) or that it should be included in the master .chm file ( NO). +# The GENERATE_CHI flag controls if a separate .chi index file is generated +# (YES) or that it should be included in the main .chm file (NO). # The default value is: NO. # This tag requires that the tag GENERATE_HTMLHELP is set to YES. GENERATE_CHI = NO -# The CHM_INDEX_ENCODING is used to encode HtmlHelp index ( hhk), content ( hhc) +# The CHM_INDEX_ENCODING is used to encode HtmlHelp index (hhk), content (hhc) # and project file content. # This tag requires that the tag GENERATE_HTMLHELP is set to YES. CHM_INDEX_ENCODING = -# The BINARY_TOC flag controls whether a binary table of contents is generated ( -# YES) or a normal table of contents ( NO) in the .chm file. +# The BINARY_TOC flag controls whether a binary table of contents is generated +# (YES) or a normal table of contents (NO) in the .chm file. Furthermore it +# enables the Previous and Next buttons. # The default value is: NO. # This tag requires that the tag GENERATE_HTMLHELP is set to YES. @@ -1285,7 +1443,8 @@ QCH_FILE = # The QHP_NAMESPACE tag specifies the namespace to use when generating Qt Help # Project output. For more information please see Qt Help Project / Namespace -# (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#namespace). +# (see: +# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#namespace). # The default value is: org.doxygen.Project. # This tag requires that the tag GENERATE_QHP is set to YES. @@ -1293,8 +1452,8 @@ QHP_NAMESPACE = org.doxygen.Project # The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating Qt # Help Project output. For more information please see Qt Help Project / Virtual -# Folders (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#virtual- -# folders). +# Folders (see: +# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#virtual-folders). # The default value is: doc. # This tag requires that the tag GENERATE_QHP is set to YES. @@ -1302,30 +1461,30 @@ QHP_VIRTUAL_FOLDER = doc # If the QHP_CUST_FILTER_NAME tag is set, it specifies the name of a custom # filter to add. For more information please see Qt Help Project / Custom -# Filters (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#custom- -# filters). +# Filters (see: +# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#custom-filters). # This tag requires that the tag GENERATE_QHP is set to YES. QHP_CUST_FILTER_NAME = # The QHP_CUST_FILTER_ATTRS tag specifies the list of the attributes of the # custom filter to add. For more information please see Qt Help Project / Custom -# Filters (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#custom- -# filters). +# Filters (see: +# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#custom-filters). # This tag requires that the tag GENERATE_QHP is set to YES. QHP_CUST_FILTER_ATTRS = # The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this # project's filter section matches. Qt Help Project / Filter Attributes (see: -# http://qt-project.org/doc/qt-4.8/qthelpproject.html#filter-attributes). +# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#filter-attributes). # This tag requires that the tag GENERATE_QHP is set to YES. QHP_SECT_FILTER_ATTRS = -# The QHG_LOCATION tag can be used to specify the location of Qt's -# qhelpgenerator. If non-empty doxygen will try to run qhelpgenerator on the -# generated .qhp file. +# The QHG_LOCATION tag can be used to specify the location (absolute path +# including file name) of Qt's qhelpgenerator. If non-empty doxygen will try to +# run qhelpgenerator on the generated .qhp file. # This tag requires that the tag GENERATE_QHP is set to YES. QHG_LOCATION = @@ -1362,12 +1521,19 @@ ECLIPSE_DOC_ID = org.doxygen.Project DISABLE_INDEX = NO # The GENERATE_TREEVIEW tag is used to specify whether a tree-like index -# structure should be generated to display hierarchical information. -# If the tag value is set to YES, a side panel will be generated -# containing a tree-like index structure (just like the one that -# is generated for HTML Help). For this to work a browser that supports -# JavaScript, DHTML, CSS and frames is required (i.e. any modern browser). -# Windows users are probably better off using the HTML help feature. +# structure should be generated to display hierarchical information. If the tag +# value is set to YES, a side panel will be generated containing a tree-like +# index structure (just like the one that is generated for HTML Help). For this +# to work a browser that supports JavaScript, DHTML, CSS and frames is required +# (i.e. any modern browser). Windows users are probably better off using the +# HTML help feature. Via custom style sheets (see HTML_EXTRA_STYLESHEET) one can +# further fine-tune the look of the index. As an example, the default style +# sheet generated by doxygen has an example that shows how to put an image at +# the root of the tree instead of the PROJECT_NAME. Since the tree basically has +# the same information as the tab index, you could consider setting +# DISABLE_INDEX to YES when enabling this option. +# The default value is: NO. +# This tag requires that the tag GENERATE_HTML is set to YES. GENERATE_TREEVIEW = YES @@ -1388,13 +1554,24 @@ ENUM_VALUES_PER_LINE = 4 TREEVIEW_WIDTH = 250 -# When the EXT_LINKS_IN_WINDOW option is set to YES doxygen will open links to +# If the EXT_LINKS_IN_WINDOW option is set to YES, doxygen will open links to # external symbols imported via tag files in a separate window. # The default value is: NO. # This tag requires that the tag GENERATE_HTML is set to YES. EXT_LINKS_IN_WINDOW = NO +# If the HTML_FORMULA_FORMAT option is set to svg, doxygen will use the pdf2svg +# tool (see https://github.com/dawbarton/pdf2svg) or inkscape (see +# https://inkscape.org) to generate formulas as SVG images instead of PNGs for +# the HTML output. These images will generally look nicer at scaled resolutions. +# Possible values are: png (the default) and svg (looks nicer but requires the +# pdf2svg or inkscape tool). +# The default value is: png. +# This tag requires that the tag GENERATE_HTML is set to YES. + +HTML_FORMULA_FORMAT = png + # Use this tag to change the font size of LaTeX formulas included as images in # the HTML documentation. When you change the font size after a successful # doxygen run you need to manually remove any form_*.png images from the HTML @@ -1404,7 +1581,7 @@ EXT_LINKS_IN_WINDOW = NO FORMULA_FONTSIZE = 10 -# Use the FORMULA_TRANPARENT tag to determine whether or not the images +# Use the FORMULA_TRANSPARENT tag to determine whether or not the images # generated for formulas are transparent PNGs. Transparent PNGs are not # supported properly for IE 6.0, but are supported on all modern browsers. # @@ -1415,9 +1592,15 @@ FORMULA_FONTSIZE = 10 FORMULA_TRANSPARENT = YES +# The FORMULA_MACROFILE can contain LaTeX \newcommand and \renewcommand commands +# to create new LaTeX commands to be used in formulas as building blocks. See +# the section "Including formulas" for details. + +FORMULA_MACROFILE = + # Enable the USE_MATHJAX option to render LaTeX formulas using MathJax (see -# http://www.mathjax.org) which uses client side Javascript for the rendering -# instead of using prerendered bitmaps. Use this if you do not have LaTeX +# https://www.mathjax.org) which uses client side JavaScript for the rendering +# instead of using pre-rendered bitmaps. Use this if you do not have LaTeX # installed or if you want to formulas look prettier in the HTML output. When # enabled you may also need to install MathJax separately and configure the path # to it using the MATHJAX_RELPATH option. @@ -1428,7 +1611,7 @@ USE_MATHJAX = NO # When MathJax is enabled you can set the default output format to be used for # the MathJax output. See the MathJax site (see: -# http://docs.mathjax.org/en/latest/output.html) for more details. +# http://docs.mathjax.org/en/v2.7-latest/output.html) for more details. # Possible values are: HTML-CSS (which is slower, but has the best # compatibility), NativeMML (i.e. MathML) and SVG. # The default value is: HTML-CSS. @@ -1443,8 +1626,8 @@ MATHJAX_FORMAT = HTML-CSS # MATHJAX_RELPATH should be ../mathjax. The default value points to the MathJax # Content Delivery Network so you can quickly see the result without installing # MathJax. However, it is strongly recommended to install a local copy of -# MathJax from http://www.mathjax.org before deployment. -# The default value is: http://cdn.mathjax.org/mathjax/latest. +# MathJax from https://www.mathjax.org before deployment. +# The default value is: https://cdn.jsdelivr.net/npm/mathjax@2. # This tag requires that the tag USE_MATHJAX is set to YES. MATHJAX_RELPATH = http://cdn.mathjax.org/mathjax/latest @@ -1458,7 +1641,8 @@ MATHJAX_EXTENSIONS = # The MATHJAX_CODEFILE tag can be used to specify a file with javascript pieces # of code that will be used on startup of the MathJax code. See the MathJax site -# (see: http://docs.mathjax.org/en/latest/output.html) for more details. For an +# (see: +# http://docs.mathjax.org/en/v2.7-latest/output.html) for more details. For an # example see the documentation. # This tag requires that the tag USE_MATHJAX is set to YES. @@ -1486,12 +1670,12 @@ MATHJAX_CODEFILE = SEARCHENGINE = YES # When the SERVER_BASED_SEARCH tag is enabled the search engine will be -# implemented using a web server instead of a web client using Javascript. There -# are two flavours of web server based searching depending on the -# EXTERNAL_SEARCH setting. When disabled, doxygen will generate a PHP script for -# searching and an index file used by the script. When EXTERNAL_SEARCH is -# enabled the indexing and searching needs to be provided by external tools. See -# the section "External Indexing and Searching" for details. +# implemented using a web server instead of a web client using JavaScript. There +# are two flavors of web server based searching depending on the EXTERNAL_SEARCH +# setting. When disabled, doxygen will generate a PHP script for searching and +# an index file used by the script. When EXTERNAL_SEARCH is enabled the indexing +# and searching needs to be provided by external tools. See the section +# "External Indexing and Searching" for details. # The default value is: NO. # This tag requires that the tag SEARCHENGINE is set to YES. @@ -1503,9 +1687,10 @@ SERVER_BASED_SEARCH = NO # external search engine pointed to by the SEARCHENGINE_URL option to obtain the # search results. # -# Doxygen ships with an example indexer ( doxyindexer) and search engine +# Doxygen ships with an example indexer (doxyindexer) and search engine # (doxysearch.cgi) which are based on the open source search engine library -# Xapian (see: http://xapian.org/). +# Xapian (see: +# https://xapian.org/). # # See the section "External Indexing and Searching" for details. # The default value is: NO. @@ -1516,10 +1701,11 @@ EXTERNAL_SEARCH = NO # The SEARCHENGINE_URL should point to a search engine hosted by a web server # which will return the search results when EXTERNAL_SEARCH is enabled. # -# Doxygen ships with an example indexer ( doxyindexer) and search engine +# Doxygen ships with an example indexer (doxyindexer) and search engine # (doxysearch.cgi) which are based on the open source search engine library -# Xapian (see: http://xapian.org/). See the section "External Indexing and -# Searching" for details. +# Xapian (see: +# https://xapian.org/). See the section "External Indexing and Searching" for +# details. # This tag requires that the tag SEARCHENGINE is set to YES. SEARCHENGINE_URL = @@ -1554,7 +1740,7 @@ EXTRA_SEARCH_MAPPINGS = # Configuration options related to the LaTeX output #--------------------------------------------------------------------------- -# If the GENERATE_LATEX tag is set to YES doxygen will generate LaTeX output. +# If the GENERATE_LATEX tag is set to YES, doxygen will generate LaTeX output. # The default value is: YES. GENERATE_LATEX = YES @@ -1570,22 +1756,36 @@ LATEX_OUTPUT = latex_main # The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be # invoked. # -# Note that when enabling USE_PDFLATEX this option is only used for generating -# bitmaps for formulas in the HTML output, but not in the Makefile that is -# written to the output directory. -# The default file is: latex. +# Note that when not enabling USE_PDFLATEX the default is latex when enabling +# USE_PDFLATEX the default is pdflatex and when in the later case latex is +# chosen this is overwritten by pdflatex. For specific output languages the +# default can have been set differently, this depends on the implementation of +# the output language. # This tag requires that the tag GENERATE_LATEX is set to YES. LATEX_CMD_NAME = latex # The MAKEINDEX_CMD_NAME tag can be used to specify the command name to generate # index for LaTeX. +# Note: This tag is used in the Makefile / make.bat. +# See also: LATEX_MAKEINDEX_CMD for the part in the generated output file +# (.tex). # The default file is: makeindex. # This tag requires that the tag GENERATE_LATEX is set to YES. MAKEINDEX_CMD_NAME = makeindex -# If the COMPACT_LATEX tag is set to YES doxygen generates more compact LaTeX +# The LATEX_MAKEINDEX_CMD tag can be used to specify the command name to +# generate index for LaTeX. In case there is no backslash (\) as first character +# it will be automatically added in the LaTeX code. +# Note: This tag is used in the generated output file (.tex). +# See also: MAKEINDEX_CMD_NAME for the part in the Makefile / make.bat. +# The default value is: makeindex. +# This tag requires that the tag GENERATE_LATEX is set to YES. + +LATEX_MAKEINDEX_CMD = makeindex + +# If the COMPACT_LATEX tag is set to YES, doxygen generates more compact LaTeX # documents. This may be useful for small projects and may help to save some # trees in general. # The default value is: NO. @@ -1603,9 +1803,12 @@ COMPACT_LATEX = NO PAPER_TYPE = a4wide # The EXTRA_PACKAGES tag can be used to specify one or more LaTeX package names -# that should be included in the LaTeX output. To get the times font for -# instance you can specify -# EXTRA_PACKAGES=times +# that should be included in the LaTeX output. The package can be specified just +# by its name or with the correct syntax as to be used with the LaTeX +# \usepackage command. To get the times font for instance you can specify : +# EXTRA_PACKAGES=times or EXTRA_PACKAGES={times} +# To use the option intlimits with the amsmath package you can specify: +# EXTRA_PACKAGES=[intlimits]{amsmath} # If left blank no extra packages will be included. # This tag requires that the tag GENERATE_LATEX is set to YES. @@ -1619,23 +1822,36 @@ EXTRA_PACKAGES = # # Note: Only use a user-defined header if you know what you are doing! The # following commands have a special meaning inside the header: $title, -# $datetime, $date, $doxygenversion, $projectname, $projectnumber. Doxygen will -# replace them by respectively the title of the page, the current date and time, -# only the current date, the version number of doxygen, the project name (see -# PROJECT_NAME), or the project number (see PROJECT_NUMBER). +# $datetime, $date, $doxygenversion, $projectname, $projectnumber, +# $projectbrief, $projectlogo. Doxygen will replace $title with the empty +# string, for the replacement values of the other commands the user is referred +# to HTML_HEADER. # This tag requires that the tag GENERATE_LATEX is set to YES. LATEX_HEADER = # The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for the # generated LaTeX document. The footer should contain everything after the last -# chapter. If it is left blank doxygen will generate a standard footer. +# chapter. If it is left blank doxygen will generate a standard footer. See +# LATEX_HEADER for more information on how to generate a default footer and what +# special commands can be used inside the footer. # # Note: Only use a user-defined footer if you know what you are doing! # This tag requires that the tag GENERATE_LATEX is set to YES. LATEX_FOOTER = +# The LATEX_EXTRA_STYLESHEET tag can be used to specify additional user-defined +# LaTeX style sheets that are included after the standard style sheets created +# by doxygen. Using this option one can overrule certain style aspects. Doxygen +# will copy the style sheet files to the output directory. +# Note: The order of the extra style sheet files is of importance (e.g. the last +# style sheet in the list overrules the setting of the previous ones in the +# list). +# This tag requires that the tag GENERATE_LATEX is set to YES. + +LATEX_EXTRA_STYLESHEET = + # The LATEX_EXTRA_FILES tag can be used to specify one or more extra images or # other source files which should be copied to the LATEX_OUTPUT output # directory. Note that the files will be copied as-is; there are no commands or @@ -1653,9 +1869,11 @@ LATEX_EXTRA_FILES = PDF_HYPERLINKS = YES -# If the LATEX_PDFLATEX tag is set to YES, doxygen will use pdflatex to generate -# the PDF file directly from the LaTeX files. Set this option to YES to get a -# higher quality PDF documentation. +# If the USE_PDFLATEX tag is set to YES, doxygen will use the engine as +# specified with LATEX_CMD_NAME to generate the PDF file directly from the LaTeX +# files. Set this option to YES, to get a higher quality PDF documentation. +# +# See also section LATEX_CMD_NAME for selecting the engine. # The default value is: YES. # This tag requires that the tag GENERATE_LATEX is set to YES. @@ -1689,17 +1907,33 @@ LATEX_SOURCE_CODE = NO # The LATEX_BIB_STYLE tag can be used to specify the style to use for the # bibliography, e.g. plainnat, or ieeetr. See -# http://en.wikipedia.org/wiki/BibTeX and \cite for more info. +# https://en.wikipedia.org/wiki/BibTeX and \cite for more info. # The default value is: plain. # This tag requires that the tag GENERATE_LATEX is set to YES. LATEX_BIB_STYLE = plain +# If the LATEX_TIMESTAMP tag is set to YES then the footer of each generated +# page will contain the date and time when the page was generated. Setting this +# to NO can help when comparing the output of multiple runs. +# The default value is: NO. +# This tag requires that the tag GENERATE_LATEX is set to YES. + +LATEX_TIMESTAMP = NO + +# The LATEX_EMOJI_DIRECTORY tag is used to specify the (relative or absolute) +# path from which the emoji images will be read. If a relative path is entered, +# it will be relative to the LATEX_OUTPUT directory. If left blank the +# LATEX_OUTPUT directory will be used. +# This tag requires that the tag GENERATE_LATEX is set to YES. + +LATEX_EMOJI_DIRECTORY = + #--------------------------------------------------------------------------- # Configuration options related to the RTF output #--------------------------------------------------------------------------- -# If the GENERATE_RTF tag is set to YES doxygen will generate RTF output. The +# If the GENERATE_RTF tag is set to YES, doxygen will generate RTF output. The # RTF output is optimized for Word 97 and may not look too pretty with other RTF # readers/editors. # The default value is: NO. @@ -1714,7 +1948,7 @@ GENERATE_RTF = NO RTF_OUTPUT = rtf -# If the COMPACT_RTF tag is set to YES doxygen generates more compact RTF +# If the COMPACT_RTF tag is set to YES, doxygen generates more compact RTF # documents. This may be useful for small projects and may help to save some # trees in general. # The default value is: NO. @@ -1734,9 +1968,9 @@ COMPACT_RTF = NO RTF_HYPERLINKS = NO -# Load stylesheet definitions from file. Syntax is similar to doxygen's config -# file, i.e. a series of assignments. You only have to provide replacements, -# missing definitions are set to their default value. +# Load stylesheet definitions from file. Syntax is similar to doxygen's +# configuration file, i.e. a series of assignments. You only have to provide +# replacements, missing definitions are set to their default value. # # See also section "Doxygen usage" for information on how to generate the # default style sheet that doxygen normally uses. @@ -1745,17 +1979,27 @@ RTF_HYPERLINKS = NO RTF_STYLESHEET_FILE = # Set optional variables used in the generation of an RTF document. Syntax is -# similar to doxygen's config file. A template extensions file can be generated -# using doxygen -e rtf extensionFile. +# similar to doxygen's configuration file. A template extensions file can be +# generated using doxygen -e rtf extensionFile. # This tag requires that the tag GENERATE_RTF is set to YES. RTF_EXTENSIONS_FILE = +# If the RTF_SOURCE_CODE tag is set to YES then doxygen will include source code +# with syntax highlighting in the RTF output. +# +# Note that which sources are shown also depends on other settings such as +# SOURCE_BROWSER. +# The default value is: NO. +# This tag requires that the tag GENERATE_RTF is set to YES. + +RTF_SOURCE_CODE = NO + #--------------------------------------------------------------------------- # Configuration options related to the man page output #--------------------------------------------------------------------------- -# If the GENERATE_MAN tag is set to YES doxygen will generate man pages for +# If the GENERATE_MAN tag is set to YES, doxygen will generate man pages for # classes and files. # The default value is: NO. @@ -1779,6 +2023,13 @@ MAN_OUTPUT = man MAN_EXTENSION = .3 +# The MAN_SUBDIR tag determines the name of the directory created within +# MAN_OUTPUT in which the man pages are placed. If defaults to man followed by +# MAN_EXTENSION with the initial . removed. +# This tag requires that the tag GENERATE_MAN is set to YES. + +MAN_SUBDIR = + # If the MAN_LINKS tag is set to YES and doxygen generates man output, then it # will generate one additional man file for each entity documented in the real # man page(s). These additional files only source the real man page, but without @@ -1792,7 +2043,7 @@ MAN_LINKS = YES # Configuration options related to the XML output #--------------------------------------------------------------------------- -# If the GENERATE_XML tag is set to YES doxygen will generate an XML file that +# If the GENERATE_XML tag is set to YES, doxygen will generate an XML file that # captures the structure of the code including all documentation. # The default value is: NO. @@ -1806,7 +2057,7 @@ GENERATE_XML = NO XML_OUTPUT = xml -# If the XML_PROGRAMLISTING tag is set to YES doxygen will dump the program +# If the XML_PROGRAMLISTING tag is set to YES, doxygen will dump the program # listings (including syntax highlighting and cross-referencing information) to # the XML output. Note that enabling this will significantly increase the size # of the XML output. @@ -1815,11 +2066,18 @@ XML_OUTPUT = xml XML_PROGRAMLISTING = YES +# If the XML_NS_MEMB_FILE_SCOPE tag is set to YES, doxygen will include +# namespace members in file scope as well, matching the HTML output. +# The default value is: NO. +# This tag requires that the tag GENERATE_XML is set to YES. + +XML_NS_MEMB_FILE_SCOPE = NO + #--------------------------------------------------------------------------- # Configuration options related to the DOCBOOK output #--------------------------------------------------------------------------- -# If the GENERATE_DOCBOOK tag is set to YES doxygen will generate Docbook files +# If the GENERATE_DOCBOOK tag is set to YES, doxygen will generate Docbook files # that can be used to generate PDF. # The default value is: NO. @@ -1833,14 +2091,23 @@ GENERATE_DOCBOOK = NO DOCBOOK_OUTPUT = docbook +# If the DOCBOOK_PROGRAMLISTING tag is set to YES, doxygen will include the +# program listings (including syntax highlighting and cross-referencing +# information) to the DOCBOOK output. Note that enabling this will significantly +# increase the size of the DOCBOOK output. +# The default value is: NO. +# This tag requires that the tag GENERATE_DOCBOOK is set to YES. + +DOCBOOK_PROGRAMLISTING = NO + #--------------------------------------------------------------------------- # Configuration options for the AutoGen Definitions output #--------------------------------------------------------------------------- -# If the GENERATE_AUTOGEN_DEF tag is set to YES doxygen will generate an AutoGen -# Definitions (see http://autogen.sf.net) file that captures the structure of -# the code including all documentation. Note that this feature is still -# experimental and incomplete at the moment. +# If the GENERATE_AUTOGEN_DEF tag is set to YES, doxygen will generate an +# AutoGen Definitions (see http://autogen.sourceforge.net/) file that captures +# the structure of the code including all documentation. Note that this feature +# is still experimental and incomplete at the moment. # The default value is: NO. GENERATE_AUTOGEN_DEF = NO @@ -1849,7 +2116,7 @@ GENERATE_AUTOGEN_DEF = NO # Configuration options related to the Perl module output #--------------------------------------------------------------------------- -# If the GENERATE_PERLMOD tag is set to YES doxygen will generate a Perl module +# If the GENERATE_PERLMOD tag is set to YES, doxygen will generate a Perl module # file that captures the structure of the code including all documentation. # # Note that this feature is still experimental and incomplete at the moment. @@ -1857,7 +2124,7 @@ GENERATE_AUTOGEN_DEF = NO GENERATE_PERLMOD = NO -# If the PERLMOD_LATEX tag is set to YES doxygen will generate the necessary +# If the PERLMOD_LATEX tag is set to YES, doxygen will generate the necessary # Makefile rules, Perl scripts and LaTeX code to be able to generate PDF and DVI # output from the Perl module output. # The default value is: NO. @@ -1865,9 +2132,9 @@ GENERATE_PERLMOD = NO PERLMOD_LATEX = NO -# If the PERLMOD_PRETTY tag is set to YES the Perl module output will be nicely +# If the PERLMOD_PRETTY tag is set to YES, the Perl module output will be nicely # formatted so it can be parsed by a human reader. This is useful if you want to -# understand what is going on. On the other hand, if this tag is set to NO the +# understand what is going on. On the other hand, if this tag is set to NO, the # size of the Perl module output will be much smaller and Perl will parse it # just the same. # The default value is: YES. @@ -1887,14 +2154,14 @@ PERLMOD_MAKEVAR_PREFIX = # Configuration options related to the preprocessor #--------------------------------------------------------------------------- -# If the ENABLE_PREPROCESSING tag is set to YES doxygen will evaluate all +# If the ENABLE_PREPROCESSING tag is set to YES, doxygen will evaluate all # C-preprocessor directives found in the sources and include files. # The default value is: YES. ENABLE_PREPROCESSING = YES -# If the MACRO_EXPANSION tag is set to YES doxygen will expand all macro names -# in the source code. If set to NO only conditional compilation will be +# If the MACRO_EXPANSION tag is set to YES, doxygen will expand all macro names +# in the source code. If set to NO, only conditional compilation will be # performed. Macro expansion can be done in a controlled way by setting # EXPAND_ONLY_PREDEF to YES. # The default value is: NO. @@ -1910,7 +2177,7 @@ MACRO_EXPANSION = NO EXPAND_ONLY_PREDEF = NO -# If the SEARCH_INCLUDES tag is set to YES the includes files in the +# If the SEARCH_INCLUDES tag is set to YES, the include files in the # INCLUDE_PATH will be searched if a #include is found. # The default value is: YES. # This tag requires that the tag ENABLE_PREPROCESSING is set to YES. @@ -1952,9 +2219,9 @@ PREDEFINED = EXPAND_AS_DEFINED = # If the SKIP_FUNCTION_MACROS tag is set to YES then doxygen's preprocessor will -# remove all references to function-like macros that are alone on a line, have an -# all uppercase name, and do not end with a semicolon. Such function macros are -# typically used for boiler-plate code, and will confuse the parser if not +# remove all references to function-like macros that are alone on a line, have +# an all uppercase name, and do not end with a semicolon. Such function macros +# are typically used for boiler-plate code, and will confuse the parser if not # removed. # The default value is: YES. # This tag requires that the tag ENABLE_PREPROCESSING is set to YES. @@ -1974,11 +2241,11 @@ SKIP_FUNCTION_MACROS = YES # where loc1 and loc2 can be relative or absolute paths or URLs. See the # section "Linking to external documentation" for more information about the use # of tag files. -# Note: Each tag file must have an unique name (where the name does NOT include +# Note: Each tag file must have a unique name (where the name does NOT include # the path). If a tag file is not located in the directory in which doxygen is # run, you must also specify the path to the tagfile here. -TAGFILES = +TAGFILES = # When a file name is specified after GENERATE_TAGFILE, doxygen will create a # tag file that is based on the input files it reads. See section "Linking to @@ -1986,20 +2253,21 @@ TAGFILES = GENERATE_TAGFILE = -# If the ALLEXTERNALS tag is set to YES all external class will be listed in the -# class index. If set to NO only the inherited external classes will be listed. +# If the ALLEXTERNALS tag is set to YES, all external class will be listed in +# the class index. If set to NO, only the inherited external classes will be +# listed. # The default value is: NO. ALLEXTERNALS = NO -# If the EXTERNAL_GROUPS tag is set to YES all external groups will be listed in -# the modules index. If set to NO, only the current project's groups will be +# If the EXTERNAL_GROUPS tag is set to YES, all external groups will be listed +# in the modules index. If set to NO, only the current project's groups will be # listed. # The default value is: YES. EXTERNAL_GROUPS = NO -# If the EXTERNAL_PAGES tag is set to YES all external pages will be listed in +# If the EXTERNAL_PAGES tag is set to YES, all external pages will be listed in # the related pages index. If set to NO, only the current project's pages will # be listed. # The default value is: YES. @@ -2010,7 +2278,7 @@ EXTERNAL_PAGES = NO # Configuration options related to the dot tool #--------------------------------------------------------------------------- -# If the CLASS_DIAGRAMS tag is set to YES doxygen will generate a class diagram +# If the CLASS_DIAGRAMS tag is set to YES, doxygen will generate a class diagram # (in HTML and LaTeX) for classes with base or super classes. Setting the tag to # NO turns the diagrams off. Note that this option also works with HAVE_DOT # disabled, but it is recommended to install and use dot, since it yields more @@ -2026,7 +2294,7 @@ CLASS_DIAGRAMS = YES DIA_PATH = -# If set to YES, the inheritance and collaboration graphs will hide inheritance +# If set to YES the inheritance and collaboration graphs will hide inheritance # and usage relations if the target is undocumented or is not a class. # The default value is: YES. @@ -2037,7 +2305,7 @@ HIDE_UNDOC_RELATIONS = YES # http://www.graphviz.org/), a graph visualization toolkit from AT&T and Lucent # Bell Labs. The other options in this section have no effect if this option is # set to NO -# The default value is: NO. +# The default value is: YES. HAVE_DOT = NO @@ -2051,7 +2319,7 @@ HAVE_DOT = NO DOT_NUM_THREADS = 0 -# When you want a differently looking font n the dot files that doxygen +# When you want a differently looking font in the dot files that doxygen # generates you can specify the font name using DOT_FONTNAME. You need to make # sure dot is able to find the font, which can be done by putting it in a # standard location or by setting the DOTFONTPATH environment variable or by @@ -2099,7 +2367,7 @@ COLLABORATION_GRAPH = YES GROUP_GRAPHS = YES -# If the UML_LOOK tag is set to YES doxygen will generate inheritance and +# If the UML_LOOK tag is set to YES, doxygen will generate inheritance and # collaboration diagrams in a style similar to the OMG's Unified Modeling # Language. # The default value is: NO. @@ -2116,10 +2384,32 @@ UML_LOOK = NO # but if the number exceeds 15, the total amount of fields shown is limited to # 10. # Minimum value: 0, maximum value: 100, default value: 10. -# This tag requires that the tag HAVE_DOT is set to YES. +# This tag requires that the tag UML_LOOK is set to YES. UML_LIMIT_NUM_FIELDS = 10 +# If the DOT_UML_DETAILS tag is set to NO, doxygen will show attributes and +# methods without types and arguments in the UML graphs. If the DOT_UML_DETAILS +# tag is set to YES, doxygen will add type and arguments for attributes and +# methods in the UML graphs. If the DOT_UML_DETAILS tag is set to NONE, doxygen +# will not generate fields with class member information in the UML graphs. The +# class diagrams will look similar to the default class diagrams but using UML +# notation for the relationships. +# Possible values are: NO, YES and NONE. +# The default value is: NO. +# This tag requires that the tag UML_LOOK is set to YES. + +DOT_UML_DETAILS = NO + +# The DOT_WRAP_THRESHOLD tag can be used to set the maximum number of characters +# to display on a single line. If the actual line length exceeds this threshold +# significantly it will wrapped across multiple lines. Some heuristics are apply +# to avoid ugly line breaks. +# Minimum value: 0, maximum value: 1000, default value: 17. +# This tag requires that the tag HAVE_DOT is set to YES. + +DOT_WRAP_THRESHOLD = 17 + # If the TEMPLATE_RELATIONS tag is set to YES then the inheritance and # collaboration graphs will show the relations between templates and their # instances. @@ -2151,7 +2441,8 @@ INCLUDED_BY_GRAPH = YES # # Note that enabling this option will significantly increase the time of a run. # So in most cases it will be better to enable call graphs for selected -# functions only using the \callgraph command. +# functions only using the \callgraph command. Disabling a call graph can be +# accomplished by means of the command \hidecallgraph. # The default value is: NO. # This tag requires that the tag HAVE_DOT is set to YES. @@ -2162,7 +2453,8 @@ CALL_GRAPH = NO # # Note that enabling this option will significantly increase the time of a run. # So in most cases it will be better to enable caller graphs for selected -# functions only using the \callergraph command. +# functions only using the \callergraph command. Disabling a caller graph can be +# accomplished by means of the command \hidecallergraph. # The default value is: NO. # This tag requires that the tag HAVE_DOT is set to YES. @@ -2185,11 +2477,17 @@ GRAPHICAL_HIERARCHY = YES DIRECTORY_GRAPH = YES # The DOT_IMAGE_FORMAT tag can be used to set the image format of the images -# generated by dot. +# generated by dot. For an explanation of the image formats see the section +# output formats in the documentation of the dot tool (Graphviz (see: +# http://www.graphviz.org/)). # Note: If you choose svg you need to set HTML_FILE_EXTENSION to xhtml in order # to make the SVG files visible in IE 9+ (other browsers do not have this # requirement). -# Possible values are: png, jpg, gif and svg. +# Possible values are: png, png:cairo, png:cairo:cairo, png:cairo:gd, png:gd, +# png:gd:gd, jpg, jpg:cairo, jpg:cairo:gd, jpg:gd, jpg:gd:gd, gif, gif:cairo, +# gif:cairo:gd, gif:gd, gif:gd:gd, svg, png:gd, png:gd:gd, png:cairo, +# png:cairo:gd, png:cairo:cairo, png:cairo:gdiplus, png:gdiplus and +# png:gdiplus:gdiplus. # The default value is: png. # This tag requires that the tag HAVE_DOT is set to YES. @@ -2232,6 +2530,24 @@ MSCFILE_DIRS = DIAFILE_DIRS = +# When using plantuml, the PLANTUML_JAR_PATH tag should be used to specify the +# path where java can find the plantuml.jar file. If left blank, it is assumed +# PlantUML is not used or called during a preprocessing step. Doxygen will +# generate a warning when it encounters a \startuml command in this case and +# will not generate output for the diagram. + +PLANTUML_JAR_PATH = + +# When using plantuml, the PLANTUML_CFG_FILE tag can be used to specify a +# configuration file for plantuml. + +PLANTUML_CFG_FILE = + +# When using plantuml, the specified paths are searched for files specified by +# the !include statement in a plantuml block. + +PLANTUML_INCLUDE_PATH = + # The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of nodes # that will be shown in the graph. If the number of nodes in a graph becomes # larger than this value, doxygen will truncate the graph, which is visualized @@ -2268,7 +2584,7 @@ MAX_DOT_GRAPH_DEPTH = 0 DOT_TRANSPARENT = NO -# Set the DOT_MULTI_TARGETS tag to YES allow dot to generate multiple output +# Set the DOT_MULTI_TARGETS tag to YES to allow dot to generate multiple output # files in one run (i.e. multiple -o and -T options on the command line). This # makes dot run faster, but since only newer versions of dot (>1.8.10) support # this, this feature is disabled by default. @@ -2285,9 +2601,11 @@ DOT_MULTI_TARGETS = NO GENERATE_LEGEND = YES -# If the DOT_CLEANUP tag is set to YES doxygen will remove the intermediate dot +# If the DOT_CLEANUP tag is set to YES, doxygen will remove the intermediate # files that are used to generate the various graphs. +# +# Note: This setting is not only used for dot files but also for msc and +# plantuml temporary files. # The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. DOT_CLEANUP = YES From 46d830bb451bd2bf01e5b0d8c14b45e9c2e42306 Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Tue, 28 Sep 2021 06:29:53 -0600 Subject: [PATCH 010/107] Updates for Himawari-8 (#394) * Remove old Himawari lines used by grib1 * add Himawari-8 parameters to Grib2 table * update params_grib2_tbl_new and params_grib2_tbl_new.text with himawari-8 channels Co-authored-by: Tracy --- parm/params_grib2_tbl_new | 10 ++++++++++ parm/params_grib2_tbl_new.text | 11 +++++++++++ sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f | 5 ----- 3 files changed, 21 insertions(+), 5 deletions(-) diff --git a/parm/params_grib2_tbl_new b/parm/params_grib2_tbl_new index 65da702fb..396a77e9c 100755 --- a/parm/params_grib2_tbl_new +++ b/parm/params_grib2_tbl_new @@ -822,6 +822,16 @@ 3 192 52 0 SBTAGR7 3 192 53 0 SBTAGR8 3 192 54 0 SBTAGR9 + 3 192 69 0 SBTAHI10 + 3 192 70 0 SBTAHI11 + 3 192 71 0 SBTAHI12 + 3 192 72 0 SBTAHI13 + 3 192 73 0 SBTAHI14 + 3 192 74 0 SBTAHI15 + 3 192 75 0 SBTAHI16 + 3 192 66 0 SBTAHI7 + 3 192 67 0 SBTAHI8 + 3 192 68 0 SBTAHI9 3 0 2 0 SBTMP 0 7 210 1 SCCP 4 2 10 0 SCINT diff --git a/parm/params_grib2_tbl_new.text b/parm/params_grib2_tbl_new.text index 6fa402120..d06960fc0 100755 --- a/parm/params_grib2_tbl_new.text +++ b/parm/params_grib2_tbl_new.text @@ -1302,6 +1302,17 @@ 3 192 63 0 SSMS1716 3 192 64 0 SSMS1717 3 192 65 0 SSMS1718 +! Added more parameters in 09/24/2021 + 3 192 66 0 SBTAHI7 + 3 192 67 0 SBTAHI8 + 3 192 68 0 SBTAHI9 + 3 192 69 0 SBTAHI10 + 3 192 70 0 SBTAHI11 + 3 192 71 0 SBTAHI12 + 3 192 72 0 SBTAHI13 + 3 192 73 0 SBTAHI14 + 3 192 74 0 SBTAHI15 + 3 192 75 0 SBTAHI16 ! ! GRIB2 - TABLE 4.2-4-0 PARAMETERS FOR DISCIPLINE 4 CATEGORY 0 ! diff --git a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f index 3ad6ccce2..0ecca0e50 100644 --- a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f +++ b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f @@ -511,11 +511,6 @@ SUBROUTINE CALRAD_WCLOUD if(iget(865)>0)then call select_channels_L(channelinfo(18),4,(/ 1,2,3,4 /),lvls(1:4,iget(865)),iget(865)) endif - ! Himiwari-8 AHI infrared - if(iget(969)>0)then - call select_channels_L(channelinfo(19),10,(/1,2,3,4,5,6,7,8,9,10/),lvls(1:10,iget(969)),iget(969)) - endif - ! Loop over data types to process sensordo: do isat=1,n_sensors From 14171cdff0b6eb46a9460ae88a92457dfe109c62 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 29 Sep 2021 08:54:55 -0400 Subject: [PATCH 011/107] Fixes for 1000 mb HGT corrupted at RRFS 3KM parallel run. (#396) * Add fixes for 1000 mb HGT corrupted at RRFS 3KM parallel run. * Remove debugging line. * Remove debugging line. * Remove debugging line. * Update VERSION with 10.0.10 --- VERSION | 2 +- sorc/ncep_post.fd/MDL2P.f | 2 ++ sorc/ncep_post.fd/SLP_new.f | 15 +++++---------- 3 files changed, 8 insertions(+), 11 deletions(-) diff --git a/VERSION b/VERSION index 82f3d338c..6d6c7c85f 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -10.0.9 +10.0.10 diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f index 8f1d27d79..9b65497bf 100644 --- a/sorc/ncep_post.fd/MDL2P.f +++ b/sorc/ncep_post.fd/MDL2P.f @@ -3866,6 +3866,8 @@ SUBROUTINE MDL2P(iostatusD3D) ENDIF Z1000(I,J) = GRID1(I,J)*GI GRID1(I,J) = Z1000(I,J) + ELSE + GRID1(I,J) = SPVAL END IF ENDDO ENDDO diff --git a/sorc/ncep_post.fd/SLP_new.f b/sorc/ncep_post.fd/SLP_new.f index 7815e81aa..e2aa20c0c 100644 --- a/sorc/ncep_post.fd/SLP_new.f +++ b/sorc/ncep_post.fd/SLP_new.f @@ -27,6 +27,8 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) ! ARE COMMENTED OUT FOR NOW ! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT ! 21-07-26 W Meng - Restrict computation from undefined grids +! 21-09-25 W Meng - Further modification for restricting computation +! from undefined grids. ! ! USAGE: CALL SLPSIG FROM SUBROUITNE ETA2P ! @@ -109,7 +111,7 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) TNEW(I,J) = spval - LMHO(I,J) = 0 + LMHO(I,J) = LSM DONE(I,J) = .FALSE. ENDDO ENDDO @@ -127,7 +129,7 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) DO J=JSTA,JEND DO I=1,IM - HTMO(I,J,L)=spval + HTMO(I,J,L)=1. if(PSLP(I,J)0.5.AND. !HC 1 HTM2D(I+IHW(J),J-1,L)*HTM2D(I+IHE(J),J-1,L) @@ -278,8 +275,6 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) IF(HTM2D(I,J) > 0.5 .AND. tem < 0.5) then TTV(I,J) = TPRES(I,J,L)*(1.+0.608*QPRES(I,J,L)) ENDIF - else - TTV(I,J) = spval ! if(i==ii.and.j==jj)print*,'Debug:L,TTV B SMOO= ',l,TTV(I,J) end if ! spval ENDDO From 74135d25475bd8d97f79d21352106ac096bf2abb Mon Sep 17 00:00:00 2001 From: Kate Fossell Date: Fri, 1 Oct 2021 12:01:37 -0500 Subject: [PATCH 012/107] Add CODEOWNERS file (#398) * Starting UPP version numbers with 10.0.0 for develop branch * Add codeowners file to develop --- .github/CODEOWNERS | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 .github/CODEOWNERS diff --git a/.github/CODEOWNERS b/.github/CODEOWNERS new file mode 100644 index 000000000..962217602 --- /dev/null +++ b/.github/CODEOWNERS @@ -0,0 +1,14 @@ +# This is a comment. +# Each line is a file pattern followed by one or more owners. + +# These owners will be the default owners for everything in +# the repo. Unless a later match takes precedence, +# @global-owner1 and @global-owner2 will be requested for +# review when someone opens a pull request. +* @WenMeng-NOAA + + +# DTC support for public releases and documentation +docs/* @hertneky @fossell +scripts/run_upp @hertneky @fossell + From 728bdf04568fb01071834e818cd5a47b92522a9a Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Tue, 5 Oct 2021 07:07:02 -0600 Subject: [PATCH 013/107] Remove --recurse-submodules from clone command, update repo name, in documentation (#400) Co-authored-by: Tracy --- docs/AddNewVariable.rst | 8 ++++---- docs/Installation.rst | 15 +++++++-------- docs/Running.rst | 6 +++--- 3 files changed, 14 insertions(+), 15 deletions(-) diff --git a/docs/AddNewVariable.rst b/docs/AddNewVariable.rst index 3c98540d0..7fd5ff268 100644 --- a/docs/AddNewVariable.rst +++ b/docs/AddNewVariable.rst @@ -9,7 +9,7 @@ requires good knowledge of Fortran and thorough understanding of the code. NOAA UPP developers who wish to add new variables to the UPP, please follow the following procedures: -1. Read and follow procedures on the `UPP wiki page `_ +1. Read and follow procedures on the `UPP wiki page `_ on how to contribute your code changes to the UPP main development. Doing so will ensure your changes are merged to the UPP development quickly. @@ -122,7 +122,7 @@ with examples in the sections below. and directly output into the Grib2 output files (i.e. in this case no additional computations/calculations are needed for the field). - Additions to each of the routines are highlighted. -- Locations of routines are in EMC_post/sorc/ncep_post.fd unless specified otherwise. +- Locations of routines are in UPP/sorc/ncep_post.fd unless specified otherwise. - The new variable, TG3, added in this example is found in the gfs.t00z.sfcf006.nc; however, both the gfs.t00z.sfcf006.nc and gfs.t00z.atmf006.nc output files are required to run UPP for GFS. - TG3 is the averaged climatology of surface temperature, which the LSMs use to specify bottom soil T, @@ -177,7 +177,7 @@ with examples in the sections below. 2 0 231 1 TG3 - e) Add the new variable to the EMC_post/parm/post_avblflds.xml, which lists all fields available + e) Add the new variable to the UPP/parm/post_avblflds.xml, which lists all fields available for output in GRIB2 format. This file is generally not modified unless adding a new field or modifying an existing one. - Post_avblfldidx: the unique array number given in the RQSTFLD.f routine. @@ -371,7 +371,7 @@ with examples in the sections below. :: - >> cd EMC_post/build + >> cd UPP/build >> make install Assuming the modified code built successfully and you were able to produce Grib2 output, you can check the Grib2 diff --git a/docs/Installation.rst b/docs/Installation.rst index d5aa3ae7c..76c76fc8d 100644 --- a/docs/Installation.rst +++ b/docs/Installation.rst @@ -47,14 +47,13 @@ Building and running UPP V9.0.0 has been tested on the following platforms using +---------------+----------------------+ Move to the directory where you want to clone and build UPP and clone the repository into the directory -EMC_post. +UPP. .. code-block:: console - git clone -b release-tag-name --recurse-submodules https://github.com/NOAA-EMC/EMC_post + git clone -b branch-or-tag-name https://github.com/NOAA-EMC/UPP -where, ``release-tag-name`` is the release tag you wish to clone (e.g. for stand-alone UPP version 9, use -the release tag :bolditalic:`upp_v9.0.0`). +where, ``branch-or-tag-name`` is the release branch or tag you wish to clone. Move into the top level UPP directory and create and move into the build directory. Then build the UPP code using the cmake utility. @@ -62,7 +61,7 @@ The path ``INSTALL_PREFIX`` should point to the location of the pre-installed NC .. code-block:: console - cd EMC_post + cd UPP mkdir build && cd build cmake .. -DCMAKE_INSTALL_PREFIX=.. -DCMAKE_PREFIX_PATH=${INSTALL_PREFIX} @@ -76,14 +75,14 @@ The path ``INSTALL_PREFIX`` should point to the location of the pre-installed NC Move back to the top level UPP directory and create a directory for the CRTM fix files to be unpacked in. Download the fix files from the Github `release page -`_ or use the wget command. Unpack the +`_ or use the wget command. Unpack the tar file. .. code-block:: console cd ../ mkdir crtm && cd crtm - wget https://github.com/NOAA-EMC/EMC_post/releases/download/upp_v9.0.0/fix.tar.gz + wget https://github.com/NOAA-EMC/UPP/releases/download/upp_v9.0.0/fix.tar.gz tar -xzf fix.tar.gz .. note:: @@ -96,7 +95,7 @@ tar file. UPP Directory Structure ======================= -Under the main directory **EMC_post** reside the following relevant subdirectories (The * indicates a +Under the main directory **UPP** reside the following relevant subdirectories (The * indicates a directory that exists only after the build is complete): | **bin***: Contains the :bolditalic:`upp.x` executable after successful compilation diff --git a/docs/Running.rst b/docs/Running.rst index c5fadd880..1cbef0fbd 100644 --- a/docs/Running.rst +++ b/docs/Running.rst @@ -26,7 +26,7 @@ A script for running the UPP package is included in the **/scripts** directory: mkdir parm -4. Optional: If desired, edit the control **XML** file(s) in **/EMC_post/parm** to reflect the fields +4. Optional: If desired, edit the control **XML** file(s) in **/UPP/parm** to reflect the fields and levels you want UPP to output. It is recommended that you make copies of the original beforehand. @@ -64,8 +64,8 @@ Run Script Overview | **TOP_DIR**: Top level directory for building and running UPP | **DOMAINPATH**: Working directory for this run - | **UNIPOST_HOME**: Location of the **EMC_post** directory - | **POSTEXEC**: Location of the **EMC_post** executable + | **UNIPOST_HOME**: Location of the **UPP** directory + | **POSTEXEC**: Location of the **UPP** executable | **modelDataPath**: Location of the model output data files to be processed | **txtCntrlFile**: Name and location of the flat text file that lists desired fields for output. From 9f5f78862ac74e442b55e7b76872ad74aedc9c80 Mon Sep 17 00:00:00 2001 From: Edward Hartnett <38856240+edwardhartnett@users.noreply.github.com> Date: Wed, 6 Oct 2021 06:44:32 -0600 Subject: [PATCH 014/107] Fix doxygen in AVIATION.f (#395) * fixed doxygen for function * more doxygen fixes * fixing doxygen in AVIATION.f * fixing doxygen in AVIATION.f * fixing doxygen in AVIATION.f * Changed to F77 doxygen comment marker * changed doxygen comment marker back --- sorc/ncep_post.fd/AVIATION.f | 383 +++++++++++++---------------------- 1 file changed, 141 insertions(+), 242 deletions(-) diff --git a/sorc/ncep_post.fd/AVIATION.f b/sorc/ncep_post.fd/AVIATION.f index 4de228f92..fe22243ec 100644 --- a/sorc/ncep_post.fd/AVIATION.f +++ b/sorc/ncep_post.fd/AVIATION.f @@ -1,84 +1,67 @@ !> @file +!> @brief Subroutines related to aviation. ! +!> Computes Low Level Wind Shear (0-2000feet) +!> +!> This program computes the low level wind shear(LLWS) over 0-2000 feet +!> (0-609.5m) layer. But because 10m wind represent sfc wind, 10-619.5 m +!> layer is used. (NOAA/NWS Instruction 10-813, 2004) !> -!! . . . -!! SUBPROGRAM: CALLLWS COMPUTES Low Level Wind Shear (0-2000feet) -!! PRGRMMR: Binbin Zhou /NCEP/EMC DATE: 2005-08-16 -!! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -!! 21-04-01 Jesse Meng - computation on defined points only -!! -!! ABSTRACT: -!! This program computes the low level wind shear(LLWS) over 0-2000 feet (0-609.5m) -!! layer. But because 10m wind represent sfc wind, 10-619.5 m layer -!! is used. (NOAA/NWS Instruction 10-813, 2004) -!! -!! Definition: LLWS(Z1,Z2) is vector difference of wind at z1 and z2 -!! where Z1 = 10m + Surface height -!! Z2 = 619.5 + Surface height -!! -!! Algorithm: since Z2 is not defined in the model, so, -!! first thing is searching Z2 to see which layers -!! it is located(ie between which two pressure levels), -!! then find the wind vector (U2,V2)at Z2 by interpolating with -!! the wind vectors of the at pressure levels above and below -!! then compute the vector difference between Z2 and Z1 (ie U10,V10) -!! -!! -!! -!!
                               
-!!      ----------------------------------------- K2-1 ---------------------
-!!                            ^
-!!                            |
-!!                            |
-!!                            |            
-!!                 ____       |  _____ Z2, U2=interpo[U(K2),U(K2-1)]
-!!                  ^         |            V2=interpo[V(K2),V(K2-1)]
-!!                  |         |                       
-!!      ------------|---------|------------------ K2 ------------------------
-!!                  |         |
-!!                  |         |DH=SUM of all layers between K1-1 & K2-1 
-!!                  |         |                                            .              
-!!                  |609.5m   |                                            .
-!!                  |(2000ft) |                                            .
-!!                  |         v
-!!      ------------|---------------------------------------------------- LSM-2
-!!                  |               ^
-!!                  |               |ZH1   
-!!                  |               |
-!!                 o-o 10m       ___v__ Z1,U10,V10                 
-!!       FIS    ....|.....          ^
-!!        ^   .            .        |
-!!      --|-------------------------|------------ K1 -------------------- LSM-1
-!!        | .                .      |
-!!        |.                  .     |
-!!       .|                    ...  |
-!!      --|-------------------------|------------------------------------- LSM
-!!      . |                         |
-!!     ////////////////////////////////////////////////////////////////// Sea Level
-!!
-!! -!! -!! USAGE: CALL CALLLWS(U,V,H,LLWS) -!! INPUT ARGUMENT LIST: -!! U - U wind profile (m/s) (at pressure level) -!! V - V wind (m/s) (at pressure level) -!! H - Height (m) (at pressure level) -!! -!! OUTPUT ARGUMENT LIST: -!! LLWS - Low level wind shear (Knots/2000ft) -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! LIBRARY: -!! NONE -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90/77 -!! MACHINE : BLUE AT NCEP -!! +!> Definition: LLWS(Z1,Z2) is vector difference of wind at z1 and z2 +!> where: +!> - Z1 = 10m + Surface height +!> - Z2 = 619.5 + Surface height +!> +!> Algorithm: since Z2 is not defined in the model, so, first thing is +!> searching Z2 to see which layers it is located(ie between which two +!> pressure levels), then find the wind vector (U2,V2)at Z2 by +!> interpolating with the wind vectors of the at pressure levels above +!> and below then compute the vector difference between Z2 and Z1 (ie +!> U10,V10) +!> +!>
                               
+!>      ----------------------------------------- K2-1 ---------------------
+!>                            ^
+!>                            |
+!>                            |
+!>                            |            
+!>                 ____       |  _____ Z2, U2=interpo[U(K2),U(K2-1)]
+!>                  ^         |            V2=interpo[V(K2),V(K2-1)]
+!>                  |         |                       
+!>      ------------|---------|------------------ K2 ------------------------
+!>                  |         |
+!>                  |         |DH=SUM of all layers between K1-1 & K2-1 
+!>                  |         |                                            .              
+!>                  |609.5m   |                                            .
+!>                  |(2000ft) |                                            .
+!>                  |         v
+!>      ------------|---------------------------------------------------- LSM-2
+!>                  |               ^
+!>                  |               |ZH1   
+!>                  |               |
+!>                 o-o 10m       ___v__ Z1,U10,V10                 
+!>       FIS    ....|.....          ^
+!>        ^   .            .        |
+!>      --|-------------------------|------------ K1 -------------------- LSM-1
+!>        | .                .      |
+!>        |.                  .     |
+!>       .|                    ...  |
+!>      --|-------------------------|------------------------------------- LSM
+!>      . |                         |
+!>     ////////////////////////////////////////////////////////////////// Sea Level
+!>
+!> +!> +!> @param[in] U U wind profile (m/s) (at pressure level). +!> @param[in] V V wind (m/s) (at pressure level). +!> @param[in] H Height (m) (at pressure level). +!> @param[out] LLWS Low level wind shear (Knots/2000ft). +!> +!> Program History +!> - 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT +!> - 21-04-01 Jesse Meng - computation on defined points only +!> +!> @author Binbin Zhou NCEP/EMC @date 2005-08-16 SUBROUTINE CALLLWS(U,V,H,LLWS) ! @@ -149,53 +132,32 @@ SUBROUTINE CALLLWS(U,V,H,LLWS) RETURN END - +!> Computes In-Flight Icing. +!> +!> This program computes the in-flight icing condition +!> with the T-RH-OMGA algorithm provided by S. Silberberg of +!> NCEP/AWC (improved new version). +!> +!> According to S. Silberberg, Icing happens in following +!> situation: +!> 1. -22C < T < 0C to +!> 2. RH > 70 % +!> 3. Ascent air, OMGA < 0 +!> 4. Equivalent Potential Vorticity (EPV) < 0 +!> 5. Cloud water if SLD (supercooled large droplet) +!> +!> Current version dosn't consider SLD, so cloud water +!> is not used. EPV computation is not available for current +!> NCEP/EMC models(NAM, WRF, RSM), so EPV is also not +!> used. +!> +!> @param[in] T1 TEMPERATURE (K) +!> @param[in] RH RELATIVE HUMIDITY (DECIMAL FORM) +!> @param[in] OMGA Vertical velocity (Pa/sec) +!> @param[inout] ICING ICING CONDITION (1 or 0) +!> +!> @author Binbin Zhou NCEP/EMC @date 2005-08-16 SUBROUTINE CALICING (T1,RH,OMGA, ICING) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALICING COMPUTES In-Flight Icing -! PRGRMMR: Binbin Zhou /NCEP/EMC DATE: 2005-08-16 -! -! ABSTRACT: -! This program computes the in-flight icing condition -! with the T-RH-OMGA algorithm provided by S. Silberberg of -! NCEP/AWC (improved new version) -! -! According to S. Silberberg, Icing happens in following -! situation: -! (1) -22C < T < 0C to -! (2) RH > 70 % -! (3) Ascent air, OMGA < 0 -! (4) Equivalent Potential Vorticity (EPV) < 0 -! (5) Cloud water if SLD (supercooled large droplet) -! -! Current version dosn't consider SLD, so cloud water -! is not used. EPV computation is not available for current -! NCEP/EMC models(NAM, WRF, RSM), so EPV is also not -! used -! -! USAGE: CALL CALICING(T1,RH,OMGA,ICING) -! INPUT ARGUMENT LIST: -! T1 - TEMPERATURE (K) -! RH - RELATIVE HUMIDITY (DECIMAL FORM) -! OMGA - Vertical velocity (Pa/sec) -! -! OUTPUT ARGUMENT LIST: -! ICING - ICING CONDITION (1 or 0) -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! LIBRARY: -! NONE -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90/77 -! MACHINE : BLUE AT NCEP -!$$$ -! use ctlblk_mod, only: jsta, jend, im, spval !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -228,53 +190,33 @@ SUBROUTINE CALICING (T1,RH,OMGA, ICING) RETURN END +!> Computes Clear Air Turbulence Index +!> +!> This program computes the Clear Air Turbulence condition which is +!> expressed as Index with Ellrod Algorithm (Gary P. Ellrod: Wea. and +!> Forecast,1992) and Ri number suggested by S. Silberberg of AWC. But Ri +!> number is still not classified into 3 level CAT, so current version +!> does not use Ri as suggested by S. Silberberg. +!> +!> PROGRAM HISTORY LOG: +!> - 05-09-19 H CHUANG - MODIFIED TO COMPUTE GRADIENTS FOR BOTH A AND E GRIDS +!> +!> According to Ellrod, the CAT is classied into 3 levels (index): +!> - Light: CAT = 1 +!> - Middle: CAT = 2 +!> - Severe: CAT = 3 +!> - No CAT: CAT = 0 +!> +!> @param[in] U U wind profile (m/s) (at pressure level) +!> @param[in] V V wind (m/s) (at pressure level) +!> @param[in] H Height (m) (at pressure level) +!> @param[in] U_OLD U wind profile (m/s) (at pressure level) +!> @param[in] V_OLD V wind (m/s) (at pressure level) +!> @param[in] H_OLD Height (m) (at pressure level) +!> @param[inout] CAT CAT Index +!> +!> @author Binbin Zhou NCEP/EMC @date 2005-08-16 SUBROUTINE CALCAT(U,V,H,U_OLD,V_OLD,H_OLD,CAT) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALCAT COMPUTES Clear Air Turbulence Index -! PRGRMMR: Binbin Zhou /NCEP/EMC DATE: 2005-08-16 -! -! ABSTRACT: -! This program computes the Clear Air Turbulence condition -! which is expressed as Index with Ellrod Algorithm -! (Gary P. Ellrod: Wea. and Forecast,1992) and Ri number -! suggested by S. Silberberg of AWC. But Ri number is still -! not classified into 3 level CAT, so current version does -! not use Ri as suggested by S. Silberberg -! -! PROGRAM HISTORY LOG: -! -! 05-09-19 H CHUANG - MODIFIED TO COMPUTE GRADIENTS FOR BOTH A AND E GRIDS -! -! -! According to Ellrod, the CAT is classied into 3 levels (index) -! Light: CAT = 1 -! Middle: CAT = 2 -! Severe: CAT = 3 -! No CAT: CAT = 0 -! -! USAGE: CALL CALCAT(U,V,H,L,CAT) -! INPUT ARGUMENT LIST: -! U - U wind profile (m/s) (at pressure level) -! V - V wind (m/s) (at pressure level) -! H - Height (m) (at pressure level) -! L - # of pressure level -! -! OUTPUT ARGUMENT LIST: -! CAT - CAT Index -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! LIBRARY: -! NONE -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90/77 -! MACHINE : BLUE AT NCEP -!$$$ use masks, only: dx, dy use ctlblk_mod, only: spval, jsta_2l, jend_2u, jsta_m, jend_m, & im, jm @@ -494,41 +436,19 @@ SUBROUTINE CALCAT(U,V,H,U_OLD,V_OLD,H_OLD,CAT) RETURN END - +!> Computes ceiling. +!> +!> This program computes the ceiling. Definition: Ceiling is the cloud +!> base height for cloud fraction > 50% The cloud base is from sea level +!> in the model, while ceiling is from surface. If no ceiling, set +!> ceiling height = 20000 m +!> +!> @param[in] CLDZ CLOUD BASE HEIGHT from sea level(M) +!> @param[in] TCLD TOTAL CLOUD FRACTION (%) +!> @param[inout] CEILING CEILING HEIGHT from surface (m) +!> +!> @author Binbin Zhou NCEP/EMC @date 2005-08-18 SUBROUTINE CALCEILING (CLDZ,TCLD,CEILING) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALCEILING COMPUTES Ceiling -! PRGRMMR: Binbin Zhou /NCEP/EMC DATE: 2005-08-18 -! -! ABSTRACT: -! This program computes the ceiling -! Definition: Ceiling is the cloud base height for cloud fraction > 50% -! The cloud base is from sea level in the model, while ceiling -! is from surface. If no ceiling, set ceiling height = 20000 m -! -! USAGE: CALL CALCEILING (CLDZ,TCLD,CEILING) -! INPUT ARGUMENT LIST: -! CLDZ - CLOUD BASE HEIGHT from sea level(M) -! TCLD - TOTAL CLOUD FRACTION (%) -! -! OUTPUT ARGUMENT LIST: -! CEILING - CEILING HEIGHT from surface (m) -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! LIBRARY: -! NONE -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90/77 -! MACHINE : BLUE AT NCEP -!$$$ -! - USE vrbls2d, only: fis use params_mod, only: small, gi use ctlblk_mod, only: jsta, jend, spval, im, modelname @@ -565,45 +485,24 @@ SUBROUTINE CALCEILING (CLDZ,TCLD,CEILING) RETURN END - +!> Computes Ceiling. +!> +!> This program computes the flight condition restriction +!> which is defined as follow (NOAA/NWS/Instruction for TAF, 2004): +!> +!> Ceiling(feet)| Visibility(miles) | FLTCND +!> -------------|-------------------|------- +!> LIFR | < 200 and/or < 1 | 1 +!> IFR | >= 500 to < 1000 and/or >=1 to < 3 | 2 +!> MVFR | >=1000 to <= 3000 and/or >=3 to <= 5| 3 +!> VFR | > 3000 > 5 | 5 +!> +!> @param[in] CEILING - CEILING HEIGHT from surface (m) NOTE: VIS - +!> Visibility is passed through COMMON /VISB/ +!> @param[inout] FLTCND - FLIGHT CONDITION CATERGORY +!> +!> @author Binbin Zhou NCEP/EMC @date 2005-08-18 SUBROUTINE CALFLTCND (CEILING,FLTCND) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALFLTCND COMPUTES Ceiling -! PRGRMMR: Binbin Zhou /NCEP/EMC DATE: 2005-08-18 -! -! ABSTRACT: -! This program computes the flight condition restriction -! which is defined as follow (NOAA/NWS/Instruction for TAF, 2004): -! -! Ceiling(feet) Visibility(miles) FLTCND -! LIFR < 200 and/or < 1 1 -! IFR >= 500 to < 1000 and/or >=1 to < 3 2 -! MVFR >=1000 to <= 3000 and/or >=3 to <= 5 3 -! VFR > 3000 > 5 5 -! -! -! USAGE: CALL CALFLTCND(CEILING,FLTCND) -! INPUT ARGUMENT LIST: -! CEILING - CEILING HEIGHT from surface (m) -! NOTE: VIS - Visibility is passed through COMMON /VISB/ -! -! OUTPUT ARGUMENT LIST: -! FLTCND - FLIGHT CONDITION CATERGORY -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! LIBRARY: -! NONE -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90/77 -! MACHINE : BLUE AT NCEP -!$$$ -! use vrbls2d, only: vis use ctlblk_mod, only: jsta, jend, im, spval !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - From a774356b4d2fa0d93af68f8b0e4a5c2540e77053 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Wed, 27 Oct 2021 13:11:42 -0600 Subject: [PATCH 015/107] Created formal fortran namelist for itag. (#402) * Created formal fortran namelist for itag. * This is a legacy script. No updates are needed. * Further code refinement from Wen. * Added a change log. * Replace replace "fullmodelname" with "modelname, submodelname" in "model_inputs". * bug fix * Replace FULLMODELNAME to MODELNAME. * Further clean up for FULLMODELNAME. * Further code refinement from Wen. * Rename control file variable name. * Removed fileNameFlat in gfs itag. * Further code refinement from Wen. --- scripts/run_upp | 16 +++--- sorc/ncep_post.fd/WRFPOST.f | 104 ++++++++++++++++-------------------- ush/gfs_nceppost.sh | 15 +++--- 3 files changed, 64 insertions(+), 71 deletions(-) diff --git a/scripts/run_upp b/scripts/run_upp index a9589391f..ee2c04e37 100755 --- a/scripts/run_upp +++ b/scripts/run_upp @@ -323,13 +323,15 @@ fi if [[ ${outFormat} == "grib2" ]]; then if [[ ${model} == "GFS" || ${model} == "LAM" ]]; then cat > itag < komax)print*,'pressure levels cannot exceed ',komax; STOP ! if(kth > komax)print*,'isent levels cannot exceed ',komax; STOP ! if(kpv > komax)print*,'PV levels cannot exceed ',komax; STOP @@ -342,15 +334,15 @@ PROGRAM WRFPOST if(me == 0) then print*,'using pressure levels from POSTGPVARS' endif - if(MODELNAME == 'RAPR')then - read(5,*) (po(l),l=1,kpo) +!KaYee if(MODELNAME == 'RAPR')then +!KaYee read(5,*) (po(l),l=1,kpo) ! CRA READ VALID TIME UNITS - read(5,121) VTIMEUNITS - if(me == 0) then - print*,'VALID TIME UNITS = ', VTIMEUNITS - endif +!KaYee read(5,121) VTIMEUNITS +!KaYee if(me == 0) then +!KaYee print*,'VALID TIME UNITS = ', VTIMEUNITS +!KaYee endif ! CRA - endif +!KaYee endif lsm = kpo if( .not. popascal ) then untcnvt = 100. @@ -378,15 +370,13 @@ PROGRAM WRFPOST end if 115 format(f7.1) 116 continue -!set control file name - fileNameFlat='postxconfig-NT.txt' - if(MODELNAME == 'GFS') then +!KaYee if(MODELNAME == 'GFS') then ! read(5,*) line - read(5,111,end=125) fileNameFlat - 125 continue +!KaYee read(5,111,end=125) fileNameFlat +!KaYee 125 continue ! if(len_trim(fileNameFlat)<5) fileNameFlat = 'postxconfig-NT.txt' - if (me == 0) print*,'Post flat name in GFS= ',trim(fileNameFlat) - endif +!KaYee if (me == 0) print*,'Post flat name in GFS= ',trim(fileNameFlat) +!KaYee endif ! set PTHRESH for different models if(MODELNAME == 'NMM')then PTHRESH = 0.000004 diff --git a/ush/gfs_nceppost.sh b/ush/gfs_nceppost.sh index b904e4ba5..975bdc6a6 100755 --- a/ush/gfs_nceppost.sh +++ b/ush/gfs_nceppost.sh @@ -311,13 +311,14 @@ export DD=`echo $VDATE | cut -c7-8` export HH=`echo $VDATE | cut -c9-10` cat > itag <> itag From 06c5e22f72ca4c1d821e06d10cfff7317980bc34 Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Thu, 28 Oct 2021 07:32:32 -0600 Subject: [PATCH 016/107] Doxygen for BNDLYR.f (#408) * Add doxygen comments to BNDLYR.f * fix bullets * change to proper case, fix param order * add documentation note Co-authored-by: Tracy --- sorc/ncep_post.fd/BNDLYR.f | 106 +++++++++++++++---------------------- 1 file changed, 43 insertions(+), 63 deletions(-) diff --git a/sorc/ncep_post.fd/BNDLYR.f b/sorc/ncep_post.fd/BNDLYR.f index 0ec21e25d..4d0564a8f 100644 --- a/sorc/ncep_post.fd/BNDLYR.f +++ b/sorc/ncep_post.fd/BNDLYR.f @@ -1,69 +1,49 @@ !> @file +!> @brief Subroutine that computes boundary layer fields. ! +!> Computes constant mass mean fields !> -!! -!! SUBPROGRAM: BNDLYR COMPUTES CONSTANT MASS MEAN FIELDS -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-01-29 -!! -!! ABSTRACT: THIS ROUTINE COMPUTES CONSTANT MASS (BOUNDARY LAYER) -!! FIELDS. THE FIELDS ARE A MEAN OVER LAYERS PARAMETER DPBND -!! (PASCALS) THICK. THERE ARE NBND CONSTANT MASS LAYERS, EACH -!! DPBND THICK STARTING FROM THE SURFACE UP. COMPUTED BOUNDARY -!! LAYER FIELDS ARE PRESSURE, TEMPERATURE, SPECIFIC HUMIDITY, -!! RELATIVE HUMIDITY, U AND V WINDS, VERTICAL VELOCITY, -!! AND PRECIPITABLE WATER. GIVEN THESE FUNDAMENTAL VARIABLES -!! OTHER FIELDS MAY BE COMPUTED. -!! -!! ***WARNING*** IF YOU CHANGE PARAMETER NBND IN THIS ROUTINE -!! DON'T FOREGET TO CHANGE IT ALSO IN THE CALLING -!! SUBPROGRAM, MISCLN. -!! -!! PROGRAM HISTORY LOG: -!! 93-01-29 RUSS TREADON -!! 93-05-07 RUSS TREADON - ADDED DOC BLOCK AND MORE COMMENTS. -!! 93-06-19 RUSS TREADON - ADDED LVLBND TO PARAMETER LIST. -!! 96-03-07 MIKE BALDWIN - CHANGE PWTR CALC TO INCLUDE CLD WTR -!! SPEED UP CODE -!! 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 98-08-18 MIKE BALDWIN - CHANGE QSBND TO RHBND IN CALL, -!! COMPUTE RH OVER ICE -!! 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-01-15 MIKE BALDWIN - WRF VERSION -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! 21-08-20 Wen Meng - Retrict computation fro undefined points. -!! -!! USAGE: CALL BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, -!! WBND,OMGBND,PWTBND,QCNVBND) -!! -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! PBND - LAYER MEAN PRESSURE IN NBND BOUNDARY LAYERS (NBL). -!! TBND - LAYER MEAN TEMPERATURE IN NBL. -!! QBND - LAYER MEAN SPECIFIC HUMIDITY IN NBL. -!! RHBND - LAYER MEAN RELATIVE HUM. (QBND/QSBND) IN NBL. -!! UBND - LAYER MEAN U WIND COMPONENT IN NBL. -!! VBND - LAYER MEAN V WIND COMPONENT IN NBL. -!! WBND - LAYER MEAN W WIND COMPONENT IN NBL. -!! OMGBND - LAYER MEAN VERTICAL VELOCITY IN NBL. -!! PWTBND - LAYER PRECIPITABLE WATER IN NBL. -!! LVLBND - ETA LAYER AT MIDPOINT OF NBL. -!! QCNVBND - LAYER MOISTURE CONVERGENCE IN NBL. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> This routine computes constant mass (boundary layer) +!> fields. The fields are a mean over layers parameter DPBND +!> (pascals) thick. There are NBND constant mass layers, each +!> DPBND thick starting from the surface up. Computed boundary +!> layer fields are pressure, temperature, specific humidity, +!> relative humidity, U and V winds, vertical velocity, +!> and precipitable water. Given these fundamental variables +!> other fields may be computed. +!> +!> @note If you change parameter NBND in this routine +!> don't forget to change it also in the calling +!> subprogram, MISCLN. +!> +!> @param[out] PBND - Layer mean pressure in NBND boundary layers (NBL). +!> @param[out] TBND - Layer mean temperature in NBL. +!> @param[out] QBND - Layer mean specific humidity in NBL. +!> @param[out] RHBND - Layer mean relative hum. (QBND/QSBND) in NBL. +!> @param[out] UBND - Layer mean U wind component in NBL. +!> @param[out] VBND - Layer mean V wind component in NBL. +!> @param[out] WBND - Layer mean W wind component in NBL. +!> @param[out] OMGBND - Layer mean vertical velocity in NBL. +!> @param[out] PWTBND - Layer precipitable water in NBL. +!> @param[out] QCNVBND - Layer moisture convergence in NBL. +!> @param[out] LVLBND - ETA layer at midpoint of NBL. +!> +!> Program History +!> - 93-01-29 RUSS TREADON +!> - 93-05-07 RUSS TREADON - ADDED DOC BLOCK AND MORE COMMENTS. +!> - 93-06-19 RUSS TREADON - ADDED LVLBND TO PARAMETER LIST. +!> - 96-03-07 MIKE BALDWIN - CHANGE PWTR CALC TO INCLUDE CLD WTR +!> SPEED UP CODE +!> - 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D +!> - 98-08-18 MIKE BALDWIN - CHANGE QSBND TO RHBND IN CALL, +!> COMPUTE RH OVER ICE +!> - 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE +!> - 00-01-04 JIM TUCCILLO - MPI VERSION +!> - 02-01-15 MIKE BALDWIN - WRF VERSION +!> - 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE +!> - 21-08-20 Wen Meng - Retrict computation fro undefined points. +!> +!> @author Russ Treadon W/NP2 @date 1993-01-29 SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & WBND,OMGBND,PWTBND,QCNVBND,LVLBND) From c939eae6bacb3c2a93753bba54b8646f32a0a7ab Mon Sep 17 00:00:00 2001 From: Dusan Jovic <48258889+DusanJovic-NOAA@users.noreply.github.com> Date: Wed, 10 Nov 2021 12:47:13 -0500 Subject: [PATCH 017/107] Move package config to top-level CMakeLists.txt (#412) * Move package config to top-level CMakeLists.txt * Update version to 10.0.11 --- CMakeLists.txt | 25 +++++++++++++++++++++++++ VERSION | 2 +- sorc/ncep_post.fd/CMakeLists.txt | 26 -------------------------- 3 files changed, 26 insertions(+), 27 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 01d544fde..ff311e9d0 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -69,3 +69,28 @@ if(ENABLE_DOCS) add_subdirectory(docs) endif() +### Package config +include(CMakePackageConfigHelpers) +set(CONFIG_INSTALL_DESTINATION lib/cmake/${PROJECT_NAME}) + +export(EXPORT ${PROJECT_NAME}Exports + NAMESPACE ${PROJECT_NAME}:: + FILE ${PROJECT_NAME}-targets.cmake) + +configure_package_config_file( + ${CMAKE_CURRENT_SOURCE_DIR}/cmake/PackageConfig.cmake.in ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config.cmake + INSTALL_DESTINATION ${CONFIG_INSTALL_DESTINATION}) +install(FILES ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config.cmake + DESTINATION ${CONFIG_INSTALL_DESTINATION}) + +write_basic_package_version_file( + ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config-version.cmake + VERSION ${PROJECT_VERSION} + COMPATIBILITY AnyNewerVersion) +install(FILES ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config-version.cmake + DESTINATION ${CONFIG_INSTALL_DESTINATION}) + +install(EXPORT ${PROJECT_NAME}Exports + NAMESPACE ${PROJECT_NAME}:: + FILE ${PROJECT_NAME}-targets.cmake + DESTINATION ${CONFIG_INSTALL_DESTINATION}) diff --git a/VERSION b/VERSION index 6d6c7c85f..89acc9519 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -10.0.10 +10.0.11 diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index 20b438d94..88a885a93 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -234,29 +234,3 @@ install( RUNTIME DESTINATION bin LIBRARY DESTINATION lib ARCHIVE DESTINATION lib) - -### Package config -include(CMakePackageConfigHelpers) -set(CONFIG_INSTALL_DESTINATION lib/cmake/${PROJECT_NAME}) - -export(EXPORT ${PROJECT_NAME}Exports - NAMESPACE ${PROJECT_NAME}:: - FILE ${PROJECT_NAME}-targets.cmake) - -configure_package_config_file( - ${CMAKE_SOURCE_DIR}/cmake/PackageConfig.cmake.in ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config.cmake - INSTALL_DESTINATION ${CONFIG_INSTALL_DESTINATION}) -install(FILES ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config.cmake - DESTINATION ${CONFIG_INSTALL_DESTINATION}) - -write_basic_package_version_file( - ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config-version.cmake - VERSION ${PROJECT_VERSION} - COMPATIBILITY AnyNewerVersion) -install(FILES ${CMAKE_BINARY_DIR}/${PROJECT_NAME}-config-version.cmake - DESTINATION ${CONFIG_INSTALL_DESTINATION}) - -install(EXPORT ${PROJECT_NAME}Exports - NAMESPACE ${PROJECT_NAME}:: - FILE ${PROJECT_NAME}-targets.cmake - DESTINATION ${CONFIG_INSTALL_DESTINATION}) From d903e3ecced8e3e6d78e3089b3371733348153fd Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Wed, 17 Nov 2021 09:49:52 -0700 Subject: [PATCH 018/107] grib1 cleanup (#410) * remove grib1 control files from parm/ * Cleanup grib1 RQSTFLD.F, remove READCNTRL.f, INITPOST_NEMS.f, INITPOST_GFS_NEMS.f, INITPOST_GFS_SIGIO.f from CMakeLists.txt, remove unused variables from a number of INITPOST* routines that were initialized in RQSTFLD.F * Revert back to use nemsio_module in WRFPOST.f * Add INITPOST_NEMS.f back, since nmmb is still tested * remove INITPOST_GFS_NEMS.f and INITPOST_GFS_SIGIO.f from source directory * Add back GETNEMSANDSCATTER * Add INITPOST_GFS_NEMS back * remove use rqstfld_mod * WRFPOST mods * WRFPOST mods * remove sigio from module files * Remove READCNTRL.F from sorc dir since it is no longer used * Remove sigio lines from WRFPOST * rename RQSTFLD.F to RQSTFLD.f * Add change logs * Update to RQSTFLD.f in CMakeLists * Add sigio module back Co-authored-by: Tracy --- parm/nam_cntrl_cmaq.parm | 1304 -------- parm/nmb_cntrl.parm | 503 --- parm/rap_wrf_cntrl.parm | 365 --- parm/wrf_cntrl.parm | 499 --- sorc/ncep_post.fd/CMakeLists.txt | 4 +- sorc/ncep_post.fd/INITPOST_GFS_NEMS.f | 73 +- sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 1 - sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f | 1 - sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f | 2 +- sorc/ncep_post.fd/INITPOST_GFS_SIGIO.f | 3062 ------------------ sorc/ncep_post.fd/INITPOST_NEMS.f | 1 - sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f | 1 - sorc/ncep_post.fd/INITPOST_NETCDF.f | 1 - sorc/ncep_post.fd/READCNTRL.F | 240 -- sorc/ncep_post.fd/RQSTFLD.F | 2753 ---------------- sorc/ncep_post.fd/RQSTFLD.f | 44 + sorc/ncep_post.fd/WRFPOST.f | 79 +- 17 files changed, 83 insertions(+), 8850 deletions(-) delete mode 100644 parm/nam_cntrl_cmaq.parm delete mode 100644 parm/nmb_cntrl.parm delete mode 100644 parm/rap_wrf_cntrl.parm delete mode 100644 parm/wrf_cntrl.parm delete mode 100644 sorc/ncep_post.fd/INITPOST_GFS_SIGIO.f delete mode 100644 sorc/ncep_post.fd/READCNTRL.F delete mode 100644 sorc/ncep_post.fd/RQSTFLD.F create mode 100644 sorc/ncep_post.fd/RQSTFLD.f diff --git a/parm/nam_cntrl_cmaq.parm b/parm/nam_cntrl_cmaq.parm deleted file mode 100644 index f7ef1a9fd..000000000 --- a/parm/nam_cntrl_cmaq.parm +++ /dev/null @@ -1,1304 +0,0 @@ - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00089) - DATSET *A6* :(BGDAWP) - (PRESS ON MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT ON MDL SFCS ) SCAL=(-5.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP ON MDL SFCS ) SCAL=(-4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP ON MDL SFCS) SCAL=(-4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT TEMP ON MDL SFC) SCAL=(-4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM ON MDL SFCS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM ON MDL SFCS ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNVG ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON MDL SFCS ) SCAL=(-4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND ON MDL SFCS ) SCAL=(-4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA ON MDL SFCS ) SCAL=(-5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (W WIND ON MDL SFCS ) SCAL=(-5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ABS VORT ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STRMFUNC ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRBLNT KE ON MDL SFC) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RCHDSN NO ON MDL SFC) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RAIN ON MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW ON MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (F_RimeF ON MDL SFCS ) SCAL=( 3.0) - 1=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONDENSATE MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL MDL SFCS ) SCAL=(-4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MASTER LENGTH SCALE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ASYMPT MSTR LEN SCL ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF PRESS SFCS) SCAL=(-5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (TEMP ON PRESS SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (POT TEMP ON P SFCS ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT TEMP ON P SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (SPEC HUM ON P SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (REL HUMID ON P SFCS ) SCAL=(-3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (MST CNVG ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00001 00010 00000 00000 00000 00000 00000) - (U WIND ON PRESS SFCS) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (V WIND ON PRESS SFCS) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (OMEGA ON PRESS SFCS ) SCAL=(-5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (W WIND ON P SFCS ) SCAL=(-5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (ABS VORT ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00010 10100 01000 10000 00010 10001 00100 10000 00000 00000 00000 00000) - (STRMFUNC ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 10000 00000 10000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRBLNT KE ON P SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (CLOUD ICE ON P SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (CLOUD WATR ON P SFCS) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (RAIN ON P SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (SNOW ON P SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (F_RimeF ON P SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (RADAR REFL ON P SFCS) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADFLX TMP TNDY ON P) SCAL=( 5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (MESINGER MEAN SLP ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHUELL MEAN SLP ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER PRESSURE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER DEWPOINT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER REL HUMID ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC WIND GUST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFT PCL LVL PRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP AT 10 M ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM AT 10 M ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE HEIGHT ) SCAL=(-2.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE POT TEMP ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE DEWPOINT ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE REL HUMID ) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC (SKIN) TEMPRATUR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BOTTOM SOIL TEMP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TEMPERATURE ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIQUID SOIL MOISTURE) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL SOIL MOISTURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT CANOPY SFC WTR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW WATER EQUIVALNT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PERCENT SNOW COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC EXCHANGE COEF ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GREEN VEG COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEGETATION TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SLOPE TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW FREE ALBEDO ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAXIMUM SNOW ALBEDO ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY CONDUCTANCE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOLAR ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND TEMP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOILM ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST REFERENCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST POROSITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NO OF ROOT LAYERS ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MIN STOMATAL RESIST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW DEPTH ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AIR DRY SOIL MOIST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST WILT PT ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE AVAIL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--SURFCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BEST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BNDLYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT AVBL POT ENRGY) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT INHIBITION ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRECIPITABLE WATER ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STORM REL HELICITY ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP STORM MOTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP STORM MOTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM TOTAL PRECIP ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM CONVCTIVE PRECIP) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM GRD SCALE PRECIP) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOWFALL ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOW TOTAL/MELT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM STORM SFC RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM BSFL-GDWR RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FROZEN FRAC CLD SCHM) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD WTR ON MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD ICE ON MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD FRAC ON MDL SFCS) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MID CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGH CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL CLD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG TOTAL CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG STRAT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG CNVCT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VISIBILITY ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL AGL HEIGHT ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GRDSCL RN TMPTDY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE CNVCT RN TMPTDY ) SCAL=( 2.7) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADFLX CNVG TMP TNDY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SW RAD TEMP TNDY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LW RAD TEMP TNDY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT TOA LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BRIGHTNESS TEMP ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BRIGHTNESS TEMP NCAR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN CLR INC SFC SW) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ROUGHNESS LENGTH ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FRICTION VELOCITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC DRAG COEFFICIENT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC U WIND STRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC V WIND STRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC SENHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GROUND HEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SNO PHSCNG HT FX) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC LATHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC MOMENTUM FX ) SCAL=(-3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC SFC EVAPORATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC POT EVAPORATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC SENHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC LATHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LATITUDE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LONGITUDE ) SCAL=( 7.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LAND/SEA MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA ICE MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MASS POINT MDL SFC ) SCAL=( 2.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEL POINT MDL SFC ) SCAL=( 2.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC MIDDAY ALBEDO ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA SFC TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS AT TROPOPAUSE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT AT TROPOPAUSE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT TROPOPAUSE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POTENTL TEMP AT TROP) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT TROPOPAUSE) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT TROPOPAUSE) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHEAR AT TROPOPAUSE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - L=(22221 11111 11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT FD HEIGHTS) SCAL=(-4.0) - L=(22221 11111 11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT FD HEIGHTS) SCAL=(-4.0) - L=(22221 11111 11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPE HUM AT FD HEIGHT) SCAL=( 3.0) - L=(22221 11111 11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS AT FD HEIGHTS ) SCAL=( 4.0) - L=(22221 11111 11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF FRZ LVL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUMID AT FRZ LVL) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGHEST FREEZE LVL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW WET BULB ZERO HT) SCAL=(-5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS IN BNDRY LYR ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP IN BNDRY LYR ) SCAL=(-4.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TMP IN BNDRY LYR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT IN BNDRY LYR ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPC HUM IN BNDRY LYR) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM IN BNDRY LYR) SCAL=(-0.1) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNV IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (P WATER IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND IN BNDRY LYR ) SCAL=(-4.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND IN BNDRY LYR ) SCAL=(-4.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA IN BNDRY LYR ) SCAL=(-5.0) - L=(10100 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.33-1.00 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.66-1.00 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.33-0.66 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.33-1.00 PWAT ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 PRESSURE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 TMPRATUR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 SPC HUM ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 REL HUM ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 U WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 V WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.89671 TMPRATUR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.78483 TMPRATUR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.47-1.00 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.47-0.96 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.18-0.47 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.84-0.98 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.85-1.00 QCONVG) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOT PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP TEMPS ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOTTOM HEIGHT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP HEIGHT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP TEMPS ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND PRESS LEVEL) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND HGHT LEVEL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP MAX WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP MAX WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE RADAR REFL) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE RAIN REFL ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE ICE REFL ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE CONV REFL ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL AGL ) SCAL=(-4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RAIN RADAR REFL AGL ) SCAL=(-4.0) - L=(01000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ICE RADAR REFL AGL ) SCAL=(-4.0) - L=(01000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV RADAR REFL AGL ) SCAL=(-4.0) - L=(01000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PBL HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD BOT PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD TOP PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD BOT PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD TOP PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD BOT PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD TOP PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD BOT PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD TOP PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CU CLOUD EFFICIENCY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD WTR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD ICE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN RAIN ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN SNOW ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COL CONDENSATE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLD LIQUID ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL MELTING ICE ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COLD LIQ BOT HEIGHT ) SCAL=(-5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COLD LIQ TOP HEIGHT ) SCAL=(-5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CEILING ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM LSM PRECIP ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MODEL TOP PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL SW T TNDY ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL LW T TNDY ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL GRD T TNDY ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL CNVCT T TNDY) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL MST CNVG ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HPC T ON SIGMA SFCS ) SCAL=(-4.0) - L=(11111 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PBL REGIME ) SCAL=( 2.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL SW T TNDY ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL LW T TNDY ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL GRD T TNDY ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL CNVCT T TNDY) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOT COL MST CNVG ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRANSPORT U WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRANSPORT V WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RICH NO PBL HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MIXHT HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR ECHO TOP ) SCAL=(-6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (IN-FLIGHT ICING ) SCAL=( 1.0) - L=(00000 00000 00000 00101 01010 10101 01010 10101 01010 00000 00000 00000 00000 00000) - (CLEAR AIR TURBULENCE) SCAL=( 1.0) - L=(00000 00000 01111 01010 10101 01000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON THETA SFCS) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND ON THETA SFCS) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP ON THETA SFCS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PV ON THETA SFCS ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON PV SFCS ) SCAL=( 4.0) - L=(11111 11100 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND ON PV SFCS ) SCAL=( 4.0) - L=(11111 11100 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP ON PV SFCS ) SCAL=( 4.0) - L=(11111 11100 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT ON PV SFCS ) SCAL=( 6.0) - L=(11111 11100 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESSURE ON PV SFCS ) SCAL=( 6.0) - L=(11111 11100 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHEAR ON PV SFCS ) SCAL=( 3.0) - L=(11111 11100 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HAINES INDEX ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VENTILATION RATE ) SCAL=(-2.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00089) - DATSET *A6* :(BGRD3D) - (HEIGHT OF PRESS SFCS) SCAL=(-5.0) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00000 00000 00000 00000 00000 00000) - (TEMP ON PRESS SFCS ) SCAL=(-4.0) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00010 00000 00000 00000 00000 00000) - (REL HUMID ON P SFCS ) SCAL=(-0.1) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00000 00000 00000 00000 00000 00000) - (U WIND ON PRESS SFCS) SCAL=(-4.0) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00000 00000 00000 00000 00000 00000) - (V WIND ON PRESS SFCS) SCAL=(-4.0) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00000 00000 00000 00000 00000 00000) - (OMEGA ON PRESS SFCS ) SCAL=(-5.0) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00000 00000 00000 00000 00000 00000) - (SPEC HUM ON P SFCS ) SCAL=( 2.7) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00000 00000 00000 00000 00000 00000) - (ABS VORT ON P SFCS ) SCAL=( 2.7) - L=(00000 00000 00000 10000 00000 10000 00010 00001 00000 00000 00000 00000 00000 00000) - (PRESS ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (HEIGHT ON MDL SFCS ) SCAL=(-5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (TEMP ON MDL SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (SPEC HUM ON MDL SFCS) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (U WIND ON MDL SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (V WIND ON MDL SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (ABS VORT ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA ON MDL SFCS ) SCAL=(-5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (W WIND ON MDL SFCS ) SCAL=(-5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (TRBLNT KE ON MDL SFC) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (AVE GRDSCL RN TMPTDY) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (AVE CNVCT RN TMPTDY ) SCAL=( 2.7) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (MESINGER MEAN SLP ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHUELL MEAN SLP ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER DEWPOINT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER REL HUMID ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP AT 10 M ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM AT 10 M ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE HEIGHT ) SCAL=(-2.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE POT TEMP ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC (SKIN) TEMPRATUR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TEMPERATURE ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL SOIL MOISTURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC EXCHANGE COEF ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GREEN VEG COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE AVAIL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BOTTOM SOIL TEMP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT CANOPY SFC WTR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW WATER EQUIVALNT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BEST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT AVBL POT ENRGY) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRECIPITABLE WATER ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM TOTAL PRECIP ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM CONVCTIVE PRECIP) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM GRD SCALE PRECIP) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOWFALL ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOW TOTAL/MELT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM STORM SFC RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM BSFL-GDWR RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FROZEN FRAC CLD SCHM) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD WTR ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (CLD ICE ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (CLD FRAC ON MDL SFCS) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (RAIN ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (SNOW ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (F_RimeF ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (CONDENSATE MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (F_rain ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (F_ice ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (LOW CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MID CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGH CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL CLD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG TOTAL CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG STRAT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG CNVCT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN CLR INC SFC SW) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ROUGHNESS LENGTH ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FRICTION VELOCITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC DRAG COEFFICIENT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC U WIND STRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC V WIND STRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC SENHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GROUND HEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SNO PHSCNG HT FX) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC LATHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC MOMENTUM FX ) SCAL=(-3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC SFC EVAPORATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC POT EVAPORATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC SENHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC LATHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LATITUDE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LONGITUDE ) SCAL=( 7.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LAND/SEA MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA ICE MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MASS POINT MDL SFC ) SCAL=( 2.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEL POINT MDL SFC ) SCAL=( 2.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC MIDDAY ALBEDO ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA SFC TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS IN BNDRY LYR ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP IN BNDRY LYR ) SCAL=(-4.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TMP IN BNDRY LYR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT IN BNDRY LYR ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPC HUM IN BNDRY LYR) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM IN BNDRY LYR) SCAL=(-0.1) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNV IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (P WATER IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND IN BNDRY LYR ) SCAL=(-4.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND IN BNDRY LYR ) SCAL=(-4.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.47-1.00 RELHUM) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM LSM PRECIP ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MODEL TOP PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HYBRID PRESSURE DP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HYBRID SIGMA DP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC EXCHANGE COEF ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GREEN VEG COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--SURFCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BNDLYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT AVBL POT ENRGY) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT INHIBITION ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFT PCL LVL PRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRECIPITABLE WATER ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STORM REL HELICITY ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP STORM MOTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP STORM MOTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOT PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL AGL HEIGHT ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL PRESSURE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP TEMPS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADFLX CNVG TMP TNDY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SW RAD TEMP TNDY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LW RAD TEMP TNDY ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS AT TROPOPAUSE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT AT TROPOPAUSE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT TROPOPAUSE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POTENTL TEMP AT TROP) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT TROPOPAUSE) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT TROPOPAUSE) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHEAR AT TROPOPAUSE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT FD HEIGHTS ) SCAL=(-4.0) - L=(11111 11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT FD HEIGHTS) SCAL=(-4.0) - L=(11111 11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT FD HEIGHTS) SCAL=(-4.0) - L=(11111 11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF FRZ LVL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUMID AT FRZ LVL) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGHEST FREEZE LVL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS IN BNDRY LYR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP IN BNDRY LYR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TMP IN BNDRY LYR) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT IN BNDRY LYR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPC HUM IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM IN BNDRY LYR) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNV IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (P WATER IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND IN BNDRY LYR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND IN BNDRY LYR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA IN BNDRY LYR ) SCAL=(-5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.33-1.00 RELHUM) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.66-1.00 RELHUM) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.33-0.66 RELHUM) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LFM 0.33-1.00 PWAT ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 PRESSURE) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 TMPRATUR) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 SPC HUM ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 REL HUM ) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 U WIND ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.98230 V WIND ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.89671 TMPRATUR) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.78483 TMPRATUR) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.47-1.00 RELHUM) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.47-0.96 RELHUM) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.18-0.47 RELHUM) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.84-0.98 RELHUM) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NGM 0.85-1.00 QCONVG) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND PRESS LEVEL) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND HGHT LEVEL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP MAX WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP MAX WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOTTOM HEIGHT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP HEIGHT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VISIBILITY ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE RADAR REFL) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD BOT PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD TOP PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD BOT PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD TOP PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD BOT PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD TOP PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD BOT PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD TOP PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CU CLOUD EFFICIENCY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD WTR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD ICE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN RAIN ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN SNOW ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COL CONDENSATE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEGETATION TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY CONDUCTANCE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PBL HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SLOPE TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW DEPTH ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIQUID SOIL MOISTURE) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW FREE ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAXIMUM SNOW ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY WATER EVAP ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DIRECT SOIL EVAP ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT TRANSPIRATION ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW SUBLIMATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AIR DRY SOIL MOIST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST POROSITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MIN STOMATAL RESIST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NO OF ROOT LAYERS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST WILT PT ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST REFERENCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOLAR ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND TEMP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOILM ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POTENTIAL EVAP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC WIND GUST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW WET BULB ZERO HT) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LEAF AREA INDEX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN CLR INC SFC SW) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD FRAC ON SIG SFCS) SCAL=( 3.0) - L=(11111 11111 11111 11111 11000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD FRAC ON MDL SFCS) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (CLD WTR ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (CLD ICE ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000) - (RICH NO PBL HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MIXHT HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PERCENT SNOW COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00089) - DATSET *A6* :(BGRDSF) - (PRESS ON MDL SFCS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT ON MDL SFCS ) SCAL=(-5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP ON MDL SFCS ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP ON MDL SFCS) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM ON MDL SFCS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM ON MDL SFCS ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON MDL SFCS ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND ON MDL SFCS ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRBLNT KE ON MDL SFC) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEGETATION TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SLOPE TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIQUID SOIL MOISTURE) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW FREE ALBEDO ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAXIMUM SNOW ALBEDO ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY CONDUCTANCE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOLAR ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND TEMP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOILM ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST REFERENCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST POROSITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NO OF ROOT LAYERS ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MIN STOMATAL RESIST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PBL HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW DEPTH ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PERCENT SNOW COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AIR DRY SOIL MOIST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST WILT PT ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MASTER LENGTH SCALE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MESINGER MEAN SLP ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHUELL MEAN SLP ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER PRESSURE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER DEWPOINT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER REL HUMID ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP AT 10 M ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM AT 10 M ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE HEIGHT ) SCAL=(-2.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE POT TEMP ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC (SKIN) TEMPRATUR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TEMPERATURE ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL SOIL MOISTURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC EXCHANGE COEF ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GREEN VEG COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE AVAIL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BOTTOM SOIL TEMP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT CANOPY SFC WTR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW WATER EQUIVALNT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BEST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRECIPITABLE WATER ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM TOTAL PRECIP ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM CONVCTIVE PRECIP) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOWFALL ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOW TOTAL/MELT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM STORM SFC RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM BSFL-GDWR RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD WTR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD ICE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN RAIN ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN SNOW ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COL CONDENSATE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FROZEN FRAC CLD SCHM) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MID CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGH CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL CLD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG TOTAL CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG STRAT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG CNVCT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN CLR INC SFC SW) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ROUGHNESS LENGTH ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FRICTION VELOCITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC DRAG COEFFICIENT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC U WIND STRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC V WIND STRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC SENHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GROUND HEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SNO PHSCNG HT FX) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC LATHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC MOMENTUM FX ) SCAL=(-3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC SFC EVAPORATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC POT EVAPORATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC SENHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC LATHEAT FX ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LATITUDE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LONGITUDE ) SCAL=( 7.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LAND/SEA MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA ICE MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC MIDDAY ALBEDO ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA SFC TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM LSM PRECIP ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FROZEN FRAC CLD SCHM) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (UPDRAFT HELICITY PRM) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00089) - DATSET *A6* :(BGGOES) - (GOES TB - CH 2 ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 3 ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 4 ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 5 ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** diff --git a/parm/nmb_cntrl.parm b/parm/nmb_cntrl.parm deleted file mode 100644 index e759debc0..000000000 --- a/parm/nmb_cntrl.parm +++ /dev/null @@ -1,503 +0,0 @@ - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00125) - DATSET *A6* :(NMBPRS) - (PRESS ON MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT ON MDL SFCS ) SCAL=( 6.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP ON MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP ON MDL SFCS) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT TEMP ON MDL SFC) SCAL=( 5.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM ON MDL SFCS) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM ON MDL SFCS ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNVG ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND ON MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA ON MDL SFCS ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ABS VORT ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STRMFUNC ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRBLNT KE ON MDL SFC) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RCHDSN NO ON MDL SFC) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RAIN ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (F_RimeF ON MDL SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONDENSATE MDL SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD WTR ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD ICE ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRAUPEL ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD FRAC ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MASTER LENGTH SCALE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ASYMPT MSTR LEN SCL ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF PRESS SFCS) SCAL=( 6.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (TEMP ON PRESS SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (POT TEMP ON P SFCS ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT TEMP ON P SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (SPEC HUM ON P SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (REL HUMID ON P SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (MST CNVG ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON PRESS SFCS) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (V WIND ON PRESS SFCS) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (W WIND ON P SFCS ) SCAL=( 5.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (OMEGA ON PRESS SFCS ) SCAL=( 5.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (ABS VORT ON P SFCS ) SCAL=( 3.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (STRMFUNC ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRBLNT KE ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD ICE ON P SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD WATR ON P SFCS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RAIN ON P SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW ON P SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (F_RimeF ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL ON P SFCS) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRAUPEL ON P SFCS ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAPS SLP ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MESINGER MEAN SLP ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHUELL MEAN SLP ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER PRESSURE ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER TEMPERATURE ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER DEWPOINT ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER REL HUMID ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER MIX RATIO ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT ANEMOM HT ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT ANEMOM HT ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP AT 10 M ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM AT 10 M ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE PRESSURE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE POT TEMP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE SPEC HUMID ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE DEWPOINT ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE REL HUMID ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC (SKIN) TEMPRATUR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BOTTOM SOIL TEMP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TEMPERATURE ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIQUID SOIL MOISTURE) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL SOIL MOISTURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT CANOPY SFC WTR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW WATER EQUIVALNT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PERCENT SNOW COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC EXCHANGE COEF ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GREEN VEG COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEGETATION TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SLOPE TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW FREE ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAXIMUM SNOW ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY CONDUCTANCE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOLAR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND TEMP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND HUMID ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOILM ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST REFERENCE) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST POROSITY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NO OF ROOT LAYERS ) SCAL=( 1.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MIN STOMATAL RESIST ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW DEPTH ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AIR DRY SOIL MOIST ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST WILT PT ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE AVAIL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--SURFCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BEST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BNDLYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT AVBL POT ENRGY) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT INHIBITION ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRECIPITABLE WATER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STORM REL HELICITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM TOTAL PRECIP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM CONVCTIVE PRECIP) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM GRD SCALE PRECIP) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM GRD SCALE SW ICE) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOWFALL ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET SNOW PRECIP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET TOTAL PRECIP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET CONV PRECIP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET GRDSCALE PRCP) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOW TOTAL/MELT ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM STORM SFC RNOFF ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM BSFL-GDWR RNOFF ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FROZEN FRAC CLD SCHM) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA SFC TEMPERATURE ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MID CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGH CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG TOTAL CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG STRAT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG CNVCT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD CLD BOT HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD CLD TOP HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOT PRESSURE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP PRESSURE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP TEMPS ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOTTOM HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD BOT PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD TOP PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD BOT PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD TOP PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD BOT PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD TOP PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD BOT PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD TOP PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND PRESS LEVEL) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND HGHT LEVEL ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP MAX WIND ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP MAX WIND ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PBL HEIGHT ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE RADAR REFL) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL AGL ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VISIBILITY ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD VISIBILITY ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL AGL HEIGHT ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL PRESSURE ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GRDSCL RN TMPTDY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE CNVCT RN TMPTDY ) SCAL=( 2.7) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADFLX CNVG TMP TNDY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SW RAD TEMP TNDY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LW RAD TEMP TNDY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BRIGHTNESS TEMP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BRIGHTNESS TEMP NCAR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN CLR INC SFC SW) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ROUGHNESS LENGTH ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FRICTION VELOCITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC DRAG COEFFICIENT) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC U WIND STRESS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC V WIND STRESS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC SENHEAT FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GROUND HEAT FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SNO PHSCNG HT FX) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC LATHEAT FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC MOMENTUM FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC SFC EVAPORATION ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC POT EVAPORATION ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC SENHEAT FX ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC LATHEAT FX ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LATITUDE ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LONGITUDE ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LAND/SEA MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA ICE MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC MIDDAY ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFT PCL LVL PRESS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS AT TROPOPAUSE ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT AT TROPOPAUSE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT TROPOPAUSE ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POTENTL TEMP AT TROP) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT TROPOPAUSE) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT TROPOPAUSE) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHEAR AT TROPOPAUSE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPE HUM AT FD HEIGHT) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT FD HEIGHTS ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT FD HEIGHTS) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT FD HEIGHTS) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF FRZ LVL ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUMID AT FRZ LVL) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGHEST FREEZE LVL ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS IN BNDRY LYR ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP IN BNDRY LYR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TMP IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT IN BNDRY LYR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPC HUM IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNV IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (P WATER IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND IN BNDRY LYR ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND IN BNDRY LYR ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA IN BNDRY LYR ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX 10m WIND SPEED ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX UPDRAFT VERT VEL) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX DNDRAFT VERT VEL) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX 1km REFLECTIVITY) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX UPDRAFT HELICITY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MEAN VERT VEL ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX VERT INTEG GRAUP) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL AGL HEIGHT ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP STORM MOTION ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP STORM MOTION ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP 0-1 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP 0-1 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP 0-6 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP 0-6 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC WIND GUST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA SW RAD) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA LW RAD) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT TOA LW RAD) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL CLD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD WTR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD ICE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN RAIN ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN SNOW ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COL CONDENSATE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLD LIQUID ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL MELTING ICE ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CEILING ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (EMISSIVITY ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 2 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 3 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 4 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 5 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PV ON THETA SFCS ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - diff --git a/parm/rap_wrf_cntrl.parm b/parm/rap_wrf_cntrl.parm deleted file mode 100644 index 738966b62..000000000 --- a/parm/rap_wrf_cntrl.parm +++ /dev/null @@ -1,365 +0,0 @@ - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00125) - DATSET *A6* :(WRFTWO) - (MAPS SLP ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER POT TEMP ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER DEWPOINT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER DEWP DEPRES ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE EQ POT TEMP ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER REL HUMID ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT ANEMOM HT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE PRESSURE ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW WATER EQUIVALNT) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PERCENT SNOW COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW DEPTH ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS AT TROPOPAUSE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT TROPOPAUSE ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POTENTL TEMP AT TROP) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT TROPOPAUSE) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT TROPOPAUSE) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF FRZ LVL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUMID AT FRZ LVL) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGHEST FRZ LVL PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGHEST FREEZE LVL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGHEST FRZ LVL RH ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESSURE OF FRZ LVL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW WET BULB ZERO HT) SCAL=(-1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM STORM SFC RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM BSFL-GDWR RNOFF ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BEST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--SURFCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA ICE MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT AVBL POT ENRGY) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT INHIBITION ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRECIPITABLE WATER ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STORM REL HELICITY ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM TOTAL PRECIP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM CONVCTIVE PRECIP) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM GRD SCALE PRECIP) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOWFALL ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET SNOW PRECIP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET TOTAL PRECIP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET CONV PRECIP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET GRDSCALE PRCP) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA SFC TEMPERATURE ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD CLD BOT HEIGHT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD CLD TOP HEIGHT ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PBL HEIGHT ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND PRESS LEVEL) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP MAX WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP MAX WIND ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE RADAR REFL) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL AGL ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD VISIBILITY ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC SENHEAT FX ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC LATHEAT FX ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFT PCL LVL PRESS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP IN BNDRY LYR ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TMP IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT IN BNDRY LYR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM IN BNDRY LYR) SCAL=(-0.1) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND IN BNDRY LYR ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND IN BNDRY LYR ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA IN BNDRY LYR ) SCAL=(-5.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RH WRT PRECIP WATER ) SCAL=(-0.1) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC (SKIN) TEMPRATUR) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT AT TROPOPAUSE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TEMPERATURE ) SCAL=( 3.0) - L=(11111 11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE ) SCAL=( 4.0) - L=(11111 11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX 10m WIND SPEED ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX UPDRAFT VERT VEL) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX DNDRAFT VERT VEL) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX 1km REFLECTIVITY) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX UPDRAFT HELICITY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MEAN VERT VEL ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX VERT INTEG GRAUP) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL AGL HEIGHT ) SCAL=(-3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP STORM MOTION ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP STORM MOTION ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP 0-1 KM SHEAR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP 0-1 KM SHEAR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP 0-6 KM SHEAR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP 0-6 KM SHEAR ) SCAL=(-4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC WIND GUST ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FRICTION VELOCITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC LW RAD) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT TOA LW RAD) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DIRECT SOIL EVAP ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY WATER EVAP ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT TRANSPIRATION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT CANOPY SFC WTR) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL CLD FRACTION ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW CLOUD FRACTION ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MID CLOUD FRACTION ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGH CLOUD FRACTION ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LAND/SEA MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEGETATION TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TYPE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD BOT PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD TOP PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD BOT PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD TOP PRES) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD BOT PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD TOP PRESS) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLD TOP HGHT ) SCAL=(-1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CEILING ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLEAR AIR TURBULENCE) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (0-2000FT LLWS ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ECHO TOPS IN KFT ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (EQUIL LEVEL HEIGHT ) SCAL=(-1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIGHTNING ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFLECT - 1km ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFLECT - 4km ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOT PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP PRESSURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP TEMPS ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL SOIL MOISTURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BOTTOM SOIL TEMP ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE AVAIL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE HEIGHT ) SCAL=(-5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADARVIL ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ECHOTOP ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00125) - DATSET *A6* :(WRFPRS) - (HEIGHT OF PRESS SFCS) SCAL=(-5.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (TEMP ON PRESS SFCS ) SCAL=(-4.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (DWPT TEMP ON P SFCS ) SCAL=(-4.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (SPEC HUM ON P SFCS ) SCAL=( 3.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (REL HUMID ON P SFCS ) SCAL=(-3.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (U WIND ON PRESS SFCS) SCAL=(-4.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (V WIND ON PRESS SFCS) SCAL=(-4.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (OMEGA ON PRESS SFCS ) SCAL=(-5.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (ABS VORT ON P SFCS ) SCAL=( 3.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (CLOUD ICE ON P SFCS ) SCAL=( 6.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (CLOUD WATR ON P SFCS) SCAL=( 6.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (RAIN ON P SFCS ) SCAL=( 6.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (SNOW ON P SFCS ) SCAL=( 6.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (GRAUPEL ON P SFCS ) SCAL=( 6.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (TRBLNT KE ON P SFCS ) SCAL=( 3.0) - L=(00000 01011 11111 11111 11111 11111 11111 11111 11111 11000 00000 00000 00000 00000) - (PRESS ON MDL SFCS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT ON MDL SFCS ) SCAL=(-3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP ON MDL SFCS ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM ON MDL SFCS) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON MDL SFCS ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND ON MDL SFCS ) SCAL=(-4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD WTR ON MDL SFCS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD ICE ON MDL SFCS ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHUELL MEAN SLP ) SCAL=(-0.1) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT FD HEIGHTS ) SCAL=( 3.0) - L=(00200 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT FD HEIGHTS) SCAL=( 3.0) - L=(00200 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT FD HEIGHTS) SCAL=( 3.0) - L=(00200 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS AT FD HEIGHTS ) SCAL=( 3.0) - L=(00200 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPE HUM AT FD HEIGHT) SCAL=( 3.0) - L=(00200 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00125) - DATSET *A6* :(WRFNAT) - (PRESS ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (HEIGHT ON MDL SFCS ) SCAL=(-5.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (TEMP ON MDL SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (SPEC HUM ON MDL SFCS) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (U WIND ON MDL SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (V WIND ON MDL SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (OMEGA ON MDL SFCS ) SCAL=(-4.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (WV MIX R ON MDL SFCS) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (CLD WTR ON MDL SFCS ) SCAL=( 6.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (CLD ICE ON MDL SFCS ) SCAL=( 6.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (RAIN ON MDL SFCS ) SCAL=( 6.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (SNOW ON MDL SFCS ) SCAL=( 6.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (GRAUPEL ON MDL SFCS ) SCAL=( 6.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (TRBLNT KE ON MDL SFC) SCAL=(-2.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (NCICE ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (NCRAIN ON MDL SFCS ) SCAL=( 3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) - (CLD FRAC ON MDL SFCS) SCAL=(-3.0) - L=(11111 11111 11111 11111 11111 11111 11111 11111 11111 11111 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - diff --git a/parm/wrf_cntrl.parm b/parm/wrf_cntrl.parm deleted file mode 100644 index 2a7cac7a7..000000000 --- a/parm/wrf_cntrl.parm +++ /dev/null @@ -1,499 +0,0 @@ - KGTYPE******I5*******:(00255)********START OF THIS OUTPUT GRID****** - IMDLTY *I5* :(00125) - DATSET *A6* :(WRFPRS) - (PRESS ON MDL SFCS ) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT ON MDL SFCS ) SCAL=( 6.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP ON MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TEMP ON MDL SFCS) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT TEMP ON MDL SFC) SCAL=( 5.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPEC HUM ON MDL SFCS) SCAL=( 3.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM ON MDL SFCS ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNVG ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND ON MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA ON MDL SFCS ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ABS VORT ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STRMFUNC ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRBLNT KE ON MDL SFC) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RCHDSN NO ON MDL SFC) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RAIN ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (F_RimeF ON MDL SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONDENSATE MDL SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL MDL SFCS ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD WTR ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD ICE ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRAUPEL ON MDL SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLD FRAC ON MDL SFCS) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MASTER LENGTH SCALE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ASYMPT MSTR LEN SCL ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF PRESS SFCS) SCAL=( 6.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (TEMP ON PRESS SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (POT TEMP ON P SFCS ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT TEMP ON P SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (SPEC HUM ON P SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (REL HUMID ON P SFCS ) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (MST CNVG ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND ON PRESS SFCS) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (V WIND ON PRESS SFCS) SCAL=( 4.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (W WIND ON P SFCS ) SCAL=( 5.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (OMEGA ON PRESS SFCS ) SCAL=( 5.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (ABS VORT ON P SFCS ) SCAL=( 3.0) - L=(00000 01001 01010 10101 01010 10101 01010 11111 11111 10000 00000 00000 00000 00000) - (STRMFUNC ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TRBLNT KE ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD ICE ON P SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD WATR ON P SFCS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RAIN ON P SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW ON P SFCS ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (F_RimeF ON P SFCS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL ON P SFCS) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRAUPEL ON P SFCS ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAPS SLP ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MESINGER MEAN SLP ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHUELL MEAN SLP ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER PRESSURE ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER TEMPERATURE ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER SPEC HUMID ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER DEWPOINT ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER REL HUMID ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHELTER MIX RATIO ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT ANEMOM HT ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT ANEMOM HT ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE PRESSURE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE POT TEMP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE SPEC HUMID ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE DEWPOINT ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SURFACE REL HUMID ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC (SKIN) TEMPRATUR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BOTTOM SOIL TEMP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TEMPERATURE ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE ) SCAL=( 3.0) - L=(11111 10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIQUID SOIL MOISTURE) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL SOIL MOISTURE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PLANT CANOPY SFC WTR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW WATER EQUIVALNT) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PERCENT SNOW COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC EXCHANGE COEF ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GREEN VEG COVER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VEGETATION TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SLOPE TYPE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW FREE ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAXIMUM SNOW ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY CONDUCTANCE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOLAR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND TEMP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND HUMID ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CANOPY COND SOILM ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST REFERENCE) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST POROSITY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (NO OF ROOT LAYERS ) SCAL=( 1.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MIN STOMATAL RESIST ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SNOW DEPTH ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AIR DRY SOIL MOIST ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOIST WILT PT ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SOIL MOISTURE AVAIL ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--SURFCE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BEST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFTED INDEX--BNDLYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT AVBL POT ENRGY) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CNVCT INHIBITION ) SCAL=( 3.0) - L=(11110 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRECIPITABLE WATER ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (STORM REL HELICITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM TOTAL PRECIP ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM CONVCTIVE PRECIP) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM GRD SCALE PRECIP) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM GRD SCALE SW ICE) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOWFALL ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET SNOW PRECIP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET TOTAL PRECIP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET CONV PRECIP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BUCKET GRDSCALE PRCP) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM SNOW TOTAL/MELT ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM STORM SFC RNOFF ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACM BSFL-GDWR RNOFF ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD PRECIP TYPE ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTANT PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV PRECIP RATE ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FROZEN FRAC CLD SCHM) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA SFC TEMPERATURE ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LOW CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MID CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGH CLOUD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG TOTAL CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG STRAT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVG CNVCT CLD FRAC ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD CLD BOT HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD CLD TOP HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOT PRESSURE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP PRESSURE ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP TEMPS ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD BOTTOM HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CLOUD TOP HEIGHT ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD BOT PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD TOP PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD BOT PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHAL CU CLD TOP PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD BOT PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DEEP CU CLD TOP PRES) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD BOT PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GRID CLOUD TOP PRESS) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CONV CLOUD FRACTION ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND PRESS LEVEL) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX WIND HGHT LEVEL ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP MAX WIND ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP MAX WIND ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PBL HEIGHT ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (COMPOSITE RADAR REFL) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADAR REFL AGL ) SCAL=( 4.0) - L=(11000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (VISIBILITY ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GSD VISIBILITY ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL AGL HEIGHT ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL PRESSURE ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GRDSCL RN TMPTDY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE CNVCT RN TMPTDY ) SCAL=( 2.7) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (RADFLX CNVG TMP TNDY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SW RAD TEMP TNDY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LW RAD TEMP TNDY ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE INCMG SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BRIGHTNESS TEMP ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (BRIGHTNESS TEMP NCAR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC SW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN INC SFC LW RAD) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN CLR INC SFC SW) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ROUGHNESS LENGTH ) SCAL=( 2.7) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (FRICTION VELOCITY ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC DRAG COEFFICIENT) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC U WIND STRESS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC V WIND STRESS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC SENHEAT FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE GROUND HEAT FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SNO PHSCNG HT FX) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC LATHEAT FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE SFC MOMENTUM FX ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC SFC EVAPORATION ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (ACC POT EVAPORATION ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC SENHEAT FX ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST GROUND HEAT FLX) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INST SFC LATHEAT FX ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LATITUDE ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LONGITUDE ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LAND/SEA MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SEA ICE MASK ) SCAL=( 1.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC MIDDAY ALBEDO ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LIFT PCL LVL PRESS ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS AT TROPOPAUSE ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT AT TROPOPAUSE) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT TROPOPAUSE ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POTENTL TEMP AT TROP) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT TROPOPAUSE) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT TROPOPAUSE) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SHEAR AT TROPOPAUSE ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPE HUM AT FD HEIGHT) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP AT FD HEIGHTS ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND AT FD HEIGHTS) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND AT FD HEIGHTS) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HEIGHT OF FRZ LVL ) SCAL=( 6.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUMID AT FRZ LVL) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (HIGHEST FREEZE LVL ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PRESS IN BNDRY LYR ) SCAL=( 6.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TEMP IN BNDRY LYR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (POT TMP IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (DWPT IN BNDRY LYR ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SPC HUM IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (REL HUM IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MST CNV IN BNDRY LYR) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (P WATER IN BNDRY LYR) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U WIND IN BNDRY LYR ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V WIND IN BNDRY LYR ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (OMEGA IN BNDRY LYR ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX 10m WIND SPEED ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX UPDRAFT VERT VEL) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX DNDRAFT VERT VEL) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX 1km REFLECTIVITY) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX UPDRAFT HELICITY) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MEAN VERT VEL ) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (MAX VERT INTEG GRAUP) SCAL=( 3.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (LCL AGL HEIGHT ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP STORM MOTION ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP STORM MOTION ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP 0-1 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP 0-1 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (U COMP 0-6 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (V COMP 0-6 KM SHEAR ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (SFC WIND GUST ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA SW RAD) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (AVE OUTGO TOA LW RAD) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (INSTN OUT TOA LW RAD) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL CLD FRACTION ) SCAL=( 3.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD WTR) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN CLD ICE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN RAIN ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLUMN SNOW ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COL CONDENSATE) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL COLD LIQUID ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (TOTAL MELTING ICE ) SCAL=( 5.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (CEILING ) SCAL=( 5.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (EMISSIVITY ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 2 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 3 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 4 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (GOES TB - CH 5 ) SCAL=( 4.0) - L=(00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) - (PV ON THETA SFCS ) SCAL=( 4.0) - L=(10000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000 00000) -***DONE WITH THIS GRID*** - diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index 88a885a93..8dc6fae37 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -104,11 +104,10 @@ list(APPEND LIB_SRC PMICRPH.f POLEAVG.f PROCESS.f - READCNTRL.F READ_xml.f retrieve_index.f RHGRD.f - RQSTFLD.F + RQSTFLD.f SCLFLD.f SELECT_CHANNELS.f SERVER.f @@ -147,7 +146,6 @@ list(APPEND EXE_SRC INITPOST_GFS_NEMS_MPIIO.f INITPOST_GFS_NETCDF.f INITPOST_GFS_NETCDF_PARA.f - INITPOST_GFS_SIGIO.f INITPOST_NEMS.f INITPOST_NEMS_MPIIO.f INITPOST_NETCDF.f diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS.f index 7111fb628..2f04cfb7e 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NEMS.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NEMS.f @@ -83,7 +83,6 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & nbin_oc, nbin_su, gocart_on, pt_tbl, hyb_sigp use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat - use rqstfld_mod, only: igds, avbl, iq, is use upp_physics, only: fpvsnew ! use wrf_io_flags_mod, only: ! Do we need this? !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -127,7 +126,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & CHARACTER*40 CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV,FILCLD,FILRAD,FILSFC CHARACTER*4 RESTHR CHARACTER FNAME*255,ENVAR*50 - INTEGER IDATE(8),JDATE(8),JPDS(200),JGDS(200),KPDS(200),KGDS(200) + INTEGER IDATE(8),JDATE(8),JPDS(200),JGDS(200),KPDS(200),KGDS(200),IGDS(18) ! LOGICAL*1 LB(IM,JM) ! ! INCLUDE COMMON BLOCKS. @@ -2546,11 +2545,11 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & if(iostatusD3D == 0) then ! start reading d3d file ! retrieve longwave tendency using getgb Index=41 - VarName=avbl(index) + VarName='LW RAD TEMP TNDY' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) + jpds(5)=251 + jpds(6)=109 do l=1,lm jpds(7)=l ll=lm-l+1 !flip 3d fields to count from top down @@ -2561,11 +2560,11 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & ! retrieve shortwave tendency using getgb Index=40 - VarName=avbl(index) + VarName='SW RAD TEMP TNDY' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) + jpds(5)=250 + jpds(6)=109 do l=1,lm jpds(7)=l ll=lm-l+1 !flip 3d fields to count from top down @@ -2579,7 +2578,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='VDIFF TNDY' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=246 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2591,11 +2590,11 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & ! retrieve deep convective tendency using getgb Index=79 - VarName=avbl(index) + VarName='AVE CNVCT RN TMPTDY' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) + jpds(5)=242 + jpds(6)=109 do l=1,lm jpds(7)=l ll=lm-l+1 !flip 3d fields to count from top down @@ -2609,7 +2608,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='S CNVCT TNDY' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=244 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2621,11 +2620,11 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & ! retrieve grid scale latent heat tendency using getgb Index=78 - VarName=avbl(index) + VarName='AVE GRDSCL RN TMPTDY' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) + jpds(5)=241 + jpds(6)=109 do l=1,lm jpds(7)=l ll=lm-l+1 !flip 3d fields to count from top down @@ -2639,7 +2638,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='Vertical diffusion moistening' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=249 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2654,7 +2653,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='deep convection moistening' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=243 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2669,7 +2668,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='shallow convection moistening' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=245 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2684,7 +2683,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='non-radiation tendency' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=173 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2699,7 +2698,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='Vertical diffusion of ozone' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=174 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2714,7 +2713,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='Ozone production' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=175 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2729,7 +2728,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='Ozone tendency' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=188 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2744,7 +2743,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='Mass weighted PV' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=139 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2759,7 +2758,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='?' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=239 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2774,7 +2773,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='VDIFF Z ACCE' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=247 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2789,7 +2788,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='G DRAG Z ACCE' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=181 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2804,7 +2803,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='CNVCT U M MIX' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=183 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2819,7 +2818,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='VDIFF M ACCE' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=248 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2834,7 +2833,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='G DRAG M ACCE' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=182 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2849,7 +2848,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='CNVCT V M MIX' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=184 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2864,7 +2863,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='N CNVCT CLD FRA' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=213 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2879,7 +2878,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='CNVCT U M FLX' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=202 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2894,7 +2893,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='CNVCT D M FLX' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=209 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2909,7 +2908,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='CNVCT DET M FLX' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=219 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2924,7 +2923,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='CNVCT G DRAG Z ACCE' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=196 jpds(6)=109 do l=1,lm jpds(7)=l @@ -2939,7 +2938,7 @@ SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & VarName='CNVCT G DRAG M ACCE' jpds=-1.0 jgds=-1.0 - jpds(5)=iq(index) + jpds(5)=197 jpds(6)=109 do l=1,lm jpds(7)=l diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index 33807f269..4714cfc3d 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f @@ -95,7 +95,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) iSF_SURFACE_PHYSICS use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat - use rqstfld_mod, only: igds, avbl, iq, is use nemsio_module_mpi use upp_physics, only: fpvsnew !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f index 164b91163..b61732212 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f @@ -81,7 +81,6 @@ SUBROUTINE INITPOST_GFS_NETCDF(ncid3d) use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r - use rqstfld_mod, only: igds, avbl, iq, is use upp_physics, only: fpvsnew !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f index 811a8d191..d4049ebb1 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f @@ -82,7 +82,7 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r - use rqstfld_mod, only: igds, avbl, iq, is + use upp_physics, only: fpvsnew !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none diff --git a/sorc/ncep_post.fd/INITPOST_GFS_SIGIO.f b/sorc/ncep_post.fd/INITPOST_GFS_SIGIO.f deleted file mode 100644 index b8ab8755f..000000000 --- a/sorc/ncep_post.fd/INITPOST_GFS_SIGIO.f +++ /dev/null @@ -1,3062 +0,0 @@ -!> @file -! . . . -!> SUBPROGRAM: INITPOST INITIALIZE POST FOR RUN -!! PRGRMMR: Hui-Ya Chuang DATE: 2007-03-01 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF AN ETA MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 2011-02-07 Jun Wang add grib2 option -!! 2013-04-19 Jun Wang add changes to read wam tracers -!! 2013-05-04 Shrinivas Moorthi: real * 8 for pm1d and pi1d and pt=100hPa and some cosmetic changes -!! 2021-03-11 Bo Cui change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INIT -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! - SUBROUTINE INITPOST_GFS_SIGIO(lusig,iunit,iostatusFlux,iostatusD3D,idrt,sighead) - - use vrbls3d, only: ZINT, PINT, T, UH, VH, Q, O3, CWM, U, V, QQW, & - OMGA, PMID, PINT, ALPINT, ZMID, QQR, QQS, QQI, Q2, & - CFR, RLWTT, RSWTT, TCUCN, TCUCNS, TRAIN, EL_PBL, & - EXCH_H, VDIFFTT, VDIFFMOIS, DCONVMOIS, SCONVMOIS, & - NRADTT, O3VDIFF, O3PROD, O3TNDY, MWPV, UNKNOWN, & - VDIFFZACCE, ZGDRAG, CNVCTUMMIXING, VDIFFMACCE, & - MGDRAG, CNVCTDETMFLX,NCNVCTCFRAC, CNVCTUMFLX, & - CNVCTVMMIXING, CNVCTDMFLX, CNVCTZGDRAG, CNVCTMGDRAG - - use vrbls2d, only: F, PD, FIS, PBLH, USTAR, Z0, THS, QS, TWBS, QWBS, & - AVGCPRATE, CPRATE, AVGPREC, PREC, SR, LSPA, SNO, SI, & - CLDEFI, TH10, Q10, TSHLTR, PSHLTR, QSHLTR, ALBASE, & - AVGALBEDO,AVGTCDC, CZEN, CZMEAN, MXSNAL, RADOT, & - SIGT4, VEGFRC, CFRACL, CFRACM, AVGCFRACH, CFRACH, & - AVGCFRACL, AVGCFRACM, CNVCFR, ISLOPE, CMC, GRNFLX, & - SOILTB, TG, NCFRCV, ACFRCV, ASWINTOA, ACFRST, NCFRST,& - SSROFF, BGROFF, RLWIN, RLWTOA, ALWIN, ALWOUT, ALWTOA,& - RSWIN, RSWINC, RSWOUT, ASWIN, AUVBIN, AUVBINC, & - ASWOUT, ASWTOA, ASWINC, ASWOUTC, ASWTOAC, ASWINTOA, & - AVISBEAMSWIN, AVISDIFFSWIN, AIRBEAMSWIN, AIRDIFFSWIN,& - SFCSHX, SFCLHX, SUBSHX, SNOPCX, SFCUX, SFCVX, SFCUVX,& - SFCUGS, GTAUX, SFCVGS, GTAUY, POTEVP, U10, V10, & - SMSTAV, SMSTOT, IVGTYP, ISLTYP, SFCEVP, SFCEXC, & - ACSNOW, ACSNOM, SST, QZ0, UZ0, VZ0, PTOP, HTOP, PBOT,& - HBOT, PBOT, PTOPL, PBOTL, TTOPL, PTOPM, PBOTM, TTOPM,& - PTOPH, PBOTH, TTOPH, PBLCFR, CLDWORK, RUNOFF, & - MAXTSHLTR, MINTSHLTR, DZICE, SMCWLT, SUNTIME, & - FIELDCAPA, SNOWFALL, HTOPD, HBOTD, HTOPS, HBOTS, & - CUPPT, THZ0, MAXRHSHLTR, MINRHSHLTR, U10H, V10H - use soil, only: SLDPTH, SH2O, SMC, STC - use masks, only: LMV, LMH, HTM, VTM, GDLAT, GDLON, DX, DY, HBM2, SM, SICE - use physcons_post, only: CON_G, CON_FVIRT, CON_RD, CON_EPS, CON_EPSM1 - use masks, only: LMV, LMH, HTM, VTM, GDLAT, GDLON, DX, DY, HBM2, & - SM, SICE - use params_mod, only: RTD, ERAD, DTR, TFRZ, P1000, CAPA - use lookup_mod, only: THL, PLQ, PTBL, TTBL, RDQ, RDTH, RDP, RDTHE, PL, & - QS0, SQS, STHE, THE0, TTBLQ, RDPQ, RDTHEQ, STHEQ, & - THE0Q - use ctlblk_mod, only: ME, MPI_COMM_COMP, ICNT, IDSP,JEND_M, IHRST, IMIN,& - IDAT, SDAT, IFHR, IFMIN, FILENAME, TPREC, TCLOD, & - TRDLW, TRDSW, TSRFC, TMAXMIN, TD3D, RESTRT, & - IMP_PHYSICS, DT, NUM_PROCS, LP1, PDTOP, SPVAL, PT,& - NPHS, DTQ2, ARDLW, ARDSW, ASRFC, AVRAIN, AVCNVC, & - THEAT, GDSDEGR, SPL, LSM, ALSL, IM, JM, IM_JM, & - LM, JSTA_2L, JEND_2U, NSOIL, JSTA, JEND, ICU_PHYSICS - use gridspec_mod, only: MAPTYPE, GRIDTYPE, LATSTART, LATLAST, LONSTART, & - LONLAST, CENLON, DXVAL, DYVAL, TRUELAT2, & - TRUELAT1, CENLAT - use rqstfld_mod, only: IGDS, AVBL, IQ, IS - use sigio_module, only: SIGIO_HEAD - use sfcio_module, only: sfcio_head, sfcio_data, sfcio_srohdc - use upp_physics, only: fpvsnew -! use wrf_io_flags_mod -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none -! - type(sigio_head):: sighead - !type(sigio_data):: sigdatai - type(sfcio_head):: head - type(sfcio_data):: data -! -! INCLUDE/SET PARAMETERS. -! - INCLUDE "mpif.h" - integer,parameter:: MAXPTS=1000000 ! max im*jm points -! -! real,parameter:: con_g =9.80665e+0! gravity -! real,parameter:: con_rv =4.6150e+2 ! gas constant H2O -! real,parameter:: con_rd =2.8705e+2 ! gas constant air -! real,parameter:: con_fvirt =con_rv/con_rd-1. -! real,parameter:: con_eps =con_rd/con_rv -! real,parameter:: con_epsm1 =con_rd/con_rv-1 -! -! This version of INITPOST shows how to initialize, open, read from, and -! close a NetCDF dataset. In order to change it to read an internal (binary) -! dataset, do a global replacement of _ncd_ with _int_. - - integer,intent(in) :: lusig,iostatusFlux,iostatusD3D,iunit,idrt - character(len=20) :: VarName - character(len=20) :: VcoordName - integer :: Status - character startdate*19,SysDepInfo*80,cgar*1 - character startdate2(19)*4 -! -! NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK -! AS LONG AS REALS AND INTEGERS ARE THE SAME SIZE. -! -! ALSO, EXTRACT IS CALLED WITH DUMMY ( A REAL ) EVEN WHEN THE NUMBERS ARE -! INTEGERS - THIS IS OK AS LONG AS INTEGERS AND REALS ARE THE SAME SIZE. - LOGICAL RUNB,SINGLRST,SUBPOST,NEST,HYDRO - LOGICAL IOOMG,IOALL - logical, parameter :: debugprint = .false. -! logical, parameter :: debugprint = .true. - CHARACTER*32 LABEL - CHARACTER*40 CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV & - , FILCLD,FILRAD,FILSFC - CHARACTER*4 RESTHR - CHARACTER FNAME*255,ENVAR*50,sfcfilename*256 - INTEGER IDATE(8),JDATE(8) - INTEGER JPDS(200),JGDS(200),KPDS(200),KGDS(200) - LOGICAL*1 LB(IM,JM) - INTEGER IRET -! REAL BUFF(IM_JM) -! -! INCLUDE COMMON BLOCKS. -! -! DECLARE VARIABLES. -! -! REAL fhour - integer nfhour ! forecast hour from nems io file - REAL RINC(5) - REAL u1d(LM), v1d(LM),omga1d(lm) - real*8 pm1d(lm), pi1d(lm+1) - REAL DUM1D (LM+1) -! REAL DUMMY ( IM, JM ) -! REAL DUMMY2 ( IM, JM ) - REAL, ALLOCATABLE :: dummy_h(:,:),dummy_p(:,:),dummy_px(:,:), & - dummy_py(:,:),dummy_t(:,:,:),dummy_u(:,:,:),dummy_v(:,:,:), & - dummy_d(:,:,:),dummy_trc(:,:,:,:), dummy(:,:), dummy2(:,:) -! dummy18(:,:,:),dummy19(:,:,:) - REAL, ALLOCATABLE :: dummy15(:,:),dummy16(:,:),dummy17(:,:,:) - real, allocatable :: d2d(:,:), u2d(:,:), v2d(:,:), omga2d(:,:), & - p2d(:,:), t2d(:,:), q2d(:,:), qs2d(:,:), & - cw2d(:,:), cfr2d(:,:) - real*8, allocatable :: pm2d(:,:), pi2d(:,:) - real, allocatable :: fi(:,:,:) - -! INTEGER IDUMMY(IM,JM) -!jw - integer ii,jj,js,je,iyear,imn,iday,itmp,ioutcount,istatus, & - I,J,L,ll,k,kf,irtn,igdout,n,Index,nframe, & - impf,jmpf,nframed2,iunitd3d - real TSTART,TLMH,TSPH,ES, FACT,soilayert,soilayerb,zhour,dum - - real, allocatable:: glat1d(:),glon1d(:),qstl(:) - integer ierr,idum -! integer ntrac,nci,ij,ijl,j1,j2 - integer lsta,lend - integer ijmc,ijxc,kna,kxa,kma - real,allocatable :: ri(:),cpi(:) -! integer ibuf(im,jsta_2l:jend_2u) -! real buf(im,jsta_2l:jend_2u),bufsoil(im,nsoil,jsta_2l:jend_2u) - real buf(im,jsta_2l:jend_2u) - real, allocatable :: buf3d(:,:,:), ta(:,:,:,:), tb(:,:,:,:) - real, allocatable :: wrk1(:,:), wrk2(:,:) -! real buf3d(im,lm,jsta:jend) - real tem,tvll,pmll - integer levs,ntrac,ncld,idvt,jcap,lnt2,ntoz,ntcw,ltrc -! -! DATA BLANK/' '/ -! -!*********************************************************************** -! START INIT HERE. -! - if (me == 0) WRITE(6,*)'INITPOST: ENTER INITPOST_GFS_SIGIO' - WRITE(6,*)'me=',me,'LMV=',size(LMV,1),size(LMV,2),'LMH=', & - size(LMH,1),size(LMH,2),'jsta_2l=',jsta_2l,'jend_2u=', & - jend_2u,'im=',im -! -! -! STEP 1. READ MODEL OUTPUT FILE -! -! -!*** -! -! LMH always = LM for sigma-type vert coord -! LMV always = LM for sigma-type vert coord - -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i = 1, im - LMV ( i, j ) = lm - LMH ( i, j ) = lm - end do - end do - -! write(0,*),' LM=',LM,' LP1=',LP1 - -! HTM VTM all 1 for sigma-type vert coord - -!$omp parallel do private(i,j,l) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - HTM ( i, j, l ) = 1.0 - VTM ( i, j, l ) = 1.0 - end do - end do - end do - - allocate (dummy(im,jm), dummy2(im,jm)) - -! The end j row is going to be jend_2u for all variables except for V. - JS = JSTA_2L - JE = JEND_2U -! get start date - if (me == 0)then - idate(1) = sighead%idate(4) - idate(2) = sighead%idate(2) - idate(3) = sighead%idate(3) - idate(4) = sighead%idate(1) - idate(5) = 0 - nfhour = nint(sighead%fhour) - - allocate(glat1d(jm),glon1d(jm)) - -! call splat to compute lat for gaussian grid - call splat(idrt,jm,glat1d,glon1d) - -!$omp parallel do private(i,j,tem) - do j=1,jm - tem = asin(glat1d(j))*RTD - do i=1,im - dummy(i,j) = tem - dummy2(i,j) = 360./im*(i-1) - end do - end do - deallocate(glat1d,glon1d) - - print*,'idate before broadcast = ',(idate(i),i=1,7) - end if - call mpi_bcast(idate(1),7,MPI_INTEGER,0,mpi_comm_comp,iret) - call mpi_bcast(nfhour,1,MPI_INTEGER,0,mpi_comm_comp,iret) - if (me == 0) then - print*,'idate after broadcast = ',(idate(i),i=1,4) - print*,'nfhour = ',nfhour - endif - -! sample print point - ii = im/2 - jj = jm/2 - - call mpi_scatterv(dummy(1,1),icnt,idsp,mpi_real & - ,gdlat(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,ierr) - call mpi_scatterv(dummy2(1,1),icnt,idsp,mpi_real & - ,gdlon(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,ierr) - - -! write(0,*)'before call EXCH,mype=',me,'max(gdlat)=',maxval(gdlat),& -! 'max(gdlon)=', maxval(gdlon) - - CALL EXCH(gdlat(1,JSTA_2L)) - - print *,'after call EXCH,mype=',me - -!$omp parallel do private(i,j) - do j = jsta, jend_m - do i = 1, im-1 - DX( i,j) = ERAD*COS(GDLAT(I,J)*DTR)*(GDLON(I+1,J)-GDLON(I,J))*DTR - DY(i,j) = ERAD*(GDLAT(I,J)-GDLAT(I,J+1))*DTR ! like A*DPH -! F(I,J)=1.454441e-4*sin(gdlat(i,j)*DTR) ! 2*omeg*sin(phi) - end do - end do - if (me == 0) print*,'sample LATLON, DY, DY=',ii,jend, & - GDLAT(II,JEND),GDLON(II,JEND),DX(II,JEND),DY(II,JEND) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - F(I,J) = 1.454441e-4*sin(gdlat(i,j)*DTR) ! 2*omeg*sin(phi) - end do - end do - - impf = im - jmpf = jm - if (me == 0) print*,'impf,jmpf= ',impf,jmpf -!Moo print*,'impf,jmpf,nframe= ',impf,jmpf,nframe - -! iyear=idate(4)+2000 ! older gfsio only has 2 digit year - iyear = idate(1) - imn = idate(2) ! ask Jun - iday = idate(3) ! ask Jun - ihrst = idate(4) - imin = idate(5) - jdate = 0 - idate = 0 -! -! read(startdate,15)iyear,imn,iday,ihrst,imin - 15 format(i4,1x,i2,1x,i2,1x,i2,1x,i2) - if (me == 0) then - print*,'start yr mo day hr min =',iyear,imn,iday,ihrst,imin - print*,'processing yr mo day hr min=' & - ,idat(3),idat(1),idat(2),idat(4),idat(5) - endif -! - idate(1) = iyear - idate(2) = imn - idate(3) = iday - idate(5) = ihrst - idate(6) = imin - SDAT(1) = imn - SDAT(2) = iday - SDAT(3) = iyear - jdate(1) = idat(3) - jdate(2) = idat(1) - jdate(3) = idat(2) - jdate(5) = idat(4) - jdate(6) = idat(5) -! -! CALL W3DIFDAT(JDATE,IDATE,2,RINC) -! ifhr=nint(rinc(2)) -! - CALL W3DIFDAT(JDATE,IDATE,0,RINC) -! - ifhr = nint(rinc(2)+rinc(1)*24.) - ifmin = nint(rinc(3)) -! if(ifhr /= nint(fhour))print*,'find wrong Grib file';stop - if (me == 0) then - print *,' idate=',idate - print *,' rinc=',rinc - print *,' ifhr=',ifhr - print*,' in INITPOST ifhr ifmin fileName=',ifhr,ifmin,fileName - -! GFS has the same accumulation bucket for precipitation and fluxes and it is written to header -! the header has the start hour information so post uses it to recontruct bucket - tprec = 6. - if(ifhr>240)tprec=12. - tclod = tprec - trdlw = tprec - trdsw = tprec - tsrfc = tprec - tmaxmin = tprec - td3d = tprec - print*,'tprec = ',tprec - end if - - call mpi_bcast(tprec,1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(tclod,1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(trdlw,1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(trdsw,1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(tsrfc,1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(tmaxmin,1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(td3d,1,MPI_REAL,0,mpi_comm_comp,iret) - -! Getting tstart - tstart = 0. - - print*,'tstart= ',tstart - -! Getiing restart - - RESTRT=.TRUE. ! set RESTRT as default - - IF(tstart > 1.0E-2)THEN - ifhr = ifhr+NINT(tstart) - rinc = 0 - idate = 0 - rinc(2) = -1.0*ifhr - call w3movdat(rinc,jdate,idate) - SDAT(1) = idate(2) - SDAT(2) = idate(3) - SDAT(3) = idate(1) - IHRST = idate(5) - print*,'new forecast hours for restrt run= ',ifhr - print*,'new start yr mo day hr min =',sdat(3),sdat(1) & - ,sdat(2),ihrst,imin - END IF - - imp_physics = 99 !set GFS mp physics to 99 for Zhao scheme - iCU_PHYSICS = 4 - print*,'MP_PHYSICS=,cu_physics=',imp_physics,icu_physics - -! Initializes constants for Ferrier microphysics - if(imp_physics==5 .or. imp_physics==85 .or. imp_physics==95)then - CALL MICROINIT(imp_physics) - end if - -! waiting to retrieve lat lon infor from raw GFS output -! VarName='DX' - -! VarName='DY' - -! GFS does not need DT to compute accumulated fields, set it to one -! VarName='DT' - DT = 1 -! GFS does not need truelat -! VarName='TRUELAT1' - -! VarName='TRUELAT2' - -! Specify maptype=4 for Gaussian grid -! maptype=4 -! write(6,*) 'maptype is ', maptype -! HBM2 is most likely not in Grib message, set them to ones - HBM2 = 1.0 - -! try to get kgds from flux grib file and then convert to igds that is used by GRIBIT.f - - if(me == 0)then - jpds = -1.0 - jgds = -1.0 - igds = 0 - call getgb(iunit,0,im_jm,0,jpds,jgds,kf & - ,k,kpds,kgds,lb,dummy,ierr) - if(ierr == 0)then - call R63W72(KPDS,KGDS,JPDS,IGDS(1:18)) - print*,'use IGDS from flux file for GFS= ',(IGDS(I),I=1,18) - else - print*,'no flux file, fill part of kgds with sigma file info' - kgds(1) = idrt - kgds(2) = im - kgds(3) = jm - end if - end if - call mpi_bcast(igds(1),18,MPI_INTEGER,0,mpi_comm_comp,iret) - call mpi_bcast(kgds(1),18,MPI_INTEGER,0,mpi_comm_comp,iret) - print*,'IGDS for GFS= ',(IGDS(I),I=1,18) - -! Specigy grid type -! if(iostatusFlux==0)then - if(IGDS(4) /= 0)then - maptype = IGDS(3) - else if((im/2+1) == jm)then - maptype = 0 !latlon grid - else - maptype = 4 ! default gaussian grid - end if - gridtype = 'A' - - write(6,*) 'maptype and gridtype is ', maptype,gridtype - if(idrt /= maptype)then - print*,'flux file and sigma file are on different grids - ', & - 'post processing isterminated' - call mpi_abort() - stop - end if - - levs = sighead%levs - ntrac = sighead%ntrac - ncld = sighead%ncldt - idvt = sighead%idvt - jcap = sighead%jcap - lnt2 = (jcap+1)*(jcap+2) - ntoz = mod(idvt,10) + 1 -!jw ntcw = idvt/10 + 1 - if( idvt/100 > 0 ) then - ntcw = 3 - else - ntcw = idvt/10 + 1 - endif - -! start reading sigma file -! decompose l to read different levs with different pes - call mptgen(me,num_procs,1,1,lm,lsta,lend,kxa,kma,kna) - - write(0,*)' me=',me,' lsta=',lsta,' lend=',lend,' kxa=',kxa, & - ' kma=',kma,' kna=',kna - ii = im/2 - jj = (jsta+jend)/2 - - print*,'lsta, lend= ',lsta,lend - if (lsta > lend) lend = lsta - - allocate(dummy_h(im,jm),dummy_p(im,jm),dummy_px(im,jm),dummy_py(im,jm) & - ,dummy_t(im,jm,lsta:lend),dummy_u(im,jm,lsta:lend) & - ,dummy_v(im,jm,lsta:lend),dummy_d(im,jm,lsta:lend) & - ,dummy_trc(im,jm,lsta:lend,ntrac)) - -! ,dummy12(im,jm,lsta:lend), & -! dummy13(im,jm,lsta:lend),dummy14(im,jm,lsta:lend), & -! dummy18(im,jm,lsta:lend),dummy19(im,jm,lsta:lend) ) - - if (me == 0) then - print*,'calling rtsig with lusig,lsta,lend,im_jm,kgds= ', & - lusig,lsta,lend,im_jm,kgds(1:20) - - write(0,*)' levs=',levs,' ntrac=',ntrac,' ncld=',ncld,' jcap=',jcap & - ,' lnt2=',lnt2,' ntoz=',ntoz,' ntcw=',ntcw - endif - - call rtsig(lusig,sighead,lsta,lend,kgds,im_jm, & ! input - levs,ntrac,jcap,lnt2,me, & ! input - dummy_h,dummy_p,dummy_px,dummy_py, & ! output - dummy_t,dummy_u,dummy_v,dummy_d, & ! output - dummy_trc,iret) ! output - write(0,*)'aft rtsig,iret=',iret - - if(iret /= 0)then - print*,'error reading sigma file, stopping' - print*,'error massage is ',iret - call mpi_abort() - end if - - if(Debugprint)print*,'done with rtsig, sample t,u,v,q,cwm= ', & - dummy_t(1,1,lsta:lend), dummy_u(1,1,lsta:lend), & - dummy_v(1,1,lsta:lend), dummy_trc(1,1,lsta:lend,1), & - dummy_trc(1,1,lsta:lend,3),' lsta=',lsta,'lend=',lend -! write(0,*)'bf allocate ' - -! set threads for rest of the code -! call getenv('POST_THREADS',ENVAR) -! read(ENVAR, '(I2)')idum -! idum = max(idum+0,1) -! write(0,*)' post_threads=', idum -! if (idum > 0 .and. idum <= 32) then -! call OMP_SET_NUM_THREADS(idum) -! endif - -! scatter to pes - allocate(dummy15(im,jsta_2l:jend_2u), & - dummy16(im,jsta_2l:jend_2u),dummy17(im,jsta_2l:jend_2u,lm)) - -! write(0,*)'af allocate ' - -! call mpi_scatterv(dummy_h(1,1),icnt,idsp,mpi_real & -! ,zint(1,jsta,lp1),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! call mpi_scatterv(dummy_p(1,1),icnt,idsp,mpi_real & -! ,pint(1,jsta,lp1),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! call mpi_scatterv(dummy_px(1,1),icnt,idsp,mpi_real & -! ,dummy15(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! call mpi_scatterv(dummy_py(1,1),icnt,idsp,mpi_real & -! ,dummy16(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) - -!$omp parallel do private(i,j) - do j=jsta, jend - do i=1, im - zint(i,j,lp1) = dummy_h(i,j) - pint(i,j,lp1) = dummy_p(i,j) - dummy15(i,j) = dummy_px(i,j) - dummy16(i,j) = dummy_py(i,j) - enddo - enddo - deallocate (dummy_h,dummy_p,dummy_px,dummy_py) - - write(0,*)'one scattering zs and ps',zint(ii,jj,lp1),pint(ii,jj,lp1) - - - ijmc = (jm-1)/num_procs+1 - ijxc = jend-jsta+1 - - allocate (ta(im,ijmc,kma,num_procs)) - allocate (tb(im,ijmc,kma,num_procs)) - allocate (buf3d(im,lm,jsta:jend)) - -! write(0,*)'be mptranr4' - if(ijxc > ijmc) print*,'ijxc larger than ijmc =',ijxc,ijmc - call mptranr4(MPI_COMM_COMP,num_procs,im,im,im, & - ijmc,jm,ijxc,jm,kma,kxa,lm,lm,dummy_t,buf3d,ta,tb) -! write(0,*)'be set buf3d' -!$omp parallel do private(i,j,l,ll) - do l=1, lm - ll = lm-l+1 - do j=jsta, jend - do i=1, im - T(i,j,l) = buf3d(i,ll,j) - end do - end do - end do - if (debugprint) then - do l=1, lm - print*,'sample i,j,l, T = ',ii,jj,l,t(ii,jj,l) - enddo - endif - -! write(0,*)'be set uh' - call mptranr4(MPI_COMM_COMP,num_procs,im,im,im, & - ijmc,jm,ijxc,jm,kma,kxa,lm,lm,dummy_u,buf3d,ta,tb) -!$omp parallel do private(i,j,l,ll) - do l=1, lm - ll = lm-l+1 - do j=jsta, jend - do i=1, im - uh(i,j,l) = buf3d(i,ll,j) - end do - end do - end do - if (debugprint) then - do l=1, lm - print*,'sample i,j,l,U = ',ii,jj,l,uh(ii,jj,l) - enddo - endif - -! write(0,*)'be set vh' - call mptranr4(MPI_COMM_COMP,num_procs,im,im,im, & - ijmc,jm,ijxc,jm,kma,kxa,lm,lm,dummy_v,buf3d,ta,tb) -!$omp parallel do private(i,j,l,ll) - do l=1, lm - ll = lm-l+1 - do j=jsta, jend - do i=1, im - vh(i,j,l) = buf3d(i,ll,j) - end do - end do - end do - if (debugprint) then - do l=1, lm - print*,'sample i,j,l,V = ',ii,jj,l,vh(ii,jj,l) - enddo - endif -! - -! ltrc = min(lsta,levs) ! For processors greater than levs - -! write(0,*)'be set q' - call mptranr4(MPI_COMM_COMP,num_procs,im,im,im,ijmc,jm, & - ijxc,jm,kma,kxa,lm,lm,dummy_trc(1,1,lsta,1),buf3d,ta,tb) -!$omp parallel do private(i,j,l,ll) - do l=1, lm - ll = lm-l+1 - do j=jsta, jend - do i=1, im - q(i,j,l) = buf3d(i,ll,j) - end do - end do - end do - if (debugprint) then - do l=1, lm - print*,'sample i,j,l,Q = ',ii,jj,l,q(ii,jj,l) - enddo - endif - -! write(0,*)'be set o3' - call mptranr4(MPI_COMM_COMP,num_procs,im,im,im,ijmc,jm, & - ijxc,jm,kma,kxa,lm,lm,dummy_trc(1,1,lsta,ntoz),buf3d,ta,tb) -!$omp parallel do private(i,j,l,ll) - do l=1, lm - ll = lm-l+1 - do j=jsta, jend - do i=1, im - o3(i,j,l) = buf3d (i,ll,j) - end do - end do - end do - if (debugprint) then - do l=1, lm - print*,'sample i,j,l,O3 = ',ii,jj,l,o3(ii,jj,l) - enddo - endif - -! write(0,*)'be set cld,ntcw=',ntcw - call mptranr4(MPI_COMM_COMP,num_procs,im,im,im,ijmc,jm, & - ijxc,jm,kma,kxa,lm,lm,dummy_trc(1,1,lsta,ntcw),buf3d,ta,tb) -! write(0,*)'aft mptranr4 cwm' -!$omp parallel do private(i,j,l,ll) - do l=1, lm - ll = lm-l+1 - do j=jsta, jend - do i=1, im - cwm(i,j,l ) = buf3d (i,ll,j) - end do - end do - end do - if (debugprint) then - do l=1, lm - print*,'sample i,j,l,CWM = ',ii,jj,l,cwm(ii,jj,l) - enddo - endif -! write(0,*)' cwm=',cwm(1,36,100:150)*1000 - -! write(0,*)'be set div' - call mptranr4(MPI_COMM_COMP,num_procs,im,im,im, & - ijmc,jm,ijxc,jm,kma,kxa,lm,lm,dummy_d,buf3d,ta,tb) -!$omp parallel do private(i,j,l) - do l=1, lm - do j=jsta, jend - do i=1, im - dummy17(i,j,l ) = buf3d(i,l,j) - end do - end do - end do - if (debugprint) then - do l=1, lm - print*,'sample i,j,l,DIV = ',ii,jj,l,dummy17(ii,jj,l) - enddo - endif - - deallocate(dummy_t,dummy_u,dummy_v,dummy_d,dummy_trc,ta,tb,buf3d) -! dummy18,dummy19) - -!$omp parallel do private(i,j,l) - do l=1,lm -! if(debugprint)print*,'sample T Q U V,CWM',l,VarName,' = ',l,t(ii,jj,l),& -! q(ii,jj,l),u(ii,jj,l),v(ii,jj,l),cwm(ii,jj,l) - do j=jsta,jend - do i=1,im - if(t(i,j,l) < (TFRZ-15.) ) then ! separating cloud water from ice - qqi(i,j,l) = cwm(i,j,l) - else - qqw(i,j,l) = cwm(i,j,l) - end if - end do - end do - end do ! for l loop - -! write(0,*)'be set qqi' -! write(0,*)' qqw=',qqw(1,36,100:150) -! write(0,*)' qqi=',qqi(1,36,100:150) - -! compute model level pressure and omega - - pdtop = spval -! pt = 0. - pt = 10000. ! this is for 100 hPa added by Moorthi - pd = spval ! GFS does not output PD - - allocate (d2d(im,lm),u2d(im,lm),v2d(im,lm),pi2d(im,lm+1), & - pm2d(im,lm),omga2d(im,lm)) - - do j=jsta,jend -!$omp parallel do private(i,l,ll) - do l=1,lm - ll = lm-l+1 - do i=1,im - u2d(i,l) = uh(i,j,ll) ! flipping u and v for calling modstuff - v2d(i,l) = vh(i,j,ll) - d2d(i,l) = dummy17(i,j,l) - end do - end do - call modstuff2(im,im,lm, & - sighead%idvc,sighead%idsl,sighead%nvcoord, & - sighead%vcoord,pint(1,j,lp1),dummy15(1,j), & - dummy16(1,j),d2d,u2d,v2d, & - pi2d,pm2d,omga2d,me) -!$omp parallel do private(i,l,ll) - do l=1,lm - ll = lm-l+1 - do i=1,im - omga(i,j,l) = omga2d(i,ll) - pmid(i,j,l) = pm2d(i,ll) - pint(i,j,l) = pi2d(i,ll+1) - enddo - enddo - enddo ! end of j loop -! write(0,*)'be set pint' - -! write(0,*)' PINT=',pint(ii,jj,:),' me=',me - - deallocate(dummy15,dummy16,dummy17) - deallocate (d2d,u2d,v2d,pi2d,pm2d,omga2d) - - allocate(wrk1(im,jsta:jend),wrk2(im,jsta:jend)) - allocate(fi(im,jsta:jend,2)) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - alpint(i,j,lp1) = log(pint(i,j,lp1)) - wrk1(i,j) = log(PMID(I,J,LM)) - wrk2(i,j) = T(I,J,LM)*(Q(I,J,LM)*con_fvirt+1.0) - fis(i,j) = zint(i,j,lp1)*con_G - FI(I,J,1) = FIS(I,J) & - + wrk2(i,j)*con_rd*(ALPINT(I,J,Lp1)-wrk1(i,j)) - ZMID(I,J,LM) = FI(I,J,1)/con_G - enddo - enddo -! write(0,*)'be set zmid' - -! SECOND, INTEGRATE HEIGHT HYDROSTATICLY, GFS integrate height on mid-layer - ii = im/2 - jj = (jsta+jend)/2 - - DO L=LM,2,-1 ! omit computing model top height because it's infinity - ll = l - 1 -!$omp parallel do private(i,j,tvll,pmll,fact) - do j = jsta, jend -! write(0,*)' j=',j,' l=',l,' T=',T(1,j,l),' Q=',q(1,j,l), & -! ' pmid=',pmid(1,j,ll),pmid(1,j,l),' l=',l - do i = 1, im - -! if (me == 40) & -! write(0,*)' i=',i,' j=',j,' l=',l,' T=',T(i,j,l),' Q=',q(i,j,l),& -! ' pmid=',pmid(i,j,ll),pmid(i,j,l),' l=',l - - alpint(i,j,l) = log(pint(i,j,l)) - tvll = T(I,J,LL)*(Q(I,J,LL)*con_fvirt+1.0) - pmll = log(PMID(I,J,LL)) - - FI(I,J,2) = FI(I,J,1) + (0.5*con_rd)*(wrk2(i,j)+tvll) & - * (wrk1(i,j)-pmll) - ZMID(I,J,LL) = FI(I,J,2)/con_G -! - FACT = (ALPINT(I,J,L)-wrk1(i,j)) / (pmll-wrk1(i,j)) - ZINT(I,J,L) = ZMID(I,J,L) + (ZMID(I,J,LL)-ZMID(I,J,L)) * FACT - -! if(i==ii.and.j==jj) & -! print*,'L,sample T,Q,ALPMID(L+1),ALPMID(L),ZMID= ' & -! ,l,T(I,J,L),Q(I,J,L),LOG(PMID(I,J,L+1)), & -! LOG(PMID(I,J,L)),ZMID(I,J,L) - - FI(I,J,1) = FI(I,J,2) - wrk1(i,J) = pmll - wrk2(i,j) = tvll - ENDDO - ENDDO - - if (me == 0) print*,'L ZINT= ',l,zint(ii,jj,l), & - 'alpint=',ALPINT(ii,jj,l),'pmid=',LOG(PMID(Ii,Jj,L)),'pmid(l-1)=', & - LOG(PMID(Ii,Jj,L-1)),'zmd=',ZMID(Ii,Jj,L),'zmid(l-1)=',ZMID(Ii,Jj,L-1) - ENDDO - deallocate(wrk1,wrk2,fi) - -! write(0,*)'af sigma file' -! start retrieving data using getgb, first land/sea mask - - Index = 50 - VarName = avbl(index) - jpds = -1 - jgds = -1 - jpds(5) = iq(index) - jpds(6) = is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sm) - where(sm /= spval) sm = 1.0 - sm ! convert to sea mask -! write(0,*)'get land-see mask' - - if(debugprint)print*,'sample ',VarName,' = ',sm(im/2,(jsta+jend)/2) - -! sea ice mask using getgb - Index = 51 - VarName = avbl(index) - jpds = -1.0 - jgds = -1.0 - jpds(5) = iq(index) - jpds(6) = is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sice) - where(sm/=spval .and. sm==0.0) sice = 0.0 !specify sea ice=0 at land - - if(debugprint)print*,'sample ',VarName,' = ',sice(im/2,(jsta+jend)/2) - -! Zhao scheme does not produce suspended rain and snow - qqr = 0. - qqs = 0. - -! PBL height using getgb - Index = 221 - VarName = avbl(index) - jpds = -1.0 - jgds = -1.0 - jpds(5) = iq(index) - jpds(6) = is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,pblh) - - if(debugprint)print*,'sample ',VarName,' = ',pblh(im/2,(jsta+jend)/2) - -! frictional velocity using getgb - Index=45 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ustar) - if(debugprint)print*,'sample ',VarName,' = ',ustar(im/2,(jsta+jend)/2) - -! roughness length using getgb - Index=44 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,z0) - if(debugprint)print*,'sample ',VarName,' = ',z0(im/2,(jsta+jend)/2) - -! surface potential T using getgb - Index=26 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ths) - - -! where(ths/=spval)ths=ths*(p1000/pint(:,:,lp1))**CAPA ! convert to THS - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (ths(i,j) /= spval) then -! write(0,*)' i=',i,' j=',j,' ths=',ths(i,j),' pint=',pint(i,j,lp1) - ths(i,j) = ths(i,j) * (p1000/pint(i,j,lp1))**capa - endif - enddo - enddo - - if(debugprint)print*,'sample ',VarName,' = ',ths(im/2,(jsta+jend)/2) - - QS = SPVAL ! GFS does not have surface specific humidity - twbs = SPVAL ! GFS does not have inst sensible heat flux - qwbs = SPVAL ! GFS does not have inst latent heat flux - -! GFS does not have time step and physics time step, make up ones since they -! are not really used anyway - NPHS = 2. - DT = 80. - DTQ2 = DT * NPHS !MEB need to get physics DT - TSPH = 3600./DT !MEB need to get DT - -! convective precip in m per physics time step using getgb - Index=272 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) -! jpds(16)=3 ! CFSRR uses 1 for fhr>1532 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avgcprate) - where(avgcprate /= spval)avgcprate=avgcprate*dtq2/1000. ! convert to m - if(debugprint)print*,'sample ',VarName,' = ',avgcprate(im/2,(jsta+jend)/2) - - cprate=avgcprate - -! construct tprec from flux grib massage -! comment this out because you can't get precip bucket from flux file -! if(me==0 .and. iostatusFlux==0)then -! if(kpds(16)==3)then ! Grib1 can't specify accumulated field fhr>1532 -! if(KPDS(13)==1)then -! TPREC=float(KPDS(15)-KPDS(14)) -! else if(KPDS(13)==10)then -! TPREC=float(KPDS(15)-KPDS(14))*3.0 -! else if(KPDS(13)==11)then -! TPREC=float(KPDS(15)-KPDS(14))*6.0 -! else if(KPDS(13)==12)then -! TPREC=float(KPDS(15)-KPDS(14))*12.0 -! else if(KPDS(13)==2)then -! TPREC=float(KPDS(15)-KPDS(14))*24.0 -! else -! TPREC=float(KPDS(15)-KPDS(14)) -! end if -! else -! CALL GETENV('FHZER',ENVAR) -! read(ENVAR, '(I2)')idum -! tprec = idum * 1.0 -! print*,'TPREC from FHZER= ',tprec -! end if -! end if -! call mpi_bcast(tprec,1,MPI_REAL,0,mpi_comm_comp,iret) - -! precip rate in m per physics time step using getgb - Index=271 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avgprec) - where(avgprec /= spval) avgprec = avgprec*dtq2/1000. ! convert to m - - if(debugprint)print*,'sample ',VarName,' = ',avgprec(im/2,(jsta+jend)/2) - -! inst precip rate in m per physics time step using sfcio - if(me==0)then - call getenv('SFCINPUT',sfcfilename) - print*,'opening sfcfile to read',sfcfilename - call sfcio_srohdc(35,sfcfilename,head,data,iret) - if(iret /=0 )then - print*,'fail to read ',sfcfilename - dummy = spval - dummy2 = spval - else - dummy = data%tprcp - print '(f8.2)',dummy(1,1) -! dummy2 = data%srflag - end if - end if - - call mpi_scatterv(dummy(1,1),icnt,idsp,mpi_real & - ,prec(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) - - print*,'sampe inst precip= ',prec(im/2,jsta) - - where(prec /= spval) prec = prec*dtq2/1000. ! convert to m - -! call mpi_scatterv(dummy2(1,1),icnt,idsp,mpi_real & -! ,sr(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! print*,'sampe GFS sr= ',sr(im/2,jsta) - - deallocate(dummy2) -! prec=avgprec !set avg cprate to inst one to derive other fields - -! GFS does not have accumulated total, gridscale, and convective precip, will use inst precip to derive in SURFCE.f - - - lspa = spval ! GFS does not have similated precip - -! inst snow water eqivalent using getgb - Index=119 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sno) - - if(debugprint)print*,'sample ',VarName,' = ',sno(im/2,(jsta+jend)/2) - -! snow depth in mm using getgb - Index=224 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,si) - where(si /= spval) si = si*1000. ! convert to mm - - if(debugprint)print*,'sample ',VarName,' = ',si(im/2,(jsta+jend)/2) - - CLDEFI = SPVAL ! GFS does not have convective cloud efficiency - TH10 = SPVAL ! GFS does not have 10 m theta - Q10 = SPVAL ! GFS does not have 10 m humidity - -! 2m T using nemsio - Index=106 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=2 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,tshltr) - if(debugprint)print*,'sample ',VarName,' = ',tshltr(im/2,(jsta+jend)/2) - -! GFS does not have 2m pres, estimate it, also convert t to theta -!$omp parallel do private(i,j) - Do j=jsta,jend - Do i=1,im - if(tshltr(i,j) /= spval)then - -! if (me == 127) write(0,*)' i=',i,' j=',j,' tshltr=',tshltr(i,j) & -! ,' pint=',pint(I,J,lm+1) - - PSHLTR(I,J) = pint(I,J,lm+1)*EXP(-0.068283/tshltr(i,j)) - tshltr(i,j) = tshltr(i,j)*(p1000/PSHLTR(I,J))**CAPA ! convert to theta - else - PSHLTR(I,J) = spval - end if -! if (j==jm/2 .and. mod(i,50)==0) -! + print*,'sample 2m T and P after scatter= ' -! + ,i,j,tshltr(i,j),pshltr(i,j) - end do - end do - -! 2m specific humidity using gfsio -! VarName='spfh' -! VcoordName='2m above gnc' -! l=1 -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) & -! + ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! end if -! end if -! call mpi_scatterv(dummy,icnt,idsp,mpi_real & -! + ,qshltr(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - -! 2m specific humidity using nemsio - Index=112 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,qshltr) - if(debugprint)print*,'sample ',VarName,' = ',qshltr(im/2,(jsta+jend)/2) - - Q2 = SPVAL ! GFS does not have TKE because it uses GFS scheme - ! GFS does not have surface exchange coeff - ALBASE = SPVAL ! GFS does not have snow free albedo - -! mid day avg albedo in fraction using nemsio - Index=266 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avgalbedo) - where(avgalbedo /= spval)avgalbedo=avgalbedo/100. ! convert to fraction - if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(im/2,(jsta+jend)/2) - -! time averaged column cloud fractionusing nemsio - Index=144 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avgtcdc) - where(avgtcdc /= spval)avgtcdc=avgtcdc/100. ! convert to fraction - if(debugprint)print*,'sample ',VarName,' = ',avgtcdc(im/2,(jsta+jend)/2) - -! if(me==0 .and. iostatusFlux==0)then -! if(KPDS(13)==1)then -! TCLOD=float(KPDS(15)-KPDS(14)) -! else if(KPDS(13)==10)then -! TCLOD=float(KPDS(15)-KPDS(14))*3.0 -! else if(KPDS(13)==11)then -! TCLOD=float(KPDS(15)-KPDS(14))*6.0 -! else if(KPDS(13)==12)then -! TCLOD=float(KPDS(15)-KPDS(14))*12.0 -! else if(KPDS(13)==2)then -! TCLOD=float(KPDS(15)-KPDS(14))*24.0 -! else -! TCLOD=float(KPDS(15)-KPDS(14)) -! end if -! end if -! call mpi_bcast(tclod,1,MPI_REAL,0,mpi_comm_comp,iret) -! print*,'TCLOD from flux grib massage= ',TCLOD - - Czen = spval ! GFS probably does not use zenith angle (What???) - CZMEAN = SPVAL - -! maximum snow albedo in fraction using nemsio - Index=227 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,mxsnal) - where(mxsnal /= spval)mxsnal=mxsnal/100. ! convert to fraction - if(debugprint)print*,'sample ',VarName,' = ',mxsnal(im/2,(jsta+jend)/2) - - radot = spval ! GFS does not have inst surface outgoing longwave - -! GFS probably does not use sigt4, set it to sig*t^4 -!$omp parallel do private(i,j,tlmh) - Do j=jsta,jend - Do i=1,im - TLMH = T(I,J,LM) - Sigt4(I,j) = 5.67E-8*TLMH*TLMH*TLMH*TLMH - End do - End do - -! TG is not used, skip it for now -! allocate(qstl(lm)) - allocate(p2d(im,lm),t2d(im,lm),q2d(im,lm),cw2d(im,lm), & - qs2d(im,lm),cfr2d(im,lm)) - do j=jsta,jend -!$omp parallel do private(i,k,es) - do k=1,lm - do i=1,im - p2d(i,k) = pmid(i,j,k)*0.01 - t2d(i,k) = t(i,j,k) - q2d(i,k) = q(i,j,k) - cw2d(i,k) = cwm(i,j,k) - es = min(fpvsnew(t(i,j,k)),pmid(i,j,k)) - qs2d(i,k) = con_eps*es/(pmid(i,j,k)+con_epsm1*es)!saturation q for GFS - enddo - enddo - call progcld1 & -!................................... -! --- inputs: - ( p2d,t2d,q2d,qs2d,cw2d,im,lm,0, & -! --- outputs: - cfr2d & - ) -!$omp parallel do private(i,k) - do k=1,lm - do i=1,im - cfr(i,j,k) = cfr2d(i,k) - enddo - end do - end do - deallocate(p2d,t2d,q2d,qs2d,cw2d,cfr2d) - -! ask moorthi if there is snow rate in GFS -! varname='SR' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! SR=SPVAL -! else -! this_offset=file_offset(index+1)+(jsta_2l-1)*4*im -! this_length=im*(jend_2u-jsta_2l+1) -! call mpi_file_read_at(iunit,this_offset -! + ,sr,this_length,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName,"Assigned missing values" -! SR=SPVAL -! end if -! end if - -! GFS does not have inst cloud fraction for high, middle, and low cloud - cfrach = spval - cfracl = spval - cfracm = spval - -! ave high cloud fraction using nemsio - Index=302 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avgcfrach) - where(avgcfrach /= spval)avgcfrach=avgcfrach/100. ! convert to fraction - - if(debugprint)print*,'sample ',VarName,' = ',avgcfrach(im/2,(jsta+jend)/2) - -! ave low cloud fraction using nemsio - VarName='tcdc' - Index=300 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avgcfracl) - where(avgcfracl /= spval)avgcfracl=avgcfracl/100. ! convert to fraction - if(debugprint)print*,'sample ',VarName,' = ',avgcfracl(im/2,(jsta+jend)/2) - -! ave middle cloud fraction using nemsio - VarName='tcdc' - VcoordName='mid cld lay' - Index=301 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avgcfracm) - where(avgcfracm /= spval)avgcfracm=avgcfracm/100. ! convert to fraction - if(debugprint)print*,'sample ',VarName,' = ',avgcfracm(im/2,(jsta+jend)/2) - -! inst convective cloud fraction using nemsio - VarName='tcdc' - VcoordName='convect-cld laye' - Index=196 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=71 - jpds(6)=244 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvcfr) - where(cnvcfr /= spval)cnvcfr=cnvcfr/100. ! convert to fraction - if(debugprint)print*,'sample ',VarName,' = ',cnvcfr(im/2,(jsta+jend)/2) - -! slope type using nemsio - Index=223 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,buf) - where(buf /= spval)islope=nint(buf) - if(debugprint)print*,'sample ',VarName,' = ',islope(im/2,(jsta+jend)/2) - -! plant canopy sfc wtr in m using nemsio - VarName='cnwat' - VcoordName='sfc' - Index=118 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cmc) - where(cmc /= spval)cmc=cmc/1000. ! convert from kg*m^2 to m - if(debugprint)print*,'sample ',VarName,' = ',cmc(im/2,(jsta+jend)/2) - - grnflx = spval ! GFS does not have inst ground heat flux - -! GFS does not have snow cover yet -! VarName='gflux' -! VcoordName='sfc' -! l=1 -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) & -! + ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! end if -! end if -! call mpi_scatterv(dummy,icnt,idsp,mpi_real & -! + , pctsno(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - - soiltb = spval - tg = spval -! vegetation fraction in fraction. using nemsio - VarName='veg' - VcoordName='sfc' - Index=170 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vegfrc) - where(vegfrc /= spval) - vegfrc = vegfrc/100. ! convert to fraction - elsewhere (vegfrc == spval) - vegfrc = 0. ! set to zero to be reasonable input for crtm - end where - if(debugprint)print*,'sample ',VarName,' = ',vegfrc(im/2,(jsta+jend)/2) - -! GFS doesn not yet output soil layer thickness, assign SLDPTH to be the same as nam - - SLDPTH(1) = 0.10 - SLDPTH(2) = 0.3 - SLDPTH(3) = 0.6 - SLDPTH(4) = 1.0 - -! liquid volumetric soil mpisture in fraction using nemsio - VarName='soill' - VcoordName='0-10 cm down' - Index=225 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - do l=1,nsoil - if(l == 1)then - jpds(7)=nint(sldpth(1)*100.) - else - soilayert=0 - do n=1,l-1 - soilayert=soilayert+sldpth(n)*100. - end do - soilayerb=soilayert+sldpth(l)*100. - jpds(7)=nint(soilayert*256.+soilayerb) - end if - - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sh2o(1,jsta_2l,l)) - if(debugprint)print*,'sample l',VarName,' = ',l,sh2o(im/2,(jsta+jend)/2,1) - End do ! do loop for l - -! volumetric soil moisture using nemsio - VarName='soilw' - VcoordName='0-10 cm down' - Index=117 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - do l=1,nsoil - if(l == 1)then - jpds(7)=nint(sldpth(1)*100.) - else - soilayert=0 - do n=1,l-1 - soilayert=soilayert+sldpth(n)*100. - end do - soilayerb=soilayert+sldpth(l)*100. - jpds(7)=nint(soilayert*256.+soilayerb) - end if - - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,smc(1,jsta_2l,l)) - if(debugprint)print*,'sample l',VarName,' = ',l,smc(im/2,(jsta+jend)/2,1) - End do ! do loop for l - -! soil temperature using nemsio - VarName='tmp' - VcoordName='0-10 cm down' - Index=116 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=11 ! GFS used 11 for soil T instead of 85 - jpds(6)=is(index) - do l=1,nsoil - if(l == 1)then - jpds(7)=nint(sldpth(1)*100.) - else - soilayert=0 - do n=1,l-1 - soilayert=soilayert+sldpth(n)*100. - end do - soilayerb=soilayert+sldpth(l)*100. - jpds(7)=nint(soilayert*256.+soilayerb) - end if - - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,stc(1,jsta_2l,l)) - - if(debugprint)print*,'sample l','stc',' = ',1,stc(im/2,(jsta+jend)/2,1) - End do ! do loop for l - -! GFS does not output time averaged convective and strat cloud fraction, set acfrcv to spval, ncfrcv to 1 - acfrcv = spval - ncfrcv = 1.0 -! GFS does not output time averaged cloud fraction, set acfrst to spval, ncfrst to 1 - acfrst = spval - ncfrst = 1.0 - -! GFS does not have storm runoff - ssroff = spval - -! GFS does not have UNDERGROUND RUNOFF - bgroff = spval - -! GFS incoming sfc longwave has been averaged over 6 hr bucket, set ARDLW to 1 - ardlw = 1.0 -! trdlw=6.0 - -! GFS does not have inst incoming sfc longwave - rlwin = spval - -! GFS does not have inst model top outgoing longwave - rlwtoa = spval - -! time averaged incoming sfc longwave using nemsio - VarName='dlwrf' - VcoordName='sfc' - Index=127 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,alwin) - -! if(me==0 .and. iostatusFlux==0)then -! if(KPDS(13)==1)then -! TRDLW=float(KPDS(15)-KPDS(14)) -! else if(KPDS(13)==10)then -! TRDLW=float(KPDS(15)-KPDS(14))*3.0 -! else if(KPDS(13)==11)then -! TRDLW=float(KPDS(15)-KPDS(14))*6.0 -! else if(KPDS(13)==12)then -! TRDLW=float(KPDS(15)-KPDS(14))*12.0 -! else if(KPDS(13)==2)then -! TRDLW=float(KPDS(15)-KPDS(14))*24.0 -! else -! TRDLW=float(KPDS(15)-KPDS(14)) -! end if -! end if -! call mpi_bcast(TRDLW,1,MPI_REAL,0,mpi_comm_comp,iret) -! print*,'TRDLW from flux grib massage= ',TRDLW - -! time averaged outgoing sfc longwave using gfsio - VarName='ulwrf' - VcoordName='sfc' - Index=129 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,alwout) - where(alwout /= spval) alwout=-alwout ! CLDRAD puts a minus sign before gribbing - if(debugprint)print*,'sample l',VarName,' = ',1,alwout(im/2,(jsta+jend)/2) - -! time averaged outgoing model top longwave using gfsio - VarName='ulwrf' - VcoordName='nom. top' - Index=131 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,alwtoa) - if(debugprint)print*,'sample l',VarName,' = ',1,alwtoa(im/2,(jsta+jend)/2) - -! GFS does not have inst incoming sfc shortwave - rswin = spval - -! GFS does not have inst incoming clear sky sfc shortwave - rswinc = spval - -! GFS does not have inst outgoing sfc shortwave - rswout = spval - -! GFS incoming sfc longwave has been averaged, set ARDLW to 1 - ardsw = 1.0 -! trdsw=6.0 - -! time averaged incoming sfc shortwave using gfsio - Index=126 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,aswin) - if(debugprint)print*,'sample l',VarName,' = ',1,aswin(im/2,(jsta+jend)/2) - -! if(me==0 .and. iostatusFlux==0)then -! if(KPDS(13)==1)then -! TRDSW=float(KPDS(15)-KPDS(14)) -! else if(KPDS(13)==10)then -! TRDSW=float(KPDS(15)-KPDS(14))*3.0 -! else if(KPDS(13)==11)then -! TRDSW=float(KPDS(15)-KPDS(14))*6.0 -! else if(KPDS(13)==12)then -! TRDSW=float(KPDS(15)-KPDS(14))*12.0 -! else if(KPDS(13)==2)then -! TRDSW=float(KPDS(15)-KPDS(14))*24.0 -! else -! TRDSW=float(KPDS(15)-KPDS(14)) -! end if -! end if -! call mpi_bcast(trdsw,1,MPI_REAL,0,mpi_comm_comp,iret) -! print*,'TRDSW from flux grib massage= ',trdsw - -! time averaged incoming sfc uv-b using getgb - VarName='duvb' - VcoordName='sfc' - Index=298 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,auvbin) - if(debugprint)print*,'sample l',VarName,' = ',1,auvbin(im/2,(jsta+jend)/2) - -! time averaged incoming sfc clear sky uv-b using getgb - VarName='cduvb' - VcoordName='sfc' - Index=297 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,auvbinc) - if(debugprint)print*,'sample l',VarName,' = ',1,auvbinc(im/2,(jsta+jend)/2) - -! time averaged outgoing sfc shortwave using gfsio - VarName='uswrf' - VcoordName='sfc' - Index=128 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,aswout) - where(aswout /= spval) aswout=-aswout ! CLDRAD puts a minus sign before gribbing - if(debugprint)print*,'sample l',VarName,' = ',1,aswout(im/2,(jsta+jend)/2) - -! time averaged model top outgoing shortwave - VarName='uswrf' - VcoordName='nom. top' - Index=130 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,aswtoa) - if(debugprint)print*,'sample l',VarName,' = ',1,aswtoa(im/2,(jsta+jend)/2) - -! time averaged incoming clear sky sfc shortwave using getgb - Index=383 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - jpds(13)=3 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,aswinc) - -! time averaged outgoing clear sky sfc shortwave using getgb - Index=386 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - jpds(13)=3 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,aswoutc) - -! time averaged outgoing clear sky toa shortwave using getgb - Index=387 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - jpds(13)=3 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,aswtoac) - -! time averaged model top incoming shortwave - Index=388 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,aswintoa) - -! time averaged surface visible beam downward solar flux - Index=401 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avisbeamswin) - -! time averaged surface visible diffuse downward solar flux - Index=402 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,avisdiffswin) - -! time averaged surface near IR beam downward solar flux - Index=403 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,airbeamswin) - -! time averaged surface near IR diffuse downward solar flux - Index=404 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,airdiffswin) - -! time averaged surface sensible heat flux, multiplied by -1 because wrf model flux -! has reversed sign convention using gfsio - VarName='shtfl' - VcoordName='sfc' - Index=43 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sfcshx) - where (sfcshx /= spval)sfcshx=-sfcshx - if(debugprint)print*,'sample l',VarName,' = ',1,sfcshx(im/2,(jsta+jend)/2) - -! if(me==0 .and. iostatusFlux==0)then -! if(KPDS(13)==1)then -! TSRFC=float(KPDS(15)-KPDS(14)) -! else if(KPDS(13)==10)then -! TSRFC=float(KPDS(15)-KPDS(14))*3.0 -! else if(KPDS(13)==11)then -! TSRFC=float(KPDS(15)-KPDS(14))*6.0 -! else if(KPDS(13)==12)then -! TSRFC=float(KPDS(15)-KPDS(14))*12.0 -! else if(KPDS(13)==2)then -! TSRFC=float(KPDS(15)-KPDS(14))*24.0 -! else -! TSRFC=float(KPDS(15)-KPDS(14)) -! end if -! end if -! call mpi_bcast(tsrfc,1,MPI_REAL,0,mpi_comm_comp,iret) -! print*,'TSRFC from flux grib massage= ',tsrfc - -! GFS surface flux has been averaged, set ASRFC to 1 - asrfc=1.0 -! tsrfc=6.0 - -! time averaged surface latent heat flux, multiplied by -1 because wrf model flux -! has reversed sign vonvention using gfsio - Index=42 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sfclhx) - where (sfclhx /= spval)sfclhx=-sfclhx - if(debugprint)print*,'sample l',VarName,' = ',1,sfclhx(im/2,(jsta+jend)/2) - -! time averaged ground heat flux using nemsio - VarName='gflux' - VcoordName='sfc' - Index=135 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,subshx) - if(debugprint)print*,'sample l',VarName,' = ',1,subshx(im/2,(jsta+jend)/2) - -! GFS does not have snow phase change heat flux - snopcx=spval - -! time averaged zonal momentum flux using gfsio - VarName='uflx' - VcoordName='sfc' - Index=269 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sfcux) - if(debugprint)print*,'sample l',VarName,' = ',1,sfcux(im/2,(jsta+jend)/2) - -! time averaged meridional momentum flux using nemsio - VarName='vflx' - VcoordName='sfc' - Index=270 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sfcvx) - if(debugprint)print*,'sample l',VarName,' = ',1,sfcvx(im/2,(jsta+jend)/2) - -! GFS does not use total momentum flux - sfcuvx=spval - -! time averaged zonal gravity wave stress using nemsio - VarName='u-gwd' - VcoordName='sfc' - Index=315 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sfcugs) - gtaux=sfcugs - if(debugprint)print*,'sample l',VarName,' = ',1,gtaux(im/2,(jsta+jend)/2) - -! time averaged meridional gravity wave stress using getgb - VarName='v-gwd' - VcoordName='sfc' - Index=316 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sfcvgs) - gtauy=sfcvgs - if(debugprint)print*,'sample l',VarName,' = ',1,gtauy(im/2,(jsta+jend)/2) - -! time averaged accumulated potential evaporation - VarName='pevpr' - VcoordName='sfc' - Index=242 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,potevp) - if(debugprint)print*,'sample l',VarName,' = ',1,potevp(im/2,(jsta+jend)/2) - -! GFS does not have temperature tendency due to long wave radiation - rlwtt=spval - -! GFS does not have temperature tendency due to solar radiation - rswtt=spval - -! GFS does not have temperature tendency due to latent heating from convection - tcucn=spval - tcucns=spval - -! set avrain to 1 - avrain=1.0 - avcnvc=1.0 - theat=6.0 ! just in case GFS decides to output T tendency - -! GFS does not have temperature tendency due to latent heating from grid scale - train=spval - -! 10 m u using nemsio - VarName='ugrd' - VcoordName='10 m above gnd' - Index=64 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=10 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,u10) - if(debugprint)print*,'sample l',VarName,' = ',1,u10(im/2,(jsta+jend)/2) - u10h=u10 -! 10 m v using gfsio - VarName='vgrd' - VcoordName='10 m above gnd' - Index=65 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=10 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,v10) - if(debugprint)print*,'sample l',VarName,' = ',1,v10(im/2,(jsta+jend)/2) - v10h=v10 -! GFS does not have soil moisture availability - smstav=spval - -! GFS does not have total soil moisture - smstot=spval - -! vegetation type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='vgtyp' - VcoordName='sfc' - Index=218 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,buf) - where (buf /= spval) - ivgtyp=nint(buf) - elsewhere - ivgtyp=0 !need to feed reasonable value to crtm - end where - if(debugprint)print*,'sample l',VarName,' = ',1,ivgtyp(im/2,(jsta+jend)/2) - -! soil type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='sotyp' - VcoordName='sfc' - Index=219 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,buf) - where (buf /= spval) - isltyp=nint(buf) - elsewhere - isltyp=0 !need to feed reasonable value to crtm - end where - if(debugprint)print*,'sample l',VarName,' = ',1,isltyp(im/2,(jsta+jend)/2) - -! GFS does not have accumulated surface evaporation - sfcevp=spval - -! GFS does not have surface exchange coeefficient - sfcexc=spval - -! GFS does not have averaged accumulated snow - acsnow=spval - -! GFS does not have snow melt - acsnom=spval - -! GFS does not have sst???? - sst=spval - -! GFS does not have mixing length - EL_PBL=spval - -! GFS does not output exchange coefficient - exch_h=spval - -! GFS does not have THZ0, use THS to substitute - thz0=ths - if(debugprint)print*,'sample l',VarName,' = ',1,thz0(im/2,(jsta+jend)/2) - -! GFS does not output humidity at roughness length - qz0=spval - -! GFS does not output u at roughness length - uz0=spval - -! GFS does not output humidity at roughness length - vz0=spval - -! retrieve inst convective cloud top, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index - VarName='pres' - VcoordName='convect-cld top' - Index=189 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ptop) - if(debugprint)print*,'sample l',VarName,' = ',1,ptop(im/2,(jsta+jend)/2) - - htop = spval - do j=jsta,jend - do i=1,im - if(ptop(i,j) <= 0.0) ptop(i,j) = spval - if(ptop(i,j) < spval) then - do l=1,lm - if(ptop(i,j) <= pmid(i,j,l))then - htop(i,j) = l - exit - end if - end do - end if - end do - end do - if (me == 0) then - l = lm/2 - print*,'sample ptop,pmid pmid-1,pint= ', & - ptop(ii,jj),pmid(ii,jj,l),pmid(ii,jj,l-1),pint(ii,jj,l),htop(ii,jj) - endif - -! retrieve inst convective cloud bottom, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index - VarName='pres' - VcoordName='convect-cld bot' - Index=188 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,pbot) - if(debugprint)print*,'sample l',VarName,VcoordName,' = ',1,pbot(im/2,(jsta+jend)/2) - - hbot = spval - do j=jsta,jend - do i=1,im - if(pbot(i,j) <= 0.0) pbot(i,j) = spval -! if(.not.lb(i,j))print*,'false bitmask for pbot at ' -! + ,i,j,pbot(i,j) - if(pbot(i,j) < spval)then - do l=lm,1,-1 - if(pbot(i,j) >= pmid(i,j,l))then - hbot(i,j) = l - exit - end if - end do - end if - end do - end do - print*,'sample pbot,pmid= ', pbot(ii,jj),pmid(ii,jj,l),hbot(ii,jj) - -! retrieve time averaged low cloud top pressure using nemsio - VarName='pres' - VcoordName='low cld top' - Index=304 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ptopl) - if(debugprint)print*,'sample l',VarName,' = ',1,ptopl(im/2,(jsta+jend)/2) - -! retrieve time averaged low cloud bottom pressure using nemsio - VarName='pres' - VcoordName='low cld bot' - Index=303 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,pbotl) - if(debugprint)print*,'sample l',VarName,' = ',1,pbotl(im/2,(jsta+jend)/2) - -! retrieve time averaged low cloud top temperature using nemsio - VarName='tmp' - VcoordName='low cld top' - Index=305 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,Ttopl) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,Ttopl(im/2,(jsta+jend)/2) - -! retrieve time averaged middle cloud top pressure using nemsio - Index=307 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ptopm) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,ptopm(im/2,(jsta+jend)/2) - -! retrieve time averaged middle cloud bottom pressure using nemsio - VarName='pres' - VcoordName='mid cld bot' - Index=306 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,pbotm) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,pbotm(im/2,(jsta+jend)/2) - -! retrieve time averaged middle cloud top temperature using nemsio - VarName='tmp' - VcoordName='mid cld top' - Index=308 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,Ttopm) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,Ttopm(im/2,(jsta+jend)/2) - -! retrieve time averaged high cloud top pressure using nemsio ********* - VarName='pres' - VcoordName='high cld top' - Index=310 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ptoph) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,ptoph(im/2,(jsta+jend)/2) - -! retrieve time averaged high cloud bottom pressure using nemsio - VarName='pres' - VcoordName='high cld bot' - Index=309 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,pboth) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,pboth(im/2,(jsta+jend)/2) - -! retrieve time averaged high cloud top temperature using nemsio - VarName='tmp' - VcoordName='high cld top' - Index=311 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,Ttoph) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,Ttoph(im/2,(jsta+jend)/2) - -! retrieve boundary layer cloud cover using nemsio - VarName='tcdc' - VcoordName='bndary-layer cld' - Index=342 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,pblcfr) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,pblcfr(im/2,(jsta+jend)/2) - where (pblcfr /= spval)pblcfr=pblcfr/100. ! convert to fraction - -! retrieve cloud work function using nemsio - Index=313 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cldwork) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,cldwork(im/2,(jsta+jend)/2) - -! retrieve water runoff using nemsio - VarName='watr' - VcoordName='sfc' - Index=343 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=0 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,runoff) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,runoff(im/2,(jsta+jend)/2) - -! retrieve shelter max temperature using nemsio - VarName='tmax' - VcoordName='2 m above gnd' - Index=345 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=2 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,maxtshltr) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,maxtshltr(im/2,(jsta+jend)/2) - -! retrieve shelter max temperature using nemsio - Index=346 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - jpds(7)=2 - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,mintshltr) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,mintshltr(im/2,(jsta+jend)/2) - - MAXRHSHLTR=SPVAL - MINRHSHLTR=SPVAL - -! bucket for max and min temperature and RH -! if(me==0 .and. iostatusFlux==0)then -! if(KPDS(13)==1)then -! TMAXMIN=float(KPDS(15)-KPDS(14)) -! else if(KPDS(13)==10)then -! TMAXMIN=float(KPDS(15)-KPDS(14))*3.0 -! else if(KPDS(13)==11)then -! TMAXMIN=float(KPDS(15)-KPDS(14))*6.0 -! else if(KPDS(13)==12)then -! TMAXMIN=float(KPDS(15)-KPDS(14))*12.0 -! else if(KPDS(13)==2)then -! TMAXMIN=float(KPDS(15)-KPDS(14))*24.0 -! else -! TMAXMIN=float(KPDS(15)-KPDS(14)) -! end if -! end if -! call mpi_bcast(TMAXMIN,1,MPI_REAL,0,mpi_comm_comp,iret) -! print*,'TMAXMIN from flux grib massage= ',TMAXMIN - -! retrieve ice thickness using nemsio - VarName='icetk' - VcoordName='sfc' - Index=349 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,dzice) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,dzice(im/2,(jsta+jend)/2) - -! retrieve wilting point using nemsio - VarName='wilt' - VcoordName='sfc' - Index=236 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,smcwlt) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,smcwlt(im/2,(jsta+jend)/2) - -! retrieve sunshine duration using nemsio - VarName='sunsd' - VcoordName='sfc' - Index=396 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,suntime) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,suntime(im/2,(jsta+jend)/2) - -! retrieve field capacity using nemsio - VarName='fldcp' - VcoordName='sfc' - Index=397 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,fieldcapa) - if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & - 1,fieldcapa(im/2,(jsta+jend)/2) - -! retrieve snowfall rate using getgb - Index=405 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,snowfall) - -! retrieve frozen precipitation fraction using getgb - Index=172 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - call getgbandscatter(me,iunit,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sr) - print*,'sampe GFS sr= ',sr(im/2,jsta) - -! GFS does not have deep convective cloud top and bottom fields - HTOPD = SPVAL - HBOTD = SPVAL - HTOPS = SPVAL - HBOTS = SPVAL - CUPPT = SPVAL - -!!!! DONE GETTING -! Will derive isobaric OMEGA from continuity equation later. -! OMGA=SPVAL -! retrieve d3d fields if it's listed - if (me == 0) print*,'iostatus for d3d file= ',iostatusD3D - if(iostatusD3D == 0) then ! start reading d3d file -! retrieve longwave tendency using getgb - Index=41 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - do l=1,lm - jpds(7)=l - ll = lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,rlwtt(1,jsta_2l,ll)) - end do - -! bucket for max and min temperature and RH -! if(me==0 .and. iostatusFlux==0)then -! if(KPDS(13)==1)then -! TD3D=float(KPDS(15)-KPDS(14)) -! else if(KPDS(13)==10)then -! TD3D=float(KPDS(15)-KPDS(14))*3.0 -! else if(KPDS(13)==11)then -! TD3D=float(KPDS(15)-KPDS(14))*6.0 -! else if(KPDS(13)==12)then -! TD3D=float(KPDS(15)-KPDS(14))*12.0 -! else if(KPDS(13)==2)then -! TD3D=float(KPDS(15)-KPDS(14))*24.0 -! else -! TD3D=float(KPDS(15)-KPDS(14)) -! end if -! end if -! call mpi_bcast(TD3D,1,MPI_REAL,0,mpi_comm_comp,iret) -! print*,'TD3D from D3D grib massage= ',TD3D - -! retrieve shortwave tendency using getgb - Index=40 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - do l=1,lm - jpds(7)=l - ll = lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,rswtt(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion tendency using getgb - Index=356 - VarName='VDIFF TNDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll = lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdifftt(1,jsta_2l,ll)) - end do - -! retrieve deep convective tendency using getgb - Index=79 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,tcucn(1,jsta_2l,ll)) - end do - -! retrieve shallow convective tendency using getgb - Index=358 - VarName='S CNVCT TNDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,tcucns(1,jsta_2l,ll)) - end do - -! retrieve grid scale latent heat tendency using getgb - Index=78 - VarName=avbl(index) - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=is(index) - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,train(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion moistening using getgb - Index=360 - VarName='Vertical diffusion moistening' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdiffmois(1,jsta_2l,ll)) - end do - -! retrieve deep convection moistening using getgb - Index=361 - VarName='deep convection moistening' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,dconvmois(1,jsta_2l,ll)) - end do - -! retrieve shallow convection moistening using getgb - Index=362 - VarName='shallow convection moistening' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sconvmois(1,jsta_2l,ll)) - end do - -! retrieve non-radiation tendency using getgb - Index=363 - VarName='non-radiation tendency' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,nradtt(1,jsta_2l,ll)) - end do - -! retrieve Vertical diffusion of ozone using getgb - Index=364 - VarName='Vertical diffusion of ozone' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,o3vdiff(1,jsta_2l,ll)) - end do - -! retrieve ozone production using getgb - Index=365 - VarName='Ozone production' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,o3prod(1,jsta_2l,ll)) - end do - -! retrieve ozone tendency using getgb - Index=366 - VarName='Ozone tendency' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,o3tndy(1,jsta_2l,ll)) - end do - -! retrieve mass weighted PV using getgb - Index=367 - VarName='Mass weighted PV' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,mwpv(1,jsta_2l,ll)) - end do - -! retrieve OZONE TNDY using getgb - Index=368 - VarName='?' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,unknown(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion zonal acceleration - Index=369 - VarName='VDIFF Z ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdiffzacce(1,jsta_2l,ll)) - end do - -! retrieve gravity drag zonal acceleration - Index=370 - VarName='G DRAG Z ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,zgdrag(1,jsta_2l,ll)) - end do - -! retrieve convective U momemtum mixing - Index=371 - VarName='CNVCT U M MIX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctummixing(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion meridional acceleration - Index=372 - VarName='VDIFF M ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdiffmacce(1,jsta_2l,ll)) - end do - -! retrieve gravity drag meridional acceleration - Index=373 - VarName='G DRAG M ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,mgdrag(1,jsta_2l,ll)) - end do - -! retrieve convective V momemtum mixing - Index=374 - VarName='CNVCT V M MIX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctvmmixing(1,jsta_2l,ll)) - end do - -! retrieve nonconvective cloud fraction - Index=375 - VarName='N CNVCT CLD FRA' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ncnvctcfrac(1,jsta_2l,ll)) - end do - -! retrieve convective upward mass flux - Index=391 - VarName='CNVCT U M FLX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctumflx(1,jsta_2l,ll)) - end do - -! retrieve convective downward mass flux - Index=392 - VarName='CNVCT D M FLX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctdmflx(1,jsta_2l,ll)) - end do - -! retrieve nonconvective detraintment flux - Index=393 - VarName='CNVCT DET M FLX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctdetmflx(1,jsta_2l,ll)) - end do - -! retrieve cnvct gravity drag zonal acceleration - Index=394 - VarName='CNVCT G DRAG Z ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctzgdrag(1,jsta_2l,ll)) - end do - -! retrieve cnvct gravity drag meridional acceleration - Index=395 - VarName='CNVCT G DRAG M ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=iq(index) - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctmgdrag(1,jsta_2l,ll)) - end do - - call baclose(iunitd3d,status) - if (me == 0) print*,'done reading D3D fields' - end if ! end of d3d file read - if (me == 0) print *,'after d3d files reading,mype=',me -! pos east - call collect_loc(gdlat,dummy) - if(me == 0) then - latstart=nint(dummy(1,1)*gdsdegr) - latlast=nint(dummy(im,jm)*gdsdegr) - print*,'laststart,latlast B bcast= ',latstart,latlast,'gdsdegr=',gdsdegr,& - 'dummy(1,1)=',dummy(1,1),dummy(im,jm),'gdlat=',gdlat(1,1) - end if - call mpi_bcast(latstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(latlast,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - write(6,*) 'laststart,latlast,me A calling bcast=',latstart,latlast,me - call collect_loc(gdlon,dummy) - if(me==0)then - lonstart=nint(dummy(1,1)*gdsdegr) - lonlast=nint(dummy(im,jm)*gdsdegr) - end if - call mpi_bcast(lonstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(lonlast,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - write(6,*)'lonstart,lonlast A calling bcast=',lonstart,lonlast -! -! ncdump -h - -!! -!! -!! - write(6,*) 'filename in INITPOST=', filename,' is' - -! status=nf_open(filename,NF_NOWRITE,ncid) -! write(6,*) 'returned ncid= ', ncid -! status=nf_get_att_real(ncid,varid,'DX',tmp) -! dxval=int(tmp) -! status=nf_get_att_real(ncid,varid,'DY',tmp) -! dyval=int(tmp) -! status=nf_get_att_real(ncid,varid,'CEN_LAT',tmp) -! cenlat=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'CEN_LON',tmp) -! cenlon=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'TRUELAT1',tmp) -! truelat1=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'TRUELAT2',tmp) -! truelat2=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'MAP_PROJ',tmp) -! maptype=int(tmp) -! status=nf_close(ncid) - -! dxval=30000. -! dyval=30000. -! -! write(6,*) 'dxval= ', dxval -! write(6,*) 'dyval= ', dyval -! write(6,*) 'cenlat= ', cenlat -! write(6,*) 'cenlon= ', cenlon -! write(6,*) 'truelat1= ', truelat1 -! write(6,*) 'truelat2= ', truelat2 -! write(6,*) 'maptype is ', maptype -! - -! close up shop -! call ext_int_ioclose ( DataHandle, Status ) - -! generate look up table for lifted parcel calculations - - THL = 210. - PLQ = 70000. - -! write(0,*)' bef TABLE PT=',PT,' THL=',THL - CALL TABLE(PTBL,TTBL,PT, & - RDQ,RDTH,RDP,RDTHE,PL,THL,QS0,SQS,STHE,THE0) - - CALL TABLEQ(TTBLQ,RDPQ,RDTHEQ,PLQ,THL,STHEQ,THE0Q) - - -! write(0,*)'end ini_gfs_sigio' -! -! - IF(ME==0)THEN - WRITE(6,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' - WRITE(6,51) (SPL(L),L=1,LSM) - 50 FORMAT(14(F4.1,1X)) - 51 FORMAT(8(F8.1,1X)) - ENDIF -! -! COMPUTE DERIVED TIME STEPPING CONSTANTS. -! -!MEB need to get DT -! DT = 120. !MEB need to get DT -! NPHS = 4 !MEB need to get physics DT -! TPREC=float(ifhr) -!MEB need to get DT - -!how am i going to get this information? -! NPREC = INT(TPREC *TSPH+D50) -! NHEAT = INT(THEAT *TSPH+D50) -! NCLOD = INT(TCLOD *TSPH+D50) -! NRDSW = INT(TRDSW *TSPH+D50) -! NRDLW = INT(TRDLW *TSPH+D50) -! NSRFC = INT(TSRFC *TSPH+D50) -!how am i going to get this information? -! -! IF(ME==0)THEN -! WRITE(6,*)' ' -! WRITE(6,*)'DERIVED TIME STEPPING CONSTANTS' -! WRITE(6,*)' NPREC,NHEAT,NSRFC : ',NPREC,NHEAT,NSRFC -! WRITE(6,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW -! ENDIF -! -! COMPUTE DERIVED MAP OUTPUT CONSTANTS. - DO L = 1,LSM - ALSL(L) = LOG(SPL(L)) - END DO -! -!HC WRITE IGDS OUT FOR WEIGHTMAKER TO READ IN AS KGDSIN - if(me==0)then - print*,'writing out igds' - igdout=110 -! open(igdout,file='griddef.out',form='unformatted' -! + ,status='unknown') - if(maptype == 1)THEN ! Lambert conformal - WRITE(igdout)3 - WRITE(6,*)'igd(1)=',3 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ELSE IF(MAPTYPE == 2)THEN !Polar stereographic - WRITE(igdout)5 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 !Assume projection at +-90 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ELSE IF(MAPTYPE == 3)THEN !Mercator - WRITE(igdout)1 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)latlast - WRITE(igdout)lonlast - WRITE(igdout)TRUELAT1 - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)255 - ELSE IF(MAPTYPE==0 .OR. MAPTYPE==203)THEN !A STAGGERED E-GRID - WRITE(igdout)203 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)136 - WRITE(igdout)CENLAT - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)64 - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)0 - END IF - end if -! -! close all files - - call baclose(iunit,status) - - deallocate(dummy) - - RETURN - END - - diff --git a/sorc/ncep_post.fd/INITPOST_NEMS.f b/sorc/ncep_post.fd/INITPOST_NEMS.f index 51575df3a..39459701f 100644 --- a/sorc/ncep_post.fd/INITPOST_NEMS.f +++ b/sorc/ncep_post.fd/INITPOST_NEMS.f @@ -67,7 +67,6 @@ SUBROUTINE INITPOST_NEMS(NREC,nfile) use gridspec_mod, only: dyval, dxval, cenlat, cenlon, maptype, gridtype, latstart, latlast, latnw,& latse, lonstart, lonlast, lonnw, lonse, latstartv, latlastv, cenlatv, lonstartv,& lonlastv, cenlonv - use rqstfld_mod, only: use nemsio_module, only: nemsio_gfile, nemsio_getfilehead, nemsio_close, nemsio_getheadvar use upp_math, only: h2u ! diff --git a/sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f index 1d472c809..9aed1706b 100644 --- a/sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f +++ b/sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f @@ -65,7 +65,6 @@ SUBROUTINE INITPOST_NEMS_MPIIO() use gridspec_mod, only: dyval, dxval, cenlat, cenlon, maptype, gridtype, latstart, latlast, latnw,& latse, lonstart, lonlast, lonnw, lonse, latstartv, latlastv, cenlatv, lonstartv,& lonlastv, cenlonv - use rqstfld_mod, only: ! use nemsio_module, only: nemsio_gfile, nemsio_getfilehead, nemsio_close, nemsio_getheadvar use nemsio_module_mpi use upp_math, only: h2u diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 090f266f0..7815a643c 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -83,7 +83,6 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r, STANDLON - use rqstfld_mod, only: igds, avbl, iq, is use upp_physics, only: fpvsnew !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none diff --git a/sorc/ncep_post.fd/READCNTRL.F b/sorc/ncep_post.fd/READCNTRL.F deleted file mode 100644 index 5be718901..000000000 --- a/sorc/ncep_post.fd/READCNTRL.F +++ /dev/null @@ -1,240 +0,0 @@ -!> @file -! -!> SUBPROGRAM: READCNTRL READS CONTROL FILE -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-20 -!! -!! ABSTRACT: -!! THIS ROUTINE READS THE CONTROL FILE SPECIFYING -!! DATA FORMAT(S) AND FIELD(S) TO POST. THE -!! ORDER OF OPERATIONS IS -!! (1) READ HEADER BLOCK OF CONTROL FILE, -!! (2) SET FLAGS, CLOSE OPEN UNITS -!! (3) READ BODY OF CONTROL FILE (FIELD SPECIFICATIONS) -!! -!! PROGRAM HISTORY LOG: -!! 92-12-20 RUSS TREADON -!! 93-06-15 RUSS TREADON - ADD PROJECTION CONTROL CARD -!! 98-06-01 BLACK - CONVERSION OF POST FROM 1-D TO 2-D -!! 98-07-17 MIKE BALDWIN - REMOVED PACK84 -!! 01-10-22 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-01-16 MIKE BALDWIN - WRF VERSION -!! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL READCNTRL(IEOF) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! IEOF - INTEGER FLAG FOR EOF IN CONTROL FILE. -!! IEOF=0 WHEN AN EOF IS READ IN THE -!! CONTROL FILE. IEOF=1 OTHERWISE. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! COMMON - RQSTFLD -!! CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! - SUBROUTINE READCNTRL(kth,IEOF) -! - -! -! -! INCLUDE ETA GRID DIMENSIONS. SET/DERIVE PARAMETERS. -! - use lookup_mod,only: ITB,JTB,ITBQ,JTBQ - use ctlblk_mod, only: me, ifhr, ihrst, sdat, imdlty, im, jm - use rqstfld_mod, only: mxfld, iget, kgtype, datset, ritehd, & - field, dec, lvls, mxlvl, avbl, ident, nfld -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none -! - real,PARAMETER :: DTR=1.745329E-2,RTD=1./DTR -! -! DECLARE VARIABLES. -! - LOGICAL NORTH - CHARACTER*2 CHAR2 - CHARACTER*4 CHAR4 - CHARACTER*80 LINE -!jw - integer, intent(in) :: KTH - integer, intent(inout) :: IEOF - integer LCNTRL,LUNOUT,ISUM,L,IFLD,IAVBL -! -!****************************************************************************** -! START READCNTRL HERE. -! - - LCNTRL=14 - LUNOUT=60 - - IF(ME==0)THEN - WRITE(6,*)'READCNTRL: POSTING FCST HR ',IFHR,' FROM ', & - IHRST,'UTC ',SDAT(1),'-',SDAT(2),'-',SDAT(3),' RUN' - ENDIF -! -! INITIALIZE VARIABLES. -! IEOF IS THE END OF FILE FLAG FOR THE CONTROL FILE. -! ARRAY IGET IS THE "GET FIELD" FLAG ARRAY. -! - IEOF=0 - DO 100 IFLD=1,MXFLD - IGET(IFLD)=-1 - 100 CONTINUE -! - if(me==0)print*,'start reading control file' -! - READ(LCNTRL,1000,ERR=990,END=999) KGTYPE - READ(LCNTRL,1000,ERR=990,END=999) IMDLTY - READ(LCNTRL,1030,ERR=990,END=999) DATSET - 1000 FORMAT(T28,I5) - 1030 FORMAT(T28,A6) -! -! SET FLAG TO OPEN NEW OUTPUT FILE -! - RITEHD = .TRUE. -! -! ECHO HEADER INFO TO 6. -! - IF(ME==0)THEN - WRITE(6,*)'READCNTRL: HEADER INFORMATION' - WRITE(6,*)' KGTYPE : ',KGTYPE - WRITE(6,*)' IMDLTY : ',IMDLTY - WRITE(6,*)' DATSET : ',DATSET - WRITE(6,*)' RITEHD : ',RITEHD - ENDIF -! -! NOW READ WHICH FIELDS ON -! WHICH LEVELS TO INTERPOLATE TO THE OUTPUT GRID. THE -! CHARACTER STRING "DONE" MARKS THE END OF THE OUTPUT -! FIELD SPECIFICATIONS. -! - IFLD = 0 - 10 CONTINUE - READ(LCNTRL,1060,ERR=996) LINE - IF (INDEX(LINE,'DONE')/=0) GOTO 40 - IF (INDEX(LINE,'SCAL=')==0) GOTO 10 - IFLD = IFLD+1 - FIELD(IFLD) = LINE(3:22) - READ(LINE,1061) DEC(IFLD) - READ(LCNTRL,1090,ERR=996) (LVLS(L,IFLD),L=1,MXLVL) - 1060 FORMAT(A80) - 1061 FORMAT(30X,F4.1) - 1070 FORMAT(A4) - 1080 FORMAT(A2) - -#ifdef COMMCODE - 1090 FORMAT(T5,14(5I1,1X)) -#else - 1090 FORMAT(T5,100(5I1,1X)) -#endif -! -! SEE IF WE WANT THIS FIELD. THE SUM OF THE LEVELS -! INDICATORS MUST BE GREATER THAN ZERO IF WE WANT -! THIS FIELD. -! - ISUM = 0 - DO 15 L = 1,MXLVL - ISUM = ISUM + LVLS(L,IFLD) - 15 CONTINUE - IF (ISUM<1) THEN - IFLD = IFLD - 1 - GOTO 10 - ENDIF -! -! SEE IF REQUESTED FIELD IS AVAILABLE. IF NOT, -! WRITE MESSAGE TO 6 AND DECREMENT FIELD -! COUNTER BY ONE. THEN READ NEXT REQUESTED FIELD. -! - DO 20 IAVBL = 1,MXFLD - IF (INDEX(FIELD(IFLD),AVBL(IAVBL))/=0)GO TO 30 - 20 CONTINUE - IF(ME==0)THEN - WRITE(6,*)'FIELD ',FIELD(IFLD),' NOT AVAILABLE' - ENDIF - IFLD = IFLD-1 - GOTO 10 -! -! IF FIELD IS AVAILABLE, TURN THE GET SWITCH ON. -! - 30 CONTINUE - IGET(IAVBL) = IFLD - IDENT(IFLD) = IAVBL - GOTO 10 -! -! ALL DONE READING REQUESTED FIELDS FOR CURRENT OUTPUT GRID. -! SET NFLD TO TOTAL NUMBER OF REQUESTED OUTPUT FIELDS THAT -! ARE AVAILABLE. -! - 40 CONTINUE - - NFLD = IFLD -! skip creating ipv files if kth=0 and no isobaric fields are requested in ctl file - - - if(kth==0 .and. iget(013)<=0)go to 999 -! -! ECHO OUTPUT FIELDS/LEVELS TO 6. -! - IF(ME==0)THEN - WRITE(6,*)'BELOW ARE FIELD/LEVEL/SMOOTHING ', & - 'SPECIFICATIONS.,NFLD=',NFLD,'MXLVL=',MXLVL - ENDIF - DO 50 IFLD = 1,NFLD - IF(ME==0)THEN - WRITE(6,2060) FIELD(IFLD) - WRITE(6,2070) (LVLS(L,IFLD),L=1,MXLVL) - 2060 FORMAT('(',A20,')') - 2070 FORMAT('L=(',14(5I1,1X),')') - ENDIF - 50 CONTINUE -! -! WE HAVE AN OUTPUT GRID AND THE FIELDS TO GENERATE ON IT. -! SKIP OVER THE FOLLOWING EOF MESSAGE TO EXIT THIS ROUTINE. -! - GOTO 60 -! -! WE REACH THIS BLOCK ONLY IF THERE IS AN ERROR WHILE READING -! IN THE CONTROL FILE. PRINT AN ERROR MESSAGE TO STANDARD -! OUT AND CARRY ON. -! - 990 CONTINUE - IF(ME==0)THEN - WRITE(6,*)' READCNTRL: ERROR READING CNTRL HEADER INFO' - WRITE(6,*)' BELOW IS CNTRL GRID INFO' - WRITE(6,*)' KGTYPE,DATSET: ',KGTYPE,' ',DATSET - ENDIF - GOTO 999 - 996 CONTINUE - IF(ME==0)THEN - WRITE(6,*)' READCNTRL: ERROR READING CNTRL FLD/LVL INFO' - ENDIF -! -! WE REACH THIS BLOCK ONLY WHEN AN EOF HAS BEEN READ FROM -! THE CONTROL FILE. THAT MEANS WE'VE PROCESSED ALL GRIDS -! AND ALL FIELDS. WE'RE DONE. SET THE EOF FLAG TO ANY -! NONZERO INTEGER, SAY ONE. CLOSE THE UNIT CONNECTED TO -! THE LAST OUTPUT FILE AND EXIT THE ROUTINE. -! - 999 CONTINUE - IEOF=1 - CLOSE(LUNOUT) - IF(ME==0)THEN - WRITE(6,*)' READCNTRL: ALL GRIDS PROCESSED. ', & - 'CLOSED ',LUNOUT - ENDIF -! -! END OF ROUTINE. -! - 60 CONTINUE - RETURN - END diff --git a/sorc/ncep_post.fd/RQSTFLD.F b/sorc/ncep_post.fd/RQSTFLD.F deleted file mode 100644 index 4dab5648b..000000000 --- a/sorc/ncep_post.fd/RQSTFLD.F +++ /dev/null @@ -1,2753 +0,0 @@ - module RQSTFLD_mod -!-------------------------------------------------------------------- -! revision history -! 2011-02-06 Jun Wang add grib2 option -! 2011-10-18 Sarah Lu add GOCART aerosol fields -! 2011-12-18 Sarah Lu add GOCART aerosol optical properties, mass -! fields, and production/removal fluxes -! 2011-12-29 Sarah Lu add GOCART AOD at multiple channels -! 2012-01-06 Sarah Lu add GOCART SS, OC, BC, SU aerosols -! 2012-01-07 Sarah Lu add air density and dpres -! 2012-01-27 Sarah Lu use index 601-700 for GOCART -! 2012-01-30 Jun Wang add post available fields from xml file for grib2 -! 2012-05-07 Tricia Slovacek use index 800-899 for satellite -! use index 900-949 for HWRF -! 2014-12-09 William Lewis added MSG/SEVIRI imager, -! GOES-13 and GOES-15 imagers, -! and completed SSMI and SSMIS (F13-F20) -! 2019-04-01 Sharon Nebuda added GOES-16 GOES-17 ABI IR Channels 7-16 -! 2019-04-22 Wen Meng increased model MXLVL to 500 -! 2019-05-08 Wen Meng added continuous accumulated precipitations(417, 418, -! 419). -! 2019-09-03 Jesse Meng added cape related variables for hrrr (950-957) -! 2021-08-31 Lin Zhu added ssmis-f17 channels 15-18 grib2 output -!-------------------------------------------------------------------- - - implicit none -! -! increase MXFLD each time you add a new field - - INTEGER, PARAMETER :: MXFLD=1200 - -#ifdef COMMCODE - INTEGER, PARAMETER :: MXLVL=70 -#else - INTEGER, PARAMETER :: MXLVL=500 -#endif - CHARACTER*20 AVBL(MXFLD),FIELD(MXFLD) - CHARACTER*50 AVBLGRB2(MXFLD) - CHARACTER*6 DATSET -! - LOGICAL RITEHD,RITE2 -! - integer :: KGTYPE,IOUTYP,SVALUE,NFLD,IGET(MXFLD), & - IQ(MXFLD),IS(MXFLD),ISMSTG(MXFLD), & - ISMFUL(MXFLD),ISMOUT(MXFLD),LVLS(MXLVL,MXFLD), & - IDENT(MXFLD),IFILV(MXFLD),IAVBLFLD(MXFLD), & - ID(25),IGDS(18) - real :: DEC(MXFLD) - integer :: num_post_afld - integer,allocatable :: LVLSXML(:,:) -! -!initialization -! -! THIS FILE CONTAINS ALL THE UNIQUE FIELDS THE -! ETA POST PROCESSOR CAN CURRENTLY GENERATE. -! -! IFILV IS FLAG FOR IDENTIFYING MASS OR VELOCITY POINT -! =0 DATA IS VELOCITY POINT -! =1 DATA IS MASS POINT -! AVBL IS CHARACTER STRING IDENTIFYING THE FIELD. -! IQ IS THE GRIB PDS OCTET 9 - PARAMETER (TABLE 2) -! IS IS THE GRIB PDS OCTET 10 - LEVEL TYPE (TABLE 3 & 3a) -! -! WANT MORE/DIFFERENT FIELDS? -! (1) ADD CODE TO CALCULATE FIELD(S) IN APPROPRIATE ROUTINE(S), -! (2) ADD FIELD(S) TO THIS LIST WITH A UNIQUE ITAG TAG, -! (3) EDIT INPUT (CONTROL) FILE ACCORDINGLY, -! (3) INCREASE PARAMETER MXFLD IN COMMON BLOCK RQSTFLD.comm. -! -! CURRENT NUMBER OF FIELDS LISTED: 180 -! -!0 1 2 3 4 5 6 7 -!234567890123456789012345678901234567890123456789012345678901234567890 -! - DATA IFILV(001),AVBL(001),IQ(001),IS(001),AVBLGRB2(001) & - & /1,'PRESS ON MDL SFCS ',001,109, & - & 'PRES ON hybrid_lvl'/ - DATA IFILV(077),AVBL(077),IQ(077),IS(077),AVBLGRB2(077) & - & /1,'HEIGHT ON MDL SFCS ',007,109, & - & 'HGT ON hybrid_lvl'/ - DATA IFILV(002),AVBL(002),IQ(002),IS(002),AVBLGRB2(002) & - & /1,'TEMP ON MDL SFCS ',011,109, & - & 'TMP ON hybrid_lvl'/ - DATA IFILV(003),AVBL(003),IQ(003),IS(003),AVBLGRB2(003) & - & /1,'POT TEMP ON MDL SFCS',013,109, & - & 'POT ON hybrid_lvl'/ - DATA IFILV(004),AVBL(004),IQ(004),IS(004),AVBLGRB2(004) & - & /1,'DWPT TEMP ON MDL SFC',017,109, & - & 'DPT ON hybrid_lvl'/ - DATA IFILV(005),AVBL(005),IQ(005),IS(005),AVBLGRB2(005) & - & /1,'SPEC HUM ON MDL SFCS',051,109, & - & 'SPF_H ON hybrid_lvl'/ - DATA IFILV(006),AVBL(006),IQ(006),IS(006),AVBLGRB2(006) & - & /1,'REL HUM ON MDL SFCS ',052,109, & - & 'RH ON hybrid_lvl'/ - DATA IFILV(083),AVBL(083),IQ(083),IS(083),AVBLGRB2(083) & - & /1,'MST CNVG ON MDL SFCS',135,109, & - & 'MCONV ON hybrid_lvl'/ - DATA IFILV(007),AVBL(007),IQ(007),IS(007),AVBLGRB2(007) & - & /0,'U WIND ON MDL SFCS ',033,109, & - & 'U_GRD ON hybrid_lvl'/ - DATA IFILV(008),AVBL(008),IQ(008),IS(008),AVBLGRB2(008) & - & /0,'V WIND ON MDL SFCS ',034,109, & - & 'V_GRD ON hybrid_lvl'/ - DATA IFILV(009),AVBL(009),IQ(009),IS(009),AVBLGRB2(009) & - & /1,'OMEGA ON MDL SFCS ',039,109, & - & 'V_VEL ON hybrid_lvl'/ - DATA IFILV(010),AVBL(010),IQ(010),IS(010),AVBLGRB2(010) & - & /1,'ABS VORT ON MDL SFCS',041,109, & - & 'ABS_V ON hybrid_lvl'/ - DATA IFILV(084),AVBL(084),IQ(084),IS(084),AVBLGRB2(084) & - & /1,'STRMFUNC ON MDL SFCS',035,109, & - & 'STRM ON hybrid_lvl'/ - DATA IFILV(011),AVBL(011),IQ(011),IS(011),AVBLGRB2(011) & - & /1,'TRBLNT KE ON MDL SFC',158,109, & - & 'TKE ON hybrid_lvl'/ - DATA IFILV(111),AVBL(111),IQ(111),IS(111),AVBLGRB2(111) & - & /1,'RCHDSN NO ON MDL SFC',254,109, & - & 'RI ON hybrid_lvl'/ - DATA IFILV(146),AVBL(146),IQ(146),IS(146),AVBLGRB2(146) & - & /1,'MASTER LENGTH SCALE ',226,109, & - & 'BMIXL ON hybrid_lvl'/ - DATA IFILV(147),AVBL(147),IQ(147),IS(147),AVBLGRB2(147) & - & /1,'ASYMPT MSTR LEN SCL ',227,109, & - & 'AMIXL ON hybrid_lvl'/ - DATA IFILV(012),AVBL(012),IQ(012),IS(012),AVBLGRB2(012) & - & /1,'HEIGHT OF PRESS SFCS',007,100, & - & 'HGT ON isobaric_sfc'/ - DATA IFILV(013),AVBL(013),IQ(013),IS(013),AVBLGRB2(013) & - & /1,'TEMP ON PRESS SFCS ',011,100, & - & 'TMP ON isobaric_sfc'/ - DATA IFILV(014),AVBL(014),IQ(014),IS(014),AVBLGRB2(014) & - & /1,'POT TEMP ON P SFCS ',013,100, & - & 'POT ON isobaric_sfc'/ - DATA IFILV(015),AVBL(015),IQ(015),IS(015),AVBLGRB2(015) & - & /1,'DWPT TEMP ON P SFCS ',017,100, & - & 'DPT ON isobaric_sfc'/ - DATA IFILV(016),AVBL(016),IQ(016),IS(016),AVBLGRB2(016) & - & /1,'SPEC HUM ON P SFCS ',051,100, & - & 'SPF_H ON isobaric_sfc'/ - DATA IFILV(017),AVBL(017),IQ(017),IS(017),AVBLGRB2(017) & - & /1,'REL HUMID ON P SFCS ',052,100, & - & 'RH ON isobaric_sfc'/ - DATA IFILV(085),AVBL(085),IQ(085),IS(085),AVBLGRB2(085) & - & /1,'MST CNVG ON P SFCS ',135,100, & - & 'MCONV ON isobaric_sfc'/ - DATA IFILV(018),AVBL(018),IQ(018),IS(018),AVBLGRB2(018) & - & /1,'U WIND ON PRESS SFCS',033,100, & - & 'U_GRD ON isobaric_sfc'/ - DATA IFILV(019),AVBL(019),IQ(019),IS(019),AVBLGRB2(019) & - & /1,'V WIND ON PRESS SFCS',034,100, & - & 'V_GRD ON isobaric_sfc'/ - DATA IFILV(020),AVBL(020),IQ(020),IS(020),AVBLGRB2(020) & - & /1,'OMEGA ON PRESS SFCS ',039,100, & - & 'V_VEL ON isobaric_sfc'/ - DATA IFILV(021),AVBL(021),IQ(021),IS(021),AVBLGRB2(021) & - & /1,'ABS VORT ON P SFCS ',041,100, & - & 'ABS_V ON isobaric_sfc'/ - DATA IFILV(086),AVBL(086),IQ(086),IS(086),AVBLGRB2(086) & - & /1,'STRMFUNC ON P SFCS ',035,100, & - & 'STRM ON isobaric_sfc'/ - DATA IFILV(022),AVBL(022),IQ(022),IS(022),AVBLGRB2(022) & - & /1,'TRBLNT KE ON P SFCS ',158,100, & - & 'TKE ON isobaric_sfc'/ - DATA IFILV(153),AVBL(153),IQ(153),IS(153),AVBLGRB2(153) & - & /1,'CLOUD WATR ON P SFCS',153,100, & - & 'CLWMR ON isobaric_sfc'/ - DATA IFILV(166),AVBL(166),IQ(166),IS(166),AVBLGRB2(166) & - & /1,'CLOUD ICE ON P SFCS ',058,100, & - & 'C_ICE ON isobaric_sfc'/ - DATA IFILV(023),AVBL(023),IQ(023),IS(023),AVBLGRB2(023) & - & /1,'MESINGER MEAN SLP ',130,102, & - & 'MSLET ON mean_sea_lvl'/ - DATA IFILV(105),AVBL(105),IQ(105),IS(105),AVBLGRB2(105) & - & /1,'SHUELL MEAN SLP ',002,102, & - & 'PRES ON mean_sea_lvl'/ - DATA IFILV(445),AVBL(445),IQ(445),IS(445),AVBLGRB2(445) & !445 - & /1,'MAPS SLP ',129,102, & - & 'MAPS PRMSL ON mean_sea_lvl'/ - DATA IFILV(138),AVBL(138),IQ(138),IS(138),AVBLGRB2(138) & - & /1,'SHELTER PRESSURE ',001,105, & - & 'PRES ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(106),AVBL(106),IQ(106),IS(106),AVBLGRB2(106) & - & /1,'SHELTER TEMPERATURE ',011,105, & - & 'TMP ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(112),AVBL(112),IQ(112),IS(112),AVBLGRB2(112) & - & /1,'SHELTER SPEC HUMID ',051,105, & - & 'SPF_H ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(414),AVBL(414),IQ(414),IS(414),AVBLGRB2(414) & - & /1,'SHELTER MIX RATIO ',053,105, & - & 'MIXR ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(113),AVBL(113),IQ(113),IS(113),AVBLGRB2(113) & - & /1,'SHELTER DEWPOINT ',017,105, & - & 'DPT ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(114),AVBL(114),IQ(114),IS(114),AVBLGRB2(114) & - & /1,'SHELTER REL HUMID ',052,105, & - & 'RH ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(064),AVBL(064),IQ(064),IS(064),AVBLGRB2(064) & - & /1,'U WIND AT ANEMOM HT ',033,105, & - & 'U_GRD ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(065),AVBL(065),IQ(065),IS(065),AVBLGRB2(065) & - & /1,'V WIND AT ANEMOM HT ',034,105, & - & 'V_GRD ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(158),AVBL(158),IQ(158),IS(158),AVBLGRB2(158) & - & /1,'POT TEMP AT 10 M ',013,105, & - & 'POT ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(159),AVBL(159),IQ(159),IS(159),AVBLGRB2(159) & - & /1,'SPEC HUM AT 10 M ',051,105, & - & 'SRF_H ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(024),AVBL(024),IQ(024),IS(024),AVBLGRB2(024) & - & /1,'SURFACE PRESSURE ',001,001, & - & 'PRES ON surface'/ - DATA IFILV(025),AVBL(025),IQ(025),IS(025),AVBLGRB2(025) & - & /1,'SURFACE HEIGHT ',007,001, & - & 'HGT ON surface'/ - DATA IFILV(027),AVBL(027),IQ(027),IS(027),AVBLGRB2(027) & - & /1,'SURFACE POT TEMP ',013,001, & - & 'POT ON surface'/ - DATA IFILV(028),AVBL(028),IQ(028),IS(028),AVBLGRB2(028) & - & /1,'SURFACE SPEC HUMID ',051,001, & - & 'SPF_H ON surface'/ - DATA IFILV(029),AVBL(029),IQ(029),IS(029),AVBLGRB2(029) & - & /1,'SURFACE DEWPOINT ',017,001, & - & 'DPT ON surface'/ - DATA IFILV(076),AVBL(076),IQ(076),IS(076),AVBLGRB2(076) & - & /1,'SURFACE REL HUMID ',052,001, & - & 'RH ON surface'/ - DATA IFILV(026),AVBL(026),IQ(026),IS(026),AVBLGRB2(026) & - & /1,'SFC (SKIN) TEMPRATUR',011,001, & - & 'TMP ON surface'/ - DATA IFILV(115),AVBL(115),IQ(115),IS(115),AVBLGRB2(115) & - & /1,'BOTTOM SOIL TEMP ',085,111, & - & 'TSOIL ON depth_bel_land_sfc'/ - DATA IFILV(116),AVBL(116),IQ(116),IS(116),AVBLGRB2(116) & - & /1,'SOIL TEMPERATURE ',085,112, & - & 'TSOIL ON depth_bel_land_sfc'/ - DATA IFILV(117),AVBL(117),IQ(117),IS(117),AVBLGRB2(117) & - & /1,'SOIL MOISTURE ',144,112, & - & 'SOILW ON depth_bel_land_sfc'/ - DATA IFILV(036),AVBL(036),IQ(036),IS(036),AVBLGRB2(036) & - & /1,'TOTAL SOIL MOISTURE ',086,112, & - & 'SOILM ON depth_bel_land_sfc'/ - DATA IFILV(118),AVBL(118),IQ(118),IS(118),AVBLGRB2(118) & - & /1,'PLANT CANOPY SFC WTR',223,001, & - & 'CNWAT ON surface'/ - DATA IFILV(119),AVBL(119),IQ(119),IS(119),AVBLGRB2(119) & - & /1,'SNOW WATER EQUIVALNT',065,001, & - & 'INST WEASD ON surface'/ - DATA IFILV(120),AVBL(120),IQ(120),IS(120),AVBLGRB2(120) & - & /1,'PERCENT SNOW COVER ',238,001, & - & 'SNOWC ON surface'/ - DATA IFILV(169),AVBL(169),IQ(169),IS(169),AVBLGRB2(169) & - & /1,'SFC EXCHANGE COEF ',208,001, & - & 'SFEXC ON surface'/ - DATA IFILV(170),AVBL(170),IQ(170),IS(170),AVBLGRB2(170) & - & /1,'GREEN VEG COVER ',087,001, & - & 'VEG ON surface'/ - DATA IFILV(171),AVBL(171),IQ(171),IS(171),AVBLGRB2(171) & - & /1,'SOIL MOISTURE AVAIL ',207,112, & - & 'MSTAV ON depth_bel_land_sfc'/ - DATA IFILV(152),AVBL(152),IQ(152),IS(152),AVBLGRB2(152) & - & /1,'INST GROUND HEAT FLX',155,001, & - & 'INST GFLUX ON surface'/ - DATA IFILV(030),AVBL(030),IQ(030),IS(030),AVBLGRB2(030) & - & /1,'LIFTED INDEX--SURFCE',131,101, & - & 'LFT_X ON isobaric_sfc'/ - DATA IFILV(031),AVBL(031),IQ(031),IS(031),AVBLGRB2(031) & - & /1,'LIFTED INDEX--BEST ',132,116, & - & '4LFTX ON spec_pres_above_grnd'/ - DATA IFILV(075),AVBL(075),IQ(075),IS(075),AVBLGRB2(075) & - & /1,'LIFTED INDEX--BNDLYR',024,116, & - & 'PLI ON spec_pres_above_grnd'/ - DATA IFILV(032),AVBL(032),IQ(032),IS(032),AVBLGRB2(032) & - & /1,'CNVCT AVBL POT ENRGY',157,001, & - & 'CAPE ON surface'/ - DATA IFILV(107),AVBL(107),IQ(107),IS(107),AVBLGRB2(107) & - & /1,'CNVCT INHIBITION ',156,001, & - & 'CIN ON surface'/ - DATA IFILV(080),AVBL(080),IQ(080),IS(080),AVBLGRB2(080) & - & /1,'PRECIPITABLE WATER ',054,200, & - & 'PWAT ON entire_atmos_single_lyr'/ - DATA IFILV(162),AVBL(162),IQ(162),IS(162),AVBLGRB2(162) & - & /1,'STORM REL HELICITY ',190,106, & - & 'HLCY ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(163),AVBL(163),IQ(163),IS(163),AVBLGRB2(163) & - & /1,'U COMP STORM MOTION ',196,106, & - & 'USTM ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(164),AVBL(164),IQ(164),IS(164),AVBLGRB2(164) & - & /1,'V COMP STORM MOTION ',197,106, & - & 'VSTM ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(087),AVBL(087),IQ(087),IS(087),AVBLGRB2(087) & - & /1,'ACM TOTAL PRECIP ',061,001, & - & 'ACM A_PCP ON surface'/ - DATA IFILV(033),AVBL(033),IQ(033),IS(033),AVBLGRB2(033) & - & /1,'ACM CONVCTIVE PRECIP',063,001, & - & 'ACM ACPCP ON surface'/ - DATA IFILV(034),AVBL(034),IQ(034),IS(034),AVBLGRB2(034) & - & /1,'ACM GRD SCALE PRECIP',062,001, & - & 'ACM NCPCP ON surface'/ - DATA IFILV(417),AVBL(417),IQ(417),IS(417),AVBLGRB2(417) & - & /1,'CACM TOTAL PRECIP ',061,001, & - & 'CACM A_PCP ON surface'/ - DATA IFILV(418),AVBL(418),IQ(418),IS(418),AVBLGRB2(418) & - & /1,'CACM CONVCTIVE PRECIP',063,001, & - & 'CACM ACPCP ON surface'/ - DATA IFILV(419),AVBL(419),IQ(419),IS(419),AVBLGRB2(419) & - & /1,'ACM GRD SCALE PRECIP',062,001, & - & 'CACM NCPCP ON surface'/ - DATA IFILV(035),AVBL(035),IQ(035),IS(035),AVBLGRB2(035) & - & /1,'ACM SNOWFALL ',065,001, & - & 'ACM WEASD ON surface'/ - DATA IFILV(746),AVBL(746),IQ(746),IS(746),AVBLGRB2(746) & - & /1,'ACM GRAUPEL ',079,001, & - & 'ACM WEAGD ON surface'/ - DATA IFILV(724),AVBL(724),IQ(724),IS(724),AVBLGRB2(724) & - & /1,'SNOWFALL DENSITY ',089,001, & - & 'SNOWFALL DEN surface '/ - DATA IFILV(725),AVBL(725),IQ(725),IS(725),AVBLGRB2(725) & - & /1,'ACM SNOW DEPTH ',066,001, & - & 'ACM SNOWDEP on surface'/ - DATA IFILV(244),AVBL(244),IQ(244),IS(244),AVBLGRB2(244) & - & /1,'ACM GRD SCALE SW ICE',079,001, & - & 'ACM SNO_L ON surface'/ - DATA IFILV(121),AVBL(121),IQ(121),IS(121),AVBLGRB2(121) & - & /1,'ACM SNOW TOTAL/MELT ',099,001, & - & 'ACM SNO_M ON surface'/ - DATA IFILV(122),AVBL(122),IQ(122),IS(122),AVBLGRB2(122) & - & /1,'ACM STORM SFC RNOFF ',235,001, & - & 'ACM SSRUN ON surface'/ - DATA IFILV(123),AVBL(123),IQ(123),IS(123),AVBLGRB2(123) & - & /1,'ACM BSFL-GDWR RNOFF ',234,001, & - & 'ACM BGRUN ON surface'/ - DATA IFILV(160),AVBL(160),IQ(160),IS(160),AVBLGRB2(160) & - & /1,'INSTANT PRECIP TYPE ',140,001, & - & 'INST CRAIN ON surface'/ - DATA IFILV(407),AVBL(407),IQ(407),IS(407),AVBLGRB2(407) & !407 - & /1,'GSD PRECIP TYPE ',140,001, & - & 'GSD INST CRAIN ON surface'/ - DATA IFILV(167),AVBL(167),IQ(167),IS(167),AVBLGRB2(167) & - & /1,'INSTANT PRECIP RATE ',059,001, & - & 'INST PRATE ON surface'/ - DATA IFILV(172),AVBL(172),IQ(172),IS(172),AVBLGRB2(172) & - & /1,'FROZEN FRAC CLD SCHM',194,001, & - & 'CPOFP ON surface'/ - DATA IFILV(124),AVBL(124),IQ(124),IS(124),AVBLGRB2(124) & - & /1,'CLD WTR ON MDL SFCS ',153,109, & - & 'CLWMR ON hybrid_lvl'/ - DATA IFILV(125),AVBL(125),IQ(125),IS(125),AVBLGRB2(125) & - & /1,'CLD ICE ON MDL SFCS ',058,109, & - & 'C_ICE ON hybrid_lvl'/ - DATA IFILV(145),AVBL(145),IQ(145),IS(145),AVBLGRB2(145) & - & /1,'CLD FRAC ON MDL SFCS',071,109, & - & 'T_CDC ON hybrid_lvl'/ - DATA IFILV(037),AVBL(037),IQ(037),IS(037),AVBLGRB2(037) & - & /1,'LOW CLOUD FRACTION ',073,214, & - & 'L_CDC ON low_cloud_lyr'/ - DATA IFILV(038),AVBL(038),IQ(038),IS(038),AVBLGRB2(038) & - & /1,'MID CLOUD FRACTION ',074,224, & - & 'M_CDC ON mid_cloud_lyr'/ - DATA IFILV(039),AVBL(039),IQ(039),IS(039),AVBLGRB2(039) & - & /1,'HIGH CLOUD FRACTION ',075,234, & - & 'H_CDC ON high_cloud_lyr'/ - DATA IFILV(161),AVBL(161),IQ(161),IS(161),AVBLGRB2(161) & - & /1,'TOTAL CLD FRACTION ',071,200, & - & 'INST T_CDC ON entire_atmos'/ - DATA IFILV(144),AVBL(144),IQ(144),IS(144),AVBLGRB2(144) & - & /1,'AVG TOTAL CLD FRAC ',071,200, & - & 'AVE T_CDC ON entire_atmos'/ - DATA IFILV(139),AVBL(139),IQ(139),IS(139),AVBLGRB2(139) & - & /1,'AVG STRAT CLD FRAC ',213,200, & - & 'AVE CDLYR ON entire_atmos'/ - DATA IFILV(143),AVBL(143),IQ(143),IS(143),AVBLGRB2(143) & - & /1,'AVG CNVCT CLD FRAC ',072,200, & - & 'AVE CDCON ON entire_atmos'/ - DATA IFILV(148),AVBL(148),IQ(148),IS(148),AVBLGRB2(148) & - & /1,'CLOUD BOT PRESSURE ',001,002, & - & 'PRES ON cloud_base'/ - DATA IFILV(798),AVBL(798),IQ(798),IS(798),AVBLGRB2(798) & - & /1,'GSD CLD BOT PRESSURE',001,002, & - & 'GSD PRES ON cloud_base'/ - DATA IFILV(149),AVBL(149),IQ(149),IS(149),AVBLGRB2(149) & - & /1,'CLOUD TOP PRESSURE ',001,003, & - & 'PRES ON cloud_top'/ - DATA IFILV(406),AVBL(406),IQ(406),IS(406),AVBLGRB2(406) & - & /1,'GSD CLD TOP PRESSURE',001,003, & - & 'PRES ON cloud_top'/ !406 - DATA IFILV(109),AVBL(109),IQ(109),IS(109),AVBLGRB2(109) & - & /1,'LCL AGL HEIGHT ',007,005, & - & 'HGT ON lvl_of_adiab_cond_from_sfc'/ - DATA IFILV(110),AVBL(110),IQ(110),IS(110),AVBLGRB2(110) & - & /1,'LCL PRESSURE ',001,005, & - & 'PRES ON lvl_of_adiab_cond_from_sfc'/ - DATA IFILV(078),AVBL(078),IQ(078),IS(078),AVBLGRB2(078) & - & /1,'AVE GRDSCL RN TMPTDY',241,109, & - & 'AVE LRGHR ON hybrid_lvl'/ - DATA IFILV(079),AVBL(079),IQ(079),IS(079),AVBLGRB2(079) & - & /1,'AVE CNVCT RN TMPTDY ',242,109, & - & 'AVE CNVHR ON hybrid_lvl'/ - DATA IFILV(168),AVBL(168),IQ(168),IS(168),AVBLGRB2(168) & - & /1,'CLOUD TOP TEMPS ',011,003, & - & 'TMP ON cloud_top'/ - DATA IFILV(140),AVBL(140),IQ(140),IS(140),AVBLGRB2(140) & - & /1,'RADFLX CNVG TMP TNDY',216,109, & - & 'TTRAD ON hybrid_lvl'/ - DATA IFILV(040),AVBL(040),IQ(040),IS(040),AVBLGRB2(040) & - & /1,'SW RAD TEMP TNDY ',250,109, & - & 'SWHR ON hybrid_lvl'/ - DATA IFILV(041),AVBL(041),IQ(041),IS(041),AVBLGRB2(041) & - & /1,'LW RAD TEMP TNDY ',251,109, & - & 'LWHR ON hybrid_lvl'/ - DATA IFILV(141),AVBL(141),IQ(141),IS(141),AVBLGRB2(141) & - & /1,'INSTN OUT SFC SW RAD',211,001, & - & 'INST USWRF ON surface'/ - DATA IFILV(142),AVBL(142),IQ(142),IS(142),AVBLGRB2(142) & - & /1,'INSTN OUT SFC LW RAD',212,001, & - & 'INST ULWRF ON surface'/ - DATA IFILV(126),AVBL(126),IQ(126),IS(126),AVBLGRB2(126) & - & /1,'AVE INCMG SFC SW RAD',204,001, & - & 'AVE DSWRF ON surface'/ - DATA IFILV(127),AVBL(127),IQ(127),IS(127),AVBLGRB2(127) & - & /1,'AVE INCMG SFC LW RAD',205,001, & - & 'AVE DLWRF ON surface'/ - DATA IFILV(128),AVBL(128),IQ(128),IS(128),AVBLGRB2(128) & - & /1,'AVE OUTGO SFC SW RAD',211,001, & - & 'AVE USWRF ON surface'/ - DATA IFILV(129),AVBL(129),IQ(129),IS(129),AVBLGRB2(129) & - & /1,'AVE OUTGO SFC LW RAD',212,001, & - & 'AVE ULWRF ON surface'/ - DATA IFILV(130),AVBL(130),IQ(130),IS(130),AVBLGRB2(130) & - & /1,'AVE OUTGO TOA SW RAD',211,008, & - & 'AVE USWRF ON top_of_atmos'/ - DATA IFILV(131),AVBL(131),IQ(131),IS(131),AVBLGRB2(131) & - & /1,'AVE OUTGO TOA LW RAD',212,008, & - & 'AVE ULWRF ON top_of_atmos'/ - DATA IFILV(156),AVBL(156),IQ(156),IS(156),AVBLGRB2(156) & - & /1,'INSTN INC SFC SW RAD',204,001, & - & 'INST DSWRF ON surface'/ - DATA IFILV(157),AVBL(157),IQ(157),IS(157),AVBLGRB2(157) & - & /1,'INSTN INC SFC LW RAD',205,001, & - & 'INST DLWRF ON surface'/ - DATA IFILV(044),AVBL(044),IQ(044),IS(044),AVBLGRB2(044) & - & /1,'ROUGHNESS LENGTH ',083,001, & - & 'SFC_R ON surface'/ - DATA IFILV(045),AVBL(045),IQ(045),IS(045),AVBLGRB2(045) & - & /1,'FRICTION VELOCITY ',253,001, & - & 'FRICV ON surface'/ - DATA IFILV(132),AVBL(132),IQ(132),IS(132),AVBLGRB2(132) & - & /1,'SFC DRAG COEFFICIENT',252,001, & - & 'CD ON surface'/ - DATA IFILV(133),AVBL(133),IQ(133),IS(133),AVBLGRB2(133) & - & /1,'SFC U WIND STRESS ',124,001, & - & 'U_FLX ON surface'/ - DATA IFILV(134),AVBL(134),IQ(134),IS(134),AVBLGRB2(134) & - & /1,'SFC V WIND STRESS ',125,001, & - & 'V_FLX ON surface'/ - DATA IFILV(043),AVBL(043),IQ(043),IS(043),AVBLGRB2(043) & - & /1,'AVE SFC SENHEAT FX ',122,001, & - & 'AVE SHTFL ON surface'/ - DATA IFILV(135),AVBL(135),IQ(135),IS(135),AVBLGRB2(135) & - & /1,'AVE GROUND HEAT FX ',155,001, & - & 'AVE GFLUX ON surface'/ - DATA IFILV(136),AVBL(136),IQ(136),IS(136),AVBLGRB2(136) & - & /1,'AVE SNO PHSCNG HT FX',229,001, & - & 'AVE SNOHF ON surface'/ - DATA IFILV(042),AVBL(042),IQ(042),IS(042),AVBLGRB2(042) & - & /1,'AVE SFC LATHEAT FX ',121,001, & - & 'AVE LHTFL ON surface'/ - DATA IFILV(046),AVBL(046),IQ(046),IS(046),AVBLGRB2(046) & - & /1,'AVE SFC MOMENTUM FX ',172,001, & - & 'AVE M_FLX ON surface'/ - DATA IFILV(047),AVBL(047),IQ(047),IS(047),AVBLGRB2(047) & - & /1,'ACC SFC EVAPORATION ',057,001, & - & 'ACM EVP ON surface'/ - DATA IFILV(137),AVBL(137),IQ(137),IS(137),AVBLGRB2(137) & - & /1,'ACC POT EVAPORATION ',228,001, & - & 'ACM PEVAP ON surface'/ - DATA IFILV(154),AVBL(154),IQ(154),IS(154),AVBLGRB2(154) & - & /1,'INST SFC SENHEAT FX ',122,001, & - & 'INST SHTFL ON surface'/ - DATA IFILV(155),AVBL(155),IQ(155),IS(155),AVBLGRB2(155) & - & /1,'INST SFC LATHEAT FX ',121,001, & - & 'INST LHTFL ON surface'/ - DATA IFILV(048),AVBL(048),IQ(048),IS(048),AVBLGRB2(048) & - & /1,'LATITUDE ',176,001, & - & 'NLAT ON surface'/ - DATA IFILV(049),AVBL(049),IQ(049),IS(049),AVBLGRB2(049) & - & /1,'LONGITUDE ',177,001, & - & 'ELON ON surface'/ - DATA IFILV(050),AVBL(050),IQ(050),IS(050),AVBLGRB2(050) & - & /1,'LAND/SEA MASK ',081,001, & - & 'LAND ON surface'/ - DATA IFILV(051),AVBL(051),IQ(051),IS(051),AVBLGRB2(051) & - & /1,'SEA ICE MASK ',091,001, & - & 'ICE_C ON surface'/ - DATA IFILV(052),AVBL(052),IQ(052),IS(052),AVBLGRB2(052) & - & /1,'MASS POINT MDL SFC ',173,001, & - & 'LMH ON surface'/ - DATA IFILV(053),AVBL(053),IQ(053),IS(053),AVBLGRB2(053) & - & /1,'VEL POINT MDL SFC ',174,001, & - & 'LMV ON surface'/ - DATA IFILV(150),AVBL(150),IQ(150),IS(150),AVBLGRB2(150) & - & /1,'SFC MIDDAY ALBEDO ',084,001, & - & 'ALBDO ON surface'/ - DATA IFILV(151),AVBL(151),IQ(151),IS(151),AVBLGRB2(151) & - & /1,'SEA SFC TEMPERATURE ',080,001, & - & 'WTMP ON surface'/ - DATA IFILV(054),AVBL(054),IQ(054),IS(054),AVBLGRB2(054) & - & /1,'PRESS AT TROPOPAUSE ',001,007, & - & 'PRES ON tropopause'/ - DATA IFILV(055),AVBL(055),IQ(055),IS(055),AVBLGRB2(055) & - & /1,'TEMP AT TROPOPAUSE ',011,007, & - & 'TMP ON tropopause'/ - DATA IFILV(108),AVBL(108),IQ(108),IS(108),AVBLGRB2(108) & - & /1,'POTENTL TEMP AT TROP',013,007, & - & 'POT ON tropopause'/ - DATA IFILV(056),AVBL(056),IQ(056),IS(056),AVBLGRB2(056) & - & /1,'U WIND AT TROPOPAUSE',033,007, & - & 'U_GRD ON tropopause'/ - DATA IFILV(057),AVBL(057),IQ(057),IS(057),AVBLGRB2(057) & - & /1,'V WIND AT TROPOPAUSE',034,007, & - & 'V_GRD ON tropopause'/ - DATA IFILV(058),AVBL(058),IQ(058),IS(058),AVBLGRB2(058) & - & /1,'SHEAR AT TROPOPAUSE ',136,007, & - & 'VW_SH ON tropopause'/ - DATA IFILV(059),AVBL(059),IQ(059),IS(059),AVBLGRB2(059) & - & /1,'TEMP AT FD HEIGHTS ',011,103, & - & 'TMP ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(060),AVBL(060),IQ(060),IS(060),AVBLGRB2(060) & - & /1,'U WIND AT FD HEIGHTS',033,103, & - & 'U_GRD ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(061),AVBL(061),IQ(061),IS(061),AVBLGRB2(061) & - & /1,'V WIND AT FD HEIGHTS',034,103, & - & 'V_GRD ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(062),AVBL(062),IQ(062),IS(062),AVBLGRB2(062) & - & /1,'HEIGHT OF FRZ LVL ',007,004, & - & 'HGT ON 0C_isotherm'/ - DATA IFILV(063),AVBL(063),IQ(063),IS(063),AVBLGRB2(063) & - & /1,'REL HUMID AT FRZ LVL',052,004, & - & 'RH ON 0C_isotherm'/ - DATA IFILV(165),AVBL(165),IQ(165),IS(165),AVBLGRB2(165) & - & /1,'HIGHEST FREEZE LVL ',007,204, & - & 'HGT ON hghst_trop_frz_lvl'/ - DATA IFILV(350),AVBL(350),IQ(350),IS(350),AVBLGRB2(350) & - & /1,'HIGHEST FRZ LVL RH ',052,204, & - & 'RH ON hghst_trop_frz_lvl'/ - DATA IFILV(067),AVBL(067),IQ(067),IS(067),AVBLGRB2(067) & - & /1,'PRESS IN BNDRY LYR ',001,116, & - & 'PRES ON spec_pres_above_grnd'/ - DATA IFILV(068),AVBL(068),IQ(068),IS(068),AVBLGRB2(068) & - & /1,'TEMP IN BNDRY LYR ',011,116, & - & 'TMP ON spec_pres_above_grnd'/ - DATA IFILV(069),AVBL(069),IQ(069),IS(069),AVBLGRB2(069) & - & /1,'POT TMP IN BNDRY LYR',013,116, & - & 'POT ON spec_pres_above_grnd'/ - DATA IFILV(070),AVBL(070),IQ(070),IS(070),AVBLGRB2(070) & - & /1,'DWPT IN BNDRY LYR ',017,116, & - & 'DPT ON spec_pres_above_grnd'/ - DATA IFILV(071),AVBL(071),IQ(071),IS(071),AVBLGRB2(071) & - & /1,'SPC HUM IN BNDRY LYR',051,116, & - & 'SPF_H ON spec_pres_above_grnd'/ - DATA IFILV(072),AVBL(072),IQ(072),IS(072),AVBLGRB2(072) & - & /1,'REL HUM IN BNDRY LYR',052,116, & - & 'RH ON spec_pres_above_grnd'/ - DATA IFILV(088),AVBL(088),IQ(088),IS(088),AVBLGRB2(088) & - & /1,'MST CNV IN BNDRY LYR',135,116, & - & 'MCONV ON spec_pres_above_grnd'/ - DATA IFILV(089),AVBL(089),IQ(089),IS(089),AVBLGRB2(089) & - & /1,'P WATER IN BNDRY LYR',054,116, & - & 'PWAT ON spec_pres_above_grnd'/ - DATA IFILV(073),AVBL(073),IQ(073),IS(073),AVBLGRB2(073) & - & /1,'U WIND IN BNDRY LYR ',033,116, & - & 'U_GRD ON spec_pres_above_grnd'/ - DATA IFILV(074),AVBL(074),IQ(074),IS(074),AVBLGRB2(074) & - & /1,'V WIND IN BNDRY LYR ',034,116, & - & 'V_GRD ON spec_pres_above_grnd'/ - DATA IFILV(090),AVBL(090),IQ(090),IS(090),AVBLGRB2(090) & - & /1,'OMEGA IN BNDRY LYR ',039,116, & - & 'V_VEL ON spec_pres_above_grnd'/ - DATA IFILV(066),AVBL(066),IQ(066),IS(066),AVBLGRB2(066) & - & /1,'LFM 0.33-1.00 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(081),AVBL(081),IQ(081),IS(081),AVBLGRB2(081) & - & /1,'LFM 0.66-1.00 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(082),AVBL(082),IQ(082),IS(082),AVBLGRB2(082) & - & /1,'LFM 0.33-0.66 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(104),AVBL(104),IQ(104),IS(104),AVBLGRB2(104) & - & /1,'LFM 0.33-1.00 PWAT ',054,108, & - & 'PWAT ON sigma_lvl'/ - DATA IFILV(091),AVBL(091),IQ(091),IS(091),AVBLGRB2(091) & - & /1,'NGM 0.98230 PRESSURE',001,107, & - & 'PRES ON sigma_lvl'/ - DATA IFILV(092),AVBL(092),IQ(092),IS(092),AVBLGRB2(092) & - & /1,'NGM 0.98230 TMPRATUR',011,107, & - & 'TMP ON sigma_lvl'/ - DATA IFILV(093),AVBL(093),IQ(093),IS(093),AVBLGRB2(093) & - & /1,'NGM 0.98230 SPC HUM ',051,107, & - & 'SPF_H ON sigma_lvl'/ - DATA IFILV(094),AVBL(094),IQ(094),IS(094),AVBLGRB2(094) & - & /1,'NGM 0.98230 REL HUM ',052,107, & - & 'RH ON sigma_lvl'/ - DATA IFILV(095),AVBL(095),IQ(095),IS(095),AVBLGRB2(095) & - & /1,'NGM 0.98230 U WIND ',033,107, & - & 'U_GRD ON sigma_lvl'/ - DATA IFILV(096),AVBL(096),IQ(096),IS(096),AVBLGRB2(096) & - & /1,'NGM 0.98230 V WIND ',034,107, & - & 'V_GRD ON sigma_lvl'/ - DATA IFILV(097),AVBL(097),IQ(097),IS(097),AVBLGRB2(097) & - & /1,'NGM 0.89671 TMPRATUR',011,107, & - & 'TMP ON sigma_lvl'/ - DATA IFILV(098),AVBL(098),IQ(098),IS(098),AVBLGRB2(098) & - & /1,'NGM 0.78483 TMPRATUR',011,107, & - & 'TMP ON sigma_lvl'/ - DATA IFILV(099),AVBL(099),IQ(099),IS(099),AVBLGRB2(099) & - & /1,'NGM 0.47-1.00 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(100),AVBL(100),IQ(100),IS(100),AVBLGRB2(100) & - & /1,'NGM 0.47-0.96 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(101),AVBL(101),IQ(101),IS(101),AVBLGRB2(101) & - & /1,'NGM 0.18-0.47 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(102),AVBL(102),IQ(102),IS(102),AVBLGRB2(102) & - & /1,'NGM 0.84-0.98 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(103),AVBL(103),IQ(103),IS(103),AVBLGRB2(103) & - & /1,'NGM 0.85-1.00 QCONVG',135,108, & - & 'MCONV ON sigma_lvl'/ - DATA IFILV(173),AVBL(173),IQ(173),IS(173),AVBLGRB2(173) & - & /1,'MAX WIND PRESS LEVEL',001,006, & - & 'PRES ON max_wind'/ - DATA IFILV(174),AVBL(174),IQ(174),IS(174),AVBLGRB2(174) & - & /1,'MAX WIND HGHT LEVEL ',007,006, & - & 'HGT ON max_wind'/ - DATA IFILV(175),AVBL(175),IQ(175),IS(175),AVBLGRB2(175) & - & /1,'U COMP MAX WIND ',033,006, & - & 'U_GRD ON max_wind'/ - DATA IFILV(176),AVBL(176),IQ(176),IS(176),AVBLGRB2(176) & - & /1,'V COMP MAX WIND ',034,006, & - & 'V_GRD ON max_wind'/ - DATA IFILV(177),AVBL(177),IQ(177),IS(177),AVBLGRB2(177) & - & /1,'HEIGHT AT TROPOPAUSE',007,007, & - & 'HGT ON tropopause'/ - DATA IFILV(178),AVBL(178),IQ(178),IS(178),AVBLGRB2(178) & - & /1,'CLOUD BOTTOM HEIGHT ',007,002, & - & 'HGT ON cloud_base'/ - DATA IFILV(179),AVBL(179),IQ(179),IS(179),AVBLGRB2(179) & - & /1,'CLOUD TOP HEIGHT ',007,003, & - & 'HGT ON cloud_top'/ - DATA IFILV(180),AVBL(180),IQ(180),IS(180),AVBLGRB2(180) & - & /1,'VISIBILITY ',020,001, & - & 'VIS ON surface'/ - DATA IFILV(408),AVBL(408),IQ(408),IS(408),AVBLGRB2(408) & - & /1,'GSD CLD BOT HEIGHT ',007,002, & - & 'GSD HGT ON cloud_base'/ !408 - DATA IFILV(409),AVBL(409),IQ(409),IS(409),AVBLGRB2(409) & - & /1,'GSD CLD TOP HEIGHT ',007,003, & - & 'GSD HGT ON cloud_top'/ !408 - DATA IFILV(410),AVBL(410),IQ(410),IS(410),AVBLGRB2(410) & - & /1,'GSD VISIBILITY ',020,003, & - & 'GSD VIS ON cloud top'/ !410 -! CRA - DATA IFILV(411),AVBL(411),IQ(411),IS(411),AVBLGRB2(411) & - & /1,'INSTN WIND POWER AGL',126,105, & - & 'INST WMIXE ON spec_hgt_lvl_above_grnd'/ !411 - DATA IFILV(412),AVBL(412),IQ(412),IS(412),AVBLGRB2(412) & - & /1,'U WIND AT 80M AGL ',049,105, & - & 'UGRD ON 80M spec_hgt_lvl_above_grnd'/ !412 - DATA IFILV(413),AVBL(413),IQ(413),IS(413),AVBLGRB2(413) & - & /1,'V WIND AT 80M AGL ',050,105, & - & 'VGRD ON 80M spec_hgt_lvl_above_grnd'/ !413 -! - DATA IFILV(181),AVBL(181),IQ(181),IS(181),AVBLGRB2(181) & - & /1,'RAIN ON MDL SFCS ',170,109, & - & 'RWMR ON hybrid_lvl'/ - DATA IFILV(182),AVBL(182),IQ(182),IS(182),AVBLGRB2(182) & - & /1,'SNOW ON MDL SFCS ',171,109, & - & 'SNMR ON hybrid_lvl'/ - DATA IFILV(183),AVBL(183),IQ(183),IS(183),AVBLGRB2(183) & - & /1,'RAIN ON P SFCS ',170,100, & - & 'RWMR ON isobaric_sfc'/ - DATA IFILV(184),AVBL(184),IQ(184),IS(184),AVBLGRB2(184) & - & /1,'SNOW ON P SFCS ',171,100, & - & 'SNMR ON isobaric_sfc'/ - DATA IFILV(415),AVBL(415),IQ(415),IS(415),AVBLGRB2(415) & - & /1,'GRAUPEL ON MDL SFCS ',179,109, & - & 'GRLE ON hybrid_lvl'/ !415 - DATA IFILV(416),AVBL(416),IQ(416),IS(416),AVBLGRB2(416) & - & /1,'GRAUPEL ON P SFCS ',179,100, & - & 'GRLE ON isobaric_sfc'/ !416 - -! SRD - DATA IFILV(420),AVBL(420),IQ(420),IS(420),AVBLGRB2(420) & - & /1,'MAX UPDRAFT HELICITY',236,106, & - & 'MAX UPHL ON spec_hgt_lvl_above_grnd'/ !420 - DATA IFILV(421),AVBL(421),IQ(421),IS(421),AVBLGRB2(421) & - & /1,'MAX 1km REFLECTIVITY',235,105, & - & 'MAX REF ON 1000M spec_hgt_lvl_above_grnd'/ !421 - DATA IFILV(422),AVBL(422),IQ(422),IS(422),AVBLGRB2(422) & - & /1,'MAX 10m WIND SPEED ',229,105, & - & 'MAX WIND ON 10M spec_hgt_lvl_above_grnd'/ !422 - DATA IFILV(423),AVBL(423),IQ(423),IS(423),AVBLGRB2(423) & - & /1,'MAX UPDRAFT VERT VEL',237,106, & - & 'MAX UPDZDT ON spec_hgt_lvl_above_grnd'/ !423 - DATA IFILV(424),AVBL(424),IQ(424),IS(424),AVBLGRB2(424) & - & /1,'MAX DNDRAFT VERT VEL',238,106, & - & 'MAX DNDZDT ON spec_hgt_lvl_above_grnd'/ !424 - DATA IFILV(425),AVBL(425),IQ(425),IS(425),AVBLGRB2(425) & - & /1,'MEAN VERT VEL ',040,108, & - & 'AVE DZDT ON spec_hgt_lvl_above_grnd'/ !425 - DATA IFILV(426),AVBL(426),IQ(426),IS(426),AVBLGRB2(426) & - & /1,'ECHO TOPS IN KFT ',007,105, & - & 'HGT ON spec_hgt_lvl_above_grnd'/ !426 - DATA IFILV(427),AVBL(427),IQ(427),IS(427),AVBLGRB2(427) & - & /1,'UPDRAFT HELICITY PRM',227,106, & - & 'UPHL ON spec_hgt_lvl_above_grnd'/ !427 - DATA IFILV(428),AVBL(428),IQ(428),IS(428),AVBLGRB2(428) & - & /1,'VERT INTEG GRAUP ',179,200, & - & 'TCOLG ON entire_atmos_single_lyr'/ !428 - DATA IFILV(429),AVBL(429),IQ(429),IS(429),AVBLGRB2(429) & - & /1,'MAX VERT INTEG GRAUP',239,200, & - & 'MAXVIG ON entire_atmos_single_lyr'/ !429 -! SRD -! CRA - DATA IFILV(430),AVBL(430),IQ(430),IS(430),AVBLGRB2(430) & - & /1,'U COMP 0-1 KM SHEAR ',045,106, & - & 'UUCSH ON spec_hgt_lvl_above_grnd'/ !430 - DATA IFILV(431),AVBL(431),IQ(431),IS(431),AVBLGRB2(431) & - & /1,'V COMP 0-1 KM SHEAR ',046,106, & - & 'VVCSH ON spec_hgt_lvl_above_grnd'/ !431 - DATA IFILV(432),AVBL(432),IQ(432),IS(432),AVBLGRB2(432) & - & /1,'U COMP 0-6 KM SHEAR ',045,106, & - & 'UUCSH ON spec_hgt_lvl_above_grnd'/ !432 - DATA IFILV(433),AVBL(433),IQ(433),IS(433),AVBLGRB2(433) & - & /1,'V COMP 0-6 KM SHEAR ',046,106, & - & 'VVCSH ON spec_hgt_lvl_above_grnd'/ !433 -! CRA - -! Add precipitation buckets between outputs - DATA IFILV(434),AVBL(434),IQ(434),IS(434),AVBLGRB2(434) & - & /1,'BUCKET TOTAL PRECIP ',061,001, & - & 'A_PCP ON surface'/ !434 - DATA IFILV(435),AVBL(435),IQ(435),IS(435),AVBLGRB2(435) & - & /1,'BUCKET CONV PRECIP ',063,001, & - & 'ACPCP ON surface'/ !435 - DATA IFILV(436),AVBL(436),IQ(436),IS(436),AVBLGRB2(436) & - & /1,'BUCKET GRDSCALE PRCP',062,001, & - & 'NCPCP ON surface'/ !436 - DATA IFILV(437),AVBL(437),IQ(437),IS(437),AVBLGRB2(437) & - & /1,'BUCKET SNOW PRECIP ',065,001, & - & 'WEASD ON surface'/ !437 - DATA IFILV(487),AVBL(487),IQ(487),IS(487),AVBLGRB2(487) & - & /1,'GSD CEILING ',008,002, & - & 'HGT ON cloud_ceiling'/ !487 -!JSK - add model-state cloud fraction; not the same as field 145 ("TCDC") - DATA IFILV(774),AVBL(774),IQ(774),IS(774),AVBLGRB2(774) & - & /1,'RAW CLD FRA MDL SFCS',071,109, & - & 'FRACCC ON hybrid_lvl'/ -!tgs - need to find the correct Grid table number for 775 field - DATA IFILV(775),AVBL(775),IQ(775),IS(775),AVBLGRB2(775) & - & /1,'BUCKET GRAUP PRECIP ',179,001, & !775 - & 'GRAUP ON surface'/ -!CRA - -10C and -20C isothermal heigths, RH, pressure - DATA IFILV(776),AVBL(776),IQ(776),IS(776),AVBLGRB2(776) & - & /1,'HIGHEST -10C LVL ',007,020, & - & 'HGT ON -10C_isotherm'/ !776 - DATA IFILV(777),AVBL(777),IQ(777),IS(777),AVBLGRB2(777) & - & /1,'HIGHEST -10C RH ',052,020, & - & 'RH ON -10C_isotherm'/ !777 - DATA IFILV(778),AVBL(778),IQ(778),IS(778),AVBLGRB2(778) & - & /1,'HIGHEST -10C PRES ',001,020, & - & 'PRES ON -10C_isotherm'/ !778 - DATA IFILV(779),AVBL(779),IQ(779),IS(779),AVBLGRB2(779) & - & /1,'HIGHEST -20C LVL ',007,020, & - & 'HGT ON -20C_isotherm'/ !779 - DATA IFILV(780),AVBL(780),IQ(780),IS(780),AVBLGRB2(780) & - & /1,'HIGHEST -20C RH ',052,020, & - & 'RH ON -20C_isotherm'/ !780 - DATA IFILV(781),AVBL(781),IQ(781),IS(781),AVBLGRB2(781) & - & /1,'HIGHEST -20C PRES ',001,020, & - & 'PRES ON -20C_isotherm'/ !781 - DATA IFILV(782),AVBL(782),IQ(782),IS(782),AVBLGRB2(782) & - & /1,'ACM FRAIN ',193,001, & - & 'ACM FRAIN ON surface'/ !782 -! CRA -! -!--- Added new cloud microphysics fields & displaying more -! convective cloud properties (Jin, '01; Ferrier, Feb '02) -! -! -!--- The following fields have been added to the post under -! PDS Octet 4 = 129. All other fields above are with PDS Octet -! 4 = 2. Most of the fields below, except for the cloud top -! and cloud base pressures, have PDS Octet 4 = 129. These new -! grib parameters are listed in Table 129 of the GRIB documentation. -! See Table 2 in Office Note 388 (ON388) for more details. -! -!--- F_rain, F_ice, F_RimeF => PDS Octet 4 = 129 -! - DATA IFILV(185),AVBL(185),IQ(185),IS(185),AVBLGRB2(185) & - & /1,'F_rain ON MDL SFCS ',131,109, & - & 'FRAIN ON hybrid_lvl'/ - DATA IFILV(186),AVBL(186),IQ(186),IS(186),AVBLGRB2(186) & - & /1,'F_ice ON MDL SFCS ',132,109, & - & 'FICE ON hybrid_lvl'/ - DATA IFILV(187),AVBL(187),IQ(187),IS(187),AVBLGRB2(187) & - & /1,'F_RimeF ON MDL SFCS ',133,109, & - & 'RIME ON hybrid_lvl'/ -! -!--- The following cloud pressure fields have PDS Octet 4 = 2 -! - DATA IFILV(188),AVBL(188),IQ(188),IS(188),AVBLGRB2(188) & - & /1,'CONV CLOUD BOT PRESS',001,242, & - & 'PRES ON convective_cloud_bot_lvl'/ - DATA IFILV(189),AVBL(189),IQ(189),IS(189),AVBLGRB2(189) & - & /1,'CONV CLOUD TOP PRESS',001,243, & - & 'PRES ON convective_cloud_top_lvl'/ - DATA IFILV(190),AVBL(190),IQ(190),IS(190),AVBLGRB2(190) & - & /1,'SHAL CU CLD BOT PRES',001,248, & - & 'PRES ON shall_convective_cloud_bot_lvl'/ - DATA IFILV(191),AVBL(191),IQ(191),IS(191),AVBLGRB2(191) & - & /1,'SHAL CU CLD TOP PRES',001,249, & - & 'PRES ON shall_convective_cloud_top_lvl'/ - DATA IFILV(192),AVBL(192),IQ(192),IS(192),AVBLGRB2(192) & - & /1,'DEEP CU CLD BOT PRES',001,251, & - & 'PRES ON deep_convective_cloud_bot_lvl'/ - DATA IFILV(193),AVBL(193),IQ(193),IS(193),AVBLGRB2(193) & - & /1,'DEEP CU CLD TOP PRES',001,252, & - & 'PRES ON deep_convective_cloud_top_lvl'/ - DATA IFILV(194),AVBL(194),IQ(194),IS(194),AVBLGRB2(194) & - & /1,'GRID CLOUD BOT PRESS',001,206, & - & 'PRES ON grid_scale_cloud_bot_lvl'/ - DATA IFILV(195),AVBL(195),IQ(195),IS(195),AVBLGRB2(195) & - & /1,'GRID CLOUD TOP PRESS',001,207, & - & 'PRES ON grid_scale_cloud_top_lvl'/ - DATA IFILV(196),AVBL(196),IQ(196),IS(196),AVBLGRB2(196) & - & /1,'CONV CLOUD FRACTION ',072,200, & - & 'T_CDC ON entire_atmos_single_lyr'/ -! DATA IFILV(196),AVBL(196),IQ(196),IS(196),AVBLGRB2(196) & -! & /1,'CONV CLOUD FRACTION ',072,200, & -! & 'T_CDC ON convective_cloud_lyr'/ -! -!--- These remaining fields have PDS Octet 4 = 129 (Table 129, ON388) -! - DATA IFILV(197),AVBL(197),IQ(197),IS(197),AVBLGRB2(197) & - & /1,'CU CLOUD EFFICIENCY ',134,200, & - & 'CUEFI ON entire_atmos_single_lyr'/ - DATA IFILV(198),AVBL(198),IQ(198),IS(198),AVBLGRB2(198) & - & /1,'CONDENSATE ON P SFCS',135,100, & - & 'TCOND ON isobaric_sfc'/ - DATA IFILV(199),AVBL(199),IQ(199),IS(199),AVBLGRB2(199) & - & /1,'CONDENSATE MDL SFCS ',135,109, & - & 'TCOND ON hybrid_lvl'/ - DATA IFILV(200),AVBL(200),IQ(200),IS(200),AVBLGRB2(200) & - & /1,'TOTAL COLUMN CLD WTR',136,200, & - & 'TCOLW ON entire_atmos_single_lyr'/ - DATA IFILV(201),AVBL(201),IQ(201),IS(201),AVBLGRB2(201) & - & /1,'TOTAL COLUMN CLD ICE',137,200, & - & 'TCOLI ON entire_atmos_single_lyr'/ - DATA IFILV(202),AVBL(202),IQ(202),IS(202),AVBLGRB2(202) & - & /1,'TOTAL COLUMN RAIN ',138,200, & - & 'TCOLR ON entire_atmos_single_lyr'/ - DATA IFILV(203),AVBL(203),IQ(203),IS(203),AVBLGRB2(203) & - & /1,'TOTAL COLUMN SNOW ',139,200, & - & 'TCOLS ON entire_atmos_single_lyr'/ - DATA IFILV(204),AVBL(204),IQ(204),IS(204),AVBLGRB2(204) & - & /1,'TOTAL COL CONDENSATE',140,200, & - & 'TCOLC ON entire_atmos_single_lyr'/ -! See below for total supercooled liquid & melting ice ... IFILV(285) -! H CHUANG--ADD INTERPOLATED FIELDS ON SIGMA LEVELS - DATA IFILV(205),AVBL(205),IQ(205),IS(205),AVBLGRB2(205) & - & /1,'HEIGHT OF SIGMA SFCS',007,107, & - & 'HGT ON sigma_lvl'/ - DATA IFILV(206),AVBL(206),IQ(206),IS(206),AVBLGRB2(206) & - & /1,'TEMP ON SIGMA SFCS ',011,107, & - & 'TMP ON sigma_lvl'/ - DATA IFILV(207),AVBL(207),IQ(207),IS(207),AVBLGRB2(207) & - & /1,'SPEC HUM ON S SFCS ',051,107, & - & 'SPF_H ON sigma_lvl'/ - DATA IFILV(208),AVBL(208),IQ(208),IS(208),AVBLGRB2(208) & - & /0,'U WIND ON SIGMA SFCS',033,107, & - & 'U_GRD ON sigma_lvl'/ - DATA IFILV(209),AVBL(209),IQ(209),IS(209),AVBLGRB2(209) & - & /0,'V WIND ON SIGMA SFCS',034,107, & - & 'V_GRD ON sigma_lvl'/ - DATA IFILV(210),AVBL(210),IQ(210),IS(210),AVBLGRB2(210) & - & /1,'OMEGA ON SIGMA SFCS ',039,107, & - & 'V_VEL ON sigma_lvl'/ - DATA IFILV(211),AVBL(211),IQ(211),IS(211),AVBLGRB2(211) & - & /1,'CLOUD WATR ON S SFCS',153,107, & - & 'CLWMR ON sigma_lvl'/ - DATA IFILV(212),AVBL(212),IQ(212),IS(212),AVBLGRB2(212) & - & /1,'CLOUD ICE ON S SFCS ',058,107, & - & 'C_ICE ON sigma_lvl'/ - DATA IFILV(213),AVBL(213),IQ(213),IS(213),AVBLGRB2(213) & - & /1,'RAIN ON S SFCS ',170,107, & - & 'RWMR ON sigma_lvl'/ - DATA IFILV(214),AVBL(214),IQ(214),IS(214),AVBLGRB2(214) & - & /1,'SNOW ON S SFCS ',171,107, & - & 'SNMR ON sigma_lvl'/ - DATA IFILV(215),AVBL(215),IQ(215),IS(215),AVBLGRB2(215) & - & /1,'CONDENSATE ON S SFCS',135,107, & - & 'TCOND ON sigma_lvl'/ - DATA IFILV(216),AVBL(216),IQ(216),IS(216),AVBLGRB2(216) & - & /1,'PRESS ON SIG SFCS ',001,107, & - & 'PRES ON sigma_lvl'/ - DATA IFILV(217),AVBL(217),IQ(217),IS(217),AVBLGRB2(217) & - & /1,'TRBLNT KE ON S SFCS ',158,107, & - & 'TKE ON sigma_lvl'/ - DATA IFILV(222),AVBL(222),IQ(222),IS(222),AVBLGRB2(222) & - & /1,'CLD FRAC ON SIG SFCS',071,107, & - & 'T_CDC ON sigma_lvl'/ - DATA IFILV(255),AVBL(255),IQ(255),IS(255),AVBLGRB2(255) & !255 - & /1,'GRAUPEL ON S SFCS ',179,107, & - & 'GRLE ON sigma_lvl'/ -! H CHUANG--ADD FIXED AND LSM FIELDS - DATA IFILV(218),AVBL(218),IQ(218),IS(218),AVBLGRB2(218) & - & /1,'VEGETATION TYPE ',225,001, & - & 'VGTYP ON surface'/ - DATA IFILV(219),AVBL(219),IQ(219),IS(219),AVBLGRB2(219) & - & /1,'SOIL TYPE ',224,001, & - & 'SOTYP ON surface'/ - DATA IFILV(220),AVBL(220),IQ(220),IS(220),AVBLGRB2(220) & - & /1,'CANOPY CONDUCTANCE ',181,001, & - & 'CCOND ON surface'/ - DATA IFILV(221),AVBL(221),IQ(221),IS(221),AVBLGRB2(221) & - & /1,'PBL HEIGHT ',221,001, & - & 'HPBL ON surface'/ - DATA IFILV(223),AVBL(223),IQ(223),IS(223),AVBLGRB2(223) & - & /1,'SLOPE TYPE ',222,001, & - & 'SLTYP ON surface'/ - DATA IFILV(224),AVBL(224),IQ(224),IS(224),AVBLGRB2(224) & - & /1,'SNOW DEPTH ',066,001, & - & 'SNO_D ON surface'/ - DATA IFILV(225),AVBL(225),IQ(225),IS(225),AVBLGRB2(225) & - & /1,'LIQUID SOIL MOISTURE',160,112, & - & 'SOILL ON depth_bel_land_sfc'/ - DATA IFILV(226),AVBL(226),IQ(226),IS(226),AVBLGRB2(226) & - & /1,'SNOW FREE ALBEDO ',170,001, & - & '/SNFALB ON surface'/ - DATA IFILV(227),AVBL(227),IQ(227),IS(227),AVBLGRB2(227) & - & /1,'MAXIMUM SNOW ALBEDO ',159,001, & - & 'MXSALB ON surface'/ - DATA IFILV(228),AVBL(228),IQ(228),IS(228),AVBLGRB2(228) & - & /1,'CANOPY WATER EVAP ',200,001, & - & 'EVCW ON surface'/ - DATA IFILV(229),AVBL(229),IQ(229),IS(229),AVBLGRB2(229) & - & /1,'DIRECT SOIL EVAP ',199,001, & - & 'EVBS ON surface'/ - DATA IFILV(230),AVBL(230),IQ(230),IS(230),AVBLGRB2(230) & - & /1,'PLANT TRANSPIRATION ',210,001, & - & 'TRANS ON surface'/ - DATA IFILV(231),AVBL(231),IQ(231),IS(231),AVBLGRB2(231) & - & /1,'SNOW SUBLIMATION ',198,001, & - & 'SBSNO ON surface'/ - DATA IFILV(232),AVBL(232),IQ(232),IS(232),AVBLGRB2(232) & - & /1,'AIR DRY SOIL MOIST ',231,001, & - & 'SMDRY ON surface'/ - DATA IFILV(233),AVBL(233),IQ(233),IS(233),AVBLGRB2(233) & - & /1,'SOIL MOIST POROSITY ',240,001, & - & 'POROS ON surface'/ - DATA IFILV(234),AVBL(234),IQ(234),IS(234),AVBLGRB2(234) & - & /1,'MIN STOMATAL RESIST ',203,001, & - & 'RSMIN ON surface'/ - DATA IFILV(235),AVBL(235),IQ(235),IS(235),AVBLGRB2(235) & - & /1,'NO OF ROOT LAYERS ',171,001, & - & 'RLYRS ON surface'/ - DATA IFILV(236),AVBL(236),IQ(236),IS(236),AVBLGRB2(236) & - & /1,'SOIL MOIST WILT PT ',219,001, & - & 'WILT ON surface'/ - DATA IFILV(237),AVBL(237),IQ(237),IS(237),AVBLGRB2(237) & - & /1,'SOIL MOIST REFERENCE',230,001, & - & 'SMREF ON surface'/ - DATA IFILV(238),AVBL(238),IQ(238),IS(238),AVBLGRB2(238) & - & /1,'CANOPY COND SOLAR ',246,001, & - & 'RCS ON surface'/ - DATA IFILV(239),AVBL(239),IQ(239),IS(239),AVBLGRB2(239) & - & /1,'CANOPY COND TEMP ',247,001, & - & 'RCT ON surface'/ - DATA IFILV(240),AVBL(240),IQ(240),IS(240),AVBLGRB2(240) & - & /1,'CANOPY COND HUMID ',248,001, & - & 'RCQ ON surface'/ - DATA IFILV(241),AVBL(241),IQ(241),IS(241),AVBLGRB2(241) & - & /1,'CANOPY COND SOILM ',249,001, & - & 'RCSOL ON surface'/ - DATA IFILV(242),AVBL(242),IQ(242),IS(242),AVBLGRB2(242) & - & /1,'POTENTIAL EVAP ',145,001, & - & 'PEVPR ON surface'/ - DATA IFILV(243),AVBL(243),IQ(243),IS(243),AVBLGRB2(243) & - & /1,'DIFFUSION H RATE S S',182,107, & - & 'VEDH ON sigma_lvl'/ -! - DATA IFILV(245),AVBL(245),IQ(245),IS(245),AVBLGRB2(245) & - & /1,'SFC WIND GUST ',180,001, & - & 'GUST ON surface'/ - DATA IFILV(246),AVBL(246),IQ(246),IS(246),AVBLGRB2(246) & - & /1,'LIFT PCL LVL PRESS ',141,116, & - & 'PLPL ON spec_pres_above_grnd'/ - DATA IFILV(247),AVBL(247),IQ(247),IS(247),AVBLGRB2(247) & - & /1,'LOW WET BULB ZERO HT',007,245, & - & 'HGT ON lwst_lvl_of_wet_bulb_zero'/ - DATA IFILV(248),AVBL(248),IQ(248),IS(248), AVBLGRB2(248) & - & /1,'EMISSIVITY ',193,001, & - 'EMISSIVITY ON surface'/ - DATA IFILV(249),AVBL(249),IQ(249),IS(249),AVBLGRB2(249) & - & /1,'CONV PRECIP RATE ',214,001, & - & 'CPRAT ON surface'/ -!--- USING Table 129 -! - DATA IFILV(250),AVBL(250),IQ(250),IS(250),AVBLGRB2(250) & - & /1,'RADAR REFL MDL SFCS ',211,109, & - & 'REFD ON hybrid_lvl'/ - DATA IFILV(251),AVBL(251),IQ(251),IS(251),AVBLGRB2(251) & - & /1,'RADAR REFL ON P SFCS',211,100, & - & 'REFD ON isobaric_sfc'/ - DATA IFILV(252),AVBL(252),IQ(252),IS(252),AVBLGRB2(252) & - & /1,'COMPOSITE RADAR REFL',212,200, & - & 'REFC ON entire_atmos_single_lyr'/ - DATA IFILV(253),AVBL(253),IQ(253),IS(253),AVBLGRB2(253) & - & /1,'RADAR REFL AGL ',211,105, & - & 'REFD ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(254),AVBL(254),IQ(254),IS(254),AVBLGRB2(254) & - & /1,'LEAF AREA INDEX ',182,001, & - & 'LAI ON surface'/ -! - DATA IFILV(256),AVBL(256),IQ(256),IS(256),AVBLGRB2(256) & - & /1,'ACM LSM PRECIP ',154,001, & - & 'ACM LSPA ON surface'/ -! -!--- FOLLOWINGS ARE AVIATION-RELATED FIELDS: ADDED BY BINBIN ZHOU -! - DATA IFILV(257),AVBL(257),IQ(257),IS(257),AVBLGRB2(257) & - & /1,'IN-FLIGHT ICING ',186,100, & - & 'TIPD ON isobaric_sfc'/ - DATA IFILV(258),AVBL(258),IQ(258),IS(258),AVBLGRB2(258) & - & /1,'CLEAR AIR TURBULENCE',185,100, & - & 'TPFI ON isobaric_sfc'/ - DATA IFILV(259),AVBL(259),IQ(259),IS(259),AVBLGRB2(259) & - & /1,'0-2000FT LLWS ',136,106, & - & 'VW_SH ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(260),AVBL(260),IQ(260),IS(260),AVBLGRB2(260) & - & /1,'CEILING ',007,215, & - & 'HGT ON cloud_ceilng'/ - DATA IFILV(261),AVBL(261),IQ(261),IS(261),AVBLGRB2(261) & - & /1,'FLIGHT RESTRICTION ',020,002, & - & 'VIS ON cloud_base'/ -! - DATA IFILV(262),AVBL(262),IQ(262),IS(262),AVBLGRB2(262) & - & /1,'INSTN CLR INC SFC SW',161,001, & - & 'INST CSDSF ON surface'/ - DATA IFILV(263),AVBL(263),IQ(263),IS(263),AVBLGRB2(263) & - & /1,'F_RimeF ON P SFCS ',133,100, & - & 'RIME ON isobaric_sfc'/ - DATA IFILV(264),AVBL(264),IQ(264),IS(264),AVBLGRB2(264) & - & /1,'W WIND ON MDL SFCS ',040,109, & - & 'DZDT ON hybrid_lvl'/ -! DATA IFILV(265),AVBL(265),IQ(265),IS(265),AVBLGRB2(265) & -! & /1,'BRIGHTNESS TEMP ',118,008, & - DATA IFILV(265),AVBL(265),IQ(265),IS(265),AVBLGRB2(265) & - & /1,'BRIGHTNESS TEMP ',213,008, & - & 'SBT122 ON top_of_atmos'/ -! H CHUANG--ADD GFS products - DATA IFILV(266),AVBL(266),IQ(266),IS(266),AVBLGRB2(266) & - & /1,'AVE ALBEDO ',084,001, & - & 'AVE ALBDO ON surface'/ - DATA IFILV(267),AVBL(267),IQ(267),IS(267),AVBLGRB2(267) & - & /1,'OZONE ON MDL SFCS ',154,109, & - & 'O3MR ON hybrid_lvl'/ - DATA IFILV(268),AVBL(268),IQ(268),IS(268),AVBLGRB2(268) & - & /1,'OZONE ON P SFCS ',154,100, & - & 'O3MR ON isobaric_sfc'/ - DATA IFILV(269),AVBL(269),IQ(269),IS(269),AVBLGRB2(269) & - & /1,'SFC ZONAL MOMEN FX ',124,001, & - & 'AVE U_FLX ON surface'/ - DATA IFILV(270),AVBL(270),IQ(270),IS(270),AVBLGRB2(270) & - & /1,'SFC MERID MOMEN FX ',125,001, & - & 'AVE V_FLX ON surface'/ - DATA IFILV(271),AVBL(271),IQ(271),IS(271),AVBLGRB2(271) & - & /1,'AVE PRECIP RATE ',059,001, & - & 'AVE PRATE ON surface'/ - DATA IFILV(272),AVBL(272),IQ(272),IS(272),AVBLGRB2(272) & - & /1,'AVE CONV PRECIP RATE',214,001, & - & 'AVE CPRAT ON surface'/ -! CMAQ requested fields - DATA IFILV(273),AVBL(273),IQ(273),IS(273),AVBLGRB2(273) & - & /1,'HYBRID SIGMA DP ',001,110, & - & 'PRES ON hybrid_lvl_1L'/ - DATA IFILV(274),AVBL(274),IQ(274),IS(274),AVBLGRB2(274) & - & /1,'INSTN OUT TOA LW RAD',212,008, & - & 'INST ULWRF ON top_of_atmos'/ -! DATA IFILV(275),AVBL(275),IQ(275),IS(275),AVBLGRB2(002) & -! & /1,'BRIGHTNESS TEMP NCAR',213,008, & - DATA IFILV(275),AVBL(275),IQ(275),IS(275),AVBLGRB2(275) & - & /1,'BRIGHTNESS TEMP NCAR',118,008, & - & 'BRTMP ON top_of_atmos'/ - DATA IFILV(282),AVBL(282),IQ(282),IS(282),AVBLGRB2(282) & - & /1,'MODEL TOP PRESSURE ',001,008, & - & 'PRES ON top_of_atmos'/ - DATA IFILV(283),AVBL(283),IQ(283),IS(283),AVBLGRB2(283) & - & /1,'HYBRID PRESSURE DP ',001,110, & - & 'PRES ON hybrid_lvl_LLM'/ -! -!--- USING Table 129 -! - DATA IFILV(276),AVBL(276),IQ(276),IS(276),AVBLGRB2(276) & - & /1,'COMPOSITE RAIN REFL ',165,200, & - & 'REFZR ON entire_atmos_single_lyr'/ - DATA IFILV(277),AVBL(277),IQ(277),IS(277),AVBLGRB2(277) & - & /1,'COMPOSITE ICE REFL ',166,200, & - & 'REFZI ON entire_atmos_single_lyr'/ - DATA IFILV(278),AVBL(278),IQ(278),IS(278),AVBLGRB2(278) & - & /1,'COMPOSITE CONV REFL ',167,200, & - & 'REFZC ON entire_atmos_single_lyr'/ - DATA IFILV(279),AVBL(279),IQ(279),IS(279),AVBLGRB2(279) & - & /1,'RAIN RADAR REFL AGL ',165,105, & - & 'REFZR ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(280),AVBL(280),IQ(280),IS(280),AVBLGRB2(280) & - & /1,'ICE RADAR REFL AGL ',166,105, & - & 'REFZI ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(281),AVBL(281),IQ(281),IS(281),AVBLGRB2(281) & - & /1,'CONV RADAR REFL AGL ',167,105, & - & 'REFZC ON spec_hgt_lvl_above_grnd'/ -! -!--- USING Table 2 -! - DATA IFILV(284),AVBL(284),IQ(284),IS(284),AVBLGRB2(284) & - & /1,'W WIND ON P SFCS ',040,100, & - & 'DZDT ON isobaric_sfc'/ -! -!--- USING Table 129 -! - DATA IFILV(285),AVBL(285),IQ(285),IS(285),AVBLGRB2(285) & - & /1,'TOTAL COLD LIQUID ',168,200, & - & 'TCLSW ON entire_atmos_single_lyr'/ - DATA IFILV(286),AVBL(286),IQ(286),IS(286),AVBLGRB2(286) & - & /1,'TOTAL MELTING ICE ',169,200, & - & 'TCOLM ON entire_atmos_single_lyr'/ -! -!--- USING Table 2 -! - DATA IFILV(287),AVBL(287),IQ(287),IS(287),AVBLGRB2(287) & - & /1,'COLD LIQ BOT HEIGHT ',007,253, & - & 'HGT ON lwst_bot_lvl_of_supercooled_liq_water_lyr'/ - DATA IFILV(288),AVBL(288),IQ(288),IS(288),AVBLGRB2(288) & - & /1,'COLD LIQ TOP HEIGHT ',007,254, & - & 'HGT ON hghst_top_lvl_of_supercooled_liq_water_lyr'/ - DATA IFILV(289),AVBL(289),IQ(289),IS(289),AVBLGRB2(289) & - & /1,'RICH NO PBL HEIGHT ',007,220, & - & 'HGT ON planetary_bound_lyr'/ -! -!---- New Column-integrated fields - DATA IFILV(290),AVBL(290),IQ(290),IS(290),AVBLGRB2(290) & - & /1,'TOT COL SW T TNDY ',250,200, & - & 'SWHR ON entire_atmos_single_lyr'/ - DATA IFILV(291),AVBL(291),IQ(291),IS(291),AVBLGRB2(291) & - & /1,'TOT COL LW T TNDY ',251,200, & - & 'LWHR ON entire_atmos_single_lyr'/ - DATA IFILV(292),AVBL(292),IQ(292),IS(292),AVBLGRB2(292) & - & /1,'TOT COL GRD T TNDY ',241,200, & - & 'AVE LRGHR ON entire_atmos_single_lyr'/ - DATA IFILV(293),AVBL(293),IQ(293),IS(293),AVBLGRB2(293) & - & /1,'TOT COL CNVCT T TNDY',242,200, & - & 'AVE CNVHR ON entire_atmos_single_lyr'/ - DATA IFILV(294),AVBL(294),IQ(294),IS(294),AVBLGRB2(294) & - & /1,'RADFLX TMP TNDY ON P',216,100, & - & 'TTRAD ON isobaric_sfc'/ - DATA IFILV(295),AVBL(295),IQ(295),IS(295),AVBLGRB2(295) & - & /1,'TOT COL MST CNVG ',135,200, & - & 'MCONV ON entire_atmos_single_lyr'/ - DATA IFILV(296),AVBL(296),IQ(296),IS(296),AVBLGRB2(296) & - & /1,'HPC T ON SIGMA SFCS ',011,107, & - & 'TMP ON sigma_lvl'/ -! H CHUANG--ADD GFS products - DATA IFILV(297),AVBL(297),IQ(297),IS(297),AVBLGRB2(297) & - & /1,'AVE CLR INC UV-B SW ',201,001, & - & 'AVE CDUVB ON surface'/ - DATA IFILV(298),AVBL(298),IQ(298),IS(298),AVBLGRB2(298) & - & /1,'AVE INC UV-B SW ',200,001, & - & 'AVE DUVB ON surface'/ - DATA IFILV(299),AVBL(299),IQ(299),IS(299),AVBLGRB2(299) & - & /1,'TOT COL OZONE ',010,200, & - & 'TOZNE ON entire_atmos_single_lyr'/ - DATA IFILV(300),AVBL(300),IQ(300),IS(300),AVBLGRB2(300) & - & /1,'AVE LOW CLOUD FRAC ',071,214, & - & 'AVE T_CDC ON low_cloud_lyr'/ - DATA IFILV(301),AVBL(301),IQ(301),IS(301),AVBLGRB2(301) & - & /1,'AVE MID CLOUD FRAC ',071,224, & - & 'AVE T_CDC ON mid_cloud_lyr'/ - DATA IFILV(302),AVBL(302),IQ(302),IS(302),AVBLGRB2(302) & - & /1,'AVE HIGH CLOUD FRAC ',071,234, & - & 'AVE T_CDC ON high_cloud_lyr'/ - DATA IFILV(303),AVBL(303),IQ(303),IS(303),AVBLGRB2(303) & - & /1,'AVE LOW CLOUD BOT P ',001,212, & - & 'AVE PRES ON low_cloud_bot_lvl'/ - DATA IFILV(304),AVBL(304),IQ(304),IS(304),AVBLGRB2(304) & - & /1,'AVE LOW CLOUD TOP P ',001,213, & - & 'AVE PRES ON low_cloud_top_lvl'/ - DATA IFILV(305),AVBL(305),IQ(305),IS(305),AVBLGRB2(305) & - & /1,'AVE LOW CLOUD TOP T ',011,213, & - & 'AVE TMP ON low_cloud_top_lvl'/ - DATA IFILV(306),AVBL(306),IQ(306),IS(306),AVBLGRB2(306) & - & /1,'AVE MID CLOUD BOT P ',001,222, & - & 'AVE PRES ON mid_cloud_bot_lvl'/ - DATA IFILV(307),AVBL(307),IQ(307),IS(307),AVBLGRB2(307) & - & /1,'AVE MID CLOUD TOP P ',001,223, & - & 'AVE PRES ON mid_cloud_top_lvl'/ - DATA IFILV(308),AVBL(308),IQ(308),IS(308),AVBLGRB2(308) & - & /1,'AVE MID CLOUD TOP T ',011,223, & - & 'AVE TMP ON mid_cloud_top_lvl'/ - DATA IFILV(309),AVBL(309),IQ(309),IS(309),AVBLGRB2(309) & - & /1,'AVE HIGH CLOUD BOT P',001,232, & - & 'AVE PRES ON high_cloud_bot_lvl'/ - DATA IFILV(310),AVBL(310),IQ(310),IS(310),AVBLGRB2(310) & - & /1,'AVE HIGH CLOUD TOP P',001,233, & - & 'AVE PRES ON high_cloud_top_lvl'/ - DATA IFILV(311),AVBL(311),IQ(311),IS(311),AVBLGRB2(311) & - & /1,'AVE HIGH CLOUD TOP T',011,233, & - & 'AVE TMP ON high_cloud_top_lvl'/ - DATA IFILV(312),AVBL(312),IQ(312),IS(312),AVBLGRB2(312) & - & /1,'TOT COL REL HUM ',052,200, & - & 'RH ON entire_atmos_single_lyr'/ - DATA IFILV(313),AVBL(313),IQ(313),IS(313),AVBLGRB2(313) & - & /1,'CLOUD WORK FUNCTION ',146,200, & - & 'AVE CWORK ON entire_atmos_single_lyr'/ - DATA IFILV(314),AVBL(314),IQ(314),IS(314),AVBLGRB2(314) & - & /1,'MAX WIND TEMPERATURE',011,006, & - & 'TMP ON max_wind'/ - DATA IFILV(315),AVBL(315),IQ(315),IS(315),AVBLGRB2(315) & - & /1,'AVE Z GRAVITY STRESS',147,001, & - & 'AVE U_GWD ON surface'/ - DATA IFILV(316),AVBL(316),IQ(316),IS(316),AVBLGRB2(316) & - & /1,'AVE M GRAVITY STRESS',148,001, & - & 'AVE V_GWD ON surface'/ - DATA IFILV(317),AVBL(317),IQ(317),IS(317),AVBLGRB2(317) & - & /1,'AVE PRECIP TYPE ',140,001, & - & 'AVE CRAIN ON surface'/ - DATA IFILV(318),AVBL(318),IQ(318),IS(318),AVBLGRB2(318) & - & /1,'LFM 0.44-1.00 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(319),AVBL(319),IQ(319),IS(319),AVBLGRB2(319) & - & /1,'LFM 0.72-0.94 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(320),AVBL(320),IQ(320),IS(320),AVBLGRB2(320) & - & /1,'LFM 0.44-0.72 RELHUM',052,108, & - & 'RH ON sigma_lvl'/ - DATA IFILV(321),AVBL(321),IQ(321),IS(321),AVBLGRB2(321) & - & /1,'NGM 0.9950 TEMP ',011,107, & - & 'TMP ON sigma_lvl'/ - DATA IFILV(322),AVBL(322),IQ(322),IS(322),AVBLGRB2(322) & - & /1,'NGM 0.9950 POT TEMP ',013,107, & - & 'POT ON sigma_lvl'/ - DATA IFILV(323),AVBL(323),IQ(323),IS(323),AVBLGRB2(323) & - & /1,'NGM 0.9950 REL HUM ',052,107, & - & 'RH ON sigma_lvl'/ - DATA IFILV(324),AVBL(324),IQ(324),IS(324),AVBLGRB2(324) & - & /1,'NGM 0.9950 U WIND ',033,107, & - & 'U_GRD ON sigma_lvl'/ - DATA IFILV(325),AVBL(325),IQ(325),IS(325),AVBLGRB2(325) & - & /1,'NGM 0.9950 V WIND ',034,107, & - & 'V_GRD ON sigma_lvl'/ - DATA IFILV(326),AVBL(326),IQ(326),IS(326),AVBLGRB2(326) & - & /1,'NGM 0.9950 OMEGA ',039,107, & - & 'V_VEL ON sigma_lvl'/ - DATA IFILV(327),AVBL(327),IQ(327),IS(327),AVBLGRB2(327) & - & /1,'GOES TB - CH 2 ',213,008, & !table 129 - & 'SBT122 ON top_of_atmos'/ - DATA IFILV(328),AVBL(328),IQ(328),IS(328),AVBLGRB2(328) & - & /1,'GOES TB - CH 3 ',214,008, & !table 129 - & 'SBT123 ON top_of_atmos'/ - DATA IFILV(329),AVBL(329),IQ(329),IS(329),AVBLGRB2(329) & - & /1,'GOES TB - CH 4 ',215,008, & !table 129 - & 'SBT124 ON top_of_atmos'/ - DATA IFILV(330),AVBL(330),IQ(330),IS(330),AVBLGRB2(330) & - & /1,'GOES TB - CH 5 ',216,008, & !table 129 - & 'SBT125 ON top_of_atmos'/ - DATA IFILV(331),AVBL(331),IQ(331),IS(331),AVBLGRB2(331) & - & /1,'CLD FRAC ON P SFCS ',071,100, & - & 'T_CDC ON isobaric_sfc'/ - DATA IFILV(332),AVBL(332),IQ(332),IS(332),AVBLGRB2(332) & - & /1,'U WIND ON THETA SFCS',033,113, & - & 'U_GRD ON isentropic_lvl'/ - DATA IFILV(333),AVBL(333),IQ(333),IS(333),AVBLGRB2(333) & - & /1,'V WIND ON THETA SFCS',034,113, & - & 'V_GRD ON isentropic_lvl'/ - DATA IFILV(334),AVBL(334),IQ(334),IS(334),AVBLGRB2(334) & - & /1,'TEMP ON THETA SFCS ',011,113, & - & 'TMP ON isentropic_lvl'/ - DATA IFILV(335),AVBL(335),IQ(335),IS(335),AVBLGRB2(335) & - & /1,'PV ON THETA SFCS ',004,113, & - & 'PVORT ON isentropic_lvl'/ - DATA IFILV(353),AVBL(353),IQ(353),IS(353),AVBLGRB2(353) & !353 - & /1,'M STRMFUNC ON THETA ',037,113, & - & 'MNTSF ON isentropic_lvl'/ - DATA IFILV(351),AVBL(351),IQ(351),IS(351),AVBLGRB2(351) & !351 - & /1,'S STAB ON THETA SFCS',019,113, & - & 'LAPR ON isentropic_lvl'/ - DATA IFILV(352),AVBL(352),IQ(352),IS(352),AVBLGRB2(352) & !352 - & /1,'RH ON THETA SFCS ',052,113, & - & 'RH ON isentropic_lvl'/ - DATA IFILV(336),AVBL(336),IQ(336),IS(336),AVBLGRB2(336) & - & /1,'U WIND ON PV SFCS ',033,117, & - & 'U_GRD ON pot_vort_sfc'/ - DATA IFILV(337),AVBL(337),IQ(337),IS(337),AVBLGRB2(337) & - & /1,'V WIND ON PV SFCS ',034,117, & - & 'V_GRD ON pot_vort_sfc'/ - DATA IFILV(338),AVBL(338),IQ(338),IS(338),AVBLGRB2(338) & - & /1,'TEMP ON PV SFCS ',011,117, & - & 'TMP ON pot_vort_sfc'/ - DATA IFILV(339),AVBL(339),IQ(339),IS(339),AVBLGRB2(339) & - & /1,'HEIGHT ON PV SFCS ',007,117, & - & 'HGT ON pot_vort_sfc'/ - DATA IFILV(340),AVBL(340),IQ(340),IS(340),AVBLGRB2(340) & - & /1,'PRESSURE ON PV SFCS ',001,117, & - & 'PRES ON pot_vort_sfc'/ - DATA IFILV(341),AVBL(341),IQ(341),IS(341),AVBLGRB2(341) & - & /1,'SHEAR ON PV SFCS ',136,117, & - & 'VW_SH ON pot_vort_sfc'/ - DATA IFILV(342),AVBL(342),IQ(342),IS(342),AVBLGRB2(342) & - & /1,'PBL CLD FRACTION ',071,211, & - & 'AVE T_CDC ON bound_lyr_cloud_lyr'/ - DATA IFILV(343),AVBL(343),IQ(343),IS(343),AVBLGRB2(343) & - & /1,'AVE WATER RUNOFF ',090,001, & - & 'AVE WATR ON surface'/ - DATA IFILV(344),AVBL(344),IQ(344),IS(344),AVBLGRB2(344) & - & /1,'PBL REGIME ',220,001, & - & 'PBLREG ON surface'/ - DATA IFILV(345),AVBL(345),IQ(345),IS(345),AVBLGRB2(345) & - & /1,'MAX SHELTER TEMP ',015,105, & - & 'TMAX ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(346),AVBL(346),IQ(346),IS(346),AVBLGRB2(346) & - & /1,'MIN SHELTER TEMP ',016,105, & - & 'TMIN ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(347),AVBL(347),IQ(347),IS(347),AVBLGRB2(347) & - & /1,'MAX SHELTER RH ',218,105, & !table129 - & 'RHMAX ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(348),AVBL(348),IQ(348),IS(348),AVBLGRB2(348) & - & /1,'MIN SHELTER RH ',217,105, & !table129 - & 'RHMIN ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(510),AVBL(510),IQ(510),IS(510),AVBLGRB2(510) & - & /1,'MAX SHELTER SPFH ',051,105, & !table129 - & 'QMAX ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(511),AVBL(511),IQ(511),IS(511),AVBLGRB2(511) & - & /1,'MIN SHELTER SPFH ',051,105, & !table129 - & 'QMIN ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(512),AVBL(512),IQ(512),IS(512),AVBLGRB2(512) & - & /1,'AERO CONDUCTANCE ',179,001, & !table129 - & 'ACOND ON surface'/ - DATA IFILV(349),AVBL(349),IQ(349),IS(349),AVBLGRB2(349) & - & /1,'ICE THICKNESS ',092,001, & - & 'ICETK ON surface'/ - DATA IFILV(354),AVBL(354),IQ(354),IS(354),AVBLGRB2(354) & - & /1,'SW TNDY ON P SFCS ',250,100, & - & 'SWHR ON isobaric_sfc'/ - DATA IFILV(355),AVBL(355),IQ(355),IS(355),AVBLGRB2(355) & - & /1,'LW TNDY ON P SFCS ',251,100, & - & 'LWHR ON isobaric_sfc'/ - DATA IFILV(356),AVBL(356),IQ(356),IS(356),AVBLGRB2(356) & - & /1,'VDIFF TNDY ON P SFCS',246,100, & - & 'VDFHR ON isobaric_sfc'/ - DATA IFILV(357),AVBL(357),IQ(357),IS(357),AVBLGRB2(357) & - & /1,'D CNVCT TNDY ON P SF',242,100, & - & 'CNVHR ON isobaric_sfc'/ - DATA IFILV(358),AVBL(358),IQ(358),IS(358),AVBLGRB2(358) & - & /1,'S CNVCT TNDY ON P SF',244,100, & - & 'SHAHR ON isobaric_sfc'/ - DATA IFILV(359),AVBL(359),IQ(359),IS(359),AVBLGRB2(359) & - & /1,'GRDSCL TNDY ON P SFC',241,100, & - & 'LRGHR ON isobaric_sfc'/ - DATA IFILV(360),AVBL(360),IQ(360),IS(360),AVBLGRB2(360) & - & /1,'VDIFF MOIS ON P SFCS',249,100, & - & 'VDFMR ON isobaric_sfc'/ - DATA IFILV(361),AVBL(361),IQ(361),IS(361),AVBLGRB2(361) & - & /1,'D CNVCT MOIS ON P SF',243,100, & - & 'CNVMR ON isobaric_sfc'/ - DATA IFILV(362),AVBL(362),IQ(362),IS(362),AVBLGRB2(362) & - & /1,'S CNVCT MOIS ON P SF',245,100, & - & 'SHAMR ON isobaric_sfc'/ - DATA IFILV(363),AVBL(363),IQ(363),IS(363),AVBLGRB2(363) & - & /1,'N RAD TNDY ON P SFCS',173,100, & - & 'LRGMR ON isobaric_sfc'/ - DATA IFILV(364),AVBL(364),IQ(364),IS(364),AVBLGRB2(364) & - & /1,'OZONE VDIFF ON P SFC',174,100, & - & 'VDFOZ ON isobaric_sfc'/ - DATA IFILV(365),AVBL(365),IQ(365),IS(365),AVBLGRB2(365) & - & /1,'OZONE PROD ON P SFCS',175,100, & - & 'POZ ON isobaric_sfc'/ - DATA IFILV(366),AVBL(366),IQ(366),IS(366),AVBLGRB2(366) & - & /1,'OZONE TNDY ON P SFCS',188,100, & - & 'TOZ ON isobaric_sfc'/ - DATA IFILV(367),AVBL(367),IQ(367),IS(367),AVBLGRB2(367) & - & /1,'MASS WEIGHTED PV ',139,100, & - & 'PV_MW ON isobaric_sfc'/ - DATA IFILV(368),AVBL(368),IQ(368),IS(368),AVBLGRB2(368) & - & /1,'UNKNOWN D3D ON P SFC',239,100, & - & 'SNOT ON isobaric_sfc'/ - DATA IFILV(369),AVBL(369),IQ(369),IS(369),AVBLGRB2(369) & - & /1,'VDIFF Z ACCE ON P SF',247,100, & - & 'VDFUA ON isobaric_sfc'/ - DATA IFILV(370),AVBL(370),IQ(370),IS(370),AVBLGRB2(370) & - & /1,'G DRAG Z ACCE ON P S',181,100, & - & 'GWDU ON isobaric_sfc'/ - DATA IFILV(371),AVBL(371),IQ(371),IS(371),AVBLGRB2(371) & - & /1,'CNVCT U M MIX ON P S',183,100, & - & 'CNVU ON isobaric_sfc'/ - DATA IFILV(372),AVBL(372),IQ(372),IS(372),AVBLGRB2(372) & - & /1,'VDIFF M ACCE ON P SF',248,100, & - & 'VDFVA ON isobaric_sfc'/ - DATA IFILV(373),AVBL(373),IQ(373),IS(373),AVBLGRB2(373) & - & /1,'G DRAG M ACCE ON P S',182,100, & - & 'GWDV ON isobaric_sfc'/ - DATA IFILV(374),AVBL(374),IQ(374),IS(374),AVBLGRB2(374) & - & /1,'CNVCT V M MIX ON P S',184,100, & - & 'CNVV ON isobaric_sfc'/ - DATA IFILV(375),AVBL(375),IQ(375),IS(375),AVBLGRB2(375) & - & /1,'N CNVCT CLD FRA ON P',213,100, & - & 'CDLYR ON isobaric_sfc'/ - DATA IFILV(376),AVBL(376),IQ(376),IS(376),AVBLGRB2(376) & - & /1,'GOES BRIGHTNESS-CH 3',221,008, & !table 129 - & 'SBC123 ON top_of_atmos'/ - DATA IFILV(377),AVBL(377),IQ(377),IS(377),AVBLGRB2(377) & - & /1,'GOES BRIGHTNESS-CH 4',222,008, & !table 129 - & 'SBC124 ON top_of_atmos'/ - DATA IFILV(378),AVBL(378),IQ(378),IS(378),AVBLGRB2(378) & - & /1,'OMEGA ON THETA SFCS ',039,113, & - & 'V_VEL ON isentropic_lvl'/ -! D3D fields - DATA IFILV(379),AVBL(379),IQ(379),IS(379),AVBLGRB2(379) & - & /1,'T DIAB TNDY ON P SFC',215,100, & - & 'TTDIA ON isobaric_sfc'/ - DATA IFILV(391),AVBL(391),IQ(391),IS(391),AVBLGRB2(391) & - & /1,'CNVCT U M FLX ON P S',202,100, & - & 'CNVUMF ON isobaric_sfc'/ - DATA IFILV(392),AVBL(392),IQ(392),IS(392),AVBLGRB2(392) & - & /1,'CNVCT D M FLX ON P S',209,100, & - & 'CNVDMF ON isobaric_sfc'/ - DATA IFILV(393),AVBL(393),IQ(393),IS(393),AVBLGRB2(393) & - & /1,'CNVCT DET M FLX ON P',219,100, & - & 'CNVDEMF ON isobaric_sfc'/ - DATA IFILV(394),AVBL(394),IQ(394),IS(394),AVBLGRB2(394) & - & /1,'CNVCT Z G DRAG ON P ',196,100, & - & 'CNGWDU ON isobaric_sfc'/ - DATA IFILV(395),AVBL(395),IQ(395),IS(395),AVBLGRB2(395) & - & /1,'CNVCT M G DRAG ON P ',197,100, & - & 'CNGWDV ON isobaric_sfc'/ -!---- Using table 129 !aqm PLee 1/07 - DATA IFILV(380),AVBL(380),IQ(380),IS(380),AVBLGRB2(380) & - & /1,'DIFFUSION H RATE MDL',182,109, & - & 'VEDH ON hybrid_lvl'/ -!---- Using table 2 !aqm PLee 3/07 - DATA IFILV(381),AVBL(381),IQ(381),IS(381),AVBLGRB2(381) & - & /1,'MIXHT HEIGHT ',067,001, & - & 'MIXHT ON surface'/ -! NEW GFS FLUX FILE FIELDS - DATA IFILV(382),AVBL(382),IQ(382),IS(382),AVBLGRB2(382) & - & /1,'AVE CLR INC SFC LW ',163,001, & - & 'AVE CSDLF ON surface'/ - DATA IFILV(383),AVBL(383),IQ(383),IS(383),AVBLGRB2(383) & - & /1,'AVE CLR INC SFC SW ',161,001, & - & 'AVE CSDSF ON surface'/ - DATA IFILV(384),AVBL(384),IQ(384),IS(384),AVBLGRB2(384) & - & /1,'AVE CLR OUT SFC LW ',162,001, & - & 'AVE CSULF ON surface'/ - DATA IFILV(385),AVBL(385),IQ(385),IS(385),AVBLGRB2(385) & - & /1,'AVE CLR OUT TOA LW ',162,008, & - & 'AVE CSULF ON top_of_atmos'/ - DATA IFILV(386),AVBL(386),IQ(386),IS(386),AVBLGRB2(386) & - & /1,'AVE CLR OUT SFC SW ',160,001, & - & 'AVE CSUSF ON surface'/ - DATA IFILV(387),AVBL(387),IQ(387),IS(387),AVBLGRB2(387) & - & /1,'AVE CLR OUT TOA SW ',160,008, & - & 'AVE CSUSF ON top_of_atmos'/ - DATA IFILV(388),AVBL(388),IQ(388),IS(388),AVBLGRB2(388) & - & /1,'AVE INC TOA SW ',204,008, & - & 'AVE DSWRF ON top_of_atmos'/ - DATA IFILV(389),AVBL(389),IQ(389),IS(389),AVBLGRB2(389) & - & /1,'TRANSPORT U WIND ',033,220, & - & 'U_GRD ON planetary_bound_lyr'/ - DATA IFILV(390),AVBL(390),IQ(390),IS(390),AVBLGRB2(390) & - & /1,'TRANSPORT V WIND ',034,220, & - & 'V_GRD ON planetary_bound_lyr'/ -! Add TIGGE FIELDS - DATA IFILV(396),AVBL(396),IQ(396),IS(396),AVBLGRB2(396) & - & /1,'SUNSHINE DURATION ',191,001, & !table 133 - & 'SUNSD ON surface'/ - DATA IFILV(397),AVBL(397),IQ(397),IS(397),AVBLGRB2(397) & - & /1,'FIELD CAPACITY ',220,001, & !table 130 - & 'FLDCP ON surface'/ -! Add ICAO FIELDS - DATA IFILV(398),AVBL(398),IQ(398),IS(398),AVBLGRB2(398) & - & /1,'ICAO HGHT MAX WIND ',005,006, & - & 'ICAHT ON max_wind'/ - DATA IFILV(399),AVBL(399),IQ(399),IS(399),AVBLGRB2(399) & - & /1,'ICAO HGHT AT TROP ',005,007, & - & 'ICAHT ON tropopause'/ - DATA IFILV(400),AVBL(400),IQ(400),IS(400),AVBLGRB2(400) & - & /1,'RADAR ECHO TOP ',240,200, & - & 'RETOP ON entire_atmos_single_lyr'/ -! -! Add MORE CFSRR FIELDS -! surface Visible beam downward solar flux - DATA IFILV(401),AVBL(401),IQ(401),IS(401),AVBLGRB2(401) & - & /1,'AVE IN SFC VIS SW BE',166,001, & - & 'AVE VBDSF ON surface'/ -!surface Visible diffuse downward solar flux - DATA IFILV(402),AVBL(402),IQ(402),IS(402),AVBLGRB2(402) & - & /1,'AVE IN SFC VIS SW DF',167,001, & - & 'AVE VDDSF ON surface'/ -!surface Near IR beam downward solar flux - DATA IFILV(403),AVBL(403),IQ(403),IS(403),AVBLGRB2(403) & - & /1,'AVE IN SFC IR SW BE ',168,001, & - & 'AVE NBDSF ON surface'/ -!surface Near IR diffuse downward solar flux - DATA IFILV(404),AVBL(404),IQ(404),IS(404),AVBLGRB2(404) & - & /1,'AVE IN SFC IR SW DF ',169,001, & - & 'AVE NDDSF ON surface'/ -! SNOWFALL RATE - DATA IFILV(405),AVBL(405),IQ(405),IS(405),AVBLGRB2(405) & - & /1,'AVE SNOWFALL RATE ',064,001, & - & 'AVE SRWEQ ON surface'/ -! ADD DUST FIELDS ON P SFCS (GOCART) - DATA IFILV(438),AVBL(438),IQ(438),IS(438),AVBLGRB2(438) & - & /1,'DUST 1 ON P SFCS ',240,100, & - & 'DU1 ON isobaric_sfc'/ - DATA IFILV(439),AVBL(439),IQ(439),IS(439),AVBLGRB2(439) & - & /1,'DUST 2 ON P SFCS ',241,100, & - & 'DU2 ON isobaric_sfc'/ - DATA IFILV(440),AVBL(440),IQ(440),IS(440),AVBLGRB2(440) & - & /1,'DUST 3 ON P SFCS ',242,100, & - & 'DU3 ON isobaric_sfc'/ - DATA IFILV(441),AVBL(441),IQ(441),IS(441),AVBLGRB2(441) & - & /1,'DUST 4 ON P SFCS ',243,100, & - & 'DU4 ON isobaric_sfc'/ - DATA IFILV(442),AVBL(442),IQ(442),IS(442),AVBLGRB2(442) & - & /1,'DUST 5 ON P SFCS ',244,100, & - & 'DU5 ON isobaric_sfc'/ -! - DATA IFILV(443),AVBL(443),IQ(443),IS(443),AVBLGRB2(443) & - & /1,'EQUIL LEVEL HEIGHT ',007,247, & - & 'HGT ON equil_lvl'/ - DATA IFILV(444),AVBL(444),IQ(444),IS(444),AVBLGRB2(444) & - & /1,'LIGHTNING ',187,001, & - & 'LTNG ON surface'/ - -! GOES WEST - DATA IFILV(446),AVBL(446),IQ(446),IS(446),AVBLGRB2(446) & - & /1,'GOES W TB - CH 2 ',241,008, & - & 'SBT112 ON top_of_atmos'/ !Table 130 - DATA IFILV(447),AVBL(447),IQ(447),IS(447),AVBLGRB2(447) & - & /1,'GOES W TB - CH 3 ',242,008, & - & 'SBT113 ON top_of_atmos'/ !Table 130 - DATA IFILV(448),AVBL(448),IQ(448),IS(448),AVBLGRB2(448) & - & /1,'GOES W TB - CH 4 ',243,008, & - & 'SBT114 ON top_of_atmos'/ !Table 130 - DATA IFILV(449),AVBL(449),IQ(449),IS(449),AVBLGRB2(449) & - & /1,'GOES W TB - CH 5 ',244,008, & - & 'SBT115 ON top_of_atmos'/ !Table 130 - -! NCAR GFIP - DATA IFILV(450),AVBL(450),IQ(450),IS(450),AVBLGRB2(450) & - & /1,'NCAR IN-FLIGHT ICING',168,100, & - & 'TIPD ON isobaric_sfc'/ -! Flight level Q - DATA IFILV(451),AVBL(451),IQ(451),IS(451),AVBLGRB2(451) & - & /1,'SPE HUM AT FD HEIGHT',051,103, & - & 'SPF_H ON spec_alt_above_mean_sea_lvl'/ -! Virtual T based CAPE - DATA IFILV(452),AVBL(452),IQ(452),IS(452),AVBLGRB2(452) & - & /1,'TV CNVCT AVBL POT EN',202,001, & - & 'VTCAPE ON surface'/ - DATA IFILV(453),AVBL(453),IQ(453),IS(453),AVBLGRB2(453) & - & /1,'TV CNVCT INHIBITION ',201,001, & - & 'VTCIN ON surface'/ - DATA IFILV(454),AVBL(454),IQ(454),IS(454),AVBLGRB2(454) & - & /1,'VENTILATION RATE ',241,220, & - & 'VRATE ON planetary_bound_lyr'/ - DATA IFILV(455),AVBL(455),IQ(455),IS(455),AVBLGRB2(455) & - & /1,'HAINES INDEX ',250,001, & - & 'HINDEX ON surface'/ - DATA IFILV(456),AVBL(456),IQ(456),IS(456),AVBLGRB2(456) & - & /1,'GOESE TB-2 NON NADIR',213,008, & - & 'SBT122 ON top_of_atmos'/ !table 129 - DATA IFILV(457),AVBL(457),IQ(457),IS(457),AVBLGRB2(457) & - & /1,'GOESE TB-3 NON NADIR',214,008, & - & 'SBT123 ON top_of_atmos'/ !table 129 - DATA IFILV(458),AVBL(458),IQ(458),IS(458),AVBLGRB2(458) & - & /1,'GOESE TB-4 NON NADIR',215,008, & - & 'SBT124 ON top_of_atmos'/ !table 129 - DATA IFILV(459),AVBL(459),IQ(459),IS(459),AVBLGRB2(459) & - & /1,'GOESE TB-5 NON NADIR',216,008, & - & 'SBT126 ON top_of_atmos'/ !table 129 - DATA IFILV(460),AVBL(460),IQ(460),IS(460),AVBLGRB2(460) & - & /1,'GOESW TB-2 NON NADIR',241,008, & - & 'SBT112 ON top_of_atmos'/ !table 130 - DATA IFILV(461),AVBL(461),IQ(461),IS(461),AVBLGRB2(461) & - & /1,'GOESW TB-3 NON NADIR',242,008, & - & 'SBT113 ON top_of_atmos'/ !table 130 - DATA IFILV(462),AVBL(462),IQ(462),IS(462),AVBLGRB2(462) & - & /1,'GOESW TB-4 NON NADIR',243,008, & - & 'SBT114 ON top_of_atmos'/ !table 130 - DATA IFILV(463),AVBL(463),IQ(463),IS(463),AVBLGRB2(463) & - & /1,'GOESW TB-5 NON NADIR',244,008, & - & 'SBT115 ON top_of_atmos'/ !table 130 - - -! NCAR GFIP Severity - DATA IFILV(480),AVBL(480),IQ(480),IS(480),AVBLGRB2(480) & - & /1,'NCAR INFLT ICING SEV',175,100, & - & 'SEV ON isobaric_sfc'/ !table 129 -! - DATA IFILV(482),AVBL(482),IQ(482),IS(482),AVBLGRB2(482) & - & /1,'PRESS AT FD HEIGHTS ',001,103, & - 'PRES ON spec_alt_above_mean_sea_lvl'/ - - DATA IFILV(483),AVBL(483),IQ(483),IS(483),AVBLGRB2(483) & - & /1,'AMSRE TB - CH 9 ',176,008, & - 'AMSRETBCH9 ON top_of_atmos'/ !table 133 - DATA IFILV(484),AVBL(484),IQ(484),IS(484),AVBLGRB2(484) & - & /1,'AMSRE TB - CH 10 ',177,008, & - 'AMSRETBCH10 ON top_of_atmos'/ !table 133 - DATA IFILV(485),AVBL(485),IQ(485),IS(485),AVBLGRB2(485) & - & /1,'AMSRE TB - CH 11 ',178,008, & - 'AMSRETBCH11 ON top_of_atmos'/ !table 133 - DATA IFILV(486),AVBL(486),IQ(486),IS(486),AVBLGRB2(486) & - & /1,'AMSRE TB - CH 12 ',179,008, & - 'AMSRETBCH12 ON top_of_atmos'/ !table 133 -! - DATA IFILV(488),AVBL(488),IQ(488),IS(488),AVBLGRB2(488) & - & /1,'TMI TB - CH 6 ',176,008, & - & 'TMITBCH6 ON top_of_atmos'/ !table 133 - DATA IFILV(489),AVBL(489),IQ(489),IS(489),AVBLGRB2(489) & - & /1,'TMI TB - CH 7 ',177,008, & - & 'TMITBCH7 ON top_of_atmos'/ !table 133 - DATA IFILV(490),AVBL(490),IQ(490),IS(490),AVBLGRB2(490) & - & /1,'TMI TB - CH 8 ',178,008, & - & 'TMITBCH8 ON top_of_atmos'/ !table 133 - DATA IFILV(491),AVBL(491),IQ(491),IS(491),AVBLGRB2(491) & - & /1,'TMI TB - CH 9 ',179,008, & - & 'TMITBCH9 ON top_of_atmos'/ !table 133 - -! -! NAMB additions - DATA IFILV(500),AVBL(500),IQ(500),IS(500),AVBLGRB2(500) & - & /1,'TIME AVG PCT SNW CVR',238,001, & - & 'AVG SNOWC ON surface' / - DATA IFILV(501),AVBL(501),IQ(501),IS(501),AVBLGRB2(501) & - & /1,'TIME AVG SFC PRESS ',001,001, & - & 'AVG PRES ON surface' / - DATA IFILV(502),AVBL(502),IQ(502),IS(502),AVBLGRB2(502) & - & /1,'TIME AVG TMP AT 10M ',011,105, & - & 'AVG TMP ON spec_hgt_lvl_above_grnd' / - DATA IFILV(503),AVBL(503),IQ(503),IS(503),AVBLGRB2(503) & - & /1,'TAVG MASS EXCH COEF ',185,001, & - & 'AVG AKHS ON surface' / - DATA IFILV(504),AVBL(504),IQ(504),IS(504),AVBLGRB2(504) & - & /1,'TAVG WIND EXCH COEF ',186,001, & - & 'AVG AKMS ON surface' / - DATA IFILV(505),AVBL(505),IQ(505),IS(505),AVBLGRB2(505) & - & /1,'TEMP AT 10 M ',011,105, & - & 'TMP ON spec_hgt_lvl_above_grnd' / - DATA IFILV(506),AVBL(506),IQ(506),IS(506),AVBLGRB2(506) & - & /1,'U COMP MAX 10 M WIND',253,105, & - & 'MAXUW ON spec_hgt_lvl_above_grnd' / - DATA IFILV(507),AVBL(507),IQ(507),IS(507),AVBLGRB2(507) & - & /1,'V COMP MAX 10 M WIND',254,105, & - & 'MAXVW ON spec_hgt_lvl_above_grnd' / - DATA IFILV(508),AVBL(508),IQ(508),IS(508),AVBLGRB2(508) & - & /1,'MAX PRECIP RATE ',059,001, & - & 'MAX PRATE ON surface' / - DATA IFILV(509),AVBL(509),IQ(509),IS(509),AVBLGRB2(509) & - & /1,'MAX FROZ PRECIP RATE',064,001, & - & 'MAX FROZ PRATE ON surface' / - DATA IFILV(513),AVBL(513),IQ(513),IS(513),AVBLGRB2(513) & - & /1,'AV CANOPY WATER EVAP',200,001, & - & 'AVE EVCW ON surface'/ - DATA IFILV(514),AVBL(514),IQ(514),IS(514),AVBLGRB2(514) & - & /1,'DIRECT SOIL EVAP ',199,001, & - & 'AVE EVBS ON surface'/ - DATA IFILV(515),AVBL(515),IQ(515),IS(515),AVBLGRB2(515) & - & /1,'PLANT TRANSPIRATION ',210,001, & - & 'AVE TRANS ON surface'/ - DATA IFILV(516),AVBL(516),IQ(516),IS(516),AVBLGRB2(516) & - & /1,'SNOW SUBLIMATION ',198,001, & - & 'AVE SBSNO ON surface'/ - DATA IFILV(517),AVBL(517),IQ(517),IS(517),AVBLGRB2(517) & - & /1,'AVE POTENTIAL EVAP ',145,001, & - & 'AVE PEVPR ON surface'/ - -! -! Reserving Index 550-600 for Jun Wang -! - -! -!for grid2 -!-- ADD for INST CRAIN, CSNOW,CICEP,CFRZR (CRAIN 160) - DATA IFILV(551),AVBL(551),IQ(551),IS(551),AVBLGRB2(551) & - & /1,'INST CATEG SNOW ',143,001, & - & 'INST CSNOW ON surface'/ - DATA IFILV(552),AVBL(552),IQ(552),IS(552),AVBLGRB2(552) & - & /1,'INST CATEG ICE PELLE',142,001, & - & 'INST CICEP ON surface'/ - DATA IFILV(553),AVBL(553),IQ(553),IS(553),AVBLGRB2(553) & - & /1,'INST CATEG FRZ RAIN ',141,001, & - & 'INST CFRZR ON surface'/ -! -!-- ADD for AVE CSNOW,CICEP,CFRZR, (CRAIN 317) - DATA IFILV(555),AVBL(555),IQ(555),IS(555),AVBLGRB2(555) & - & /1,'AVE CATEG SNOW ',143,001, & - & 'AVE CSNOW ON surface'/ - DATA IFILV(556),AVBL(556),IQ(556),IS(556),AVBLGRB2(556) & - & /1,'AVE CATEG ICE PELLE',142,001, & - & 'AVE CICEP ON surface'/ - DATA IFILV(557),AVBL(557),IQ(557),IS(557),AVBLGRB2(557) & - & /1,'AVE CATEG FRZ RAIN ',141,001, & - & 'AVE CFRZR ON surface'/ -! -!-- ADD for INST CRAIN, CSNOW,CICEP,CFRZR (CRAIN 160) - DATA IFILV(559),AVBL(559),IQ(559),IS(559),AVBLGRB2(559) & - & /1,'INST CATEG SNOW ',143,001, & - & 'INST CSNOW ON surface'/ - DATA IFILV(560),AVBL(560),IQ(560),IS(560),AVBLGRB2(560) & - & /1,'INST CATEG ICE PELLE',142,001, & - & 'INST CICEP ON surface'/ - DATA IFILV(561),AVBL(561),IQ(561),IS(561),AVBLGRB2(561) & - & /1,'INST CATEG FRZ RAIN ',141,001, & - & 'INST CFRZR ON surface'/ -! -!-- ADD for AVE CSNOW,CICEP,CFRZR, (CRAIN 317) - DATA IFILV(563),AVBL(563),IQ(563),IS(563),AVBLGRB2(563) & - & /1,'AVE CATEG SNOW ',143,001, & - & 'AVE CSNOW ON surface'/ - DATA IFILV(564),AVBL(564),IQ(564),IS(564),AVBLGRB2(564) & - & /1,'AVE CATEG ICE PELLET',142,001, & - & 'AVE CICEP ON surface'/ - DATA IFILV(565),AVBL(565),IQ(565),IS(565),AVBLGRB2(565) & - & /1,'AVE CATEG FRZ RAIN ',141,001, & - & 'AVE CFRZR ON surface'/ -! -!-- ADD BEST CAPE CIN - DATA IFILV(566),AVBL(566),IQ(566),IS(566),AVBLGRB2(566) & - & /1,'BEST CAPE ON PRESLEV',157,116, & - & 'CAPE ON spec_pres_above_grnd'/ - DATA IFILV(567),AVBL(567),IQ(567),IS(567),AVBLGRB2(567) & - & /1,'BEST CIN ON PRESLEV ',156,116, & - & 'CIN ON spec_pres_above_grnd'/ -!-- add PRES Mean sea level---gfs - DATA IFILV(568),AVBL(568),IQ(568),IS(568),AVBLGRB2(568) & - & /1,'PRES ON MEAN SLP ',001,102, & - & 'PRES ON mean_sea_lvl'/ -!-- add T_CDC on convective_cloud_lyr --gfs - DATA IFILV(569),AVBL(569),IQ(569),IS(569),AVBLGRB2(569) & - & /1,'AVG CNVCT CLDLY FRAC',072,200, & - & 'AVE T_CDC ON convective_cloud_lyr'/ -!-- add T_CDC on entire_atmos_single_lyr --gfs - DATA IFILV(570),AVBL(570),IQ(570),IS(570),AVBLGRB2(570) & - & /1,'CONV CLOUD FRACTION ',072,200, & - & 'T_CDC ON convective_cloud_lyr'/ -! -!-- GFS use different kpds5 and kpds6 for surface lifted index, -!-- best lifted index(surface), soil temperature(TMP), -!-- total column cloud water - DATA IFILV(571),AVBL(571),IQ(571),IS(571),AVBLGRB2(571) & - & /1,'BOTTOM SOIL TEMP ',085,111, & - & 'TMP ON depth_bel_land_sfc'/ -! Chuang: remove this redendent index after communicating with Smirnova -! DATA IFILV(572),AVBL(572),IQ(572),IS(572),AVBLGRB2(572) & -! & /1,'LIFTED INDEX--SURFCE',131,101, & -! & 'LFT_X ON surface'/ - DATA IFILV(573),AVBL(573),IQ(573),IS(573),AVBLGRB2(573) & - & /1,'LIFTED INDEX--BEST ',132,116, & - & '4LFTX ON surface'/ - DATA IFILV(574),AVBL(574),IQ(574),IS(574),AVBLGRB2(574) & - & /1,'GFS SOIL TEMPERATURE',085,112, & - & 'TMP ON depth_bel_land_sfc'/ - DATA IFILV(575),AVBL(575),IQ(575),IS(575),AVBLGRB2(575) & - & /1,'TOTAL COLUMN CLD WTR',136,200, & - & 'C_WAT ON entire_atmos_single_lyr'/ -!-- NMMB grib2 - DATA IFILV(576),AVBL(576),IQ(576),IS(576),AVBLGRB2(576) & - & /1,'UWD AT FDHEIGHTS HGT',033,105, & - & 'U_GRD ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(577),AVBL(577),IQ(577),IS(577),AVBLGRB2(577) & - & /1,'VWD AT FDHEIGHTS HGT',034,105, & - & 'V_GRD ON spec_hgt_lvl_above_grnd'/ -!grib2: use same fld #451 for two diffent level types - DATA IFILV(578),AVBL(578),IQ(578),IS(578),AVBLGRB2(578) & - & /1,'SPFH AT FDHEIGHT HGT',051,105, & - & 'SPF_H ON spec_hgt_lvl_above_grnd'/ -!grib2: use same fld #482 for two diffent level types - DATA IFILV(579),AVBL(579),IQ(579),IS(579),AVBLGRB2(579) & - & /1,'PRES AT FDHEIGHT HGT',001,105, & - 'PRES ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(580),AVBL(580),IQ(580),IS(580),AVBLGRB2(580) & - & /1,'ICING AT FD HEIGHTS ',168,103, & - 'ICI ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(581),AVBL(581),IQ(581),IS(581),AVBLGRB2(581) & - & /1,'RADAR DERIVED VIL ',206,200, & - 'VIL ON entire_atmos'/ -! -!-- ADD mixed layer CAPE CIN - DATA IFILV(582),AVBL(582),IQ(582),IS(582),AVBLGRB2(582) & - & /1,'MIXED LAYER CAPE ',157,116, & - & 'CAPE ON spec_pres_above_grnd'/ - DATA IFILV(583),AVBL(583),IQ(583),IS(583),AVBLGRB2(583) & - & /1,'MIXED LAYER CIN ',156,116, & - & 'CIN ON spec_pres_above_grnd'/ -!-- ADD MOST UNSTABLE CAPE/CIN -LOWEST 300 MB - DATA IFILV(584),AVBL(584),IQ(584),IS(584),AVBLGRB2(584) & - & /1,'MOST UNSTABLE CAPE ',157,116, & - & 'CAPE ON spec_pres_above_grnd'/ - DATA IFILV(585),AVBL(585),IQ(585),IS(585),AVBLGRB2(585) & - & /1,'MOST UNSTABLE CIN ',156,116, & - & 'CIN ON spec_pres_above_grnd'/ -!-- tmp at fd hgt (specified hgt level above ground) - DATA IFILV(586),AVBL(586),IQ(586),IS(586),AVBLGRB2(586) & - & /1,'TEMP AT FDHEIGHT HGT',011,105, & - & 'TMP ON spec_hgt_above_mean_sea_lvl'/ -!icing at fd hgt (specified hgt level above ground) - DATA IFILV(587),AVBL(587),IQ(587),IS(587),AVBLGRB2(587) & - & /1,'ICING FDHEIGHT HGT ',168,105, & - 'ICI ON spec_alt_above_mean_sea_lvl'/ -!icing vessel - - DATA IFILV(588),AVBL(588),IQ(588),IS(588),AVBLGRB2(588) & - & /1,'ICE GROWTH RATE AT FDHEIGHT HGT ', & - 097,001, & - & 'ICEG ON spec-hgt_above_mean_sea_lvl'/ - - -! Reserving Index 550-600 for grib2 - -! Reserving Index 601-700 for GOCART -! ADD DUST AT FD HEIGHTS (GOCART) - DATA IFILV(601),AVBL(601),IQ(601),IS(601),AVBLGRB2(601) & - & /1,'DUST 1 AT FD HEIGHTS',240,103, & - 'DU1 ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(602),AVBL(602),IQ(602),IS(602),AVBLGRB2(602) & - & /1,'DUST 2 AT FD HEIGHTS',241,103, & - 'DU2 ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(603),AVBL(603),IQ(603),IS(603),AVBLGRB2(603) & - & /1,'DUST 3 AT FD HEIGHTS',242,103, & - 'DU3 ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(604),AVBL(604),IQ(604),IS(604),AVBLGRB2(604) & - & /1,'DUST 4 AT FD HEIGHTS',243,103, & - 'DU4 ON spec_alt_above_mean_sea_lvl'/ - DATA IFILV(605),AVBL(605),IQ(605),IS(605),AVBLGRB2(605) & - & /1,'DUST 5 AT FD HEIGHTS',244,103, & - 'DU5 ON spec_alt_above_mean_sea_lvl'/ -! ADD AEROSOL OPTICAL PROPERTIES (GOCART) - DATA IFILV(606),AVBL(606),IQ(606),IS(606),AVBLGRB2(606) & - & /1,'AEROSOL EXTINCTION ',128,109, & - 'Aerosol extinction coefficient '/ - DATA IFILV(607),AVBL(607),IQ(607),IS(607),AVBLGRB2(607) & - & /1,'AER ASYMMETRY FACTOR',130,109, & - 'Aerosol asymmetry factor '/ - DATA IFILV(608),AVBL(608),IQ(608),IS(608),AVBLGRB2(608) & - & /1,'SINGLE SCATTER ALBD ',131,109, & - 'Aerosol single scatter albedo '/ -! ADD AEROSOL OPTICAL DEPTH AT 550 NM (GOCART) - DATA IFILV(609),AVBL(609),IQ(609),IS(609),AVBLGRB2(609) & - & /1,'AER OPT DEP AT 550 ',129,200, & - 'Total aerosol optical depth at 550'/ - DATA IFILV(610),AVBL(610),IQ(610),IS(610),AVBLGRB2(610) & - & /1,'DU AER OPT DEP 550 ',133,200, & - 'Dust aerosol optical depth at 550 '/ - DATA IFILV(611),AVBL(611),IQ(611),IS(611),AVBLGRB2(611) & - & /1,'SS AER OPT DEP 550 ',134,200, & - 'Seasalt aer optical depth at 550 '/ - DATA IFILV(612),AVBL(612),IQ(612),IS(612),AVBLGRB2(612) & - & /1,'SU AER OPT DEP 550 ',135,200, & - 'Sulfate aer optical depth at 550 '/ - DATA IFILV(613),AVBL(613),IQ(613),IS(613),AVBLGRB2(613) & - & /1,'OC AER OPT DEP 550 ',136,200, & - 'Organic carbon aer opt dep at 550 '/ - DATA IFILV(614),AVBL(614),IQ(614),IS(614),AVBLGRB2(614) & - & /1,'BC AER OPT DEP 550 ',137,200, & - 'Black carbon aer opt dep at 550 '/ -! ADD BC, OC, SULF AEROSOL COLUMN MASS DENSITY (GOCART) - DATA IFILV(616),AVBL(616),IQ(616),IS(616),AVBLGRB2(616) & - & /1,'BC COL MASS DEN ',151,200, & - 'fine bc col mass density '/ - DATA IFILV(617),AVBL(617),IQ(617),IS(617),AVBLGRB2(617) & - & /1,'OC COL MASS DEN ',152,200, & - 'fine oc col mass density '/ - DATA IFILV(618),AVBL(618),IQ(618),IS(618),AVBLGRB2(618) & - & /1,'SULF COL MASS DEN ',153,200, & - 'fine sulf col mass density '/ -! ADD AEROSOL SURFACE MASS CONCENTRATION (GOCART), use table 129 - DATA IFILV(619),AVBL(619),IQ(619),IS(619),AVBLGRB2(619) & - & /1,'PM10 SFC MASS CON ',154,001, & - 'coarse sfc mass concentration '/ - DATA IFILV(620),AVBL(620),IQ(620),IS(620),AVBLGRB2(620) & - & /1,'PM25 SFC MASS CON ',155,001, & - 'fine sfc mass concentration '/ -! ADD PM10 and PM25 AEROSOL COLUMN MASS DENSITY (GOCART) - DATA IFILV(621),AVBL(621),IQ(621),IS(621),AVBLGRB2(621) & - & /1,'PM10 COL MASS DEN ',156,200, & - 'coarse aerosol col mass density '/ - DATA IFILV(622),AVBL(622),IQ(622),IS(622),AVBLGRB2(622) & - & /1,'PM25 COL MASS DEN ',157,200, & - 'fine aerosol col mass density '/ -! ADD AEROSOL OPTICAL DEPTH AT OTHER CHANNELS (GOCART) - DATA IFILV(623),AVBL(623),IQ(623),IS(623),AVBLGRB2(623) & - & /1,'AER OPT DEP AT 340 ',129,200, & - 'Total aerosol optical depth at 340'/ - DATA IFILV(624),AVBL(624),IQ(624),IS(624),AVBLGRB2(624) & - & /1,'AER OPT DEP AT 440 ',129,200, & - 'Total aerosol optical depth at 440'/ - DATA IFILV(625),AVBL(625),IQ(625),IS(625),AVBLGRB2(625) & - & /1,'AER OPT DEP AT 660 ',129,200, & - 'Total aerosol optical depth at 660'/ - DATA IFILV(626),AVBL(626),IQ(626),IS(626),AVBLGRB2(626) & - & /1,'AER OPT DEP AT 860 ',129,200, & - 'Total aerosol optical depth at 860'/ - DATA IFILV(627),AVBL(627),IQ(627),IS(627),AVBLGRB2(627) & - & /1,'AER OPT DEP AT 1630 ',129,200, & - 'Total aer optical depth at 1630 '/ - DATA IFILV(628),AVBL(628),IQ(628),IS(628),AVBLGRB2(628) & - & /1,'AER OPT DEP AT 11100',129,200, & - 'Total aer optical dep at 11 micron'/ -! ADD DUST FIELDS ON MDL SFCS (GOCART) - DATA IFILV(629),AVBL(629),IQ(629),IS(629),AVBLGRB2(629) & - & /1,'DUST 1 ON MDL SFCS ',240,109, & - & 'DU1 ON hybrid_lvl'/ - DATA IFILV(630),AVBL(630),IQ(630),IS(630),AVBLGRB2(630) & - & /1,'DUST 2 ON MDL SFCS ',241,109, & - & 'DU2 ON hybrid_lvl'/ - DATA IFILV(631),AVBL(631),IQ(631),IS(631),AVBLGRB2(631) & - & /1,'DUST 3 ON MDL SFCS ',242,109, & - & 'DU3 ON hybrid_lvl'/ - DATA IFILV(632),AVBL(632),IQ(632),IS(632),AVBLGRB2(632) & - & /1,'DUST 4 ON MDL SFCS ',243,109, & - & 'DU4 ON hybrid_lvl'/ - DATA IFILV(633),AVBL(633),IQ(633),IS(633),AVBLGRB2(633) & - & /1,'DUST 5 ON MDL SFCS ',244,109, & - & 'DU5 ON hybrid_lvl'/ -! ADD NON-DUST AEROSOL FIELDS ON MDL SFCS (GOCART) - DATA IFILV(634),AVBL(634),IQ(634),IS(634),AVBLGRB2(634) & - & /1,'SEASALT 1 ON MDL SFC',245,109, & - & 'SS1 ON hybrid_lvl'/ - DATA IFILV(635),AVBL(635),IQ(635),IS(635),AVBLGRB2(635) & - & /1,'SEASALT 2 ON MDL SFC',246,109, & - & 'SS2 ON hybrid_lvl'/ - DATA IFILV(636),AVBL(636),IQ(636),IS(636),AVBLGRB2(636) & - & /1,'SEASALT 3 ON MDL SFC',247,109, & - & 'SS3 ON hybrid_lvl'/ - DATA IFILV(637),AVBL(637),IQ(637),IS(637),AVBLGRB2(637) & - & /1,'SEASALT 4 ON MDL SFC',248,109, & - & 'SS4 ON hybrid_lvl'/ - DATA IFILV(638),AVBL(638),IQ(638),IS(638),AVBLGRB2(638) & - & /1,'SEASALT 5 ON MDL SFC',253,109, & - & 'SS5 ON hybrid_lvl'/ - DATA IFILV(639),AVBL(639),IQ(639),IS(639),AVBLGRB2(639) & - & /1,'SULFATE ON MDL SFC ',254,109, & - & 'SO4 ON hybrid_lvl'/ - DATA IFILV(640),AVBL(640),IQ(640),IS(640),AVBLGRB2(640) & - & /1,'OC DRY ON MDL SFC ',249,109, & - & 'OC_DRY hybrid_lvl'/ - DATA IFILV(641),AVBL(641),IQ(641),IS(641),AVBLGRB2(641) & - & /1,'OC WET ON MDL SFC ',250,109, & - & 'OC_WET hybrid_lvl'/ - DATA IFILV(642),AVBL(642),IQ(642),IS(642),AVBLGRB2(642) & - & /1,'BC DRY ON MDL SFC ',251,109, & - & 'BC_DRY hybrid_lvl'/ - DATA IFILV(643),AVBL(643),IQ(643),IS(643),AVBLGRB2(643) & - & /1,'BC WET ON MDL SFC ',252,109, & - & 'BC_WET hybrid_lvl'/ -! ADD AIR DENSITY AND LAYER THICKNESS - DATA IFILV(644),AVBL(644),IQ(644),IS(644),AVBLGRB2(644) & - & /1,'AIR DEN ON MDL SFCS ',189,109, & - & 'AIRDEN hybrid_lvl'/ - DATA IFILV(645),AVBL(645),IQ(645),IS(645),AVBLGRB2(645) & - & /1,'DPRES ON MDL SFCS ',1,110, & - & 'DPRES hybrid_lvl '/ -! ADD OTHER PM2.5 AEROSOL COLUMN MASS DENSITY (GOCART) - DATA IFILV(646),AVBL(646),IQ(646),IS(646),AVBLGRB2(646) & - & /1,'DUST COL MASS DEN ',159,200, & - 'fine dust col mass density '/ - DATA IFILV(647),AVBL(647),IQ(647),IS(647),AVBLGRB2(647) & - & /1,'SEAS COL MASS DEN ',160,200, & - 'fine seas col mass density '/ - DATA IFILV(648),AVBL(648),IQ(648),IS(648),AVBLGRB2(648) & - & /1,'SINGLE SCAT ALBD 340',131,200, & - 'Aer single scatter alb at 340 nm'/ - DATA IFILV(649),AVBL(649),IQ(649),IS(649),AVBLGRB2(649) & - & /1,'AER ASYM FACTOR 340 ',130,200, & - 'Aerosol asymmetry factor at 340 nm'/ -! ADD AEROSOL SCATTERING AOT - DATA IFILV(650),AVBL(650),IQ(650),IS(650),AVBLGRB2(650) & - & /1,'AER SCAT OPT DEP 550',129,200, & - 'Total scat aer opt dep at 550 nm'/ - DATA IFILV(651),AVBL(651),IQ(651),IS(651),AVBLGRB2(651) & - & /1,'DU SCAT OPT DEP 550 ',129,200, & - 'DUST scat aer opt dep at 550 nm'/ - DATA IFILV(652),AVBL(652),IQ(652),IS(652),AVBLGRB2(652) & - & /1,'SS SCAT OPT DEP 550 ',129,200, & - 'SALT scat aer opt dep at 550 nm'/ - DATA IFILV(653),AVBL(653),IQ(653),IS(653),AVBLGRB2(653) & - & /1,'SU SCAT OPT DEP 550 ',129,200, & - 'SUSO scat aer opt dep at 550 nm'/ - DATA IFILV(654),AVBL(654),IQ(654),IS(654),AVBLGRB2(654) & - & /1,'OC SCAT OPT DEP 550 ',129,200, & - 'WASO scat aer opt dep at 550 nm'/ - DATA IFILV(655),AVBL(655),IQ(655),IS(655),AVBLGRB2(655) & - & /1,'BC SCAT OPT DEP 550 ',129,200, & - 'SOOT scat aer opt dep at 550 nm'/ -! ADD AEROSOL ANGTROM EXPONENT - DATA IFILV(656),AVBL(656),IQ(656),IS(656),AVBLGRB2(656) & - & /1,'ANGSTROM EXP 440_860',255,200, & - 'Angstrom exponent 440-860 nm '/ - -! ADD DUST,SS, OC,BC, SU PRODUCTION AND REMOVAL FLUXES (GOCART) - DATA IFILV(659),AVBL(659),IQ(659),IS(659),AVBLGRB2(659) & - & /1,'DUST EMISSION FLUX ',151,200, & - 'dust emission fluxes '/ - DATA IFILV(660),AVBL(660),IQ(660),IS(660),AVBLGRB2(660) & - & /1,'DUST SEDIMENTATION ',152,200, & - 'dust sedimentation fluxes '/ - DATA IFILV(661),AVBL(661),IQ(661),IS(661),AVBLGRB2(661) & - & /1,'DUST DRY DEPOSITION ',153,200, & - 'dust dry deposition fluxes '/ - DATA IFILV(662),AVBL(662),IQ(662),IS(662),AVBLGRB2(662) & - & /1,'DUST WET DEPOSITION ',154,200, & - 'dust wet deposition fluxes '/ - DATA IFILV(663),AVBL(663),IQ(663),IS(663),AVBLGRB2(663) & - & /1,'SS EMISSION FLUX ',151,200, & - 'seasalt emission fluxes '/ - DATA IFILV(664),AVBL(664),IQ(664),IS(664),AVBLGRB2(664) & - & /1,'SS SEDIMENTATION ',152,200, & - 'seasalt sedimentation fluxes '/ - DATA IFILV(665),AVBL(665),IQ(665),IS(665),AVBLGRB2(665) & - & /1,'SS DRY DEPOSITION ',153,200, & - 'seasalt dry deposition fluxes '/ - DATA IFILV(666),AVBL(666),IQ(666),IS(666),AVBLGRB2(666) & - & /1,'SS WET DEPOSITION ',154,200, & - 'seasalt wet deposition fluxes '/ - DATA IFILV(667),AVBL(667),IQ(667),IS(667),AVBLGRB2(667) & - & /1,'BC EMISSION FLUX ',151,200, & - 'black carbon emission fluxes '/ - DATA IFILV(668),AVBL(668),IQ(668),IS(668),AVBLGRB2(668) & - & /1,'BC SEDIMENTATION ',152,200, & - 'black carbon sedimentation fluxes '/ - DATA IFILV(669),AVBL(669),IQ(669),IS(669),AVBLGRB2(669) & - & /1,'BC DRY DEPOSITION ',153,200, & - 'black carbon dry deposition fluxes'/ - DATA IFILV(670),AVBL(670),IQ(670),IS(670),AVBLGRB2(670) & - & /1,'BC WET DEPOSITION ',154,200, & - 'black carbon wet deposition fluxes'/ - DATA IFILV(671),AVBL(671),IQ(671),IS(671),AVBLGRB2(671) & - & /1,'OC EMISSION FLUX ',151,200, & - 'pom emission fluxes '/ - DATA IFILV(672),AVBL(672),IQ(672),IS(672),AVBLGRB2(672) & - & /1,'OC SEDIMENTATION ',152,200, & - 'pom sedimentation fluxes '/ - DATA IFILV(673),AVBL(673),IQ(673),IS(673),AVBLGRB2(673) & - & /1,'OC DRY DEPOSITION ',153,200, & - 'pom dry deposition fluxes '/ - DATA IFILV(674),AVBL(674),IQ(674),IS(674),AVBLGRB2(674) & - & /1,'OC WET DEPOSITION ',154,200, & - 'pom wet deposition fluxes '/ - DATA IFILV(675),AVBL(675),IQ(675),IS(675),AVBLGRB2(675) & - & /1,'SU EMISSION FLUX ',151,200, & - 'suldate emission fluxes '/ - DATA IFILV(676),AVBL(676),IQ(676),IS(676),AVBLGRB2(676) & - & /1,'SU SEDIMENTATION ',152,200, & - 'sulfate sedimentation fluxes '/ - DATA IFILV(677),AVBL(677),IQ(677),IS(677),AVBLGRB2(677) & - & /1,'SU DRY DEPOSITION ',153,200, & - 'sulfate dry deposition fluxes '/ - DATA IFILV(678),AVBL(678),IQ(678),IS(678),AVBLGRB2(678) & - & /1,'SU WET DEPOSITION ',154,200, & - 'sulfate wet deposition fluxes '/ - DATA IFILV(679),AVBL(679),IQ(679),IS(679),AVBLGRB2(679) & - & /1,'DU SCAVENGING FLUX ',155,200, & - 'dust scavenging fluxes '/ - DATA IFILV(680),AVBL(680),IQ(680),IS(680),AVBLGRB2(680) & - & /1,'SS SCAVENGING FLUX ',156,200, & - 'seasalt scavenging fluxes '/ - DATA IFILV(681),AVBL(681),IQ(681),IS(681),AVBLGRB2(681) & - & /1,'BC SCAVENGING FLUX ',157,200, & - 'black carbon scavenging fluxes '/ - DATA IFILV(682),AVBL(682),IQ(682),IS(682),AVBLGRB2(682) & - & /1,'OC SCAVENGING FLUX ',158,200, & - 'organic carbon scavenging fluxes '/ -! DATA IFILV(683),AVBL(683),IQ(683),IS(683),AVBLGRB2(683) & -! & /1,'SS CR SFC MASS CON ',159,200, & -! 'seasalt cr sfc mass concentration '/ - DATA IFILV(684),AVBL(684),IQ(684),IS(684),AVBLGRB2(684) & - & /1,'SEAS25 SFC MASS CON ',159,200, & - 'seas pm25 sfc mass concentration '/ -! DATA IFILV(685),AVBL(685),IQ(685),IS(685),AVBLGRB2(685) & -! & /1,'DU CR SFC MASS CON ',160,001, & -! 'dust cr sfc mass con '/ - DATA IFILV(686),AVBL(686),IQ(686),IS(686),AVBLGRB2(686) & - & /1,'DUST25 SFC MASS CON ',161,001, & - 'dust pm25 sfc mass con '/ - DATA IFILV(687),AVBL(687),IQ(687),IS(687),AVBLGRB2(687) & - & /1,'BC SFC MASS CON ',162,001, & - 'black carbon sfc mass con '/ - DATA IFILV(688),AVBL(688),IQ(688),IS(688),AVBLGRB2(688) & - & /1,'OC SFC MASS CON ',163,001, & - 'organic carbon sfc mass con '/ - DATA IFILV(689),AVBL(689),IQ(689),IS(689),AVBLGRB2(689) & - & /1,'SU SFC MASS CON ',164,001, & - 'sulfate sfc mass con '/ - DATA IFILV(690),AVBL(690),IQ(690),IS(690),AVBLGRB2(690) & - & /1,'INST SU SFC MASS CON',164,001, & - 'instn sulfate sfc mass con '/ - DATA IFILV(691),AVBL(691),IQ(691),IS(691),AVBLGRB2(691) & - & /1,'INST OC SFC MASS CON',164,001, & - 'instn organic carbon sfc mass con '/ - DATA IFILV(692),AVBL(692),IQ(692),IS(692),AVBLGRB2(692) & - & /1,'INST BC SFC MASS CON',164,001, & - 'instn black carbon sfc mass con '/ - DATA IFILV(693),AVBL(693),IQ(693),IS(693),AVBLGRB2(693) & - & /1,'INST DU CR SMASS ',164,001, & - 'instn du coarse mode sfc mass con '/ - DATA IFILV(694),AVBL(694),IQ(694),IS(694),AVBLGRB2(694) & - & /1,'INST DU FN SMASS ',164,001, & - 'instn du fine mode sfc mass con '/ - DATA IFILV(695),AVBL(695),IQ(695),IS(695),AVBLGRB2(695) & - & /1,'INST SS CR SMASS ',164,001, & - 'instn ss coarse mode sfc mass con '/ - DATA IFILV(696),AVBL(696),IQ(696),IS(696),AVBLGRB2(696) & - & /1,'INST SS FN SMASS ',164,001, & - 'instn ss fine mode sfc mass con '/ - DATA IFILV(697),AVBL(697),IQ(697),IS(697),AVBLGRB2(697) & - & /1,'INST AER CR SMASS ',164,001, & - 'instn aer coarse mode sfc mass con'/ - DATA IFILV(698),AVBL(698),IQ(698),IS(698),AVBLGRB2(698) & - & /1,'INST AER FN SMASS ',164,001, & - 'instn aer fine mode sfc mass con '/ - DATA IFILV(711),AVBL(711),IQ(711),IS(711),AVBLGRB2(711) & - & /1,'GSD CLD BOT HEIGHT ',007,002, & - & 'GSD HGT ON cloud_base'/ -! Reserving Index 601-700 for GOCART -! - -! Reserve index 700-799 for GSD -! Chuang: remove DUST 1-5 output from GSD because GOCART also outputs -! the same variables above - DATA IFILV(771),AVBL(771),IQ(771),IS(771),AVBLGRB2(771) & - & /1,'FIRST LEVEL DEWPOINT',017,105, & - & 'DPT ON spec_hgt_lvl_above_grnd'/ - -! GSD HRRR-CHEM output - DATA IFILV(720),AVBL(720),IQ(720),IS(720),AVBLGRB2(720) & - & /1,'PM 2.5 ON MDL SFCS ',240,107, & - & 'PM 2.5 ON MDL SFCS '/ - DATA IFILV(721),AVBL(721),IQ(721),IS(721),AVBLGRB2(721) & - & /1,'PM 10 ON MDL SFCS ',241,107, & - & 'PM 10 ON MDL SFCS '/ - DATA IFILV(722),AVBL(722),IQ(722),IS(722),AVBLGRB2(722) & - & /1,'SO2 ON MDL SFCS ',242,107, & - & 'SO2 ON MDL SFCS '/ - DATA IFILV(723),AVBL(723),IQ(723),IS(723),AVBLGRB2(723) & - & /1,'PM 2.5 ON P SFCS ',240,100, & - & 'PM 2.5 ON MDL SFCS '/ -! no entry in GRIB table for NCLOUD use 147 - Zonal flux of gravity wave stress - DATA IFILV(747),AVBL(747),IQ(747),IS(747),AVBLGRB2(747) & - & /1,'NCCLOUD ON MDL SFCS ',147,109, & - & 'NCCLOUD ON MDL SFCS '/ - DATA IFILV(750),AVBL(750),IQ(750),IS(750),AVBLGRB2(750) & - & /1,'WV MIX R ON MDL SFCS',053,109, & - & 'WV MIX R ON MDL SFCS'/ - DATA IFILV(751),AVBL(751),IQ(751),IS(751),AVBLGRB2(751) & - & /1,'VP TEMP ON MDL SFCS ',189,109, & - & 'VP TEMP ON MDL SFCS '/ - DATA IFILV(752),AVBL(752),IQ(752),IS(752),AVBLGRB2(752) & - & /1,'NCICE ON MDL SFCS ',198,109, & - & 'NCICE ON MDL SFCS '/ - -! no entry in GRIB table for NRAIN, use 148 - Meridional flux of gravity wave stress - DATA IFILV(754),AVBL(754),IQ(754),IS(754),AVBLGRB2(754) & - & /1,'NCRAIN ON MDL SFCS ',148,109, & - & 'NCRAIN ON MDL SFCS '/ -! water friendly aerosol: entry 157, Table 129 - DATA IFILV(766),AVBL(766),IQ(766),IS(766),AVBLGRB2(766) & - & /1,'NWFA ON MDL SFCS ',157,109, & - & 'NWFA ON MDL SFCS '/ -! ice friendly aerosol: entry 156, Table 129 - DATA IFILV(767),AVBL(767),IQ(767),IS(767),AVBLGRB2(767) & - & /1,'NIFA ON MDL SFCS ',156,109, & - & 'NIFA ON MDL SFCS '/ - -! --- - DATA IFILV(546),AVBL(546),IQ(546),IS(546),AVBLGRB2(546) & - & /1,'SHELTER POT TEMP ',013,105, & - & 'SHELTER POT TEMP '/ - DATA IFILV(547),AVBL(547),IQ(547),IS(547),AVBLGRB2(547) & - & /1,'SHELTER DEWP DEPRES ',018,105, & - & 'SHELTER DEWP DEPRES '/ - DATA IFILV(548),AVBL(548),IQ(548),IS(548),AVBLGRB2(548) & - & /1,'SURFACE EQ POT TEMP ',014,001, & - & 'SURFACE EQ POT TEMP '/ - DATA IFILV(755),AVBL(755),IQ(755),IS(755),AVBLGRB2(755) & - & /1,'EQUIL LEVEL HEIGHT ',007,247, & - & 'EQUIL LEVEL HEIGHT '/ - DATA IFILV(753),AVBL(753),IQ(753),IS(753),AVBLGRB2(753) & - & /1,'PRESSURE OF FRZ LVL ',001,004, & - & 'PRESSURE OF FRZ LVL '/ - DATA IFILV(756),AVBL(756),IQ(756),IS(756),AVBLGRB2(756) & - & /1,'HIGHEST FRZ LVL PRES',001,204, & - & 'HIGHEST FRZ LVL PRES'/ - DATA IFILV(700),AVBL(700),IQ(700),IS(700),AVBLGRB2(700) & - & /1,'MAX UPDR HELICITY16 ',216,106, & - & 'MAX UPDR HELICITY16 '/ - DATA IFILV(701),AVBL(701),IQ(701),IS(701),AVBLGRB2(701) & - & /1,'UPDRAFT HELICITY16 ',214,106, & - & 'UPDRAFT HELICITY16 '/ - DATA IFILV(702),AVBL(702),IQ(702),IS(702),AVBLGRB2(702) & - & /1,'MAX LTG THREAT1 ',188,200, & - & 'MAX LTG THREAT1 '/ - DATA IFILV(703),AVBL(703),IQ(703),IS(703),AVBLGRB2(703) & - & /1,'MAX LTG THREAT2 ',186,200, & - & 'MAX LTG THREAT2 '/ - DATA IFILV(704),AVBL(704),IQ(704),IS(704),AVBLGRB2(704) & - & /1,'MAX LTG THREAT3 ',187,200, & - & 'MAX LTG THREAT3 '/ - DATA IFILV(705),AVBL(705),IQ(705),IS(705),AVBLGRB2(705) & - & /1,'NCI_LTG ',241,200, & - & 'NCI_LTG '/ - DATA IFILV(706),AVBL(706),IQ(706),IS(706),AVBLGRB2(706) & - & /1,'NCA_LTG ',242,200, & - & 'NCA_LTG '/ - DATA IFILV(707),AVBL(707),IQ(707),IS(707),AVBLGRB2(707) & - & /1,'NCI_WQ ',243,200, & - & 'NCI_WQ '/ - DATA IFILV(708),AVBL(708),IQ(708),IS(708),AVBLGRB2(708) & - & /1,'NCA_WQ ',244,200, & - & 'NCA_WQ '/ - DATA IFILV(709),AVBL(709),IQ(709),IS(709),AVBLGRB2(709) & - & /1,'NCI_REFL ',245,200, & - & 'NCI_REFL '/ - DATA IFILV(710),AVBL(710),IQ(710),IS(710),AVBLGRB2(710) & - & /1,'NCA_REFL ',246,200, & - & 'NCA_REFL '/ - -! Add variables to produce the same output as in RUC - DATA IFILV(749),AVBL(749),IQ(749),IS(749),AVBLGRB2(749) & - & /1,'RH WRT PRECIP WATER ',230,200, & - & 'RH WRT PRECIP WATER '/ - DATA IFILV(748),AVBL(748),IQ(748),IS(748),AVBLGRB2(748) & - & /1,'RADAR REFLECT - 1km ',211,105, & - & 'RADAR REFLECT - 1km '/ - DATA IFILV(757),AVBL(757),IQ(757),IS(757),AVBLGRB2(757) & - & /1,'RADAR REFLECT - 4km ',211,105, & - & 'RADAR REFLECT - 4km '/ - DATA IFILV(758),AVBL(758),IQ(758),IS(758),AVBLGRB2(758) & - & /1,'CONV CLD TOP HGHT ',007,243, & - & 'CONV CLD TOP HGHT '/ - DATA IFILV(760),AVBL(760),IQ(760),IS(760),AVBLGRB2(760) & - & /1,'SHELTER MIXING RATIO',053,105, & - & 'SHELTER MIXING RATIO'/ - DATA IFILV(762),AVBL(762),IQ(762),IS(762),AVBLGRB2(762) & - & /1,'SURFACE MIXING RATIO',053,001, & - & 'SURFACE MIXING RATIO'/ - DATA IFILV(761),AVBL(761),IQ(761),IS(761),AVBLGRB2(761) & - & /1,'TEMP INSIDE SNOW ',011,001, & - & 'TEMP INSIDE SNOW '/ - DATA IFILV(763),AVBL(763),IQ(763),IS(763),AVBLGRB2(763) & - & /1,'MIXING LAYER MIXING RATIO',053,001,& - & 'MIXING LAYER MIXING RATIO'/ -! CRA Add variables to produce NCAR fields - DATA IFILV(768),AVBL(768),IQ(768),IS(768),AVBLGRB2(768) & - & /1,'ECHOTOP ',240,200, & - & 'ECHOTOP '/ - DATA IFILV(769),AVBL(769),IQ(769),IS(769),AVBLGRB2(769) & - & /1,'VIL ',206,200, & - & 'VIL '/ - DATA IFILV(770),AVBL(770),IQ(770),IS(770),AVBLGRB2(770) & - & /1,'RADARVIL ',206,200, & - & 'RADARVIL '/ - DATA IFILV(727),AVBL(727),IQ(727),IS(727),AVBLGRB2(727) & - & /1,'GSD UPDRAFT HELICITY',227,106, & - & 'GSD UPHL ON spec_hgt_lvl_above_grnd'/ -! CRA -! CRA -! RAP/HRRR Time-averaged variables - DATA IFILV(730),AVBL(730),IQ(730),IS(730),AVBLGRB2(730) & - & /1,'AVE 10m WIND SPEED ',229,105, & - & 'AVE WIND ON 10M spec_hgt_lvl_above_grnd'/ !422 - DATA IFILV(731),AVBL(731),IQ(731),IS(731),AVBLGRB2(731) & - & /1,'AVE 10m U ',229,105, & - & 'AVE WIND ON 10M spec_hgt_lvl_above_grnd'/ !422 - DATA IFILV(732),AVBL(732),IQ(732),IS(732),AVBLGRB2(732) & - & /1,'AVE 10m V ',229,105, & - & 'AVE WIND ON 10M spec_hgt_lvl_above_grnd'/ !422 - DATA IFILV(733),AVBL(733),IQ(733),IS(733),AVBLGRB2(733) & - & /1,'AVE INCOMING SW RAD ',204,001, & - & 'AVE NSWRF ON surface'/ - DATA IFILV(734),AVBL(734),IQ(734),IS(734),AVBLGRB2(734) & - & /1,'AVE NORMAL SW RAD ',254,001, & - & 'AVE NSWRF ON surface'/ -! E. James -! 15 Jun 2016 -! Adding vertically-integrated smoke AOD - DATA IFILV(735),AVBL(735),IQ(735),IS(735),AVBLGRB2(735) & - & /1,'VRTCLY INTGRTD AOD ',129,200, & - & 'AOD ON entire_atmos_single_lyr'/ -! Adding vertically-integrated smoke variable - DATA IFILV(736),AVBL(736),IQ(736),IS(736),AVBLGRB2(736) & - & /1,'VRTCLY INTGRTD SMOKE',237,200, & - & 'SMOKE ON entire_atmos_single_lyr'/ -! Adding smoke variable on mdl surfaces - DATA IFILV(737),AVBL(737),IQ(737),IS(737),AVBLGRB2(737) & - & /1,'SMOKE ON MDL SURFCS ',203,109, & - & 'SM1 ON hybrid_lvl'/ -! Adding smoke variable on p surfaces - DATA IFILV(738),AVBL(738),IQ(738),IS(738),AVBLGRB2(738) & - & /1,'SMOKE ON P SURFCS ',203,100, & - & 'SM1 ON isobaric_sfc'/ -! Adding lowest model level smoke - DATA IFILV(739),AVBL(739),IQ(739),IS(739),AVBLGRB2(739) & - & /1,'SMOKE NEAR SURFACE ',203,105, & - & 'SM1 ON spec_hgt_lvl_above_grnd'/ -! Adding mean fire radiative power - DATA IFILV(740),AVBL(740),IQ(740),IS(740),AVBLGRB2(740) & - & /1,'MEAN FIRE RDIATV PWR',164,001, & - & 'MEAN FIRE RADIATIVE POWER ON surface'/ -! E. James -! 28 Mar 2016 -! Adding clear-sky surface up and downwelling short and longwave irradiance - DATA IFILV(742),AVBL(742),IQ(742),IS(742),AVBLGRB2(742) & - & /1,'INSTN CLRSKY SHWV DN',161,001, & - & 'INST SWDNBC ON surface'/ - DATA IFILV(743),AVBL(743),IQ(743),IS(743),AVBLGRB2(743) & - & /1,'INSTN CLRSKY SHWV UP',160,001, & - & 'INST SWUPBC ON surface'/ - DATA IFILV(744),AVBL(744),IQ(744),IS(744),AVBLGRB2(744) & - & /1,'INSTN CLRSKY LGWV DN',163,001, & - & 'INST LWDNBC ON surface'/ - DATA IFILV(745),AVBL(745),IQ(745),IS(745),AVBLGRB2(745) & - & /1,'INSTN CLRSKY LGWV UP',162,001, & - & 'INST LWUPBC ON surface'/ -! E. James -! 11 May 2015 -! Adding instantaneous direct normal and diffuse horizontal irradiance - DATA IFILV(772),AVBL(772),IQ(772),IS(772),AVBLGRB2(772) & - & /1,'INSTN DIR NOR IRRAD ',166,001, & - & 'INST SWDDNI ON surface'/ - DATA IFILV(773),AVBL(773),IQ(773),IS(773),AVBLGRB2(773) & - & /1,'INSTN DIF HOR IRRAD ',167,001, & - & 'INST SWDDIF ON surface'/ -! -! satellite index 800-899 - -! 2014-12-09 WM LEWIS ADDED SSMI_F13-F15, SSMIS_F16-F20 -! WITH LVLS-DRIVEN CONTROL OF CHANNEL SELECTION -! SSMI_F13 (L(1)-L(6) -> ID8: 176-181 -> 19H, 19V, 37H, 37V, 85H, 85V) - DATA IFILV(800),AVBL(800),IQ(800),IS(800),AVBLGRB2(800) & - & /1,'F13 SSMI NON-NADIR ',118,109, & - & 'SSMI TB top_of_atmos '/ !table 133 - -! SSMI_F14 (L(1)-L(6) -> ID8: 182-187 -> 19H, 19V, 37H, 37V, 85H, 85V) - DATA IFILV(806),AVBL(806),IQ(806),IS(806),AVBLGRB2(806) & - & /1,'F14 SSMI NON-NADIR ',118,109, & - & 'SSMI TB top_of_atmos '/ !table 133 - -! SSMI_F15 (L(1)-L(6) -> ID8: 188-193 -> 19H, 19V, 37H, 37V, 85H, 85V) - DATA IFILV(812),AVBL(812),IQ(812),IS(812),AVBLGRB2(812) & - & /1,'F15 SSMI NON-NADIR ',118,109, & - & 'SSMI TB top_of_atmos '/ !table 133 - -! SSMIS_F16 (L(1)-L(7) -> ID8: 194-200 -> 183H, 19H, 19V, 37H, 37V, 85H, 85V) - DATA IFILV(818),AVBL(818),IQ(818),IS(818),AVBLGRB2(818) & - & /1,'F16 SSMIS NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - -! SSMIS_F17 (SSMIS_F17 (CH15:37H, CH16:37V, CH17:91H, CH18:91V)) - DATA IFILV(825),AVBL(825),IQ(825),IS(825),AVBLGRB2(825) & - & /1,'F17 SSMIS CH15 NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - DATA IFILV(826),AVBL(826),IQ(826),IS(826),AVBLGRB2(826) & - & /1,'F17 SSMIS CH16 NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - DATA IFILV(827),AVBL(827),IQ(827),IS(827),AVBLGRB2(827) & - & /1,'F17 SSMIS CH17 NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - DATA IFILV(828),AVBL(828),IQ(828),IS(828),AVBLGRB2(828) & - & /1,'F17 SSMIS CH18 NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - -! SSMIS_F18 (L(1)-L(7) -> ID8: 208-214 -> 183H, 19H, 19V, 37H, 37V, 85H, 85V) - DATA IFILV(832),AVBL(832),IQ(832),IS(832),AVBLGRB2(832) & - & /1,'F18 SSMIS NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - -! SSMIS_F19 (L(1)-L(7) -> ID8: 215-221 -> 183H, 19H, 19V, 37H, 37V, 85H, 85V) - DATA IFILV(839),AVBL(839),IQ(839),IS(839),AVBLGRB2(839) & - & /1,'F19 SSMIS NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - -! SSMIS_F20 (L(1)-L(7) -> ID8: 222-228 -> 183H, 19H, 19V, 37H, 37V, 85H, 85V) - DATA IFILV(846),AVBL(846),IQ(846),IS(846),AVBLGRB2(846) & - & /1,'F20 SSMIS NON-NADIR ',118,109, & - & 'SSMIS TB top_of_atmos '/ !table 133 - -! Apparent Temperature, -! March 2013: use faked Grib1 and Grib2 IDs -! Sib will no longer support new Grib1 ID and -! is in the process of getting Grib2 ID from WMO. - DATA IFILV(808),AVBL(808),IQ(808),IS(808),AVBLGRB2(808) & - & /1,'APPARENT TEMPERATURE',168,105, & - & 'TIPD ON entire_atmos_single_lyr'/ - -! 2014-12-09 WM LEWIS MODIFIED MTSTAT-2 and MTSAT-1r to COMPLY WITH NEW -! LVLS-DRIVEN CHANNEL SELECTION (L(1)-L(4)> CH1-CH4) -! HWRF satellite additions: MTSAT-2 imager: - DATA IFILV(860),AVBL(860),IQ(860),IS(860),AVBLGRB2(860) & - & /1,'MTSAT2 NON-NADIR ',118,109, & !table 130 - & 'MTSAT2 CH1 NON NAD top_of_atmos'/ - -! LVLS-DRIVEN CHANNEL SELECTION (L(1)-L(4)> CH1-CH4) -! HWRF satellite additions: MTSAT-1r imager (MTSAT-2 backup satellite): - DATA IFILV(864),AVBL(864),IQ(864),IS(864),AVBLGRB2(864) & - & /1,'MTSAT1R NON-NADIR ',118,109, & !table 130 - & 'MTSAT1RCH1 NON NAD top_of_atmos'/ - -! LVLS-DRIVEN CHANNEL SELECTION (L(1)-L(4)> IR CH1-CH4) -! HWRF satellite additions: INSAT-3D imager - DATA IFILV(865),AVBL(865),IQ(865),IS(865),AVBLGRB2(865) & - & /1,'INSAT 3D NON-NADIR ',118,109, & !table 130 - & 'INSAT 3D NON NAD top_of_atmos'/ - -! 2014-12-09 WM LEWIS ADDED GOES-13, GOES-15, MSG-10 -! GOES-13 imager (L(1)-L(4) -> ID8: 237-240 -> CH2, CH3, CH4, CH5) - DATA IFILV(868),AVBL(868),IQ(868),IS(868),AVBLGRB2(868) & - & /1,'GOES-13 NON-NADIR ',118,109, & - & 'GOES-13 IMGR TB TOA '/ !Table 130 - -! GOES-15 imager (L(1)-L(4) -> ID8: 241-244 -> CH2, CH3, CH4, CH5) - DATA IFILV(872),AVBL(872),IQ(872),IS(872),AVBLGRB2(872) & - & /1,'GOES-15 NON-NADIR ',118,109, & - & 'GOES-15 IMGR TB TOA '/ !Table 130 - -! MSG/SEVIRI imager (L(1)-L(7) -> ID8: 230-236 -> -! CH5, CH6, CH7, CH8, CH9, CH10, CH11) - DATA IFILV(876),AVBL(876),IQ(876),IS(876),AVBLGRB2(876) & - & /1,'SEVIRI NON-NADIR ',118,109, & - & 'MSG/SEVIRI TB TOA '/ !Table 130 - -! HWRF additions (900-949) - DATA IFILV(900),AVBL(900),IQ(900),IS(900),AVBLGRB2(900) & - & /1,'MODEL SFC U WIND STR',124,001, & - & 'U_FLX ON surface' / - DATA IFILV(901),AVBL(901),IQ(901),IS(901),AVBLGRB2(901) & - & /1,'MODEL SFC V WIND STR',125,001, & - & 'V_FLX ON surface' / - DATA IFILV(902),AVBL(902),IQ(902),IS(902),AVBLGRB2(902) & - & /1,'INSTN OUT TOA SW RAD',211,008, & - & 'INST USWRF ON top_of_atmos'/ -! HWRF reflectivity output from wrf -! Passed-through wrf derived variable, works for non-ferrier -! physics. -! Use Table 129 (PDS Octet 4 = 129) - DATA IFILV(903),AVBL(903),IQ(903),IS(903),AVBLGRB2(903) & - & /1,'WRFOUT REFL 10CM MDL',211,109, & - & 'WRFOUT REFL 10CM ON model '/ - DATA IFILV(904),AVBL(904),IQ(904),IS(904),AVBLGRB2(904) & - & /1,'WRFOUT COMP MAX REF ',212,200, & - & 'WRFOUT COMP MAX REFLC'/ -! Add Radiation variables output from RRTMG and CAM -! radiation schemes in wrf. (SWUPT,ACSWUPT,SWDNT,ACSWDNT) - DATA IFILV(905),AVBL(905),IQ(905),IS(905),AVBLGRB2(905) & - & /1,'INST SW UP TOA RAD ',211,008, & - & 'INST SW UPWELL RAD top_of_atmos'/ - DATA IFILV(906),AVBL(906),IQ(906),IS(906),AVBLGRB2(906) & - & /1,'AVE SW UP TOA RAD ',211,008, & - & 'AVE SW UPWELL RAD top_of_atmos'/ - DATA IFILV(907),AVBL(907),IQ(907),IS(907),AVBLGRB2(907) & - & /1,'INST SW DOWN TOA RAD',204,008, & - & 'INST SW DOWNWELL RAD top_of_atmos'/ - DATA IFILV(908),AVBL(908),IQ(908),IS(908),AVBLGRB2(908) & - & /1,'AVE SW DOWN TOA RAD ',204,008, & - & 'AVE SW DOWNWELL RAD top_of_atmos'/ - DATA IFILV(909),AVBL(909),IQ(909),IS(909),AVBLGRB2(909) & - & /1,'VTEMP ON MDL SFCS ',012,109, & - & 'VTMP ON hybrid_lvl'/ - DATA IFILV(910),AVBL(910),IQ(910),IS(910),AVBLGRB2(910) & - & /1,'VTEMP ON PRESS SFCS ',012,100, & - & 'VTMP ON isobaric_sfc'/ - DATA IFILV(911),AVBL(911),IQ(911),IS(911),AVBLGRB2(911) & - & /1,'VTEMP AT FD HEIGHTS ',012,103, & - & 'VTMP ON spec_alt_above_mean_sea_lvl'/ -! CD and CH exchange coefficients - DATA IFILV(922),AVBL(922),IQ(922),IS(922),AVBLGRB2(922) & - & /1,'10M DRAG EXCH COEF ',252,105, & !table 2 - & '10M SFC DRAG EXCH COEF CD '/ - DATA IFILV(923),AVBL(923),IQ(923),IS(923),AVBLGRB2(923) & - & /1,'10M HEAT EXCH COEF ',144,105, & !table 128 - & '10M SFC HEAT EXCH COEF CH '/ -! Add GOES-16 & GOES-17 ABI IR Channels 7-16 -! Grib2 defines each channel as a separate output field - DATA IFILV(927),AVBL(927),IQ(927),IS(927),AVBLGRB2(927) & - & /1,'G16 CH7 NON-NADIR ',118,109, & - & 'G16 CH7 ABI TB TOA '/ !Table 130 - - DATA IFILV(928),AVBL(928),IQ(928),IS(928),AVBLGRB2(928) & - & /1,'G16 CH8 NON-NADIR ',118,109, & - & 'G16 CH8 ABI TB TOA '/ !Table 130 - - DATA IFILV(929),AVBL(929),IQ(929),IS(929),AVBLGRB2(929) & - & /1,'G16 CH9 NON-NADIR ',118,109, & - & 'G16 CH9 ABI TB TOA '/ !Table 130 - - DATA IFILV(930),AVBL(930),IQ(930),IS(930),AVBLGRB2(930) & - & /1,'G16 CH10 NON-NADIR ',118,109, & - & 'G16 CH10 ABI TB TOA '/ !Table 130 - - DATA IFILV(931),AVBL(931),IQ(931),IS(931),AVBLGRB2(931) & - & /1,'G16 CH11 NON-NADIR ',118,109, & - & 'G16 CH11 ABI TB TOA '/ !Table 130 - - DATA IFILV(932),AVBL(932),IQ(932),IS(932),AVBLGRB2(932) & - & /1,'G16 CH12 NON-NADIR ',118,109, & - & 'G16 CH12 ABI TB TOA '/ !Table 130 - - DATA IFILV(933),AVBL(933),IQ(933),IS(933),AVBLGRB2(933) & - & /1,'G16 CH13 NON-NADIR ',118,109, & - & 'G16 CH13 ABI TB TOA '/ !Table 130 - - DATA IFILV(934),AVBL(934),IQ(934),IS(934),AVBLGRB2(934) & - & /1,'G16 CH14 NON-NADIR ',118,109, & - & 'G16 CH14 ABI TB TOA '/ !Table 130 - - DATA IFILV(935),AVBL(935),IQ(935),IS(935),AVBLGRB2(935) & - & /1,'G16 CH15 NON-NADIR ',118,109, & - & 'G16 CH15 ABI TB TOA '/ !Table 130 - - DATA IFILV(936),AVBL(936),IQ(936),IS(936),AVBLGRB2(936) & - & /1,'G16 CH16 NON-NADIR ',118,109, & - & 'G16 CH16 ABI TB TOA '/ !Table 130 - - DATA IFILV(937),AVBL(937),IQ(937),IS(937),AVBLGRB2(937) & - & /1,'G17 CH7 NON-NADIR ',118,109, & - & 'G17 CH7 ABI TB TOA '/ !Table 130 - - DATA IFILV(938),AVBL(938),IQ(938),IS(938),AVBLGRB2(938) & - & /1,'G17 CH8 NON-NADIR ',118,109, & - & 'G17 CH8 ABI TB TOA '/ !Table 130 - - DATA IFILV(939),AVBL(939),IQ(939),IS(939),AVBLGRB2(939) & - & /1,'G17 CH9 NON-NADIR ',118,109, & - & 'G17 CH9 ABI TB TOA '/ !Table 130 - - DATA IFILV(940),AVBL(940),IQ(940),IS(940),AVBLGRB2(940) & - & /1,'G17 CH10 NON-NADIR ',118,109, & - & 'G17 CH10 ABI TB TOA '/ !Table 130 - - DATA IFILV(941),AVBL(941),IQ(941),IS(941),AVBLGRB2(941) & - & /1,'G17 CH11 NON-NADIR ',118,109, & - & 'G17 CH11 ABI TB TOA '/ !Table 130 - - DATA IFILV(942),AVBL(942),IQ(942),IS(942),AVBLGRB2(942) & - & /1,'G17 CH12 NON-NADIR ',118,109, & - & 'G17 CH12 ABI TB TOA '/ !Table 130 - - DATA IFILV(943),AVBL(943),IQ(943),IS(943),AVBLGRB2(943) & - & /1,'G17 CH13 NON-NADIR ',118,109, & - & 'G17 CH13 ABI TB TOA '/ !Table 130 - - DATA IFILV(944),AVBL(944),IQ(944),IS(944),AVBLGRB2(944) & - & /1,'G17 CH14 NON-NADIR ',118,109, & - & 'G17 CH14 ABI TB TOA '/ !Table 130 - - DATA IFILV(945),AVBL(945),IQ(945),IS(945),AVBLGRB2(945) & - & /1,'G17 CH15 NON-NADIR ',118,109, & - & 'G17 CH15 ABI TB TOA '/ !Table 130 - - DATA IFILV(946),AVBL(946),IQ(946),IS(946),AVBLGRB2(946) & - & /1,'G17 CH16 NON-NADIR ',118,109, & - & 'G17 CH16 ABI TB TOA '/ !Table 130 - -!-- ADD HRRR CAPE/CIN RELATED VARIABLES - DATA IFILV(950),AVBL(950),IQ(950),IS(950),AVBLGRB2(950) & - & /1,'CAPE 0-3KM ',157,116, & - & 'CAPE ON spec_hgt_above_grnd'/ - DATA IFILV(951),AVBL(951),IQ(951),IS(951),AVBLGRB2(951) & - & /1,'CIN 0-3KM ',156,116, & - & 'CIN ON spec_hgt_above_grnd'/ - DATA IFILV(952),AVBL(952),IQ(952),IS(952),AVBLGRB2(952) & - & /1,'LFC AGL HEIGHT ',007,014, & - & 'HGT ON lvl_of_free_convection'/ - DATA IFILV(953),AVBL(953),IQ(953),IS(953),AVBLGRB2(953) & - & /1,'STORM REL HELICITY ',190,255, & - & 'HLCY ON spec_hgt_lvl_above_grnd'/ - DATA IFILV(954),AVBL(954),IQ(954),IS(954),AVBLGRB2(954) & - & /1,'DOWNDRAFT CAPE ',157,116, & - & 'CAPE ON spec_pres_above_grnd'/ - DATA IFILV(955),AVBL(955),IQ(955),IS(955),AVBLGRB2(955) & - & /1,'DENDRITIC LAYER DEPTH',007,020, & - & 'THICHNESS -12C_-17C_isotherm'/ - DATA IFILV(956),AVBL(956),IQ(956),IS(956),AVBLGRB2(956) & - & /1,'ENHANCED STRETCHING POTENTIAL',157,116,& - & 'ESP ON spec_pres_above_grnd'/ - DATA IFILV(957),AVBL(957),IQ(957),IS(957),AVBLGRB2(957) & - & /1,'CRITICAL ANGLE ',157,116, & - & 'CRITICAL ANGLE ON spec_pres_above_grnd'/ - DATA IFILV(958),AVBL(958),IQ(958),IS(958),AVBLGRB2(958) & - & /1,'GR CH7 NADIR ',118,109, & - & 'GR CH7 ABI TB TOA '/ !Table 130 - - DATA IFILV(959),AVBL(959),IQ(959),IS(959),AVBLGRB2(959) & - & /1,'GR CH8 NADIR ',118,109, & - & 'GR CH8 ABI TB TOA '/ !Table 130 - - DATA IFILV(960),AVBL(960),IQ(960),IS(960),AVBLGRB2(960) & - & /1,'GR CH9 NADIR ',118,109, & - & 'GR CH9 ABI TB TOA '/ !Table 130 - - DATA IFILV(961),AVBL(961),IQ(961),IS(961),AVBLGRB2(961) & - & /1,'GR CH10 NADIR ',118,109, & - & 'GR CH10 ABI TB TOA '/ !Table 130 - - DATA IFILV(962),AVBL(962),IQ(962),IS(962),AVBLGRB2(962) & - & /1,'GR CH11 NADIR ',118,109, & - & 'GR CH11 ABI TB TOA '/ !Table 130 - - DATA IFILV(963),AVBL(963),IQ(963),IS(963),AVBLGRB2(963) & - & /1,'GR CH12 NADIR ',118,109, & - & 'GR CH12 ABI TB TOA '/ !Table 130 - - DATA IFILV(964),AVBL(964),IQ(964),IS(964),AVBLGRB2(964) & - & /1,'GR CH13 NADIR ',118,109, & - & 'GR CH13 ABI TB TOA '/ !Table 130 - - DATA IFILV(965),AVBL(965),IQ(965),IS(965),AVBLGRB2(965) & - & /1,'GR CH14 NADIR ',118,109, & - & 'GR CH14 ABI TB TOA '/ !Table 130 - - DATA IFILV(966),AVBL(966),IQ(966),IS(966),AVBLGRB2(966) & - & /1,'GR CH15 NADIR ',118,109, & - & 'GR CH15 ABI TB TOA '/ !Table 130 - - DATA IFILV(967),AVBL(967),IQ(967),IS(967),AVBLGRB2(967) & - & /1,'GR CH16 NADIR ',118,109, & - & 'GR CH16 ABI TB TOA '/ !Table 130 - DATA IFILV(968),AVBL(968),IQ(968),IS(968),AVBLGRB2(968) & - & /1,'SEA ICE SKI TEMPERATURE ',080,001, & - & 'ICETMP ON surface'/ -! LVLS-DRIVEN CHANNEL SELECTION (L(1)-L(10)> CRTM CH1-CH10 > AHI CH7-16) -! HWRF satellite additions: Himawari-8, replacement for MTSAT-2 - DATA IFILV(969),AVBL(969),IQ(969),IS(969),AVBLGRB2(969) & - & /1,'HIM-8 AHI CH7 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH7 NON-NADIR BRTEMP'/ - DATA IFILV(970),AVBL(970),IQ(970),IS(970),AVBLGRB2(970) & - & /1,'HIM-8 AHI CH8 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH8 NON-NADIR BRTEMP'/ - DATA IFILV(971),AVBL(971),IQ(971),IS(971),AVBLGRB2(971) & - & /1,'HIM-8 AHI CH9 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH9 NON-NADIR BRTEMP'/ - DATA IFILV(972),AVBL(972),IQ(972),IS(972),AVBLGRB2(972) & - & /1,'HIM-8 AHI CH10 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH10 NON-NADIR BRTEMP'/ - DATA IFILV(973),AVBL(973),IQ(973),IS(973),AVBLGRB2(973) & - & /1,'HIM-8 AHI CH11 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH11 NON-NADIR BRTEMP'/ - DATA IFILV(974),AVBL(974),IQ(974),IS(974),AVBLGRB2(974) & - & /1,'HIM-8 AHI CH12 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH12 NON-NADIR BRTEMP'/ - DATA IFILV(975),AVBL(975),IQ(975),IS(975),AVBLGRB2(975) & - & /1,'HIM-8 AHI CH13 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH13 NON-NADIR BRTEMP'/ - DATA IFILV(976),AVBL(976),IQ(976),IS(976),AVBLGRB2(976) & - & /1,'HIM-8 AHI CH14 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH14 NON-NADIR BRTEMP'/ - DATA IFILV(977),AVBL(977),IQ(977),IS(977),AVBLGRB2(977) & - & /1,'HIM-8 AHI CH15 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH15 NON-NADIR BRTEMP'/ - DATA IFILV(978),AVBL(978),IQ(978),IS(978),AVBLGRB2(978) & - & /1,'HIM-8 AHI CH16 NNADR',118,109, & !table 130 - & 'HIM-8 AHI CH16 NON-NADIR BRTEMP'/ - DATA IFILV(979),AVBL(979),IQ(979),IS(979),AVBLGRB2(979) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'EFSH ON effbot_lvl'/ - DATA IFILV(980),AVBL(980),IQ(980),IS(980),AVBLGRB2(980) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'EFSH ON efftop_lvl'/ - DATA IFILV(981),AVBL(981),IQ(981),IS(981),AVBLGRB2(981) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'ELMELT ON effbot_lvl'/ - DATA IFILV(982),AVBL(982),IQ(982),IS(982),AVBLGRB2(982) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'ELMELT ON efftop_lvl'/ - DATA IFILV(983),AVBL(983),IQ(983),IS(983),AVBLGRB2(983) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'ESHR ON effbot_lvl'/ - DATA IFILV(984),AVBL(984),IQ(984),IS(984),AVBLGRB2(984) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'UESH ON effbot_lvl'/ - DATA IFILV(985),AVBL(985),IQ(985),IS(985),AVBLGRB2(985) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(986),AVBL(986),IQ(986),IS(986),AVBLGRB2(986) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(987),AVBL(987),IQ(987),IS(987),AVBLGRB2(987) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(988),AVBL(988),IQ(988),IS(988),AVBLGRB2(988) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(989),AVBL(989),IQ(989),IS(989),AVBLGRB2(989) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(990),AVBL(990),IQ(990),IS(990),AVBLGRB2(990) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(991),AVBL(991),IQ(991),IS(991),AVBLGRB2(991) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(992),AVBL(992),IQ(992),IS(992),AVBLGRB2(992) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - DATA IFILV(993),AVBL(993),IQ(993),IS(993),AVBLGRB2(993) & - & /1,'EFFECTIVE LEVEL BOT',205,217, & - & 'VESH ON effbot_lvl'/ - -! AQF - DATA IFILV(994),AVBL(994),IQ(994),IS(994), AVBLGRB2(994) & - & /1,'OZCON ',167,109, & - & 'OZCON ON hybrid_lvl'/ - - DATA IFILV(995),AVBL(995),IQ(995),IS(995), AVBLGRB2(995) & - & /1,'PMTF ',167,109, & !table 141 - & 'PM25TOT ON Hybrid level'/ - - DATA IFILV(996),AVBL(996),IQ(996),IS(996),AVBLGRB2(996) & - & /1,'LAND FRACTION',205,217, & - & 'LANDFRAC ON surface'/ - DATA IFILV(997),AVBL(997),IQ(997),IS(997),AVBLGRB2(997) & - & /1,'INST PREC ADVEC HEAT',205,217, & - & 'PAHFLX ON surface'/ - DATA IFILV(998),AVBL(998),IQ(998),IS(998),AVBLGRB2(998) & - & /1,'WATER IN AQUIFER',205,217, & - & 'WATERSA ON surface'/ - DATA IFILV(999),AVBL(999),IQ(999),IS(999),AVBLGRB2(999) & - & /1,'ACM EIWATER',205,217, & - & 'EIWATER ON surface'/ - DATA IFILV(1000),AVBL(1000),IQ(1000),IS(1000),AVBLGRB2(1000) & - & /1,'ACM PLANTTR',205,217, & - & 'PLANTTR ON surface'/ - DATA IFILV(1001),AVBL(1001),IQ(1001),IS(1001),AVBLGRB2(1001) & - & /1,'ACM SOILSE',205,217, & - & 'SOILSE ON surface'/ - DATA IFILV(1002),AVBL(1002),IQ(1002),IS(1002),AVBLGRB2(1002) & - & /1,'AVE PREC ADVEC HEAT',205,217, & - & 'AVE PAHFLX ON surface'/ - -!end initialization -! - end module RQSTFLD_mod diff --git a/sorc/ncep_post.fd/RQSTFLD.f b/sorc/ncep_post.fd/RQSTFLD.f new file mode 100644 index 000000000..ecdcb0388 --- /dev/null +++ b/sorc/ncep_post.fd/RQSTFLD.f @@ -0,0 +1,44 @@ + module RQSTFLD_mod +!-------------------------------------------------------------------- +! revision history +! 2011-02-06 Jun Wang add grib2 option +! 2011-10-18 Sarah Lu add GOCART aerosol fields +! 2011-12-18 Sarah Lu add GOCART aerosol optical properties, mass +! fields, and production/removal fluxes +! 2011-12-29 Sarah Lu add GOCART AOD at multiple channels +! 2012-01-06 Sarah Lu add GOCART SS, OC, BC, SU aerosols +! 2012-01-07 Sarah Lu add air density and dpres +! 2012-01-27 Sarah Lu use index 601-700 for GOCART +! 2012-01-30 Jun Wang add post available fields from xml file for grib2 +! 2012-05-07 Tricia Slovacek use index 800-899 for satellite +! use index 900-949 for HWRF +! 2014-12-09 William Lewis added MSG/SEVIRI imager, +! GOES-13 and GOES-15 imagers, +! and completed SSMI and SSMIS (F13-F20) +! 2019-04-01 Sharon Nebuda added GOES-16 GOES-17 ABI IR Channels 7-16 +! 2019-04-22 Wen Meng increased model MXLVL to 500 +! 2019-05-08 Wen Meng added continuous accumulated precipitations(417, 418, +! 419). +! 2019-09-03 Jesse Meng added cape related variables for hrrr (950-957) +! 2021-08-31 Lin Zhu added ssmis-f17 channels 15-18 grib2 output +! 2021-11-03 Tracy Hertneky removed all grib1 settings +!-------------------------------------------------------------------- + + implicit none +! +! increase MXFLD each time you add a new field + INTEGER, PARAMETER :: MXFLD=1200 + INTEGER, PARAMETER :: MXLVL=500 + + CHARACTER*6 DATSET +! + LOGICAL RITEHD +! + integer :: NFLD,IGET(MXFLD), & + LVLS(MXLVL,MXFLD), & + IDENT(MXFLD),IAVBLFLD(MXFLD), & + ID(25) + integer :: num_post_afld + integer,allocatable :: LVLSXML(:,:) + + end module RQSTFLD_mod diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index 26fface7d..f1d762d25 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -43,6 +43,7 @@ !! 20-03-25 J MENG - remove grib1 !! 21-06-20 W Meng - remove reading grib1 and gfsio lib !! 21-10-22 KaYee Wong - created formal fortran namelist for itag +!! 21-11-03 Tracy Hertneky - Removed SIGIO option !! !! USAGE: WRFPOST !! INPUT ARGUMENT LIST: @@ -148,13 +149,10 @@ PROGRAM WRFPOST fixed_tim, time_output, imin, surfce2_tim, komax, ivegsrc, d3d_on, gocart_on,rdaod, & readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqfcmaq_on use grib2_module, only: gribit2,num_pset,nrecout,first_grbtbl,grib_info_finalize - use sigio_module, only: sigio_head - use sigio_r_module, only: sigio_rropen, sigio_rrhead !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! type(nemsio_gfile) :: nfile,ffile,rfile - type(sigio_head) :: sighead INCLUDE "mpif.h" ! ! DECLARE VARIABLES. @@ -588,74 +586,6 @@ PROGRAM WRFPOST END IF - ELSE IF(TRIM(IOFORM) == 'sigio' )THEN - - IF(MODELNAME == 'GFS') THEN - lusig = 32 - - !IF(ME == 0)THEN - - call sigio_rropen(lusig,trim(filename),status) - - if ( Status /= 0 ) then - print*,'error opening ',fileName, ' Status = ', Status ; stop - endif -!--- - call sigio_rrhead(lusig,sighead,status) - if ( Status /= 0 ) then - print*,'error finding GFS dimensions '; stop - else - idrt = 4 ! set default to Gaussian first - call getenv('IDRT',cgar) ! then read idrt to see if user request latlon - if(cgar /= " ")then - read(cgar,'(I1)',iostat=Status) idrt - !if(Status = =0)idrt = idum - call getenv('LONB',cdum) - read(cdum,'(I4)',iostat=Status) im - if(Status /= 0)then - print*,'error reading user specified lonb for latlon grid, stopping' - call mpi_abort() - stop - end if - call getenv('LATB',cdum) - read(cdum,'(I4)',iostat=Status)jm - if(Status /= 0)then - print*,'error reading user specified latb for latlon grid, stopping' - call mpi_abort() - stop - end if - else - idrt = 4 - im = sighead%lonb - jm = sighead%latb - endif - print*,'idrt=',idrt - lm = sighead%levs - end if - nsoil = 4 -! opening GFS flux file - if(me == 0)then - iunit = 33 - call baopenr(iunit,trim(fileNameFlux),iostatusFlux) - if(iostatusFlux /= 0)print*,'flux file not opened' - iunitd3d = 34 - call baopenr(iunitd3d,trim(fileNameD3D),iostatusD3D) -! iostatusD3D=-1 - END IF -! CALL mpi_bcast(im, 1,MPI_INTEGER,0, mpi_comm_comp,status) -! call mpi_bcast(jm, 1,MPI_INTEGER,0, mpi_comm_comp,status) -! call mpi_bcast(lm, 1,MPI_INTEGER,0, mpi_comm_comp,status) -! call mpi_bcast(nsoil, 1,MPI_INTEGER,0, mpi_comm_comp,status) - call mpi_bcast(iostatusFlux,1,MPI_INTEGER,0, mpi_comm_comp,status) - call mpi_bcast(iostatusD3D, 1,MPI_INTEGER,0, mpi_comm_comp,status) - print*,'im jm lm nsoil from GFS= ',im,jm, lm ,nsoil - LP1 = LM+1 - LM1 = LM-1 - IM_JM = IM*JM - ELSE - print*,'post only reads sigma files for GFS, stopping';stop - END IF - ELSE PRINT*,'UNKNOWN MODEL OUTPUT FORMAT, STOPPING' STOP 9999 @@ -756,13 +686,6 @@ PROGRAM WRFPOST STOP 9999 END IF - ELSE IF(TRIM(IOFORM) == 'sigio')THEN - IF(MODELNAME == 'GFS') THEN - CALL INITPOST_GFS_SIGIO(lusig,iunit,iostatusFlux,iostatusD3D,idrt,sighead) - ELSE - PRINT*,'POST does not have sigio option for this model, STOPPING' - STOP 99981 - END IF ELSE PRINT*,'UNKNOWN MODEL OUTPUT FORMAT, STOPPING' From 0d0c72120a68feb371c1235d7b3094818b5b586a Mon Sep 17 00:00:00 2001 From: Bin Liu Date: Mon, 22 Nov 2021 10:40:47 -0600 Subject: [PATCH 019/107] Add HAFS related nosat post control files (#418) * update modules for jet * update modules for jet (#2) * feature/HAFS: Switch back to use netcdf/3.6.3 on Jet. Can consider switching to netcdf/4.x.x for all platforms later on. * support/HAFS: Update for regular lat-lon grids to FV3 output change on coordinate (Cherry-picked from Jili.Dong's commit). * update for jet; update for new write component coordinates * add post lib for jet * update for Lambert/rotated latlon to output earth relative wind * fix ref at -10C * Add the configuration for Orion. * Update modulefiles/post/v8.0.0-jet to use modules under the lfs4 disk. * Update modulefiles/post/v8.0.0-jet. * Symbolic link from modulefiles/post/v8.0.0-cray-intel to modulefiles/post/v8.0.0-wcoss_cray. * Update compile_upp.sh so that it can be called/run from the workflow level build driver script. More specifically, the following line is changed from source detect_machine.sh into source ./detect_machine.sh * Add HAFS nosat post control files (@LinZhu-NOAA). Co-authored-by: Jili Dong Co-authored-by: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Co-authored-by: Wen Meng --- parm/makefile | 8 +- parm/postcntrl_hafs_nosat.xml | 521 ++++++ parm/postxconfig-NT-hafs_nosat.txt | 2682 ++++++++++++++++++++++++++++ 3 files changed, 3210 insertions(+), 1 deletion(-) create mode 100755 parm/postcntrl_hafs_nosat.xml create mode 100644 parm/postxconfig-NT-hafs_nosat.txt diff --git a/parm/makefile b/parm/makefile index d06ab47ea..31a29f586 100644 --- a/parm/makefile +++ b/parm/makefile @@ -21,6 +21,7 @@ GEFSANLFLATFILENAME = postxconfig-NT-GEFS-ANL.txt GEFSF00FLATFILENAME = postxconfig-NT-GEFS-F00.txt FV3LAMFLATFILENAME = postxconfig-NT-fv3lam.txt HAFSFLATFILENAME = postxconfig-NT-hafs.txt +HAFSNOSATFLATFILENAME = postxconfig-NT-hafs_nosat.txt GFSTWOFLATFILENAME = postxconfig-NT-GFS-TWO.txt GFSTWOF00FLATFILENAME = postxconfig-NT-GFS-F00-TWO.txt HRRRFLATFILENAME = postxconfig-NT-hrrr.txt @@ -46,6 +47,7 @@ GEFSCTRLF00FILENAME = postcntrl_gefs_f00.xml FV3LAMAVAILXMLFILENAME = post_avblflds.xml FV3LAMCTRLFILENAME = fv3lam.xml HAFSCTRLFILENAME = postcntrl_hafs.xml +HAFSNOSATCTRLFILENAME = postcntrl_hafs_nosat.xml GFSTWOCTRLFILENAME = postcntrl_gfs_two.xml GFSTWOF00CTRLFILENAME = postcntrl_gfs_f00_two.xml HRRRAVAILXMLFILENAME = post_avblflds_raphrrr.xml @@ -73,6 +75,7 @@ PERLXMLGEFSANL = /usr/bin/perl $(PERLXML) $(GEFSANLCTRLFILENAME) $(GFSAVAILXMLF PERLXMLGEFSF00 = /usr/bin/perl $(PERLXML) $(GEFSCTRLF00FILENAME) $(GFSAVAILXMLFILENAME) $(GEFSF00FLATFILENAME) PERLXMLFV3LAM = /usr/bin/perl $(PERLXML) $(FV3LAMCTRLFILENAME) $(FV3LAMAVAILXMLFILENAME) $(FV3LAMFLATFILENAME) PERLXMLHAFS = /usr/bin/perl $(PERLXML) $(HAFSCTRLFILENAME) $(FV3LAMAVAILXMLFILENAME) $(HAFSFLATFILENAME) +PERLXMLHAFSNOSAT = /usr/bin/perl $(PERLXML) $(HAFSNOSATCTRLFILENAME) $(FV3LAMAVAILXMLFILENAME) $(HAFSNOSATFLATFILENAME) PERLXMLGFSTWO = /usr/bin/perl $(PERLXML) $(GFSTWOCTRLFILENAME) $(GFSAVAILXMLFILENAME) $(GFSTWOFLATFILENAME) PERLXMLGFSTWOF00 = /usr/bin/perl $(PERLXML) $(GFSTWOF00CTRLFILENAME) $(GFSAVAILXMLFILENAME) $(GFSTWOF00FLATFILENAME) PERLXMLHRRR = /usr/bin/perl $(PERLXML) $(HRRRCTRLFILENAME) $(HRRRAVAILXMLFILENAME) $(HRRRFLATFILENAME) @@ -94,6 +97,7 @@ GEFSANLXMLS = $(GFSAVAILXMLFILENAME) $(GEFSANLCTRLFILENAME) GEFSF00XMLS = $(GFSAVAILXMLFILENAME) $(GEFSCTRLF00FILENAME) FV3LAMXMLS = $(FV3LAMAVAILXMLFILENAME) $(FV3LAMCTRLFILENAME) HAFSXMLS = $(FV3LAMAVAILXMLFILENAME) $(HAFSCTRLFILENAME) +HAFSNOSATXMLS = $(FV3LAMAVAILXMLFILENAME) $(HAFSNOSATCTRLFILENAME) GFSTWOXMLS = $(GFSAVAILXMLFILENAME) $(GFSTWOCTRLFILENAME) GFSTWOF00XMLS = $(GFSAVAILXMLFILENAME) $(GFSTWOF00CTRLFILENAME) HRRRXMLS = $(HRRRAVAILXMLFILENAME) $(HRRRCTRLFILENAME) @@ -101,7 +105,7 @@ RAPXMLS = $(RAPAVAILXMLFILENAME) $(RAPCTRLFILENAME) RTMA3DXMLS = $(RTMA3DAVAILXMLFILENAME) $(RTMA3DCTRLFILENAME) # If action is triggered; run the following -all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) +all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) $(GFSFLATFILENAME): $(GFSXMLS) $(PERLXMLGFS) $(GFSGOESFLATFILENAME): $(GFSGOESXMLS) @@ -128,6 +132,8 @@ $(FV3LAMFLATFILENAME): $(FV3LAMXMLS) $(PERLXMLFV3LAM) $(HAFSFLATFILENAME): $(HAFSXMLS) $(PERLXMLHAFS) +$(HAFSNOSATFLATFILENAME): $(HAFSNOSATXMLS) + $(PERLXMLHAFSNOSAT) $(GFSTWOFLATFILENAME): $(GFSTWOXMLS) $(PERLXMLGFSTWO) $(GFSTWOF00FLATFILENAME): $(GFSTWOF00XMLS) diff --git a/parm/postcntrl_hafs_nosat.xml b/parm/postcntrl_hafs_nosat.xml new file mode 100755 index 000000000..12746980c --- /dev/null +++ b/parm/postcntrl_hafs_nosat.xml @@ -0,0 +1,521 @@ + + + + + HURPRS + 32769 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + nws_ncep + hafs + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + HGT_ON_ISOBARIC_SFC + HGT + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + TMP_ON_ISOBARIC_SFC + TMP + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + SPFH_ON_ISOBARIC_SFC + SPFH + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 7.0 + + + + RH_ON_ISOBARIC_SFC + RH + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 3.0 + + + + UGRD_ON_ISOBARIC_SFC + UGRD + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + VGRD_ON_ISOBARIC_SFC + VGRD + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + DZDT_ON_ISOBARIC_SFC + DZDT + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 5.0 + + + + VVEL_ON_ISOBARIC_SFC + VVEL + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 5.0 + + + + ABSV_ON_ISOBARIC_SFC + ABSV + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + CLWMR_ON_ISOBARIC_SFC + CLWMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + ICMR_ON_ISOBARIC_SFC + ICMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + RWMR_ON_ISOBARIC_SFC + RWMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + SNMR_ON_ISOBARIC_SFC + SNMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + GRLE_ON_ISOBARIC_SFC + GRLE + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + REFD_ON_ISOBARIC_SFC + REFD + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + MSLET_ON_MEAN_SEA_LVL + MSLET + NCEP + 6.0 + + + + PRES_ON_MEAN_SEA_LVL + PRMSL + 6.0 + + + + TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMP + 4.0 + + + + SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + SPFH + 7.0 + + + + DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + DPT + 4.0 + + + + RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + RH + 3.0 + + + + UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + UGRD + 10. + 4.0 + + + + VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + VGRD + 10. + 4.0 + + + + PRES_ON_SURFACE + PRES + 6.0 + + + + HGT_ON_SURFACE + HGT + 6.0 + + + + TMP_ON_SURFACE + TMP + 4.0 + + + + SFEXC_ON_SURFACE + SFEXC + NCEP + 4.0 + + + + CAPE_ON_SURFACE + CAPE + 4.0 + + + + CIN_ON_SURFACE + CIN + 4.0 + + + + PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR + PWAT + 6.0 + + + + HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND + HLCY + 3000. + 4.0 + + + + ACM_APCP_ON_SURFACE + APCP + -4.0 + + + + ACM_NCPCP_ON_SURFACE + NCPCP + -4.0 + + + + INST_PRATE_ON_SURFACE + PRATE + 6.0 + + + + INST_TCDC_ON_ENTIRE_ATMOS + TCDC + 4.0 + + + + AVE_TCDC_ON_ENTIRE_ATMOS + TCDC + 4.0 + + + + INST_USWRF_ON_SURFACE + USWRF + NCEP + 6.0 + + + + INST_ULWRF_ON_SURFACE + ULWRF + NCEP + 6.0 + + + + AVE_DSWRF_ON_SURFACE + DSWRF + NCEP + 6.0 + + + + AVE_DLWRF_ON_SURFACE + DLWRF + NCEP + 4.0 + + + + AVE_USWRF_ON_SURFACE + USWRF + NCEP + 6.0 + + + + AVE_ULWRF_ON_SURFACE + ULWRF + NCEP + 4.0 + + + + AVE_USWRF_ON_TOP_OF_ATMOS + USWRF + NCEP + 6.0 + + + + AVE_ULWRF_ON_TOP_OF_ATMOS + ULWRF + NCEP + 4.0 + + + + INST_ULWRF_ON_TOP_OF_ATMOS + ULWRF + NCEP + 4.0 + + + + INST_DSWRF_ON_SURFACE + DSWRF + NCEP + 6.0 + + + + INST_DLWRF_ON_SURFACE + DLWRF + NCEP + 4.0 + + + + SFCR_ON_SURFACE + SFCR + 6.0 + + + + FRICV_ON_SURFACE + FRICV + NCEP + 4.0 + + + + UFLX_ON_SURFACE + UFLX + 4.0 + + + + VFLX_ON_SURFACE + VFLX + 4.0 + + + + INST_SHTFL_ON_SURFACE + SHTFL + 4.0 + + + + INST_LHTFL_ON_SURFACE + LHTFL + 4.0 + + + + NLAT_ON_SURFACE + NLAT + NCEP + 4.0 + + + + ELON_ON_SURFACE + ELON + NCEP + 4.0 + + + + LAND_ON_SURFACE + LAND + 1.0 + + + + WTMP_ON_SURFACE + WTMP + 4.0 + + + + PRES_ON_TROPOPAUSE + PRES + 6.0 + + + + HGT_ON_TROPOPAUSE + HGT + 6.0 + + + + TMP_ON_TROPOPAUSE + TMP + 4.0 + + + + UGRD_ON_TROPOPAUSE + UGRD + 4.0 + + + + VGRD_ON_TROPOPAUSE + VGRD + 4.0 + + + + VWSH_ON_TROPOPAUSE + VWSH + NCEP + 3.0 + + + + TMP_ON_CLOUD_TOP + TMP + 4.0 + + + + REFC_ON_ENTIRE_ATMOS + REFC + NCEP + 4.0 + + + + HPBL_ON_SURFACE + HPBL + NCEP + 6.0 + + + + TCOLW_ON_ENTIRE_ATMOS + TCOLW + NCEP + 5.0 + + + + TCOLI_ON_ENTIRE_ATMOS + TCOLI + NCEP + 5.0 + + + + TCOLR_ON_ENTIRE_ATMOS + TCOLR + NCEP + 5.0 + + + + TCOLS_ON_ENTIRE_ATMOS + TCOLS + NCEP + 5.0 + + + + TCOLC_ON_ENTIRE_ATMOS + TCOLC + NCEP + 5.0 + + + + MAX_PRATE_ON_SURFACE + PRATE + 6.0 + + + + MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + WIND + -4.0 + + + + + + + diff --git a/parm/postxconfig-NT-hafs_nosat.txt b/parm/postxconfig-NT-hafs_nosat.txt new file mode 100644 index 000000000..9a330bb20 --- /dev/null +++ b/parm/postxconfig-NT-hafs_nosat.txt @@ -0,0 +1,2682 @@ +1 +72 +HURPRS +32769 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +nws_ncep +hafs +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +12 +HGT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +HGT +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +13 +TMP_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +TMP +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +16 +SPFH_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +SPFH +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +7.0 +0 +0 +0 +? +? +? +17 +RH_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +RH +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +18 +UGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +UGRD +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +19 +VGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VGRD +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +284 +DZDT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +DZDT +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +20 +VVEL_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VVEL +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +21 +ABSV_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +ABSV +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +166 +ICMR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +ICMR +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +183 +RWMR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +RWMR +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +184 +SNMR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +SNMR +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +416 +GRLE_ON_ISOBARIC_SFC +Graupel mixing ration on isobaric surface +1 +tmpl4_0 +GRLE +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +251 +REFD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +REFD +? +? +isobaric_sfc +0 +? +45 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +23 +MSLET_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +MSLET +NCEP +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +105 +PRES_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +PRMSL +? +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +106 +TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +TMP +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +112 +SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +SPFH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +7.0 +0 +0 +0 +? +? +? +113 +DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +DPT +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +114 +RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +RH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +64 +UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +UGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +65 +VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +VGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +24 +PRES_ON_SURFACE +? +1 +tmpl4_0 +PRES +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +25 +HGT_ON_SURFACE +? +1 +tmpl4_0 +HGT +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +26 +TMP_ON_SURFACE +? +1 +tmpl4_0 +TMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +169 +SFEXC_ON_SURFACE +? +1 +tmpl4_0 +SFEXC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +32 +CAPE_ON_SURFACE +? +1 +tmpl4_0 +CAPE +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +107 +CIN_ON_SURFACE +? +1 +tmpl4_0 +CIN +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +80 +PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_0 +PWAT +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +162 +HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +HLCY +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +3000. +spec_hgt_lvl_above_grnd +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +87 +ACM_APCP_ON_SURFACE +? +1 +tmpl4_8 +APCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +34 +ACM_NCPCP_ON_SURFACE +? +1 +tmpl4_8 +NCPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +167 +INST_PRATE_ON_SURFACE +? +1 +tmpl4_0 +PRATE +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +161 +INST_TCDC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCDC +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +144 +AVE_TCDC_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +TCDC +? +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +141 +INST_USWRF_ON_SURFACE +? +1 +tmpl4_0 +USWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +142 +INST_ULWRF_ON_SURFACE +? +1 +tmpl4_0 +ULWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +126 +AVE_DSWRF_ON_SURFACE +? +1 +tmpl4_8 +DSWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +127 +AVE_DLWRF_ON_SURFACE +? +1 +tmpl4_8 +DLWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +128 +AVE_USWRF_ON_SURFACE +? +1 +tmpl4_8 +USWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +129 +AVE_ULWRF_ON_SURFACE +? +1 +tmpl4_8 +ULWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +130 +AVE_USWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_8 +USWRF +NCEP +AVE +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +131 +AVE_ULWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_8 +ULWRF +NCEP +AVE +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +274 +INST_ULWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +ULWRF +NCEP +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +156 +INST_DSWRF_ON_SURFACE +? +1 +tmpl4_0 +DSWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +157 +INST_DLWRF_ON_SURFACE +? +1 +tmpl4_0 +DLWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +44 +SFCR_ON_SURFACE +? +1 +tmpl4_0 +SFCR +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +45 +FRICV_ON_SURFACE +? +1 +tmpl4_0 +FRICV +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +133 +UFLX_ON_SURFACE +? +1 +tmpl4_0 +UFLX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +134 +VFLX_ON_SURFACE +? +1 +tmpl4_0 +VFLX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +154 +INST_SHTFL_ON_SURFACE +? +1 +tmpl4_0 +SHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +155 +INST_LHTFL_ON_SURFACE +? +1 +tmpl4_0 +LHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +48 +NLAT_ON_SURFACE +? +1 +tmpl4_0 +NLAT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +49 +ELON_ON_SURFACE +? +1 +tmpl4_0 +ELON +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +50 +LAND_ON_SURFACE +? +1 +tmpl4_0 +LAND +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +151 +WTMP_ON_SURFACE +? +1 +tmpl4_0 +WTMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +54 +PRES_ON_TROPOPAUSE +? +1 +tmpl4_0 +PRES +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +177 +HGT_ON_TROPOPAUSE +? +1 +tmpl4_0 +HGT +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +55 +TMP_ON_TROPOPAUSE +? +1 +tmpl4_0 +TMP +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +56 +UGRD_ON_TROPOPAUSE +? +1 +tmpl4_0 +UGRD +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +57 +VGRD_ON_TROPOPAUSE +? +1 +tmpl4_0 +VGRD +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +58 +VWSH_ON_TROPOPAUSE +? +1 +tmpl4_0 +VWSH +NCEP +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +168 +TMP_ON_CLOUD_TOP +? +1 +tmpl4_0 +TMP +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +252 +REFC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +REFC +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +221 +HPBL_ON_SURFACE +? +1 +tmpl4_0 +HPBL +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +200 +TCOLW_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLW +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +201 +TCOLI_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLI +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +202 +TCOLR_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLR +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +203 +TCOLS_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLS +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +204 +TCOLC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLC +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +508 +MAX_PRATE_ON_SURFACE +Maximum Precipitation Rate on surface +1 +tmpl4_8 +PRATE +? +MAX +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +422 +MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +maximum wind speed on 10 meter Above Ground +1 +tmpl4_8 +WIND +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? From e59b906cfd80afd71cf19bd5c5a0b0909b65cf3b Mon Sep 17 00:00:00 2001 From: HuiyaChuang-NOAA <56728916+HuiyaChuang-NOAA@users.noreply.github.com> Date: Thu, 2 Dec 2021 15:27:04 -0500 Subject: [PATCH 020/107] Add tref (#419) * Add foundation temperature per request from coupling group * add founfation T to inline post control file * add founfation T to inline post control file flux file part instead * Change sea ice threshold for identifying sea ice from .1 to 0 * made updates to only use new ice fraction threshold to identify sea ice grid point for GFS and RRFS so that legacy models land masks won't be affected by this change. Co-authored-by: wx20hc Co-authored-by: wx20hc Co-authored-by: wx20hc --- parm/post_avblflds.xml | 8 ++++ parm/postcntrl_gfs_f00_two.xml | 5 +++ parm/postcntrl_gfs_flux.xml | 5 +++ parm/postcntrl_gfs_flux_f00.xml | 5 +++ parm/postcntrl_gfs_two.xml | 5 +++ parm/postxconfig-NT-GFS-F00-TWO.txt | 39 +++++++++++++++++++- parm/postxconfig-NT-GFS-FLUX-F00.txt | 39 +++++++++++++++++++- parm/postxconfig-NT-GFS-FLUX.txt | 39 +++++++++++++++++++- parm/postxconfig-NT-GFS-TWO.txt | 39 +++++++++++++++++++- sorc/ncep_post.fd/ALLOCATE_ALL.f | 2 + sorc/ncep_post.fd/DEALLOCATE.f | 1 + sorc/ncep_post.fd/FIXED.f | 24 +++++++++++- sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f | 9 ++++- sorc/ncep_post.fd/VRBLS2D_mod.f | 2 +- 14 files changed, 213 insertions(+), 9 deletions(-) diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index dd5126d18..d36cc14fc 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -4719,6 +4719,14 @@ 3.0 + + 549 + FDNSSTMP_ON_SURFACE + FDNSSTMP + surface + 4.0 + + 551 CSNOW_ON_SURFACE diff --git a/parm/postcntrl_gfs_f00_two.xml b/parm/postcntrl_gfs_f00_two.xml index 1fdb74000..4923112df 100755 --- a/parm/postcntrl_gfs_f00_two.xml +++ b/parm/postcntrl_gfs_f00_two.xml @@ -963,6 +963,11 @@ 4.0 + + FDNSSTMP_ON_SURFACE + 4.0 + + TSOIL_ON_DEPTH_BEL_LAND_SFC 2 2 2 2 diff --git a/parm/postcntrl_gfs_flux.xml b/parm/postcntrl_gfs_flux.xml index 7bd9203e5..2511c3e48 100755 --- a/parm/postcntrl_gfs_flux.xml +++ b/parm/postcntrl_gfs_flux.xml @@ -54,6 +54,11 @@ 4.0 + + FDNSSTMP_ON_SURFACE + 4.0 + + TSOIL_ON_DEPTH_BEL_LAND_SFC 2 2 2 2 diff --git a/parm/postcntrl_gfs_flux_f00.xml b/parm/postcntrl_gfs_flux_f00.xml index 42195b196..c8c6c1008 100755 --- a/parm/postcntrl_gfs_flux_f00.xml +++ b/parm/postcntrl_gfs_flux_f00.xml @@ -54,6 +54,11 @@ 4.0 + + FDNSSTMP_ON_SURFACE + 4.0 + + TSOIL_ON_DEPTH_BEL_LAND_SFC 2 2 2 2 diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml index 2d37396dd..dab3a8ee2 100755 --- a/parm/postcntrl_gfs_two.xml +++ b/parm/postcntrl_gfs_two.xml @@ -1215,6 +1215,11 @@ 4.0 + + FDNSSTMP_ON_SURFACE + 4.0 + + TSOIL_ON_DEPTH_BEL_LAND_SFC 2 2 2 2 diff --git a/parm/postxconfig-NT-GFS-F00-TWO.txt b/parm/postxconfig-NT-GFS-F00-TWO.txt index 18ac45613..73e131734 100644 --- a/parm/postxconfig-NT-GFS-F00-TWO.txt +++ b/parm/postxconfig-NT-GFS-F00-TWO.txt @@ -1,5 +1,5 @@ 2 -46 +47 150 GFSPRS 0 @@ -5842,6 +5842,43 @@ surface ? ? ? +549 +FDNSSTMP_ON_SURFACE +? +1 +tmpl4_0 +FDNSSTMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? 116 TSOIL_ON_DEPTH_BEL_LAND_SFC ? diff --git a/parm/postxconfig-NT-GFS-FLUX-F00.txt b/parm/postxconfig-NT-GFS-FLUX-F00.txt index a532af969..26b7058c8 100644 --- a/parm/postxconfig-NT-GFS-FLUX-F00.txt +++ b/parm/postxconfig-NT-GFS-FLUX-F00.txt @@ -1,5 +1,5 @@ 1 -46 +47 GFSPRS 0 ncep_nco @@ -275,6 +275,43 @@ surface ? ? ? +549 +FDNSSTMP_ON_SURFACE +? +1 +tmpl4_0 +FDNSSTMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? 116 TSOIL_ON_DEPTH_BEL_LAND_SFC ? diff --git a/parm/postxconfig-NT-GFS-FLUX.txt b/parm/postxconfig-NT-GFS-FLUX.txt index 760fb95a8..d5f224d47 100644 --- a/parm/postxconfig-NT-GFS-FLUX.txt +++ b/parm/postxconfig-NT-GFS-FLUX.txt @@ -1,5 +1,5 @@ 1 -111 +112 GFSPRS 0 ncep_nco @@ -275,6 +275,43 @@ surface ? ? ? +549 +FDNSSTMP_ON_SURFACE +? +1 +tmpl4_0 +FDNSSTMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? 116 TSOIL_ON_DEPTH_BEL_LAND_SFC ? diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt index 7507a0de7..9a40bb467 100644 --- a/parm/postxconfig-NT-GFS-TWO.txt +++ b/parm/postxconfig-NT-GFS-TWO.txt @@ -1,5 +1,5 @@ 2 -111 +112 197 GFSPRS 0 @@ -7581,6 +7581,43 @@ surface ? ? ? +549 +FDNSSTMP_ON_SURFACE +? +1 +tmpl4_0 +FDNSSTMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? 116 TSOIL_ON_DEPTH_BEL_LAND_SFC ? diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index c63ba43b1..4643f84a5 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -969,6 +969,7 @@ SUBROUTINE ALLOCATE_ALL() allocate(tetran(im,jsta_2l:jend_2u)) allocate(tedir(im,jsta_2l:jend_2u)) allocate(twa(im,jsta_2l:jend_2u)) + allocate(fdnsst(im,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u @@ -1018,6 +1019,7 @@ SUBROUTINE ALLOCATE_ALL() tetran(i,j)=spval tedir(i,j)=spval twa(i,j)=spval + fdnsst(i,j)=spval enddo enddo ! diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index 54f246042..c6cf34ad9 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -385,6 +385,7 @@ SUBROUTINE DE_ALLOCATE deallocate(tetran) deallocate(tedir) deallocate(twa) + deallocate(fdnsst) ! GSD deallocate(rainc_bucket) deallocate(rainc_bucket1) diff --git a/sorc/ncep_post.fd/FIXED.f b/sorc/ncep_post.fd/FIXED.f index 64c549d7c..356a7f403 100644 --- a/sorc/ncep_post.fd/FIXED.f +++ b/sorc/ncep_post.fd/FIXED.f @@ -45,7 +45,8 @@ SUBROUTINE FIXED ! use vrbls3d, only: pint - use vrbls2d, only: albedo, avgalbedo, albase, mxsnal, sst, ths, epsr, ti + use vrbls2d, only: albedo, avgalbedo, albase, mxsnal, sst, ths, epsr, ti& + , fdnsst use masks, only: gdlat, gdlon, sm, sice, lmh, lmv use params_mod, only: small, p1000, capa use lookup_mod, only: ITB,JTB,ITBQ,JTBQ @@ -109,7 +110,11 @@ SUBROUTINE FIXED DO I = 1,IM GRID1(I,J) = SPVAL IF(SM(I,J) /= SPVAL) GRID1(I,J) = 1. - SM(I,J) - IF(SICE(I,J) /= SPVAL .AND. SICE(I,J) > 0.1) GRID1(I,J) = 0. + If(MODELNAME == 'GFS' .or. MODELNAME == 'FV3R')then + IF(SICE(I,J) /= SPVAL .AND. SICE(I,J) > 0.0)GRID1(I,J)=0. + else + IF(SICE(I,J) /= SPVAL .AND. SICE(I,J) > 0.1)GRID1(I,J)=0. + end if ! if(j==jm/2)print*,'i,mask= ',i,grid1(i,j) ENDDO ENDDO @@ -331,6 +336,21 @@ SUBROUTINE FIXED datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) endif ENDIF +! +! FOUNDATION TEMPERAURE. + IF (IGET(549)>0) THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=1,IM + GRID1(I,J) = FDNSST(I,J) + ENDDO + ENDDO + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(549)) + datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + endif + ENDIF ! EMISSIVIT. IF (IGET(248)>0) THEN diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f index d4049ebb1..624807426 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f @@ -57,7 +57,7 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) smstot, ivgtyp, isltyp, sfcevp, sfcexc, acsnow, acsnom, sst, thz0, qz0, & uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm, & ptoph, pboth, pblcfr, ttoph, runoff, tecan, tetran, tedir, twa, maxtshltr, & - mintshltr, maxrhshltr, & + mintshltr, maxrhshltr, fdnsst, & minrhshltr, dzice, smcwlt, suntime, fieldcapa, htopd, hbotd, htops, hbots, & cuppt, dusmass, ducmass, dusmass25, ducmass25, aswintoa,rel_vort_maxhy1, & maxqshltr, minqshltr, acond, sr, u10h, v10h,refd_max, w_up_max, w_dn_max, & @@ -1021,7 +1021,12 @@ SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) enddo if(debugprint)print*,'sample ',VarName,' = ',ths(isa,jsa) - +! foundation temperature + VarName='tref' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,fdnsst) + if(debugprint)print*,'sample ',VarName,' = ',fdnsst(isa,jsa) + ! GFS does not have time step and physics time step, make up ones since they ! are not really used anyway ! NPHS=1. diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index 31eef7a90..aa3231177 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -82,7 +82,7 @@ module vrbls2d ,avgesnow(:,:),avgpotevp(:,:),avgprec_cont(:,:),avgcprate_cont(:,:)& ,ti(:,:),aod550(:,:),du_aod550(:,:),ss_aod550(:,:),su_aod550(:,:) & ,bc_aod550(:,:),oc_aod550(:,:),landfrac(:,:),paha(:,:),pahi(:,:) & - ,tecan(:,:),tetran(:,:),tedir(:,:),twa(:,:) + ,tecan(:,:),tetran(:,:),tedir(:,:),twa(:,:),fdnsst(:,:) integer, allocatable :: IVGTYP(:,:),ISLTYP(:,:),ISLOPE(:,:) & ,IEQL(:,:) From 0dc3c0c1dbdcdc5025dff0c6b06b16aa2a7ddda9 Mon Sep 17 00:00:00 2001 From: EricJames-NOAA Date: Thu, 9 Dec 2021 06:12:30 -0700 Subject: [PATCH 021/107] NOAA GSL UPP updates (#413) * Turn on GSD cloud ceiling calculation for RRFS dev. * Updates to UPP for RRFS applications (#3) * Updates to UPP for RRFS applications: 1) Adding a RRFS-specific .xml control file and a corresponding .txt flat file. Note that script changes (pending) are needed to leverage the new flat file. However, this code will work in current real-time configurations. 2) Adding GSL experimental ceiling diagnostics, GSL visibility diagnostic, and GSL sea-level pressure reduction (MAPS). Also adding TKE and aerosol number concentrations. 3) Code clean-up for ceiling-related diagnostics; added comments, etc. 4) Removing several non-needed variables, originally inherited from FV3-SAR community configuration. * Updating UPP control files to specify GRIB2 generating center as "noaa_fsl_boulder" and the generating process as "hrrr". The "hrrr" specification is temporary, and will eventually be switched to "rrfs" once required changes to the "NCEPLIBS-g2tmpl" library are available. (#4) * Fix some out-of-bounds reads that caused the RRFS UPP to crash. (#5) * Adding README file (#7) * Adding README file to describe process of making a "flat" file. * Updates to README to improve explanation of input/output files. * Code to read in Flash Flood Guidance (FFG) and Average Recurrence Interval (ARI) precipitation datasets for comparison with model QPF within UPP. * Fixed a syntax error in SURFCE.f * Getting rid of GRIB1 output option to be consistent with rest of code. * Changing field numbers to avoid conflict with existing RRFS-dev1 fields. * Putting exceedance grids in flat files for testing in RRFS UPP. * Corrected the 1h and run total precip names for calculating exceedances in SURFCE.f * Bug fix in SURFCE.f if statements. * Removing changes to RQSTFLD.F since GRIB1 is no longer used in UPP. * Merging NOAA-GSL development on top of NOAA-EMC UPP for testing. * Correcting minor typos in SURFCE.f to allow testing. * Update code based on testing with RRFS cases. * Update part of the code based on current EMC develop branch for comparing the test results with the merged version.(#9) * Fixed several bugs in the code. * Modifications to SURFCE.f to check for existence of FFG files. * Bug fixes for FFG file existence check, and changes to handle rotated lat-lon grid interpolation for FFG * Bug fixes for FFG existence checks in SURFCE.f * Another bug fix for SURFCE.f * Updating XML and flat txt files to include a 65th vertical level to be consistent with updated FV3LAM model with higher model top. (#13) * Code cleanup for QPF - FFG comparison. Comparison put into subroutine. * Cleanup of SURFCE.f; moving the FFG comparisons into a subroutine. * Final cleanup of exceedance code for QPF vs FFG. * Removing some commented out variable declarations. * Additional cleanup recommended by Ming: we really only need two exceedance variables; one for 1h FFG and one for run total FFG exceedances. * Further cleanup of FFG code, simplifying to two fields (1h acc and run total acc) * Adding ARI comparison fields for 2y, 5y, 10y, and 100y ARIs. * Changes to output 9 soil levels from FV3LAM if we are running 9 level RUC LSM. * Adding flat txt file for UPP. * Commenting out the use of the ARI exceedances for now. We can switch them on later. * Bug fix in INITPOST_NETCDF.f : need to use both ncid2d and ncid3d in this subroutine! * Adding NOAA-GSL code changes on top of latest NOAA-EMC UPP. * Couple of bug fixes in NOAA-EMC code. Bugs were leading to PRMSL and -10C REFD being all zeroes. * Cleaning up code to get rid of unnecessary differences from EMC. * Putting all new GSL variables into EMC's unified post_avblflds.xml. Note that EMC's unified post_avblflds.xml does not validate using the avblflds Schema. * Updating postconfig-NT.txt file for GSL RRFS based on merged post_avblflds.xml file. * Adding RRFS control files to makefile. * Changing back scale for WEASD_ON_SURFACE to previous default, thanks to suggestion from Wen Meng. * Reverting name of cldfra based on feedback from Eric Aligo. * Reverting changes in fv3lam_post_avblflds.xml since GSL new variables are now included in post_avblflds.xml * Changing experimental ceiling level type from "ceiling" to "cloud_ceilng" * Updating 3drtma_postcntrl.xml with revised name for GSD_EXP_CEILING. This also affects postxconfig-NT-3drtma.txt. postxconfig-NT-fv3lam_rrfs.txt also changed due to changes in post_avblflds.xml * Introducing if statement for call of NGMSLP, to avoid calling unless it is needed. Co-authored-by: Ming.Hu Co-authored-by: Christina Holt <56881914+christinaholtNOAA@users.noreply.github.com> Co-authored-by: Christina Holt Co-authored-by: Jaymes Kenyon Co-authored-by: Samuel Trahan (NOAA contractor) <39415369+SamuelTrahanNOAA@users.noreply.github.com> --- parm/3drtma_postcntrl.xml | 2 +- parm/README.make_flatfile | 20 + parm/fv3lam_rrfs.xml | 3361 +++++ parm/makefile | 9 +- parm/post_avblflds.xml | 112 +- parm/postxconfig-NT-3drtma.txt | 6 +- parm/postxconfig-NT-fv3lam_rrfs.txt | 17573 ++++++++++++++++++++++++++ sorc/ncep_post.fd/CLDRAD.f | 43 +- sorc/ncep_post.fd/INITPOST_NETCDF.f | 194 +- sorc/ncep_post.fd/MAPSSLP.f | 14 +- sorc/ncep_post.fd/MDLFLD.f | 4 +- sorc/ncep_post.fd/SURFCE.f | 272 + sorc/ncep_post.fd/WRFPOST.f | 27 +- sorc/ncep_post.fd/grib2_module.f | 348 +- 14 files changed, 21916 insertions(+), 69 deletions(-) create mode 100644 parm/README.make_flatfile create mode 100755 parm/fv3lam_rrfs.xml create mode 100644 parm/postxconfig-NT-fv3lam_rrfs.txt diff --git a/parm/3drtma_postcntrl.xml b/parm/3drtma_postcntrl.xml index 7a2e66270..23471ce22 100755 --- a/parm/3drtma_postcntrl.xml +++ b/parm/3drtma_postcntrl.xml @@ -633,7 +633,7 @@ - GSD_PRES_ON_CLOUD_BASE + GSD_EXP_CEILING 3.0 diff --git a/parm/README.make_flatfile b/parm/README.make_flatfile new file mode 100644 index 000000000..9933405bb --- /dev/null +++ b/parm/README.make_flatfile @@ -0,0 +1,20 @@ +To make a .txt flat file for UPP, follow these steps within the parm/ directory: + +1) Select, then validate, the associated "post_avblflds" file, e.g., + + xmllint --noout --schema EMC_POST_Avblflds_Schema.xsd fv3lam_post_avblflds.xml + +2) Select, then validate, the associated "postcntrl" file, e.g., + + xmllint --noout --schema EMC_POST_CTRL_Schema.xsd fv3lam_rrfs.xml + +3) If file validation succeeds in steps (1) and (2), generate the .txt flat file, e.g., + + perl PostXMLPreprocessor.pl fv3lam_rrfs.xml fv3lam_post_avblflds.xml postxconfig-NT-fv3lam_rrfs.txt + + In this example, "fv3lam_rrfs.xml" and "fv3lam_post_avblflds.xml" are input files, read by the perl + script. The "postxconfig-NT-fv3lam_rrfs.txt" flat file is the output file produced by the script, which + can have any name. + + Note that a log file will be created by this script, in addition to the flat file. + diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml new file mode 100755 index 000000000..c68739453 --- /dev/null +++ b/parm/fv3lam_rrfs.xml @@ -0,0 +1,3361 @@ + + + + + BGDAWP + 32769 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + noaa_fsl_boulder + hrrr + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + PRES_ON_HYBRID_LVL + PRES + 1. 2. + 6.0 + + + + HGT_ON_HYBRID_LVL + HGT + 1. 2. + 4.0 + + + + TMP_ON_HYBRID_LVL + TMP + 1. 2. + 4.0 + + + + POT_ON_HYBRID_LVL + POT + 1. 2. + 4.0 + + + + DPT_ON_HYBRID_LVL + DPT + 1. 2. + 5.0 + + + + SPFH_ON_HYBRID_LVL + SPFH + 1. + 7.0 + + + + RH_ON_HYBRID_LVL + RH + 1. + 4.0 + + + + UGRD_ON_HYBRID_LVL + UGRD + 1. 2. + 4.0 + + + + VGRD_ON_HYBRID_LVL + VGRD + 1. 2. + 4.0 + + + + VVEL_ON_HYBRID_LVL + VVEL + 1. + 5.0 + + + + DZDT_ON_HYBRID_LVL + DZDT + 1. + -5.0 + + + + TKE_ON_HYBRID_LVL + TKE + 1. 2. + 3.0 + + + + RWMR_ON_HYBRID_LVL + RWMR + 1. 2. + 3.0 + + + + SNMR_ON_HYBRID_LVL + SNMR + 1. 2. + 3.0 + + + + RIME_ON_HYBRID_LVL + RIME + NCEP + 1. 2. + 3.0 + + + + TCOND_ON_HYBRID_LVL + TCOND + NCEP + 1. 2. + 3.0 + + + + REFD_ON_HYBRID_LVL + REFD + NCEP + 1. 2. + 4.0 + + + + BMIXL_ON_HYBRID_LVL + BMIXL + NCEP + 1. + 3.0 + + + + HGT_ON_ISOBARIC_SFC + HGT + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + TMP_ON_ISOBARIC_SFC + TMP + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 3.0 + + + + DPT_ON_ISOBARIC_SFC + DPT + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 5.0 + + + + SPFH_ON_ISOBARIC_SFC + SPFH + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + RH_ON_ISOBARIC_SFC + RH + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 2.0 + + + + UGRD_ON_ISOBARIC_SFC + UGRD + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + VGRD_ON_ISOBARIC_SFC + VGRD + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + VVEL_ON_ISOBARIC_SFC + VVEL + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 5.0 + + + + DZDT_ON_ISOBARIC_SFC + DZDT + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + -5.0 + + + + ABSV_ON_ISOBARIC_SFC + ABSV + 20000. 25000. 30000. 40000. 50000. 70000. 75000. 85000. 92500. 100000. + 4.0 + + + + STRM_ON_ISOBARIC_SFC + STRM + 25000. 50000. + 3.0 + + + + ICMR_ON_ISOBARIC_SFC + ICMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + CLMR_ON_ISOBARIC_SFC + CLMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + RWMR_ON_ISOBARIC_SFC + RWMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 3.0 + + + + GRLE_ON_ISOBARIC_SFC + GRLE + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 3.0 + + + + SNMR_ON_ISOBARIC_SFC + SNMR + 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. +47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 3.0 + + + + MSLET_ON_MEAN_SEA_LVL + MSLET + NCEP + 6.0 + + + + MAPS_PRMSL_ON_MEAN_SEA_LVL + PRMSL + 6.0 + + + + TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMP + 4.0 + + + + SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + SPFH + 4.0 + + + + DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + DPT + 4.0 + + + + RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + RH + 3.0 + + + + UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + UGRD + 10. + 4.0 + + + + VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + VGRD + 10. + 4.0 + + + + GUST_ON_SURFACE + GUST + 3.0 + + + + PLPL_ON_SPEC_PRES_ABOVE_GRND + PLPL + NCEP + 25500. + 0. + 6.0 + + + + POT_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + POT + 10. + 5.0 + + + + SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + SPFH + 10. + 3.0 + + + + PRES_ON_SURFACE + PRES + 6.0 + + + + HGT_ON_SURFACE + HGT + 6.0 + + + + POT_ON_SURFACE + POT + 5.0 + + + + SPFH_ON_SURFACE + SPFH + 3.0 + + + + TMP_ON_SURFACE + TMP + 4.0 + + + + TSOIL_ON_DEPTH_BEL_LAND_SFC + TSOIL + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 4.0 + + + + SOILW_ON_DEPTH_BEL_LAND_SFC + SOILW + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 3.0 + + + + CNWAT_ON_SURFACE + CNWAT + NCEP + 1.0 + + + + WEASD_ON_SURFACE + WEASD + 4.0 + + + + SNOWC_ON_SURFACE + SNOWC + NCEP + 3.0 + + + + SFEXC_ON_SURFACE + SFEXC + NCEP + 3.0 + + + + VEG_ON_SURFACE + VEG + 3.0 + + + + VGTYP_ON_SURFACE + VGTYP + NCEP + 3.0 + + + + SOTYP_ON_SURFACE + SOTYP + 3.0 + + + + SNFALB_ON_SURFACE + SNFALB + NCEP + 3.0 + + + + MXSALB_ON_SURFACE + MXSALB + NCEP + 3.0 + + + + CCOND_ON_SURFACE + CCOND + NCEP + 3.0 + + + + RCS_ON_SURFACE + RCS + NCEP + 3.0 + + + + RCT_ON_SURFACE + RCT + NCEP + 5.0 + + + + RCQ_ON_SURFACE + RCQ + NCEP + 3.0 + + + + RCSOL_ON_SURFACE + RCSOL + NCEP + 3.0 + + + + SMREF_ON_SURFACE + SMREF + NCEP + 3.0 + + + + POROS_ON_SURFACE + POROS + NCEP + 3.0 + + + + RLYRS_ON_SURFACE + RLYRS + NCEP + 3.0 + + + + RSMIN_ON_SURFACE + RSMIN + NCEP + 3.0 + + + + SNOD_ON_SURFACE + SNOD + 6.0 + + + + SMDRY_ON_SURFACE + SMDRY + NCEP + 3.0 + + + + WILT_ON_SURFACE + WILT + NCEP + 3.0 + + + + MSTAV_ON_DEPTH_BEL_LAND_SFC + MSTAV + NCEP + 2 + 0. + 2 + 100. + 3.0 + + + + INST_GFLUX_ON_SURFACE + GFLUX + NCEP + 3.0 + + + + LFTX_ON_ISOBARIC_SFC_500-1000hpa + LFTX + NCEP + 50000. + 100000. + 3.0 + + + + 4LFTX_ON_SPEC_PRES_ABOVE_GRND + 4LFTX + NCEP + 18000. + 0. + 3.0 + + + + PLI_ON_SPEC_PRES_ABOVE_GRND + PLI + 3000. + 0. + 3.0 + + + + CAPE_ON_SURFACE + CAPE + 4.0 + + + + BEST_CAPE_ON_SPEC_PRES_ABOVE_GRND + CAPE + 18000. + 0. + 4.0 + + + + MIXED_LAYER_CAPE_ON_SPEC_PRES_ABOVE_GRND + CAPE + 9000. + 0. + 4.0 + + + + UNSTABLE_CAPE_ON_SPEC_PRES_ABOVE_GRND + CAPE + 25500. + 0. + 4.0 + + + + CIN_ON_SURFACE + CIN + 4.0 + + + + BEST_CIN_ON_SPEC_PRES_ABOVE_GRND + CIN + 18000. + 0. + 4.0 + + + + MIXED_LAYER_CIN_ON_SPEC_PRES_ABOVE_GRND + CIN + 9000. + 0. + 4.0 + + + + UNSTABLE_CIN_ON_SPEC_PRES_ABOVE_GRND + CIN + 25500. + 0. + 4.0 + + + + PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR + PWAT + 3.0 + + + + HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND + HLCY + 3000. 1000. + 4.0 + + + + USTM_ON_SPEC_HGT_LVL_ABOVE_GRND + USTM + NCEP + 6000. + 4.0 + + + + VSTM_ON_SPEC_HGT_LVL_ABOVE_GRND + VSTM + NCEP + 6000. + 4.0 + + + + ACM_APCP_ON_SURFACE + APCP + -4.0 + + + + ACM_NCPCP_ON_SURFACE + NCPCP + -4.0 + + + + CACM_APCP_ON_SURFACE + APCP + -4.0 + + + + CACM_NCPCP_ON_SURFACE + NCPCP + -4.0 + + + + ACM_WEASD_ON_SURFACE + WEASD + 4.0 + + + + ACM_SNOM_ON_SURFACE + SNOM + 4.0 + + + + ACM_SSRUN_ON_SURFACE + SSRUN + NCEP + 6.0 + + + + ACM_BGRUN_ON_SURFACE + BGRUN + NCEP + 6.0 + + + + ACM_WATR_ON_SURFACE + WATR + 6.0 + + + + INST_CRAIN_ON_SURFACE + CRAIN + NCEP + 1.0 + + + + CSNOW_ON_SURFACE + CSNOW + NCEP + 1.0 + + + + CICEP_ON_SURFACE + CICEP + NCEP + 1.0 + + + + CFRZR_ON_SURFACE + CFRZR + NCEP + 1.0 + + + + INST_PRATE_ON_SURFACE + PRATE + 3.0 + + + + CPOFP_ON_SURFACE + CPOFP + NCEP + 4.0 + + + + CLMR_ON_HYBRID_LVL + CLMR + 1. 2. + 3.0 + + + + ICMR_ON_HYBRID_LVL + ICMR + 1. 2. + 3.0 + + + + GRLE_ON_HYBRID_LVL + GRLE + 1. 2. + 3.0 + + + + TCDC_ON_HYBRID_LVL + TCDC + 1. 2. + 3.0 + + + + LCDC_ON_LOW_CLOUD_LYR + LCDC + 3.0 + + + + MCDC_ON_MID_CLOUD_LYR + MCDC + 3.0 + + + + HCDC_ON_HIGH_CLOUD_LYR + HCDC + 3.0 + + + + INST_TCDC_ON_ENTIRE_ATMOS + TCDC + 3.0 + + + + AVE_TCDC_ON_ENTIRE_ATMOS + TCDC + 3.0 + + + + AVE_CDLYR_ON_ENTIRE_ATMOS + CDLYR + NCEP + 3.0 + + + + GSD_VIS_ON_SURFACE + VIS + 6.0 + + + + HGT_ON_LVL_OF_ADIAB_COND_FROM_SFC + HGT + 5.0 + + + + PRES_ON_LVL_OF_ADIAB_COND_FROM_SFC + PRES + 6.0 + + + + INST_USWRF_ON_SURFACE + USWRF + NCEP + 4.0 + + + + INST_ULWRF_ON_SURFACE + ULWRF + NCEP + 4.0 + + + + AVE_DSWRF_ON_SURFACE + DSWRF + NCEP + 3.0 + + + + AVE_DLWRF_ON_SURFACE + DLWRF + NCEP + 3.0 + + + + AVE_USWRF_ON_SURFACE + USWRF + NCEP + 3.0 + + + + AVE_ULWRF_ON_SURFACE + ULWRF + NCEP + 3.0 + + + + AVE_USWRF_ON_TOP_OF_ATMOS + USWRF + NCEP + 3.0 + + + + AVE_ULWRF_ON_TOP_OF_ATMOS + ULWRF + NCEP + 3.0 + + + + INST_ULWRF_ON_TOP_OF_ATMOS + ULWRF + NCEP + 4.0 + + + + BRTMP_ON_TOP_OF_ATMOS + BRTMP + 3.0 + + + + INST_DSWRF_ON_SURFACE + DSWRF + NCEP + 4.0 + + + + INST_DLWRF_ON_SURFACE + DLWRF + NCEP + 4.0 + + + + INST_CSDSF_ON_SURFACE + CSDSF + NCEP + 4.0 + + + + SFCR_ON_SURFACE + SFCR + 2.7 + + + + FRICV_ON_SURFACE + FRICV + NCEP + 4.0 + + + + CD_ON_SURFACE + CD + NCEP + 3.0 + + + + UFLX_ON_SURFACE + UFLX + 3.0 + + + + VFLX_ON_SURFACE + VFLX + 3.0 + + + + AVE_SHTFL_ON_SURFACE + SHTFL + 4.0 + + + + AVE_GFLUX_ON_SURFACE + GFLUX + NCEP + 4.0 + + + + AVE_SNOHF_ON_SURFACE + SNOHF + NCEP + 4.0 + + + + AVE_LHTFL_ON_SURFACE + LHTFL + 4.0 + + + + ACM_EVP_ON_SURFACE + EVP + 4.0 + + + + ACM_PEVAP_ON_SURFACE + PEVAP + NCEP + 4.0 + + + + INST_SHTFL_ON_SURFACE + SHTFL + 4.0 + + + + INST_LHTFL_ON_SURFACE + LHTFL + 4.0 + + + + NLAT_ON_SURFACE + NLAT + NCEP + 4.0 + + + + ELON_ON_SURFACE + ELON + NCEP + 4.0 + + + + LAND_ON_SURFACE + LAND + 1.0 + + + + ICEC_ON_SURFACE + ICEC + 3.0 + + + + ALBDO_ON_SURFACE + ALBDO + 3.0 + + + + WTMP_ON_SURFACE + WTMP + 5.0 + + + + PRES_ON_TROPOPAUSE + PRES + 6.0 + + + + HGT_ON_TROPOPAUSE + HGT + 6.0 + + + + TMP_ON_TROPOPAUSE + TMP + 3.0 + + + + POT_ON_TROPOPAUSE + POT + 5.0 + + + + UGRD_ON_TROPOPAUSE + UGRD + 4.0 + + + + VGRD_ON_TROPOPAUSE + VGRD + 4.0 + + + + VWSH_ON_TROPOPAUSE + VWSH + NCEP + 3.0 + + + + VUCSH_ON_SPEC_HGT_LVL_ABOVE_GRND_0-6km + VUCSH + 3.0 + + + + VVCSH_ON_SPEC_HGT_LVL_ABOVE_GRND_0-6km + VVCSH + 3.0 + + + + TMP_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL + TMP + 305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. + 3.0 + + + + TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT + TMP + 30. 50. 80. 100. + 3.0 + + + + UGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL + UGRD + 305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. + 4.0 + + + + UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT + UGRD + 30. 50. 80. 100. + 4.0 + + + + VGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL + VGRD + 305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. + 4.0 + + + + VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT + VGRD + 30. 50. 80. 100. + 4.0 + + + + SPFH_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL + SPFH + 305. + 5.0 + + + + SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT + SPFH + 30. 50. 80. 100. + 5.0 + + + + PRES_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT + PRES + 30. 50. 80. 100. + 3.0 + + + + HGT_ON_0C_ISOTHERM + HGT + 6.0 + + + + RH_ON_0C_ISOTHERM + RH + 2.0 + + + + HGT_ON_HGHST_TROP_FRZ_LVL + HGT + 6.0 + + + + HGT_ON_LWST_LVL_OF_WET_BULB_ZERO + HGT + -5.0 + + + + PRES_ON_SPEC_PRES_ABOVE_GRND + PRES + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 6.0 + + + + TMP_ON_SPEC_PRES_ABOVE_GRND + TMP + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 3.0 + + + + POT_ON_SPEC_PRES_ABOVE_GRND + POT + 3000. + 0. + 4.0 + + + + DPT_ON_SPEC_PRES_ABOVE_GRND + DPT + 3000. + 0. + 3.0 + + + + SPFH_ON_SPEC_PRES_ABOVE_GRND + SPFH + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 5.0 + + + + RH_ON_SPEC_PRES_ABOVE_GRND + RH + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 2.0 + + + + PWAT_ON_SPEC_PRES_ABOVE_GRND + PWAT + 3000. + 0. + 3.0 + + + + UGRD_ON_SPEC_PRES_ABOVE_GRND + UGRD + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 4.0 + + + + VGRD_ON_SPEC_PRES_ABOVE_GRND + VGRD + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 4.0 + + + + VVEL_ON_SPEC_PRES_ABOVE_GRND + VVEL + 3000. 9000. 18000. + 0. 6000. 15000. + 5.0 + + + + PRES_ON_CLOUD_BASE + PRES + 6.0 + + + + PRES_ON_CLOUD_TOP + PRES + 6.0 + + + + TMP_ON_CLOUD_TOP + TMP + 5.0 + + + + HGT_ON_CLOUD_BASE + HGT + 6.0 + + + + HGT_ON_CLOUD_TOP + HGT + 6.0 + + + + TMP_ON_CLOUD_TOP + TMP + 5.0 + + + + PRES_ON_MAX_WIND + PRES + 6.0 + + + + HGT_ON_MAX_WIND + HGT + 6.0 + + + + UGRD_ON_MAX_WIND + UGRD + 4.0 + + + + VGRD_ON_MAX_WIND + VGRD + 4.0 + + + + REFC_ON_ENTIRE_ATMOS + REFC + NCEP + 4.0 + + + + REFZR_ON_ENTIRE_ATMOS + REFZR + NCEP + -4.0 + + + + REFZI_ON_ENTIRE_ATMOS + REFZI + NCEP + -4.0 + + + + REFD_ON_SPEC_HGT_LVL_ABOVE_GRND + REFD + NCEP + 4000. 1000. + 4.0 + + + + REFZR_ON_SPEC_HGT_LVL_ABOVE_GRND + REFZR + NCEP + 4000. 1000. + -4.0 + + + + REFZI_ON_SPEC_HGT_LVL_ABOVE_GRND + REFZI + NCEP + 4000. 1000. + -4.0 + + + + HPBL_ON_SURFACE + HPBL + NCEP + 6.0 + + + + PRES_ON_GRID_SCALE_CLOUD_BOT_LVL + PRES + 6.0 + + + + PRES_ON_GRID_SCALE_CLOUD_TOP_LVL + PRES + 6.0 + + + + TCOLW_ON_ENTIRE_ATMOS + TCOLW + NCEP + 5.0 + + + + TCOLI_ON_ENTIRE_ATMOS + TCOLI + NCEP + 5.0 + + + + TCOLR_ON_ENTIRE_ATMOS + TCOLR + NCEP + 5.0 + + + + TCOLS_ON_ENTIRE_ATMOS + TCOLS + NCEP + 5.0 + + + + TCOLC_ON_ENTIRE_ATMOS + TCOLC + NCEP + 5.0 + + + + TCOLG_ON_ENTIRE_ATMOS + TCOLG + 5.0 + + + + TCLSW_ON_ENTIRE_ATMOS + TCLSW + NCEP + 5.0 + + + + TCOLM_ON_ENTIRE_ATMOS + TCOLM + NCEP + 5.0 + + + + HGT_ON_LWST_BOT_LVL_OF_SUPERCOOLED_LIQ_WATER_LYR + HGT + 6.0 + + + + HGT_ON_HGHST_TOP_LVL_OF_SUPERCOOLED_LIQ_WATER_LYR + HGT + 5.0 + + + + GSD_HGT_ON_CLOUD_CEILING + HGT + -3.0 + + + + GSD_EXP_CEILING + CEIL + -3.0 + + + + GSD_EXP_CEILING_2 + CEIL + -3.0 + + + + ACM_LSPA_ON_SURFACE + LSPA + NCEP + 3.0 + + + + PRES_ON_TOP_OF_ATMOS + PRES + 3.0 + + + + SWHR_ON_ENTIRE_ATMOS + SWHR + NCEP + 5.0 + + + + LWHR_ON_ENTIRE_ATMOS + LWHR + NCEP + 5.0 + + + + AVE_LRGHR_ON_ENTIRE_ATMOS + LRGHR + NCEP + 5.0 + + + + TMP_ON_SIGMA_LVL_HPC + TMP + 4 + 9000. 8500. 8000. 7500. 7000. + -4.0 + + + + PBLREG_ON_SURFACE + PBLREG + 2.0 + + + + UGRD_ON_PLANETARY_BOUND_LYR + UGRD + -4.0 + + + + VGRD_ON_PLANETARY_BOUND_LYR + VGRD + -4.0 + + + + HGT_ON_PLANETARY_BOUND_LYR + HGT + -4.0 + + + + MIXHT_ON_SURFACE + MIXHT + -4.0 + + + + RETOP_ON_ENTIRE_ATMOS_SINGLE_LYR + RETOP + NCEP + 6.0 + + + + VRATE_ON_PLANETARY_BOUND_LYR + VRATE + NCEP + 3.0 + + + + HINDEX_ON_SURFACE + HINDEX + 3.0 + + + + MAX_TMAX_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMAX + 4.0 + + + + MIN_TMIN_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMIN + 4.0 + + + + MAX_MAXRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + MAXRH + -2.0 + + + + MIN_MINRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + MINRH + NCEP + -2.0 + + + + MAX_MAXUW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + MAXUW + NCEP + 10. + -4.0 + + + + MAX_MAXVW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + MAXVW + NCEP + 10. + -4.0 + + + + MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + WIND + -4.0 + + + + MAX_REF_ON_SPEC_HGT_LVL_ABOVE_GRND_1km + MAXREF + NCEP + -3.0 + + + + MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAXUVV + NCEP + -3.0 + + + + MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAXDVV + NCEP + -3.0 + + + + MAX_PRATE_ON_SURFACE + PRATE + 4.0 + + + + MAX_SRWEQ_ON_SURFACE + SRWEQ + 4.0 + + + + LTNG_ON_SURFACE + LTNG + NCEP + 1.0 + + + + VIL_ON_ENTIRE_ATMOS + VIL + 4.0 + + + + UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km + UPHL + NCEP + -3.0 + + + + MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km + MXUPHL + NCEP + -3.0 + + + + GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km + MNUPHL + NCEP + -3.0 + + + + GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km + MNUPHL + NCEP + -3.0 + + + + GSD_MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km + MXUPHL + NCEP + -3.0 + + + + GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-1km + 5.0 + + + + GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_HYBRID1 + 5.0 + + + + GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-2km + 5.0 + + + + MAX_REF_ON_ISOTHERMAL_-10C + MAXREF + NCEP + -3.0 + + + + REFD_ON_ISOTHERMAL + REFD + NCEP + isothermal + 263. + -4.0 + + + + 1H_FFG_EXCEEDANCE + 5.0 + + + + ACM_FFG_EXCEEDANCE + 5.0 + + + + + + + + BGRD3D + 32769 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + noaa_fsl_boulder + hrrr + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + HGT_ON_ISOBARIC_SFC + HGT + 25000. 50000. 70000. 85000. + 6.0 + + + + TMP_ON_ISOBARIC_SFC + TMP + 25000. 50000. 70000. 85000. 95000. + 3.0 + + + + RH_ON_ISOBARIC_SFC + RH + 25000. 50000. 70000. 85000. + 2.0 + + + + UGRD_ON_ISOBARIC_SFC + UGRD + 25000. 50000. 70000. 85000. + 4.0 + + + + VGRD_ON_ISOBARIC_SFC + VGRD + 25000. 50000. 70000. 85000. + 4.0 + + + + VVEL_ON_ISOBARIC_SFC + VVEL + 25000. 50000. 70000. 85000. + 5.0 + + + + SPFH_ON_ISOBARIC_SFC + SPFH + 25000. 50000. 70000. 85000. + 4.0 + + + + ABSV_ON_ISOBARIC_SFC + ABSV + 25000. 50000. 70000. 85000. + 4.0 + + + + PRES_ON_HYBRID_LVL + PRES + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 6.0 + + + + HGT_ON_HYBRID_LVL + HGT + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 4.0 + + + + TMP_ON_HYBRID_LVL + TMP + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 4.0 + + + + SPFH_ON_HYBRID_LVL + SPFH + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 7.0 + + + + UGRD_ON_HYBRID_LVL + UGRD + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 4.0 + + + + VGRD_ON_HYBRID_LVL + VGRD + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 4.0 + + + + VVEL_ON_HYBRID_LVL + VVEL + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 5.0 + + + + DZDT_ON_HYBRID_LVL + DZDT + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + -5.0 + + + + TKE_ON_HYBRID_LVL + TKE + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + MSLET_ON_MEAN_SEA_LVL + MSLET + NCEP + 6.0 + + + + MAPS_PRMSL_ON_MEAN_SEA_LVL + PRMSL + 6.0 + + + + TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMP + 4.0 + + + + SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + SPFH + 4.0 + + + + DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + DPT + 4.0 + + + + RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + RH + 3.0 + + + + UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + UGRD + 10. + 4.0 + + + + VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + VGRD + 10. + 4.0 + + + + POT_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + POT + 10. + 5.0 + + + + SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + SPFH + 10. + 3.0 + + + + PRES_ON_SURFACE + PRES + 6.0 + + + + HGT_ON_SURFACE + HGT + 6.0 + + + + POT_ON_SURFACE + POT + 5.0 + + + + SPFH_ON_SURFACE + SPFH + 3.0 + + + + TMP_ON_SURFACE + TMP + 4.0 + + + + MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAXUVV + NCEP + -3.0 + + + + MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAXDVV + NCEP + -3.0 + + + + GSD_MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km + MXUPHL + NCEP + -3.0 + + + + MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km + MXUPHL + NCEP + -3.0 + + + + GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km + MNUPHL + NCEP + -3.0 + + + + GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km + MNUPHL + NCEP + -3.0 + + + + GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-1km + 5.0 + + + + GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_HYBRID1 + 5.0 + + + + GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-2km + 5.0 + + + + MAX_MAXUW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + MAXUW + NCEP + 10. + -4.0 + + + + MAX_MAXVW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + MAXVW + NCEP + 10. + -4.0 + + + + MAX_REF_ON_SPEC_HGT_LVL_ABOVE_GRND_1km + MAXREF + NCEP + -3.0 + + + + MAX_REF_ON_ISOTHERMAL_-10C + MAXREF + NCEP + -3.0 + + + + REFD_ON_ISOTHERMAL + REFD + NCEP + isothermal + 263. + -4.0 + + + + MAX_TMAX_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMAX + 4.0 + + + + MIN_TMIN_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMIN + 4.0 + + + + MAX_MAXRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + MAXRH + -2.0 + + + + MIN_MINRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + MINRH + NCEP + -2.0 + + + + TSOIL_ON_DEPTH_BEL_LAND_SFC + TSOIL + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 4.0 + + + + SOILW_ON_DEPTH_BEL_LAND_SFC + SOILW + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 2 + 0. 1. 4. 10. 30. 60. 100. 160. 300. + 3.0 + + + + SFEXC_ON_SURFACE + SFEXC + NCEP + 3.0 + + + + VEG_ON_SURFACE + VEG + 3.0 + + + + MSTAV_ON_DEPTH_BEL_LAND_SFC + MSTAV + NCEP + 2 + 0. + 2 + 100. + 3.0 + + + + INST_GFLUX_ON_SURFACE + GFLUX + NCEP + 3.0 + + + + CNWAT_ON_SURFACE + CNWAT + NCEP + 1.0 + + + + WEASD_ON_SURFACE + WEASD + 4.0 + + + + 4LFTX_ON_SPEC_PRES_ABOVE_GRND + 4LFTX + NCEP + 18000. + 0. + 3.0 + + + + PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR + PWAT + 3.0 + + + + ACM_APCP_ON_SURFACE + APCP + -4.0 + + + + ACM_NCPCP_ON_SURFACE + NCPCP + -4.0 + + + + CACM_APCP_ON_SURFACE + APCP + -4.0 + + + + CACM_NCPCP_ON_SURFACE + NCPCP + -4.0 + + + + ACM_WEASD_ON_SURFACE + WEASD + 4.0 + + + + ACM_SNOM_ON_SURFACE + SNOM + 4.0 + + + + ACM_SSRUN_ON_SURFACE + SSRUN + NCEP + 4.0 + + + + ACM_BGRUN_ON_SURFACE + BGRUN + NCEP + 4.0 + + + + INST_CRAIN_ON_SURFACE + CRAIN + NCEP + 1.0 + + + + CSNOW_ON_SURFACE + CSNOW + NCEP + 1.0 + + + + CICEP_ON_SURFACE + CICEP + NCEP + 1.0 + + + + CFRZR_ON_SURFACE + CFRZR + NCEP + 1.0 + + + + INST_PRATE_ON_SURFACE + PRATE + 3.0 + + + + CPOFP_ON_SURFACE + CPOFP + NCEP + 4.0 + + + + CLMR_ON_HYBRID_LVL + CLMR + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + ICMR_ON_HYBRID_LVL + ICMR + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + GRLE_ON_HYBRID_LVL + GRLE + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + TCDC_ON_HYBRID_LVL + TCDC + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + RWMR_ON_HYBRID_LVL + RWMR + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + SNMR_ON_HYBRID_LVL + SNMR + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + GSD_NCWFA_ON_HYBRID_LVL + PMTF + NCEP + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + GSD_NCIFA_ON_HYBRID_LVL + PMTC + NCEP + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 3.0 + + + + LCDC_ON_LOW_CLOUD_LYR + LCDC + 3.0 + + + + MCDC_ON_MID_CLOUD_LYR + MCDC + 3.0 + + + + HCDC_ON_HIGH_CLOUD_LYR + HCDC + 3.0 + + + + INST_TCDC_ON_ENTIRE_ATMOS + TCDC + 3.0 + + + + AVE_TCDC_ON_ENTIRE_ATMOS + TCDC + 3.0 + + + + AVE_CDLYR_ON_ENTIRE_ATMOS + CDLYR + NCEP + 3.0 + + + + INST_USWRF_ON_SURFACE + USWRF + NCEP + 4.0 + + + + INST_ULWRF_ON_SURFACE + ULWRF + NCEP + 4.0 + + + + AVE_DSWRF_ON_SURFACE + DSWRF + NCEP + 3.0 + + + + AVE_DLWRF_ON_SURFACE + DLWRF + NCEP + 3.0 + + + + AVE_USWRF_ON_SURFACE + USWRF + NCEP + 3.0 + + + + AVE_ULWRF_ON_SURFACE + ULWRF + NCEP + 3.0 + + + + AVE_USWRF_ON_TOP_OF_ATMOS + USWRF + NCEP + 3.0 + + + + AVE_ULWRF_ON_TOP_OF_ATMOS + ULWRF + NCEP + 3.0 + + + + INST_DSWRF_ON_SURFACE + DSWRF + NCEP + 4.0 + + + + INST_DLWRF_ON_SURFACE + DLWRF + NCEP + 4.0 + + + + INST_CSDSF_ON_SURFACE + CSDSF + NCEP + 4.0 + + + + SFCR_ON_SURFACE + SFCR + 2.7 + + + + FRICV_ON_SURFACE + FRICV + NCEP + 4.0 + + + + CD_ON_SURFACE + CD + NCEP + 3.0 + + + + UFLX_ON_SURFACE + UFLX + 3.0 + + + + VFLX_ON_SURFACE + VFLX + 3.0 + + + + AVE_SHTFL_ON_SURFACE + SHTFL + 4.0 + + + + AVE_GFLUX_ON_SURFACE + GFLUX + NCEP + 4.0 + + + + AVE_SNOHF_ON_SURFACE + SNOHF + NCEP + 4.0 + + + + AVE_LHTFL_ON_SURFACE + LHTFL + 4.0 + + + + ACM_EVP_ON_SURFACE + EVP + 4.0 + + + + ACM_PEVAP_ON_SURFACE + PEVAP + NCEP + 4.0 + + + + INST_SHTFL_ON_SURFACE + SHTFL + 4.0 + + + + INST_LHTFL_ON_SURFACE + LHTFL + 4.0 + + + + NLAT_ON_SURFACE + NLAT + NCEP + 4.0 + + + + ELON_ON_SURFACE + ELON + NCEP + 4.0 + + + + LAND_ON_SURFACE + LAND + 1.0 + + + + ICEC_ON_SURFACE + ICEC + 3.0 + + + + LMH_ON_SURFACE + LMH + NCEP + 2.0 + + + + LMV_ON_SURFACE + LMV + NCEP + 2.0 + + + + ALBDO_ON_SURFACE + ALBDO + 3.0 + + + + WTMP_ON_SURFACE + WTMP + 5.0 + + + + PRES_ON_SPEC_PRES_ABOVE_GRND + PRES + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 6.0 + + + + TMP_ON_SPEC_PRES_ABOVE_GRND + TMP + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 3.0 + + + + POT_ON_SPEC_PRES_ABOVE_GRND + POT + 3000. + 0. + 4.0 + + + + DPT_ON_SPEC_PRES_ABOVE_GRND + DPT + 3000. + 0. + 3.0 + + + + SPFH_ON_SPEC_PRES_ABOVE_GRND + SPFH + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 5.0 + + + + RH_ON_SPEC_PRES_ABOVE_GRND + RH + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 2.0 + + + + PWAT_ON_SPEC_PRES_ABOVE_GRND + PWAT + 3000. + 0. + 3.0 + + + + UGRD_ON_SPEC_PRES_ABOVE_GRND + UGRD + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 4.0 + + + + VGRD_ON_SPEC_PRES_ABOVE_GRND + VGRD + 3000. 6000. 9000. 12000. 15000. 18000. + 0. 3000. 6000. 9000. 12000. 15000. + 4.0 + + + + ACM_LSPA_ON_SURFACE + LSPA + NCEP + 3.0 + + + + PRES_ON_TOP_OF_ATMOS + PRES + 3.0 + + + + PRES_ON_HYBRID_LVL_1L + PRES + 1. + 21. + 3.0 + + + + PRES_ON_HYBRID_LVL_LLM + PRES + 1. + 61. + 3.0 + + + + CNWAT_ON_SURFACE + CNWAT + NCEP + 1.0 + + + + INST_GFLUX_ON_SURFACE + GFLUX + NCEP + 3.0 + + + + LFTX_ON_ISOBARIC_SFC_500-1000hpa + LFTX + NCEP + 50000. + 100000. + 3.0 + + + + CAPE_ON_SURFACE + CAPE + 4.0 + + + + BEST_CAPE_ON_SPEC_PRES_ABOVE_GRND + CAPE + 18000. + 0. + 4.0 + + + + MIXED_LAYER_CAPE_ON_SPEC_PRES_ABOVE_GRND + CAPE + 9000. + 0. + 4.0 + + + + UNSTABLE_CAPE_ON_SPEC_PRES_ABOVE_GRND + CAPE + 25500. + 0. + 4.0 + + + + CIN_ON_SURFACE + CIN + 4.0 + + + + BEST_CIN_ON_SPEC_PRES_ABOVE_GRND + CIN + 18000. + 0. + 4.0 + + + + MIXED_LAYER_CIN_ON_SPEC_PRES_ABOVE_GRND + CIN + 9000. + 0. + 4.0 + + + + UNSTABLE_CIN_ON_SPEC_PRES_ABOVE_GRND + CIN + 25500. + 0. + 4.0 + + + + PLPL_ON_SPEC_PRES_ABOVE_GRND + PLPL + NCEP + 25500. + 0. + 6.0 + + + + HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND + HLCY + 3000. 1000. + 4.0 + + + + USTM_ON_SPEC_HGT_LVL_ABOVE_GRND + USTM + NCEP + 6000. + 4.0 + + + + VSTM_ON_SPEC_HGT_LVL_ABOVE_GRND + VSTM + NCEP + 6000. + 4.0 + + + + LCDC_ON_LOW_CLOUD_LYR + LCDC + 3.0 + + + + MCDC_ON_MID_CLOUD_LYR + MCDC + 3.0 + + + + HCDC_ON_HIGH_CLOUD_LYR + HCDC + 3.0 + + + + AVE_TCDC_ON_ENTIRE_ATMOS + TCDC + 3.0 + + + + AVE_CDLYR_ON_ENTIRE_ATMOS + CDLYR + NCEP + 3.0 + + + + PRES_ON_CLOUD_BASE + PRES + 6.0 + + + + PRES_ON_CLOUD_TOP + PRES + 6.0 + + + + TMP_ON_CLOUD_TOP + TMP + 5.0 + + + + AVE_GFLUX_ON_SURFACE + GFLUX + NCEP + 4.0 + + + + AVE_SNOHF_ON_SURFACE + SNOHF + NCEP + 4.0 + + + + ACM_EVP_ON_SURFACE + EVP + 4.0 + + + + INST_SHTFL_ON_SURFACE + SHTFL + 4.0 + + + + INST_LHTFL_ON_SURFACE + LHTFL + 4.0 + + + + PRES_ON_TROPOPAUSE + PRES + 6.0 + + + + HGT_ON_TROPOPAUSE + HGT + 6.0 + + + + TMP_ON_TROPOPAUSE + TMP + 3.0 + + + + UGRD_ON_TROPOPAUSE + UGRD + 4.0 + + + + VGRD_ON_TROPOPAUSE + VGRD + 4.0 + + + + VWSH_ON_TROPOPAUSE + VWSH + NCEP + 3.0 + + + + TMP_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL + TMP + 305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. + 3.0 + + + + UGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL + UGRD + 305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. + 4.0 + + + + VGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL + VGRD + 305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. + 4.0 + + + + HGT_ON_0C_ISOTHERM + HGT + 6.0 + + + + RH_ON_0C_ISOTHERM + RH + 2.0 + + + + HGT_ON_HGHST_TROP_FRZ_LVL + HGT + 6.0 + + + + PRES_ON_MAX_WIND + PRES + 6.0 + + + + HGT_ON_MAX_WIND + HGT + 6.0 + + + + UGRD_ON_MAX_WIND + UGRD + 4.0 + + + + VGRD_ON_MAX_WIND + VGRD + 4.0 + + + + MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + WIND + -4.0 + + + + HGT_ON_CLOUD_BASE + HGT + 6.0 + + + + HGT_ON_CLOUD_TOP + HGT + 6.0 + + + + GSD_VIS_ON_SURFACE + VIS + 6.0 + + + + REFC_ON_ENTIRE_ATMOS + REFC + NCEP + 4.0 + + + + PRES_ON_GRID_SCALE_CLOUD_BOT_LVL + PRES + 6.0 + + + + PRES_ON_GRID_SCALE_CLOUD_TOP_LVL + PRES + 6.0 + + + + TCOLW_ON_ENTIRE_ATMOS + TCOLW + NCEP + 5.0 + + + + TCOLI_ON_ENTIRE_ATMOS + TCOLI + NCEP + 5.0 + + + + TCOLR_ON_ENTIRE_ATMOS + TCOLR + NCEP + 5.0 + + + + TCOLS_ON_ENTIRE_ATMOS + TCOLS + NCEP + 5.0 + + + + TCOLC_ON_ENTIRE_ATMOS + TCOLC + NCEP + 5.0 + + + + TCOLG_ON_ENTIRE_ATMOS + TCOLG + 5.0 + + + + VGTYP_ON_SURFACE + VGTYP + NCEP + 3.0 + + + + SOTYP_ON_SURFACE + SOTYP + 3.0 + + + + CCOND_ON_SURFACE + CCOND + NCEP + 3.0 + + + + HPBL_ON_SURFACE + HPBL + NCEP + 6.0 + + + + SNOD_ON_SURFACE + SNOD + 6.0 + + + + SBSNO_ON_SURFACE + SBSNO + NCEP + 3.0 + + + + SMDRY_ON_SURFACE + SMDRY + NCEP + 3.0 + + + + POROS_ON_SURFACE + POROS + NCEP + 3.0 + + + + RSMIN_ON_SURFACE + RSMIN + NCEP + 3.0 + + + + RLYRS_ON_SURFACE + RLYRS + NCEP + 3.0 + + + + WILT_ON_SURFACE + WILT + NCEP + 3.0 + + + + SMREF_ON_SURFACE + SMREF + NCEP + 3.0 + + + + RCS_ON_SURFACE + RCS + NCEP + 3.0 + + + + RCT_ON_SURFACE + RCT + NCEP + 5.0 + + + + RCQ_ON_SURFACE + RCQ + NCEP + 3.0 + + + + RCSOL_ON_SURFACE + RCSOL + NCEP + 3.0 + + + + PEVPR_ON_SURFACE + PEVPR + NCEP + 6.0 + + + + GUST_ON_SURFACE + GUST + 3.0 + + + + HGT_ON_LWST_LVL_OF_WET_BULB_ZERO + HGT + -5.0 + + + + LAI_ON_SURFACE + LAI + NCEP + -3.0 + + + + INST_CSDSF_ON_SURFACE + CSDSF + NCEP + 4.0 + + + + TCDC_ON_SIGMA_LVLS + TCDC + 4 + 9975. 9915. 9835. 9745. 9650. 9490. 9260. 9015. 8755. 8480. 8190. 7890. 7585. 7185. 6690. 6180. 5470. 4550. 3595. 2605. 1580. 530. + 3.0 + + + + HGT_ON_PLANETARY_BOUND_LYR + HGT + -4.0 + + + + MIXHT_ON_SURFACE + MIXHT + -4.0 + + + + TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + TMP + 10. + -4.0 + + + + AVE_SNOWC_ON_SURFACE + SNOWC + NCEP + 3.0 + + + + AVE_PRES_ON_SURFACE + PRES + 5.0 + + + + AVE_TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + TMP + 10. + -4.0 + + + + AVE_AKHS_ON_SURFACE + AKHS + NCEP + 3.0 + + + + AVE_AKMS_ON_SURFACE + AKMS + NCEP + 3.0 + + + + diff --git a/parm/makefile b/parm/makefile index 31a29f586..7d915cb4d 100644 --- a/parm/makefile +++ b/parm/makefile @@ -26,6 +26,7 @@ GFSTWOFLATFILENAME = postxconfig-NT-GFS-TWO.txt GFSTWOF00FLATFILENAME = postxconfig-NT-GFS-F00-TWO.txt HRRRFLATFILENAME = postxconfig-NT-hrrr.txt RAPFLATFILENAME = postxconfig-NT-rap.txt +RRFSFLATFILENAME = postxconfig-NT-fv3lam_rrfs.txt RTMA3DFLATFILENAME = postxconfig-NT-3drtma.txt # Source Post XML file @@ -54,6 +55,8 @@ HRRRAVAILXMLFILENAME = post_avblflds_raphrrr.xml RAPAVAILXMLFILENAME = post_avblflds_raphrrr.xml HRRRCTRLFILENAME = hrrr_postcntrl.xml RAPCTRLFILENAME = rap_postcntrl.xml +RRFSAVAILXMLFILENAME = post_avblflds.xml +RRFSCTRLFILENAME = fv3lam_rrfs.xml RTMA3DCTRLFILENAME = 3drtma_postcntrl.xml RTMA3DAVAILXMLFILENAME = post_avblflds.xml @@ -80,6 +83,7 @@ PERLXMLGFSTWO = /usr/bin/perl $(PERLXML) $(GFSTWOCTRLFILENAME) $(GFSAV PERLXMLGFSTWOF00 = /usr/bin/perl $(PERLXML) $(GFSTWOF00CTRLFILENAME) $(GFSAVAILXMLFILENAME) $(GFSTWOF00FLATFILENAME) PERLXMLHRRR = /usr/bin/perl $(PERLXML) $(HRRRCTRLFILENAME) $(HRRRAVAILXMLFILENAME) $(HRRRFLATFILENAME) PERLXMLRAP = /usr/bin/perl $(PERLXML) $(RAPCTRLFILENAME) $(RAPAVAILXMLFILENAME) $(RAPFLATFILENAME) +PERLXMLRRFS = /usr/bin/perl $(PERLXML) $(RRFSCTRLFILENAME) $(RRFSAVAILXMLFILENAME) $(RRFSFLATFILENAME) PERLXML3DRTMA = /usr/bin/perl $(PERLXML) $(RTMA3DCTRLFILENAME) $(RTMA3DAVAILXMLFILENAME) $(RTMA3DFLATFILENAME) # File to look for change @@ -102,10 +106,11 @@ GFSTWOXMLS = $(GFSAVAILXMLFILENAME) $(GFSTWOCTRLFILENAME) GFSTWOF00XMLS = $(GFSAVAILXMLFILENAME) $(GFSTWOF00CTRLFILENAME) HRRRXMLS = $(HRRRAVAILXMLFILENAME) $(HRRRCTRLFILENAME) RAPXMLS = $(RAPAVAILXMLFILENAME) $(RAPCTRLFILENAME) +RRFSXMLS = $(RRFSAVAILXMLFILENAME) $(RRFSCTRLFILENAME) RTMA3DXMLS = $(RTMA3DAVAILXMLFILENAME) $(RTMA3DCTRLFILENAME) # If action is triggered; run the following -all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) +all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RRFSFLATFILENAME) $(RTMA3DFLATFILENAME) $(GFSFLATFILENAME): $(GFSXMLS) $(PERLXMLGFS) $(GFSGOESFLATFILENAME): $(GFSGOESXMLS) @@ -142,6 +147,8 @@ $(HRRRFLATFILENAME): $(HRRRXMLS) $(PERLXMLHRRR) $(RAPFLATFILENAME): $(RAPXMLS) $(PERLXMLRAP) +$(RRFSFLATFILENAME): $(RRFSXMLS) + $(PERLXMLRRFS) $(RTMA3DFLATFILENAME): $(RTMA3DXMLS) $(PERLXML3DRTMA) diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index d36cc14fc..ff6a16031 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -4282,9 +4282,9 @@ 487 - GSD_PRES_ON_CLOUD_BASE - PRES - cloud_base + GSD_EXP_CEILING + CEIL + cloud_ceilng 3.0 @@ -6510,10 +6510,10 @@ 711 - GSD1_HGT_ON_CLOUD_BASE - HGT + GSD_EXP_CEILING_2 + CEIL cloud_base - 6.0 + 3.0 @@ -7215,6 +7215,106 @@ -4.0 + + 913 + 1H_FFG_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 914 + ACM_FFG_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 915 + 1H_2YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 916 + ACM_2YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 917 + 1H_5YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 918 + ACM_5YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 919 + 1H_10YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 920 + ACM_10YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 921 + 1H_100YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + + + 922 + ACM_100YARI_EXCEEDANCE + tmpl4_8 + FFLDRO + ACM + surface + 4.0 + + 927 SBTA167_ON_TOP_OF_ATMOS diff --git a/parm/postxconfig-NT-3drtma.txt b/parm/postxconfig-NT-3drtma.txt index 117c58e78..9f2e336f3 100644 --- a/parm/postxconfig-NT-3drtma.txt +++ b/parm/postxconfig-NT-3drtma.txt @@ -3941,14 +3941,14 @@ spec_hgt_lvl_above_grnd ? ? 487 -GSD_PRES_ON_CLOUD_BASE +GSD_EXP_CEILING ? 1 tmpl4_0 -PRES +CEIL ? ? -cloud_base +cloud_ceilng 0 ? 0 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt new file mode 100644 index 000000000..443730cb2 --- /dev/null +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -0,0 +1,17573 @@ +2 +220 +254 +BGDAWP +32769 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +noaa_fsl_boulder +hrrr +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +1 +PRES_ON_HYBRID_LVL +? +1 +tmpl4_0 +PRES +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +77 +HGT_ON_HYBRID_LVL +? +1 +tmpl4_0 +HGT +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +2 +TMP_ON_HYBRID_LVL +? +1 +tmpl4_0 +TMP +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +3 +POT_ON_HYBRID_LVL +? +1 +tmpl4_0 +POT +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +4 +DPT_ON_HYBRID_LVL +? +1 +tmpl4_0 +DPT +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +5 +SPFH_ON_HYBRID_LVL +? +1 +tmpl4_0 +SPFH +? +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +7.0 +0 +0 +0 +? +? +? +6 +RH_ON_HYBRID_LVL +? +1 +tmpl4_0 +RH +? +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +7 +UGRD_ON_HYBRID_LVL +? +1 +tmpl4_0 +UGRD +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +8 +VGRD_ON_HYBRID_LVL +? +1 +tmpl4_0 +VGRD +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +9 +VVEL_ON_HYBRID_LVL +? +1 +tmpl4_0 +VVEL +? +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +264 +DZDT_ON_HYBRID_LVL +? +1 +tmpl4_0 +DZDT +? +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-5.0 +0 +0 +0 +? +? +? +11 +TKE_ON_HYBRID_LVL +? +1 +tmpl4_0 +TKE +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +181 +RWMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +RWMR +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +182 +SNMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +SNMR +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +187 +RIME_ON_HYBRID_LVL +? +1 +tmpl4_0 +RIME +NCEP +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +199 +TCOND_ON_HYBRID_LVL +? +1 +tmpl4_0 +TCOND +NCEP +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +250 +REFD_ON_HYBRID_LVL +? +1 +tmpl4_0 +REFD +NCEP +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +146 +BMIXL_ON_HYBRID_LVL +? +1 +tmpl4_0 +BMIXL +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +12 +HGT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +HGT +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +13 +TMP_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +TMP +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +15 +DPT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +DPT +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +16 +SPFH_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +SPFH +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +17 +RH_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +RH +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +18 +UGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +UGRD +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +19 +VGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VGRD +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +20 +VVEL_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VVEL +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +284 +DZDT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +DZDT +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-5.0 +0 +0 +0 +? +? +? +21 +ABSV_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +ABSV +? +? +isobaric_sfc +0 +? +10 +20000. 25000. 30000. 40000. 50000. 70000. 75000. 85000. 92500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +86 +STRM_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +STRM +? +? +isobaric_sfc +0 +? +2 +25000. 50000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +166 +ICMR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +ICMR +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +153 +CLMR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +CLMR +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +183 +RWMR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +RWMR +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +416 +GRLE_ON_ISOBARIC_SFC +Graupel mixing ration on isobaric surface +1 +tmpl4_0 +GRLE +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +184 +SNMR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +SNMR +? +? +isobaric_sfc +0 +? +46 +200. 500. 700. 1000. 2000. 3000. 5000. 7000. 7500. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +23 +MSLET_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +MSLET +NCEP +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +445 +MAPS_PRMSL_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +PRMSL +? +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +106 +TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +TMP +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +112 +SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +SPFH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +113 +DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +DPT +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +114 +RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +RH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +64 +UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +UGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +65 +VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +VGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +245 +GUST_ON_SURFACE +? +1 +tmpl4_0 +GUST +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +246 +PLPL_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +PLPL +NCEP +? +spec_pres_above_grnd +0 +? +1 +25500. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +158 +POT_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +POT +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +159 +SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +SPFH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +24 +PRES_ON_SURFACE +? +1 +tmpl4_0 +PRES +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +25 +HGT_ON_SURFACE +? +1 +tmpl4_0 +HGT +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +27 +POT_ON_SURFACE +? +1 +tmpl4_0 +POT +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +28 +SPFH_ON_SURFACE +? +1 +tmpl4_0 +SPFH +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +26 +TMP_ON_SURFACE +? +1 +tmpl4_0 +TMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +116 +TSOIL_ON_DEPTH_BEL_LAND_SFC +? +1 +tmpl4_0 +TSOIL +? +? +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +117 +SOILW_ON_DEPTH_BEL_LAND_SFC +? +1 +tmpl4_0 +SOILW +NCEP +? +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +118 +CNWAT_ON_SURFACE +? +1 +tmpl4_0 +CNWAT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +119 +WEASD_ON_SURFACE +? +1 +tmpl4_0 +WEASD +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +120 +SNOWC_ON_SURFACE +? +1 +tmpl4_0 +SNOWC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +169 +SFEXC_ON_SURFACE +? +1 +tmpl4_0 +SFEXC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +170 +VEG_ON_SURFACE +? +1 +tmpl4_0 +VEG +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +218 +VGTYP_ON_SURFACE +? +1 +tmpl4_0 +VGTYP +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +219 +SOTYP_ON_SURFACE +? +1 +tmpl4_0 +SOTYP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +226 +SNFALB_ON_SURFACE +? +1 +tmpl4_0 +SNFALB +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +227 +MXSALB_ON_SURFACE +? +1 +tmpl4_0 +MXSALB +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +220 +CCOND_ON_SURFACE +? +1 +tmpl4_0 +CCOND +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +238 +RCS_ON_SURFACE +? +1 +tmpl4_0 +RCS +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +239 +RCT_ON_SURFACE +? +1 +tmpl4_0 +RCT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +240 +RCQ_ON_SURFACE +? +1 +tmpl4_0 +RCQ +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +241 +RCSOL_ON_SURFACE +? +1 +tmpl4_0 +RCSOL +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +237 +SMREF_ON_SURFACE +? +1 +tmpl4_0 +SMREF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +233 +POROS_ON_SURFACE +? +1 +tmpl4_0 +POROS +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +235 +RLYRS_ON_SURFACE +? +1 +tmpl4_0 +RLYRS +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +234 +RSMIN_ON_SURFACE +? +1 +tmpl4_0 +RSMIN +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +224 +SNOD_ON_SURFACE +? +1 +tmpl4_0 +SNOD +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +232 +SMDRY_ON_SURFACE +? +1 +tmpl4_0 +SMDRY +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +236 +WILT_ON_SURFACE +? +1 +tmpl4_0 +WILT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +171 +MSTAV_ON_DEPTH_BEL_LAND_SFC +? +1 +tmpl4_0 +MSTAV +NCEP +? +depth_bel_land_sfc +1 +2 +1 +0. +depth_bel_land_sfc +1 +2 +1 +100. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +152 +INST_GFLUX_ON_SURFACE +? +1 +tmpl4_0 +GFLUX +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +30 +LFTX_ON_ISOBARIC_SFC_500-1000hpa +? +1 +tmpl4_0 +LFTX +NCEP +? +isobaric_sfc +0 +? +1 +50000. +isobaric_sfc +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +31 +4LFTX_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +4LFTX +NCEP +? +spec_pres_above_grnd +0 +? +1 +18000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +75 +PLI_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +PLI +? +? +spec_pres_above_grnd +0 +? +1 +3000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +32 +CAPE_ON_SURFACE +? +1 +tmpl4_0 +CAPE +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +566 +BEST_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +18000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +582 +MIXED_LAYER_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +9000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +584 +UNSTABLE_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +25500. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +107 +CIN_ON_SURFACE +? +1 +tmpl4_0 +CIN +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +567 +BEST_CIN_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CIN +? +? +spec_pres_above_grnd +0 +? +1 +18000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +583 +MIXED_LAYER_CIN_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CIN +? +? +spec_pres_above_grnd +0 +? +1 +9000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +585 +UNSTABLE_CIN_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CIN +? +? +spec_pres_above_grnd +0 +? +1 +25500. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +80 +PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_0 +PWAT +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +162 +HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +HLCY +? +? +spec_hgt_lvl_above_grnd +0 +? +2 +3000. 1000. +spec_hgt_lvl_above_grnd +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +163 +USTM_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +USTM +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +1 +6000. +spec_hgt_lvl_above_grnd +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +164 +VSTM_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +VSTM +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +1 +6000. +spec_hgt_lvl_above_grnd +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +87 +ACM_APCP_ON_SURFACE +? +1 +tmpl4_8 +APCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +34 +ACM_NCPCP_ON_SURFACE +? +1 +tmpl4_8 +NCPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +417 +CACM_APCP_ON_SURFACE +? +1 +tmpl4_8 +APCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +419 +CACM_NCPCP_ON_SURFACE +? +1 +tmpl4_8 +NCPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +35 +ACM_WEASD_ON_SURFACE +? +1 +tmpl4_8 +WEASD +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +121 +ACM_SNOM_ON_SURFACE +? +1 +tmpl4_8 +SNOM +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +122 +ACM_SSRUN_ON_SURFACE +? +1 +tmpl4_8 +SSRUN +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +123 +ACM_BGRUN_ON_SURFACE +? +1 +tmpl4_8 +BGRUN +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +343 +ACM_WATR_ON_SURFACE +? +1 +tmpl4_8 +WATR +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +160 +INST_CRAIN_ON_SURFACE +? +1 +tmpl4_0 +CRAIN +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +551 +CSNOW_ON_SURFACE +Categorical snow on surface +1 +tmpl4_0 +CSNOW +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +552 +CICEP_ON_SURFACE +Categorical ice pellets on surface +1 +tmpl4_0 +CICEP +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +553 +CFRZR_ON_SURFACE +Categorical freezing rain on surface +1 +tmpl4_0 +CFRZR +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +167 +INST_PRATE_ON_SURFACE +? +1 +tmpl4_0 +PRATE +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +172 +CPOFP_ON_SURFACE +? +1 +tmpl4_0 +CPOFP +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +124 +CLMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +CLMR +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +125 +ICMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +ICMR +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +415 +GRLE_ON_HYBRID_LVL +Graupel mixing ration on hybrid level +1 +tmpl4_0 +GRLE +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +145 +TCDC_ON_HYBRID_LVL +? +1 +tmpl4_0 +TCDC +? +? +hybrid_lvl +0 +? +2 +1. 2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +37 +LCDC_ON_LOW_CLOUD_LYR +? +1 +tmpl4_0 +LCDC +? +? +low_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +38 +MCDC_ON_MID_CLOUD_LYR +? +1 +tmpl4_0 +MCDC +? +? +mid_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +39 +HCDC_ON_HIGH_CLOUD_LYR +? +1 +tmpl4_0 +HCDC +? +? +high_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +161 +INST_TCDC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCDC +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +144 +AVE_TCDC_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +TCDC +? +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +139 +AVE_CDLYR_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +CDLYR +NCEP +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface +1 +tmpl4_0 +VIS +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +109 +HGT_ON_LVL_OF_ADIAB_COND_FROM_SFC +? +1 +tmpl4_0 +HGT +? +? +lvl_of_adiab_cond_from_sfc +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +110 +PRES_ON_LVL_OF_ADIAB_COND_FROM_SFC +? +1 +tmpl4_0 +PRES +? +? +lvl_of_adiab_cond_from_sfc +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +141 +INST_USWRF_ON_SURFACE +? +1 +tmpl4_0 +USWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +142 +INST_ULWRF_ON_SURFACE +? +1 +tmpl4_0 +ULWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +126 +AVE_DSWRF_ON_SURFACE +? +1 +tmpl4_8 +DSWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +127 +AVE_DLWRF_ON_SURFACE +? +1 +tmpl4_8 +DLWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +128 +AVE_USWRF_ON_SURFACE +? +1 +tmpl4_8 +USWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +129 +AVE_ULWRF_ON_SURFACE +? +1 +tmpl4_8 +ULWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +130 +AVE_USWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_8 +USWRF +NCEP +AVE +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +131 +AVE_ULWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_8 +ULWRF +NCEP +AVE +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +274 +INST_ULWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +ULWRF +NCEP +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +275 +BRTMP_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +BRTMP +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +156 +INST_DSWRF_ON_SURFACE +? +1 +tmpl4_0 +DSWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +157 +INST_DLWRF_ON_SURFACE +? +1 +tmpl4_0 +DLWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +262 +INST_CSDSF_ON_SURFACE +? +1 +tmpl4_0 +CSDSF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +44 +SFCR_ON_SURFACE +? +1 +tmpl4_0 +SFCR +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.7 +0 +0 +0 +? +? +? +45 +FRICV_ON_SURFACE +? +1 +tmpl4_0 +FRICV +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +132 +CD_ON_SURFACE +? +1 +tmpl4_0 +CD +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +133 +UFLX_ON_SURFACE +? +1 +tmpl4_0 +UFLX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +134 +VFLX_ON_SURFACE +? +1 +tmpl4_0 +VFLX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +43 +AVE_SHTFL_ON_SURFACE +? +1 +tmpl4_8 +SHTFL +? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +135 +AVE_GFLUX_ON_SURFACE +? +1 +tmpl4_8 +GFLUX +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +136 +AVE_SNOHF_ON_SURFACE +? +1 +tmpl4_8 +SNOHF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +42 +AVE_LHTFL_ON_SURFACE +? +1 +tmpl4_8 +LHTFL +? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +47 +ACM_EVP_ON_SURFACE +? +1 +tmpl4_8 +EVP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +137 +ACM_PEVAP_ON_SURFACE +? +1 +tmpl4_8 +PEVAP +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +154 +INST_SHTFL_ON_SURFACE +? +1 +tmpl4_0 +SHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +155 +INST_LHTFL_ON_SURFACE +? +1 +tmpl4_0 +LHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +48 +NLAT_ON_SURFACE +? +1 +tmpl4_0 +NLAT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +49 +ELON_ON_SURFACE +? +1 +tmpl4_0 +ELON +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +50 +LAND_ON_SURFACE +? +1 +tmpl4_0 +LAND +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +51 +ICEC_ON_SURFACE +? +1 +tmpl4_0 +ICEC +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +150 +ALBDO_ON_SURFACE +? +1 +tmpl4_0 +ALBDO +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +151 +WTMP_ON_SURFACE +? +1 +tmpl4_0 +WTMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +54 +PRES_ON_TROPOPAUSE +? +1 +tmpl4_0 +PRES +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +177 +HGT_ON_TROPOPAUSE +? +1 +tmpl4_0 +HGT +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +55 +TMP_ON_TROPOPAUSE +? +1 +tmpl4_0 +TMP +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +108 +POT_ON_TROPOPAUSE +? +1 +tmpl4_0 +POT +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +56 +UGRD_ON_TROPOPAUSE +? +1 +tmpl4_0 +UGRD +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +57 +VGRD_ON_TROPOPAUSE +? +1 +tmpl4_0 +VGRD +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +58 +VWSH_ON_TROPOPAUSE +? +1 +tmpl4_0 +VWSH +NCEP +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +432 +VUCSH_ON_SPEC_HGT_LVL_ABOVE_GRND_0-6km +Vertical u-component shear between 0 to 6000m Above Ground +1 +tmpl4_0 +VUCSH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +0. +spec_hgt_lvl_above_grnd +0 +? +1 +6000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +433 +VVCSH_ON_SPEC_HGT_LVL_ABOVE_GRND_0-6km +Vertical v-component shear between 0 to 6000m Above Ground +1 +tmpl4_0 +VVCSH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +0. +spec_hgt_lvl_above_grnd +0 +? +1 +6000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +59 +TMP_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL +? +1 +tmpl4_0 +TMP +? +? +spec_alt_above_mean_sea_lvl +0 +? +10 +305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +586 +TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT +? +1 +tmpl4_0 +TMP +? +? +spec_hgt_lvl_above_grnd +0 +? +4 +30. 50. 80. 100. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +60 +UGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL +? +1 +tmpl4_0 +UGRD +? +? +spec_alt_above_mean_sea_lvl +0 +? +10 +305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +576 +UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT +? +1 +tmpl4_0 +UGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +4 +30. 50. 80. 100. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +61 +VGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL +? +1 +tmpl4_0 +VGRD +? +? +spec_alt_above_mean_sea_lvl +0 +? +10 +305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +577 +VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT +? +1 +tmpl4_0 +VGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +4 +30. 50. 80. 100. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +451 +SPFH_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL +? +1 +tmpl4_0 +SPFH +? +? +spec_alt_above_mean_sea_lvl +0 +? +1 +305. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +578 +SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT +? +1 +tmpl4_0 +SPFH +? +? +spec_hgt_lvl_above_grnd +0 +? +4 +30. 50. 80. 100. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +579 +PRES_ON_SPEC_HGT_LVL_ABOVE_GRND_FDHGT +? +1 +tmpl4_0 +PRES +? +? +spec_hgt_lvl_above_grnd +0 +? +4 +30. 50. 80. 100. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +62 +HGT_ON_0C_ISOTHERM +? +1 +tmpl4_0 +HGT +? +? +0C_isotherm +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +63 +RH_ON_0C_ISOTHERM +? +1 +tmpl4_0 +RH +? +? +0C_isotherm +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +165 +HGT_ON_HGHST_TROP_FRZ_LVL +? +1 +tmpl4_0 +HGT +? +? +hghst_trop_frz_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +247 +HGT_ON_LWST_LVL_OF_WET_BULB_ZERO +? +1 +tmpl4_0 +HGT +? +? +lwst_lvl_of_wet_bulb_zero +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-5.0 +0 +0 +0 +? +? +? +67 +PRES_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +PRES +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +68 +TMP_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +TMP +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +69 +POT_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +POT +? +? +spec_pres_above_grnd +0 +? +1 +3000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +70 +DPT_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +DPT +? +? +spec_pres_above_grnd +0 +? +1 +3000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +71 +SPFH_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +SPFH +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +72 +RH_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +RH +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +89 +PWAT_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +PWAT +? +? +spec_pres_above_grnd +0 +? +1 +3000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +73 +UGRD_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +UGRD +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +74 +VGRD_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +VGRD +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +90 +VVEL_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +VVEL +? +? +spec_pres_above_grnd +0 +? +3 +3000. 9000. 18000. +spec_pres_above_grnd +0 +? +3 +0. 6000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +148 +PRES_ON_CLOUD_BASE +? +1 +tmpl4_0 +PRES +? +? +cloud_base +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +149 +PRES_ON_CLOUD_TOP +? +1 +tmpl4_0 +PRES +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +168 +TMP_ON_CLOUD_TOP +? +1 +tmpl4_0 +TMP +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +178 +HGT_ON_CLOUD_BASE +? +1 +tmpl4_0 +HGT +? +? +cloud_base +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +179 +HGT_ON_CLOUD_TOP +? +1 +tmpl4_0 +HGT +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +168 +TMP_ON_CLOUD_TOP +? +1 +tmpl4_0 +TMP +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +173 +PRES_ON_MAX_WIND +? +1 +tmpl4_0 +PRES +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +174 +HGT_ON_MAX_WIND +? +1 +tmpl4_0 +HGT +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +175 +UGRD_ON_MAX_WIND +? +1 +tmpl4_0 +UGRD +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +176 +VGRD_ON_MAX_WIND +? +1 +tmpl4_0 +VGRD +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +252 +REFC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +REFC +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +276 +REFZR_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +REFZR +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +277 +REFZI_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +REFZI +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +253 +REFD_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +REFD +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +2 +4000. 1000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +279 +REFZR_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +REFZR +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +2 +4000. 1000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +280 +REFZI_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +REFZI +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +2 +4000. 1000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +221 +HPBL_ON_SURFACE +? +1 +tmpl4_0 +HPBL +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +194 +PRES_ON_GRID_SCALE_CLOUD_BOT_LVL +? +1 +tmpl4_0 +PRES +? +? +grid_scale_cloud_bot_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +195 +PRES_ON_GRID_SCALE_CLOUD_TOP_LVL +? +1 +tmpl4_0 +PRES +? +? +grid_scale_cloud_top_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +200 +TCOLW_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLW +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +201 +TCOLI_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLI +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +202 +TCOLR_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLR +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +203 +TCOLS_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLS +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +204 +TCOLC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLC +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +428 +TCOLG_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLG +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +285 +TCLSW_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCLSW +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +286 +TCOLM_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLM +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +287 +HGT_ON_LWST_BOT_LVL_OF_SUPERCOOLED_LIQ_WATER_LYR +? +1 +tmpl4_0 +HGT +? +? +lwst_bot_lvl_of_supercooled_liq_water_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +288 +HGT_ON_HGHST_TOP_LVL_OF_SUPERCOOLED_LIQ_WATER_LYR +? +1 +tmpl4_0 +HGT +? +? +hghst_top_lvl_of_supercooled_liq_water_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +408 +GSD_HGT_ON_CLOUD_CEILING +GSD_geopotential height on cloud ceiling +1 +tmpl4_0 +HGT +? +? +cloud_ceilng +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +487 +GSD_EXP_CEILING +? +1 +tmpl4_0 +CEIL +? +? +cloud_ceilng +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +711 +GSD_EXP_CEILING_2 +? +1 +tmpl4_0 +CEIL +? +? +cloud_base +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +256 +ACM_LSPA_ON_SURFACE +? +1 +tmpl4_8 +LSPA +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +282 +PRES_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +PRES +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +290 +SWHR_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +SWHR +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +291 +LWHR_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +LWHR +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +292 +AVE_LRGHR_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +LRGHR +NCEP +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +296 +TMP_ON_SIGMA_LVL_HPC +? +1 +tmpl4_0 +TMP +? +? +sigma_lvl +1 +4 +5 +9000. 8500. 8000. 7500. 7000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +344 +PBLREG_ON_SURFACE +? +1 +tmpl4_0 +PBLREG +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +389 +UGRD_ON_PLANETARY_BOUND_LYR +? +1 +tmpl4_0 +UGRD +? +? +planetary_bound_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +390 +VGRD_ON_PLANETARY_BOUND_LYR +? +1 +tmpl4_0 +VGRD +? +? +planetary_bound_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +289 +HGT_ON_PLANETARY_BOUND_LYR +? +1 +tmpl4_0 +HGT +? +? +planetary_bound_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +381 +MIXHT_ON_SURFACE +? +1 +tmpl4_0 +MIXHT +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +400 +RETOP_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_0 +RETOP +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +454 +VRATE_ON_PLANETARY_BOUND_LYR +Ventilation Rate on planetary boundary layer +1 +tmpl4_0 +VRATE +NCEP +? +planetary_bound_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +455 +HINDEX_ON_SURFACE +Haines Index on surface +1 +tmpl4_0 +HINDEX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +345 +MAX_TMAX_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +TMAX +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +346 +MIN_TMIN_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +TMIN +? +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +347 +MAX_MAXRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +MAXRH +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-2.0 +0 +0 +0 +? +? +? +348 +MIN_MINRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +MINRH +NCEP +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-2.0 +0 +0 +0 +? +? +? +506 +MAX_MAXUW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +U Component of Hourly Maximum 10m Wind Speed (m/s) +1 +tmpl4_8 +MAXUW +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +507 +MAX_MAXVW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +V Component of Hourly Maximum 10m Wind Speed (m/s) +1 +tmpl4_8 +MAXVW +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +422 +MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +maximum wind speed on 10 meter Above Ground +1 +tmpl4_8 +WIND +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +421 +MAX_REF_ON_SPEC_HGT_LVL_ABOVE_GRND_1km +maximum Updraft Helicity on Specified Height Level Above Ground +1 +tmpl4_8 +MAXREF +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +1000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +423 +MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +hourly maximum Upward Vertical Velocity between 100-1000hpa +1 +tmpl4_8 +MAXUVV +NCEP +MAX +spec_pres_above_grnd +0 +? +1 +10000. +spec_pres_above_grnd +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +424 +MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +hourly maximum Downward Vertical Velocity between 100-1000hpa +1 +tmpl4_8 +MAXDVV +NCEP +MAX +spec_pres_above_grnd +0 +? +1 +10000. +spec_pres_above_grnd +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +508 +MAX_PRATE_ON_SURFACE +Maximum Precipitation Rate on surface +1 +tmpl4_8 +PRATE +? +MAX +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +444 +LTNG_ON_SURFACE +lightning +1 +tmpl4_0 +LTNG +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +581 +VIL_ON_ENTIRE_ATMOS +entire atmosphere Vertically Integrated Liquid (kg/m-2) +1 +tmpl4_0 +VIL +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +427 +UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km +Updraft Helicity on Specified Height Level Above Ground +1 +tmpl4_0 +UPHL +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +1 +5000. +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +420 +MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km +maximum Updraft Helicity on Specified Height Level Above Ground +1 +tmpl4_8 +MXUPHL +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +5000. +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +786 +GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km +? +1 +tmpl4_8 +MNUPHL +NCEP +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +5000. +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +791 +GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km +? +1 +tmpl4_8 +MNUPHL +NCEP +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +3000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +790 +GSD_MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km +? +1 +tmpl4_8 +MXUPHL +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +3000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +793 +GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-1km +? +1 +tmpl4_8 +RELV +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +1000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +890 +GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_HYBRID1 +Hourly max relative vorticity on hybrid level 1 +1 +tmpl4_8 +RELV +? +MAX +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +792 +GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-2km +? +1 +tmpl4_8 +RELV +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +785 +MAX_REF_ON_ISOTHERMAL_-10C +maximum reflectivity on -10C suface +1 +tmpl4_8 +MAXREF +NCEP +MAX +isothermal +0 +? +1 +263. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +912 +REFD_ON_ISOTHERMAL +? +1 +tmpl4_0 +REFD +NCEP +? +isothermal +0 +? +1 +263. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +913 +1H_FFG_EXCEEDANCE +? +1 +tmpl4_8 +FFLDRO +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +914 +ACM_FFG_EXCEEDANCE +? +1 +tmpl4_8 +FFLDRO +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +BGRD3D +32769 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +noaa_fsl_boulder +hrrr +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +12 +HGT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +HGT +? +? +isobaric_sfc +0 +? +4 +25000. 50000. 70000. 85000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +13 +TMP_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +TMP +? +? +isobaric_sfc +0 +? +5 +25000. 50000. 70000. 85000. 95000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +17 +RH_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +RH +? +? +isobaric_sfc +0 +? +4 +25000. 50000. 70000. 85000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +18 +UGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +UGRD +? +? +isobaric_sfc +0 +? +4 +25000. 50000. 70000. 85000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +19 +VGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VGRD +? +? +isobaric_sfc +0 +? +4 +25000. 50000. 70000. 85000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +20 +VVEL_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VVEL +? +? +isobaric_sfc +0 +? +4 +25000. 50000. 70000. 85000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +16 +SPFH_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +SPFH +? +? +isobaric_sfc +0 +? +4 +25000. 50000. 70000. 85000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +21 +ABSV_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +ABSV +? +? +isobaric_sfc +0 +? +4 +25000. 50000. 70000. 85000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1 +PRES_ON_HYBRID_LVL +? +1 +tmpl4_0 +PRES +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +77 +HGT_ON_HYBRID_LVL +? +1 +tmpl4_0 +HGT +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +2 +TMP_ON_HYBRID_LVL +? +1 +tmpl4_0 +TMP +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +5 +SPFH_ON_HYBRID_LVL +? +1 +tmpl4_0 +SPFH +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +7.0 +0 +0 +0 +? +? +? +7 +UGRD_ON_HYBRID_LVL +? +1 +tmpl4_0 +UGRD +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +8 +VGRD_ON_HYBRID_LVL +? +1 +tmpl4_0 +VGRD +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +9 +VVEL_ON_HYBRID_LVL +? +1 +tmpl4_0 +VVEL +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +264 +DZDT_ON_HYBRID_LVL +? +1 +tmpl4_0 +DZDT +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-5.0 +0 +0 +0 +? +? +? +11 +TKE_ON_HYBRID_LVL +? +1 +tmpl4_0 +TKE +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +23 +MSLET_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +MSLET +NCEP +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +445 +MAPS_PRMSL_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +PRMSL +? +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +106 +TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +TMP +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +112 +SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +SPFH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +113 +DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +DPT +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +114 +RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +RH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +64 +UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +UGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +65 +VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +VGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +158 +POT_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +POT +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +159 +SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +SPFH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +24 +PRES_ON_SURFACE +? +1 +tmpl4_0 +PRES +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +25 +HGT_ON_SURFACE +? +1 +tmpl4_0 +HGT +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +27 +POT_ON_SURFACE +? +1 +tmpl4_0 +POT +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +28 +SPFH_ON_SURFACE +? +1 +tmpl4_0 +SPFH +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +26 +TMP_ON_SURFACE +? +1 +tmpl4_0 +TMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +423 +MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +hourly maximum Upward Vertical Velocity between 100-1000hpa +1 +tmpl4_8 +MAXUVV +NCEP +MAX +spec_pres_above_grnd +0 +? +1 +10000. +spec_pres_above_grnd +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +424 +MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +hourly maximum Downward Vertical Velocity between 100-1000hpa +1 +tmpl4_8 +MAXDVV +NCEP +MAX +spec_pres_above_grnd +0 +? +1 +10000. +spec_pres_above_grnd +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +790 +GSD_MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km +? +1 +tmpl4_8 +MXUPHL +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +3000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +420 +MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km +maximum Updraft Helicity on Specified Height Level Above Ground +1 +tmpl4_8 +MXUPHL +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +5000. +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +786 +GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km +? +1 +tmpl4_8 +MNUPHL +NCEP +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +5000. +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +791 +GSD_MIN_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km +? +1 +tmpl4_8 +MNUPHL +NCEP +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +3000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +793 +GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-1km +? +1 +tmpl4_8 +RELV +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +1000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +890 +GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_HYBRID1 +Hourly max relative vorticity on hybrid level 1 +1 +tmpl4_8 +RELV +? +MAX +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +792 +GSD_MAX_REL_VORT_ON_SPEC_HGT_LVL_ABOVE_GRND_0-2km +? +1 +tmpl4_8 +RELV +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +506 +MAX_MAXUW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +U Component of Hourly Maximum 10m Wind Speed (m/s) +1 +tmpl4_8 +MAXUW +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +507 +MAX_MAXVW_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +V Component of Hourly Maximum 10m Wind Speed (m/s) +1 +tmpl4_8 +MAXVW +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +421 +MAX_REF_ON_SPEC_HGT_LVL_ABOVE_GRND_1km +maximum Updraft Helicity on Specified Height Level Above Ground +1 +tmpl4_8 +MAXREF +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +1000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +785 +MAX_REF_ON_ISOTHERMAL_-10C +maximum reflectivity on -10C suface +1 +tmpl4_8 +MAXREF +NCEP +MAX +isothermal +0 +? +1 +263. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +912 +REFD_ON_ISOTHERMAL +? +1 +tmpl4_0 +REFD +NCEP +? +isothermal +0 +? +1 +263. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +345 +MAX_TMAX_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +TMAX +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +346 +MIN_TMIN_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +TMIN +? +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +347 +MAX_MAXRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +MAXRH +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-2.0 +0 +0 +0 +? +? +? +348 +MIN_MINRH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_8 +MINRH +NCEP +MIN +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-2.0 +0 +0 +0 +? +? +? +116 +TSOIL_ON_DEPTH_BEL_LAND_SFC +? +1 +tmpl4_0 +TSOIL +? +? +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +117 +SOILW_ON_DEPTH_BEL_LAND_SFC +? +1 +tmpl4_0 +SOILW +NCEP +? +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +depth_bel_land_sfc +1 +2 +9 +0. 1. 4. 10. 30. 60. 100. 160. 300. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +169 +SFEXC_ON_SURFACE +? +1 +tmpl4_0 +SFEXC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +170 +VEG_ON_SURFACE +? +1 +tmpl4_0 +VEG +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +171 +MSTAV_ON_DEPTH_BEL_LAND_SFC +? +1 +tmpl4_0 +MSTAV +NCEP +? +depth_bel_land_sfc +1 +2 +1 +0. +depth_bel_land_sfc +1 +2 +1 +100. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +152 +INST_GFLUX_ON_SURFACE +? +1 +tmpl4_0 +GFLUX +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +118 +CNWAT_ON_SURFACE +? +1 +tmpl4_0 +CNWAT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +119 +WEASD_ON_SURFACE +? +1 +tmpl4_0 +WEASD +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +31 +4LFTX_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +4LFTX +NCEP +? +spec_pres_above_grnd +0 +? +1 +18000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +80 +PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_0 +PWAT +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +87 +ACM_APCP_ON_SURFACE +? +1 +tmpl4_8 +APCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +34 +ACM_NCPCP_ON_SURFACE +? +1 +tmpl4_8 +NCPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +417 +CACM_APCP_ON_SURFACE +? +1 +tmpl4_8 +APCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +419 +CACM_NCPCP_ON_SURFACE +? +1 +tmpl4_8 +NCPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +35 +ACM_WEASD_ON_SURFACE +? +1 +tmpl4_8 +WEASD +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +121 +ACM_SNOM_ON_SURFACE +? +1 +tmpl4_8 +SNOM +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +122 +ACM_SSRUN_ON_SURFACE +? +1 +tmpl4_8 +SSRUN +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +123 +ACM_BGRUN_ON_SURFACE +? +1 +tmpl4_8 +BGRUN +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +160 +INST_CRAIN_ON_SURFACE +? +1 +tmpl4_0 +CRAIN +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +551 +CSNOW_ON_SURFACE +Categorical snow on surface +1 +tmpl4_0 +CSNOW +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +552 +CICEP_ON_SURFACE +Categorical ice pellets on surface +1 +tmpl4_0 +CICEP +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +553 +CFRZR_ON_SURFACE +Categorical freezing rain on surface +1 +tmpl4_0 +CFRZR +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +167 +INST_PRATE_ON_SURFACE +? +1 +tmpl4_0 +PRATE +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +172 +CPOFP_ON_SURFACE +? +1 +tmpl4_0 +CPOFP +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +124 +CLMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +CLMR +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +125 +ICMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +ICMR +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +415 +GRLE_ON_HYBRID_LVL +Graupel mixing ration on hybrid level +1 +tmpl4_0 +GRLE +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +145 +TCDC_ON_HYBRID_LVL +? +1 +tmpl4_0 +TCDC +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +181 +RWMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +RWMR +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +182 +SNMR_ON_HYBRID_LVL +? +1 +tmpl4_0 +SNMR +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +766 +GSD_NCWFA_ON_HYBRID_LVL +? +1 +tmpl4_0 +PMTF +NCEP +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +767 +GSD_NCIFA_ON_HYBRID_LVL +? +1 +tmpl4_0 +PMTC +NCEP +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +37 +LCDC_ON_LOW_CLOUD_LYR +? +1 +tmpl4_0 +LCDC +? +? +low_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +38 +MCDC_ON_MID_CLOUD_LYR +? +1 +tmpl4_0 +MCDC +? +? +mid_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +39 +HCDC_ON_HIGH_CLOUD_LYR +? +1 +tmpl4_0 +HCDC +? +? +high_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +161 +INST_TCDC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCDC +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +144 +AVE_TCDC_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +TCDC +? +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +139 +AVE_CDLYR_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +CDLYR +NCEP +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +141 +INST_USWRF_ON_SURFACE +? +1 +tmpl4_0 +USWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +142 +INST_ULWRF_ON_SURFACE +? +1 +tmpl4_0 +ULWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +126 +AVE_DSWRF_ON_SURFACE +? +1 +tmpl4_8 +DSWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +127 +AVE_DLWRF_ON_SURFACE +? +1 +tmpl4_8 +DLWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +128 +AVE_USWRF_ON_SURFACE +? +1 +tmpl4_8 +USWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +129 +AVE_ULWRF_ON_SURFACE +? +1 +tmpl4_8 +ULWRF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +130 +AVE_USWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_8 +USWRF +NCEP +AVE +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +131 +AVE_ULWRF_ON_TOP_OF_ATMOS +? +1 +tmpl4_8 +ULWRF +NCEP +AVE +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +156 +INST_DSWRF_ON_SURFACE +? +1 +tmpl4_0 +DSWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +157 +INST_DLWRF_ON_SURFACE +? +1 +tmpl4_0 +DLWRF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +262 +INST_CSDSF_ON_SURFACE +? +1 +tmpl4_0 +CSDSF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +44 +SFCR_ON_SURFACE +? +1 +tmpl4_0 +SFCR +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.7 +0 +0 +0 +? +? +? +45 +FRICV_ON_SURFACE +? +1 +tmpl4_0 +FRICV +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +132 +CD_ON_SURFACE +? +1 +tmpl4_0 +CD +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +133 +UFLX_ON_SURFACE +? +1 +tmpl4_0 +UFLX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +134 +VFLX_ON_SURFACE +? +1 +tmpl4_0 +VFLX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +43 +AVE_SHTFL_ON_SURFACE +? +1 +tmpl4_8 +SHTFL +? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +135 +AVE_GFLUX_ON_SURFACE +? +1 +tmpl4_8 +GFLUX +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +136 +AVE_SNOHF_ON_SURFACE +? +1 +tmpl4_8 +SNOHF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +42 +AVE_LHTFL_ON_SURFACE +? +1 +tmpl4_8 +LHTFL +? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +47 +ACM_EVP_ON_SURFACE +? +1 +tmpl4_8 +EVP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +137 +ACM_PEVAP_ON_SURFACE +? +1 +tmpl4_8 +PEVAP +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +154 +INST_SHTFL_ON_SURFACE +? +1 +tmpl4_0 +SHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +155 +INST_LHTFL_ON_SURFACE +? +1 +tmpl4_0 +LHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +48 +NLAT_ON_SURFACE +? +1 +tmpl4_0 +NLAT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +49 +ELON_ON_SURFACE +? +1 +tmpl4_0 +ELON +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +50 +LAND_ON_SURFACE +? +1 +tmpl4_0 +LAND +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +51 +ICEC_ON_SURFACE +? +1 +tmpl4_0 +ICEC +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +52 +LMH_ON_SURFACE +? +1 +tmpl4_0 +LMH +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +53 +LMV_ON_SURFACE +? +1 +tmpl4_0 +LMV +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +150 +ALBDO_ON_SURFACE +? +1 +tmpl4_0 +ALBDO +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +151 +WTMP_ON_SURFACE +? +1 +tmpl4_0 +WTMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +67 +PRES_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +PRES +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +68 +TMP_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +TMP +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +69 +POT_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +POT +? +? +spec_pres_above_grnd +0 +? +1 +3000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +70 +DPT_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +DPT +? +? +spec_pres_above_grnd +0 +? +1 +3000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +71 +SPFH_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +SPFH +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +72 +RH_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +RH +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +89 +PWAT_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +PWAT +? +? +spec_pres_above_grnd +0 +? +1 +3000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +73 +UGRD_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +UGRD +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +74 +VGRD_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +VGRD +? +? +spec_pres_above_grnd +0 +? +6 +3000. 6000. 9000. 12000. 15000. 18000. +spec_pres_above_grnd +0 +? +6 +0. 3000. 6000. 9000. 12000. 15000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +256 +ACM_LSPA_ON_SURFACE +? +1 +tmpl4_8 +LSPA +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +282 +PRES_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +PRES +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +283 +PRES_ON_HYBRID_LVL_1L +? +1 +tmpl4_0 +PRES +? +? +hybrid_lvl +0 +? +1 +1. +hybrid_lvl +0 +? +1 +21. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +273 +PRES_ON_HYBRID_LVL_LLM +? +1 +tmpl4_0 +PRES +? +? +hybrid_lvl +0 +? +1 +1. +hybrid_lvl +0 +? +1 +61. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +118 +CNWAT_ON_SURFACE +? +1 +tmpl4_0 +CNWAT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +1.0 +0 +0 +0 +? +? +? +152 +INST_GFLUX_ON_SURFACE +? +1 +tmpl4_0 +GFLUX +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +30 +LFTX_ON_ISOBARIC_SFC_500-1000hpa +? +1 +tmpl4_0 +LFTX +NCEP +? +isobaric_sfc +0 +? +1 +50000. +isobaric_sfc +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +32 +CAPE_ON_SURFACE +? +1 +tmpl4_0 +CAPE +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +566 +BEST_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +18000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +582 +MIXED_LAYER_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +9000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +584 +UNSTABLE_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +25500. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +107 +CIN_ON_SURFACE +? +1 +tmpl4_0 +CIN +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +567 +BEST_CIN_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CIN +? +? +spec_pres_above_grnd +0 +? +1 +18000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +583 +MIXED_LAYER_CIN_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CIN +? +? +spec_pres_above_grnd +0 +? +1 +9000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +585 +UNSTABLE_CIN_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CIN +? +? +spec_pres_above_grnd +0 +? +1 +25500. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +246 +PLPL_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +PLPL +NCEP +? +spec_pres_above_grnd +0 +? +1 +25500. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +162 +HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +HLCY +? +? +spec_hgt_lvl_above_grnd +0 +? +2 +3000. 1000. +spec_hgt_lvl_above_grnd +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +163 +USTM_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +USTM +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +1 +6000. +spec_hgt_lvl_above_grnd +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +164 +VSTM_ON_SPEC_HGT_LVL_ABOVE_GRND +? +1 +tmpl4_0 +VSTM +NCEP +? +spec_hgt_lvl_above_grnd +0 +? +1 +6000. +spec_hgt_lvl_above_grnd +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +37 +LCDC_ON_LOW_CLOUD_LYR +? +1 +tmpl4_0 +LCDC +? +? +low_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +38 +MCDC_ON_MID_CLOUD_LYR +? +1 +tmpl4_0 +MCDC +? +? +mid_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +39 +HCDC_ON_HIGH_CLOUD_LYR +? +1 +tmpl4_0 +HCDC +? +? +high_cloud_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +144 +AVE_TCDC_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +TCDC +? +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +139 +AVE_CDLYR_ON_ENTIRE_ATMOS +? +1 +tmpl4_8 +CDLYR +NCEP +AVE +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +148 +PRES_ON_CLOUD_BASE +? +1 +tmpl4_0 +PRES +? +? +cloud_base +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +149 +PRES_ON_CLOUD_TOP +? +1 +tmpl4_0 +PRES +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +168 +TMP_ON_CLOUD_TOP +? +1 +tmpl4_0 +TMP +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +135 +AVE_GFLUX_ON_SURFACE +? +1 +tmpl4_8 +GFLUX +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +136 +AVE_SNOHF_ON_SURFACE +? +1 +tmpl4_8 +SNOHF +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +47 +ACM_EVP_ON_SURFACE +? +1 +tmpl4_8 +EVP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +154 +INST_SHTFL_ON_SURFACE +? +1 +tmpl4_0 +SHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +155 +INST_LHTFL_ON_SURFACE +? +1 +tmpl4_0 +LHTFL +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +54 +PRES_ON_TROPOPAUSE +? +1 +tmpl4_0 +PRES +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +177 +HGT_ON_TROPOPAUSE +? +1 +tmpl4_0 +HGT +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +55 +TMP_ON_TROPOPAUSE +? +1 +tmpl4_0 +TMP +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +56 +UGRD_ON_TROPOPAUSE +? +1 +tmpl4_0 +UGRD +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +57 +VGRD_ON_TROPOPAUSE +? +1 +tmpl4_0 +VGRD +? +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +58 +VWSH_ON_TROPOPAUSE +? +1 +tmpl4_0 +VWSH +NCEP +? +tropopause +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +59 +TMP_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL +? +1 +tmpl4_0 +TMP +? +? +spec_alt_above_mean_sea_lvl +0 +? +10 +305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +60 +UGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL +? +1 +tmpl4_0 +UGRD +? +? +spec_alt_above_mean_sea_lvl +0 +? +10 +305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +61 +VGRD_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL +? +1 +tmpl4_0 +VGRD +? +? +spec_alt_above_mean_sea_lvl +0 +? +10 +305. 457. 610. 914. 1524. 1829. 2134. 2743. 3658. 4572. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +62 +HGT_ON_0C_ISOTHERM +? +1 +tmpl4_0 +HGT +? +? +0C_isotherm +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +63 +RH_ON_0C_ISOTHERM +? +1 +tmpl4_0 +RH +? +? +0C_isotherm +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +165 +HGT_ON_HGHST_TROP_FRZ_LVL +? +1 +tmpl4_0 +HGT +? +? +hghst_trop_frz_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +173 +PRES_ON_MAX_WIND +? +1 +tmpl4_0 +PRES +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +174 +HGT_ON_MAX_WIND +? +1 +tmpl4_0 +HGT +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +175 +UGRD_ON_MAX_WIND +? +1 +tmpl4_0 +UGRD +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +176 +VGRD_ON_MAX_WIND +? +1 +tmpl4_0 +VGRD +? +? +max_wind +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +422 +MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +maximum wind speed on 10 meter Above Ground +1 +tmpl4_8 +WIND +? +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +178 +HGT_ON_CLOUD_BASE +? +1 +tmpl4_0 +HGT +? +? +cloud_base +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +179 +HGT_ON_CLOUD_TOP +? +1 +tmpl4_0 +HGT +? +? +cloud_top +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface +1 +tmpl4_0 +VIS +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +252 +REFC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +REFC +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +194 +PRES_ON_GRID_SCALE_CLOUD_BOT_LVL +? +1 +tmpl4_0 +PRES +? +? +grid_scale_cloud_bot_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +195 +PRES_ON_GRID_SCALE_CLOUD_TOP_LVL +? +1 +tmpl4_0 +PRES +? +? +grid_scale_cloud_top_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +200 +TCOLW_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLW +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +201 +TCOLI_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLI +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +202 +TCOLR_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLR +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +203 +TCOLS_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLS +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +204 +TCOLC_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLC +NCEP +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +428 +TCOLG_ON_ENTIRE_ATMOS +? +1 +tmpl4_0 +TCOLG +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +218 +VGTYP_ON_SURFACE +? +1 +tmpl4_0 +VGTYP +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +219 +SOTYP_ON_SURFACE +? +1 +tmpl4_0 +SOTYP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +220 +CCOND_ON_SURFACE +? +1 +tmpl4_0 +CCOND +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +221 +HPBL_ON_SURFACE +? +1 +tmpl4_0 +HPBL +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +224 +SNOD_ON_SURFACE +? +1 +tmpl4_0 +SNOD +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +231 +SBSNO_ON_SURFACE +? +1 +tmpl4_0 +SBSNO +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +232 +SMDRY_ON_SURFACE +? +1 +tmpl4_0 +SMDRY +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +233 +POROS_ON_SURFACE +? +1 +tmpl4_0 +POROS +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +234 +RSMIN_ON_SURFACE +? +1 +tmpl4_0 +RSMIN +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +235 +RLYRS_ON_SURFACE +? +1 +tmpl4_0 +RLYRS +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +236 +WILT_ON_SURFACE +? +1 +tmpl4_0 +WILT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +237 +SMREF_ON_SURFACE +? +1 +tmpl4_0 +SMREF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +238 +RCS_ON_SURFACE +? +1 +tmpl4_0 +RCS +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +239 +RCT_ON_SURFACE +? +1 +tmpl4_0 +RCT +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +240 +RCQ_ON_SURFACE +? +1 +tmpl4_0 +RCQ +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +241 +RCSOL_ON_SURFACE +? +1 +tmpl4_0 +RCSOL +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +242 +PEVPR_ON_SURFACE +? +1 +tmpl4_0 +PEVPR +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +245 +GUST_ON_SURFACE +? +1 +tmpl4_0 +GUST +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +247 +HGT_ON_LWST_LVL_OF_WET_BULB_ZERO +? +1 +tmpl4_0 +HGT +? +? +lwst_lvl_of_wet_bulb_zero +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-5.0 +0 +0 +0 +? +? +? +254 +LAI_ON_SURFACE +? +1 +tmpl4_0 +LAI +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +262 +INST_CSDSF_ON_SURFACE +? +1 +tmpl4_0 +CSDSF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +222 +TCDC_ON_SIGMA_LVLS +? +1 +tmpl4_0 +TCDC +? +? +sigma_lvl +1 +4 +22 +9975. 9915. 9835. 9745. 9650. 9490. 9260. 9015. 8755. 8480. 8190. 7890. 7585. 7185. 6690. 6180. 5470. 4550. 3595. 2605. 1580. 530. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +289 +HGT_ON_PLANETARY_BOUND_LYR +? +1 +tmpl4_0 +HGT +? +? +planetary_bound_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +381 +MIXHT_ON_SURFACE +? +1 +tmpl4_0 +MIXHT +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +505 +TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +TMP +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +500 +AVE_SNOWC_ON_SURFACE +? +1 +tmpl4_8 +SNOWC +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +501 +AVE_PRES_ON_SURFACE +? +1 +tmpl4_8 +PRES +? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +502 +AVE_TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_8 +TMP +? +AVE +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +503 +AVE_AKHS_ON_SURFACE +? +1 +tmpl4_8 +AKHS +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +504 +AVE_AKMS_ON_SURFACE +? +1 +tmpl4_8 +AKMS +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index d8c1eb143..df5799171 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -1720,11 +1720,9 @@ SUBROUTINE CLDRAD ENDIF ENDIF -! GSD CLOUD CEILING ALGORITHM -! J. Kenyon, 3 Feb 2017: formerly described here as -! "GSD CLOUD BOTTOM HEIGHT". An alternative (experimental) -! GSD cloud ceiling algorithm is offered further below. +! GSD CLOUD CEILING ALGORITHMS... +! Parameter 408: legacy ceiling diagnostic IF (IGET(408)>0) THEN !- imported from RUC post ! -- constants for effect of snow on ceiling @@ -1746,19 +1744,11 @@ SUBROUTINE CLDRAD Cloud_def_p = 0.0000001 DO J=JSTA,JEND - DO I=1,IM -! !- imported from RUC post - IF(MODELNAME == 'RAPR') then - CLDZ(I,J) = SPVAL - pcldbase = SPVAL - zcldbase = SPVAL - ELSE - CLDZ(I,J) = -5000. - pcldbase = -50000. - zcldbase = -5000. - ENDIF + CLDZ(I,J) = SPVAL + pcldbase = SPVAL + zcldbase = SPVAL watericemax = -99999. do k=1,lm LL=LM-k+1 @@ -1946,7 +1936,7 @@ SUBROUTINE CLDRAD end do write(6,*)'No. pts w/ LIFR ceiling =',nlifr -! GSD CLOUD BOTTOM HEIGHTS +! Parameter 408: legacy ceiling diagnostic IF (IGET(408)>0) THEN !!$omp parallel do private(i,j) DO J=JSTA,JEND @@ -1964,6 +1954,7 @@ SUBROUTINE CLDRAD ! BEGIN EXPERIMENTAL GSD CEILING DIAGNOSTICS... ! J. Kenyon, 4 Feb 2017: this approach uses model-state cloud fractions +! Parameter 487: experimental ceiling diagnostic #1 IF (IGET(487)>0) THEN ! set some constants for ceiling adjustment in snow (retained from legacy algorithm, also in calvis.f) rhoice = 970. @@ -2003,7 +1994,6 @@ SUBROUTINE CLDRAD end do ! k ! now search aloft... - ceil(I,J) = zceil ! default is no ceiling found loop471:do k=2,lm k1 = k if (cldfra(k) >= ceiling_thresh_cldfra) then ! go to 472 ! found ceiling @@ -2027,23 +2017,19 @@ SUBROUTINE CLDRAD vertvis = 1000.*min(90., const1/betav) if (vertvis < zceil-FIS(I,J)*GI ) then zceil = FIS(I,J)*GI + vertvis - do k2=2,LM - k1 = k2 - if (ZMID(i,j,lm-k2+1) > zceil) cycle loop471 - end do exit loop471 end if end if + + exit loop471 endif ! cldfra(k) >= ceiling_thresh_cldfra end do loop471 - - else - ceil(I,J) = zceil - endif + endif ! cldfra_max >= ceiling_thresh_cldfra + ceil(I,J) = zceil ENDDO ! i loop ENDDO ! j loop -! proceed to gridding +! Parameter 487: experimental ceiling diagnostic #1 DO J=JSTA,JEND DO I=1,IM GRID1(I,J) = ceil(I,J) @@ -2065,6 +2051,7 @@ SUBROUTINE CLDRAD ! the GSD cloud-base height, and parameter 798 will be the ! corresponding cloud-base pressure. (J. Kenyon, 4 Nov 2019) +! Parameters 711/798: experimental ceiling diagnostic #2 (height and pressure, respectively) IF ((IGET(711)>0) .OR. (IGET(798)>0)) THEN ! set minimum cloud fraction to represent a ceiling ceiling_thresh_cldfra = 0.4 @@ -2226,7 +2213,7 @@ SUBROUTINE CLDRAD if (allocated(full_ceil)) deallocate(full_ceil) if (allocated(full_fis)) deallocate(full_fis) - ! GSD CLOUD BOTTOM HEIGHT + ! Parameters 711/798: experimental ceiling diagnostic #2 (height and pressure, respectively) IF (IGET(711)>0) THEN !!$omp parallel do private(i,j) DO J=JSTA,JEND @@ -2241,7 +2228,7 @@ SUBROUTINE CLDRAD endif ENDIF - ! GSD CLOUD BOTTOM PRESSURE + ! Parameters 711/798: experimental ceiling diagnostic #2 (height and pressure, respectively) IF (IGET(798)>0) THEN !!$omp parallel do private(i,j) DO J=JSTA,JEND diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 7815a643c..a95b16a4d 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -34,7 +34,7 @@ !! LANGUAGE: FORTRAN !! MACHINE : CRAY C-90 !! - SUBROUTINE INITPOST_NETCDF(ncid3d) + SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) use netcdf @@ -45,7 +45,7 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) o3vdiff, o3prod, o3tndy, mwpv, unknown, vdiffzacce, zgdrag,cnvctummixing, & vdiffmacce, mgdrag, cnvctvmmixing, ncnvctcfrac, cnvctumflx, cnvctdmflx, & cnvctzgdrag, sconvmois, cnvctmgdrag, cnvctdetmflx, duwt, duem, dusd, dudp, & - wh, qqg, ref_10cm, pmtf, ozcon + wh, qqg, ref_10cm, qqnifa, qqnwfa, pmtf, ozcon use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & @@ -66,7 +66,7 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) avisbeamswin,avisdiffswin,airbeamswin,airdiffswin,refdm10c_max,wspd10max, & alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550,prate_max - use soil, only: sldpth, sh2o, smc, stc + use soil, only: sldpth, sllevel, sh2o, smc, stc use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice use physcons_post, only: grav => con_g, fv => con_fvirt, rgas => con_rd, & eps => con_eps, epsm1 => con_epsm1 @@ -393,14 +393,6 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) else if(me==0)print*,'ak5= ',ak5 end if - Status=nf90_get_att(ncid3d,nf90_global,'sf_surface_physi', & - iSF_SURFACE_PHYSICS) - if(Status/=0)then - print*,'sf_surface_physi not found; assigning to 2' - iSF_SURFACE_PHYSICS=2 !set LSM physics to 2 for NOAH - else - if(me==0)print*,'SF_SURFACE_PHYSICS= ',iSF_SURFACE_PHYSICS - endif Status=nf90_get_att(ncid3d,nf90_global,'idrt',idrt) if(Status/=0)then print*,'idrt not in netcdf file,reading grid' @@ -1787,14 +1779,6 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) Status=nf90_close(ncid3d) deallocate(recname) -! open flux file - Status = nf90_open(trim(fileNameFlux),NF90_NOWRITE, ncid2d) - - if ( Status /= 0 ) then - print*,'error opening ',fileNameFlux, ' Status = ', Status - print*,'skip reading of flux file' - endif - ! IVEGSRC=1 for IGBP, 0 for USGS, 2 for UMD VarName='IVEGSRC' Status=nf90_get_att(ncid2d,nf90_global,'IVEGSRC',IVEGSRC) @@ -1869,6 +1853,31 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) ! ,REF_10CM(isa,jsa,l),isa,jsa,l ! enddo +! turbulence kinetic energy (QKE = 2*TKE) + VarName='qke' + call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & + ,lm,q2(1,jsta_2l,1)) + do l=1,lm + do j=jsta,jend + do i=1,im + q2(i,j,l)=q2(i,j,l)/2.0 + enddo + enddo + enddo + +! ice-friendly aerosol number concentration + VarName='nifa' + call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & + ,lm,qqnifa(1,jsta_2l,1)) + +! water-friendly aerosol number concentration + VarName='nwfa' + call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & + ,lm,qqnwfa(1,jsta_2l,1)) + VarName='land' call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sm) @@ -2382,6 +2391,20 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) SLDPTH(2) = 0.3 SLDPTH(3) = 0.6 SLDPTH(4) = 1.0 + +! Eric James, 1 Oct 2021: Because FV3 does not have 1d var "zs", used to +! assign soil depths for RUC LSM, hard wire 9 soil depths here +! so they aren't missing. + + SLLEVEL(1) = 0.0 + SLLEVEL(2) = 0.01 + SLLEVEL(3) = 0.04 + SLLEVEL(4) = 0.1 + SLLEVEL(5) = 0.3 + SLLEVEL(6) = 0.6 + SLLEVEL(7) = 1.0 + SLLEVEL(8) = 1.6 + SLLEVEL(9) = 3.0 ! liquid volumetric soil mpisture in fraction using nemsio VarName='soill1' @@ -2481,6 +2504,70 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) enddo if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,4) + IF (NSOIL==9) THEN + + VarName='soilw5' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,5)) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) smc(i,j,5) = spval + enddo + enddo + if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,5) + + VarName='soilw6' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,6)) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) smc(i,j,6) = spval + enddo + enddo + if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,6) + + VarName='soilw7' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,7)) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) smc(i,j,7) = spval + enddo + enddo + if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,7) + + VarName='soilw8' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,8)) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) smc(i,j,8) = spval + enddo + enddo + if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,8) + + VarName='soilw9' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,9)) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) smc(i,j,9) = spval + enddo + enddo + if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,9) + + END IF + ! soil temperature using nemsio VarName='soilt1' call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & @@ -2534,6 +2621,75 @@ SUBROUTINE INITPOST_NETCDF(ncid3d) enddo if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,4) + IF (NSOIL==9) THEN + + VarName='soilt5' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,5)) +! mask open water areas, combine with sea ice tmp +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,5) = spval + !if (sm(i,j) /= 0.0) stc(i,j,5) = spval + enddo + enddo + if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,5) + + VarName='soilt6' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,6)) +! mask open water areas, combine with sea ice tmp +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,6) = spval + !if (sm(i,j) /= 0.0) stc(i,j,6) = spval + enddo + enddo + if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,6) + + VarName='soilt7' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,7)) +! mask open water areas, combine with sea ice tmp +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,7) = spval + !if (sm(i,j) /= 0.0) stc(i,j,7) = spval enddo + enddo + enddo + if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,7) + + VarName='soilt8' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,8)) +! mask open water areas, combine with sea ice tmp +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,8) = spval + !if (sm(i,j) /= 0.0) stc(i,j,8) = spval + enddo + enddo + if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,8) + + VarName='soilt9' + call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & + ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,9)) +! mask open water areas, combine with sea ice tmp +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,9) = spval + !if (sm(i,j) /= 0.0) stc(i,j,9) = spval + enddo + enddo + if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,9) + + END IF + !$omp parallel do private(i,j) do j=jsta,jend do i=1,im diff --git a/sorc/ncep_post.fd/MAPSSLP.f b/sorc/ncep_post.fd/MAPSSLP.f index 3b0728a8f..f2fdd6ea5 100644 --- a/sorc/ncep_post.fd/MAPSSLP.f +++ b/sorc/ncep_post.fd/MAPSSLP.f @@ -43,12 +43,14 @@ SUBROUTINE MAPSSLP(TPRES) !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM - if(SPL(L) == 70000. .and. TPRES(I,J,L) 0 .OR. IGET(445) > 0) THEN + CALL NGMSLP ! this value is used in some later calculation. + ENDIF IF (IGET(105) > 0) THEN - CALL NGMSLP !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=1,IM diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index e6c547baa..419987e5d 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -104,6 +104,7 @@ SUBROUTINE SURFCE lp1, imp_physics, me, asrfc, tsrfc, pt, pdtop, & mpi_comm_comp, im, jm, prec_acc_dt1 use rqstfld_mod, only: iget, lvls, id, iavblfld, lvlsxml + use grib2_module, only: read_grib2_head, read_grib2_sngle use upp_physics, only: fpvsnew, CALRH !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -153,6 +154,12 @@ SUBROUTINE SURFCE real RDTPHS,TLOW,TSFCK,QSAT,DTOP,DBOT,SNEQV,RRNUM,SFCPRS,SFCQ, & RC,SFCTMP,SNCOVR,FACTRS,SOLAR, s,tk,tl,w,t2c,dlt,APE, & qv,e,dwpt,dum1,dum2,dum3,dum1s,dum3s,dum21,dum216,es + + character(len=256) :: ffgfile + character(len=256) :: arifile + + logical file_exists + logical, parameter :: debugprint = .false. @@ -3877,6 +3884,138 @@ SUBROUTINE SURFCE endif ENDIF +! ERIC JAMES: 10 JUN 2021 -- adding precip comparison to FFG +! thresholds. 913 is for 1h QPF, 914 for run total QPF. + IF (IGET(913).GT.0) THEN + ffgfile='ffg_01h.grib2' + call qpf_comp(913,ffgfile,1) + ENDIF + IF (IGET(914).GT.0) THEN + IF (IFHR .EQ. 1) THEN + ffgfile='ffg_01h.grib2' + call qpf_comp(914,ffgfile,1) + ELSEIF (IFHR .EQ. 3) THEN + ffgfile='ffg_03h.grib2' + call qpf_comp(914,ffgfile,3) + ELSEIF (IFHR .EQ. 6) THEN + ffgfile='ffg_06h.grib2' + call qpf_comp(914,ffgfile,6) + ELSEIF (IFHR .EQ. 12) THEN + ffgfile='ffg_12h.grib2' + call qpf_comp(914,ffgfile,12) + ELSE + ffgfile='ffg_01h.grib2' + call qpf_comp(914,ffgfile,0) + ENDIF + ENDIF + +! ERIC JAMES: 8 OCT 2021 -- adding precip comparison to ARI +! thresholds. 915 is for 1h QPF, 916 for run total QPF. + + IF (IGET(915).GT.0) THEN + arifile='ari2y_01h.grib2' + call qpf_comp(915,arifile,1) + ENDIF + IF (IGET(916).GT.0) THEN + IF (IFHR .EQ. 1) THEN + arifile='ari2y_01h.grib2' + call qpf_comp(916,arifile,1) + ELSEIF (IFHR .EQ. 3) THEN + arifile='ari2y_03h.grib2' + call qpf_comp(916,arifile,3) + ELSEIF (IFHR .EQ. 6) THEN + arifile='ari2y_06h.grib2' + call qpf_comp(916,arifile,6) + ELSEIF (IFHR .EQ. 12) THEN + arifile='ari2y_12h.grib2' + call qpf_comp(916,arifile,12) + ELSEIF (IFHR .EQ. 24) THEN + arifile='ari2y_24h.grib2' + call qpf_comp(916,arifile,24) + ELSE + arifile='ari2y_01h.grib2' + call qpf_comp(916,arifile,0) + ENDIF + ENDIF + + IF (IGET(917).GT.0) THEN + arifile='ari5y_01h.grib2' + call qpf_comp(917,arifile,1) + ENDIF + IF (IGET(918).GT.0) THEN + IF (IFHR .EQ. 1) THEN + arifile='ari5y_01h.grib2' + call qpf_comp(918,arifile,1) + ELSEIF (IFHR .EQ. 3) THEN + arifile='ari5y_03h.grib2' + call qpf_comp(918,arifile,3) + ELSEIF (IFHR .EQ. 6) THEN + arifile='ari5y_06h.grib2' + call qpf_comp(918,arifile,6) + ELSEIF (IFHR .EQ. 12) THEN + arifile='ari5y_12h.grib2' + call qpf_comp(918,arifile,12) + ELSEIF (IFHR .EQ. 24) THEN + arifile='ari5y_24h.grib2' + call qpf_comp(918,arifile,24) + ELSE + arifile='ari5y_01h.grib2' + call qpf_comp(918,arifile,0) + ENDIF + ENDIF + + IF (IGET(919).GT.0) THEN + arifile='ari10y_01h.grib2' + call qpf_comp(919,arifile,1) + ENDIF + IF (IGET(920).GT.0) THEN + IF (IFHR .EQ. 1) THEN + arifile='ari10y_01h.grib2' + call qpf_comp(920,arifile,1) + ELSEIF (IFHR .EQ. 3) THEN + arifile='ari10y_03h.grib2' + call qpf_comp(920,arifile,3) + ELSEIF (IFHR .EQ. 6) THEN + arifile='ari10y_06h.grib2' + call qpf_comp(920,arifile,6) + ELSEIF (IFHR .EQ. 12) THEN + arifile='ari10y_12h.grib2' + call qpf_comp(920,arifile,12) + ELSEIF (IFHR .EQ. 24) THEN + arifile='ari10y_24h.grib2' + call qpf_comp(920,arifile,24) + ELSE + arifile='ari10y_01h.grib2' + call qpf_comp(920,arifile,0) + ENDIF + ENDIF + + IF (IGET(921).GT.0) THEN + arifile='ari100y_01h.grib2' + call qpf_comp(921,arifile,1) + ENDIF + IF (IGET(922).GT.0) THEN + IF (IFHR .EQ. 1) THEN + arifile='ari100y_01h.grib2' + call qpf_comp(922,arifile,1) + ELSEIF (IFHR .EQ. 3) THEN + arifile='ari100y_03h.grib2' + call qpf_comp(922,arifile,3) + ELSEIF (IFHR .EQ. 6) THEN + arifile='ari100y_06h.grib2' + call qpf_comp(922,arifile,6) + ELSEIF (IFHR .EQ. 12) THEN + arifile='ari100y_12h.grib2' + call qpf_comp(922,arifile,12) + ELSEIF (IFHR .EQ. 24) THEN + arifile='ari100y_24h.grib2' + call qpf_comp(922,arifile,24) + ELSE + arifile='ari100y_01h.grib2' + call qpf_comp(922,arifile,0) + ENDIF + ENDIF + ! ERIC JAMES: 10 APR 2019 -- adding 15min precip output for RAP/HRRR ! PRECIPITATION BUCKETS - accumulated between output times ! 'BUCKET1 TOTAL PRECIP ' @@ -6184,3 +6323,136 @@ SUBROUTINE SURFCE RETURN END + + subroutine qpf_comp(igetfld,compfile,fcst) +! Read in QPF threshold for exceedance grid. +! Calculate exceedance grid. +! compfile: file name for reference grid. +! fcst: forecast length in hours. + use ctlblk_mod, only: SPVAL,JSTA,JEND,IM,DTQ2,IFHR,IFMIN,TPREC,GRIB, & + MODELNAME,JM,CFLD,DATAPD,FLD_INFO,JSTA_2L,JEND_2U + use rqstfld_mod, only: IGET, ID, LVLS, IAVBLFLD + use grib2_module, only: read_grib2_head, read_grib2_sngle + use vrbls2d, only: AVGPREC, AVGPREC_CONT + implicit none + character(len=256), intent(in) :: compfile + integer, intent(in) :: igetfld,fcst + integer :: trange,invstat + real, dimension(IM,JM) :: outgrid + + real, allocatable, dimension(:,:) :: mscValue + + integer :: nx, ny, nz, ntot, mscNlon, mscNlat, height + integer :: ITPREC, IFINCR + real :: rlonmin, rlatmax + real*8 rdx, rdy + + logical :: file_exists + + integer :: i, j, k, jj + +! Read in reference grid. + INQUIRE(FILE=compfile, EXIST=file_exists) + if (file_exists) then + call read_grib2_head(compfile,nx,ny,nz,rlonmin,rlatmax,& + rdx,rdy) + mscNlon=nx + mscNlat=ny + if (.not. allocated(mscValue)) then + allocate(mscValue(mscNlon,mscNlat)) + endif + ntot = nx*ny + call read_grib2_sngle(compfile,ntot,height,mscValue) + else + write(*,*) 'WARNING: FFG file not available for hour: ', fcst + endif + +! Set GRIB variables. + ID(1:25) = 0 + ITPREC = NINT(TPREC) + if (ITPREC /= 0) then + IFINCR = MOD(IFHR,ITPREC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITPREC*60) + else + IFINCR = 0 + endif + ID(18) = 0 + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 4 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITPREC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + +! Calculate exceedance grid. + IF(MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R') THEN +! !$omp parallel do private(i,j) + IF (file_exists) THEN + DO J=JSTA,JEND + DO I=1,IM + IF (IFHR .EQ. 0 .OR. fcst .EQ. 0) THEN + outgrid(I,J) = 0.0 + ELSE IF (mscValue(I,J) .LE. 0.0) THEN + outgrid(I,J) = 0.0 + ELSE IF (fcst .EQ. 1 .AND. AVGPREC(I,J)*FLOAT(ID(19)-ID(18))*3600.*1000./DTQ2 .GT. mscValue(I,J)) THEN + outgrid(I,J) = 1.0 + ELSE IF (fcst .GT. 1 .AND. AVGPREC_CONT(I,J)*FLOAT(IFHR)*3600.*1000./DTQ2 .GT. mscValue(I,J)) THEN + outgrid(I,J) = 1.0 + ELSE + outgrid(I,J) = 0.0 + ENDIF + ENDDO + ENDDO + ELSE + outgrid = 0.0*AVGPREC + ENDIF + ENDIF +! write(*,*) 'FFG MAX, MIN:', & +! maxval(mscValue),minval(mscValue) + IF (ID(18).LT.0) ID(18) = 0 + +! Set GRIB2 variables. + IF(fcst .EQ. 1) THEN + IF(ITPREC>0) THEN + trange = (IFHR-ID(18))/ITPREC + ELSE + trange = 0 + ENDIF + invstat = ITPREC + IF(trange .EQ. 0) THEN + IF (IFHR .EQ. 0) THEN + invstat = 0 + ELSE + invstat = 1 + ENDIF + trange = 1 + ENDIF + ELSE + trange = 1 + IF (IFHR .EQ. fcst) THEN + invstat = fcst + ELSE + invstat = 0 + ENDIF + ENDIF + + IF(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(igetfld)) + fld_info(cfld)%ntrange=trange + fld_info(cfld)%tinvstat=invstat +!$omp parallel do private(i,j,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,im + datapd(i,j,cfld) = outgrid(i,jj) + enddo + enddo + endif + + RETURN + + end subroutine qpf_comp diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index f1d762d25..571174dd7 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -164,7 +164,7 @@ PROGRAM WRFPOST real(kind=8) :: time_initpost=0.,INITPOST_tim=0.,btim,bbtim real rinc(5), untcnvt integer :: status=0,iostatusD3D=0,iostatusFlux=0 - integer i,j,iii,l,k,ierr,nrec,ist,lusig,idrt,ncid3d,varid + integer i,j,iii,l,k,ierr,nrec,ist,lusig,idrt,ncid3d,ncid2d,varid integer :: PRNTSEC,iim,jjm,llm,ioutcount,itmp,iret,iunit, & iunitd3d,iyear,imn,iday,LCNTRL,ieof integer :: iostatusAER @@ -433,6 +433,27 @@ PROGRAM WRFPOST print*,'error opening ',fileName, ' Status = ', Status stop endif + Status = nf90_open(trim(fileNameFlux),NF90_NOWRITE, ncid2d) + if ( Status /= 0 ) then + print*,'error opening ',fileNameFlux, ' Status = ', Status + stop + endif +! read in LSM index and nsoil here + Status=nf90_get_att(ncid2d,nf90_global,'landsfcmdl', iSF_SURFACE_PHYSICS) + if(Status/=0)then + print*,'landsfcmdl not found; assigning to 2' + iSF_SURFACE_PHYSICS=2 !set LSM physics to 2 for NOAH + endif + if(iSF_SURFACE_PHYSICS<2)then + iSF_SURFACE_PHYSICS=2 !set LSM physics to 2 for NOAH + endif + Status=nf90_get_att(ncid2d,nf90_global,'nsoil', NSOIL) + if(Status/=0)then + print*,'nsoil not found; assigning to 4' + NSOIL=4 !set nsoil to 4 for NOAH + endif + if(me==0)print*,'SF_SURFACE_PHYSICS= ',iSF_SURFACE_PHYSICS + if(me==0)print*,'NSOIL= ',NSOIL ! get dimesions Status = nf90_inq_dimid(ncid3d,'grid_xt',varid) if ( Status /= 0 ) then @@ -469,7 +490,7 @@ PROGRAM WRFPOST IM_JM = IM*JM ! set NSOIL to 4 as default for NOAH but change if using other ! SFC scheme - NSOIL = 4 +! NSOIL = 4 print*,'im jm lm nsoil from fv3 output = ',im,jm,lm,nsoil END IF @@ -633,7 +654,7 @@ PROGRAM WRFPOST ELSE IF (MODELNAME == 'FV3R') THEN ! use netcdf library to read output directly print*,'CALLING INITPOST_NETCDF' - CALL INITPOST_NETCDF(ncid3d) + CALL INITPOST_NETCDF(ncid2d,ncid3d) ELSE IF (MODELNAME == 'GFS') THEN print*,'CALLING INITPOST_GFS_NETCDF' CALL INITPOST_GFS_NETCDF(ncid3d) diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index 47bf52965..35c064c53 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -94,7 +94,8 @@ module grib2_module character*255 fl_nametbl,fl_gdss3 logical :: first_grbtbl ! - public num_pset,pset,nrecout,gribit2,grib_info_init,first_grbtbl,grib_info_finalize + public num_pset,pset,nrecout,gribit2,grib_info_init,first_grbtbl,grib_info_finalize,read_grib2_head,read_grib2_sngle + real(8), EXTERNAL :: timef !------------------------------------------------------------------------------------- ! contains @@ -989,6 +990,351 @@ subroutine gengrb2msg(idisc,icatg, iparm,nprm,nlvl,fldlvl1,fldlvl2,ntrange,tinvs end subroutine gengrb2msg ! !-------------------------------------------------------------------------------------- +! +! E. JAMES: 10 JUN 2021 - Adding section to read in GRIB2 files for comparison +! within UPP. Two new subroutines added below. +! + subroutine read_grib2_head(filenameG2,nx,ny,nz,rlonmin,rlatmax,rdx,rdy) +! +!--- read grib2 file head information +! + use grib_mod + implicit none + character*256,intent(in) :: filenameG2 + integer, intent(out) :: nx,ny,nz + real, intent(out) :: rlonmin,rlatmax + real*8, intent(out) :: rdx,rdy +! +! + type(gribfield) :: gfld + logical :: expand=.true. + integer :: ifile + character(len=1),allocatable,dimension(:) :: cgrib + integer,parameter :: msk1=32000 + integer :: lskip, lgrib,iseek + integer :: currlen + integer :: icount , lengrib + integer :: listsec0(3) + integer :: listsec1(13) + integer year, month, day, hour, minute, second, fcst + integer :: numfields,numlocal,maxlocal,ierr + integer :: grib_edition + integer :: itot +! real :: dx,dy,lat1,lon1 + real :: scale_factor,scale_factor2 +! +! + integer :: nn,n,j,iret + real :: fldmax,fldmin,sum +! +! + scale_factor=1.0e6 + scale_factor2=1.0e3 + ifile=10 + loopfile: do nn=1,1 +! write(6,*) 'read in grib2 file head', trim(filenameG2) + lskip=0 + lgrib=0 + iseek=0 + icount=0 + itot=0 + currlen=0 +! Open GRIB2 file + call baopenr(ifile,trim(filenameG2),iret) + if (iret.eq.0) then + VERSION: do + ! Search opend file for the next GRIB2 messege (record). + call skgb(ifile,iseek,msk1,lskip,lgrib) + ! Check for EOF, or problem + if (lgrib.eq.0) then + exit + endif + ! Check size, if needed allocate more memory. + if (lgrib.gt.currlen) then + if (allocated(cgrib)) deallocate(cgrib) + allocate(cgrib(lgrib)) + currlen=lgrib + endif + ! Read a given number of bytes from unblocked file. + call baread(ifile,lskip,lgrib,lengrib,cgrib) + if(lgrib.ne.lengrib) then + write(*,*) 'ERROR, read_grib2 lgrib ne lengrib', & + lgrib,lengrib + stop 1234 + endif + iseek=lskip+lgrib + icount=icount+1 + ! Unpack GRIB2 field + call gb_info(cgrib,lengrib,listsec0,listsec1, & + numfields,numlocal,maxlocal,ierr) + if(ierr.ne.0) then + write(6,*) 'Error querying GRIB2 message',ierr + stop + endif + itot=itot+numfields + grib_edition=listsec0(2) + if (grib_edition.ne.2) then + exit VERSION + endif +! write(*,*) 'listsec0=',listsec0 +! write(*,*) 'listsec1=',listsec1 +! write(*,*) 'numfields=',numfields +! get information form grib2 file + n=1 + call gf_getfld(cgrib,lengrib,n,.FALSE.,expand,gfld,ierr) + year =gfld%idsect(6) !(FOUR-DIGIT) YEAR OF THE DATA + month =gfld%idsect(7) ! MONTH OF THE DATA + day =gfld%idsect(8) ! DAY OF THE DATA + hour =gfld%idsect(9) ! HOUR OF THE DATA + minute=gfld%idsect(10) ! MINUTE OF THE DATA + second=gfld%idsect(11) ! SECOND OF THE DATA + write(*,*) 'year,month,day,hour,minute,second=' + write(*,*) year,month,day,hour,minute,second + write(*,*) 'source center =',gfld%idsect(1) + write(*,*) 'Indicator of model =',gfld%ipdtmpl(5) + write(*,*) 'observation level (m)=',gfld%ipdtmpl(12) + write(*,*) 'map projection=',gfld%igdtnum + if (gfld%igdtnum.eq.0) then ! Lat/Lon grid aka Cylindrical + ! Equidistant + nx = gfld%igdtmpl(8) + ny = gfld%igdtmpl(9) + nz = 1 + rdx = gfld%igdtmpl(17)/scale_factor + rdy = gfld%igdtmpl(18)/scale_factor + rlatmax = gfld%igdtmpl(12)/scale_factor + rlonmin = gfld%igdtmpl(13)/scale_factor +! write(*,*) 'nx,ny=',nx,ny +! write(*,*) 'dx,dy=',rdx,rdy +! write(*,*) 'lat1,lon1=',rlatmax,rlonmin + else if (gfld%igdtnum.eq.1) then ! Rotated Lat Lon Grid (RRFS_NA) + nx = gfld%igdtmpl(8) + ny = gfld%igdtmpl(9) + nz = 1 + rdx = gfld%igdtmpl(17)/scale_factor + rdy = gfld%igdtmpl(18)/scale_factor + rlatmax = gfld%igdtmpl(12)/scale_factor + rlonmin = gfld%igdtmpl(13)/scale_factor +! write(*,*) 'nx,ny=',nx,ny +! write(*,*) 'dx,dy=',rdx,rdy +! write(*,*) 'lat1,lon1=',rlatmax,rlonmin + else if (gfld%igdtnum.eq.30) then ! Lambert Conformal Grid (HRRR) + nx = gfld%igdtmpl(8) + ny = gfld%igdtmpl(9) + nz = 1 + rdx = gfld%igdtmpl(15)/scale_factor2 + rdy = gfld%igdtmpl(16)/scale_factor2 + rlatmax = gfld%igdtmpl(10)/scale_factor + rlonmin = gfld%igdtmpl(11)/scale_factor +! write(*,*) 'nx,ny=',nx,ny +! write(*,*) 'dx,dy=',rdx,rdy +! write(*,*) 'lat1,lon1=',rlatmax,rlonmin + else + write(*,*) 'unknown projection' + stop 1235 + endif + call gf_free(gfld) + enddo VERSION ! skgb + endif + CALL BACLOSE(ifile,ierr) + nullify(gfld%local) + if (allocated(cgrib)) deallocate(cgrib) + enddo loopfile + return + end subroutine read_grib2_head +! +!--- +! + subroutine read_grib2_sngle(filenameG2,ntot,height,var) +! +!--- read grib2 files +! + use grib_mod + implicit none + character*256,intent(in) :: filenameG2 + integer, intent(in) :: ntot + real, intent(out) :: var(ntot) + integer, intent(out) :: height +! +! + type(gribfield) :: gfld + logical :: expand=.true. + integer :: ifile + character(len=1),allocatable,dimension(:) :: cgrib + integer,parameter :: msk1=32000 + integer :: lskip, lgrib,iseek + integer :: currlen + integer :: icount , lengrib + integer :: listsec0(3) + integer :: listsec1(13) + integer year, month, day, hour, minute, second, fcst + integer :: numfields,numlocal,maxlocal,ierr + integer :: grib_edition + integer :: itot + integer :: nx,ny + real :: dx,dy,lat1,lon1,rtnum + real :: ref_value,bin_scale_fac,dec_scale_fac,bit_number,field_type + real :: bit_map + real :: scale_factor,scale_factor2 +! +! + integer :: nn,n,j,iret + real :: fldmax,fldmin,sum +! +! + scale_factor=1.0e6 + scale_factor2=1.0e3 + ifile=12 + loopfile: do nn=1,1 +! write(6,*) 'read mosaic in grib2 file ', trim(filenameG2) + lskip=0 + lgrib=0 + iseek=0 + icount=0 + itot=0 + currlen=0 +! Open GRIB2 file + call baopenr(ifile,trim(filenameG2),iret) + if (iret.eq.0) then + VERSION: do + ! Search opend file for the next GRIB2 messege (record). + call skgb(ifile,iseek,msk1,lskip,lgrib) + ! Check for EOF, or problem + if (lgrib.eq.0) then + exit + endif + ! Check size, if needed allocate more memory. + if (lgrib.gt.currlen) then + if (allocated(cgrib)) deallocate(cgrib) + allocate(cgrib(lgrib)) + currlen=lgrib + endif + ! Read a given number of bytes from unblocked file. + call baread(ifile,lskip,lgrib,lengrib,cgrib) + if(lgrib.ne.lengrib) then + write(*,*) 'ERROR, read_grib2 lgrib ne lengrib', & + lgrib,lengrib + stop 1234 + endif +! write(*,*) 'lengrib=',lengrib + iseek=lskip+lgrib + icount=icount+1 + ! Unpack GRIB2 field + call gb_info(cgrib,lengrib,listsec0,listsec1, & + numfields,numlocal,maxlocal,ierr) + if(ierr.ne.0) then + write(6,*) 'Error querying GRIB2 message',ierr + stop + endif + itot=itot+numfields + grib_edition=listsec0(2) + if (grib_edition.ne.2) then + exit VERSION + endif +! write(*,*) 'listsec0=',listsec0 +! write(*,*) 'listsec1=',listsec1 +! write(*,*) 'numfields=',numfields! +! get information form grib2 file + n=1 + call gf_getfld(cgrib,lengrib,n,.FALSE.,expand,gfld,ierr) + year =gfld%idsect(6) !(FOUR-DIGIT) YEAR OF THE DATA + month =gfld%idsect(7) ! MONTH OF THE DATA + day =gfld%idsect(8) ! DAY OF THE DATA + hour =gfld%idsect(9) ! HOUR OF THE DATA + minute=gfld%idsect(10) ! MINUTE OF THE DATA + second=gfld%idsect(11) ! SECOND OF THE DATA +! write(*,*) 'year,month,day,hour,minute,second=' +! write(*,*) year,month,day,hour,minute,second +! write(*,*) 'source center =',gfld%idsect(1) +! write(*,*) 'Indicator of model =',gfld%ipdtmpl(5) +! write(*,*) 'observation level (m)=',gfld%ipdtmpl(12) +! write(*,*) 'map projection=',gfld%igdtnum + height=gfld%ipdtmpl(12) + if (gfld%igdtnum.eq.0) then ! Lat/Lon grid aka Cylindrical + ! Equidistant + nx = gfld%igdtmpl(8) + ny = gfld%igdtmpl(9) + dx = gfld%igdtmpl(17)/scale_factor + dy = gfld%igdtmpl(18)/scale_factor + lat1 = gfld%igdtmpl(12)/scale_factor + lon1 = gfld%igdtmpl(13)/scale_factor +! write(*,*) 'nx,ny=',nx,ny +! write(*,*) 'dx,dy=',dx,dy +! write(*,*) 'lat1,lon1=',lat1,lon1 + else if (gfld%igdtnum.eq.1) then ! Rotated Lat Lon Grid (RRFS_NA) + nx = gfld%igdtmpl(8) + ny = gfld%igdtmpl(9) + dx = gfld%igdtmpl(17)/scale_factor + dy = gfld%igdtmpl(18)/scale_factor + lat1 = gfld%igdtmpl(12)/scale_factor + lon1 = gfld%igdtmpl(13)/scale_factor +! write(*,*) 'nx,ny=',nx,ny +! write(*,*) 'dx,dy=',rdx,rdy +! write(*,*) 'lat1,lon1=',rlatmax,rlonmin + else if (gfld%igdtnum.eq.30) then ! Lambert Conformal Grid (HRRR) + nx = gfld%igdtmpl(8) + ny = gfld%igdtmpl(9) + dx = gfld%igdtmpl(15)/scale_factor2 + dy = gfld%igdtmpl(16)/scale_factor2 + lat1 = gfld%igdtmpl(10)/scale_factor + lon1 = gfld%igdtmpl(11)/scale_factor +! write(*,*) 'In read_grib2_sngle:' +! write(*,*) 'nx,ny=',nx,ny +! write(*,*) 'dx,dy=',dx,dy +! write(*,*) 'lat1,lon1=',lat1,lon1 + rtnum = gfld%idrtnum +! write(*,*) 'rtnum=',rtnum + ref_value = gfld%idrtmpl(1) + bin_scale_fac = gfld%idrtmpl(2) + dec_scale_fac = gfld%idrtmpl(3) + bit_number = gfld%idrtmpl(4) + field_type = gfld%idrtmpl(5) + bit_map = gfld%ibmap +! write(*,*) 'ref_value=',ref_value +! write(*,*) 'bin_scale_fac=',bin_scale_fac +! write(*,*) 'dec_scale_fac=',dec_scale_fac +! write(*,*) 'bit_number=',bit_number +! write(*,*) 'field_type=',field_type +! write(*,*) 'bit map indicator=',bit_map + else + write(*,*) 'unknown projection' + stop 1235 + endif + call gf_free(gfld) + ! Continue to unpack GRIB2 field. + NUM_FIELDS: do n = 1, numfields + ! e.g. U and V would =2, otherwise its usually =1 + call gf_getfld(cgrib,lengrib,n,.true.,expand,gfld,ierr) + if (ierr.ne.0) then + write(*,*) ' ERROR extracting field gf_getfld = ',ierr + cycle + endif +! write(*,*) 'gfld%ndpts=',n,gfld%ndpts +! write(*,*) 'gfld%ngrdpts=',n,gfld%ngrdpts +! write(*,*) 'gfld%unpacked=',n,gfld%unpacked + fldmax=gfld%fld(1) + fldmin=gfld%fld(1) + sum=gfld%fld(1) + if(ntot .ne. gfld%ngrdpts) then + write(*,*) 'Error, wrong dimension ',ntot, gfld%ngrdpts + stop 1234 + endif + do j=1,gfld%ngrdpts + var(j)=gfld%fld(j) + enddo +! write(*,*) 'j,first,last:',j,var(954370),var(953920) +! write(*,*) 'height,max,min',height,maxval(var),minval(var) + call gf_free(gfld) + enddo NUM_FIELDS + enddo VERSION ! skgb + endif + CALL BACLOSE(ifile,ierr) + if (allocated(cgrib)) deallocate(cgrib) + nullify(gfld%local) + enddo loopfile + return + end subroutine read_grib2_sngle +! +!---------------------------------------------------------------------------------------- ! subroutine g2sec3tmpl40(nx,nY,lat1,lon1,lat2,lon2,lad,ds1,len3,igds,ifield3) implicit none From a812f98d4afbee8badb525381ca824944aee1e32 Mon Sep 17 00:00:00 2001 From: kayee Date: Mon, 20 Dec 2021 20:00:10 -0700 Subject: [PATCH 022/107] Doxygen for CALDWP.f --- sorc/ncep_post.fd/CALDWP.f | 56 ++++++++++++-------------------------- 1 file changed, 18 insertions(+), 38 deletions(-) diff --git a/sorc/ncep_post.fd/CALDWP.f b/sorc/ncep_post.fd/CALDWP.f index aa2405e05..21dafdcf7 100644 --- a/sorc/ncep_post.fd/CALDWP.f +++ b/sorc/ncep_post.fd/CALDWP.f @@ -1,42 +1,22 @@ !> @file -! -!> SUBPROGRAM: CALDWP COMPUTES -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: COMPUTES DEWPOINT FROM P, T, AND Q -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 93-10-04 RUSS TREADON - ADDED CHECK TO BOUND DEWPOINT -!! TEMPERATURE TO NOT EXCEED THE -!! AMBIENT TEMPERATURE. -!! 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 21-07-23 Wen Meng - Retrict computation from undefined points -!! -!! USAGE: CALL CALDWP(P1D,Q1D,TDWP,T1D) -!! INPUT ARGUMENT LIST: -!! P1D - PRESSURE (PA) -!! Q1D - SPECIFIC HUMIDITY (KG/KG) -!! T1D - TEMPERATURE (K) -!! -!! OUTPUT ARGUMENT LIST: -!! TDWP - DEWPOINT TEMPERATURE (K) - -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! DEWPOINT - COMPUTES DEWPOINT GIVEN VAPOR PRESSURE. -!! LIBRARY: -!! NONE -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes dewpoint temperature. +!> Computes dewpoint from P, T, and Q +!> +!> @param[in] P1D - Pressure (Pa) +!> @param[in] Q1D - Specific humidity (kg/kg) +!> @param[in] T1D - Temperature (K) +!> @param[out] TDWP - Dewpoint temperature (K) +!> +!> Program history +!> - 92-12-22 Russ Treadon +!> - 93-10-04 Russ Treadon - Added check to bound dewpoint +!> temperature to not exceed the +!> ambient temperature. +!> - 98-06-08 T BLACK - Conversion from 1-D to 2-D +!> - 00-01-04 Jim Tuccillo - MPI version +!> - 21-07-23 Wen Meng - Retrict computation from undefined points +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALDWP(P1D,Q1D,TDWP,T1D) ! From 2d58e3a8ae52e3891f53604add9499fa36b8c64e Mon Sep 17 00:00:00 2001 From: kayee Date: Wed, 22 Dec 2021 17:37:48 -0700 Subject: [PATCH 023/107] Further refinement. --- sorc/ncep_post.fd/CALDWP.f | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/sorc/ncep_post.fd/CALDWP.f b/sorc/ncep_post.fd/CALDWP.f index 21dafdcf7..f6e594e98 100644 --- a/sorc/ncep_post.fd/CALDWP.f +++ b/sorc/ncep_post.fd/CALDWP.f @@ -1,11 +1,12 @@ !> @file -!> @brief Subroutine that computes dewpoint temperature. +!> @brief Subroutine related to dewpoint temperature. +! !> Computes dewpoint from P, T, and Q !> -!> @param[in] P1D - Pressure (Pa) -!> @param[in] Q1D - Specific humidity (kg/kg) -!> @param[in] T1D - Temperature (K) -!> @param[out] TDWP - Dewpoint temperature (K) +!> @param[in] P1D Pressure (Pa) +!> @param[in] Q1D Specific humidity (kg/kg) +!> @param[in] T1D Temperature (K) +!> @param[out] TDWP Dewpoint temperature (K) !> !> Program history !> - 92-12-22 Russ Treadon From 9e1a10f46ec402854b5f921c9ffd092bbb3570c1 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Mon, 27 Dec 2021 08:20:49 -0700 Subject: [PATCH 024/107] Doxygen CALDRG.f (#424) * Doxygen for CALDRG.f * Delete CALDWP.f * Revert "Delete CALDWP.f" This reverts commit 575cd93f2a1b8d0f96df57164f077118dd131d26. --- sorc/ncep_post.fd/CALDRG.f | 54 +++++++++++--------------------------- 1 file changed, 16 insertions(+), 38 deletions(-) diff --git a/sorc/ncep_post.fd/CALDRG.f b/sorc/ncep_post.fd/CALDRG.f index 88f0d6038..e74381fde 100644 --- a/sorc/ncep_post.fd/CALDRG.f +++ b/sorc/ncep_post.fd/CALDRG.f @@ -1,42 +1,20 @@ !> @file -! -!> SUBPROGRAM: CALDRG COMPUTE DRAG COEFFICIENT -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-09-01 -!! -!! ABSTRACT: THIS ROUTINE COMPUTES A SURFACE LAYER DRAG -!! COEFFICIENT USING EQUATION (7.4.1A) IN "AN INTRODUCTION -!! TO BOUNDARY LAYER METEOROLOGY" BY STULL (1988, KLUWER -!! ACADEMIC PUBLISHERS). -!! -!! PROGRAM HISTORY LOG: -!! 93-09-01 RUSS TREADON -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-01-15 MIKE BALDWIN - WRF VERSION -!! 05-02-22 H CHUANG - ADD WRF NMM COMPONENTS -!! -!! USAGE: CALL CALDRG(DRAGCO) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! DRAGCO - SURFACE LAYER DRAG COEFFICIENT -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - LOOPS -!! SRFDSP -!! PVRBLS -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes drag cofficient. +! +!> This rountine computes a surface layer drag coefficient using +!> equation (7.4.1A) in "An introduction to boundary layer +!> meteorology" by Stull (1988, Kluwer Academic Publishers). +!> +!> @param[out] DRAGCO surface layer drag coefficient +!> +!> Program history +!> - 93-09-01 Russ Treadon +!> - 98-06-15 T Black - Conversion from 1-D to 2-D +!> - 00-01-04 Jim Tuccillo - MPI version +!> - 02-01-15 Mike Baldwin - WRF version +!> - 05-02-22 H Chuang - Add WRF NMM components +!> +!> @author Russ Treadon W/NP2 @date 1993-09-01 SUBROUTINE CALDRG(DRAGCO) ! From f46b60906678f41223cb39b16aced79e863368cc Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Tue, 28 Dec 2021 09:43:16 -0500 Subject: [PATCH 025/107] Sync changes from UPP for GFSV16 (#422) * Add gtg code as submodule. * Remove manage_externals. * Sync with the changes from GFSV16. * Add change logs for POSTGRB2TBL default setting. --- .gitmodules | 3 + Externals.cfg | 9 - jobs/JGLOBAL_ATMOS_NCEPPOST | 4 +- jobs/JGLOBAL_ATMOS_POST_MANAGER | 2 +- jobs/J_NCEPPOST | 5 - manage_externals/.dir_locals.el | 12 - manage_externals/.github/ISSUE_TEMPLATE.md | 6 - .../.github/PULL_REQUEST_TEMPLATE.md | 17 - manage_externals/.gitignore | 14 - manage_externals/.travis.yml | 32 - manage_externals/LICENSE.txt | 34 - manage_externals/README.md | 211 -- manage_externals/README_FIRST | 54 - manage_externals/checkout_externals | 36 - manage_externals/manic/__init__.py | 9 - manage_externals/manic/checkout.py | 409 ---- .../manic/externals_description.py | 790 ------- manage_externals/manic/externals_status.py | 164 -- manage_externals/manic/global_constants.py | 18 - manage_externals/manic/repository.py | 97 - manage_externals/manic/repository_factory.py | 29 - manage_externals/manic/repository_git.py | 790 ------- manage_externals/manic/repository_svn.py | 284 --- manage_externals/manic/sourcetree.py | 350 ---- manage_externals/manic/utils.py | 330 --- manage_externals/test/.coveragerc | 7 - manage_externals/test/.gitignore | 7 - manage_externals/test/.pylint.rc | 426 ---- manage_externals/test/Makefile | 124 -- manage_externals/test/README.md | 77 - manage_externals/test/doc/.gitignore | 2 - manage_externals/test/doc/Makefile | 20 - manage_externals/test/doc/conf.py | 172 -- manage_externals/test/doc/develop.rst | 202 -- manage_externals/test/doc/index.rst | 22 - manage_externals/test/doc/testing.rst | 123 -- .../test/repos/container.git/HEAD | 1 - .../test/repos/container.git/config | 6 - .../test/repos/container.git/description | 1 - .../test/repos/container.git/info/exclude | 6 - .../41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 | Bin 133 -> 0 bytes .../71/5b8f3e4afe1802a178e1d603af404ba45d59de | Bin 136 -> 0 bytes .../b0/f87705e2b9601cb831878f3d51efa78b910d7b | Bin 89 -> 0 bytes .../f9/e08370a737e941de6f6492e3f427c2ef4c1a03 | Bin 81 -> 0 bytes .../repos/container.git/refs/heads/master | 1 - manage_externals/test/repos/error/readme.txt | 3 - .../test/repos/mixed-cont-ext.git/HEAD | 1 - .../test/repos/mixed-cont-ext.git/config | 6 - .../test/repos/mixed-cont-ext.git/description | 1 - .../repos/mixed-cont-ext.git/info/exclude | 6 - .../00/437ac2000d5f06fb8a572a01a5bbdae98b17cb | Bin 172 -> 0 bytes .../01/97458f2dbe5fcd6bc44fa46983be0a30282379 | Bin 171 -> 0 bytes .../06/ea30b03ffa2f8574705f8b9583f7ca7e2dccf7 | Bin 136 -> 0 bytes .../14/368b701616a8c53820b610414a4b9a07540cf6 | 1 - .../15/2b57e1cf23721cd17ff681cb9276e3fb9fc091 | 2 - .../1f/01fa46c17b1f38b37e6259f6e9d041bda3144f | Bin 167 -> 0 bytes .../37/f0e70b609adc90f4c09ee21d82ed1d79c81d69 | Bin 89 -> 0 bytes .../38/9a2b876b8965d3c91a3db8d28a483eaf019d5c | Bin 130 -> 0 bytes .../41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 | Bin 133 -> 0 bytes .../6e/9f4baa6e94a0af4e094836c2eb55ccedef5fc4 | Bin 129 -> 0 bytes .../6f/c379457ecb4e576a13c7610ae1fa73f845ee6a | 1 - .../93/a159deb9175bfeb2820a0006ddd92d78131332 | Bin 169 -> 0 bytes .../95/80ecc12f16334ce44e42287d5d46f927bb7b75 | 1 - .../a9/288dcd8a719a1f4ed3cba43a2a387ae7cd60fd | Bin 130 -> 0 bytes .../e8/ea32a11d30ee703f6f661ae7c2376f4ab84d38 | Bin 130 -> 0 bytes .../fd/15a5ad5204356229c60a831d2a8120a43ac901 | 2 - .../mixed-cont-ext.git/refs/heads/master | 1 - .../mixed-cont-ext.git/refs/heads/new-feature | 1 - .../test/repos/simple-ext-fork.git/HEAD | 1 - .../test/repos/simple-ext-fork.git/config | 8 - .../repos/simple-ext-fork.git/description | 1 - .../repos/simple-ext-fork.git/info/exclude | 6 - .../00/fd13e76189f9134b0506b4b8ed3172723b467f | Bin 89 -> 0 bytes .../0b/15e8af3d4615b42314216efeae3fff184046a8 | Bin 89 -> 0 bytes .../0b/67df4e7e8e6e1c6e401542738b352d18744677 | Bin 167 -> 0 bytes .../11/a76e3d9a67313dec7ce1230852ab5c86352c5c | 2 - .../16/5506a7408a482f50493434e13fffeb44af893f | Bin 89 -> 0 bytes .../24/4386e788c9bc608613e127a329c742450a60e4 | Bin 164 -> 0 bytes .../32/7e97d86e941047d809dba58f2804740c6c30cf | Bin 89 -> 0 bytes .../36/418b4e5665956a90725c9a1b5a8e551c5f3d48 | Bin 159 -> 0 bytes .../3d/7099c35404ae6c8640ce263b38bef06e98cc26 | 2 - .../3d/ec1fdf8e2f5edba28148c5db2fe8d7a842360b | 2 - .../41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 | Bin 133 -> 0 bytes .../4d/837135915ed93eed6fff6b439f284ce317296f | Bin 89 -> 0 bytes .../56/175e017ad38bf3d33d74b6bd7c74624b28466a | Bin 89 -> 0 bytes .../5f/1d4786d12e52d7ab28d2f2f1118c1059a9f1ae | Bin 93 -> 0 bytes .../67/136e5ab4d5c1c65d10c8048763b96b0e53c1d6 | Bin 165 -> 0 bytes .../7b/0bd630ac13865735a1dff3437a137d8ab50663 | Bin 119 -> 0 bytes .../88/cf20868e0cc445f5642a480ed034c71e0d7e9f | 2 - .../8d/2b3b35126224c975d23f109aa1e3cbac452989 | 2 - .../9b/75494003deca69527bb64bcaa352e801611dd2 | Bin 138 -> 0 bytes .../a2/2a5da9119328ea6d693f88861457c07e14ac04 | 1 - .../a4/2fe9144f5707bc1e9515ce1b44681f7aba6f95 | 3 - .../b9/3737be3ea6b19f6255983748a0a0f4d622f936 | Bin 89 -> 0 bytes .../c5/32bc8fde96fa63103a52057f0baffcc9f00c6b | 1 - .../c5/b315915742133dbdfbeed0753e481b55c1d364 | 1 - .../f2/68d4e56d067da9bd1d85e55bdc40a8bd2b0bca | 1 - .../repos/simple-ext-fork.git/packed-refs | 5 - .../simple-ext-fork.git/refs/heads/feature2 | 1 - .../refs/tags/abandoned-feature | 1 - .../refs/tags/forked-feature-v1 | 1 - .../test/repos/simple-ext.git/HEAD | 1 - .../test/repos/simple-ext.git/config | 6 - .../test/repos/simple-ext.git/description | 1 - .../test/repos/simple-ext.git/info/exclude | 6 - .../00/fd13e76189f9134b0506b4b8ed3172723b467f | Bin 89 -> 0 bytes .../09/0e1034746b2c865f7b0280813dbf4061a700e8 | Bin 164 -> 0 bytes .../0b/15e8af3d4615b42314216efeae3fff184046a8 | Bin 89 -> 0 bytes .../11/a76e3d9a67313dec7ce1230852ab5c86352c5c | 2 - .../31/dbcd6de441e671a467ef317146539b7ffabb11 | Bin 90 -> 0 bytes .../36/418b4e5665956a90725c9a1b5a8e551c5f3d48 | Bin 159 -> 0 bytes .../41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 | Bin 133 -> 0 bytes .../60/b1cc1a38d63a4bcaa1e767262bbe23dbf9f5f5 | 2 - .../63/a99393d1baff97ccef967af30380659867b139 | 1 - .../95/3256da5612fcd9263590a353bc18c6f224e74f | 1 - .../9b/75494003deca69527bb64bcaa352e801611dd2 | Bin 138 -> 0 bytes .../a2/2a5da9119328ea6d693f88861457c07e14ac04 | 1 - .../c5/b315915742133dbdfbeed0753e481b55c1d364 | 1 - .../df/312890f93ba4d2c694208599b665c4a08afeff | Bin 89 -> 0 bytes .../repos/simple-ext.git/refs/heads/feature2 | 1 - .../repos/simple-ext.git/refs/heads/feature3 | 1 - .../repos/simple-ext.git/refs/heads/master | 1 - .../test/repos/simple-ext.git/refs/tags/tag1 | 1 - manage_externals/test/requirements.txt | 5 - manage_externals/test/test_sys_checkout.py | 1827 ----------------- .../test/test_sys_repository_git.py | 238 --- .../test/test_unit_externals_description.py | 401 ---- .../test/test_unit_externals_status.py | 299 --- manage_externals/test/test_unit_repository.py | 197 -- .../test/test_unit_repository_git.py | 807 -------- .../test/test_unit_repository_svn.py | 501 ----- manage_externals/test/test_unit_utils.py | 350 ---- scripts/exgdas_atmos_nceppost.sh | 6 +- scripts/exgfs_atmos_nceppost.sh | 68 +- scripts/exglobal_atmos_pmgr.sh | 2 +- sorc/post_gtg.fd | 1 + ush/fv3gfs_downstream_nems.sh | 4 +- ush/gfs_nceppost.sh | 8 + 138 files changed, 65 insertions(+), 9648 deletions(-) delete mode 100644 Externals.cfg delete mode 100644 manage_externals/.dir_locals.el delete mode 100644 manage_externals/.github/ISSUE_TEMPLATE.md delete mode 100644 manage_externals/.github/PULL_REQUEST_TEMPLATE.md delete mode 100644 manage_externals/.gitignore delete mode 100644 manage_externals/.travis.yml delete mode 100644 manage_externals/LICENSE.txt delete mode 100644 manage_externals/README.md delete mode 100644 manage_externals/README_FIRST delete mode 100755 manage_externals/checkout_externals delete mode 100644 manage_externals/manic/__init__.py delete mode 100755 manage_externals/manic/checkout.py delete mode 100644 manage_externals/manic/externals_description.py delete mode 100644 manage_externals/manic/externals_status.py delete mode 100644 manage_externals/manic/global_constants.py delete mode 100644 manage_externals/manic/repository.py delete mode 100644 manage_externals/manic/repository_factory.py delete mode 100644 manage_externals/manic/repository_git.py delete mode 100644 manage_externals/manic/repository_svn.py delete mode 100644 manage_externals/manic/sourcetree.py delete mode 100644 manage_externals/manic/utils.py delete mode 100644 manage_externals/test/.coveragerc delete mode 100644 manage_externals/test/.gitignore delete mode 100644 manage_externals/test/.pylint.rc delete mode 100644 manage_externals/test/Makefile delete mode 100644 manage_externals/test/README.md delete mode 100644 manage_externals/test/doc/.gitignore delete mode 100644 manage_externals/test/doc/Makefile delete mode 100644 manage_externals/test/doc/conf.py delete mode 100644 manage_externals/test/doc/develop.rst delete mode 100644 manage_externals/test/doc/index.rst delete mode 100644 manage_externals/test/doc/testing.rst delete mode 100644 manage_externals/test/repos/container.git/HEAD delete mode 100644 manage_externals/test/repos/container.git/config delete mode 100644 manage_externals/test/repos/container.git/description delete mode 100644 manage_externals/test/repos/container.git/info/exclude delete mode 100644 manage_externals/test/repos/container.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 delete mode 100644 manage_externals/test/repos/container.git/objects/71/5b8f3e4afe1802a178e1d603af404ba45d59de delete mode 100644 manage_externals/test/repos/container.git/objects/b0/f87705e2b9601cb831878f3d51efa78b910d7b delete mode 100644 manage_externals/test/repos/container.git/objects/f9/e08370a737e941de6f6492e3f427c2ef4c1a03 delete mode 100644 manage_externals/test/repos/container.git/refs/heads/master delete mode 100644 manage_externals/test/repos/error/readme.txt delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/HEAD delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/config delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/description delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/info/exclude delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/00/437ac2000d5f06fb8a572a01a5bbdae98b17cb delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/01/97458f2dbe5fcd6bc44fa46983be0a30282379 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/06/ea30b03ffa2f8574705f8b9583f7ca7e2dccf7 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/14/368b701616a8c53820b610414a4b9a07540cf6 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/15/2b57e1cf23721cd17ff681cb9276e3fb9fc091 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/1f/01fa46c17b1f38b37e6259f6e9d041bda3144f delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/37/f0e70b609adc90f4c09ee21d82ed1d79c81d69 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/38/9a2b876b8965d3c91a3db8d28a483eaf019d5c delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/6e/9f4baa6e94a0af4e094836c2eb55ccedef5fc4 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/6f/c379457ecb4e576a13c7610ae1fa73f845ee6a delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/93/a159deb9175bfeb2820a0006ddd92d78131332 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/95/80ecc12f16334ce44e42287d5d46f927bb7b75 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/a9/288dcd8a719a1f4ed3cba43a2a387ae7cd60fd delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/e8/ea32a11d30ee703f6f661ae7c2376f4ab84d38 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/objects/fd/15a5ad5204356229c60a831d2a8120a43ac901 delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/refs/heads/master delete mode 100644 manage_externals/test/repos/mixed-cont-ext.git/refs/heads/new-feature delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/HEAD delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/config delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/description delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/info/exclude delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/00/fd13e76189f9134b0506b4b8ed3172723b467f delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/0b/15e8af3d4615b42314216efeae3fff184046a8 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/0b/67df4e7e8e6e1c6e401542738b352d18744677 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/11/a76e3d9a67313dec7ce1230852ab5c86352c5c delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/16/5506a7408a482f50493434e13fffeb44af893f delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/24/4386e788c9bc608613e127a329c742450a60e4 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/32/7e97d86e941047d809dba58f2804740c6c30cf delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/36/418b4e5665956a90725c9a1b5a8e551c5f3d48 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/3d/7099c35404ae6c8640ce263b38bef06e98cc26 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/3d/ec1fdf8e2f5edba28148c5db2fe8d7a842360b delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/4d/837135915ed93eed6fff6b439f284ce317296f delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/56/175e017ad38bf3d33d74b6bd7c74624b28466a delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/5f/1d4786d12e52d7ab28d2f2f1118c1059a9f1ae delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/67/136e5ab4d5c1c65d10c8048763b96b0e53c1d6 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/7b/0bd630ac13865735a1dff3437a137d8ab50663 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/88/cf20868e0cc445f5642a480ed034c71e0d7e9f delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/8d/2b3b35126224c975d23f109aa1e3cbac452989 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/9b/75494003deca69527bb64bcaa352e801611dd2 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/a2/2a5da9119328ea6d693f88861457c07e14ac04 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/a4/2fe9144f5707bc1e9515ce1b44681f7aba6f95 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/b9/3737be3ea6b19f6255983748a0a0f4d622f936 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/c5/32bc8fde96fa63103a52057f0baffcc9f00c6b delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/c5/b315915742133dbdfbeed0753e481b55c1d364 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/objects/f2/68d4e56d067da9bd1d85e55bdc40a8bd2b0bca delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/packed-refs delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/refs/heads/feature2 delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/refs/tags/abandoned-feature delete mode 100644 manage_externals/test/repos/simple-ext-fork.git/refs/tags/forked-feature-v1 delete mode 100644 manage_externals/test/repos/simple-ext.git/HEAD delete mode 100644 manage_externals/test/repos/simple-ext.git/config delete mode 100644 manage_externals/test/repos/simple-ext.git/description delete mode 100644 manage_externals/test/repos/simple-ext.git/info/exclude delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/00/fd13e76189f9134b0506b4b8ed3172723b467f delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/09/0e1034746b2c865f7b0280813dbf4061a700e8 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/0b/15e8af3d4615b42314216efeae3fff184046a8 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/11/a76e3d9a67313dec7ce1230852ab5c86352c5c delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/31/dbcd6de441e671a467ef317146539b7ffabb11 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/36/418b4e5665956a90725c9a1b5a8e551c5f3d48 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/60/b1cc1a38d63a4bcaa1e767262bbe23dbf9f5f5 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/63/a99393d1baff97ccef967af30380659867b139 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/95/3256da5612fcd9263590a353bc18c6f224e74f delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/9b/75494003deca69527bb64bcaa352e801611dd2 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/a2/2a5da9119328ea6d693f88861457c07e14ac04 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/c5/b315915742133dbdfbeed0753e481b55c1d364 delete mode 100644 manage_externals/test/repos/simple-ext.git/objects/df/312890f93ba4d2c694208599b665c4a08afeff delete mode 100644 manage_externals/test/repos/simple-ext.git/refs/heads/feature2 delete mode 100644 manage_externals/test/repos/simple-ext.git/refs/heads/feature3 delete mode 100644 manage_externals/test/repos/simple-ext.git/refs/heads/master delete mode 100644 manage_externals/test/repos/simple-ext.git/refs/tags/tag1 delete mode 100644 manage_externals/test/requirements.txt delete mode 100644 manage_externals/test/test_sys_checkout.py delete mode 100644 manage_externals/test/test_sys_repository_git.py delete mode 100644 manage_externals/test/test_unit_externals_description.py delete mode 100644 manage_externals/test/test_unit_externals_status.py delete mode 100644 manage_externals/test/test_unit_repository.py delete mode 100644 manage_externals/test/test_unit_repository_git.py delete mode 100644 manage_externals/test/test_unit_repository_svn.py delete mode 100644 manage_externals/test/test_unit_utils.py create mode 160000 sorc/post_gtg.fd diff --git a/.gitmodules b/.gitmodules index e69de29bb..ab0321a73 100644 --- a/.gitmodules +++ b/.gitmodules @@ -0,0 +1,3 @@ +[submodule "sorc/post_gtg.fd"] + path = sorc/post_gtg.fd + url = https://github.com/NCAR/UPP_GTG diff --git a/Externals.cfg b/Externals.cfg deleted file mode 100644 index 4fa904f9c..000000000 --- a/Externals.cfg +++ /dev/null @@ -1,9 +0,0 @@ -[gtg] -tag = ncep_post_gtg.v2.0.3 -protocol = git -repo_url = git@github.com:NCAR/UPP_GTG.git -local_path = sorc/post_gtg.fd -required = True - -[externals_description] -schema_version = 1.0.0 diff --git a/jobs/JGLOBAL_ATMOS_NCEPPOST b/jobs/JGLOBAL_ATMOS_NCEPPOST index 75da4d5cc..66c81353e 100755 --- a/jobs/JGLOBAL_ATMOS_NCEPPOST +++ b/jobs/JGLOBAL_ATMOS_NCEPPOST @@ -128,7 +128,7 @@ export SLEEP_INT=5 # Run relevant exglobal script env msg="HAS BEGUN on `hostname`" -postmsg "$jlogfile" "$msg" +postmsg "$msg" $LOGSCRIPT @@ -148,7 +148,7 @@ if [ -e "$pgmout" ]; then fi msg="ENDED NORMALLY." -postmsg "$jlogfile" "$msg" +postmsg "$msg" ########################################## diff --git a/jobs/JGLOBAL_ATMOS_POST_MANAGER b/jobs/JGLOBAL_ATMOS_POST_MANAGER index 26b17bcd6..32d781809 100755 --- a/jobs/JGLOBAL_ATMOS_POST_MANAGER +++ b/jobs/JGLOBAL_ATMOS_POST_MANAGER @@ -91,7 +91,7 @@ export cycle=t${cyc}z setpdy.sh . PDY -export ROTDIR=${ROTDIR:-{COMROOT:?}/$NET/$envir} +export ROTDIR=${ROTDIR:-${COMROOT:?}/$NET/$envir} export COMIN=${COMIN:-$ROTDIR/$RUN.$PDY/$cyc/$COMPONENT} export COMOUT=${COMOUT:-$ROTDIR/$RUN.$PDY/$cyc/$COMPONENT} diff --git a/jobs/J_NCEPPOST b/jobs/J_NCEPPOST index 746b6babe..0e1c5070e 100755 --- a/jobs/J_NCEPPOST +++ b/jobs/J_NCEPPOST @@ -24,11 +24,6 @@ mkdir -p $DATA cd $DATA export KEEPDATA=${KEEPDATA:-NO} -#################################### -# File To Log Msgs -#################################### -export jlogfile=${jlogfile:-${COMROOT}/logs/jlogfiles/jlogfile.${job}.${pid}} - #################################### # Determine Job Output Name on System #################################### diff --git a/manage_externals/.dir_locals.el b/manage_externals/.dir_locals.el deleted file mode 100644 index a370490e9..000000000 --- a/manage_externals/.dir_locals.el +++ /dev/null @@ -1,12 +0,0 @@ -; -*- mode: Lisp -*- - -((python-mode - . ( - ;; fill the paragraph to 80 columns when using M-q - (fill-column . 80) - - ;; Use 4 spaces to indent in Python - (python-indent-offset . 4) - (indent-tabs-mode . nil) - ))) - diff --git a/manage_externals/.github/ISSUE_TEMPLATE.md b/manage_externals/.github/ISSUE_TEMPLATE.md deleted file mode 100644 index 8ecb2ae64..000000000 --- a/manage_externals/.github/ISSUE_TEMPLATE.md +++ /dev/null @@ -1,6 +0,0 @@ -### Summary of Issue: -### Expected behavior and actual behavior: -### Steps to reproduce the problem (should include model description file(s) or link to publi c repository): -### What is the changeset ID of the code, and the machine you are using: -### have you modified the code? If so, it must be committed and available for testing: -### Screen output or log file showing the error message and context: diff --git a/manage_externals/.github/PULL_REQUEST_TEMPLATE.md b/manage_externals/.github/PULL_REQUEST_TEMPLATE.md deleted file mode 100644 index b68b1fb5e..000000000 --- a/manage_externals/.github/PULL_REQUEST_TEMPLATE.md +++ /dev/null @@ -1,17 +0,0 @@ -[ 50 character, one line summary ] - -[ Description of the changes in this commit. It should be enough - information for someone not following this development to understand. - Lines should be wrapped at about 72 characters. ] - -User interface changes?: [ No/Yes ] -[ If yes, describe what changed, and steps taken to ensure backward compatibilty ] - -Fixes: [Github issue #s] And brief description of each issue. - -Testing: - test removed: - unit tests: - system tests: - manual testing: - diff --git a/manage_externals/.gitignore b/manage_externals/.gitignore deleted file mode 100644 index 411de5d96..000000000 --- a/manage_externals/.gitignore +++ /dev/null @@ -1,14 +0,0 @@ -# directories that are checked out by the tool -cime/ -cime_config/ -components/ - -# generated local files -*.log - -# editor files -*~ -*.bak - -# generated python files -*.pyc diff --git a/manage_externals/.travis.yml b/manage_externals/.travis.yml deleted file mode 100644 index b32f81bd2..000000000 --- a/manage_externals/.travis.yml +++ /dev/null @@ -1,32 +0,0 @@ -# NOTE(bja, 2017-11) travis-ci dosen't support python language builds -# on mac os. As a work around, we use built-in python on linux, and -# declare osx a 'generic' language, and create our own python env. - -language: python -os: linux -python: - - "2.7" - - "3.4" - - "3.5" - - "3.6" -matrix: - include: - - os: osx - language: generic - before_install: - # NOTE(bja, 2017-11) update is slow, 2.7.12 installed by default, good enough! - # - brew update - # - brew outdated python2 || brew upgrade python2 - - pip install virtualenv - - virtualenv env -p python2 - - source env/bin/activate -install: - - pip install -r test/requirements.txt -before_script: - - git --version -script: - - cd test; make test - - cd test; make lint -after_success: - - cd test; make coverage - - cd test; coveralls diff --git a/manage_externals/LICENSE.txt b/manage_externals/LICENSE.txt deleted file mode 100644 index 665ee03fb..000000000 --- a/manage_externals/LICENSE.txt +++ /dev/null @@ -1,34 +0,0 @@ -Copyright (c) 2017-2018, University Corporation for Atmospheric Research (UCAR) -All rights reserved. - -Developed by: - University Corporation for Atmospheric Research - National Center for Atmospheric Research - https://www2.cesm.ucar.edu/working-groups/sewg - -Permission is hereby granted, free of charge, to any person obtaining -a copy of this software and associated documentation files (the "Software"), -to deal with the Software without restriction, including without limitation -the rights to use, copy, modify, merge, publish, distribute, sublicense, -and/or sell copies of the Software, and to permit persons to whom -the Software is furnished to do so, subject to the following conditions: - - - Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimers. - - Redistributions in binary form must reproduce the above copyright notice, - this list of conditions and the following disclaimers in the documentation - and/or other materials provided with the distribution. - - Neither the names of [Name of Development Group, UCAR], - nor the names of its contributors may be used to endorse or promote - products derived from this Software without specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE -LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -POSSIBILITY OF SUCH DAMAGE. diff --git a/manage_externals/README.md b/manage_externals/README.md deleted file mode 100644 index 15e45ffb7..000000000 --- a/manage_externals/README.md +++ /dev/null @@ -1,211 +0,0 @@ --- AUTOMATICALLY GENERATED FILE. DO NOT EDIT -- - -[![Build Status](https://travis-ci.org/ESMCI/manage_externals.svg?branch=master)](https://travis-ci.org/ESMCI/manage_externals)[![Coverage Status](https://coveralls.io/repos/github/ESMCI/manage_externals/badge.svg?branch=master)](https://coveralls.io/github/ESMCI/manage_externals?branch=master) -``` -usage: checkout_externals [-h] [-e [EXTERNALS]] [-o] [-S] [-v] [--backtrace] - [-d] [--no-logging] - -checkout_externals manages checking out groups of externals from revision -control based on a externals description file. By default only the -required externals are checkout out. - -Operations performed by manage_externals utilities are explicit and -data driven. checkout_externals will always make the working copy *exactly* -match what is in the externals file when modifying the working copy of -a repository. - -If checkout_externals isn't doing what you expected, double check the contents -of the externals description file. - -Running checkout_externals without the '--status' option will always attempt to -synchronize the working copy to exactly match the externals description. - -optional arguments: - -h, --help show this help message and exit - -e [EXTERNALS], --externals [EXTERNALS] - The externals description filename. Default: - Externals.cfg. - -o, --optional By default only the required externals are checked - out. This flag will also checkout the optional - externals. - -S, --status Output status of the repositories managed by - checkout_externals. By default only summary - information is provided. Use verbose output to see - details. - -v, --verbose Output additional information to the screen and log - file. This flag can be used up to two times, - increasing the verbosity level each time. - --backtrace DEVELOPER: show exception backtraces as extra - debugging output - -d, --debug DEVELOPER: output additional debugging information to - the screen and log file. - --no-logging DEVELOPER: disable logging. - -``` -NOTE: checkout_externals *MUST* be run from the root of the source tree it -is managing. For example, if you cloned a repository with: - - $ git clone git@github.com/{SOME_ORG}/some-project some-project-dev - -Then the root of the source tree is /path/to/some-project-dev. If you -obtained a sub-project via a checkout of another project: - - $ git clone git@github.com/{SOME_ORG}/some-project some-project-dev - -and you need to checkout the sub-project externals, then the root of the -source tree is /path/to/some-project-dev. Do *NOT* run checkout_externals -from within /path/to/some-project-dev/sub-project - -The root of the source tree will be referred to as `${SRC_ROOT}` below. - -# Supported workflows - - * Checkout all required components from the default externals - description file: - - $ cd ${SRC_ROOT} - $ ./manage_externals/checkout_externals - - * To update all required components to the current values in the - externals description file, re-run checkout_externals: - - $ cd ${SRC_ROOT} - $ ./manage_externals/checkout_externals - - If there are *any* modifications to *any* working copy according - to the git or svn 'status' command, checkout_externals - will not update any external repositories. Modifications - include: modified files, added files, removed files, or missing - files. - - To avoid this safety check, edit the externals description file - and comment out the modified external block. - - * Checkout all required components from a user specified externals - description file: - - $ cd ${SRC_ROOT} - $ ./manage_externals/checkout_externals --excernals my-externals.cfg - - * Status summary of the repositories managed by checkout_externals: - - $ cd ${SRC_ROOT} - $ ./manage_externals/checkout_externals --status - - ./cime - s ./components/cism - ./components/mosart - e-o ./components/rtm - M ./src/fates - e-o ./tools/PTCLM - - where: - * column one indicates the status of the repository in relation - to the externals description file. - * column two indicates whether the working copy has modified files. - * column three shows how the repository is managed, optional or required - - Column one will be one of these values: - * s : out-of-sync : repository is checked out at a different commit - compared with the externals description - * e : empty : directory does not exist - checkout_externals has not been run - * ? : unknown : directory exists but .git or .svn directories are missing - - Column two will be one of these values: - * M : Modified : modified, added, deleted or missing files - * : blank / space : clean - * - : dash : no meaningful state, for empty repositories - - Column three will be one of these values: - * o : optional : optionally repository - * : blank / space : required repository - - * Detailed git or svn status of the repositories managed by checkout_externals: - - $ cd ${SRC_ROOT} - $ ./manage_externals/checkout_externals --status --verbose - -# Externals description file - - The externals description contains a list of the external - repositories that are used and their version control locations. The - file format is the standard ini/cfg configuration file format. Each - external is defined by a section containing the component name in - square brackets: - - * name (string) : component name, e.g. [cime], [cism], etc. - - Each section has the following keyword-value pairs: - - * required (boolean) : whether the component is a required checkout, - 'true' or 'false'. - - * local_path (string) : component path *relative* to where - checkout_externals is called. - - * protoctol (string) : version control protocol that is used to - manage the component. Valid values are 'git', 'svn', - 'externals_only'. - - Switching an external between different protocols is not - supported, e.g. from svn to git. To switch protocols, you need to - manually move the old working copy to a new location. - - Note: 'externals_only' will only process the external's own - external description file without trying to manage a repository - for the component. This is used for retreiving externals for - standalone components like cam and clm. If the source root of the - externals_only component is the same as the main source root, then - the local path must be set to '.', the unix current working - directory, e. g. 'local_path = .' - - * repo_url (string) : URL for the repository location, examples: - * https://svn-ccsm-models.cgd.ucar.edu/glc - * git@github.com:esmci/cime.git - * /path/to/local/repository - * . - - NOTE: To operate on only the local clone and and ignore remote - repositories, set the url to '.' (the unix current path), - i.e. 'repo_url = .' . This can be used to checkout a local branch - instead of the upstream branch. - - If a repo url is determined to be a local path (not a network url) - then user expansion, e.g. ~/, and environment variable expansion, - e.g. $HOME or $REPO_ROOT, will be performed. - - Relative paths are difficult to get correct, especially for mixed - use repos. It is advised that local paths expand to absolute paths. - If relative paths are used, they should be relative to one level - above local_path. If local path is 'src/foo', the the relative url - should be relative to 'src'. - - * tag (string) : tag to checkout - - * hash (string) : the git hash to checkout. Only applies to git - repositories. - - * branch (string) : branch to checkout from the specified - repository. Specifying a branch on a remote repository means that - checkout_externals will checkout the version of the branch in the remote, - not the the version in the local repository (if it exists). - - Note: one and only one of tag, branch hash must be supplied. - - * externals (string) : used to make manage_externals aware of - sub-externals required by an external. This is a relative path to - the external's root directory. For example, the main externals - description has an external checkout out at 'src/useful_library'. - useful_library requires additional externals to be complete. - Those additional externals are managed from the source root by the - externals description file pointed 'useful_library/sub-xternals.cfg', - Then the main 'externals' field in the top level repo should point to - 'sub-externals.cfg'. - - * Lines begining with '#' or ';' are comments and will be ignored. - -# Obtaining this tool, reporting issues, etc. - - The master repository for manage_externals is - https://github.com/ESMCI/manage_externals. Any issues with this tool - should be reported there. diff --git a/manage_externals/README_FIRST b/manage_externals/README_FIRST deleted file mode 100644 index c8a47d780..000000000 --- a/manage_externals/README_FIRST +++ /dev/null @@ -1,54 +0,0 @@ -CESM is comprised of a number of different components that are -developed and managed independently. Each component may have -additional 'external' dependancies and optional parts that are also -developed and managed independently. - -The checkout_externals.py tool manages retreiving and updating the -components and their externals so you have a complete set of source -files for the model. - -checkout_externals.py relies on a model description file that -describes what components are needed, where to find them and where to -put them in the source tree. The default file is called "CESM.xml" -regardless of whether you are checking out CESM or a standalone -component. - -checkout_externals requires access to git and svn repositories that -require authentication. checkout_externals may pass through -authentication requests, but it will not cache them for you. For the -best and most robust user experience, you should have svn and git -working without password authentication. See: - - https://help.github.com/articles/connecting-to-github-with-ssh/ - - ?svn ref? - -NOTE: checkout_externals.py *MUST* be run from the root of the source -tree it is managing. For example, if you cloned CLM with: - - $ git clone git@github.com/ncar/clm clm-dev - -Then the root of the source tree is /path/to/cesm-dev. If you obtained -CLM via an svn checkout of CESM and you need to checkout the CLM -externals, then the root of the source tree for CLM is: - - /path/to/cesm-dev/components/clm - -The root of the source tree will be referred to as ${SRC_ROOT} below. - -To get started quickly, checkout all required components from the -default model description file: - - $ cd ${SRC_ROOT} - $ ./checkout_cesm/checkout_externals.py - -For additional information about using checkout model, please see: - - ${SRC_ROOT}/checkout_cesm/README - -or run: - - $ cd ${SRC_ROOT} - $ ./checkout_cesm/checkout_externals.py --help - - diff --git a/manage_externals/checkout_externals b/manage_externals/checkout_externals deleted file mode 100755 index a0698baef..000000000 --- a/manage_externals/checkout_externals +++ /dev/null @@ -1,36 +0,0 @@ -#!/usr/bin/env python - -"""Main driver wrapper around the manic/checkout utility. - -Tool to assemble external respositories represented in an externals -description file. - -""" -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import sys -import traceback - -import manic - -if sys.hexversion < 0x02070000: - print(70 * '*') - print('ERROR: {0} requires python >= 2.7.x. '.format(sys.argv[0])) - print('It appears that you are running python {0}'.format( - '.'.join(str(x) for x in sys.version_info[0:3]))) - print(70 * '*') - sys.exit(1) - - -if __name__ == '__main__': - ARGS = manic.checkout.commandline_arguments() - try: - RET_STATUS, _ = manic.checkout.main(ARGS) - sys.exit(RET_STATUS) - except Exception as error: # pylint: disable=broad-except - manic.printlog(str(error)) - if ARGS.backtrace: - traceback.print_exc() - sys.exit(1) diff --git a/manage_externals/manic/__init__.py b/manage_externals/manic/__init__.py deleted file mode 100644 index 11badedd3..000000000 --- a/manage_externals/manic/__init__.py +++ /dev/null @@ -1,9 +0,0 @@ -"""Public API for the manage_externals library -""" - -from manic import checkout -from manic.utils import printlog - -__all__ = [ - 'checkout', 'printlog', -] diff --git a/manage_externals/manic/checkout.py b/manage_externals/manic/checkout.py deleted file mode 100755 index afd3a2788..000000000 --- a/manage_externals/manic/checkout.py +++ /dev/null @@ -1,409 +0,0 @@ -#!/usr/bin/env python - -""" -Tool to assemble repositories represented in a model-description file. - -If loaded as a module (e.g., in a component's buildcpp), it can be used -to check the validity of existing subdirectories and load missing sources. -""" -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import argparse -import logging -import os -import os.path -import sys - -from manic.externals_description import create_externals_description -from manic.externals_description import read_externals_description_file -from manic.externals_status import check_safe_to_update_repos -from manic.sourcetree import SourceTree -from manic.utils import printlog, fatal_error -from manic.global_constants import VERSION_SEPERATOR, LOG_FILE_NAME - -if sys.hexversion < 0x02070000: - print(70 * '*') - print('ERROR: {0} requires python >= 2.7.x. '.format(sys.argv[0])) - print('It appears that you are running python {0}'.format( - VERSION_SEPERATOR.join(str(x) for x in sys.version_info[0:3]))) - print(70 * '*') - sys.exit(1) - - -# --------------------------------------------------------------------- -# -# User input -# -# --------------------------------------------------------------------- -def commandline_arguments(args=None): - """Process the command line arguments - - Params: args - optional args. Should only be used during systems - testing. - - Returns: processed command line arguments - """ - description = ''' - -%(prog)s manages checking out groups of externals from revision -control based on an externals description file. By default only the -required externals are checkout out. - -Running %(prog)s without the '--status' option will always attempt to -synchronize the working copy to exactly match the externals description. -''' - - epilog = ''' -``` -NOTE: %(prog)s *MUST* be run from the root of the source tree it -is managing. For example, if you cloned a repository with: - - $ git clone git@github.com/{SOME_ORG}/some-project some-project-dev - -Then the root of the source tree is /path/to/some-project-dev. If you -obtained a sub-project via a checkout of another project: - - $ git clone git@github.com/{SOME_ORG}/some-project some-project-dev - -and you need to checkout the sub-project externals, then the root of the -source tree remains /path/to/some-project-dev. Do *NOT* run %(prog)s -from within /path/to/some-project-dev/sub-project - -The root of the source tree will be referred to as `${SRC_ROOT}` below. - - -# Supported workflows - - * Checkout all required components from the default externals - description file: - - $ cd ${SRC_ROOT} - $ ./manage_externals/%(prog)s - - * To update all required components to the current values in the - externals description file, re-run %(prog)s: - - $ cd ${SRC_ROOT} - $ ./manage_externals/%(prog)s - - If there are *any* modifications to *any* working copy according - to the git or svn 'status' command, %(prog)s - will not update any external repositories. Modifications - include: modified files, added files, removed files, or missing - files. - - To avoid this safety check, edit the externals description file - and comment out the modified external block. - - * Checkout all required components from a user specified externals - description file: - - $ cd ${SRC_ROOT} - $ ./manage_externals/%(prog)s --externals my-externals.cfg - - * Status summary of the repositories managed by %(prog)s: - - $ cd ${SRC_ROOT} - $ ./manage_externals/%(prog)s --status - - ./cime - s ./components/cism - ./components/mosart - e-o ./components/rtm - M ./src/fates - e-o ./tools/PTCLM - - - where: - * column one indicates the status of the repository in relation - to the externals description file. - * column two indicates whether the working copy has modified files. - * column three shows how the repository is managed, optional or required - - Column one will be one of these values: - * s : out-of-sync : repository is checked out at a different commit - compared with the externals description - * e : empty : directory does not exist - %(prog)s has not been run - * ? : unknown : directory exists but .git or .svn directories are missing - - Column two will be one of these values: - * M : Modified : modified, added, deleted or missing files - * : blank / space : clean - * - : dash : no meaningful state, for empty repositories - - Column three will be one of these values: - * o : optional : optionally repository - * : blank / space : required repository - - * Detailed git or svn status of the repositories managed by %(prog)s: - - $ cd ${SRC_ROOT} - $ ./manage_externals/%(prog)s --status --verbose - -# Externals description file - - The externals description contains a list of the external - repositories that are used and their version control locations. The - file format is the standard ini/cfg configuration file format. Each - external is defined by a section containing the component name in - square brackets: - - * name (string) : component name, e.g. [cime], [cism], etc. - - Each section has the following keyword-value pairs: - - * required (boolean) : whether the component is a required checkout, - 'true' or 'false'. - - * local_path (string) : component path *relative* to where - %(prog)s is called. - - * protoctol (string) : version control protocol that is used to - manage the component. Valid values are 'git', 'svn', - 'externals_only'. - - Switching an external between different protocols is not - supported, e.g. from svn to git. To switch protocols, you need to - manually move the old working copy to a new location. - - Note: 'externals_only' will only process the external's own - external description file without trying to manage a repository - for the component. This is used for retrieving externals for - standalone components like cam and ctsm which also serve as - sub-components within a larger project. If the source root of the - externals_only component is the same as the main source root, then - the local path must be set to '.', the unix current working - directory, e. g. 'local_path = .' - - * repo_url (string) : URL for the repository location, examples: - * https://svn-ccsm-models.cgd.ucar.edu/glc - * git@github.com:esmci/cime.git - * /path/to/local/repository - * . - - NOTE: To operate on only the local clone and and ignore remote - repositories, set the url to '.' (the unix current path), - i.e. 'repo_url = .' . This can be used to checkout a local branch - instead of the upstream branch. - - If a repo url is determined to be a local path (not a network url) - then user expansion, e.g. ~/, and environment variable expansion, - e.g. $HOME or $REPO_ROOT, will be performed. - - Relative paths are difficult to get correct, especially for mixed - use repos. It is advised that local paths expand to absolute paths. - If relative paths are used, they should be relative to one level - above local_path. If local path is 'src/foo', the the relative url - should be relative to 'src'. - - * tag (string) : tag to checkout - - * hash (string) : the git hash to checkout. Only applies to git - repositories. - - * branch (string) : branch to checkout from the specified - repository. Specifying a branch on a remote repository means that - %(prog)s will checkout the version of the branch in the remote, - not the the version in the local repository (if it exists). - - Note: one and only one of tag, branch hash must be supplied. - - * externals (string) : used to make manage_externals aware of - sub-externals required by an external. This is a relative path to - the external's root directory. For example, if LIBX is often used - as a sub-external, it might have an externals file (for its - externals) called Externals_LIBX.cfg. To use libx as a standalone - checkout, it would have another file, Externals.cfg with the - following entry: - - [ libx ] - local_path = . - protocol = externals_only - externals = Externals_LIBX.cfg - required = True - - Now, %(prog)s will process Externals.cfg and also process - Externals_LIBX.cfg as if it was a sub-external. - - * Lines beginning with '#' or ';' are comments and will be ignored. - -# Obtaining this tool, reporting issues, etc. - - The master repository for manage_externals is - https://github.com/ESMCI/manage_externals. Any issues with this tool - should be reported there. - -# Troubleshooting - -Operations performed by manage_externals utilities are explicit and -data driven. %(prog)s will always attempt to make the working copy -*exactly* match what is in the externals file when modifying the -working copy of a repository. - -If %(prog)s is not doing what you expected, double check the contents -of the externals description file or examine the output of -./manage_externals/%(prog)s --status - -''' - - parser = argparse.ArgumentParser( - description=description, epilog=epilog, - formatter_class=argparse.RawDescriptionHelpFormatter) - - # - # user options - # - parser.add_argument("components", nargs="*", - help="Specific component(s) to checkout. By default, " - "all required externals are checked out.") - - parser.add_argument('-e', '--externals', nargs='?', - default='Externals.cfg', - help='The externals description filename. ' - 'Default: %(default)s.') - - parser.add_argument('-o', '--optional', action='store_true', default=False, - help='By default only the required externals ' - 'are checked out. This flag will also checkout the ' - 'optional externals.') - - parser.add_argument('-S', '--status', action='store_true', default=False, - help='Output the status of the repositories managed by ' - '%(prog)s. By default only summary information ' - 'is provided. Use the verbose option to see details.') - - parser.add_argument('-v', '--verbose', action='count', default=0, - help='Output additional information to ' - 'the screen and log file. This flag can be ' - 'used up to two times, increasing the ' - 'verbosity level each time.') - - parser.add_argument('--svn-ignore-ancestry', action='store_true', default=False, - help='By default, subversion will abort if a component is ' - 'already checked out and there is no common ancestry with ' - 'the new URL. This flag passes the "--ignore-ancestry" flag ' - 'to the svn switch call. (This is not recommended unless ' - 'you are sure about what you are doing.)') - - # - # developer options - # - parser.add_argument('--backtrace', action='store_true', - help='DEVELOPER: show exception backtraces as extra ' - 'debugging output') - - parser.add_argument('-d', '--debug', action='store_true', default=False, - help='DEVELOPER: output additional debugging ' - 'information to the screen and log file.') - - logging_group = parser.add_mutually_exclusive_group() - - logging_group.add_argument('--logging', dest='do_logging', - action='store_true', - help='DEVELOPER: enable logging.') - logging_group.add_argument('--no-logging', dest='do_logging', - action='store_false', default=False, - help='DEVELOPER: disable logging ' - '(this is the default)') - - if args: - options = parser.parse_args(args) - else: - options = parser.parse_args() - return options - - -# --------------------------------------------------------------------- -# -# main -# -# --------------------------------------------------------------------- -def main(args): - """ - Function to call when module is called from the command line. - Parse externals file and load required repositories or all repositories if - the --all option is passed. - - Returns a tuple (overall_status, tree_status). overall_status is 0 - on success, non-zero on failure. tree_status gives the full status - *before* executing the checkout command - i.e., the status that it - used to determine if it's safe to proceed with the checkout. - """ - if args.do_logging: - logging.basicConfig(filename=LOG_FILE_NAME, - format='%(levelname)s : %(asctime)s : %(message)s', - datefmt='%Y-%m-%d %H:%M:%S', - level=logging.DEBUG) - - program_name = os.path.basename(sys.argv[0]) - logging.info('Beginning of %s', program_name) - - load_all = False - if args.optional: - load_all = True - - root_dir = os.path.abspath(os.getcwd()) - external_data = read_externals_description_file(root_dir, args.externals) - external = create_externals_description( - external_data, components=args.components) - - for comp in args.components: - if comp not in external.keys(): - fatal_error( - "No component {} found in {}".format( - comp, args.externals)) - - source_tree = SourceTree(root_dir, external, svn_ignore_ancestry=args.svn_ignore_ancestry) - printlog('Checking status of externals: ', end='') - tree_status = source_tree.status() - printlog('') - - if args.status: - # user requested status-only - for comp in sorted(tree_status.keys()): - tree_status[comp].log_status_message(args.verbose) - else: - # checkout / update the external repositories. - safe_to_update = check_safe_to_update_repos(tree_status) - if not safe_to_update: - # print status - for comp in sorted(tree_status.keys()): - tree_status[comp].log_status_message(args.verbose) - # exit gracefully - msg = """The external repositories labeled with 'M' above are not in a clean state. - -The following are two options for how to proceed: - -(1) Go into each external that is not in a clean state and issue either - an 'svn status' or a 'git status' command. Either revert or commit - your changes so that all externals are in a clean state. (Note, - though, that it is okay to have untracked files in your working - directory.) Then rerun {program_name}. - -(2) Alternatively, you do not have to rely on {program_name}. Instead, you - can manually update out-of-sync externals (labeled with 's' above) - as described in the configuration file {config_file}. - - -The external repositories labeled with '?' above are not under version -control using the expected protocol. If you are sure you want to switch -protocols, and you don't have any work you need to save from this -directory, then run "rm -rf [directory]" before re-running the -checkout_externals tool. -""".format(program_name=program_name, config_file=args.externals) - - printlog('-' * 70) - printlog(msg) - printlog('-' * 70) - else: - if not args.components: - source_tree.checkout(args.verbose, load_all) - for comp in args.components: - source_tree.checkout(args.verbose, load_all, load_comp=comp) - printlog('') - - logging.info('%s completed without exceptions.', program_name) - # NOTE(bja, 2017-11) tree status is used by the systems tests - return 0, tree_status diff --git a/manage_externals/manic/externals_description.py b/manage_externals/manic/externals_description.py deleted file mode 100644 index 3cebf525b..000000000 --- a/manage_externals/manic/externals_description.py +++ /dev/null @@ -1,790 +0,0 @@ -#!/usr/bin/env python - -"""Model description - -Model description is the representation of the various externals -included in the model. It processes in input data structure, and -converts it into a standard interface that is used by the rest of the -system. - -To maintain backward compatibility, externals description files should -follow semantic versioning rules, http://semver.org/ - - - -""" -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import logging -import os -import os.path -import re - -# ConfigParser in python2 was renamed to configparser in python3. -# In python2, ConfigParser returns byte strings, str, instead of unicode. -# We need unicode to be compatible with xml and json parser and python3. -try: - # python2 - from ConfigParser import SafeConfigParser as config_parser - from ConfigParser import MissingSectionHeaderError - from ConfigParser import NoSectionError, NoOptionError - - USE_PYTHON2 = True - - def config_string_cleaner(text): - """convert strings into unicode - """ - return text.decode('utf-8') -except ImportError: - # python3 - from configparser import ConfigParser as config_parser - from configparser import MissingSectionHeaderError - from configparser import NoSectionError, NoOptionError - - USE_PYTHON2 = False - - def config_string_cleaner(text): - """Python3 already uses unicode strings, so just return the string - without modification. - - """ - return text - -from .utils import printlog, fatal_error, str_to_bool, expand_local_url -from .utils import execute_subprocess -from .global_constants import EMPTY_STR, PPRINTER, VERSION_SEPERATOR - -# -# Globals -# -DESCRIPTION_SECTION = 'externals_description' -VERSION_ITEM = 'schema_version' - - -def read_externals_description_file(root_dir, file_name): - """Read a file containing an externals description and - create its internal representation. - - """ - root_dir = os.path.abspath(root_dir) - msg = 'In directory : {0}'.format(root_dir) - logging.info(msg) - printlog('Processing externals description file : {0}'.format(file_name)) - - file_path = os.path.join(root_dir, file_name) - if not os.path.exists(file_name): - if file_name.lower() == "none": - msg = ('INTERNAL ERROR: Attempt to read externals file ' - 'from {0} when not configured'.format(file_path)) - else: - msg = ('ERROR: Model description file, "{0}", does not ' - 'exist at path:\n {1}\nDid you run from the root of ' - 'the source tree?'.format(file_name, file_path)) - - fatal_error(msg) - - externals_description = None - if file_name == ExternalsDescription.GIT_SUBMODULES_FILENAME: - externals_description = read_gitmodules_file(root_dir, file_name) - else: - try: - config = config_parser() - config.read(file_path) - externals_description = config - except MissingSectionHeaderError: - # not a cfg file - pass - - if externals_description is None: - msg = 'Unknown file format!' - fatal_error(msg) - - return externals_description - -class LstripReader(object): - "LstripReader formats .gitmodules files to be acceptable for configparser" - def __init__(self, filename): - with open(filename, 'r') as infile: - lines = infile.readlines() - self._lines = list() - self._num_lines = len(lines) - self._index = 0 - for line in lines: - self._lines.append(line.lstrip()) - - def readlines(self): - """Return all the lines from this object's file""" - return self._lines - - def readline(self, size=-1): - """Format and return the next line or raise StopIteration""" - try: - line = self.next() - except StopIteration: - line = '' - - if (size > 0) and (len(line) < size): - return line[0:size] - - return line - - def __iter__(self): - """Begin an iteration""" - self._index = 0 - return self - - def next(self): - """Return the next line or raise StopIteration""" - if self._index >= self._num_lines: - raise StopIteration - - self._index = self._index + 1 - return self._lines[self._index - 1] - - def __next__(self): - return self.next() - -def git_submodule_status(repo_dir): - """Run the git submodule status command to obtain submodule hashes. - """ - # This function is here instead of GitRepository to avoid a dependency loop - cwd = os.getcwd() - os.chdir(repo_dir) - cmd = ['git', 'submodule', 'status'] - git_output = execute_subprocess(cmd, output_to_caller=True) - submodules = {} - submods = git_output.split('\n') - for submod in submods: - if submod: - status = submod[0] - items = submod[1:].split(' ') - if len(items) > 2: - tag = items[2] - else: - tag = None - - submodules[items[1]] = {'hash':items[0], 'status':status, 'tag':tag} - - os.chdir(cwd) - return submodules - -def parse_submodules_desc_section(section_items, file_path): - """Find the path and url for this submodule description""" - path = None - url = None - for item in section_items: - name = item[0].strip().lower() - if name == 'path': - path = item[1].strip() - elif name == 'url': - url = item[1].strip() - else: - msg = 'WARNING: Ignoring unknown {} property, in {}' - msg = msg.format(item[0], file_path) # fool pylint - logging.warning(msg) - - return path, url - -def read_gitmodules_file(root_dir, file_name): - # pylint: disable=deprecated-method - # Disabling this check because the method is only used for python2 - """Read a .gitmodules file and convert it to be compatible with an - externals description. - """ - root_dir = os.path.abspath(root_dir) - msg = 'In directory : {0}'.format(root_dir) - logging.info(msg) - printlog('Processing submodules description file : {0}'.format(file_name)) - - file_path = os.path.join(root_dir, file_name) - if not os.path.exists(file_name): - msg = ('ERROR: submodules description file, "{0}", does not ' - 'exist at path:\n {1}'.format(file_name, file_path)) - fatal_error(msg) - - submodules_description = None - externals_description = None - try: - config = config_parser() - if USE_PYTHON2: - config.readfp(LstripReader(file_path), filename=file_name) - else: - config.read_file(LstripReader(file_path), source=file_name) - - submodules_description = config - except MissingSectionHeaderError: - # not a cfg file - pass - - if submodules_description is None: - msg = 'Unknown file format!' - fatal_error(msg) - else: - # Convert the submodules description to an externals description - externals_description = config_parser() - # We need to grab all the commit hashes for this repo - submods = git_submodule_status(root_dir) - for section in submodules_description.sections(): - if section[0:9] == 'submodule': - sec_name = section[9:].strip(' "') - externals_description.add_section(sec_name) - section_items = submodules_description.items(section) - path, url = parse_submodules_desc_section(section_items, - file_path) - - if path is None: - msg = 'Submodule {} missing path'.format(sec_name) - fatal_error(msg) - - if url is None: - msg = 'Submodule {} missing url'.format(sec_name) - fatal_error(msg) - - externals_description.set(sec_name, - ExternalsDescription.PATH, path) - externals_description.set(sec_name, - ExternalsDescription.PROTOCOL, 'git') - externals_description.set(sec_name, - ExternalsDescription.REPO_URL, url) - externals_description.set(sec_name, - ExternalsDescription.REQUIRED, 'True') - git_hash = submods[sec_name]['hash'] - externals_description.set(sec_name, - ExternalsDescription.HASH, git_hash) - - # Required items - externals_description.add_section(DESCRIPTION_SECTION) - externals_description.set(DESCRIPTION_SECTION, VERSION_ITEM, '1.0.0') - - return externals_description - -def create_externals_description( - model_data, model_format='cfg', components=None, parent_repo=None): - """Create the a externals description object from the provided data - """ - externals_description = None - if model_format == 'dict': - externals_description = ExternalsDescriptionDict( - model_data, components=components) - elif model_format == 'cfg': - major, _, _ = get_cfg_schema_version(model_data) - if major == 1: - externals_description = ExternalsDescriptionConfigV1( - model_data, components=components, parent_repo=parent_repo) - else: - msg = ('Externals description file has unsupported schema ' - 'version "{0}".'.format(major)) - fatal_error(msg) - else: - msg = 'Unknown model data format "{0}"'.format(model_format) - fatal_error(msg) - return externals_description - - -def get_cfg_schema_version(model_cfg): - """Extract the major, minor, patch version of the config file schema - - Params: - model_cfg - config parser object containing the externas description data - - Returns: - major = integer major version - minor = integer minor version - patch = integer patch version - """ - semver_str = '' - try: - semver_str = model_cfg.get(DESCRIPTION_SECTION, VERSION_ITEM) - except (NoSectionError, NoOptionError): - msg = ('externals description file must have the required ' - 'section: "{0}" and item "{1}"'.format(DESCRIPTION_SECTION, - VERSION_ITEM)) - fatal_error(msg) - - # NOTE(bja, 2017-11) Assume we don't care about the - # build/pre-release metadata for now! - version_list = re.split(r'[-+]', semver_str) - version_str = version_list[0] - version = version_str.split(VERSION_SEPERATOR) - try: - major = int(version[0].strip()) - minor = int(version[1].strip()) - patch = int(version[2].strip()) - except ValueError: - msg = ('Config file schema version must have integer digits for ' - 'major, minor and patch versions. ' - 'Received "{0}"'.format(version_str)) - fatal_error(msg) - return major, minor, patch - - -class ExternalsDescription(dict): - """Base externals description class that is independent of the user input - format. Different input formats can all be converted to this - representation to provide a consistent represtentation for the - rest of the objects in the system. - - NOTE(bja, 2018-03): do NOT define _schema_major etc at the class - level in the base class. The nested/recursive nature of externals - means different schema versions may be present in a single run! - - All inheriting classes must overwrite: - self._schema_major and self._input_major - self._schema_minor and self._input_minor - self._schema_patch and self._input_patch - - where _schema_x is the supported schema, _input_x is the user - input value. - - """ - # keywords defining the interface into the externals description data - EXTERNALS = 'externals' - BRANCH = 'branch' - SUBMODULE = 'from_submodule' - HASH = 'hash' - NAME = 'name' - PATH = 'local_path' - PROTOCOL = 'protocol' - REPO = 'repo' - REPO_URL = 'repo_url' - REQUIRED = 'required' - TAG = 'tag' - - PROTOCOL_EXTERNALS_ONLY = 'externals_only' - PROTOCOL_GIT = 'git' - PROTOCOL_SVN = 'svn' - GIT_SUBMODULES_FILENAME = '.gitmodules' - KNOWN_PRROTOCOLS = [PROTOCOL_GIT, PROTOCOL_SVN, PROTOCOL_EXTERNALS_ONLY] - - # v1 xml keywords - _V1_TREE_PATH = 'TREE_PATH' - _V1_ROOT = 'ROOT' - _V1_TAG = 'TAG' - _V1_BRANCH = 'BRANCH' - _V1_REQ_SOURCE = 'REQ_SOURCE' - - _source_schema = {REQUIRED: True, - PATH: 'string', - EXTERNALS: 'string', - SUBMODULE : True, - REPO: {PROTOCOL: 'string', - REPO_URL: 'string', - TAG: 'string', - BRANCH: 'string', - HASH: 'string', - } - } - - def __init__(self, parent_repo=None): - """Convert the xml into a standardized dict that can be used to - construct the source objects - - """ - dict.__init__(self) - - self._schema_major = None - self._schema_minor = None - self._schema_patch = None - self._input_major = None - self._input_minor = None - self._input_patch = None - self._parent_repo = parent_repo - - def _verify_schema_version(self): - """Use semantic versioning rules to verify we can process this schema. - - """ - known = '{0}.{1}.{2}'.format(self._schema_major, - self._schema_minor, - self._schema_patch) - received = '{0}.{1}.{2}'.format(self._input_major, - self._input_minor, - self._input_patch) - - if self._input_major != self._schema_major: - # should never get here, the factory should handle this correctly! - msg = ('DEV_ERROR: version "{0}" parser received ' - 'version "{1}" input.'.format(known, received)) - fatal_error(msg) - - if self._input_minor > self._schema_minor: - msg = ('Incompatible schema version:\n' - ' User supplied schema version "{0}" is too new."\n' - ' Can only process version "{1}" files and ' - 'older.'.format(received, known)) - fatal_error(msg) - - if self._input_patch > self._schema_patch: - # NOTE(bja, 2018-03) ignoring for now... Not clear what - # conditions the test is needed. - pass - - def _check_user_input(self): - """Run a series of checks to attempt to validate the user input and - detect errors as soon as possible. - - NOTE(bja, 2018-03) These checks are called *after* the file is - read. That means the schema check can not occur here. - - Note: the order is important. check_optional will create - optional with null data. run check_data first to ensure - required data was provided correctly by the user. - - """ - self._check_data() - self._check_optional() - self._validate() - - def _check_data(self): - # pylint: disable=too-many-branches,too-many-statements - """Check user supplied data is valid where possible. - """ - for ext_name in self.keys(): - if (self[ext_name][self.REPO][self.PROTOCOL] - not in self.KNOWN_PRROTOCOLS): - msg = 'Unknown repository protocol "{0}" in "{1}".'.format( - self[ext_name][self.REPO][self.PROTOCOL], ext_name) - fatal_error(msg) - - if (self[ext_name][self.REPO][self.PROTOCOL] == - self.PROTOCOL_SVN): - if self.HASH in self[ext_name][self.REPO]: - msg = ('In repo description for "{0}". svn repositories ' - 'may not include the "hash" keyword.'.format( - ext_name)) - fatal_error(msg) - - if ((self[ext_name][self.REPO][self.PROTOCOL] != self.PROTOCOL_GIT) - and (self.SUBMODULE in self[ext_name])): - msg = ('self.SUBMODULE is only supported with {0} protocol, ' - '"{1}" is defined as an {2} repository') - fatal_error(msg.format(self.PROTOCOL_GIT, ext_name, - self[ext_name][self.REPO][self.PROTOCOL])) - - if (self[ext_name][self.REPO][self.PROTOCOL] != - self.PROTOCOL_EXTERNALS_ONLY): - ref_count = 0 - found_refs = '' - if self.TAG in self[ext_name][self.REPO]: - ref_count += 1 - found_refs = '"{0} = {1}", {2}'.format( - self.TAG, self[ext_name][self.REPO][self.TAG], - found_refs) - if self.BRANCH in self[ext_name][self.REPO]: - ref_count += 1 - found_refs = '"{0} = {1}", {2}'.format( - self.BRANCH, self[ext_name][self.REPO][self.BRANCH], - found_refs) - if self.HASH in self[ext_name][self.REPO]: - ref_count += 1 - found_refs = '"{0} = {1}", {2}'.format( - self.HASH, self[ext_name][self.REPO][self.HASH], - found_refs) - if (self.SUBMODULE in self[ext_name] and - self[ext_name][self.SUBMODULE]): - ref_count += 1 - found_refs = '"{0} = {1}", {2}'.format( - self.SUBMODULE, - self[ext_name][self.SUBMODULE], found_refs) - - if ref_count > 1: - msg = 'Model description is over specified! ' - if self.SUBMODULE in self[ext_name]: - msg += ('from_submodule is not compatible with ' - '"tag", "branch", or "hash" ') - else: - msg += (' Only one of "tag", "branch", or "hash" ' - 'may be specified ') - - msg += 'for repo description of "{0}".'.format(ext_name) - msg = '{0}\nFound: {1}'.format(msg, found_refs) - fatal_error(msg) - elif ref_count < 1: - msg = ('Model description is under specified! One of ' - '"tag", "branch", or "hash" must be specified for ' - 'repo description of "{0}"'.format(ext_name)) - fatal_error(msg) - - if (self.REPO_URL not in self[ext_name][self.REPO] and - (self.SUBMODULE not in self[ext_name] or - not self[ext_name][self.SUBMODULE])): - msg = ('Model description is under specified! Must have ' - '"repo_url" in repo ' - 'description for "{0}"'.format(ext_name)) - fatal_error(msg) - - if (self.SUBMODULE in self[ext_name] and - self[ext_name][self.SUBMODULE]): - if self.REPO_URL in self[ext_name][self.REPO]: - msg = ('Model description is over specified! ' - 'from_submodule keyword is not compatible ' - 'with {0} keyword for'.format(self.REPO_URL)) - msg = '{0} repo description of "{1}"'.format(msg, - ext_name) - fatal_error(msg) - - if self.PATH in self[ext_name]: - msg = ('Model description is over specified! ' - 'from_submodule keyword is not compatible with ' - '{0} keyword for'.format(self.PATH)) - msg = '{0} repo description of "{1}"'.format(msg, - ext_name) - fatal_error(msg) - - if self.REPO_URL in self[ext_name][self.REPO]: - url = expand_local_url( - self[ext_name][self.REPO][self.REPO_URL], ext_name) - self[ext_name][self.REPO][self.REPO_URL] = url - - def _check_optional(self): - # pylint: disable=too-many-branches - """Some fields like externals, repo:tag repo:branch are - (conditionally) optional. We don't want the user to be - required to enter them in every externals description file, but - still want to validate the input. Check conditions and add - default values if appropriate. - - """ - submod_desc = None # Only load submodules info once - for field in self: - # truely optional - if self.EXTERNALS not in self[field]: - self[field][self.EXTERNALS] = EMPTY_STR - - # git and svn repos must tags and branches for validation purposes. - if self.TAG not in self[field][self.REPO]: - self[field][self.REPO][self.TAG] = EMPTY_STR - if self.BRANCH not in self[field][self.REPO]: - self[field][self.REPO][self.BRANCH] = EMPTY_STR - if self.HASH not in self[field][self.REPO]: - self[field][self.REPO][self.HASH] = EMPTY_STR - if self.REPO_URL not in self[field][self.REPO]: - self[field][self.REPO][self.REPO_URL] = EMPTY_STR - - # from_submodule has a complex relationship with other fields - if self.SUBMODULE in self[field]: - # User wants to use submodule information, is it available? - if self._parent_repo is None: - # No parent == no submodule information - PPRINTER.pprint(self[field]) - msg = 'No parent submodule for "{0}"'.format(field) - fatal_error(msg) - elif self._parent_repo.protocol() != self.PROTOCOL_GIT: - PPRINTER.pprint(self[field]) - msg = 'Parent protocol, "{0}", does not support submodules' - fatal_error(msg.format(self._parent_repo.protocol())) - else: - args = self._repo_config_from_submodule(field, submod_desc) - repo_url, repo_path, ref_hash, submod_desc = args - - if repo_url is None: - msg = ('Cannot checkout "{0}" as a submodule, ' - 'repo not found in {1} file') - fatal_error(msg.format(field, - self.GIT_SUBMODULES_FILENAME)) - # Fill in submodule fields - self[field][self.REPO][self.REPO_URL] = repo_url - self[field][self.REPO][self.HASH] = ref_hash - self[field][self.PATH] = repo_path - - if self[field][self.SUBMODULE]: - # We should get everything from the parent submodule - # configuration. - pass - # No else (from _submodule = False is the default) - else: - # Add the default value (not using submodule information) - self[field][self.SUBMODULE] = False - - def _repo_config_from_submodule(self, field, submod_desc): - """Find the external config information for a repository from - its submodule configuration information. - """ - if submod_desc is None: - repo_path = os.getcwd() # Is this always correct? - submod_file = self._parent_repo.submodules_file(repo_path=repo_path) - if submod_file is None: - msg = ('Cannot checkout "{0}" from submodule information\n' - ' Parent repo, "{1}" does not have submodules') - fatal_error(msg.format(field, self._parent_repo.name())) - - submod_file = read_gitmodules_file(repo_path, submod_file) - submod_desc = create_externals_description(submod_file) - - # Can we find our external? - repo_url = None - repo_path = None - ref_hash = None - for ext_field in submod_desc: - if field == ext_field: - ext = submod_desc[ext_field] - repo_url = ext[self.REPO][self.REPO_URL] - repo_path = ext[self.PATH] - ref_hash = ext[self.REPO][self.HASH] - break - - return repo_url, repo_path, ref_hash, submod_desc - - def _validate(self): - """Validate that the parsed externals description contains all necessary - fields. - - """ - def print_compare_difference(data_a, data_b, loc_a, loc_b): - """Look through the data structures and print the differences. - - """ - for item in data_a: - if item in data_b: - if not isinstance(data_b[item], type(data_a[item])): - printlog(" {item}: {loc} = {val} ({val_type})".format( - item=item, loc=loc_a, val=data_a[item], - val_type=type(data_a[item]))) - printlog(" {item} {loc} = {val} ({val_type})".format( - item=' ' * len(item), loc=loc_b, val=data_b[item], - val_type=type(data_b[item]))) - else: - printlog(" {item}: {loc} = {val} ({val_type})".format( - item=item, loc=loc_a, val=data_a[item], - val_type=type(data_a[item]))) - printlog(" {item} {loc} missing".format( - item=' ' * len(item), loc=loc_b)) - - def validate_data_struct(schema, data): - """Compare a data structure against a schema and validate all required - fields are present. - - """ - is_valid = False - in_ref = True - valid = True - if isinstance(schema, dict) and isinstance(data, dict): - # Both are dicts, recursively verify that all fields - # in schema are present in the data. - for key in schema: - in_ref = in_ref and (key in data) - if in_ref: - valid = valid and ( - validate_data_struct(schema[key], data[key])) - - is_valid = in_ref and valid - else: - # non-recursive structure. verify data and schema have - # the same type. - is_valid = isinstance(data, type(schema)) - - if not is_valid: - printlog(" Unmatched schema and input:") - if isinstance(schema, dict): - print_compare_difference(schema, data, 'schema', 'input') - print_compare_difference(data, schema, 'input', 'schema') - else: - printlog(" schema = {0} ({1})".format( - schema, type(schema))) - printlog(" input = {0} ({1})".format(data, type(data))) - - return is_valid - - for field in self: - valid = validate_data_struct(self._source_schema, self[field]) - if not valid: - PPRINTER.pprint(self._source_schema) - PPRINTER.pprint(self[field]) - msg = 'ERROR: source for "{0}" did not validate'.format(field) - fatal_error(msg) - - -class ExternalsDescriptionDict(ExternalsDescription): - """Create a externals description object from a dictionary using the API - representations. Primarily used to simplify creating model - description files for unit testing. - - """ - - def __init__(self, model_data, components=None): - """Parse a native dictionary into a externals description. - """ - ExternalsDescription.__init__(self) - self._schema_major = 1 - self._schema_minor = 0 - self._schema_patch = 0 - self._input_major = 1 - self._input_minor = 0 - self._input_patch = 0 - self._verify_schema_version() - if components: - for key in model_data.items(): - if key not in components: - del model_data[key] - - self.update(model_data) - self._check_user_input() - - -class ExternalsDescriptionConfigV1(ExternalsDescription): - """Create a externals description object from a config_parser object, - schema version 1. - - """ - - def __init__(self, model_data, components=None, parent_repo=None): - """Convert the config data into a standardized dict that can be used to - construct the source objects - - """ - ExternalsDescription.__init__(self, parent_repo=parent_repo) - self._schema_major = 1 - self._schema_minor = 1 - self._schema_patch = 0 - self._input_major, self._input_minor, self._input_patch = \ - get_cfg_schema_version(model_data) - self._verify_schema_version() - self._remove_metadata(model_data) - self._parse_cfg(model_data, components=components) - self._check_user_input() - - @staticmethod - def _remove_metadata(model_data): - """Remove the metadata section from the model configuration file so - that it is simpler to look through the file and construct the - externals description. - - """ - model_data.remove_section(DESCRIPTION_SECTION) - - def _parse_cfg(self, cfg_data, components=None): - """Parse a config_parser object into a externals description. - """ - def list_to_dict(input_list, convert_to_lower_case=True): - """Convert a list of key-value pairs into a dictionary. - """ - output_dict = {} - for item in input_list: - key = config_string_cleaner(item[0].strip()) - value = config_string_cleaner(item[1].strip()) - if convert_to_lower_case: - key = key.lower() - output_dict[key] = value - return output_dict - - for section in cfg_data.sections(): - name = config_string_cleaner(section.lower().strip()) - if components and name not in components: - continue - self[name] = {} - self[name].update(list_to_dict(cfg_data.items(section))) - self[name][self.REPO] = {} - loop_keys = self[name].copy().keys() - for item in loop_keys: - if item in self._source_schema: - if isinstance(self._source_schema[item], bool): - self[name][item] = str_to_bool(self[name][item]) - elif item in self._source_schema[self.REPO]: - self[name][self.REPO][item] = self[name][item] - del self[name][item] - else: - msg = ('Invalid input: "{sect}" contains unknown ' - 'item "{item}".'.format(sect=name, item=item)) - fatal_error(msg) diff --git a/manage_externals/manic/externals_status.py b/manage_externals/manic/externals_status.py deleted file mode 100644 index d3d238f28..000000000 --- a/manage_externals/manic/externals_status.py +++ /dev/null @@ -1,164 +0,0 @@ -"""ExternalStatus - -Class to store status and state information about repositories and -create a string representation. - -""" -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -from .global_constants import EMPTY_STR -from .utils import printlog, indent_string -from .global_constants import VERBOSITY_VERBOSE, VERBOSITY_DUMP - - -class ExternalStatus(object): - """Class to represent the status of a given source repository or tree. - - Individual repositories determine their own status in the - Repository objects. This object is just resposible for storing the - information and passing it up to a higher level for reporting or - global decisions. - - There are two states of concern: - - * If the repository is in-sync with the externals description file. - - * If the repostiory working copy is clean and there are no pending - transactions (e.g. add, remove, rename, untracked files). - - """ - DEFAULT = '-' - UNKNOWN = '?' - EMPTY = 'e' - MODEL_MODIFIED = 's' # a.k.a. out-of-sync - DIRTY = 'M' - - STATUS_OK = ' ' - STATUS_ERROR = '!' - - # source types - OPTIONAL = 'o' - STANDALONE = 's' - MANAGED = ' ' - - def __init__(self): - self.sync_state = self.DEFAULT - self.clean_state = self.DEFAULT - self.source_type = self.DEFAULT - self.path = EMPTY_STR - self.current_version = EMPTY_STR - self.expected_version = EMPTY_STR - self.status_output = EMPTY_STR - - def log_status_message(self, verbosity): - """Write status message to the screen and log file - """ - self._default_status_message() - if verbosity >= VERBOSITY_VERBOSE: - self._verbose_status_message() - if verbosity >= VERBOSITY_DUMP: - self._dump_status_message() - - def _default_status_message(self): - """Return the default terse status message string - """ - msg = '{sync}{clean}{src_type} {path}'.format( - sync=self.sync_state, clean=self.clean_state, - src_type=self.source_type, path=self.path) - printlog(msg) - - def _verbose_status_message(self): - """Return the verbose status message string - """ - clean_str = self.DEFAULT - if self.clean_state == self.STATUS_OK: - clean_str = 'clean sandbox' - elif self.clean_state == self.DIRTY: - clean_str = 'modified sandbox' - - sync_str = 'on {0}'.format(self.current_version) - if self.sync_state != self.STATUS_OK: - sync_str = '{current} --> {expected}'.format( - current=self.current_version, expected=self.expected_version) - msg = ' {clean}, {sync}'.format(clean=clean_str, sync=sync_str) - printlog(msg) - - def _dump_status_message(self): - """Return the dump status message string - """ - msg = indent_string(self.status_output, 12) - printlog(msg) - - def safe_to_update(self): - """Report if it is safe to update a repository. Safe is defined as: - - * If a repository is empty, it is safe to update. - - * If a repository exists and has a clean working copy state - with no pending transactions. - - """ - safe_to_update = False - repo_exists = self.exists() - if not repo_exists: - safe_to_update = True - else: - # If the repo exists, it must be in ok or modified - # sync_state. Any other sync_state at this point - # represents a logic error that should have been handled - # before now! - sync_safe = ((self.sync_state == ExternalStatus.STATUS_OK) or - (self.sync_state == ExternalStatus.MODEL_MODIFIED)) - if sync_safe: - # The clean_state must be STATUS_OK to update. Otherwise we - # are dirty or there was a missed error previously. - if self.clean_state == ExternalStatus.STATUS_OK: - safe_to_update = True - return safe_to_update - - def exists(self): - """Determine if the repo exists. This is indicated by: - - * sync_state is not EMPTY - - * if the sync_state is empty, then the valid states for - clean_state are default, empty or unknown. Anything else - and there was probably an internal logic error. - - NOTE(bja, 2017-10) For the moment we are considering a - sync_state of default or unknown to require user intervention, - but we may want to relax this convention. This is probably a - result of a network error or internal logic error but more - testing is needed. - - """ - is_empty = (self.sync_state == ExternalStatus.EMPTY) - clean_valid = ((self.clean_state == ExternalStatus.DEFAULT) or - (self.clean_state == ExternalStatus.EMPTY) or - (self.clean_state == ExternalStatus.UNKNOWN)) - - if is_empty and clean_valid: - exists = False - else: - exists = True - return exists - - -def check_safe_to_update_repos(tree_status): - """Check if *ALL* repositories are in a safe state to update. We don't - want to do a partial update of the repositories then die, leaving - the model in an inconsistent state. - - Note: if there is an update to do, the repositories will by - definiation be out of synce with the externals description, so we - can't use that as criteria for updating. - - """ - safe_to_update = True - for comp in tree_status: - stat = tree_status[comp] - safe_to_update &= stat.safe_to_update() - - return safe_to_update diff --git a/manage_externals/manic/global_constants.py b/manage_externals/manic/global_constants.py deleted file mode 100644 index 0e91cffc9..000000000 --- a/manage_externals/manic/global_constants.py +++ /dev/null @@ -1,18 +0,0 @@ -"""Globals shared across modules -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import pprint - -EMPTY_STR = '' -LOCAL_PATH_INDICATOR = '.' -VERSION_SEPERATOR = '.' -LOG_FILE_NAME = 'manage_externals.log' -PPRINTER = pprint.PrettyPrinter(indent=4) - -VERBOSITY_DEFAULT = 0 -VERBOSITY_VERBOSE = 1 -VERBOSITY_DUMP = 2 diff --git a/manage_externals/manic/repository.py b/manage_externals/manic/repository.py deleted file mode 100644 index 4488c6be9..000000000 --- a/manage_externals/manic/repository.py +++ /dev/null @@ -1,97 +0,0 @@ -"""Base class representation of a repository -""" - -from .externals_description import ExternalsDescription -from .utils import fatal_error -from .global_constants import EMPTY_STR - - -class Repository(object): - """ - Class to represent and operate on a repository description. - """ - - def __init__(self, component_name, repo): - """ - Parse repo externals description - """ - self._name = component_name - self._protocol = repo[ExternalsDescription.PROTOCOL] - self._tag = repo[ExternalsDescription.TAG] - self._branch = repo[ExternalsDescription.BRANCH] - self._hash = repo[ExternalsDescription.HASH] - self._url = repo[ExternalsDescription.REPO_URL] - - if self._url is EMPTY_STR: - fatal_error('repo must have a URL') - - if ((self._tag is EMPTY_STR) and (self._branch is EMPTY_STR) and - (self._hash is EMPTY_STR)): - fatal_error('{0} repo must have a branch, tag or hash element') - - ref_count = 0 - if self._tag is not EMPTY_STR: - ref_count += 1 - if self._branch is not EMPTY_STR: - ref_count += 1 - if self._hash is not EMPTY_STR: - ref_count += 1 - if ref_count != 1: - fatal_error('repo {0} must have exactly one of ' - 'tag, branch or hash.'.format(self._name)) - - def checkout(self, base_dir_path, repo_dir_name, verbosity, recursive): # pylint: disable=unused-argument - """ - If the repo destination directory exists, ensure it is correct (from - correct URL, correct branch or tag), and possibly update the source. - If the repo destination directory does not exist, checkout the correce - branch or tag. - NB: is include as an argument for compatibility with - git functionality (repository_git.py) - """ - msg = ('DEV_ERROR: checkout method must be implemented in all ' - 'repository classes! {0}'.format(self.__class__.__name__)) - fatal_error(msg) - - def status(self, stat, repo_dir_path): # pylint: disable=unused-argument - """Report the status of the repo - - """ - msg = ('DEV_ERROR: status method must be implemented in all ' - 'repository classes! {0}'.format(self.__class__.__name__)) - fatal_error(msg) - - def submodules_file(self, repo_path=None): - # pylint: disable=no-self-use,unused-argument - """Stub for use by non-git VC systems""" - return None - - def url(self): - """Public access of repo url. - """ - return self._url - - def tag(self): - """Public access of repo tag - """ - return self._tag - - def branch(self): - """Public access of repo branch. - """ - return self._branch - - def hash(self): - """Public access of repo hash. - """ - return self._hash - - def name(self): - """Public access of repo name. - """ - return self._name - - def protocol(self): - """Public access of repo protocol. - """ - return self._protocol diff --git a/manage_externals/manic/repository_factory.py b/manage_externals/manic/repository_factory.py deleted file mode 100644 index 80a92a9d8..000000000 --- a/manage_externals/manic/repository_factory.py +++ /dev/null @@ -1,29 +0,0 @@ -"""Factory for creating and initializing the appropriate repository class -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -from .repository_git import GitRepository -from .repository_svn import SvnRepository -from .externals_description import ExternalsDescription -from .utils import fatal_error - - -def create_repository(component_name, repo_info, svn_ignore_ancestry=False): - """Determine what type of repository we have, i.e. git or svn, and - create the appropriate object. - - """ - protocol = repo_info[ExternalsDescription.PROTOCOL].lower() - if protocol == 'git': - repo = GitRepository(component_name, repo_info) - elif protocol == 'svn': - repo = SvnRepository(component_name, repo_info, ignore_ancestry=svn_ignore_ancestry) - elif protocol == 'externals_only': - repo = None - else: - msg = 'Unknown repo protocol "{0}"'.format(protocol) - fatal_error(msg) - return repo diff --git a/manage_externals/manic/repository_git.py b/manage_externals/manic/repository_git.py deleted file mode 100644 index c0e64eb55..000000000 --- a/manage_externals/manic/repository_git.py +++ /dev/null @@ -1,790 +0,0 @@ -"""Class for interacting with git repositories -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import copy -import os - -from .global_constants import EMPTY_STR, LOCAL_PATH_INDICATOR -from .global_constants import VERBOSITY_VERBOSE -from .repository import Repository -from .externals_status import ExternalStatus -from .externals_description import ExternalsDescription, git_submodule_status -from .utils import expand_local_url, split_remote_url, is_remote_url -from .utils import fatal_error, printlog -from .utils import execute_subprocess - - -class GitRepository(Repository): - """Class to represent and operate on a repository description. - - For testing purpose, all system calls to git should: - - * be isolated in separate functions with no application logic - * of the form: - - cmd = ['git', ...] - - value = execute_subprocess(cmd, output_to_caller={T|F}, - status_to_caller={T|F}) - - return value - * be static methods (not rely on self) - * name as _git_subcommand_args(user_args) - - This convention allows easy unit testing of the repository logic - by mocking the specific calls to return predefined results. - - """ - - def __init__(self, component_name, repo): - """ - Parse repo (a XML element). - """ - Repository.__init__(self, component_name, repo) - self._gitmodules = None - self._submods = None - - # ---------------------------------------------------------------- - # - # Public API, defined by Repository - # - # ---------------------------------------------------------------- - def checkout(self, base_dir_path, repo_dir_name, verbosity, recursive): - """ - If the repo destination directory exists, ensure it is correct (from - correct URL, correct branch or tag), and possibly update the source. - If the repo destination directory does not exist, checkout the correct - branch or tag. - """ - repo_dir_path = os.path.join(base_dir_path, repo_dir_name) - repo_dir_exists = os.path.exists(repo_dir_path) - if (repo_dir_exists and not os.listdir( - repo_dir_path)) or not repo_dir_exists: - self._clone_repo(base_dir_path, repo_dir_name, verbosity) - self._checkout_ref(repo_dir_path, verbosity, recursive) - gmpath = os.path.join(repo_dir_path, - ExternalsDescription.GIT_SUBMODULES_FILENAME) - if os.path.exists(gmpath): - self._gitmodules = gmpath - self._submods = git_submodule_status(repo_dir_path) - else: - self._gitmodules = None - self._submods = None - - def status(self, stat, repo_dir_path): - """ - If the repo destination directory exists, ensure it is correct (from - correct URL, correct branch or tag), and possibly update the source. - If the repo destination directory does not exist, checkout the correct - branch or tag. - """ - self._check_sync(stat, repo_dir_path) - if os.path.exists(repo_dir_path): - self._status_summary(stat, repo_dir_path) - - def submodules_file(self, repo_path=None): - if repo_path is not None: - gmpath = os.path.join(repo_path, - ExternalsDescription.GIT_SUBMODULES_FILENAME) - if os.path.exists(gmpath): - self._gitmodules = gmpath - self._submods = git_submodule_status(repo_path) - - return self._gitmodules - - # ---------------------------------------------------------------- - # - # Internal work functions - # - # ---------------------------------------------------------------- - def _clone_repo(self, base_dir_path, repo_dir_name, verbosity): - """Prepare to execute the clone by managing directory location - """ - cwd = os.getcwd() - os.chdir(base_dir_path) - self._git_clone(self._url, repo_dir_name, verbosity) - os.chdir(cwd) - - def _current_ref(self): - """Determine the *name* associated with HEAD. - - If we're on a branch, then returns the branch name; otherwise, - if we're on a tag, then returns the tag name; otherwise, returns - the current hash. Returns an empty string if no reference can be - determined (e.g., if we're not actually in a git repository). - """ - ref_found = False - - # If we're on a branch, then use that as the current ref - branch_found, branch_name = self._git_current_branch() - if branch_found: - current_ref = branch_name - ref_found = True - - if not ref_found: - # Otherwise, if we're exactly at a tag, use that as the - # current ref - tag_found, tag_name = self._git_current_tag() - if tag_found: - current_ref = tag_name - ref_found = True - - if not ref_found: - # Otherwise, use current hash as the current ref - hash_found, hash_name = self._git_current_hash() - if hash_found: - current_ref = hash_name - ref_found = True - - if not ref_found: - # If we still can't find a ref, return empty string. This - # can happen if we're not actually in a git repo - current_ref = '' - - return current_ref - - def _check_sync(self, stat, repo_dir_path): - """Determine whether a git repository is in-sync with the model - description. - - Because repos can have multiple remotes, the only criteria is - whether the branch or tag is the same. - - """ - if not os.path.exists(repo_dir_path): - # NOTE(bja, 2017-10) condition should have been determined - # by _Source() object and should never be here! - stat.sync_state = ExternalStatus.STATUS_ERROR - else: - git_dir = os.path.join(repo_dir_path, '.git') - if not os.path.exists(git_dir): - # NOTE(bja, 2017-10) directory exists, but no git repo - # info.... Can't test with subprocess git command - # because git will move up directory tree until it - # finds the parent repo git dir! - stat.sync_state = ExternalStatus.UNKNOWN - else: - self._check_sync_logic(stat, repo_dir_path) - - def _check_sync_logic(self, stat, repo_dir_path): - """Compare the underlying hashes of the currently checkout ref and the - expected ref. - - Output: sets the sync_state as well as the current and - expected ref in the input status object. - - """ - def compare_refs(current_ref, expected_ref): - """Compare the current and expected ref. - - """ - if current_ref == expected_ref: - status = ExternalStatus.STATUS_OK - else: - status = ExternalStatus.MODEL_MODIFIED - return status - - cwd = os.getcwd() - os.chdir(repo_dir_path) - - # get the full hash of the current commit - _, current_ref = self._git_current_hash() - - if self._branch: - if self._url == LOCAL_PATH_INDICATOR: - expected_ref = self._branch - else: - remote_name = self._determine_remote_name() - if not remote_name: - # git doesn't know about this remote. by definition - # this is a modified state. - expected_ref = "unknown_remote/{0}".format(self._branch) - else: - expected_ref = "{0}/{1}".format(remote_name, self._branch) - elif self._hash: - expected_ref = self._hash - elif self._tag: - expected_ref = self._tag - else: - msg = 'In repo "{0}": none of branch, hash or tag are set'.format( - self._name) - fatal_error(msg) - - # record the *names* of the current and expected branches - stat.current_version = self._current_ref() - stat.expected_version = copy.deepcopy(expected_ref) - - if current_ref == EMPTY_STR: - stat.sync_state = ExternalStatus.UNKNOWN - else: - # get the underlying hash of the expected ref - revparse_status, expected_ref_hash = self._git_revparse_commit( - expected_ref) - if revparse_status: - # We failed to get the hash associated with - # expected_ref. Maybe we should assign this to some special - # status, but for now we're just calling this out-of-sync to - # remain consistent with how this worked before. - stat.sync_state = ExternalStatus.MODEL_MODIFIED - else: - # compare the underlying hashes - stat.sync_state = compare_refs(current_ref, expected_ref_hash) - - os.chdir(cwd) - - def _determine_remote_name(self): - """Return the remote name. - - Note that this is for the *future* repo url and branch, not - the current working copy! - - """ - git_output = self._git_remote_verbose() - git_output = git_output.splitlines() - remote_name = '' - for line in git_output: - data = line.strip() - if not data: - continue - data = data.split() - name = data[0].strip() - url = data[1].strip() - if self._url == url: - remote_name = name - break - return remote_name - - def _create_remote_name(self): - """The url specified in the externals description file was not known - to git. We need to add it, which means adding a unique and - safe name.... - - The assigned name needs to be safe for git to use, e.g. can't - look like a path 'foo/bar' and work with both remote and local paths. - - Remote paths include but are not limited to: git, ssh, https, - github, gitlab, bitbucket, custom server, etc. - - Local paths can be relative or absolute. They may contain - shell variables, e.g. ${REPO_ROOT}/repo_name, or username - expansion, i.e. ~/ or ~someuser/. - - Relative paths must be at least one layer of redirection, i.e. - container/../ext_repo, but may be many layers deep, e.g. - container/../../../../../ext_repo - - NOTE(bja, 2017-11) - - The base name below may not be unique, for example if the - user has local paths like: - - /path/to/my/repos/nice_repo - /path/to/other/repos/nice_repo - - But the current implementation should cover most common - use cases for remotes and still provide usable names. - - """ - url = copy.deepcopy(self._url) - if is_remote_url(url): - url = split_remote_url(url) - else: - url = expand_local_url(url, self._name) - url = url.split('/') - repo_name = url[-1] - base_name = url[-2] - # repo name should nominally already be something that git can - # deal with. We need to remove other possibly troublesome - # punctuation, e.g. /, $, from the base name. - unsafe_characters = '!@#$%^&*()[]{}\\/,;~' - for unsafe in unsafe_characters: - base_name = base_name.replace(unsafe, '') - remote_name = "{0}_{1}".format(base_name, repo_name) - return remote_name - - def _checkout_ref(self, repo_dir, verbosity, submodules): - """Checkout the user supplied reference - if is True, recursively initialize and update - the repo's submodules - """ - # import pdb; pdb.set_trace() - cwd = os.getcwd() - os.chdir(repo_dir) - if self._url.strip() == LOCAL_PATH_INDICATOR: - self._checkout_local_ref(verbosity, submodules) - else: - self._checkout_external_ref(verbosity, submodules) - - os.chdir(cwd) - - def _checkout_local_ref(self, verbosity, submodules): - """Checkout the reference considering the local repo only. Do not - fetch any additional remotes or specify the remote when - checkout out the ref. - if is True, recursively initialize and update - the repo's submodules - """ - if self._tag: - ref = self._tag - elif self._branch: - ref = self._branch - else: - ref = self._hash - - self._check_for_valid_ref(ref) - self._git_checkout_ref(ref, verbosity, submodules) - - def _checkout_external_ref(self, verbosity, submodules): - """Checkout the reference from a remote repository - if is True, recursively initialize and update - the repo's submodules - """ - if self._tag: - ref = self._tag - elif self._branch: - ref = self._branch - else: - ref = self._hash - - remote_name = self._determine_remote_name() - if not remote_name: - remote_name = self._create_remote_name() - self._git_remote_add(remote_name, self._url) - self._git_fetch(remote_name) - - # NOTE(bja, 2018-03) we need to send separate ref and remote - # name to check_for_vaild_ref, but the combined name to - # checkout_ref! - self._check_for_valid_ref(ref, remote_name) - - if self._branch: - ref = '{0}/{1}'.format(remote_name, ref) - self._git_checkout_ref(ref, verbosity, submodules) - - def _check_for_valid_ref(self, ref, remote_name=None): - """Try some basic sanity checks on the user supplied reference so we - can provide a more useful error message than calledprocess - error... - - """ - is_tag = self._ref_is_tag(ref) - is_branch = self._ref_is_branch(ref, remote_name) - is_hash = self._ref_is_hash(ref) - - is_valid = is_tag or is_branch or is_hash - if not is_valid: - msg = ('In repo "{0}": reference "{1}" does not appear to be a ' - 'valid tag, branch or hash! Please verify the reference ' - 'name (e.g. spelling), is available from: {2} '.format( - self._name, ref, self._url)) - fatal_error(msg) - - if is_tag: - is_unique_tag, msg = self._is_unique_tag(ref, remote_name) - if not is_unique_tag: - msg = ('In repo "{0}": tag "{1}" {2}'.format( - self._name, self._tag, msg)) - fatal_error(msg) - - return is_valid - - def _is_unique_tag(self, ref, remote_name): - """Verify that a reference is a valid tag and is unique (not a branch) - - Tags may be tag names, or SHA id's. It is also possible that a - branch and tag have the some name. - - Note: values returned by git_showref_* and git_revparse are - shell return codes, which are zero for success, non-zero for - error! - - """ - is_tag = self._ref_is_tag(ref) - is_branch = self._ref_is_branch(ref, remote_name) - is_hash = self._ref_is_hash(ref) - - msg = '' - is_unique_tag = False - if is_tag and not is_branch: - # unique tag - msg = 'is ok' - is_unique_tag = True - elif is_tag and is_branch: - msg = ('is both a branch and a tag. git may checkout the branch ' - 'instead of the tag depending on your version of git.') - is_unique_tag = False - elif not is_tag and is_branch: - msg = ('is a branch, and not a tag. If you intended to checkout ' - 'a branch, please change the externals description to be ' - 'a branch. If you intended to checkout a tag, it does not ' - 'exist. Please check the name.') - is_unique_tag = False - else: # not is_tag and not is_branch: - if is_hash: - # probably a sha1 or HEAD, etc, we call it a tag - msg = 'is ok' - is_unique_tag = True - else: - # undetermined state. - msg = ('does not appear to be a valid tag, branch or hash! ' - 'Please check the name and repository.') - is_unique_tag = False - - return is_unique_tag, msg - - def _ref_is_tag(self, ref): - """Verify that a reference is a valid tag according to git. - - Note: values returned by git_showref_* and git_revparse are - shell return codes, which are zero for success, non-zero for - error! - """ - is_tag = False - value = self._git_showref_tag(ref) - if value == 0: - is_tag = True - return is_tag - - def _ref_is_branch(self, ref, remote_name=None): - """Verify if a ref is any kind of branch (local, tracked remote, - untracked remote). - - """ - local_branch = False - remote_branch = False - if remote_name: - remote_branch = self._ref_is_remote_branch(ref, remote_name) - local_branch = self._ref_is_local_branch(ref) - - is_branch = False - if local_branch or remote_branch: - is_branch = True - return is_branch - - def _ref_is_local_branch(self, ref): - """Verify that a reference is a valid branch according to git. - - show-ref branch returns local branches that have been - previously checked out. It will not necessarily pick up - untracked remote branches. - - Note: values returned by git_showref_* and git_revparse are - shell return codes, which are zero for success, non-zero for - error! - - """ - is_branch = False - value = self._git_showref_branch(ref) - if value == 0: - is_branch = True - return is_branch - - def _ref_is_remote_branch(self, ref, remote_name): - """Verify that a reference is a valid branch according to git. - - show-ref branch returns local branches that have been - previously checked out. It will not necessarily pick up - untracked remote branches. - - Note: values returned by git_showref_* and git_revparse are - shell return codes, which are zero for success, non-zero for - error! - - """ - is_branch = False - value = self._git_lsremote_branch(ref, remote_name) - if value == 0: - is_branch = True - return is_branch - - def _ref_is_commit(self, ref): - """Verify that a reference is a valid commit according to git. - - This could be a tag, branch, sha1 id, HEAD and potentially others... - - Note: values returned by git_showref_* and git_revparse are - shell return codes, which are zero for success, non-zero for - error! - """ - is_commit = False - value, _ = self._git_revparse_commit(ref) - if value == 0: - is_commit = True - return is_commit - - def _ref_is_hash(self, ref): - """Verify that a reference is a valid hash according to git. - - Git doesn't seem to provide an exact way to determine if user - supplied reference is an actual hash. So we verify that the - ref is a valid commit and return the underlying commit - hash. Then check that the commit hash begins with the user - supplied string. - - Note: values returned by git_showref_* and git_revparse are - shell return codes, which are zero for success, non-zero for - error! - - """ - is_hash = False - status, git_output = self._git_revparse_commit(ref) - if status == 0: - if git_output.strip().startswith(ref): - is_hash = True - return is_hash - - def _status_summary(self, stat, repo_dir_path): - """Determine the clean/dirty status of a git repository - - """ - cwd = os.getcwd() - os.chdir(repo_dir_path) - git_output = self._git_status_porcelain_v1z() - is_dirty = self._status_v1z_is_dirty(git_output) - if is_dirty: - stat.clean_state = ExternalStatus.DIRTY - else: - stat.clean_state = ExternalStatus.STATUS_OK - - # Now save the verbose status output incase the user wants to - # see it. - stat.status_output = self._git_status_verbose() - os.chdir(cwd) - - @staticmethod - def _status_v1z_is_dirty(git_output): - """Parse the git status output from --porcelain=v1 -z and determine if - the repo status is clean or dirty. Dirty means: - - * modified files - * missing files - * added files - * removed - * renamed - * unmerged - - Whether untracked files are considered depends on how the status - command was run (i.e., whether it was run with the '-u' option). - - NOTE: Based on the above definition, the porcelain status - should be an empty string to be considered 'clean'. Of course - this assumes we only get an empty string from an status - command on a clean checkout, and not some error - condition... Could alse use 'git diff --quiet'. - - """ - is_dirty = False - if git_output: - is_dirty = True - return is_dirty - - # ---------------------------------------------------------------- - # - # system call to git for information gathering - # - # ---------------------------------------------------------------- - @staticmethod - def _git_current_hash(): - """Return the full hash of the currently checked-out version. - - Returns a tuple, (hash_found, hash), where hash_found is a - logical specifying whether a hash was found for HEAD (False - could mean we're not in a git repository at all). (If hash_found - is False, then hash is ''.) - """ - status, git_output = GitRepository._git_revparse_commit("HEAD") - hash_found = not status - if not hash_found: - git_output = '' - return hash_found, git_output - - @staticmethod - def _git_current_branch(): - """Determines the name of the current branch. - - Returns a tuple, (branch_found, branch_name), where branch_found - is a logical specifying whether a branch name was found for - HEAD. (If branch_found is False, then branch_name is ''.) - """ - cmd = ['git', 'symbolic-ref', '--short', '-q', 'HEAD'] - status, git_output = execute_subprocess(cmd, - output_to_caller=True, - status_to_caller=True) - branch_found = not status - if branch_found: - git_output = git_output.strip() - else: - git_output = '' - return branch_found, git_output - - @staticmethod - def _git_current_tag(): - """Determines the name tag corresponding to HEAD (if any). - - Returns a tuple, (tag_found, tag_name), where tag_found is a - logical specifying whether we found a tag name corresponding to - HEAD. (If tag_found is False, then tag_name is ''.) - """ - # git describe --exact-match --tags HEAD - cmd = ['git', 'describe', '--exact-match', '--tags', 'HEAD'] - status, git_output = execute_subprocess(cmd, - output_to_caller=True, - status_to_caller=True) - tag_found = not status - if tag_found: - git_output = git_output.strip() - else: - git_output = '' - return tag_found, git_output - - @staticmethod - def _git_showref_tag(ref): - """Run git show-ref check if the user supplied ref is a tag. - - could also use git rev-parse --quiet --verify tagname^{tag} - """ - cmd = ['git', 'show-ref', '--quiet', '--verify', - 'refs/tags/{0}'.format(ref), ] - status = execute_subprocess(cmd, status_to_caller=True) - return status - - @staticmethod - def _git_showref_branch(ref): - """Run git show-ref check if the user supplied ref is a local or - tracked remote branch. - - """ - cmd = ['git', 'show-ref', '--quiet', '--verify', - 'refs/heads/{0}'.format(ref), ] - status = execute_subprocess(cmd, status_to_caller=True) - return status - - @staticmethod - def _git_lsremote_branch(ref, remote_name): - """Run git ls-remote to check if the user supplied ref is a remote - branch that is not being tracked - - """ - cmd = ['git', 'ls-remote', '--exit-code', '--heads', - remote_name, ref, ] - status = execute_subprocess(cmd, status_to_caller=True) - return status - - @staticmethod - def _git_revparse_commit(ref): - """Run git rev-parse to detect if a reference is a SHA, HEAD or other - valid commit. - - """ - cmd = ['git', 'rev-parse', '--quiet', '--verify', - '{0}^{1}'.format(ref, '{commit}'), ] - status, git_output = execute_subprocess(cmd, status_to_caller=True, - output_to_caller=True) - git_output = git_output.strip() - return status, git_output - - @staticmethod - def _git_status_porcelain_v1z(): - """Run git status to obtain repository information. - - This is run with '--untracked=no' to ignore untracked files. - - The machine-portable format that is guaranteed not to change - between git versions or *user configuration*. - - """ - cmd = ['git', 'status', '--untracked-files=no', '--porcelain', '-z'] - git_output = execute_subprocess(cmd, output_to_caller=True) - return git_output - - @staticmethod - def _git_status_verbose(): - """Run the git status command to obtain repository information. - """ - cmd = ['git', 'status'] - git_output = execute_subprocess(cmd, output_to_caller=True) - return git_output - - @staticmethod - def _git_remote_verbose(): - """Run the git remote command to obtain repository information. - """ - cmd = ['git', 'remote', '--verbose'] - git_output = execute_subprocess(cmd, output_to_caller=True) - return git_output - - @staticmethod - def has_submodules(repo_dir_path=None): - """Return True iff the repository at (or the current - directory if is None) has a '.gitmodules' file - """ - if repo_dir_path is None: - fname = ExternalsDescription.GIT_SUBMODULES_FILENAME - else: - fname = os.path.join(repo_dir_path, - ExternalsDescription.GIT_SUBMODULES_FILENAME) - - return os.path.exists(fname) - - # ---------------------------------------------------------------- - # - # system call to git for sideffects modifying the working tree - # - # ---------------------------------------------------------------- - @staticmethod - def _git_clone(url, repo_dir_name, verbosity): - """Run git clone for the side effect of creating a repository. - """ - cmd = ['git', 'clone', '--quiet'] - subcmd = None - - cmd.extend([url, repo_dir_name]) - if verbosity >= VERBOSITY_VERBOSE: - printlog(' {0}'.format(' '.join(cmd))) - execute_subprocess(cmd) - if subcmd is not None: - os.chdir(repo_dir_name) - execute_subprocess(subcmd) - - @staticmethod - def _git_remote_add(name, url): - """Run the git remote command for the side effect of adding a remote - """ - cmd = ['git', 'remote', 'add', name, url] - execute_subprocess(cmd) - - @staticmethod - def _git_fetch(remote_name): - """Run the git fetch command for the side effect of updating the repo - """ - cmd = ['git', 'fetch', '--quiet', '--tags', remote_name] - execute_subprocess(cmd) - - @staticmethod - def _git_checkout_ref(ref, verbosity, submodules): - """Run the git checkout command for the side effect of updating the repo - - Param: ref is a reference to a local or remote object in the - form 'origin/my_feature', or 'tag1'. - - """ - cmd = ['git', 'checkout', '--quiet', ref] - if verbosity >= VERBOSITY_VERBOSE: - printlog(' {0}'.format(' '.join(cmd))) - execute_subprocess(cmd) - if submodules: - GitRepository._git_update_submodules(verbosity) - - @staticmethod - def _git_update_submodules(verbosity): - """Run git submodule update for the side effect of updating this - repo's submodules. - """ - # First, verify that we have a .gitmodules file - if os.path.exists(ExternalsDescription.GIT_SUBMODULES_FILENAME): - cmd = ['git', 'submodule', 'update', '--init', '--recursive'] - if verbosity >= VERBOSITY_VERBOSE: - printlog(' {0}'.format(' '.join(cmd))) - - execute_subprocess(cmd) diff --git a/manage_externals/manic/repository_svn.py b/manage_externals/manic/repository_svn.py deleted file mode 100644 index 2f0d4d848..000000000 --- a/manage_externals/manic/repository_svn.py +++ /dev/null @@ -1,284 +0,0 @@ -"""Class for interacting with svn repositories -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import os -import re -import xml.etree.ElementTree as ET - -from .global_constants import EMPTY_STR, VERBOSITY_VERBOSE -from .repository import Repository -from .externals_status import ExternalStatus -from .utils import fatal_error, indent_string, printlog -from .utils import execute_subprocess - - -class SvnRepository(Repository): - """ - Class to represent and operate on a repository description. - - For testing purpose, all system calls to svn should: - - * be isolated in separate functions with no application logic - * of the form: - - cmd = ['svn', ...] - - value = execute_subprocess(cmd, output_to_caller={T|F}, - status_to_caller={T|F}) - - return value - * be static methods (not rely on self) - * name as _svn_subcommand_args(user_args) - - This convention allows easy unit testing of the repository logic - by mocking the specific calls to return predefined results. - - """ - RE_URLLINE = re.compile(r'^URL:') - - def __init__(self, component_name, repo, ignore_ancestry=False): - """ - Parse repo (a XML element). - """ - Repository.__init__(self, component_name, repo) - self._ignore_ancestry = ignore_ancestry - if self._branch: - self._url = os.path.join(self._url, self._branch) - elif self._tag: - self._url = os.path.join(self._url, self._tag) - else: - msg = "DEV_ERROR in svn repository. Shouldn't be here!" - fatal_error(msg) - - # ---------------------------------------------------------------- - # - # Public API, defined by Repository - # - # ---------------------------------------------------------------- - def checkout(self, base_dir_path, repo_dir_name, verbosity, recursive): # pylint: disable=unused-argument - """Checkout or update the working copy - - If the repo destination directory exists, switch the sandbox to - match the externals description. - - If the repo destination directory does not exist, checkout the - correct branch or tag. - NB: is include as an argument for compatibility with - git functionality (repository_git.py) - - """ - repo_dir_path = os.path.join(base_dir_path, repo_dir_name) - if os.path.exists(repo_dir_path): - cwd = os.getcwd() - os.chdir(repo_dir_path) - self._svn_switch(self._url, self._ignore_ancestry, verbosity) - # svn switch can lead to a conflict state, but it gives a - # return code of 0. So now we need to make sure that we're - # in a clean (non-conflict) state. - self._abort_if_dirty(repo_dir_path, - "Expected clean state following switch") - os.chdir(cwd) - else: - self._svn_checkout(self._url, repo_dir_path, verbosity) - - def status(self, stat, repo_dir_path): - """ - Check and report the status of the repository - """ - self._check_sync(stat, repo_dir_path) - if os.path.exists(repo_dir_path): - self._status_summary(stat, repo_dir_path) - - # ---------------------------------------------------------------- - # - # Internal work functions - # - # ---------------------------------------------------------------- - def _check_sync(self, stat, repo_dir_path): - """Check to see if repository directory exists and is at the expected - url. Return: status object - - """ - if not os.path.exists(repo_dir_path): - # NOTE(bja, 2017-10) this state should have been handled by - # the source object and we never get here! - stat.sync_state = ExternalStatus.STATUS_ERROR - else: - svn_output = self._svn_info(repo_dir_path) - if not svn_output: - # directory exists, but info returned nothing. .svn - # directory removed or incomplete checkout? - stat.sync_state = ExternalStatus.UNKNOWN - else: - stat.sync_state, stat.current_version = \ - self._check_url(svn_output, self._url) - stat.expected_version = '/'.join(self._url.split('/')[3:]) - - def _abort_if_dirty(self, repo_dir_path, message): - """Check if the repo is in a dirty state; if so, abort with a - helpful message. - - """ - - stat = ExternalStatus() - self._status_summary(stat, repo_dir_path) - if stat.clean_state != ExternalStatus.STATUS_OK: - status = self._svn_status_verbose(repo_dir_path) - status = indent_string(status, 4) - errmsg = """In directory - {cwd} - -svn status now shows: -{status} - -ERROR: {message} - -One possible cause of this problem is that there may have been untracked -files in your working directory that had the same name as tracked files -in the new revision. - -To recover: Clean up the above directory (resolving conflicts, etc.), -then rerun checkout_externals. -""".format(cwd=repo_dir_path, message=message, status=status) - - fatal_error(errmsg) - - @staticmethod - def _check_url(svn_output, expected_url): - """Determine the svn url from svn info output and return whether it - matches the expected value. - - """ - url = None - for line in svn_output.splitlines(): - if SvnRepository.RE_URLLINE.match(line): - url = line.split(': ')[1].strip() - break - if not url: - status = ExternalStatus.UNKNOWN - elif url == expected_url: - status = ExternalStatus.STATUS_OK - else: - status = ExternalStatus.MODEL_MODIFIED - - if url: - current_version = '/'.join(url.split('/')[3:]) - else: - current_version = EMPTY_STR - - return status, current_version - - def _status_summary(self, stat, repo_dir_path): - """Report whether the svn repository is in-sync with the model - description and whether the sandbox is clean or dirty. - - """ - svn_output = self._svn_status_xml(repo_dir_path) - is_dirty = self.xml_status_is_dirty(svn_output) - if is_dirty: - stat.clean_state = ExternalStatus.DIRTY - else: - stat.clean_state = ExternalStatus.STATUS_OK - - # Now save the verbose status output incase the user wants to - # see it. - stat.status_output = self._svn_status_verbose(repo_dir_path) - - @staticmethod - def xml_status_is_dirty(svn_output): - """Parse svn status xml output and determine if the working copy is - clean or dirty. Dirty is defined as: - - * modified files - * added files - * deleted files - * missing files - - Unversioned files do not affect the clean/dirty status. - - 'external' is also an acceptable state - - """ - # pylint: disable=invalid-name - SVN_EXTERNAL = 'external' - SVN_UNVERSIONED = 'unversioned' - # pylint: enable=invalid-name - - is_dirty = False - try: - xml_status = ET.fromstring(svn_output) - except BaseException: - fatal_error( - "SVN returned invalid XML message {}".format(svn_output)) - xml_target = xml_status.find('./target') - entries = xml_target.findall('./entry') - for entry in entries: - status = entry.find('./wc-status') - item = status.get('item') - if item == SVN_EXTERNAL: - continue - if item == SVN_UNVERSIONED: - continue - else: - is_dirty = True - break - return is_dirty - - # ---------------------------------------------------------------- - # - # system call to svn for information gathering - # - # ---------------------------------------------------------------- - @staticmethod - def _svn_info(repo_dir_path): - """Return results of svn info command - """ - cmd = ['svn', 'info', repo_dir_path] - output = execute_subprocess(cmd, output_to_caller=True) - return output - - @staticmethod - def _svn_status_verbose(repo_dir_path): - """capture the full svn status output - """ - cmd = ['svn', 'status', repo_dir_path] - svn_output = execute_subprocess(cmd, output_to_caller=True) - return svn_output - - @staticmethod - def _svn_status_xml(repo_dir_path): - """ - Get status of the subversion sandbox in repo_dir - """ - cmd = ['svn', 'status', '--xml', repo_dir_path] - svn_output = execute_subprocess(cmd, output_to_caller=True) - return svn_output - - # ---------------------------------------------------------------- - # - # system call to svn for sideffects modifying the working tree - # - # ---------------------------------------------------------------- - @staticmethod - def _svn_checkout(url, repo_dir_path, verbosity): - """ - Checkout a subversion repository (repo_url) to checkout_dir. - """ - cmd = ['svn', 'checkout', '--quiet', url, repo_dir_path] - if verbosity >= VERBOSITY_VERBOSE: - printlog(' {0}'.format(' '.join(cmd))) - execute_subprocess(cmd) - - @staticmethod - def _svn_switch(url, ignore_ancestry, verbosity): - """ - Switch branches for in an svn sandbox - """ - cmd = ['svn', 'switch', '--quiet'] - if ignore_ancestry: - cmd.append('--ignore-ancestry') - cmd.append(url) - if verbosity >= VERBOSITY_VERBOSE: - printlog(' {0}'.format(' '.join(cmd))) - execute_subprocess(cmd) diff --git a/manage_externals/manic/sourcetree.py b/manage_externals/manic/sourcetree.py deleted file mode 100644 index 83676b776..000000000 --- a/manage_externals/manic/sourcetree.py +++ /dev/null @@ -1,350 +0,0 @@ -""" - -FIXME(bja, 2017-11) External and SourceTree have a circular dependancy! -""" - -import errno -import logging -import os - -from .externals_description import ExternalsDescription -from .externals_description import read_externals_description_file -from .externals_description import create_externals_description -from .repository_factory import create_repository -from .repository_git import GitRepository -from .externals_status import ExternalStatus -from .utils import fatal_error, printlog -from .global_constants import EMPTY_STR, LOCAL_PATH_INDICATOR -from .global_constants import VERBOSITY_VERBOSE - -class _External(object): - """ - _External represents an external object inside a SourceTree - """ - - # pylint: disable=R0902 - - def __init__(self, root_dir, name, ext_description, svn_ignore_ancestry): - """Parse an external description file into a dictionary of externals. - - Input: - - root_dir : string - the root directory path where - 'local_path' is relative to. - - name : string - name of the ext_description object. may or may not - correspond to something in the path. - - ext_description : dict - source ExternalsDescription object - - svn_ignore_ancestry : bool - use --ignore-externals with svn switch - - """ - self._name = name - self._repo = None - self._externals = EMPTY_STR - self._externals_sourcetree = None - self._stat = ExternalStatus() - # Parse the sub-elements - - # _path : local path relative to the containing source tree - self._local_path = ext_description[ExternalsDescription.PATH] - # _repo_dir : full repository directory - repo_dir = os.path.join(root_dir, self._local_path) - self._repo_dir_path = os.path.abspath(repo_dir) - # _base_dir : base directory *containing* the repository - self._base_dir_path = os.path.dirname(self._repo_dir_path) - # repo_dir_name : base_dir_path + repo_dir_name = rep_dir_path - self._repo_dir_name = os.path.basename(self._repo_dir_path) - assert(os.path.join(self._base_dir_path, self._repo_dir_name) - == self._repo_dir_path) - - self._required = ext_description[ExternalsDescription.REQUIRED] - self._externals = ext_description[ExternalsDescription.EXTERNALS] - # Treat a .gitmodules file as a backup externals config - if not self._externals: - if GitRepository.has_submodules(self._repo_dir_path): - self._externals = ExternalsDescription.GIT_SUBMODULES_FILENAME - - repo = create_repository( - name, ext_description[ExternalsDescription.REPO], - svn_ignore_ancestry=svn_ignore_ancestry) - if repo: - self._repo = repo - - if self._externals and (self._externals.lower() != 'none'): - self._create_externals_sourcetree() - - def get_name(self): - """ - Return the external object's name - """ - return self._name - - def get_local_path(self): - """ - Return the external object's path - """ - return self._local_path - - def status(self): - """ - If the repo destination directory exists, ensure it is correct (from - correct URL, correct branch or tag), and possibly update the external. - If the repo destination directory does not exist, checkout the correce - branch or tag. - If load_all is True, also load all of the the externals sub-externals. - """ - - self._stat.path = self.get_local_path() - if not self._required: - self._stat.source_type = ExternalStatus.OPTIONAL - elif self._local_path == LOCAL_PATH_INDICATOR: - # LOCAL_PATH_INDICATOR, '.' paths, are standalone - # component directories that are not managed by - # checkout_externals. - self._stat.source_type = ExternalStatus.STANDALONE - else: - # managed by checkout_externals - self._stat.source_type = ExternalStatus.MANAGED - - ext_stats = {} - - if not os.path.exists(self._repo_dir_path): - self._stat.sync_state = ExternalStatus.EMPTY - msg = ('status check: repository directory for "{0}" does not ' - 'exist.'.format(self._name)) - logging.info(msg) - self._stat.current_version = 'not checked out' - # NOTE(bja, 2018-01) directory doesn't exist, so we cannot - # use repo to determine the expected version. We just take - # a best-guess based on the assumption that only tag or - # branch should be set, but not both. - if not self._repo: - self._stat.expected_version = 'unknown' - else: - self._stat.expected_version = self._repo.tag() + self._repo.branch() - else: - if self._repo: - self._repo.status(self._stat, self._repo_dir_path) - - if self._externals and self._externals_sourcetree: - # we expect externals and they exist - cwd = os.getcwd() - # SourceTree expects to be called from the correct - # root directory. - os.chdir(self._repo_dir_path) - ext_stats = self._externals_sourcetree.status(self._local_path) - os.chdir(cwd) - - all_stats = {} - # don't add the root component because we don't manage it - # and can't provide useful info about it. - if self._local_path != LOCAL_PATH_INDICATOR: - # store the stats under tha local_path, not comp name so - # it will be sorted correctly - all_stats[self._stat.path] = self._stat - - if ext_stats: - all_stats.update(ext_stats) - - return all_stats - - def checkout(self, verbosity, load_all): - """ - If the repo destination directory exists, ensure it is correct (from - correct URL, correct branch or tag), and possibly update the external. - If the repo destination directory does not exist, checkout the correct - branch or tag. - If load_all is True, also load all of the the externals sub-externals. - """ - if load_all: - pass - # Make sure we are in correct location - - if not os.path.exists(self._repo_dir_path): - # repository directory doesn't exist. Need to check it - # out, and for that we need the base_dir_path to exist - try: - os.makedirs(self._base_dir_path) - except OSError as error: - if error.errno != errno.EEXIST: - msg = 'Could not create directory "{0}"'.format( - self._base_dir_path) - fatal_error(msg) - - if self._stat.source_type != ExternalStatus.STANDALONE: - if verbosity >= VERBOSITY_VERBOSE: - # NOTE(bja, 2018-01) probably do not want to pass - # verbosity in this case, because if (verbosity == - # VERBOSITY_DUMP), then the previous status output would - # also be dumped, adding noise to the output. - self._stat.log_status_message(VERBOSITY_VERBOSE) - - if self._repo: - if self._stat.sync_state == ExternalStatus.STATUS_OK: - # If we're already in sync, avoid showing verbose output - # from the checkout command, unless the verbosity level - # is 2 or more. - checkout_verbosity = verbosity - 1 - else: - checkout_verbosity = verbosity - - self._repo.checkout(self._base_dir_path, self._repo_dir_name, - checkout_verbosity, self.clone_recursive()) - - def checkout_externals(self, verbosity, load_all): - """Checkout the sub-externals for this object - """ - if self.load_externals(): - if self._externals_sourcetree: - # NOTE(bja, 2018-02): the subtree externals objects - # were created during initial status check. Updating - # the external may have changed which sub-externals - # are needed. We need to delete those objects and - # re-read the potentially modified externals - # description file. - self._externals_sourcetree = None - self._create_externals_sourcetree() - self._externals_sourcetree.checkout(verbosity, load_all) - - def load_externals(self): - 'Return True iff an externals file should be loaded' - load_ex = False - if os.path.exists(self._repo_dir_path): - if self._externals: - if self._externals.lower() != 'none': - load_ex = os.path.exists(os.path.join(self._repo_dir_path, - self._externals)) - - return load_ex - - def clone_recursive(self): - 'Return True iff any .gitmodules files should be processed' - # Try recursive unless there is an externals entry - recursive = not self._externals - - return recursive - - def _create_externals_sourcetree(self): - """ - """ - if not os.path.exists(self._repo_dir_path): - # NOTE(bja, 2017-10) repository has not been checked out - # yet, can't process the externals file. Assume we are - # checking status before code is checkoud out and this - # will be handled correctly later. - return - - cwd = os.getcwd() - os.chdir(self._repo_dir_path) - if self._externals.lower() == 'none': - msg = ('Internal: Attempt to create source tree for ' - 'externals = none in {}'.format(self._repo_dir_path)) - fatal_error(msg) - - if not os.path.exists(self._externals): - if GitRepository.has_submodules(): - self._externals = ExternalsDescription.GIT_SUBMODULES_FILENAME - - if not os.path.exists(self._externals): - # NOTE(bja, 2017-10) this check is redundent with the one - # in read_externals_description_file! - msg = ('External externals description file "{0}" ' - 'does not exist! In directory: {1}'.format( - self._externals, self._repo_dir_path)) - fatal_error(msg) - - externals_root = self._repo_dir_path - model_data = read_externals_description_file(externals_root, - self._externals) - externals = create_externals_description(model_data, - parent_repo=self._repo) - self._externals_sourcetree = SourceTree(externals_root, externals) - os.chdir(cwd) - -class SourceTree(object): - """ - SourceTree represents a group of managed externals - """ - - def __init__(self, root_dir, model, svn_ignore_ancestry=False): - """ - Build a SourceTree object from a model description - """ - self._root_dir = os.path.abspath(root_dir) - self._all_components = {} - self._required_compnames = [] - for comp in model: - src = _External(self._root_dir, comp, model[comp], svn_ignore_ancestry) - self._all_components[comp] = src - if model[comp][ExternalsDescription.REQUIRED]: - self._required_compnames.append(comp) - - def status(self, relative_path_base=LOCAL_PATH_INDICATOR): - """Report the status components - - FIXME(bja, 2017-10) what do we do about situations where the - user checked out the optional components, but didn't add - optional for running status? What do we do where the user - didn't add optional to the checkout but did add it to the - status. -- For now, we run status on all components, and try - to do the right thing based on the results.... - - """ - load_comps = self._all_components.keys() - - summary = {} - for comp in load_comps: - printlog('{0}, '.format(comp), end='') - stat = self._all_components[comp].status() - for name in stat.keys(): - # check if we need to append the relative_path_base to - # the path so it will be sorted in the correct order. - if not stat[name].path.startswith(relative_path_base): - stat[name].path = os.path.join(relative_path_base, - stat[name].path) - # store under key = updated path, and delete the - # old key. - comp_stat = stat[name] - del stat[name] - stat[comp_stat.path] = comp_stat - summary.update(stat) - - return summary - - def checkout(self, verbosity, load_all, load_comp=None): - """ - Checkout or update indicated components into the the configured - subdirs. - - If load_all is True, recursively checkout all externals. - If load_all is False, load_comp is an optional set of components to load. - If load_all is True and load_comp is None, only load the required externals. - """ - if verbosity >= VERBOSITY_VERBOSE: - printlog('Checking out externals: ') - else: - printlog('Checking out externals: ', end='') - - if load_all: - load_comps = self._all_components.keys() - elif load_comp is not None: - load_comps = [load_comp] - else: - load_comps = self._required_compnames - - # checkout the primary externals - for comp in load_comps: - if verbosity < VERBOSITY_VERBOSE: - printlog('{0}, '.format(comp), end='') - else: - # verbose output handled by the _External object, just - # output a newline - printlog(EMPTY_STR) - self._all_components[comp].checkout(verbosity, load_all) - printlog('') - - # now give each external an opportunitity to checkout it's externals. - for comp in load_comps: - self._all_components[comp].checkout_externals(verbosity, load_all) diff --git a/manage_externals/manic/utils.py b/manage_externals/manic/utils.py deleted file mode 100644 index f57f43930..000000000 --- a/manage_externals/manic/utils.py +++ /dev/null @@ -1,330 +0,0 @@ -#!/usr/bin/env python -""" -Common public utilities for manic package - -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import logging -import os -import subprocess -import sys -from threading import Timer - -from .global_constants import LOCAL_PATH_INDICATOR - -# --------------------------------------------------------------------- -# -# screen and logging output and functions to massage text for output -# -# --------------------------------------------------------------------- - - -def log_process_output(output): - """Log each line of process output at debug level so it can be - filtered if necessary. By default, output is a single string, and - logging.debug(output) will only put log info heading on the first - line. This makes it hard to filter with grep. - - """ - output = output.split('\n') - for line in output: - logging.debug(line) - - -def printlog(msg, **kwargs): - """Wrapper script around print to ensure that everything printed to - the screen also gets logged. - - """ - logging.info(msg) - if kwargs: - print(msg, **kwargs) - else: - print(msg) - sys.stdout.flush() - - -def last_n_lines(the_string, n_lines, truncation_message=None): - """Returns the last n lines of the given string - - Args: - the_string: str - n_lines: int - truncation_message: str, optional - - Returns a string containing the last n lines of the_string - - If truncation_message is provided, the returned string begins with - the given message if and only if the string is greater than n lines - to begin with. - """ - - lines = the_string.splitlines(True) - if len(lines) <= n_lines: - return_val = the_string - else: - lines_subset = lines[-n_lines:] - str_truncated = ''.join(lines_subset) - if truncation_message: - str_truncated = truncation_message + '\n' + str_truncated - return_val = str_truncated - - return return_val - - -def indent_string(the_string, indent_level): - """Indents the given string by a given number of spaces - - Args: - the_string: str - indent_level: int - - Returns a new string that is the same as the_string, except that - each line is indented by 'indent_level' spaces. - - In python3, this can be done with textwrap.indent. - """ - - lines = the_string.splitlines(True) - padding = ' ' * indent_level - lines_indented = [padding + line for line in lines] - return ''.join(lines_indented) - -# --------------------------------------------------------------------- -# -# error handling -# -# --------------------------------------------------------------------- - - -def fatal_error(message): - """ - Error output function - """ - logging.error(message) - raise RuntimeError("{0}ERROR: {1}".format(os.linesep, message)) - - -# --------------------------------------------------------------------- -# -# Data conversion / manipulation -# -# --------------------------------------------------------------------- -def str_to_bool(bool_str): - """Convert a sting representation of as boolean into a true boolean. - - Conversion should be case insensitive. - """ - value = None - str_lower = bool_str.lower() - if str_lower in ('true', 't'): - value = True - elif str_lower in ('false', 'f'): - value = False - if value is None: - msg = ('ERROR: invalid boolean string value "{0}". ' - 'Must be "true" or "false"'.format(bool_str)) - fatal_error(msg) - return value - - -REMOTE_PREFIXES = ['http://', 'https://', 'ssh://', 'git@'] - - -def is_remote_url(url): - """check if the user provided a local file path instead of a - remote. If so, it must be expanded to an absolute - path. - - """ - remote_url = False - for prefix in REMOTE_PREFIXES: - if url.startswith(prefix): - remote_url = True - return remote_url - - -def split_remote_url(url): - """check if the user provided a local file path or a - remote. If remote, try to strip off protocol info. - - """ - remote_url = is_remote_url(url) - if not remote_url: - return url - - for prefix in REMOTE_PREFIXES: - url = url.replace(prefix, '') - - if '@' in url: - url = url.split('@')[1] - - if ':' in url: - url = url.split(':')[1] - - return url - - -def expand_local_url(url, field): - """check if the user provided a local file path instead of a - remote. If so, it must be expanded to an absolute - path. - - Note: local paths of LOCAL_PATH_INDICATOR have special meaning and - represent local copy only, don't work with the remotes. - - """ - remote_url = is_remote_url(url) - if not remote_url: - if url.strip() == LOCAL_PATH_INDICATOR: - pass - else: - url = os.path.expandvars(url) - url = os.path.expanduser(url) - if not os.path.isabs(url): - msg = ('WARNING: Externals description for "{0}" contains a ' - 'url that is not remote and does not expand to an ' - 'absolute path. Version control operations may ' - 'fail.\n\nurl={1}'.format(field, url)) - printlog(msg) - else: - url = os.path.normpath(url) - return url - - -# --------------------------------------------------------------------- -# -# subprocess -# -# --------------------------------------------------------------------- - -# Give the user a helpful message if we detect that a command seems to -# be hanging. -_HANGING_SEC = 300 - - -def _hanging_msg(working_directory, command): - print(""" - -Command '{command}' -from directory {working_directory} -has taken {hanging_sec} seconds. It may be hanging. - -The command will continue to run, but you may want to abort -manage_externals with ^C and investigate. A possible cause of hangs is -when svn or git require authentication to access a private -repository. On some systems, svn and git requests for authentication -information will not be displayed to the user. In this case, the program -will appear to hang. Ensure you can run svn and git manually and access -all repositories without entering your authentication information. - -""".format(command=command, - working_directory=working_directory, - hanging_sec=_HANGING_SEC)) - - -def execute_subprocess(commands, status_to_caller=False, - output_to_caller=False): - """Wrapper around subprocess.check_output to handle common - exceptions. - - check_output runs a command with arguments and waits - for it to complete. - - check_output raises an exception on a nonzero return code. if - status_to_caller is true, execute_subprocess returns the subprocess - return code, otherwise execute_subprocess treats non-zero return - status as an error and raises an exception. - - """ - cwd = os.getcwd() - msg = 'In directory: {0}\nexecute_subprocess running command:'.format(cwd) - logging.info(msg) - commands_str = ' '.join(commands) - logging.info(commands_str) - return_to_caller = status_to_caller or output_to_caller - status = -1 - output = '' - hanging_timer = Timer(_HANGING_SEC, _hanging_msg, - kwargs={"working_directory": cwd, - "command": commands_str}) - hanging_timer.start() - try: - output = subprocess.check_output(commands, stderr=subprocess.STDOUT, - universal_newlines=True) - log_process_output(output) - status = 0 - except OSError as error: - msg = failed_command_msg( - 'Command execution failed. Does the executable exist?', - commands) - logging.error(error) - fatal_error(msg) - except ValueError as error: - msg = failed_command_msg( - 'DEV_ERROR: Invalid arguments trying to run subprocess', - commands) - logging.error(error) - fatal_error(msg) - except subprocess.CalledProcessError as error: - # Only report the error if we are NOT returning to the - # caller. If we are returning to the caller, then it may be a - # simple status check. If returning, it is the callers - # responsibility determine if an error occurred and handle it - # appropriately. - if not return_to_caller: - msg_context = ('Process did not run successfully; ' - 'returned status {0}'.format(error.returncode)) - msg = failed_command_msg(msg_context, commands, - output=error.output) - logging.error(error) - logging.error(msg) - log_process_output(error.output) - fatal_error(msg) - status = error.returncode - finally: - hanging_timer.cancel() - - if status_to_caller and output_to_caller: - ret_value = (status, output) - elif status_to_caller: - ret_value = status - elif output_to_caller: - ret_value = output - else: - ret_value = None - - return ret_value - - -def failed_command_msg(msg_context, command, output=None): - """Template for consistent error messages from subprocess calls. - - If 'output' is given, it should provide the output from the failed - command - """ - - if output: - output_truncated = last_n_lines(output, 20, - truncation_message='[... Output truncated for brevity ...]') - errmsg = ('Failed with output:\n' + - indent_string(output_truncated, 4) + - '\nERROR: ') - else: - errmsg = '' - - command_str = ' '.join(command) - errmsg += """In directory - {cwd} -{context}: - {command} -""".format(cwd=os.getcwd(), context=msg_context, command=command_str) - - if output: - errmsg += 'See above for output from failed command.\n' - - return errmsg diff --git a/manage_externals/test/.coveragerc b/manage_externals/test/.coveragerc deleted file mode 100644 index 8b681888b..000000000 --- a/manage_externals/test/.coveragerc +++ /dev/null @@ -1,7 +0,0 @@ -[run] -branch = True -omit = test_unit_*.py - test_sys_*.py - /usr/* - .local/* - */site-packages/* \ No newline at end of file diff --git a/manage_externals/test/.gitignore b/manage_externals/test/.gitignore deleted file mode 100644 index dd5795998..000000000 --- a/manage_externals/test/.gitignore +++ /dev/null @@ -1,7 +0,0 @@ -# virtual environments -env_python* - -# python code coverage tool output -.coverage -htmlcov - diff --git a/manage_externals/test/.pylint.rc b/manage_externals/test/.pylint.rc deleted file mode 100644 index 64abd03e4..000000000 --- a/manage_externals/test/.pylint.rc +++ /dev/null @@ -1,426 +0,0 @@ -[MASTER] - -# A comma-separated list of package or module names from where C extensions may -# be loaded. Extensions are loading into the active Python interpreter and may -# run arbitrary code -extension-pkg-whitelist= - -# Add files or directories to the blacklist. They should be base names, not -# paths. -ignore=.git,.svn,env2 - -# Add files or directories matching the regex patterns to the blacklist. The -# regex matches against base names, not paths. -ignore-patterns= - -# Python code to execute, usually for sys.path manipulation such as -# pygtk.require(). -#init-hook= - -# Use multiple processes to speed up Pylint. -jobs=1 - -# List of plugins (as comma separated values of python modules names) to load, -# usually to register additional checkers. -load-plugins= - -# Pickle collected data for later comparisons. -persistent=yes - -# Specify a configuration file. -#rcfile= - -# Allow loading of arbitrary C extensions. Extensions are imported into the -# active Python interpreter and may run arbitrary code. -unsafe-load-any-extension=no - - -[MESSAGES CONTROL] - -# Only show warnings with the listed confidence levels. Leave empty to show -# all. Valid levels: HIGH, INFERENCE, INFERENCE_FAILURE, UNDEFINED -confidence= - -# Disable the message, report, category or checker with the given id(s). You -# can either give multiple identifiers separated by comma (,) or put this -# option multiple times (only on the command line, not in the configuration -# file where it should appear only once).You can also use "--disable=all" to -# disable everything first and then reenable specific checks. For example, if -# you want to run only the similarities checker, you can use "--disable=all -# --enable=similarities". If you want to run only the classes checker, but have -# no Warning level messages displayed, use"--disable=all --enable=classes -# --disable=W" -disable=bad-continuation,useless-object-inheritance - - -# Enable the message, report, category or checker with the given id(s). You can -# either give multiple identifier separated by comma (,) or put this option -# multiple time (only on the command line, not in the configuration file where -# it should appear only once). See also the "--disable" option for examples. -enable= - - -[REPORTS] - -# Python expression which should return a note less than 10 (10 is the highest -# note). You have access to the variables errors warning, statement which -# respectively contain the number of errors / warnings messages and the total -# number of statements analyzed. This is used by the global evaluation report -# (RP0004). -evaluation=10.0 - ((float(5 * error + warning + refactor + convention) / statement) * 10) - -# Template used to display messages. This is a python new-style format string -# used to format the message information. See doc for all details -msg-template={msg_id}:{line:3d},{column:2d}: {msg} ({symbol}) - -# Set the output format. Available formats are text, parseable, colorized, json -# and msvs (visual studio).You can also give a reporter class, eg -# mypackage.mymodule.MyReporterClass. -output-format=text - -# Tells whether to display a full report or only the messages -#reports=yes - -# Activate the evaluation score. -score=yes - - -[REFACTORING] - -# Maximum number of nested blocks for function / method body -max-nested-blocks=5 - - -[BASIC] - -# Naming hint for argument names -argument-name-hint=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Regular expression matching correct argument names -argument-rgx=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Naming hint for attribute names -attr-name-hint=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Regular expression matching correct attribute names -attr-rgx=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Bad variable names which should always be refused, separated by a comma -bad-names=foo,bar,baz,toto,tutu,tata - -# Naming hint for class attribute names -class-attribute-name-hint=([A-Za-z_][A-Za-z0-9_]{2,30}|(__.*__))$ - -# Regular expression matching correct class attribute names -class-attribute-rgx=([A-Za-z_][A-Za-z0-9_]{2,30}|(__.*__))$ - -# Naming hint for class names -class-name-hint=[A-Z_][a-zA-Z0-9]+$ - -# Regular expression matching correct class names -class-rgx=[A-Z_][a-zA-Z0-9]+$ - -# Naming hint for constant names -const-name-hint=(([A-Z_][A-Z0-9_]*)|(__.*__))$ - -# Regular expression matching correct constant names -const-rgx=(([A-Z_][A-Z0-9_]*)|(__.*__))$ - -# Minimum line length for functions/classes that require docstrings, shorter -# ones are exempt. -docstring-min-length=-1 - -# Naming hint for function names -function-name-hint=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Regular expression matching correct function names -function-rgx=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Good variable names which should always be accepted, separated by a comma -good-names=i,j,k,ex,Run,_ - -# Include a hint for the correct naming format with invalid-name -include-naming-hint=no - -# Naming hint for inline iteration names -inlinevar-name-hint=[A-Za-z_][A-Za-z0-9_]*$ - -# Regular expression matching correct inline iteration names -inlinevar-rgx=[A-Za-z_][A-Za-z0-9_]*$ - -# Naming hint for method names -method-name-hint=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Regular expression matching correct method names -method-rgx=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Naming hint for module names -module-name-hint=(([a-z_][a-z0-9_]*)|([A-Z][a-zA-Z0-9]+))$ - -# Regular expression matching correct module names -module-rgx=(([a-z_][a-z0-9_]*)|([A-Z][a-zA-Z0-9]+))$ - -# Colon-delimited sets of names that determine each other's naming style when -# the name regexes allow several styles. -name-group= - -# Regular expression which should only match function or class names that do -# not require a docstring. -no-docstring-rgx=^_ - -# List of decorators that produce properties, such as abc.abstractproperty. Add -# to this list to register other decorators that produce valid properties. -property-classes=abc.abstractproperty - -# Naming hint for variable names -variable-name-hint=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - -# Regular expression matching correct variable names -variable-rgx=(([a-z][a-z0-9_]{2,30})|(_[a-z0-9_]*))$ - - -[FORMAT] - -# Expected format of line ending, e.g. empty (any line ending), LF or CRLF. -expected-line-ending-format= - -# Regexp for a line that is allowed to be longer than the limit. -ignore-long-lines=^\s*(# )??$ - -# Number of spaces of indent required inside a hanging or continued line. -indent-after-paren=4 - -# String used as indentation unit. This is usually " " (4 spaces) or "\t" (1 -# tab). -indent-string=' ' - -# Maximum number of characters on a single line. -max-line-length=100 - -# Maximum number of lines in a module -max-module-lines=1000 - -# List of optional constructs for which whitespace checking is disabled. `dict- -# separator` is used to allow tabulation in dicts, etc.: {1 : 1,\n222: 2}. -# `trailing-comma` allows a space between comma and closing bracket: (a, ). -# `empty-line` allows space-only lines. -no-space-check=trailing-comma,dict-separator - -# Allow the body of a class to be on the same line as the declaration if body -# contains single statement. -single-line-class-stmt=no - -# Allow the body of an if to be on the same line as the test if there is no -# else. -single-line-if-stmt=no - - -[LOGGING] - -# Logging modules to check that the string format arguments are in logging -# function parameter format -logging-modules=logging - - -[MISCELLANEOUS] - -# List of note tags to take in consideration, separated by a comma. -notes=FIXME,XXX,TODO - - -[SIMILARITIES] - -# Ignore comments when computing similarities. -ignore-comments=yes - -# Ignore docstrings when computing similarities. -ignore-docstrings=yes - -# Ignore imports when computing similarities. -ignore-imports=no - -# Minimum lines number of a similarity. -min-similarity-lines=4 - - -[SPELLING] - -# Spelling dictionary name. Available dictionaries: none. To make it working -# install python-enchant package. -spelling-dict= - -# List of comma separated words that should not be checked. -spelling-ignore-words= - -# A path to a file that contains private dictionary; one word per line. -spelling-private-dict-file= - -# Tells whether to store unknown words to indicated private dictionary in -# --spelling-private-dict-file option instead of raising a message. -spelling-store-unknown-words=no - - -[TYPECHECK] - -# List of decorators that produce context managers, such as -# contextlib.contextmanager. Add to this list to register other decorators that -# produce valid context managers. -contextmanager-decorators=contextlib.contextmanager - -# List of members which are set dynamically and missed by pylint inference -# system, and so shouldn't trigger E1101 when accessed. Python regular -# expressions are accepted. -generated-members= - -# Tells whether missing members accessed in mixin class should be ignored. A -# mixin class is detected if its name ends with "mixin" (case insensitive). -ignore-mixin-members=yes - -# This flag controls whether pylint should warn about no-member and similar -# checks whenever an opaque object is returned when inferring. The inference -# can return multiple potential results while evaluating a Python object, but -# some branches might not be evaluated, which results in partial inference. In -# that case, it might be useful to still emit no-member and other checks for -# the rest of the inferred objects. -ignore-on-opaque-inference=yes - -# List of class names for which member attributes should not be checked (useful -# for classes with dynamically set attributes). This supports the use of -# qualified names. -ignored-classes=optparse.Values,thread._local,_thread._local - -# List of module names for which member attributes should not be checked -# (useful for modules/projects where namespaces are manipulated during runtime -# and thus existing member attributes cannot be deduced by static analysis. It -# supports qualified module names, as well as Unix pattern matching. -ignored-modules= - -# Show a hint with possible names when a member name was not found. The aspect -# of finding the hint is based on edit distance. -missing-member-hint=yes - -# The minimum edit distance a name should have in order to be considered a -# similar match for a missing member name. -missing-member-hint-distance=1 - -# The total number of similar names that should be taken in consideration when -# showing a hint for a missing member. -missing-member-max-choices=1 - - -[VARIABLES] - -# List of additional names supposed to be defined in builtins. Remember that -# you should avoid to define new builtins when possible. -additional-builtins= - -# Tells whether unused global variables should be treated as a violation. -allow-global-unused-variables=yes - -# List of strings which can identify a callback function by name. A callback -# name must start or end with one of those strings. -callbacks=cb_,_cb - -# A regular expression matching the name of dummy variables (i.e. expectedly -# not used). -dummy-variables-rgx=_+$|(_[a-zA-Z0-9_]*[a-zA-Z0-9]+?$)|dummy|^ignored_|^unused_ - -# Argument names that match this expression will be ignored. Default to name -# with leading underscore -ignored-argument-names=_.*|^ignored_|^unused_ - -# Tells whether we should check for unused import in __init__ files. -init-import=no - -# List of qualified module names which can have objects that can redefine -# builtins. -redefining-builtins-modules=six.moves,future.builtins - - -[CLASSES] - -# List of method names used to declare (i.e. assign) instance attributes. -defining-attr-methods=__init__,__new__,setUp - -# List of member names, which should be excluded from the protected access -# warning. -exclude-protected=_asdict,_fields,_replace,_source,_make - -# List of valid names for the first argument in a class method. -valid-classmethod-first-arg=cls - -# List of valid names for the first argument in a metaclass class method. -valid-metaclass-classmethod-first-arg=mcs - - -[DESIGN] - -# Maximum number of arguments for function / method -max-args=5 - -# Maximum number of attributes for a class (see R0902). -max-attributes=7 - -# Maximum number of boolean expressions in a if statement -max-bool-expr=5 - -# Maximum number of branch for function / method body -max-branches=12 - -# Maximum number of locals for function / method body -max-locals=15 - -# Maximum number of parents for a class (see R0901). -max-parents=7 - -# Maximum number of public methods for a class (see R0904). -max-public-methods=20 - -# Maximum number of return / yield for function / method body -max-returns=6 - -# Maximum number of statements in function / method body -max-statements=50 - -# Minimum number of public methods for a class (see R0903). -min-public-methods=2 - - -[IMPORTS] - -# Allow wildcard imports from modules that define __all__. -allow-wildcard-with-all=no - -# Analyse import fallback blocks. This can be used to support both Python 2 and -# 3 compatible code, which means that the block might have code that exists -# only in one or another interpreter, leading to false positives when analysed. -analyse-fallback-blocks=no - -# Deprecated modules which should not be used, separated by a comma -deprecated-modules=regsub,TERMIOS,Bastion,rexec - -# Create a graph of external dependencies in the given file (report RP0402 must -# not be disabled) -ext-import-graph= - -# Create a graph of every (i.e. internal and external) dependencies in the -# given file (report RP0402 must not be disabled) -import-graph= - -# Create a graph of internal dependencies in the given file (report RP0402 must -# not be disabled) -int-import-graph= - -# Force import order to recognize a module as part of the standard -# compatibility libraries. -known-standard-library= - -# Force import order to recognize a module as part of a third party library. -known-third-party=enchant - - -[EXCEPTIONS] - -# Exceptions that will emit a warning when being caught. Defaults to -# "Exception" -overgeneral-exceptions=Exception diff --git a/manage_externals/test/Makefile b/manage_externals/test/Makefile deleted file mode 100644 index 293e36075..000000000 --- a/manage_externals/test/Makefile +++ /dev/null @@ -1,124 +0,0 @@ -python = not-set -verbose = not-set -debug = not-set - -ifneq ($(python), not-set) -PYTHON=$(python) -else -PYTHON=python -endif - -# we need the python path to point one level up to access the package -# and executables -PYPATH=PYTHONPATH=..: - -# common args for running tests -TEST_ARGS=-m unittest discover - -ifeq ($(debug), not-set) - ifeq ($(verbose), not-set) - # summary only output - TEST_ARGS+=--buffer - else - # show individual test summary - TEST_ARGS+=--buffer --verbose - endif -else - # show detailed test output - TEST_ARGS+=--verbose -endif - - -# auto reformat the code -AUTOPEP8=autopep8 -AUTOPEP8_ARGS=--aggressive --in-place - -# run lint -PYLINT=pylint -PYLINT_ARGS=-j 2 --rcfile=.pylint.rc - -# code coverage -COVERAGE=coverage -COVERAGE_ARGS=--rcfile=.coveragerc - -# source files -SRC = \ - ../checkout_externals \ - ../manic/*.py - -CHECKOUT_EXE = ../checkout_externals - -TEST_DIR = . - -README = ../README.md - -# -# testing -# -.PHONY : utest -utest : FORCE - $(PYPATH) $(PYTHON) $(TEST_ARGS) --pattern 'test_unit_*.py' - -.PHONY : stest -stest : FORCE - $(PYPATH) $(PYTHON) $(TEST_ARGS) --pattern 'test_sys_*.py' - -.PHONY : test -test : utest stest - -# -# documentation -# -.PHONY : readme -readme : $(CHECKOUT_EXE) - printf "%s\n\n" "-- AUTOMATICALLY GENERATED FILE. DO NOT EDIT --" > $(README) - printf "%s" '[![Build Status](https://travis-ci.org/ESMCI/manage_externals.svg?branch=master)](https://travis-ci.org/ESMCI/manage_externals)' >> $(README) - printf "%s" '[![Coverage Status](https://coveralls.io/repos/github/ESMCI/manage_externals/badge.svg?branch=master)](https://coveralls.io/github/ESMCI/manage_externals?branch=master)' >> $(README) - printf "\n%s\n" '```' >> $(README) - $(CHECKOUT_EXE) --help >> $(README) - -# -# coding standards -# -.PHONY : style -style : FORCE - $(AUTOPEP8) $(AUTOPEP8_ARGS) --recursive $(SRC) $(TEST_DIR)/test_*.py - -.PHONY : lint -lint : FORCE - $(PYLINT) $(PYLINT_ARGS) $(SRC) $(TEST_DIR)/test_*.py - -.PHONY : stylint -stylint : style lint - -.PHONY : coverage -# Need to use a single coverage run with a single pattern rather than -# using two separate commands with separate patterns for test_unit_*.py -# and test_sys_*.py: The latter clobbers some results from the first -# run, even if we use the --append flag to 'coverage run'. -coverage : FORCE - $(PYPATH) $(COVERAGE) erase - $(PYPATH) $(COVERAGE) run $(COVERAGE_ARGS) $(TEST_ARGS) --pattern 'test_*.py' - $(PYPATH) $(COVERAGE) html - -# -# virtual environment creation -# -.PHONY : env -env : FORCE - $(PYPATH) virtualenv --python $(PYTHON) $@_$(PYTHON) - . $@_$(PYTHON)/bin/activate; pip install -r requirements.txt - -# -# utilites -# -.PHONY : clean -clean : FORCE - -rm -rf *~ *.pyc tmp fake htmlcov - -.PHONY : clobber -clobber : clean - -rm -rf env_* - -FORCE : - diff --git a/manage_externals/test/README.md b/manage_externals/test/README.md deleted file mode 100644 index 938a900ee..000000000 --- a/manage_externals/test/README.md +++ /dev/null @@ -1,77 +0,0 @@ -# Testing for checkout_externals - -NOTE: Python2 is the supported runtime environment. Python3 compatibility is -in progress, complicated by the different proposed input methods -(yaml, xml, cfg/ini, json) and their different handling of strings -(unicode vs byte) in python2. Full python3 compatibility will be -possible once the number of possible input formats has been narrowed. - -## Setup development environment - -Development environments should be setup for python2 and python3: - -```SH - cd checkout_externals/test - make python=python2 env - make python=python3 env -``` - -## Unit tests - -Tests should be run for both python2 and python3. It is recommended -that you have seperate terminal windows open python2 and python3 -testing to avoid errors activating and deactivating environments. - -```SH - cd checkout_externals/test - . env_python2/bin/activate - make utest - deactivate -``` - -```SH - cd checkout_externals/test - . env_python2/bin/activate - make utest - deactivate -``` - -## System tests - -Not yet implemented. - -## Static analysis - -checkout_externals is difficult to test thoroughly because it relies -on git and svn, and svn requires a live network connection and -repository. Static analysis will help catch bugs in code paths that -are not being executed, but it requires conforming to community -standards and best practices. autopep8 and pylint should be run -regularly for automatic code formatting and linting. - -```SH - cd checkout_externals/test - . env_python2/bin/activate - make lint - deactivate -``` - -The canonical formatting for the code is whatever autopep8 -generates. All issues identified by pylint should be addressed. - - -## Code coverage - -All changes to the code should include maintaining existing tests and -writing new tests for new or changed functionality. To ensure test -coverage, run the code coverage tool: - -```SH - cd checkout_externals/test - . env_python2/bin/activate - make coverage - open -a Firefox.app htmlcov/index.html - deactivate -``` - - diff --git a/manage_externals/test/doc/.gitignore b/manage_externals/test/doc/.gitignore deleted file mode 100644 index d4e11e5ea..000000000 --- a/manage_externals/test/doc/.gitignore +++ /dev/null @@ -1,2 +0,0 @@ -_build - diff --git a/manage_externals/test/doc/Makefile b/manage_externals/test/doc/Makefile deleted file mode 100644 index 18f4d5bf9..000000000 --- a/manage_externals/test/doc/Makefile +++ /dev/null @@ -1,20 +0,0 @@ -# Minimal makefile for Sphinx documentation -# - -# You can set these variables from the command line. -SPHINXOPTS = -SPHINXBUILD = sphinx-build -SPHINXPROJ = ManageExternals -SOURCEDIR = . -BUILDDIR = _build - -# Put it first so that "make" without argument is like "make help". -help: - @$(SPHINXBUILD) -M help "$(SOURCEDIR)" "$(BUILDDIR)" $(SPHINXOPTS) $(O) - -.PHONY: help Makefile - -# Catch-all target: route all unknown targets to Sphinx using the new -# "make mode" option. $(O) is meant as a shortcut for $(SPHINXOPTS). -%: Makefile - @$(SPHINXBUILD) -M $@ "$(SOURCEDIR)" "$(BUILDDIR)" $(SPHINXOPTS) $(O) \ No newline at end of file diff --git a/manage_externals/test/doc/conf.py b/manage_externals/test/doc/conf.py deleted file mode 100644 index 469c0b0dc..000000000 --- a/manage_externals/test/doc/conf.py +++ /dev/null @@ -1,172 +0,0 @@ -# -*- coding: utf-8 -*- -# -# Manage Externals documentation build configuration file, created by -# sphinx-quickstart on Wed Nov 29 10:53:25 2017. -# -# This file is execfile()d with the current directory set to its -# containing dir. -# -# Note that not all possible configuration values are present in this -# autogenerated file. -# -# All configuration values have a default; values that are commented out -# serve to show the default. - -# If extensions (or modules to document with autodoc) are in another directory, -# add these directories to sys.path here. If the directory is relative to the -# documentation root, use os.path.abspath to make it absolute, like shown here. -# -# import os -# import sys -# sys.path.insert(0, os.path.abspath('.')) - - -# -- General configuration ------------------------------------------------ - -# If your documentation needs a minimal Sphinx version, state it here. -# -# needs_sphinx = '1.0' - -# Add any Sphinx extension module names here, as strings. They can be -# extensions coming with Sphinx (named 'sphinx.ext.*') or your custom -# ones. -extensions = ['sphinx.ext.autodoc', - 'sphinx.ext.todo', - 'sphinx.ext.coverage', - 'sphinx.ext.viewcode', - 'sphinx.ext.githubpages'] - -# Add any paths that contain templates here, relative to this directory. -templates_path = ['_templates'] - -# The suffix(es) of source filenames. -# You can specify multiple suffix as a list of string: -# -# source_suffix = ['.rst', '.md'] -source_suffix = '.rst' - -# The master toctree document. -master_doc = 'index' - -# General information about the project. -project = u'Manage Externals' -copyright = u'2017, CSEG at NCAR' -author = u'CSEG at NCAR' - -# The version info for the project you're documenting, acts as replacement for -# |version| and |release|, also used in various other places throughout the -# built documents. -# -# The short X.Y version. -version = u'1.0.0' -# The full version, including alpha/beta/rc tags. -release = u'1.0.0' - -# The language for content autogenerated by Sphinx. Refer to documentation -# for a list of supported languages. -# -# This is also used if you do content translation via gettext catalogs. -# Usually you set "language" from the command line for these cases. -language = None - -# List of patterns, relative to source directory, that match files and -# directories to ignore when looking for source files. -# This patterns also effect to html_static_path and html_extra_path -exclude_patterns = ['_build', 'Thumbs.db', '.DS_Store'] - -# The name of the Pygments (syntax highlighting) style to use. -pygments_style = 'sphinx' - -# If true, `todo` and `todoList` produce output, else they produce nothing. -todo_include_todos = True - - -# -- Options for HTML output ---------------------------------------------- - -# The theme to use for HTML and HTML Help pages. See the documentation for -# a list of builtin themes. -# -html_theme = 'alabaster' - -# Theme options are theme-specific and customize the look and feel of a theme -# further. For a list of options available for each theme, see the -# documentation. -# -# html_theme_options = {} - -# Add any paths that contain custom static files (such as style sheets) here, -# relative to this directory. They are copied after the builtin static files, -# so a file named "default.css" will overwrite the builtin "default.css". -html_static_path = ['_static'] - -# Custom sidebar templates, must be a dictionary that maps document names -# to template names. -# -# This is required for the alabaster theme -# refs: http://alabaster.readthedocs.io/en/latest/installation.html#sidebars -html_sidebars = { - '**': [ - 'relations.html', # needs 'show_related': True theme option to display - 'searchbox.html', - ] -} - - -# -- Options for HTMLHelp output ------------------------------------------ - -# Output file base name for HTML help builder. -htmlhelp_basename = 'ManageExternalsdoc' - - -# -- Options for LaTeX output --------------------------------------------- - -latex_elements = { - # The paper size ('letterpaper' or 'a4paper'). - # - # 'papersize': 'letterpaper', - - # The font size ('10pt', '11pt' or '12pt'). - # - # 'pointsize': '10pt', - - # Additional stuff for the LaTeX preamble. - # - # 'preamble': '', - - # Latex figure (float) alignment - # - # 'figure_align': 'htbp', -} - -# Grouping the document tree into LaTeX files. List of tuples -# (source start file, target name, title, -# author, documentclass [howto, manual, or own class]). -latex_documents = [ - (master_doc, 'ManageExternals.tex', u'Manage Externals Documentation', - u'CSEG at NCAR', 'manual'), -] - - -# -- Options for manual page output --------------------------------------- - -# One entry per manual page. List of tuples -# (source start file, name, description, authors, manual section). -man_pages = [ - (master_doc, 'manageexternals', u'Manage Externals Documentation', - [author], 1) -] - - -# -- Options for Texinfo output ------------------------------------------- - -# Grouping the document tree into Texinfo files. List of tuples -# (source start file, target name, title, author, -# dir menu entry, description, category) -texinfo_documents = [ - (master_doc, 'ManageExternals', u'Manage Externals Documentation', - author, 'ManageExternals', 'One line description of project.', - 'Miscellaneous'), -] - - - diff --git a/manage_externals/test/doc/develop.rst b/manage_externals/test/doc/develop.rst deleted file mode 100644 index b817b7b09..000000000 --- a/manage_externals/test/doc/develop.rst +++ /dev/null @@ -1,202 +0,0 @@ -Developer Guidelines -==================== - -The manage externals utilities are a light weight replacement for svn -externals that will work with git repositories pulling in a mixture of -git and svn dependencies. - -Given an externals description and a working copy: - -* *checkout_externals* attempts to make the working copy agree with the - externals description - -* *generate_externals* attempts to make the externals description agree - with the working copy. - -For these operations utilities should: - -* operate consistently across git and svn - -* operate simply with minimal user complexity - -* robustly across a wide range of repository states - -* provide explicit error messages when a problem occurs - -* leave the working copy in a valid state - -The utilities in manage externals are **NOT** generic wrappers around -revision control operations or a replacement for common tasks. Users -are expected to: - -* create branches prior to starting development - -* add remotes and push changes - -* create tags - -* delete branches - -These types of tasks are often highly workflow dependent, e.g. branch -naming conventions may vary between repositories, have the potential -to destroy user data, introduce significant code complexit and 'edge -cases' that are extremely difficult to detect and test, and often -require subtle decision making, especially if a problem occurs. - -Users who want to automate these types are encouraged to create their -own tools. The externals description files are explicitly versioned -and the internal APIs are intended to be stable for these purposes. - -Core Design Principles ------------------------ - -1. Users can, and are actively encouraged to, modify the externals - directories using revision control outside of manage_externals - tools. You can't make any assumptions about the state of the - working copy. Examples: adding a remote, creating a branch, - switching to a branch, deleting the directory entirely. - -2. Give that the user can do anything, the manage externals library - can not preserve state between calls. The only information it can - rely on is what it expectes based on the content of the externals - description file, and what the actual state of the directory tree - is. - -3. Do *not* do anything that will possibly destroy user data! - - a. Do not remove files from the file system. We are operating on - user supplied input. If you don't call 'rm', you can't - accidentally remove the user's data. Thinking of calling - ``shutil.rmtree(user_input)``? What if the user accidentally - specified user_input such that it resolves to their home - directory.... Yeah. Don't go there. - - b. Rely on git and svn to do their job as much as possible. Don't - duplicate functionality. Examples: - - i. We require the working copies to be 'clean' as reported by - ``git status`` and ``svn status``. What if there are misc - editor files floating around that prevent an update? Use the - git and svn ignore functionality so they are not - reported. Don't try to remove them from manage_externals or - determine if they are 'safe' to ignore. - - ii. Do not use '--force'. Ever. This is a sign you are doing - something dangerous, it may not be what the user - wants. Remember, they are encouraged to modify their repo. - -4. There are often multiple ways to obtain a particular piece of - information from git. Scraping screen output is brittle and - generally not considered a stable API across different versions of - git. Given a choice between: - - a. a lower level git 'plumbing' command that processes a - specific request and returns a sucess/failure status. - - b. high level git command that produces a bunch of output - that must be processed. - - We always prefer the former. It almost always involves - writing and maintaining less code and is more likely to be - stable. - -5. Backward compatibility is critical. We have *nested* - repositories. They are trivially easy to change versions. They may - have very different versions of the top level manage_externals. The - ability to read and work with old model description files is - critical to avoid problems for users. We also have automated tools - (testdb) that must generate and read external description - files. Backward compatibility will make staging changes vastly - simpler. - -Model Users ------------ - -Consider the needs of the following model userswhen developing manage_externals: - -* Users who will checkout the code once, and never change versions. - -* Users who will checkout the code once, then work for several years, - never updating. before trying to update or request integration. - -* Users develope code but do not use revision control beyond the - initial checkout. If they have modified or untracked files in the - repo, they may be irreplacable. Don't destroy user data. - -* Intermediate users who are working with multiple repos or branches - on a regular basis. They may only use manage_externals weekly or - monthly. Keep the user interface and documentation simple and - explicit. The more command line options they have to remember or - look up, the more frustrated they git. - -* Software engineers who use the tools multiple times a day. It should - get out of their way. - -User Interface --------------- - -Basic operation for the most standard use cases should be kept as -simple as possible. Many users will only rarely run the manage -utilities. Even advanced users don't like reading a lot of help -documentation or struggling to remember commands and piece together -what they need to run. Having many command line options, even if not -needed, is exteremly frustrating and overwhelming for most users. A few -simple, explicitly named commands are better than a single command -with many options. - -How will users get help if something goes wrong? This is a custom, -one-off solution. Searching the internet for manage_externals, will -only return the user doc for this project at best. There isn't likely -to be a stackoverflow question or blog post where someone else already -answered a user's question. And very few people outside this community -will be able to provide help if something goes wrong. The sooner we -kick users out of these utilities and into standard version control -tools, the better off they are going to be if they run into a problem. - -Repositories ------------- - -There are three basic types of repositories that must be considered: - -* container repositories - repositories that are always top level - repositories, and have a group of externals that must be managed. - -* simple repositories - repositories that are externals to another - repository, and do not have any of their own externals that will be - managed. - -* mixed use repositories - repositories that can act as a top level - container repository or as an external to a top level - container. They may also have their own sub-externals that are - required. They may have different externals needs depening on - whether they are top level or not. - -Repositories must be able to checkout and switch to both branches and -tags. - -Development -=========== - -The functionality to manage externals is broken into a library of core -functionality and applications built with the library. - -The core library is called 'manic', pseduo-homophone of (man)age -(ex)ternals that is: short, pronounceable and spell-checkable. It is -also no more or less meaningful to an unfamiliar user than a random -jumble of letters forming an acronym. - -The core architecture of manic is: - -* externals description - an abstract description on an external, - including of how to obtain it, where to obtain it, where it goes in - the working tree. - -* externals - the software object representing an external. - -* source trees - collection of externals - -* repository wrappers - object oriented wrappers around repository - operations. So the higher level management of the soure tree and - external does not have to be concerned with how a particular - external is obtained and managed. - diff --git a/manage_externals/test/doc/index.rst b/manage_externals/test/doc/index.rst deleted file mode 100644 index 9ab287ad8..000000000 --- a/manage_externals/test/doc/index.rst +++ /dev/null @@ -1,22 +0,0 @@ -.. Manage Externals documentation master file, created by - sphinx-quickstart on Wed Nov 29 10:53:25 2017. - You can adapt this file completely to your liking, but it should at least - contain the root `toctree` directive. - -Welcome to Manage Externals's documentation! -============================================ - -.. toctree:: - :maxdepth: 2 - :caption: Contents: - - - develop.rst - testing.rst - -Indices and tables -================== - -* :ref:`genindex` -* :ref:`modindex` -* :ref:`search` diff --git a/manage_externals/test/doc/testing.rst b/manage_externals/test/doc/testing.rst deleted file mode 100644 index 623f0e431..000000000 --- a/manage_externals/test/doc/testing.rst +++ /dev/null @@ -1,123 +0,0 @@ -Testing -======= - -The manage_externals package has an automated test suite. All pull -requests are expected to pass 100% of the automated tests, as well as -be pep8 and lint 'clean' and maintain approximately constant (at a -minimum) level of code coverage. - -Quick Start ------------ - -Do nothing approach -~~~~~~~~~~~~~~~~~~~ - -When you create a pull request on GitHub, Travis-CI continuous -integration testing will run the test suite in both python2 and -python3. Test results, lint results, and code coverage results are -available online. - -Do something approach -~~~~~~~~~~~~~~~~~~~~~ - -In the test directory, run: - -.. code-block:: shell - - make env - make lint - make test - make coverage - - -Automated Testing ------------------ - -The manage_externals manic library and executables are developed to be -python2 and python3 compatible using only the standard library. The -test suites meet the same requirements. But additional tools are -required to provide lint and code coverage metrics and generate -documentation. The requirements are maintained in the requirements.txt -file, and can be automatically installed into an isolated environment -via Makefile. - -Bootstrap requirements: - -* python2 - version 2.7.x or later - -* python3 - version 3.6 tested other versions may work - -* pip and virtualenv for python2 and python3 - -Note: all make rules can be of the form ``make python=pythonX rule`` -or ``make rule`` depending if you want to use the default system -python or specify a specific version. - -The Makefile in the test directory has the following rules: - -* ``make python=pythonX env`` - create a python virtual environment - for python2 or python3 and install all required packages. These - packages are required to run lint or coverage. - -* ``make style`` - runs autopep8 - -* ``make lint`` - runs autopep8 and pylint - -* ``make test`` - run the full test suite - -* ``make utest`` - run jus the unit tests - -* ``make stest`` - run jus the system integration tests - -* ``make coverage`` - run the full test suite through the code - coverage tool and generate an html report. - -* ``make readme`` - automatically generate the README files. - -* ``make clean`` - remove editor and pyc files - -* ``make clobber`` - remove all generated test files, including - virtual environments, coverage reports, and temporary test - repository directories. - -Unit Tests ----------- - -Unit tests are probably not 'true unit tests' for the pedantic, but -are pragmatic unit tests. They cover small practicle code blocks: -functions, class methods, and groups of functions and class methods. - -System Integration Tests ------------------------- - -NOTE(bja, 2017-11) The systems integration tests currently do not include svn repositories. - -The manage_externals package is extremely tedious and error prone to test manually. - -Combinations that must be tested to ensure basic functionality are: - -* container repository pulling in simple externals - -* container repository pulling in mixed externals with sub-externals. - -* mixed repository acting as a container, pulling in simple externals and sub-externals - -Automatic system tests are handled the same way manual testing is done: - -* clone a test repository - -* create an externals description file for the test - -* run the executable with the desired args - -* check the results - -* potentially modify the repo (checkout a different branch) - -* rerun and test - -* etc - -The automated system stores small test repositories in the main repo -by adding them as bare repositories. These repos are cloned via a -subprocess call to git and manipulated during the tests. diff --git a/manage_externals/test/repos/container.git/HEAD b/manage_externals/test/repos/container.git/HEAD deleted file mode 100644 index cb089cd89..000000000 --- a/manage_externals/test/repos/container.git/HEAD +++ /dev/null @@ -1 +0,0 @@ -ref: refs/heads/master diff --git a/manage_externals/test/repos/container.git/config b/manage_externals/test/repos/container.git/config deleted file mode 100644 index e6da23157..000000000 --- a/manage_externals/test/repos/container.git/config +++ /dev/null @@ -1,6 +0,0 @@ -[core] - repositoryformatversion = 0 - filemode = true - bare = true - ignorecase = true - precomposeunicode = true diff --git a/manage_externals/test/repos/container.git/description b/manage_externals/test/repos/container.git/description deleted file mode 100644 index 498b267a8..000000000 --- a/manage_externals/test/repos/container.git/description +++ /dev/null @@ -1 +0,0 @@ -Unnamed repository; edit this file 'description' to name the repository. diff --git a/manage_externals/test/repos/container.git/info/exclude b/manage_externals/test/repos/container.git/info/exclude deleted file mode 100644 index a5196d1be..000000000 --- a/manage_externals/test/repos/container.git/info/exclude +++ /dev/null @@ -1,6 +0,0 @@ -# git ls-files --others --exclude-from=.git/info/exclude -# Lines that start with '#' are comments. -# For a project mostly in C, the following would be a good set of -# exclude patterns (uncomment them if you want to use them): -# *.[oa] -# *~ diff --git a/manage_externals/test/repos/container.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 b/manage_externals/test/repos/container.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 deleted file mode 100644 index f65234e17f32800b1be0aa9908cc706458b14605..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 133 zcmV;00DAv;0acB$4#OY}L_6~pma=t7)Fr=DfpLNr2P1F?mVSF_r3_t8x_fuJAR6GY zuD1yyS3=Xu)WDKA@Ra});Xx7fWf1zv2~1TS@=422pQw4`eHcB9X3EwU=O)-GQ}s5s nqUZ%S7HaN3i|$`ck;m7Sz6S{Y_}`UoN%K{iOGozsJ+C?sZtFeC diff --git a/manage_externals/test/repos/container.git/objects/71/5b8f3e4afe1802a178e1d603af404ba45d59de b/manage_externals/test/repos/container.git/objects/71/5b8f3e4afe1802a178e1d603af404ba45d59de deleted file mode 100644 index 9759965b1ba440f1899216c1c82c0780fb65f46e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 136 zcmV;30C)d*0hNtQ3c@fDKwak)a{8g?ULFizQ5yOj!O$#BY{3QX>9e{j4e8<)

AV=y!@Ff%bx&`ZxO$xP47FG^)_lzn~QNUpn5)Pnq=ii~6DWK2pp8O#dS+Wke_L diff --git a/manage_externals/test/repos/container.git/objects/f9/e08370a737e941de6f6492e3f427c2ef4c1a03 b/manage_externals/test/repos/container.git/objects/f9/e08370a737e941de6f6492e3f427c2ef4c1a03 deleted file mode 100644 index 460fd7781917e095c826e8bc77ad53d943f199aa..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 81 zcmV-X0IvUd0R_Ry4S+BV1VG+Yu@&$_q5vvMU;#^(9XS?9_smrFie(;Fw=7}|1e56wgzpa&}fBkqfO*k&i_)dY`l?1hv=p}Fj<2Ge{uRcq{saZ z%j{g@HZ3wNvQv&lo|o_6gr*rieLQOSK`~u|R`NhFUI)68@B`BlpbA~$UTB9Ga*~zx a%Jelj*-|I)LF@ttC5adD0subgY(|R<&Qf{+ diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/01/97458f2dbe5fcd6bc44fa46983be0a30282379 b/manage_externals/test/repos/mixed-cont-ext.git/objects/01/97458f2dbe5fcd6bc44fa46983be0a30282379 deleted file mode 100644 index 032f4b1ca6bf0d25f1f9f419b1e7ab2aae1ef6c8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 171 zcmV;c095~Y0Zomu4uUWgMV;SQFt~~^I5;?f2d%r6C&MNz$f6Pi}^^zp3SC&knSt>TGbz78}9=ZOL8&?Fv(cG!`VtgKgN ZY{1E$27wP^7dQxMoWuzLd;nlTMfbC)Q$zp& diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/06/ea30b03ffa2f8574705f8b9583f7ca7e2dccf7 b/manage_externals/test/repos/mixed-cont-ext.git/objects/06/ea30b03ffa2f8574705f8b9583f7ca7e2dccf7 deleted file mode 100644 index 13d15a96a5071e98f0ba0cfbbdb2992c03990151..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 136 zcmV;30C)d*0hNtG4#FT106p`H{eaDGEd>%|)SJ(su+=pM4B|mwZ+(Kd$t05rB_(M< zmNu<2!_Lge2B#67kHO(Q1a!#· -MP…tæÇM¯0v&ù>î°KciåÇüÇ8V; \ No newline at end of file diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/1f/01fa46c17b1f38b37e6259f6e9d041bda3144f b/manage_externals/test/repos/mixed-cont-ext.git/objects/1f/01fa46c17b1f38b37e6259f6e9d041bda3144f deleted file mode 100644 index 7bacde68db5f1201015d4532aba9551660b05399..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 167 zcmV;Y09gNc0hNxy4Z<)C0C{H$F90%4+_Vxxz$T7kLnR0(O(n*sumP`oo$loMcuWmC z-)~w~gsCf*eiQX=*_sZfntbAHl&dTZ&5gE zmqjc(UfS(h;i3i3C0B(5e{oub>rV4>ggxy?ABf1q79*mQ-&@oFEO*Ws<|S?Qy{d)p VGuU)ju(jTFZd1AL+y`g^OR&}EOOOBn diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/37/f0e70b609adc90f4c09ee21d82ed1d79c81d69 b/manage_externals/test/repos/mixed-cont-ext.git/objects/37/f0e70b609adc90f4c09ee21d82ed1d79c81d69 deleted file mode 100644 index 8c6b04837ae4456cc5dc53ea7572610e6635d0d8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lzn`tC9-|*xG$A9N diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/38/9a2b876b8965d3c91a3db8d28a483eaf019d5c b/manage_externals/test/repos/mixed-cont-ext.git/objects/38/9a2b876b8965d3c91a3db8d28a483eaf019d5c deleted file mode 100644 index 1a35b74d479fdfb4bf24bcf199663fbb52036eee..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 130 zcmV-|0Db>>0V^p=O;s>7GGs6`FfcPQQP4}zEXhpI%P&f0aFl&|Gw+GS!K3kZ)1Ezh zejs~i1S3>cQEFmJZmM2MMG3=S(WPsHSWJ^Nk8w52YBee>u{sG;Ra}~+n_5wlT9lWV kQ>>Sqmd-GFVdTA?;?e&$HE}Vp-My(>AuMbJ03PHp2Cniq;{X5v diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 b/manage_externals/test/repos/mixed-cont-ext.git/objects/41/1de5d96ee418c1c55f3e96e6e6e7c06bb95801 deleted file mode 100644 index f65234e17f32800b1be0aa9908cc706458b14605..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 133 zcmV;00DAv;0acB$4#OY}L_6~pma=t7)Fr=DfpLNr2P1F?mVSF_r3_t8x_fuJAR6GY zuD1yyS3=Xu)WDKA@Ra});Xx7fWf1zv2~1TS@=422pQw4`eHcB9X3EwU=O)-GQ}s5s nqUZ%S7HaN3i|$`ck;m7Sz6S{Y_}`UoN%K{iOGozsJ+C?sZtFeC diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/6e/9f4baa6e94a0af4e094836c2eb55ccedef5fc4 b/manage_externals/test/repos/mixed-cont-ext.git/objects/6e/9f4baa6e94a0af4e094836c2eb55ccedef5fc4 deleted file mode 100644 index 6b2146cae4080fe2369401ecf5009fd9612c363c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 129 zcmV-{0Dk{?0V^p=O;s>7GGs6`FfcPQQP4}zEXhpI%P&f0aFl&|Gw+GS!K3kZ)1Ezh zejs~i1S3>cQEFmJZmM2MMG3=S(WPsHSWJ^Nk8w52YBee>u{sG;Ra}~+n_5wlT9lWV jQ>>Sqmd+qz)?FYbw&JLT!Zra%FYj6GAw1sz`R^`7StK`- diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/6f/c379457ecb4e576a13c7610ae1fa73f845ee6a b/manage_externals/test/repos/mixed-cont-ext.git/objects/6f/c379457ecb4e576a13c7610ae1fa73f845ee6a deleted file mode 100644 index 852a05113..000000000 --- a/manage_externals/test/repos/mixed-cont-ext.git/objects/6f/c379457ecb4e576a13c7610ae1fa73f845ee6a +++ /dev/null @@ -1 +0,0 @@ -x•ANÄ09çsãÄÊŽ;‘~2±ÛÊJÄ^MÆ,Ï'ì8õ¥«ÔÚ¾_•ÆyyR3ØlmvˆÆ•PB°Œ˜FCñ¼Î>»y¸± *Ùbla’«-n^]D§¥,Ùx»fvÖû2p×­ }¢ÒGÍzå¿xï‰å‚ÜßÈNvq~Z¢¡Òc›âÔ èÇyäç+QåT¤íÔt;]ŠC:ÝA¹Õg¥¿AÚ( XA÷G‰®µ*=i\†_øÀ^' \ No newline at end of file diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/93/a159deb9175bfeb2820a0006ddd92d78131332 b/manage_externals/test/repos/mixed-cont-ext.git/objects/93/a159deb9175bfeb2820a0006ddd92d78131332 deleted file mode 100644 index 682d799898667fc1b506c6daece665c1af824fc1..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 169 zcmV;a09OBa0X2=i4uUWgg`MwHFu01a>EM8d!9g*|M#xPmH`1igdRvT%@!c&N$Mf@@ z(`wU3>1MmAof<6C(>I`v6dJAYeYA@l%k@73%f=gNbntJ=1Cup4@hq3GQ+7Tcu*$C$ z?z1w-GQSj97De^`@|sp*JpN(#NilT+t9T-4S&VZ28ie!20Ci{*k3u`_$Vpb#D>F9W XWKV;@2eAt}0BM}W2>^TmrSn6;Se#N% diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/95/80ecc12f16334ce44e42287d5d46f927bb7b75 b/manage_externals/test/repos/mixed-cont-ext.git/objects/95/80ecc12f16334ce44e42287d5d46f927bb7b75 deleted file mode 100644 index 33c9f6cdf..000000000 --- a/manage_externals/test/repos/mixed-cont-ext.git/objects/95/80ecc12f16334ce44e42287d5d46f927bb7b75 +++ /dev/null @@ -1 +0,0 @@ -x•ŽKNÄ0Yç½cÅÈŸLlK7é´Ÿ5#{ä´ŽO˜°z›ªÒ“¶mW%Ó“v€8¹³äÈÁ&¶eFö²òìÙ±$/¦äéÆUÉžÝz°RœÎJ¶¡”%ZY“ |YS“ìÄC/­Ó'*}ÔÜA¯ü7ïC¸ŸÇÛ‘²ÉÏ‹1‘^L0f’Ç7Åÿ¬©cì übå/ª¼Jo5½-Å®;íî Üê³Ò…¿AÚH:XA÷D×Z:ïÚ‡èè8M¿¸^æ \ No newline at end of file diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/a9/288dcd8a719a1f4ed3cba43a2a387ae7cd60fd b/manage_externals/test/repos/mixed-cont-ext.git/objects/a9/288dcd8a719a1f4ed3cba43a2a387ae7cd60fd deleted file mode 100644 index 73e7cbfbc8e106cee027f798dcb163ec6c5d21e6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 130 zcmV-|0Db>>0V^p=O;s>7GGs6`FfcPQQP4}zEXhpI%P&f0aFl&|Gw+GS!K3kZ)1Ezh zejs~i1S3>cQEFmJZmM2MMG3=S(WPsHSWJ^Nk8w52YBee>u{sG;Ra}~+n_5wlT9lWV kQ>>Sqmd?O9-L+qLU;NqZBmPS=oA+@UXed_#01>J$$h2KJZU6uP diff --git a/manage_externals/test/repos/mixed-cont-ext.git/objects/e8/ea32a11d30ee703f6f661ae7c2376f4ab84d38 b/manage_externals/test/repos/mixed-cont-ext.git/objects/e8/ea32a11d30ee703f6f661ae7c2376f4ab84d38 deleted file mode 100644 index 189ed85bb3c8b8642ae353d29a759f67040b5786..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 130 zcmV-|0Db>>0V^p=O;s>7GGs6`FfcPQQP4}zEXhpI%P&f0aFl&|Gw+GS!K3kZ)1Ezh zejs~i1S3>cQEFmJZmM2MMG3=S(WPsHSWJ^Nk8w52YBee>u{sG;Ra}~+n_5wlT9lWV kQ>>Sqmd?Q7Ty=.p¢ˆA -!ìÜ  w4ݵ¡¸Qªé€Øú=©Ã¤á¨ÏZ9ü0„þûkÌ éžG)* \ No newline at end of file diff --git a/manage_externals/test/repos/mixed-cont-ext.git/refs/heads/master b/manage_externals/test/repos/mixed-cont-ext.git/refs/heads/master deleted file mode 100644 index 1e0eef1ea..000000000 --- a/manage_externals/test/repos/mixed-cont-ext.git/refs/heads/master +++ /dev/null @@ -1 +0,0 @@ -6fc379457ecb4e576a13c7610ae1fa73f845ee6a diff --git a/manage_externals/test/repos/mixed-cont-ext.git/refs/heads/new-feature b/manage_externals/test/repos/mixed-cont-ext.git/refs/heads/new-feature deleted file mode 100644 index 607e80d1b..000000000 --- a/manage_externals/test/repos/mixed-cont-ext.git/refs/heads/new-feature +++ /dev/null @@ -1 +0,0 @@ -9580ecc12f16334ce44e42287d5d46f927bb7b75 diff --git a/manage_externals/test/repos/simple-ext-fork.git/HEAD b/manage_externals/test/repos/simple-ext-fork.git/HEAD deleted file mode 100644 index cb089cd89..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/HEAD +++ /dev/null @@ -1 +0,0 @@ -ref: refs/heads/master diff --git a/manage_externals/test/repos/simple-ext-fork.git/config b/manage_externals/test/repos/simple-ext-fork.git/config deleted file mode 100644 index 04eba1787..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/config +++ /dev/null @@ -1,8 +0,0 @@ -[core] - repositoryformatversion = 0 - filemode = true - bare = true - ignorecase = true - precomposeunicode = true -[remote "origin"] - url = /Users/andreb/projects/ncar/git-conversion/checkout-model-dev/cesm-demo-externals/manage_externals/test/repos/simple-ext.git diff --git a/manage_externals/test/repos/simple-ext-fork.git/description b/manage_externals/test/repos/simple-ext-fork.git/description deleted file mode 100644 index 498b267a8..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/description +++ /dev/null @@ -1 +0,0 @@ -Unnamed repository; edit this file 'description' to name the repository. diff --git a/manage_externals/test/repos/simple-ext-fork.git/info/exclude b/manage_externals/test/repos/simple-ext-fork.git/info/exclude deleted file mode 100644 index a5196d1be..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/info/exclude +++ /dev/null @@ -1,6 +0,0 @@ -# git ls-files --others --exclude-from=.git/info/exclude -# Lines that start with '#' are comments. -# For a project mostly in C, the following would be a good set of -# exclude patterns (uncomment them if you want to use them): -# *.[oa] -# *~ diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/00/fd13e76189f9134b0506b4b8ed3172723b467f b/manage_externals/test/repos/simple-ext-fork.git/objects/00/fd13e76189f9134b0506b4b8ed3172723b467f deleted file mode 100644 index ae28c037e5e8773bab7a7f9b6b050a01c3c8402a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lznAV=y!@Ff%bx&`ZxO$xP47FG^)_lzn&Ekz!U-;cU~)E`&5u^pl|A>?=DrCt|Zp*KGhtORPb%uc6q&p;{~x`YAHy z#2GbEv6YQH#`fOIuH1gSE*yL=Ojyh~{nIdqe*nnpf*T V&^Fln@|2-4tBgli^9u#mM`!{nPaFUM diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/11/a76e3d9a67313dec7ce1230852ab5c86352c5c b/manage_externals/test/repos/simple-ext-fork.git/objects/11/a76e3d9a67313dec7ce1230852ab5c86352c5c deleted file mode 100644 index 564e7bba6..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/objects/11/a76e3d9a67313dec7ce1230852ab5c86352c5c +++ /dev/null @@ -1,2 +0,0 @@ -x%ŒK -Â0@]çse&ßDÔ›L’!´˜¶„l¼½).¼Åãu.@Æ_ö¸Jê0ÇàìlM–Ä~v:ÄèmLÌÆi™åY*/ŸÛè@ŽpòÞ W ˆJ¥&Üå¿ø)´*Í \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/16/5506a7408a482f50493434e13fffeb44af893f b/manage_externals/test/repos/simple-ext-fork.git/objects/16/5506a7408a482f50493434e13fffeb44af893f deleted file mode 100644 index 0d738af68b021dcd9918c8f2047aa4fff55bf6e4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lznO)_H(Z zem6QZm^^8RnmiI`ubHzgrPye+FKRN0H9F;O5%17>8Q`NMJ?ehWT|!t)2i0Np3Z=u$N9svC-|`;J-!jY5fUp SfzGuJhQeX2oy8Y4sYkDN{z{Sn diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/32/7e97d86e941047d809dba58f2804740c6c30cf b/manage_externals/test/repos/simple-ext-fork.git/objects/32/7e97d86e941047d809dba58f2804740c6c30cf deleted file mode 100644 index 0999f0d4b9b4297e5677a96f3c9677bf408ee8d9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lzniemt(y-3DP$mtIvOOf diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/36/418b4e5665956a90725c9a1b5a8e551c5f3d48 b/manage_externals/test/repos/simple-ext-fork.git/objects/36/418b4e5665956a90725c9a1b5a8e551c5f3d48 deleted file mode 100644 index 9da8434f65ef3bfdb57cb8117e312a56663a31a2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 159 zcmV;Q0AT-k0hNwh3c@fD0R7G>_5#Z8=Ft>H)JyoiX*NFFNQn2h9>Kq1U|^;?&-V_@ zcGH_GU?Q(kip?&NPmV1)rl3VdZ7GGKLl-2Pw=`WkjA`(0bci¹`ý}0…M”؇BÚÁs0/µâ¿}öï:: \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/3d/ec1fdf8e2f5edba28148c5db2fe8d7a842360b b/manage_externals/test/repos/simple-ext-fork.git/objects/3d/ec1fdf8e2f5edba28148c5db2fe8d7a842360b deleted file mode 100644 index 9a31c7ef2..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/objects/3d/ec1fdf8e2f5edba28148c5db2fe8d7a842360b +++ /dev/null @@ -1,2 +0,0 @@ -x•ŽKnÃ0 ³Ö)x”,ÊI½EÑŸ´–A¹Ü#t7o€ŒìÛ¶vp.žzS…ÁšÆƒ&oÑ„©d¦8¹xLd@™Ì‹›ÖCð6f¯% -œpt$‰m&ŽJd…¦¡øhøÝ—½Á—VxÔÒ®ùÉpŸ7^/²o7°d­K1ÂGDsØ#¯ë¿æ{o?Z 7®²€,\g½˜AV=y!@Ff%bx&`ZxO$xP47FG^)_lznAV=y!@Ff%bx&`ZxO$xP47FG^)_lznvGy0&Z${j?E8>6rD10GHRYE2d diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/5f/1d4786d12e52d7ab28d2f2f1118c1059a9f1ae b/manage_externals/test/repos/simple-ext-fork.git/objects/5f/1d4786d12e52d7ab28d2f2f1118c1059a9f1ae deleted file mode 100644 index 25488b7bfe52fd0d530e20393b752815d9aaf16f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 93 zcmV-j0HXhR0S(JB4ue1p1i;kyiv0l8%LNPZurX=iP=VtPL2T>`g? zkh3=;83|{%kTn0{lH8#Nev_`XVPmImRbRpwOIgehnBL{IWwXg diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/67/136e5ab4d5c1c65d10c8048763b96b0e53c1d6 b/manage_externals/test/repos/simple-ext-fork.git/objects/67/136e5ab4d5c1c65d10c8048763b96b0e53c1d6 deleted file mode 100644 index d3dfe31113715fe07ea6833f0c2a25e868ac20b2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 165 zcmV;W09yZe0hNwR4#F@DL|Nw)z5pm6r*$QSfIWwB8k=t$6s6+&lq0Ykjo#?ZSf=UT zz+~D012)4Gj)~xM%ugTv-b1AFi TQ|c4S3@Y4~D&BknM3zUWvn5b3 diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/7b/0bd630ac13865735a1dff3437a137d8ab50663 b/manage_externals/test/repos/simple-ext-fork.git/objects/7b/0bd630ac13865735a1dff3437a137d8ab50663 deleted file mode 100644 index 0a2ec0494bc1600144cb54b61a6d7b43c7f3e806..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 119 zcmV--0Eqv10X50d4FVw$MNz-0;#IJTYiz*^YyjkKAhHY@MpwI+#E{&tb3>7U^YwDN zr`$2}=y`92Fm{8oNzW$w#gQ$c3ivT<^#zfQHTwFÁ©¹£rPkÖSèkJ´^ë \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/a4/2fe9144f5707bc1e9515ce1b44681f7aba6f95 b/manage_externals/test/repos/simple-ext-fork.git/objects/a4/2fe9144f5707bc1e9515ce1b44681f7aba6f95 deleted file mode 100644 index d8ba65454..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/objects/a4/2fe9144f5707bc1e9515ce1b44681f7aba6f95 +++ /dev/null @@ -1,3 +0,0 @@ -xUÌ[ -Â0…aŸ³ŠÙ@%Is+ˆ¨;™¤c/˜DÂq÷VðÅ×Ã>Æ ”w‡WJ Ú˜>8ò!¤!&'ƒS=)í±×CòF+ÑI2‚ßO‚Ts^Xðn`Ä2ÖBcw'ä­Ñw¨Á -\ËØNqÝ›F—)ãò8îç3(«¬Œ2:é¥ÿü0x-<×!6,i ª9 \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext-fork.git/objects/b9/3737be3ea6b19f6255983748a0a0f4d622f936 b/manage_externals/test/repos/simple-ext-fork.git/objects/b9/3737be3ea6b19f6255983748a0a0f4d622f936 deleted file mode 100644 index 9b40a0afa00b93a318cd503d3b29db1162978b03..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lznD—}ÂD>£Nƒv“{ŠZ¼M˜I…¥?jƒ‹Ìpžs8ÄgøÓ½„qÚ¥ZŽ€qo j†­f­ÕJ×{]þÕµÓ¥®¥Om/¨3Ü$ô¥‰Q_@ÞH© \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext-fork.git/packed-refs b/manage_externals/test/repos/simple-ext-fork.git/packed-refs deleted file mode 100644 index b8f9e8630..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/packed-refs +++ /dev/null @@ -1,5 +0,0 @@ -# pack-refs with: peeled fully-peeled sorted -36418b4e5665956a90725c9a1b5a8e551c5f3d48 refs/heads/feature2 -9b75494003deca69527bb64bcaa352e801611dd2 refs/heads/master -11a76e3d9a67313dec7ce1230852ab5c86352c5c refs/tags/tag1 -^9b75494003deca69527bb64bcaa352e801611dd2 diff --git a/manage_externals/test/repos/simple-ext-fork.git/refs/heads/feature2 b/manage_externals/test/repos/simple-ext-fork.git/refs/heads/feature2 deleted file mode 100644 index d223b0362..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/refs/heads/feature2 +++ /dev/null @@ -1 +0,0 @@ -f268d4e56d067da9bd1d85e55bdc40a8bd2b0bca diff --git a/manage_externals/test/repos/simple-ext-fork.git/refs/tags/abandoned-feature b/manage_externals/test/repos/simple-ext-fork.git/refs/tags/abandoned-feature deleted file mode 100644 index 8a18bf08e..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/refs/tags/abandoned-feature +++ /dev/null @@ -1 +0,0 @@ -a42fe9144f5707bc1e9515ce1b44681f7aba6f95 diff --git a/manage_externals/test/repos/simple-ext-fork.git/refs/tags/forked-feature-v1 b/manage_externals/test/repos/simple-ext-fork.git/refs/tags/forked-feature-v1 deleted file mode 100644 index 2764b552d..000000000 --- a/manage_externals/test/repos/simple-ext-fork.git/refs/tags/forked-feature-v1 +++ /dev/null @@ -1 +0,0 @@ -8d2b3b35126224c975d23f109aa1e3cbac452989 diff --git a/manage_externals/test/repos/simple-ext.git/HEAD b/manage_externals/test/repos/simple-ext.git/HEAD deleted file mode 100644 index cb089cd89..000000000 --- a/manage_externals/test/repos/simple-ext.git/HEAD +++ /dev/null @@ -1 +0,0 @@ -ref: refs/heads/master diff --git a/manage_externals/test/repos/simple-ext.git/config b/manage_externals/test/repos/simple-ext.git/config deleted file mode 100644 index e6da23157..000000000 --- a/manage_externals/test/repos/simple-ext.git/config +++ /dev/null @@ -1,6 +0,0 @@ -[core] - repositoryformatversion = 0 - filemode = true - bare = true - ignorecase = true - precomposeunicode = true diff --git a/manage_externals/test/repos/simple-ext.git/description b/manage_externals/test/repos/simple-ext.git/description deleted file mode 100644 index 498b267a8..000000000 --- a/manage_externals/test/repos/simple-ext.git/description +++ /dev/null @@ -1 +0,0 @@ -Unnamed repository; edit this file 'description' to name the repository. diff --git a/manage_externals/test/repos/simple-ext.git/info/exclude b/manage_externals/test/repos/simple-ext.git/info/exclude deleted file mode 100644 index a5196d1be..000000000 --- a/manage_externals/test/repos/simple-ext.git/info/exclude +++ /dev/null @@ -1,6 +0,0 @@ -# git ls-files --others --exclude-from=.git/info/exclude -# Lines that start with '#' are comments. -# For a project mostly in C, the following would be a good set of -# exclude patterns (uncomment them if you want to use them): -# *.[oa] -# *~ diff --git a/manage_externals/test/repos/simple-ext.git/objects/00/fd13e76189f9134b0506b4b8ed3172723b467f b/manage_externals/test/repos/simple-ext.git/objects/00/fd13e76189f9134b0506b4b8ed3172723b467f deleted file mode 100644 index ae28c037e5e8773bab7a7f9b6b050a01c3c8402a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lznbW_*ltIGSP}@rN;eRaRvTe4jec)&9#mV ztc{ztsDi^RDN|POQ7IsM3R)Zn^fb6Ap%fNDG*4c1YCyeUO2}@P$+4Hjj2b9dvLb3- zmJ-WQ2E*@mn-@6i1g9x43VXTpcO0*k$48gudH@`(^)|-1gKbZJZ&teIHT_#Om*271 ST(#ZC=?eOIX=gtC)=0=UK}@j# diff --git a/manage_externals/test/repos/simple-ext.git/objects/0b/15e8af3d4615b42314216efeae3fff184046a8 b/manage_externals/test/repos/simple-ext.git/objects/0b/15e8af3d4615b42314216efeae3fff184046a8 deleted file mode 100644 index 32d6896e3cb813edde3e4f0d0ca2d21963c2f1b0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lznåY*/ŸÛè@ŽpòÞ W ˆJ¥&Üå¿ø)´*Í \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext.git/objects/31/dbcd6de441e671a467ef317146539b7ffabb11 b/manage_externals/test/repos/simple-ext.git/objects/31/dbcd6de441e671a467ef317146539b7ffabb11 deleted file mode 100644 index 0f0db6797fe19372f1d2122ebe8aa5361df07c61..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 90 zcmV-g0HyzU0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lzn_5#Z8=Ft>H)JyoiX*NFFNQn2h9>Kq1U|^;?&-V_@ zcGH_GU?Q(kip?&NPmV1)rl3VdZ7GGKLl-2Pw=`WkjA`(0bciÁ©¹£rPkÖSèkJ´^ë \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext.git/objects/c5/b315915742133dbdfbeed0753e481b55c1d364 b/manage_externals/test/repos/simple-ext.git/objects/c5/b315915742133dbdfbeed0753e481b55c1d364 deleted file mode 100644 index 1d27accb5..000000000 --- a/manage_externals/test/repos/simple-ext.git/objects/c5/b315915742133dbdfbeed0753e481b55c1d364 +++ /dev/null @@ -1 +0,0 @@ -x ÈÁ € @ßT±øàeV` ›p ¹;£v¯É¼&מ±Äi+bø%˜œ£Ns(G7ñ®/nñ‚ÖÁÇ©-UlGj»ÐæV&¿”Yÿ+!|£òŠ \ No newline at end of file diff --git a/manage_externals/test/repos/simple-ext.git/objects/df/312890f93ba4d2c694208599b665c4a08afeff b/manage_externals/test/repos/simple-ext.git/objects/df/312890f93ba4d2c694208599b665c4a08afeff deleted file mode 100644 index 4018ea5914ee89b76d88fc282b6c98d80e4aaccd..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 89 zcmV-f0H*(V0V^p=O;s>AV=y!@Ff%bx&`ZxO$xP47FG^)_lzn=1.7.0 -autopep8>=1.3.0 -coverage>=4.4.0 -coveralls>=1.2.0 -sphinx>=1.6.0 diff --git a/manage_externals/test/test_sys_checkout.py b/manage_externals/test/test_sys_checkout.py deleted file mode 100644 index 63adcacdd..000000000 --- a/manage_externals/test/test_sys_checkout.py +++ /dev/null @@ -1,1827 +0,0 @@ -#!/usr/bin/env python - -"""Unit test driver for checkout_externals - -Note: this script assume the path to the manic and -checkout_externals module is already in the python path. This is -usually handled by the makefile. If you call it directly, you may need -to adjust your path. - -NOTE(bja, 2017-11) If a test fails, we want to keep the repo for that -test. But the tests will keep running, so we need a unique name. Also, -tearDown is always called after each test. I haven't figured out how -to determine if an assertion failed and whether it is safe to clean up -the test repos. - -So the solution is: - -* assign a unique id to each test repo. - -* never cleanup during the run. - -* Erase any existing repos at the begining of the module in -setUpModule. - -""" - -# NOTE(bja, 2017-11) pylint complains that the module is too big, but -# I'm still working on how to break up the tests and still have the -# temporary directory be preserved.... -# pylint: disable=too-many-lines - - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import logging -import os -import os.path -import shutil -import unittest - -from manic.externals_description import ExternalsDescription -from manic.externals_description import DESCRIPTION_SECTION, VERSION_ITEM -from manic.externals_description import git_submodule_status -from manic.externals_status import ExternalStatus -from manic.repository_git import GitRepository -from manic.utils import printlog, execute_subprocess -from manic.global_constants import LOCAL_PATH_INDICATOR, VERBOSITY_DEFAULT -from manic.global_constants import LOG_FILE_NAME -from manic import checkout - -# ConfigParser was renamed in python2 to configparser. In python2, -# ConfigParser returns byte strings, str, instead of unicode. We need -# unicode to be compatible with xml and json parser and python3. -try: - # python2 - from ConfigParser import SafeConfigParser as config_parser -except ImportError: - # python3 - from configparser import ConfigParser as config_parser - -# --------------------------------------------------------------------- -# -# Global constants -# -# --------------------------------------------------------------------- - -# environment variable names -MANIC_TEST_BARE_REPO_ROOT = 'MANIC_TEST_BARE_REPO_ROOT' -MANIC_TEST_TMP_REPO_ROOT = 'MANIC_TEST_TMP_REPO_ROOT' - -# directory names -TMP_REPO_DIR_NAME = 'tmp' -BARE_REPO_ROOT_NAME = 'repos' -CONTAINER_REPO_NAME = 'container.git' -MIXED_REPO_NAME = 'mixed-cont-ext.git' -SIMPLE_REPO_NAME = 'simple-ext.git' -SIMPLE_FORK_NAME = 'simple-ext-fork.git' -SIMPLE_LOCAL_ONLY_NAME = '.' -ERROR_REPO_NAME = 'error' -EXTERNALS_NAME = 'externals' -SUB_EXTERNALS_PATH = 'src' -CFG_NAME = 'externals.cfg' -CFG_SUB_NAME = 'sub-externals.cfg' -README_NAME = 'readme.txt' -REMOTE_BRANCH_FEATURE2 = 'feature2' - -SVN_TEST_REPO = 'https://github.com/escomp/cesm' - - -def setUpModule(): # pylint: disable=C0103 - """Setup for all tests in this module. It is called once per module! - """ - logging.basicConfig(filename=LOG_FILE_NAME, - format='%(levelname)s : %(asctime)s : %(message)s', - datefmt='%Y-%m-%d %H:%M:%S', - level=logging.DEBUG) - repo_root = os.path.join(os.getcwd(), TMP_REPO_DIR_NAME) - repo_root = os.path.abspath(repo_root) - # delete if it exists from previous runs - try: - shutil.rmtree(repo_root) - except BaseException: - pass - # create clean dir for this run - os.mkdir(repo_root) - # set into the environment so var will be expanded in externals - # filess when executables are run - os.environ[MANIC_TEST_TMP_REPO_ROOT] = repo_root - - -class GenerateExternalsDescriptionCfgV1(object): - """Class to provide building blocks to create - ExternalsDescriptionCfgV1 files. - - Includes predefined files used in tests. - - """ - - def __init__(self): - self._schema_version = '1.1.0' - self._config = None - - def container_full(self, dest_dir): - """Create the full container config file with simple and mixed use - externals - - """ - self.create_config() - self.create_section(SIMPLE_REPO_NAME, 'simp_tag', - tag='tag1') - - self.create_section(SIMPLE_REPO_NAME, 'simp_branch', - branch=REMOTE_BRANCH_FEATURE2) - - self.create_section(SIMPLE_REPO_NAME, 'simp_opt', - tag='tag1', required=False) - - self.create_section(MIXED_REPO_NAME, 'mixed_req', - branch='master', externals=CFG_SUB_NAME) - - self.write_config(dest_dir) - - def container_simple_required(self, dest_dir): - """Create a container externals file with only simple externals. - - """ - self.create_config() - self.create_section(SIMPLE_REPO_NAME, 'simp_tag', - tag='tag1') - - self.create_section(SIMPLE_REPO_NAME, 'simp_branch', - branch=REMOTE_BRANCH_FEATURE2) - - self.create_section(SIMPLE_REPO_NAME, 'simp_hash', - ref_hash='60b1cc1a38d63') - - self.write_config(dest_dir) - - def container_simple_optional(self, dest_dir): - """Create a container externals file with optional simple externals - - """ - self.create_config() - self.create_section(SIMPLE_REPO_NAME, 'simp_req', - tag='tag1') - - self.create_section(SIMPLE_REPO_NAME, 'simp_opt', - tag='tag1', required=False) - - self.write_config(dest_dir) - - def container_simple_svn(self, dest_dir): - """Create a container externals file with only simple externals. - - """ - self.create_config() - self.create_section(SIMPLE_REPO_NAME, 'simp_tag', tag='tag1') - - self.create_svn_external('svn_branch', branch='trunk') - self.create_svn_external('svn_tag', tag='tags/cesm2.0.beta07') - - self.write_config(dest_dir) - - def mixed_simple_base(self, dest_dir): - """Create a mixed-use base externals file with only simple externals. - - """ - self.create_config() - self.create_section_ext_only('mixed_base') - self.create_section(SIMPLE_REPO_NAME, 'simp_tag', - tag='tag1') - - self.create_section(SIMPLE_REPO_NAME, 'simp_branch', - branch=REMOTE_BRANCH_FEATURE2) - - self.create_section(SIMPLE_REPO_NAME, 'simp_hash', - ref_hash='60b1cc1a38d63') - - self.write_config(dest_dir) - - def mixed_simple_sub(self, dest_dir): - """Create a mixed-use sub externals file with only simple externals. - - """ - self.create_config() - self.create_section(SIMPLE_REPO_NAME, 'simp_tag', - tag='tag1', path=SUB_EXTERNALS_PATH) - - self.create_section(SIMPLE_REPO_NAME, 'simp_branch', - branch=REMOTE_BRANCH_FEATURE2, - path=SUB_EXTERNALS_PATH) - - self.write_config(dest_dir, filename=CFG_SUB_NAME) - - def write_config(self, dest_dir, filename=CFG_NAME): - """Write the configuration file to disk - - """ - dest_path = os.path.join(dest_dir, filename) - with open(dest_path, 'w') as configfile: - self._config.write(configfile) - - def create_config(self): - """Create an config object and add the required metadata section - - """ - self._config = config_parser() - self.create_metadata() - - def create_metadata(self): - """Create the metadata section of the config file - """ - self._config.add_section(DESCRIPTION_SECTION) - - self._config.set(DESCRIPTION_SECTION, VERSION_ITEM, - self._schema_version) - - def create_section(self, repo_type, name, tag='', branch='', - ref_hash='', required=True, path=EXTERNALS_NAME, - externals='', repo_path=None, from_submodule=False): - # pylint: disable=too-many-branches - """Create a config section with autofilling some items and handling - optional items. - - """ - # pylint: disable=R0913 - self._config.add_section(name) - if not from_submodule: - self._config.set(name, ExternalsDescription.PATH, - os.path.join(path, name)) - - self._config.set(name, ExternalsDescription.PROTOCOL, - ExternalsDescription.PROTOCOL_GIT) - - # from_submodules is incompatible with some other options, turn them off - if (from_submodule and - ((repo_path is not None) or tag or ref_hash or branch)): - printlog('create_section: "from_submodule" is incompatible with ' - '"repo_url", "tag", "hash", and "branch" options;\n' - 'Ignoring those options for {}'.format(name)) - repo_url = None - tag = '' - ref_hash = '' - branch = '' - - if repo_path is not None: - repo_url = repo_path - else: - repo_url = os.path.join('${MANIC_TEST_BARE_REPO_ROOT}', repo_type) - - if not from_submodule: - self._config.set(name, ExternalsDescription.REPO_URL, repo_url) - - self._config.set(name, ExternalsDescription.REQUIRED, str(required)) - - if tag: - self._config.set(name, ExternalsDescription.TAG, tag) - - if branch: - self._config.set(name, ExternalsDescription.BRANCH, branch) - - if ref_hash: - self._config.set(name, ExternalsDescription.HASH, ref_hash) - - if externals: - self._config.set(name, ExternalsDescription.EXTERNALS, externals) - - if from_submodule: - self._config.set(name, ExternalsDescription.SUBMODULE, "True") - - def create_section_ext_only(self, name, - required=True, externals=CFG_SUB_NAME): - """Create a config section with autofilling some items and handling - optional items. - - """ - # pylint: disable=R0913 - self._config.add_section(name) - self._config.set(name, ExternalsDescription.PATH, LOCAL_PATH_INDICATOR) - - self._config.set(name, ExternalsDescription.PROTOCOL, - ExternalsDescription.PROTOCOL_EXTERNALS_ONLY) - - self._config.set(name, ExternalsDescription.REPO_URL, - LOCAL_PATH_INDICATOR) - - self._config.set(name, ExternalsDescription.REQUIRED, str(required)) - - if externals: - self._config.set(name, ExternalsDescription.EXTERNALS, externals) - - def create_svn_external(self, name, tag='', branch=''): - """Create a config section for an svn repository. - - """ - self._config.add_section(name) - self._config.set(name, ExternalsDescription.PATH, - os.path.join(EXTERNALS_NAME, name)) - - self._config.set(name, ExternalsDescription.PROTOCOL, - ExternalsDescription.PROTOCOL_SVN) - - self._config.set(name, ExternalsDescription.REPO_URL, SVN_TEST_REPO) - - self._config.set(name, ExternalsDescription.REQUIRED, str(True)) - - if tag: - self._config.set(name, ExternalsDescription.TAG, tag) - - if branch: - self._config.set(name, ExternalsDescription.BRANCH, branch) - - @staticmethod - def create_branch(dest_dir, repo_name, branch, with_commit=False): - """Update a repository branch, and potentially the remote. - """ - # pylint: disable=R0913 - cwd = os.getcwd() - repo_root = os.path.join(dest_dir, EXTERNALS_NAME) - repo_root = os.path.join(repo_root, repo_name) - os.chdir(repo_root) - cmd = ['git', 'checkout', '-b', branch, ] - execute_subprocess(cmd) - if with_commit: - msg = 'start work on {0}'.format(branch) - with open(README_NAME, 'a') as handle: - handle.write(msg) - cmd = ['git', 'add', README_NAME, ] - execute_subprocess(cmd) - cmd = ['git', 'commit', '-m', msg, ] - execute_subprocess(cmd) - os.chdir(cwd) - - @staticmethod - def create_commit(dest_dir, repo_name, local_tracking_branch=None): - """Make a commit on whatever is currently checked out. - - This is used to test sync state changes from local commits on - detached heads and tracking branches. - - """ - cwd = os.getcwd() - repo_root = os.path.join(dest_dir, EXTERNALS_NAME) - repo_root = os.path.join(repo_root, repo_name) - os.chdir(repo_root) - if local_tracking_branch: - cmd = ['git', 'checkout', '-b', local_tracking_branch, ] - execute_subprocess(cmd) - - msg = 'work on great new feature!' - with open(README_NAME, 'a') as handle: - handle.write(msg) - cmd = ['git', 'add', README_NAME, ] - execute_subprocess(cmd) - cmd = ['git', 'commit', '-m', msg, ] - execute_subprocess(cmd) - os.chdir(cwd) - - def update_branch(self, dest_dir, name, branch, repo_type=None, - filename=CFG_NAME): - """Update a repository branch, and potentially the remote. - """ - # pylint: disable=R0913 - self._config.set(name, ExternalsDescription.BRANCH, branch) - - if repo_type: - if repo_type == SIMPLE_LOCAL_ONLY_NAME: - repo_url = SIMPLE_LOCAL_ONLY_NAME - else: - repo_url = os.path.join('${MANIC_TEST_BARE_REPO_ROOT}', - repo_type) - self._config.set(name, ExternalsDescription.REPO_URL, repo_url) - - try: - # remove the tag if it existed - self._config.remove_option(name, ExternalsDescription.TAG) - except BaseException: - pass - - self.write_config(dest_dir, filename) - - def update_svn_branch(self, dest_dir, name, branch, filename=CFG_NAME): - """Update a repository branch, and potentially the remote. - """ - # pylint: disable=R0913 - self._config.set(name, ExternalsDescription.BRANCH, branch) - - try: - # remove the tag if it existed - self._config.remove_option(name, ExternalsDescription.TAG) - except BaseException: - pass - - self.write_config(dest_dir, filename) - - def update_tag(self, dest_dir, name, tag, repo_type=None, - filename=CFG_NAME, remove_branch=True): - """Update a repository tag, and potentially the remote - - NOTE(bja, 2017-11) remove_branch=False should result in an - overspecified external with both a branch and tag. This is - used for error condition testing. - - """ - # pylint: disable=R0913 - self._config.set(name, ExternalsDescription.TAG, tag) - - if repo_type: - repo_url = os.path.join('${MANIC_TEST_BARE_REPO_ROOT}', repo_type) - self._config.set(name, ExternalsDescription.REPO_URL, repo_url) - - try: - # remove the branch if it existed - if remove_branch: - self._config.remove_option(name, ExternalsDescription.BRANCH) - except BaseException: - pass - - self.write_config(dest_dir, filename) - - def update_underspecify_branch_tag(self, dest_dir, name, - filename=CFG_NAME): - """Update a repository protocol, and potentially the remote - """ - # pylint: disable=R0913 - try: - # remove the branch if it existed - self._config.remove_option(name, ExternalsDescription.BRANCH) - except BaseException: - pass - - try: - # remove the tag if it existed - self._config.remove_option(name, ExternalsDescription.TAG) - except BaseException: - pass - - self.write_config(dest_dir, filename) - - def update_underspecify_remove_url(self, dest_dir, name, - filename=CFG_NAME): - """Update a repository protocol, and potentially the remote - """ - # pylint: disable=R0913 - try: - # remove the repo url if it existed - self._config.remove_option(name, ExternalsDescription.REPO_URL) - except BaseException: - pass - - self.write_config(dest_dir, filename) - - def update_protocol(self, dest_dir, name, protocol, repo_type=None, - filename=CFG_NAME): - """Update a repository protocol, and potentially the remote - """ - # pylint: disable=R0913 - self._config.set(name, ExternalsDescription.PROTOCOL, protocol) - - if repo_type: - repo_url = os.path.join('${MANIC_TEST_BARE_REPO_ROOT}', repo_type) - self._config.set(name, ExternalsDescription.REPO_URL, repo_url) - - self.write_config(dest_dir, filename) - - -class BaseTestSysCheckout(unittest.TestCase): - """Base class of reusable systems level test setup for - checkout_externals - - """ - # NOTE(bja, 2017-11) pylint complains about long method names, but - # it is hard to differentiate tests without making them more - # cryptic. - # pylint: disable=invalid-name - - status_args = ['--status'] - checkout_args = [] - optional_args = ['--optional'] - verbose_args = ['--status', '--verbose'] - - def setUp(self): - """Setup for all individual checkout_externals tests - """ - # directory we want to return to after the test system and - # checkout_externals are done cd'ing all over the place. - self._return_dir = os.getcwd() - - self._test_id = self.id().split('.')[-1] - - # path to the executable - self._checkout = os.path.join('../checkout_externals') - self._checkout = os.path.abspath(self._checkout) - - # directory where we have test repositories - self._bare_root = os.path.join(os.getcwd(), BARE_REPO_ROOT_NAME) - self._bare_root = os.path.abspath(self._bare_root) - - # set into the environment so var will be expanded in externals files - os.environ[MANIC_TEST_BARE_REPO_ROOT] = self._bare_root - - # set the input file generator - self._generator = GenerateExternalsDescriptionCfgV1() - # set the input file generator for secondary externals - self._sub_generator = GenerateExternalsDescriptionCfgV1() - - def tearDown(self): - """Tear down for individual tests - """ - # remove the env var we added in setup - del os.environ[MANIC_TEST_BARE_REPO_ROOT] - - # return to our common starting point - os.chdir(self._return_dir) - - def setup_test_repo(self, parent_repo_name, dest_dir_in=None): - """Setup the paths and clone the base test repo - - """ - # unique repo for this test - test_dir_name = self._test_id - print("Test repository name: {0}".format(test_dir_name)) - - parent_repo_dir = os.path.join(self._bare_root, parent_repo_name) - if dest_dir_in is None: - dest_dir = os.path.join(os.environ[MANIC_TEST_TMP_REPO_ROOT], - test_dir_name) - else: - dest_dir = dest_dir_in - - # pylint: disable=W0212 - GitRepository._git_clone(parent_repo_dir, dest_dir, VERBOSITY_DEFAULT) - return dest_dir - - @staticmethod - def _add_file_to_repo(under_test_dir, filename, tracked): - """Add a file to the repository so we can put it into a dirty state - - """ - cwd = os.getcwd() - os.chdir(under_test_dir) - with open(filename, 'w') as tmp: - tmp.write('Hello, world!') - - if tracked: - # NOTE(bja, 2018-01) brittle hack to obtain repo dir and - # file name - path_data = filename.split('/') - repo_dir = os.path.join(path_data[0], path_data[1]) - os.chdir(repo_dir) - tracked_file = path_data[2] - cmd = ['git', 'add', tracked_file] - execute_subprocess(cmd) - - os.chdir(cwd) - - @staticmethod - def execute_cmd_in_dir(under_test_dir, args): - """Extecute the checkout command in the appropriate repo dir with the - specified additional args - - Note that we are calling the command line processing and main - routines and not using a subprocess call so that we get code - coverage results! - - """ - cwd = os.getcwd() - checkout_path = os.path.abspath('{0}/../../checkout_externals') - os.chdir(under_test_dir) - cmdline = ['--externals', CFG_NAME, ] - cmdline += args - repo_root = 'MANIC_TEST_BARE_REPO_ROOT={root}'.format( - root=os.environ[MANIC_TEST_BARE_REPO_ROOT]) - manual_cmd = ('Test cmd:\npushd {cwd}; {env} {checkout} {args}'.format( - cwd=under_test_dir, env=repo_root, checkout=checkout_path, - args=' '.join(cmdline))) - printlog(manual_cmd) - options = checkout.commandline_arguments(cmdline) - overall_status, tree_status = checkout.main(options) - os.chdir(cwd) - return overall_status, tree_status - - # ---------------------------------------------------------------- - # - # Check results for generic perturbation of states - # - # ---------------------------------------------------------------- - def _check_generic_empty_default_required(self, tree, name): - self.assertEqual(tree[name].sync_state, ExternalStatus.EMPTY) - self.assertEqual(tree[name].clean_state, ExternalStatus.DEFAULT) - self.assertEqual(tree[name].source_type, ExternalStatus.MANAGED) - - def _check_generic_ok_clean_required(self, tree, name): - self.assertEqual(tree[name].sync_state, ExternalStatus.STATUS_OK) - self.assertEqual(tree[name].clean_state, ExternalStatus.STATUS_OK) - self.assertEqual(tree[name].source_type, ExternalStatus.MANAGED) - - def _check_generic_ok_dirty_required(self, tree, name): - self.assertEqual(tree[name].sync_state, ExternalStatus.STATUS_OK) - self.assertEqual(tree[name].clean_state, ExternalStatus.DIRTY) - self.assertEqual(tree[name].source_type, ExternalStatus.MANAGED) - - def _check_generic_modified_ok_required(self, tree, name): - self.assertEqual(tree[name].sync_state, ExternalStatus.MODEL_MODIFIED) - self.assertEqual(tree[name].clean_state, ExternalStatus.STATUS_OK) - self.assertEqual(tree[name].source_type, ExternalStatus.MANAGED) - - def _check_generic_empty_default_optional(self, tree, name): - self.assertEqual(tree[name].sync_state, ExternalStatus.EMPTY) - self.assertEqual(tree[name].clean_state, ExternalStatus.DEFAULT) - self.assertEqual(tree[name].source_type, ExternalStatus.OPTIONAL) - - def _check_generic_ok_clean_optional(self, tree, name): - self.assertEqual(tree[name].sync_state, ExternalStatus.STATUS_OK) - self.assertEqual(tree[name].clean_state, ExternalStatus.STATUS_OK) - self.assertEqual(tree[name].source_type, ExternalStatus.OPTIONAL) - - # ---------------------------------------------------------------- - # - # Check results for individual named externals - # - # ---------------------------------------------------------------- - def _check_simple_tag_empty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_tag'.format(directory) - self._check_generic_empty_default_required(tree, name) - - def _check_simple_tag_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_tag'.format(directory) - self._check_generic_ok_clean_required(tree, name) - - def _check_simple_tag_dirty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_tag'.format(directory) - self._check_generic_ok_dirty_required(tree, name) - - def _check_simple_tag_modified(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_tag'.format(directory) - self._check_generic_modified_ok_required(tree, name) - - def _check_simple_branch_empty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_branch'.format(directory) - self._check_generic_empty_default_required(tree, name) - - def _check_simple_branch_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_branch'.format(directory) - self._check_generic_ok_clean_required(tree, name) - - def _check_simple_branch_modified(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_branch'.format(directory) - self._check_generic_modified_ok_required(tree, name) - - def _check_simple_hash_empty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_hash'.format(directory) - self._check_generic_empty_default_required(tree, name) - - def _check_simple_hash_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_hash'.format(directory) - self._check_generic_ok_clean_required(tree, name) - - def _check_simple_hash_modified(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_hash'.format(directory) - self._check_generic_modified_ok_required(tree, name) - - def _check_simple_req_empty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_req'.format(directory) - self._check_generic_empty_default_required(tree, name) - - def _check_simple_req_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_req'.format(directory) - self._check_generic_ok_clean_required(tree, name) - - def _check_simple_opt_empty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_opt'.format(directory) - self._check_generic_empty_default_optional(tree, name) - - def _check_simple_opt_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/simp_opt'.format(directory) - self._check_generic_ok_clean_optional(tree, name) - - def _check_mixed_ext_branch_empty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/mixed_req'.format(directory) - self._check_generic_empty_default_required(tree, name) - - def _check_mixed_ext_branch_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/mixed_req'.format(directory) - self._check_generic_ok_clean_required(tree, name) - - def _check_mixed_ext_branch_modified(self, tree, directory=EXTERNALS_NAME): - name = './{0}/mixed_req'.format(directory) - self._check_generic_modified_ok_required(tree, name) - - # ---------------------------------------------------------------- - # - # Check results for groups of externals under specific conditions - # - # ---------------------------------------------------------------- - def _check_container_simple_required_pre_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_empty(tree) - self._check_simple_branch_empty(tree) - self._check_simple_hash_empty(tree) - - def _check_container_simple_required_checkout(self, overall, tree): - # Note, this is the internal tree status just before checkout - self.assertEqual(overall, 0) - self._check_simple_tag_empty(tree) - self._check_simple_branch_empty(tree) - self._check_simple_hash_empty(tree) - - def _check_container_simple_required_post_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_simple_branch_ok(tree) - self._check_simple_hash_ok(tree) - - def _check_container_simple_required_out_of_sync(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_modified(tree) - self._check_simple_branch_modified(tree) - self._check_simple_hash_modified(tree) - - def _check_container_simple_optional_pre_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_req_empty(tree) - self._check_simple_opt_empty(tree) - - def _check_container_simple_optional_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_req_empty(tree) - self._check_simple_opt_empty(tree) - - def _check_container_simple_optional_post_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_req_ok(tree) - self._check_simple_opt_empty(tree) - - def _check_container_simple_optional_post_optional(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_req_ok(tree) - self._check_simple_opt_ok(tree) - - def _check_container_simple_required_sb_modified(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_simple_branch_modified(tree) - self._check_simple_hash_ok(tree) - - def _check_container_simple_optional_st_dirty(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_dirty(tree) - self._check_simple_branch_ok(tree) - - def _check_container_full_pre_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_empty(tree) - self._check_simple_branch_empty(tree) - self._check_simple_opt_empty(tree) - self._check_mixed_ext_branch_required_pre_checkout(overall, tree) - - def _check_container_component_post_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_opt_ok(tree) - self._check_simple_tag_empty(tree) - self._check_simple_branch_empty(tree) - - def _check_container_component_post_checkout2(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_opt_ok(tree) - self._check_simple_tag_empty(tree) - self._check_simple_branch_ok(tree) - - def _check_container_full_post_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_simple_branch_ok(tree) - self._check_simple_opt_empty(tree) - self._check_mixed_ext_branch_required_post_checkout(overall, tree) - - def _check_container_full_pre_checkout_ext_change(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_simple_branch_ok(tree) - self._check_simple_opt_empty(tree) - self._check_mixed_ext_branch_required_pre_checkout_ext_change( - overall, tree) - - def _check_container_full_post_checkout_subext_modified( - self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_simple_branch_ok(tree) - self._check_simple_opt_empty(tree) - self._check_mixed_ext_branch_required_post_checkout_subext_modified( - overall, tree) - - def _check_mixed_ext_branch_required_pre_checkout(self, overall, tree): - # Note, this is the internal tree status just before checkout - self.assertEqual(overall, 0) - self._check_mixed_ext_branch_empty(tree, directory=EXTERNALS_NAME) - # NOTE: externals/mixed_req/src should not exist in the tree - # since this is the status before checkout of mixed_req. - - def _check_mixed_ext_branch_required_post_checkout(self, overall, tree): - # Note, this is the internal tree status just before checkout - self.assertEqual(overall, 0) - self._check_mixed_ext_branch_ok(tree, directory=EXTERNALS_NAME) - check_dir = "{0}/{1}/{2}".format(EXTERNALS_NAME, "mixed_req", - SUB_EXTERNALS_PATH) - self._check_simple_branch_ok(tree, directory=check_dir) - - def _check_mixed_ext_branch_required_pre_checkout_ext_change( - self, overall, tree): - # Note, this is the internal tree status just after change the - # externals description file, but before checkout - self.assertEqual(overall, 0) - self._check_mixed_ext_branch_modified(tree, directory=EXTERNALS_NAME) - check_dir = "{0}/{1}/{2}".format(EXTERNALS_NAME, "mixed_req", - SUB_EXTERNALS_PATH) - self._check_simple_branch_ok(tree, directory=check_dir) - - def _check_mixed_ext_branch_required_post_checkout_subext_modified( - self, overall, tree): - # Note, this is the internal tree status just after change the - # externals description file, but before checkout - self.assertEqual(overall, 0) - self._check_mixed_ext_branch_ok(tree, directory=EXTERNALS_NAME) - check_dir = "{0}/{1}/{2}".format(EXTERNALS_NAME, "mixed_req", - SUB_EXTERNALS_PATH) - self._check_simple_branch_modified(tree, directory=check_dir) - - def _check_mixed_cont_simple_required_pre_checkout(self, overall, tree): - # Note, this is the internal tree status just before checkout - self.assertEqual(overall, 0) - self._check_simple_tag_empty(tree, directory=EXTERNALS_NAME) - self._check_simple_branch_empty(tree, directory=EXTERNALS_NAME) - self._check_simple_branch_empty(tree, directory=SUB_EXTERNALS_PATH) - - def _check_mixed_cont_simple_required_checkout(self, overall, tree): - # Note, this is the internal tree status just before checkout - self.assertEqual(overall, 0) - self._check_simple_tag_empty(tree, directory=EXTERNALS_NAME) - self._check_simple_branch_empty(tree, directory=EXTERNALS_NAME) - self._check_simple_branch_empty(tree, directory=SUB_EXTERNALS_PATH) - - def _check_mixed_cont_simple_required_post_checkout(self, overall, tree): - # Note, this is the internal tree status just before checkout - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree, directory=EXTERNALS_NAME) - self._check_simple_branch_ok(tree, directory=EXTERNALS_NAME) - self._check_simple_branch_ok(tree, directory=SUB_EXTERNALS_PATH) - - -class TestSysCheckout(BaseTestSysCheckout): - """Run systems level tests of checkout_externals - - """ - # NOTE(bja, 2017-11) pylint complains about long method names, but - # it is hard to differentiate tests without making them more - # cryptic. - # pylint: disable=invalid-name - - # ---------------------------------------------------------------- - # - # Run systems tests - # - # ---------------------------------------------------------------- - def test_container_simple_required(self): - """Verify that a container with simple subrepos - generates the correct initial status. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # status of empty repo - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_pre_checkout(overall, tree) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # status clean checked out - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_simple_optional(self): - """Verify that container with an optional simple subrepos - generates the correct initial status. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_optional(under_test_dir) - - # check status of empty repo - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_optional_pre_checkout(overall, tree) - - # checkout required - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_optional_checkout(overall, tree) - - # status - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_optional_post_checkout(overall, tree) - - # checkout optional - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.optional_args) - self._check_container_simple_optional_post_checkout(overall, tree) - - # status - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_optional_post_optional(overall, tree) - - def test_container_simple_verbose(self): - """Verify that container with simple subrepos runs with verbose status - output and generates the correct initial status. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # check verbose status - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.verbose_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_simple_dirty(self): - """Verify that a container with simple subrepos - and a dirty status exits gracefully. - - """ - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # add a file to the repo - tracked = True - self._add_file_to_repo(under_test_dir, 'externals/simp_tag/tmp.txt', - tracked) - - # checkout: pre-checkout status should be dirty, did not - # modify working copy. - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_optional_st_dirty(overall, tree) - - # verify status is still dirty - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_optional_st_dirty(overall, tree) - - def test_container_simple_untracked(self): - """Verify that a container with simple subrepos and a untracked files - is not considered 'dirty' and will attempt an update. - - """ - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # add a file to the repo - tracked = False - self._add_file_to_repo(under_test_dir, 'externals/simp_tag/tmp.txt', - tracked) - - # checkout: pre-checkout status should be clean, ignoring the - # untracked file. - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_post_checkout(overall, tree) - - # verify status is still clean - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_simple_detached_sync(self): - """Verify that a container with simple subrepos generates the correct - out of sync status when making commits from a detached head - state. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # status of empty repo - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_pre_checkout(overall, tree) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # make a commit on the detached head of the tag and hash externals - self._generator.create_commit(under_test_dir, 'simp_tag') - self._generator.create_commit(under_test_dir, 'simp_hash') - self._generator.create_commit(under_test_dir, 'simp_branch') - - # status of repo, branch, tag and hash should all be out of sync! - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_out_of_sync(overall, tree) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - # same pre-checkout out of sync status - self._check_container_simple_required_out_of_sync(overall, tree) - - # now status should be in-sync - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_remote_branch(self): - """Verify that a container with remote branch change works - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # update the config file to point to a different remote with - # the same branch - self._generator.update_branch(under_test_dir, 'simp_branch', - REMOTE_BRANCH_FEATURE2, SIMPLE_FORK_NAME) - - # status of simp_branch should be out of sync - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_sb_modified(overall, tree) - - # checkout new externals - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_sb_modified(overall, tree) - - # status should be synced - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_remote_tag_same_branch(self): - """Verify that a container with remote tag change works. The new tag - should not be in the original repo, only the new remote - fork. The new tag is automatically fetched because it is on - the branch. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_tag(under_test_dir, 'simp_branch', - 'forked-feature-v1', SIMPLE_FORK_NAME) - - # status of simp_branch should be out of sync - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_sb_modified(overall, tree) - - # checkout new externals - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_sb_modified(overall, tree) - - # status should be synced - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_remote_tag_fetch_all(self): - """Verify that a container with remote tag change works. The new tag - should not be in the original repo, only the new remote - fork. It should also not be on a branch that will be fetch, - and therefore not fetched by default with 'git fetch'. It will - only be retreived by 'git fetch --tags' - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_tag(under_test_dir, 'simp_branch', - 'abandoned-feature', SIMPLE_FORK_NAME) - - # status of simp_branch should be out of sync - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_sb_modified(overall, tree) - - # checkout new externals - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_sb_modified(overall, tree) - - # status should be synced - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_preserve_dot(self): - """Verify that after inital checkout, modifying an external git repo - url to '.' and the current branch will leave it unchanged. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_required_checkout(overall, tree) - - # update the config file to point to a different remote with - # the same branch - self._generator.update_branch(under_test_dir, 'simp_branch', - REMOTE_BRANCH_FEATURE2, SIMPLE_FORK_NAME) - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - - # verify status is clean and unmodified - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - # update branch to point to a new branch that only exists in - # the local fork - self._generator.create_branch(under_test_dir, 'simp_branch', - 'private-feature', with_commit=True) - self._generator.update_branch(under_test_dir, 'simp_branch', - 'private-feature', - SIMPLE_LOCAL_ONLY_NAME) - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - - # verify status is clean and unmodified - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_required_post_checkout(overall, tree) - - def test_container_full(self): - """Verify that 'full' container with simple and mixed subrepos - generates the correct initial status. - - The mixed subrepo has a sub-externals file with different - sub-externals on different branches. - - """ - # create the test repository - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - - # create the top level externals file - self._generator.container_full(under_test_dir) - - # inital checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_full_pre_checkout(overall, tree) - - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_full_post_checkout(overall, tree) - - # update the mixed-use repo to point to different branch - self._generator.update_branch(under_test_dir, 'mixed_req', - 'new-feature', MIXED_REPO_NAME) - - # check status out of sync for mixed_req, but sub-externals - # are still in sync - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_full_pre_checkout_ext_change(overall, tree) - - # run the checkout. Now the mixed use external and it's - # sub-exterals should be changed. Returned status is - # pre-checkout! - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_full_pre_checkout_ext_change(overall, tree) - - # check status out of sync for mixed_req, and sub-externals - # are in sync. - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_full_post_checkout(overall, tree) - - def test_container_component(self): - """Verify that optional component checkout works - """ - # create the test repository - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - - # create the top level externals file - self._generator.container_full(under_test_dir) - - # inital checkout, first try a nonexistant component argument noref - checkout_args = ['simp_opt', 'noref'] - checkout_args.extend(self.checkout_args) - - with self.assertRaises(RuntimeError): - self.execute_cmd_in_dir(under_test_dir, checkout_args) - - checkout_args = ['simp_opt'] - checkout_args.extend(self.checkout_args) - - overall, tree = self.execute_cmd_in_dir(under_test_dir, - checkout_args) - - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_component_post_checkout(overall, tree) - checkout_args.append('simp_branch') - overall, tree = self.execute_cmd_in_dir(under_test_dir, - checkout_args) - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_component_post_checkout2(overall, tree) - - def test_mixed_simple(self): - """Verify that a mixed use repo can serve as a 'full' container, - pulling in a set of externals and a seperate set of sub-externals. - - """ - #import pdb; pdb.set_trace() - # create repository - under_test_dir = self.setup_test_repo(MIXED_REPO_NAME) - # create top level externals file - self._generator.mixed_simple_base(under_test_dir) - # NOTE: sub-externals file is already in the repo so we can - # switch branches during testing. Since this is a mixed-repo - # serving as the top level container repo, we can't switch - # during this test. - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_mixed_cont_simple_required_checkout(overall, tree) - - # verify status is clean and unmodified - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_mixed_cont_simple_required_post_checkout(overall, tree) - - -class TestSysCheckoutSVN(BaseTestSysCheckout): - """Run systems level tests of checkout_externals accessing svn repositories - - SVN tests - these tests use the svn repository interface. Since - they require an active network connection, they are significantly - slower than the git tests. But svn testing is critical. So try to - design the tests to only test svn repository functionality - (checkout, switch) and leave generic testing of functionality like - 'optional' to the fast git tests. - - Example timing as of 2017-11: - - * All other git and unit tests combined take between 4-5 seconds - - * Just checking if svn is available for a single test takes 2 seconds. - - * The single svn test typically takes between 10 and 25 seconds - (depending on the network)! - - NOTE(bja, 2017-11) To enable CI testing we can't use a real remote - repository that restricts access and it seems inappropriate to hit - a random open source repo. For now we are just hitting one of our - own github repos using the github svn server interface. This - should be "good enough" for basic checkout and swich - functionality. But if additional svn functionality is required, a - better solution will be necessary. I think eventually we want to - create a small local svn repository on the fly (doesn't require an - svn server or network connection!) and use it for testing. - - """ - - def _check_svn_branch_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/svn_branch'.format(directory) - self._check_generic_ok_clean_required(tree, name) - - def _check_svn_branch_dirty(self, tree, directory=EXTERNALS_NAME): - name = './{0}/svn_branch'.format(directory) - self._check_generic_ok_dirty_required(tree, name) - - def _check_svn_tag_ok(self, tree, directory=EXTERNALS_NAME): - name = './{0}/svn_tag'.format(directory) - self._check_generic_ok_clean_required(tree, name) - - def _check_svn_tag_modified(self, tree, directory=EXTERNALS_NAME): - name = './{0}/svn_tag'.format(directory) - self._check_generic_modified_ok_required(tree, name) - - def _check_container_simple_svn_post_checkout(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_svn_branch_ok(tree) - self._check_svn_tag_ok(tree) - - def _check_container_simple_svn_sb_dirty_st_mod(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_svn_tag_modified(tree) - self._check_svn_branch_dirty(tree) - - def _check_container_simple_svn_sb_clean_st_mod(self, overall, tree): - self.assertEqual(overall, 0) - self._check_simple_tag_ok(tree) - self._check_svn_tag_modified(tree) - self._check_svn_branch_ok(tree) - - @staticmethod - def have_svn_access(): - """Check if we have svn access so we can enable tests that use svn. - - """ - have_svn = False - cmd = ['svn', 'ls', SVN_TEST_REPO, ] - try: - execute_subprocess(cmd) - have_svn = True - except BaseException: - pass - return have_svn - - def skip_if_no_svn_access(self): - """Function decorator to disable svn tests when svn isn't available - """ - have_svn = self.have_svn_access() - if not have_svn: - raise unittest.SkipTest("No svn access") - - def test_container_simple_svn(self): - """Verify that a container repo can pull in an svn branch and svn tag. - - """ - self.skip_if_no_svn_access() - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_svn(under_test_dir) - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - - # verify status is clean and unmodified - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_svn_post_checkout(overall, tree) - - # update description file to make the tag into a branch and - # trigger a switch - self._generator.update_svn_branch(under_test_dir, 'svn_tag', 'trunk') - - # checkout - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - - # verify status is clean and unmodified - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.status_args) - self._check_container_simple_svn_post_checkout(overall, tree) - - # add an untracked file to the repo - tracked = False - self._add_file_to_repo(under_test_dir, - 'externals/svn_branch/tmp.txt', tracked) - - # run a no-op checkout: pre-checkout status should be clean, - # ignoring the untracked file. - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_svn_post_checkout(overall, tree) - - # update description file to make the branch into a tag and - # trigger a modified sync status - self._generator.update_svn_branch(under_test_dir, 'svn_tag', - 'tags/cesm2.0.beta07') - - # checkout: pre-checkout status should be clean and modified, - # will modify working copy. - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.checkout_args) - self._check_container_simple_svn_sb_clean_st_mod(overall, tree) - - # verify status is still clean and unmodified, last - # checkout modified the working dir state. - overall, tree = self.execute_cmd_in_dir(under_test_dir, - self.verbose_args) - self._check_container_simple_svn_post_checkout(overall, tree) - -class TestSubrepoCheckout(BaseTestSysCheckout): - # Need to store information at setUp time for checking - # pylint: disable=too-many-instance-attributes - """Run tests to ensure proper handling of repos with submodules. - - By default, submodules in git repositories are checked out. A git - repository checked out as a submodule is treated as if it was - listed in an external with the same properties as in the source - .gitmodules file. - """ - - def setUp(self): - """Setup for all submodule checkout tests - Create a repo with two submodule repositories. - """ - - # Run the basic setup - super(TestSubrepoCheckout, self).setUp() - # create test repo - # We need to do this here (rather than have a static repo) because - # git submodules do not allow for variables in .gitmodules files - self._test_repo_name = 'test_repo_with_submodules' - self._bare_branch_name = 'subrepo_branch' - self._config_branch_name = 'subrepo_config_branch' - self._container_extern_name = 'externals_container.cfg' - self._my_test_dir = os.path.join(os.environ[MANIC_TEST_TMP_REPO_ROOT], - self._test_id) - self._repo_dir = os.path.join(self._my_test_dir, self._test_repo_name) - self._checkout_dir = 'repo_with_submodules' - check_dir = self.setup_test_repo(CONTAINER_REPO_NAME, - dest_dir_in=self._repo_dir) - self.assertTrue(self._repo_dir == check_dir) - # Add the submodules - cwd = os.getcwd() - fork_repo_dir = os.path.join(self._bare_root, SIMPLE_FORK_NAME) - simple_repo_dir = os.path.join(self._bare_root, SIMPLE_REPO_NAME) - self._simple_ext_fork_name = SIMPLE_FORK_NAME.split('.')[0] - self._simple_ext_name = SIMPLE_REPO_NAME.split('.')[0] - os.chdir(self._repo_dir) - # Add a branch with a subrepo - cmd = ['git', 'branch', self._bare_branch_name, 'master'] - execute_subprocess(cmd) - cmd = ['git', 'checkout', self._bare_branch_name] - execute_subprocess(cmd) - cmd = ['git', 'submodule', 'add', fork_repo_dir] - execute_subprocess(cmd) - cmd = ['git', 'commit', '-am', "'Added simple-ext-fork as a submodule'"] - execute_subprocess(cmd) - # Save the fork repo hash for comparison - os.chdir(self._simple_ext_fork_name) - self._fork_hash_check = self.get_git_hash() - os.chdir(self._repo_dir) - # Now, create a branch to test from_sbmodule - cmd = ['git', 'branch', - self._config_branch_name, self._bare_branch_name] - execute_subprocess(cmd) - cmd = ['git', 'checkout', self._config_branch_name] - execute_subprocess(cmd) - cmd = ['git', 'submodule', 'add', simple_repo_dir] - execute_subprocess(cmd) - # Checkout feature2 - os.chdir(self._simple_ext_name) - cmd = ['git', 'branch', 'feature2', 'origin/feature2'] - execute_subprocess(cmd) - cmd = ['git', 'checkout', 'feature2'] - execute_subprocess(cmd) - # Save the fork repo hash for comparison - self._simple_hash_check = self.get_git_hash() - os.chdir(self._repo_dir) - self.create_externals_file(filename=self._container_extern_name, - dest_dir=self._repo_dir, from_submodule=True) - cmd = ['git', 'add', self._container_extern_name] - execute_subprocess(cmd) - cmd = ['git', 'commit', '-am', "'Added simple-ext as a submodule'"] - execute_subprocess(cmd) - # Reset to master - cmd = ['git', 'checkout', 'master'] - execute_subprocess(cmd) - os.chdir(cwd) - - @staticmethod - def get_git_hash(revision="HEAD"): - """Return the hash for """ - cmd = ['git', 'rev-parse', revision] - git_out = execute_subprocess(cmd, output_to_caller=True) - return git_out.strip() - - def create_externals_file(self, name='', filename=CFG_NAME, dest_dir=None, - branch_name=None, sub_externals=None, - from_submodule=False): - # pylint: disable=too-many-arguments - """Create a container externals file with only simple externals. - - """ - self._generator.create_config() - - if dest_dir is None: - dest_dir = self._my_test_dir - - if from_submodule: - self._generator.create_section(SIMPLE_FORK_NAME, - self._simple_ext_fork_name, - from_submodule=True) - self._generator.create_section(SIMPLE_REPO_NAME, - self._simple_ext_name, - branch='feature3', path='', - from_submodule=False) - else: - if branch_name is None: - branch_name = 'master' - - self._generator.create_section(self._test_repo_name, - self._checkout_dir, - branch=branch_name, - path=name, externals=sub_externals, - repo_path=self._repo_dir) - - self._generator.write_config(dest_dir, filename=filename) - - def idempotence_check(self, checkout_dir): - """Verify that calling checkout_externals and - checkout_externals --status does not cause errors""" - cwd = os.getcwd() - os.chdir(checkout_dir) - overall, _ = self.execute_cmd_in_dir(self._my_test_dir, - self.checkout_args) - self.assertTrue(overall == 0) - overall, _ = self.execute_cmd_in_dir(self._my_test_dir, - self.status_args) - self.assertTrue(overall == 0) - os.chdir(cwd) - - def test_submodule_checkout_bare(self): - """Verify that a git repo with submodule is properly checked out - This test if for where there is no 'externals' keyword in the - parent repo. - Correct behavior is that the submodule is checked out using - normal git submodule behavior. - """ - simple_ext_fork_tag = "(tag1)" - simple_ext_fork_status = " " - self.create_externals_file(branch_name=self._bare_branch_name) - overall, _ = self.execute_cmd_in_dir(self._my_test_dir, - self.checkout_args) - self.assertTrue(overall == 0) - cwd = os.getcwd() - checkout_dir = os.path.join(self._my_test_dir, self._checkout_dir) - fork_file = os.path.join(checkout_dir, - self._simple_ext_fork_name, "readme.txt") - self.assertTrue(os.path.exists(fork_file)) - os.chdir(checkout_dir) - submods = git_submodule_status(checkout_dir) - self.assertEqual(len(submods.keys()), 1) - self.assertTrue(self._simple_ext_fork_name in submods) - submod = submods[self._simple_ext_fork_name] - self.assertTrue('hash' in submod) - self.assertEqual(submod['hash'], self._fork_hash_check) - self.assertTrue('status' in submod) - self.assertEqual(submod['status'], simple_ext_fork_status) - self.assertTrue('tag' in submod) - self.assertEqual(submod['tag'], simple_ext_fork_tag) - os.chdir(cwd) - self.idempotence_check(checkout_dir) - - def test_submodule_checkout_none(self): - """Verify that a git repo with submodule is properly checked out - This test is for when 'externals=None' is in parent repo's - externals cfg file. - Correct behavior is the submodle is not checked out. - """ - self.create_externals_file(branch_name=self._bare_branch_name, - sub_externals="none") - overall, _ = self.execute_cmd_in_dir(self._my_test_dir, - self.checkout_args) - self.assertTrue(overall == 0) - cwd = os.getcwd() - checkout_dir = os.path.join(self._my_test_dir, self._checkout_dir) - fork_file = os.path.join(checkout_dir, - self._simple_ext_fork_name, "readme.txt") - self.assertFalse(os.path.exists(fork_file)) - os.chdir(cwd) - self.idempotence_check(checkout_dir) - - def test_submodule_checkout_config(self): # pylint: disable=too-many-locals - """Verify that a git repo with submodule is properly checked out - This test if for when the 'from_submodule' keyword is used in the - parent repo. - Correct behavior is that the submodule is checked out using - normal git submodule behavior. - """ - tag_check = None # Not checked out as submodule - status_check = "-" # Not checked out as submodule - self.create_externals_file(branch_name=self._config_branch_name, - sub_externals=self._container_extern_name) - overall, _ = self.execute_cmd_in_dir(self._my_test_dir, - self.checkout_args) - self.assertTrue(overall == 0) - cwd = os.getcwd() - checkout_dir = os.path.join(self._my_test_dir, self._checkout_dir) - fork_file = os.path.join(checkout_dir, - self._simple_ext_fork_name, "readme.txt") - self.assertTrue(os.path.exists(fork_file)) - os.chdir(checkout_dir) - # Check submodule status - submods = git_submodule_status(checkout_dir) - self.assertEqual(len(submods.keys()), 2) - self.assertTrue(self._simple_ext_fork_name in submods) - submod = submods[self._simple_ext_fork_name] - self.assertTrue('hash' in submod) - self.assertEqual(submod['hash'], self._fork_hash_check) - self.assertTrue('status' in submod) - self.assertEqual(submod['status'], status_check) - self.assertTrue('tag' in submod) - self.assertEqual(submod['tag'], tag_check) - self.assertTrue(self._simple_ext_name in submods) - submod = submods[self._simple_ext_name] - self.assertTrue('hash' in submod) - self.assertEqual(submod['hash'], self._simple_hash_check) - self.assertTrue('status' in submod) - self.assertEqual(submod['status'], status_check) - self.assertTrue('tag' in submod) - self.assertEqual(submod['tag'], tag_check) - # Check fork repo status - os.chdir(self._simple_ext_fork_name) - self.assertEqual(self.get_git_hash(), self._fork_hash_check) - os.chdir(checkout_dir) - os.chdir(self._simple_ext_name) - hash_check = self.get_git_hash('origin/feature3') - self.assertEqual(self.get_git_hash(), hash_check) - os.chdir(cwd) - self.idempotence_check(checkout_dir) - -class TestSysCheckoutErrors(BaseTestSysCheckout): - """Run systems level tests of error conditions in checkout_externals - - Error conditions - these tests are designed to trigger specific - error conditions and ensure that they are being handled as - runtime errors (and hopefully usefull error messages) instead of - the default internal message that won't mean anything to the - user, e.g. key error, called process error, etc. - - These are not 'expected failures'. They are pass when a - RuntimeError is raised, fail if any other error is raised (or no - error is raised). - - """ - - # NOTE(bja, 2017-11) pylint complains about long method names, but - # it is hard to differentiate tests without making them more - # cryptic. - # pylint: disable=invalid-name - - def test_error_unknown_protocol(self): - """Verify that a runtime error is raised when the user specified repo - protocol is not known. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_protocol(under_test_dir, 'simp_branch', - 'this-protocol-does-not-exist') - - with self.assertRaises(RuntimeError): - self.execute_cmd_in_dir(under_test_dir, self.checkout_args) - - def test_error_switch_protocol(self): - """Verify that a runtime error is raised when the user switches - protocols, git to svn. - - TODO(bja, 2017-11) This correctly results in an error, but it - isn't a helpful error message. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_protocol(under_test_dir, 'simp_branch', 'svn') - with self.assertRaises(RuntimeError): - self.execute_cmd_in_dir(under_test_dir, self.checkout_args) - - def test_error_unknown_tag(self): - """Verify that a runtime error is raised when the user specified tag - does not exist. - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_tag(under_test_dir, 'simp_branch', - 'this-tag-does-not-exist', SIMPLE_REPO_NAME) - - with self.assertRaises(RuntimeError): - self.execute_cmd_in_dir(under_test_dir, self.checkout_args) - - def test_error_overspecify_tag_branch(self): - """Verify that a runtime error is raised when the user specified both - tag and a branch - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_tag(under_test_dir, 'simp_branch', - 'this-tag-does-not-exist', SIMPLE_REPO_NAME, - remove_branch=False) - - with self.assertRaises(RuntimeError): - self.execute_cmd_in_dir(under_test_dir, self.checkout_args) - - def test_error_underspecify_tag_branch(self): - """Verify that a runtime error is raised when the user specified - neither a tag or a branch - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_underspecify_branch_tag(under_test_dir, - 'simp_branch') - - with self.assertRaises(RuntimeError): - self.execute_cmd_in_dir(under_test_dir, self.checkout_args) - - def test_error_missing_url(self): - """Verify that a runtime error is raised when the user specified - neither a tag or a branch - - """ - # create repo - under_test_dir = self.setup_test_repo(CONTAINER_REPO_NAME) - self._generator.container_simple_required(under_test_dir) - - # update the config file to point to a different remote with - # the tag instead of branch. Tag MUST NOT be in the original - # repo! - self._generator.update_underspecify_remove_url(under_test_dir, - 'simp_branch') - - with self.assertRaises(RuntimeError): - self.execute_cmd_in_dir(under_test_dir, self.checkout_args) - - -if __name__ == '__main__': - unittest.main() diff --git a/manage_externals/test/test_sys_repository_git.py b/manage_externals/test/test_sys_repository_git.py deleted file mode 100644 index f6dbf8428..000000000 --- a/manage_externals/test/test_sys_repository_git.py +++ /dev/null @@ -1,238 +0,0 @@ -#!/usr/bin/env python - -"""Tests of some of the functionality in repository_git.py that actually -interacts with git repositories. - -We're calling these "system" tests because we expect them to be a lot -slower than most of the unit tests. - -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import os -import shutil -import tempfile -import unittest - -from manic.repository_git import GitRepository -from manic.externals_description import ExternalsDescription -from manic.externals_description import ExternalsDescriptionDict -from manic.utils import execute_subprocess - -# NOTE(wjs, 2018-04-09) I find a mix of camel case and underscores to be -# more readable for unit test names, so I'm disabling pylint's naming -# convention check -# pylint: disable=C0103 - -# Allow access to protected members -# pylint: disable=W0212 - - -class GitTestCase(unittest.TestCase): - """Adds some git-specific unit test functionality on top of TestCase""" - - def assertIsHash(self, maybe_hash): - """Assert that the string given by maybe_hash really does look - like a git hash. - """ - - # Ensure it is non-empty - self.assertTrue(maybe_hash, msg="maybe_hash is empty") - - # Ensure it has a single string - self.assertEqual(1, len(maybe_hash.split()), - msg="maybe_hash has multiple strings: {}".format(maybe_hash)) - - # Ensure that the only characters in the string are ones allowed - # in hashes - allowed_chars_set = set('0123456789abcdef') - self.assertTrue(set(maybe_hash) <= allowed_chars_set, - msg="maybe_hash has non-hash characters: {}".format(maybe_hash)) - - -class TestGitTestCase(GitTestCase): - """Tests GitTestCase""" - - def test_assertIsHash_true(self): - """Ensure that assertIsHash passes for something that looks - like a hash""" - self.assertIsHash('abc123') - - def test_assertIsHash_empty(self): - """Ensure that assertIsHash raises an AssertionError for an - empty string""" - with self.assertRaises(AssertionError): - self.assertIsHash('') - - def test_assertIsHash_multipleStrings(self): - """Ensure that assertIsHash raises an AssertionError when - given multiple strings""" - with self.assertRaises(AssertionError): - self.assertIsHash('abc123 def456') - - def test_assertIsHash_badChar(self): - """Ensure that assertIsHash raises an AssertionError when given a - string that has a character that doesn't belong in a hash - """ - with self.assertRaises(AssertionError): - self.assertIsHash('abc123g') - - -class TestGitRepositoryGitCommands(GitTestCase): - """Test some git commands in RepositoryGit - - It's silly that we need to create a repository in order to test - these git commands. Much or all of the git functionality that is - currently in repository_git.py should eventually be moved to a - separate module that is solely responsible for wrapping git - commands; that would allow us to test it independently of this - repository class. - """ - - # ======================================================================== - # Test helper functions - # ======================================================================== - - def setUp(self): - # directory we want to return to after the test system and - # checkout_externals are done cd'ing all over the place. - self._return_dir = os.getcwd() - - self._tmpdir = tempfile.mkdtemp() - os.chdir(self._tmpdir) - - self._name = 'component' - rdata = {ExternalsDescription.PROTOCOL: 'git', - ExternalsDescription.REPO_URL: - '/path/to/local/repo', - ExternalsDescription.TAG: - 'tag1', - } - - data = {self._name: - { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: 'junk', - ExternalsDescription.EXTERNALS: '', - ExternalsDescription.REPO: rdata, - }, - } - model = ExternalsDescriptionDict(data) - repo = model[self._name][ExternalsDescription.REPO] - self._repo = GitRepository('test', repo) - - def tearDown(self): - # return to our common starting point - os.chdir(self._return_dir) - - shutil.rmtree(self._tmpdir, ignore_errors=True) - - @staticmethod - def make_git_repo(): - """Turn the current directory into an empty git repository""" - execute_subprocess(['git', 'init']) - - @staticmethod - def add_git_commit(): - """Add a git commit in the current directory""" - with open('README', 'a') as myfile: - myfile.write('more info') - execute_subprocess(['git', 'add', 'README']) - execute_subprocess(['git', 'commit', '-m', 'my commit message']) - - @staticmethod - def checkout_git_branch(branchname): - """Checkout a new branch in the current directory""" - execute_subprocess(['git', 'checkout', '-b', branchname]) - - @staticmethod - def make_git_tag(tagname): - """Make a lightweight tag at the current commit""" - execute_subprocess(['git', 'tag', '-m', 'making a tag', tagname]) - - @staticmethod - def checkout_ref(refname): - """Checkout the given refname in the current directory""" - execute_subprocess(['git', 'checkout', refname]) - - # ======================================================================== - # Begin actual tests - # ======================================================================== - - def test_currentHash_returnsHash(self): - """Ensure that the _git_current_hash function returns a hash""" - self.make_git_repo() - self.add_git_commit() - hash_found, myhash = self._repo._git_current_hash() - self.assertTrue(hash_found) - self.assertIsHash(myhash) - - def test_currentHash_outsideGitRepo(self): - """Ensure that the _git_current_hash function returns False when - outside a git repository""" - hash_found, myhash = self._repo._git_current_hash() - self.assertFalse(hash_found) - self.assertEqual('', myhash) - - def test_currentBranch_onBranch(self): - """Ensure that the _git_current_branch function returns the name - of the branch""" - self.make_git_repo() - self.add_git_commit() - self.checkout_git_branch('foo') - branch_found, mybranch = self._repo._git_current_branch() - self.assertTrue(branch_found) - self.assertEqual('foo', mybranch) - - def test_currentBranch_notOnBranch(self): - """Ensure that the _git_current_branch function returns False - when not on a branch""" - self.make_git_repo() - self.add_git_commit() - self.make_git_tag('mytag') - self.checkout_ref('mytag') - branch_found, mybranch = self._repo._git_current_branch() - self.assertFalse(branch_found) - self.assertEqual('', mybranch) - - def test_currentBranch_outsideGitRepo(self): - """Ensure that the _git_current_branch function returns False - when outside a git repository""" - branch_found, mybranch = self._repo._git_current_branch() - self.assertFalse(branch_found) - self.assertEqual('', mybranch) - - def test_currentTag_onTag(self): - """Ensure that the _git_current_tag function returns the name of - the tag""" - self.make_git_repo() - self.add_git_commit() - self.make_git_tag('some_tag') - tag_found, mytag = self._repo._git_current_tag() - self.assertTrue(tag_found) - self.assertEqual('some_tag', mytag) - - def test_currentTag_notOnTag(self): - """Ensure tha the _git_current_tag function returns False when - not on a tag""" - self.make_git_repo() - self.add_git_commit() - self.make_git_tag('some_tag') - self.add_git_commit() - tag_found, mytag = self._repo._git_current_tag() - self.assertFalse(tag_found) - self.assertEqual('', mytag) - - def test_currentTag_outsideGitRepo(self): - """Ensure that the _git_current_tag function returns False when - outside a git repository""" - tag_found, mytag = self._repo._git_current_tag() - self.assertFalse(tag_found) - self.assertEqual('', mytag) - - -if __name__ == '__main__': - unittest.main() diff --git a/manage_externals/test/test_unit_externals_description.py b/manage_externals/test/test_unit_externals_description.py deleted file mode 100644 index 637f760ee..000000000 --- a/manage_externals/test/test_unit_externals_description.py +++ /dev/null @@ -1,401 +0,0 @@ -#!/usr/bin/env python - -"""Unit test driver for checkout_externals - -Note: this script assume the path to the checkout_externals.py module is -already in the python path. - -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import os -import os.path -import shutil -import unittest - -try: - # python2 - from ConfigParser import SafeConfigParser as config_parser - - def config_string_cleaner(text): - """convert strings into unicode - """ - return text.decode('utf-8') -except ImportError: - # python3 - from configparser import ConfigParser as config_parser - - def config_string_cleaner(text): - """Python3 already uses unicode strings, so just return the string - without modification. - - """ - return text - -from manic.externals_description import DESCRIPTION_SECTION, VERSION_ITEM -from manic.externals_description import ExternalsDescription -from manic.externals_description import ExternalsDescriptionDict -from manic.externals_description import ExternalsDescriptionConfigV1 -from manic.externals_description import get_cfg_schema_version -from manic.externals_description import read_externals_description_file -from manic.externals_description import create_externals_description - -from manic.global_constants import EMPTY_STR - - -class TestCfgSchemaVersion(unittest.TestCase): - """Test that schema identification for the externals description - returns the correct results. - - """ - - def setUp(self): - """Reusable config object - """ - self._config = config_parser() - self._config.add_section('section1') - self._config.set('section1', 'keword', 'value') - - self._config.add_section(DESCRIPTION_SECTION) - - def test_schema_version_valid(self): - """Test that schema identification returns the correct version for a - valid tag. - - """ - version_str = '2.1.3' - self._config.set(DESCRIPTION_SECTION, VERSION_ITEM, version_str) - major, minor, patch = get_cfg_schema_version(self._config) - expected_major = 2 - expected_minor = 1 - expected_patch = 3 - self.assertEqual(expected_major, major) - self.assertEqual(expected_minor, minor) - self.assertEqual(expected_patch, patch) - - def test_schema_section_missing(self): - """Test that an error is returned if the schema section is missing - from the input file. - - """ - self._config.remove_section(DESCRIPTION_SECTION) - with self.assertRaises(RuntimeError): - get_cfg_schema_version(self._config) - - def test_schema_version_missing(self): - """Test that a externals description file without a version raises a - runtime error. - - """ - # Note: the default setup method shouldn't include a version - # keyword, but remove it just to be future proof.... - self._config.remove_option(DESCRIPTION_SECTION, VERSION_ITEM) - with self.assertRaises(RuntimeError): - get_cfg_schema_version(self._config) - - def test_schema_version_not_int(self): - """Test that a externals description file a version that doesn't - decompose to integer major, minor and patch versions raises - runtime error. - - """ - self._config.set(DESCRIPTION_SECTION, VERSION_ITEM, 'unknown') - with self.assertRaises(RuntimeError): - get_cfg_schema_version(self._config) - - -class TestModelDescritionConfigV1(unittest.TestCase): - """Test that parsing config/ini fileproduces a correct dictionary - for the externals description. - - """ - # pylint: disable=R0902 - - def setUp(self): - """Boiler plate construction of string containing xml for multiple components. - """ - self._comp1_name = 'comp1' - self._comp1_path = 'path/to/comp1' - self._comp1_protocol = 'svn' - self._comp1_url = 'https://svn.somewhere.com/path/of/comp1' - self._comp1_tag = 'a_nice_tag_v1' - self._comp1_is_required = 'True' - self._comp1_externals = '' - - self._comp2_name = 'comp2' - self._comp2_path = 'path/to/comp2' - self._comp2_protocol = 'git' - self._comp2_url = '/local/clone/of/comp2' - self._comp2_branch = 'a_very_nice_branch' - self._comp2_is_required = 'False' - self._comp2_externals = 'path/to/comp2.cfg' - - def _setup_comp1(self, config): - """Boiler plate construction of xml string for componet 1 - """ - config.add_section(self._comp1_name) - config.set(self._comp1_name, 'local_path', self._comp1_path) - config.set(self._comp1_name, 'protocol', self._comp1_protocol) - config.set(self._comp1_name, 'repo_url', self._comp1_url) - config.set(self._comp1_name, 'tag', self._comp1_tag) - config.set(self._comp1_name, 'required', self._comp1_is_required) - - def _setup_comp2(self, config): - """Boiler plate construction of xml string for componet 2 - """ - config.add_section(self._comp2_name) - config.set(self._comp2_name, 'local_path', self._comp2_path) - config.set(self._comp2_name, 'protocol', self._comp2_protocol) - config.set(self._comp2_name, 'repo_url', self._comp2_url) - config.set(self._comp2_name, 'branch', self._comp2_branch) - config.set(self._comp2_name, 'required', self._comp2_is_required) - config.set(self._comp2_name, 'externals', self._comp2_externals) - - @staticmethod - def _setup_externals_description(config): - """Add the required exernals description section - """ - - config.add_section(DESCRIPTION_SECTION) - config.set(DESCRIPTION_SECTION, VERSION_ITEM, '1.0.1') - - def _check_comp1(self, model): - """Test that component one was constructed correctly. - """ - self.assertTrue(self._comp1_name in model) - comp1 = model[self._comp1_name] - self.assertEqual(comp1[ExternalsDescription.PATH], self._comp1_path) - self.assertTrue(comp1[ExternalsDescription.REQUIRED]) - repo = comp1[ExternalsDescription.REPO] - self.assertEqual(repo[ExternalsDescription.PROTOCOL], - self._comp1_protocol) - self.assertEqual(repo[ExternalsDescription.REPO_URL], self._comp1_url) - self.assertEqual(repo[ExternalsDescription.TAG], self._comp1_tag) - self.assertEqual(EMPTY_STR, comp1[ExternalsDescription.EXTERNALS]) - - def _check_comp2(self, model): - """Test that component two was constucted correctly. - """ - self.assertTrue(self._comp2_name in model) - comp2 = model[self._comp2_name] - self.assertEqual(comp2[ExternalsDescription.PATH], self._comp2_path) - self.assertFalse(comp2[ExternalsDescription.REQUIRED]) - repo = comp2[ExternalsDescription.REPO] - self.assertEqual(repo[ExternalsDescription.PROTOCOL], - self._comp2_protocol) - self.assertEqual(repo[ExternalsDescription.REPO_URL], self._comp2_url) - self.assertEqual(repo[ExternalsDescription.BRANCH], self._comp2_branch) - self.assertEqual(self._comp2_externals, - comp2[ExternalsDescription.EXTERNALS]) - - def test_one_tag_required(self): - """Test that a component source with a tag is correctly parsed. - """ - config = config_parser() - self._setup_comp1(config) - self._setup_externals_description(config) - model = ExternalsDescriptionConfigV1(config) - print(model) - self._check_comp1(model) - - def test_one_branch_externals(self): - """Test that a component source with a branch is correctly parsed. - """ - config = config_parser() - self._setup_comp2(config) - self._setup_externals_description(config) - model = ExternalsDescriptionConfigV1(config) - print(model) - self._check_comp2(model) - - def test_two_sources(self): - """Test that multiple component sources are correctly parsed. - """ - config = config_parser() - self._setup_comp1(config) - self._setup_comp2(config) - self._setup_externals_description(config) - model = ExternalsDescriptionConfigV1(config) - print(model) - self._check_comp1(model) - self._check_comp2(model) - - def test_cfg_v1_reject_unknown_item(self): - """Test that a v1 description object will reject unknown items - """ - config = config_parser() - self._setup_comp1(config) - self._setup_externals_description(config) - config.set(self._comp1_name, 'junk', 'foobar') - with self.assertRaises(RuntimeError): - ExternalsDescriptionConfigV1(config) - - def test_cfg_v1_reject_v2(self): - """Test that a v1 description object won't try to parse a v2 file. - """ - config = config_parser() - self._setup_comp1(config) - self._setup_externals_description(config) - config.set(DESCRIPTION_SECTION, VERSION_ITEM, '2.0.1') - with self.assertRaises(RuntimeError): - ExternalsDescriptionConfigV1(config) - - def test_cfg_v1_reject_v1_too_new(self): - """Test that a v1 description object won't try to parse a v2 file. - """ - config = config_parser() - self._setup_comp1(config) - self._setup_externals_description(config) - config.set(DESCRIPTION_SECTION, VERSION_ITEM, '1.100.0') - with self.assertRaises(RuntimeError): - ExternalsDescriptionConfigV1(config) - - -class TestReadExternalsDescription(unittest.TestCase): - """Test the application logic of read_externals_description_file - """ - TMP_FAKE_DIR = 'fake' - - def setUp(self): - """Setup directory for tests - """ - if not os.path.exists(self.TMP_FAKE_DIR): - os.makedirs(self.TMP_FAKE_DIR) - - def tearDown(self): - """Cleanup tmp stuff on the file system - """ - if os.path.exists(self.TMP_FAKE_DIR): - shutil.rmtree(self.TMP_FAKE_DIR) - - def test_no_file_error(self): - """Test that a runtime error is raised when the file does not exist - - """ - root_dir = os.getcwd() - filename = 'this-file-should-not-exist' - with self.assertRaises(RuntimeError): - read_externals_description_file(root_dir, filename) - - def test_no_dir_error(self): - """Test that a runtime error is raised when the file does not exist - - """ - root_dir = '/path/to/some/repo' - filename = 'externals.cfg' - with self.assertRaises(RuntimeError): - read_externals_description_file(root_dir, filename) - - def test_no_invalid_error(self): - """Test that a runtime error is raised when the file format is invalid - - """ - root_dir = os.getcwd() - filename = 'externals.cfg' - file_path = os.path.join(root_dir, filename) - file_path = os.path.abspath(file_path) - contents = """ - -invalid file format -""" - with open(file_path, 'w') as fhandle: - fhandle.write(contents) - with self.assertRaises(RuntimeError): - read_externals_description_file(root_dir, filename) - os.remove(file_path) - - -class TestCreateExternalsDescription(unittest.TestCase): - """Test the application logic of creat_externals_description - """ - - def setUp(self): - """Create config object used as basis for all tests - """ - self._config = config_parser() - self._gmconfig = config_parser() - self.setup_config() - - def setup_config(self): - """Boiler plate construction of xml string for componet 1 - """ - # Create a standard externals config with a single external - name = 'test' - self._config.add_section(name) - self._config.set(name, ExternalsDescription.PATH, 'externals') - self._config.set(name, ExternalsDescription.PROTOCOL, 'git') - self._config.set(name, ExternalsDescription.REPO_URL, '/path/to/repo') - self._config.set(name, ExternalsDescription.TAG, 'test_tag') - self._config.set(name, ExternalsDescription.REQUIRED, 'True') - - self._config.add_section(DESCRIPTION_SECTION) - self._config.set(DESCRIPTION_SECTION, VERSION_ITEM, '1.0.0') - - # Create a .gitmodules test - name = 'submodule "gitmodules_test"' - self._gmconfig.add_section(name) - self._gmconfig.set(name, "path", 'externals/test') - self._gmconfig.set(name, "url", '/path/to/repo') - # NOTE(goldy, 2019-03) Should test other possible keywords such as - # fetchRecurseSubmodules, ignore, and shallow - - def test_cfg_v1_ok(self): - """Test that a correct cfg v1 object is created by create_externals_description - - """ - self._config.set(DESCRIPTION_SECTION, VERSION_ITEM, '1.0.3') - ext = create_externals_description(self._config, model_format='cfg') - self.assertIsInstance(ext, ExternalsDescriptionConfigV1) - - def test_cfg_v1_unknown_version(self): - """Test that a config file with unknown schema version is rejected by - create_externals_description. - - """ - self._config.set(DESCRIPTION_SECTION, VERSION_ITEM, '100.0.3') - with self.assertRaises(RuntimeError): - create_externals_description(self._config, model_format='cfg') - - def test_dict(self): - """Test that a correct cfg v1 object is created by create_externals_description - - """ - rdata = {ExternalsDescription.PROTOCOL: 'git', - ExternalsDescription.REPO_URL: '/path/to/repo', - ExternalsDescription.TAG: 'tagv1', - } - - desc = { - 'test': { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: '../fake', - ExternalsDescription.EXTERNALS: EMPTY_STR, - ExternalsDescription.REPO: rdata, }, - } - - ext = create_externals_description(desc, model_format='dict') - self.assertIsInstance(ext, ExternalsDescriptionDict) - - def test_cfg_unknown_version(self): - """Test that a runtime error is raised when an unknown file version is - received - - """ - self._config.set(DESCRIPTION_SECTION, VERSION_ITEM, '123.456.789') - with self.assertRaises(RuntimeError): - create_externals_description(self._config, model_format='cfg') - - def test_cfg_unknown_format(self): - """Test that a runtime error is raised when an unknown format string is - received - - """ - with self.assertRaises(RuntimeError): - create_externals_description(self._config, model_format='unknown') - - -if __name__ == '__main__': - unittest.main() diff --git a/manage_externals/test/test_unit_externals_status.py b/manage_externals/test/test_unit_externals_status.py deleted file mode 100644 index f8e953f75..000000000 --- a/manage_externals/test/test_unit_externals_status.py +++ /dev/null @@ -1,299 +0,0 @@ -#!/usr/bin/env python - -"""Unit test driver for the manic external status reporting module. - -Note: this script assumes the path to the manic package is already in -the python path. - -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import unittest - -from manic.externals_status import ExternalStatus - - -class TestStatusObject(unittest.TestCase): - """Verify that the Status object behaives as expected. - """ - - def test_exists_empty_all(self): - """If the repository sync-state is empty (doesn't exist), and there is no - clean state, then it is considered not to exist. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.EMPTY - stat.clean_state = ExternalStatus.DEFAULT - exists = stat.exists() - self.assertFalse(exists) - - stat.clean_state = ExternalStatus.EMPTY - exists = stat.exists() - self.assertFalse(exists) - - stat.clean_state = ExternalStatus.UNKNOWN - exists = stat.exists() - self.assertFalse(exists) - - # this state represtens an internal logic error in how the - # repo status was determined. - stat.clean_state = ExternalStatus.STATUS_OK - exists = stat.exists() - self.assertTrue(exists) - - # this state represtens an internal logic error in how the - # repo status was determined. - stat.clean_state = ExternalStatus.DIRTY - exists = stat.exists() - self.assertTrue(exists) - - def test_exists_default_all(self): - """If the repository sync-state is default, then it is considered to exist - regardless of clean state. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.DEFAULT - stat.clean_state = ExternalStatus.DEFAULT - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.EMPTY - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.UNKNOWN - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.STATUS_OK - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.DIRTY - exists = stat.exists() - self.assertTrue(exists) - - def test_exists_unknown_all(self): - """If the repository sync-state is unknown, then it is considered to exist - regardless of clean state. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.UNKNOWN - stat.clean_state = ExternalStatus.DEFAULT - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.EMPTY - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.UNKNOWN - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.STATUS_OK - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.DIRTY - exists = stat.exists() - self.assertTrue(exists) - - def test_exists_modified_all(self): - """If the repository sync-state is modified, then it is considered to exist - regardless of clean state. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.MODEL_MODIFIED - stat.clean_state = ExternalStatus.DEFAULT - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.EMPTY - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.UNKNOWN - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.STATUS_OK - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.DIRTY - exists = stat.exists() - self.assertTrue(exists) - - def test_exists_ok_all(self): - """If the repository sync-state is ok, then it is considered to exist - regardless of clean state. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.STATUS_OK - stat.clean_state = ExternalStatus.DEFAULT - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.EMPTY - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.UNKNOWN - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.STATUS_OK - exists = stat.exists() - self.assertTrue(exists) - - stat.clean_state = ExternalStatus.DIRTY - exists = stat.exists() - self.assertTrue(exists) - - def test_update_ok_all(self): - """If the repository in-sync is ok, then it is safe to - update only if clean state is ok - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.STATUS_OK - stat.clean_state = ExternalStatus.DEFAULT - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.EMPTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.UNKNOWN - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.STATUS_OK - safe_to_update = stat.safe_to_update() - self.assertTrue(safe_to_update) - - stat.clean_state = ExternalStatus.DIRTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - def test_update_modified_all(self): - """If the repository in-sync is modified, then it is safe to - update only if clean state is ok - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.MODEL_MODIFIED - stat.clean_state = ExternalStatus.DEFAULT - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.EMPTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.UNKNOWN - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.STATUS_OK - safe_to_update = stat.safe_to_update() - self.assertTrue(safe_to_update) - - stat.clean_state = ExternalStatus.DIRTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - def test_update_unknown_all(self): - """If the repository in-sync is unknown, then it is not safe to - update, regardless of the clean state. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.UNKNOWN - stat.clean_state = ExternalStatus.DEFAULT - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.EMPTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.UNKNOWN - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.STATUS_OK - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.DIRTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - def test_update_default_all(self): - """If the repository in-sync is default, then it is not safe to - update, regardless of the clean state. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.UNKNOWN - stat.clean_state = ExternalStatus.DEFAULT - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.EMPTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.UNKNOWN - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.STATUS_OK - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.DIRTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - def test_update_empty_all(self): - """If the repository in-sync is empty, then it is not safe to - update, regardless of the clean state. - - """ - stat = ExternalStatus() - stat.sync_state = ExternalStatus.UNKNOWN - stat.clean_state = ExternalStatus.DEFAULT - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.EMPTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.UNKNOWN - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.STATUS_OK - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - stat.clean_state = ExternalStatus.DIRTY - safe_to_update = stat.safe_to_update() - self.assertFalse(safe_to_update) - - -if __name__ == '__main__': - unittest.main() diff --git a/manage_externals/test/test_unit_repository.py b/manage_externals/test/test_unit_repository.py deleted file mode 100644 index 2152503c2..000000000 --- a/manage_externals/test/test_unit_repository.py +++ /dev/null @@ -1,197 +0,0 @@ -#!/usr/bin/env python - -"""Unit test driver for checkout_externals - -Note: this script assume the path to the checkout_externals.py module is -already in the python path. - -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import unittest - -from manic.repository_factory import create_repository -from manic.repository_git import GitRepository -from manic.repository_svn import SvnRepository -from manic.repository import Repository -from manic.externals_description import ExternalsDescription -from manic.global_constants import EMPTY_STR - - -class TestCreateRepositoryDict(unittest.TestCase): - """Test the create_repository functionality to ensure it returns the - propper type of repository and errors for unknown repository - types. - - """ - - def setUp(self): - """Common data needed for all tests in this class - """ - self._name = 'test_name' - self._repo = {ExternalsDescription.PROTOCOL: None, - ExternalsDescription.REPO_URL: 'junk_root', - ExternalsDescription.TAG: 'junk_tag', - ExternalsDescription.BRANCH: EMPTY_STR, - ExternalsDescription.HASH: EMPTY_STR, } - - def test_create_repo_git(self): - """Verify that several possible names for the 'git' protocol - create git repository objects. - - """ - protocols = ['git', 'GIT', 'Git', ] - for protocol in protocols: - self._repo[ExternalsDescription.PROTOCOL] = protocol - repo = create_repository(self._name, self._repo) - self.assertIsInstance(repo, GitRepository) - - def test_create_repo_svn(self): - """Verify that several possible names for the 'svn' protocol - create svn repository objects. - """ - protocols = ['svn', 'SVN', 'Svn', ] - for protocol in protocols: - self._repo[ExternalsDescription.PROTOCOL] = protocol - repo = create_repository(self._name, self._repo) - self.assertIsInstance(repo, SvnRepository) - - def test_create_repo_externals_only(self): - """Verify that an externals only repo returns None. - """ - protocols = ['externals_only', ] - for protocol in protocols: - self._repo[ExternalsDescription.PROTOCOL] = protocol - repo = create_repository(self._name, self._repo) - self.assertEqual(None, repo) - - def test_create_repo_unsupported(self): - """Verify that an unsupported protocol generates a runtime error. - """ - protocols = ['not_a_supported_protocol', ] - for protocol in protocols: - self._repo[ExternalsDescription.PROTOCOL] = protocol - with self.assertRaises(RuntimeError): - create_repository(self._name, self._repo) - - -class TestRepository(unittest.TestCase): - """Test the externals description processing used to create the Repository - base class shared by protocol specific repository classes. - - """ - - def test_tag(self): - """Test creation of a repository object with a tag - """ - name = 'test_repo' - protocol = 'test_protocol' - url = 'test_url' - tag = 'test_tag' - repo_info = {ExternalsDescription.PROTOCOL: protocol, - ExternalsDescription.REPO_URL: url, - ExternalsDescription.TAG: tag, - ExternalsDescription.BRANCH: EMPTY_STR, - ExternalsDescription.HASH: EMPTY_STR, } - repo = Repository(name, repo_info) - print(repo.__dict__) - self.assertEqual(repo.tag(), tag) - self.assertEqual(repo.url(), url) - - def test_branch(self): - """Test creation of a repository object with a branch - """ - name = 'test_repo' - protocol = 'test_protocol' - url = 'test_url' - branch = 'test_branch' - repo_info = {ExternalsDescription.PROTOCOL: protocol, - ExternalsDescription.REPO_URL: url, - ExternalsDescription.BRANCH: branch, - ExternalsDescription.TAG: EMPTY_STR, - ExternalsDescription.HASH: EMPTY_STR, } - repo = Repository(name, repo_info) - print(repo.__dict__) - self.assertEqual(repo.branch(), branch) - self.assertEqual(repo.url(), url) - - def test_hash(self): - """Test creation of a repository object with a hash - """ - name = 'test_repo' - protocol = 'test_protocol' - url = 'test_url' - ref = 'deadc0de' - repo_info = {ExternalsDescription.PROTOCOL: protocol, - ExternalsDescription.REPO_URL: url, - ExternalsDescription.BRANCH: EMPTY_STR, - ExternalsDescription.TAG: EMPTY_STR, - ExternalsDescription.HASH: ref, } - repo = Repository(name, repo_info) - print(repo.__dict__) - self.assertEqual(repo.hash(), ref) - self.assertEqual(repo.url(), url) - - def test_tag_branch(self): - """Test creation of a repository object with a tag and branch raises a - runtimer error. - - """ - name = 'test_repo' - protocol = 'test_protocol' - url = 'test_url' - branch = 'test_branch' - tag = 'test_tag' - ref = EMPTY_STR - repo_info = {ExternalsDescription.PROTOCOL: protocol, - ExternalsDescription.REPO_URL: url, - ExternalsDescription.BRANCH: branch, - ExternalsDescription.TAG: tag, - ExternalsDescription.HASH: ref, } - with self.assertRaises(RuntimeError): - Repository(name, repo_info) - - def test_tag_branch_hash(self): - """Test creation of a repository object with a tag, branch and hash raises a - runtimer error. - - """ - name = 'test_repo' - protocol = 'test_protocol' - url = 'test_url' - branch = 'test_branch' - tag = 'test_tag' - ref = 'deadc0de' - repo_info = {ExternalsDescription.PROTOCOL: protocol, - ExternalsDescription.REPO_URL: url, - ExternalsDescription.BRANCH: branch, - ExternalsDescription.TAG: tag, - ExternalsDescription.HASH: ref, } - with self.assertRaises(RuntimeError): - Repository(name, repo_info) - - def test_no_tag_no_branch(self): - """Test creation of a repository object without a tag or branch raises a - runtimer error. - - """ - name = 'test_repo' - protocol = 'test_protocol' - url = 'test_url' - branch = EMPTY_STR - tag = EMPTY_STR - ref = EMPTY_STR - repo_info = {ExternalsDescription.PROTOCOL: protocol, - ExternalsDescription.REPO_URL: url, - ExternalsDescription.BRANCH: branch, - ExternalsDescription.TAG: tag, - ExternalsDescription.HASH: ref, } - with self.assertRaises(RuntimeError): - Repository(name, repo_info) - - -if __name__ == '__main__': - unittest.main() diff --git a/manage_externals/test/test_unit_repository_git.py b/manage_externals/test/test_unit_repository_git.py deleted file mode 100644 index b025fbd42..000000000 --- a/manage_externals/test/test_unit_repository_git.py +++ /dev/null @@ -1,807 +0,0 @@ -#!/usr/bin/env python - -"""Unit test driver for checkout_externals - -Note: this script assume the path to the checkout_externals.py module is -already in the python path. - -""" -# pylint: disable=too-many-lines,protected-access - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import os -import shutil -import unittest - -from manic.repository_git import GitRepository -from manic.externals_status import ExternalStatus -from manic.externals_description import ExternalsDescription -from manic.externals_description import ExternalsDescriptionDict -from manic.global_constants import EMPTY_STR - -# NOTE(bja, 2017-11) order is important here. origin should be a -# subset of other to trap errors on processing remotes! -GIT_REMOTE_OUTPUT_ORIGIN_UPSTREAM = ''' -upstream /path/to/other/repo (fetch) -upstream /path/to/other/repo (push) -other /path/to/local/repo2 (fetch) -other /path/to/local/repo2 (push) -origin /path/to/local/repo (fetch) -origin /path/to/local/repo (push) -''' - - -class TestGitRepositoryCurrentRef(unittest.TestCase): - """test the current_ref command on a git repository - """ - - def setUp(self): - self._name = 'component' - rdata = {ExternalsDescription.PROTOCOL: 'git', - ExternalsDescription.REPO_URL: - '/path/to/local/repo', - ExternalsDescription.TAG: - 'tag1', - } - - data = {self._name: - { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: 'junk', - ExternalsDescription.EXTERNALS: EMPTY_STR, - ExternalsDescription.REPO: rdata, - }, - } - - model = ExternalsDescriptionDict(data) - repo = model[self._name][ExternalsDescription.REPO] - self._repo = GitRepository('test', repo) - - # - # mock methods replacing git system calls - # - @staticmethod - def _git_current_branch(branch_found, branch_name): - """Return a function that takes the place of - repo._git_current_branch, which returns the given output.""" - def my_git_current_branch(): - """mock function that can take the place of repo._git_current_branch""" - return branch_found, branch_name - return my_git_current_branch - - @staticmethod - def _git_current_tag(tag_found, tag_name): - """Return a function that takes the place of - repo._git_current_tag, which returns the given output.""" - def my_git_current_tag(): - """mock function that can take the place of repo._git_current_tag""" - return tag_found, tag_name - return my_git_current_tag - - @staticmethod - def _git_current_hash(hash_found, hash_name): - """Return a function that takes the place of - repo._git_current_hash, which returns the given output.""" - def my_git_current_hash(): - """mock function that can take the place of repo._git_current_hash""" - return hash_found, hash_name - return my_git_current_hash - - # ------------------------------------------------------------------------ - # Begin tests - # ------------------------------------------------------------------------ - - def test_ref_branch(self): - """Test that we correctly identify we are on a branch - """ - self._repo._git_current_branch = self._git_current_branch( - True, 'feature3') - self._repo._git_current_tag = self._git_current_tag(True, 'foo_tag') - self._repo._git_current_hash = self._git_current_hash(True, 'abc123') - expected = 'feature3' - result = self._repo._current_ref() - self.assertEqual(result, expected) - - def test_ref_detached_tag(self): - """Test that we correctly identify that the ref is detached at a tag - """ - self._repo._git_current_branch = self._git_current_branch(False, '') - self._repo._git_current_tag = self._git_current_tag(True, 'foo_tag') - self._repo._git_current_hash = self._git_current_hash(True, 'abc123') - expected = 'foo_tag' - result = self._repo._current_ref() - self.assertEqual(result, expected) - - def test_ref_detached_hash(self): - """Test that we can identify ref is detached at a hash - - """ - self._repo._git_current_branch = self._git_current_branch(False, '') - self._repo._git_current_tag = self._git_current_tag(False, '') - self._repo._git_current_hash = self._git_current_hash(True, 'abc123') - expected = 'abc123' - result = self._repo._current_ref() - self.assertEqual(result, expected) - - def test_ref_none(self): - """Test that we correctly identify that we're not in a git repo. - """ - self._repo._git_current_branch = self._git_current_branch(False, '') - self._repo._git_current_tag = self._git_current_tag(False, '') - self._repo._git_current_hash = self._git_current_hash(False, '') - result = self._repo._current_ref() - self.assertEqual(result, EMPTY_STR) - - -class TestGitRepositoryCheckSync(unittest.TestCase): - """Test whether the GitRepository _check_sync_logic functionality is - correct. - - Note: there are a lot of combinations of state: - - - external description - tag, branch - - - working copy - - doesn't exist (not checked out) - - exists, no git info - incorrect protocol, e.g. svn, or tarball? - - exists, git info - - as expected: - - different from expected: - - detached tag, - - detached hash, - - detached branch (compare remote and branch), - - tracking branch (compare remote and branch), - - same remote - - different remote - - untracked branch - - Test list: - - doesn't exist - - exists no git info - - - num_external * (working copy expected + num_working copy different) - - total tests = 16 - - """ - - # NOTE(bja, 2017-11) pylint complains about long method names, but - # it is hard to differentiate tests without making them more - # cryptic. Also complains about too many public methods, but it - # doesn't really make sense to break this up. - # pylint: disable=invalid-name,too-many-public-methods - - TMP_FAKE_DIR = 'fake' - TMP_FAKE_GIT_DIR = os.path.join(TMP_FAKE_DIR, '.git') - - def setUp(self): - """Setup reusable git repository object - """ - self._name = 'component' - rdata = {ExternalsDescription.PROTOCOL: 'git', - ExternalsDescription.REPO_URL: - '/path/to/local/repo', - ExternalsDescription.TAG: 'tag1', - } - - data = {self._name: - { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: self.TMP_FAKE_DIR, - ExternalsDescription.EXTERNALS: EMPTY_STR, - ExternalsDescription.REPO: rdata, - }, - } - - model = ExternalsDescriptionDict(data) - repo = model[self._name][ExternalsDescription.REPO] - self._repo = GitRepository('test', repo) - # The unit tests here don't care about the result of - # _current_ref, but we replace it here so that we don't need to - # worry about calling a possibly slow and possibly - # error-producing command (since _current_ref calls various git - # functions): - self._repo._current_ref = self._current_ref_empty - self._create_tmp_git_dir() - - def tearDown(self): - """Cleanup tmp stuff on the file system - """ - self._remove_tmp_git_dir() - - def _create_tmp_git_dir(self): - """Create a temporary fake git directory for testing purposes. - """ - if not os.path.exists(self.TMP_FAKE_GIT_DIR): - os.makedirs(self.TMP_FAKE_GIT_DIR) - - def _remove_tmp_git_dir(self): - """Remove the temporary fake git directory - """ - if os.path.exists(self.TMP_FAKE_DIR): - shutil.rmtree(self.TMP_FAKE_DIR) - - # - # mock methods replacing git system calls - # - @staticmethod - def _current_ref_empty(): - """Return an empty string. - """ - return EMPTY_STR - - @staticmethod - def _git_remote_origin_upstream(): - """Return an info string that is a checkout hash - """ - return GIT_REMOTE_OUTPUT_ORIGIN_UPSTREAM - - @staticmethod - def _git_remote_none(): - """Return an info string that is a checkout hash - """ - return EMPTY_STR - - @staticmethod - def _git_current_hash(myhash): - """Return a function that takes the place of repo._git_current_hash, - which returns the given hash - """ - def my_git_current_hash(): - """mock function that can take the place of repo._git_current_hash""" - return 0, myhash - return my_git_current_hash - - def _git_revparse_commit(self, expected_ref, mystatus, myhash): - """Return a function that takes the place of - repo._git_revparse_commit, which returns a tuple: - (mystatus, myhash). - - Expects the passed-in ref to equal expected_ref - - status = 0 implies success, non-zero implies failure - """ - def my_git_revparse_commit(ref): - """mock function that can take the place of repo._git_revparse_commit""" - self.assertEqual(expected_ref, ref) - return mystatus, myhash - return my_git_revparse_commit - - # ---------------------------------------------------------------- - # - # Tests where working copy doesn't exist or is invalid - # - # ---------------------------------------------------------------- - def test_sync_dir_not_exist(self): - """Test that a directory that doesn't exist returns an error status - - Note: the Repository classes should be prevented from ever - working on an empty directory by the _Source object. - - """ - stat = ExternalStatus() - self._repo._check_sync(stat, 'invalid_directory_name') - self.assertEqual(stat.sync_state, ExternalStatus.STATUS_ERROR) - # check_dir should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_sync_dir_exist_no_git_info(self): - """Test that a non-existent git repo returns an unknown status - """ - stat = ExternalStatus() - # Now we over-ride the _git_remote_verbose method on the repo to return - # a known value without requiring access to git. - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._tag = 'tag1' - self._repo._git_current_hash = self._git_current_hash('') - self._repo._git_revparse_commit = self._git_revparse_commit( - 'tag1', 1, '') - self._repo._check_sync(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.UNKNOWN) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - # ------------------------------------------------------------------------ - # - # Tests where version in configuration file is not a valid reference - # - # ------------------------------------------------------------------------ - - def test_sync_invalid_reference(self): - """Test that an invalid reference returns out-of-sync - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._tag = 'tag1' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = self._git_revparse_commit( - 'tag1', 1, '') - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.MODEL_MODIFIED) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - # ---------------------------------------------------------------- - # - # Tests where external description specifies a tag - # - # ---------------------------------------------------------------- - def test_sync_tag_on_same_hash(self): - """Test expect tag on same hash --> status ok - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._tag = 'tag1' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = self._git_revparse_commit( - 'tag1', 0, 'abc123') - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.STATUS_OK) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_sync_tag_on_different_hash(self): - """Test expect tag on a different hash --> status modified - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._tag = 'tag1' - self._repo._git_current_hash = self._git_current_hash('def456') - self._repo._git_revparse_commit = self._git_revparse_commit( - 'tag1', 0, 'abc123') - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.MODEL_MODIFIED) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - # ---------------------------------------------------------------- - # - # Tests where external description specifies a hash - # - # ---------------------------------------------------------------- - def test_sync_hash_on_same_hash(self): - """Test expect hash on same hash --> status ok - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._tag = '' - self._repo._hash = 'abc' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = self._git_revparse_commit( - 'abc', 0, 'abc123') - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.STATUS_OK) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_sync_hash_on_different_hash(self): - """Test expect hash on a different hash --> status modified - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._tag = '' - self._repo._hash = 'abc' - self._repo._git_current_hash = self._git_current_hash('def456') - self._repo._git_revparse_commit = self._git_revparse_commit( - 'abc', 0, 'abc123') - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.MODEL_MODIFIED) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - # ---------------------------------------------------------------- - # - # Tests where external description specifies a branch - # - # ---------------------------------------------------------------- - def test_sync_branch_on_same_hash(self): - """Test expect branch on same hash --> status ok - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._branch = 'feature-2' - self._repo._tag = '' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = ( - self._git_revparse_commit('origin/feature-2', 0, 'abc123')) - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.STATUS_OK) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_sync_branch_on_diff_hash(self): - """Test expect branch on diff hash --> status modified - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._branch = 'feature-2' - self._repo._tag = '' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = ( - self._git_revparse_commit('origin/feature-2', 0, 'def456')) - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.MODEL_MODIFIED) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_sync_branch_diff_remote(self): - """Test _determine_remote_name with a different remote - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._branch = 'feature-2' - self._repo._tag = '' - self._repo._url = '/path/to/other/repo' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = ( - self._git_revparse_commit('upstream/feature-2', 0, 'def456')) - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - # The test passes if _git_revparse_commit is called with the - # expected argument - - def test_sync_branch_diff_remote2(self): - """Test _determine_remote_name with a different remote - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._branch = 'feature-2' - self._repo._tag = '' - self._repo._url = '/path/to/local/repo2' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = ( - self._git_revparse_commit('other/feature-2', 0, 'def789')) - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - # The test passes if _git_revparse_commit is called with the - # expected argument - - def test_sync_branch_on_unknown_remote(self): - """Test expect branch, but remote is unknown --> status modified - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._branch = 'feature-2' - self._repo._tag = '' - self._repo._url = '/path/to/unknown/repo' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = ( - self._git_revparse_commit('unknown_remote/feature-2', 1, '')) - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.MODEL_MODIFIED) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_sync_branch_on_untracked_local(self): - """Test expect branch, on untracked branch in local repo --> status ok - - Setting the externals description to '.' indicates that the - user only wants to consider the current local repo state - without fetching from remotes. This is required to preserve - the current branch of a repository during an update. - - """ - stat = ExternalStatus() - self._repo._git_remote_verbose = self._git_remote_origin_upstream - self._repo._branch = 'feature3' - self._repo._tag = '' - self._repo._url = '.' - self._repo._git_current_hash = self._git_current_hash('abc123') - self._repo._git_revparse_commit = ( - self._git_revparse_commit('feature3', 0, 'abc123')) - self._repo._check_sync_logic(stat, self.TMP_FAKE_DIR) - self.assertEqual(stat.sync_state, ExternalStatus.STATUS_OK) - # check_sync should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - -class TestGitStatusPorcelain(unittest.TestCase): - """Test parsing of output from git status --porcelain=v1 -z - """ - # pylint: disable=C0103 - GIT_STATUS_PORCELAIN_V1_ALL = ( - r' D INSTALL\0MM Makefile\0M README.md\0R cmakelists.txt\0' - r'CMakeLists.txt\0D commit-message-template.txt\0A stuff.txt\0' - r'?? junk.txt') - - GIT_STATUS_PORCELAIN_CLEAN = r'' - - def test_porcelain_status_dirty(self): - """Verify that git status output is considered dirty when there are - listed files. - - """ - git_output = self.GIT_STATUS_PORCELAIN_V1_ALL - is_dirty = GitRepository._status_v1z_is_dirty(git_output) - self.assertTrue(is_dirty) - - def test_porcelain_status_clean(self): - """Verify that git status output is considered clean when there are no - listed files. - - """ - git_output = self.GIT_STATUS_PORCELAIN_CLEAN - is_dirty = GitRepository._status_v1z_is_dirty(git_output) - self.assertFalse(is_dirty) - - -class TestGitCreateRemoteName(unittest.TestCase): - """Test the create_remote_name method on the GitRepository class - """ - - def setUp(self): - """Common infrastructure for testing _create_remote_name - """ - self._rdata = {ExternalsDescription.PROTOCOL: 'git', - ExternalsDescription.REPO_URL: - 'empty', - ExternalsDescription.TAG: - 'very_useful_tag', - ExternalsDescription.BRANCH: EMPTY_STR, - ExternalsDescription.HASH: EMPTY_STR, } - self._repo = GitRepository('test', self._rdata) - - def test_remote_git_proto(self): - """Test remote with git protocol - """ - self._repo._url = 'git@git.github.com:very_nice_org/useful_repo' - remote_name = self._repo._create_remote_name() - self.assertEqual(remote_name, 'very_nice_org_useful_repo') - - def test_remote_https_proto(self): - """Test remote with git protocol - """ - self._repo._url = 'https://www.github.com/very_nice_org/useful_repo' - remote_name = self._repo._create_remote_name() - self.assertEqual(remote_name, 'very_nice_org_useful_repo') - - def test_remote_local_abs(self): - """Test remote with git protocol - """ - self._repo._url = '/path/to/local/repositories/useful_repo' - remote_name = self._repo._create_remote_name() - self.assertEqual(remote_name, 'repositories_useful_repo') - - def test_remote_local_rel(self): - """Test remote with git protocol - """ - os.environ['TEST_VAR'] = '/my/path/to/repos' - self._repo._url = '${TEST_VAR}/../../useful_repo' - remote_name = self._repo._create_remote_name() - self.assertEqual(remote_name, 'path_useful_repo') - del os.environ['TEST_VAR'] - - -class TestVerifyTag(unittest.TestCase): - """Test logic verifying that a tag exists and is unique - - """ - - def setUp(self): - """Setup reusable git repository object - """ - self._name = 'component' - rdata = {ExternalsDescription.PROTOCOL: 'git', - ExternalsDescription.REPO_URL: - '/path/to/local/repo', - ExternalsDescription.TAG: 'tag1', - } - - data = {self._name: - { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: 'tmp', - ExternalsDescription.EXTERNALS: EMPTY_STR, - ExternalsDescription.REPO: rdata, - }, - } - - model = ExternalsDescriptionDict(data) - repo = model[self._name][ExternalsDescription.REPO] - self._repo = GitRepository('test', repo) - - @staticmethod - def _shell_true(url, remote=None): - _ = url - _ = remote - return 0 - - @staticmethod - def _shell_false(url, remote=None): - _ = url - _ = remote - return 1 - - @staticmethod - def _mock_function_true(ref): - _ = ref - return (TestValidRef._shell_true, '97ebc0e0deadc0de') - - @staticmethod - def _mock_function_false(ref): - _ = ref - return (TestValidRef._shell_false, '97ebc0e0deadc0de') - - def test_tag_not_tag_branch_commit(self): - """Verify a non-tag returns false - """ - self._repo._git_showref_tag = self._shell_false - self._repo._git_showref_branch = self._shell_false - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = self._mock_function_false - self._repo._tag = 'something' - remote_name = 'origin' - received, _ = self._repo._is_unique_tag(self._repo._tag, remote_name) - self.assertFalse(received) - - def test_tag_not_tag(self): - """Verify a non-tag, untracked remote returns false - """ - self._repo._git_showref_tag = self._shell_false - self._repo._git_showref_branch = self._shell_true - self._repo._git_lsremote_branch = self._shell_true - self._repo._git_revparse_commit = self._mock_function_false - self._repo._tag = 'tag1' - remote_name = 'origin' - received, _ = self._repo._is_unique_tag(self._repo._tag, remote_name) - self.assertFalse(received) - - def test_tag_indeterminant(self): - """Verify an indeterminant tag/branch returns false - """ - self._repo._git_showref_tag = self._shell_true - self._repo._git_showref_branch = self._shell_true - self._repo._git_lsremote_branch = self._shell_true - self._repo._git_revparse_commit = self._mock_function_true - self._repo._tag = 'something' - remote_name = 'origin' - received, _ = self._repo._is_unique_tag(self._repo._tag, remote_name) - self.assertFalse(received) - - def test_tag_is_unique(self): - """Verify a unique tag match returns true - """ - self._repo._git_showref_tag = self._shell_true - self._repo._git_showref_branch = self._shell_false - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = self._mock_function_true - self._repo._tag = 'tag1' - remote_name = 'origin' - received, _ = self._repo._is_unique_tag(self._repo._tag, remote_name) - self.assertTrue(received) - - def test_tag_is_not_hash(self): - """Verify a commit hash is not classified as a tag - """ - self._repo._git_showref_tag = self._shell_false - self._repo._git_showref_branch = self._shell_false - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = self._mock_function_true - self._repo._tag = '97ebc0e0' - remote_name = 'origin' - received, _ = self._repo._is_unique_tag(self._repo._tag, remote_name) - self.assertFalse(received) - - def test_hash_is_commit(self): - """Verify a commit hash is not classified as a tag - """ - self._repo._git_showref_tag = self._shell_false - self._repo._git_showref_branch = self._shell_false - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = self._mock_function_true - self._repo._tag = '97ebc0e0' - remote_name = 'origin' - received, _ = self._repo._is_unique_tag(self._repo._tag, remote_name) - self.assertFalse(received) - - -class TestValidRef(unittest.TestCase): - """Test logic verifying that a reference is a valid tag, branch or sha1 - - """ - - def setUp(self): - """Setup reusable git repository object - """ - self._name = 'component' - rdata = {ExternalsDescription.PROTOCOL: 'git', - ExternalsDescription.REPO_URL: - '/path/to/local/repo', - ExternalsDescription.TAG: 'tag1', - } - - data = {self._name: - { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: 'tmp', - ExternalsDescription.EXTERNALS: EMPTY_STR, - ExternalsDescription.REPO: rdata, - }, - } - - model = ExternalsDescriptionDict(data) - repo = model[self._name][ExternalsDescription.REPO] - self._repo = GitRepository('test', repo) - - @staticmethod - def _shell_true(url, remote=None): - _ = url - _ = remote - return 0 - - @staticmethod - def _shell_false(url, remote=None): - _ = url - _ = remote - return 1 - - @staticmethod - def _mock_function_false(ref): - _ = ref - return (TestValidRef._shell_false, '') - - @staticmethod - def _mock_function_true(ref): - _ = ref - return (TestValidRef._shell_true, '') - - def test_valid_ref_is_invalid(self): - """Verify an invalid reference raises an exception - """ - self._repo._git_showref_tag = self._shell_false - self._repo._git_showref_branch = self._shell_false - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = self._mock_function_false - self._repo._tag = 'invalid_ref' - with self.assertRaises(RuntimeError): - self._repo._check_for_valid_ref(self._repo._tag) - - def test_valid_tag(self): - """Verify a valid tag return true - """ - self._repo._git_showref_tag = self._shell_true - self._repo._git_showref_branch = self._shell_false - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = self._mock_function_true - self._repo._tag = 'tag1' - received = self._repo._check_for_valid_ref(self._repo._tag) - self.assertTrue(received) - - def test_valid_branch(self): - """Verify a valid tag return true - """ - self._repo._git_showref_tag = self._shell_false - self._repo._git_showref_branch = self._shell_true - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = self._mock_function_true - self._repo._tag = 'tag1' - received = self._repo._check_for_valid_ref(self._repo._tag) - self.assertTrue(received) - - def test_valid_hash(self): - """Verify a valid hash return true - """ - def _mock_revparse_commit(ref): - _ = ref - return (0, '56cc0b539426eb26810af9e') - - self._repo._git_showref_tag = self._shell_false - self._repo._git_showref_branch = self._shell_false - self._repo._git_lsremote_branch = self._shell_false - self._repo._git_revparse_commit = _mock_revparse_commit - self._repo._hash = '56cc0b5394' - received = self._repo._check_for_valid_ref(self._repo._hash) - self.assertTrue(received) - - -if __name__ == '__main__': - unittest.main() diff --git a/manage_externals/test/test_unit_repository_svn.py b/manage_externals/test/test_unit_repository_svn.py deleted file mode 100644 index 7ff31c421..000000000 --- a/manage_externals/test/test_unit_repository_svn.py +++ /dev/null @@ -1,501 +0,0 @@ -#!/usr/bin/env python - -"""Unit test driver for checkout_externals - -Note: this script assume the path to the checkout_externals.py module is -already in the python path. - -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import unittest - -from manic.repository_svn import SvnRepository -from manic.externals_status import ExternalStatus -from manic.externals_description import ExternalsDescription -from manic.externals_description import ExternalsDescriptionDict -from manic.global_constants import EMPTY_STR - -# pylint: disable=W0212 - -SVN_INFO_MOSART = """Path: components/mosart -Working Copy Root Path: /Users/andreb/projects/ncar/git-conversion/clm-dev-experimental/components/mosart -URL: https://svn-ccsm-models.cgd.ucar.edu/mosart/trunk_tags/mosart1_0_26 -Relative URL: ^/mosart/trunk_tags/mosart1_0_26 -Repository Root: https://svn-ccsm-models.cgd.ucar.edu -Repository UUID: fe37f545-8307-0410-aea5-b40df96820b5 -Revision: 86711 -Node Kind: directory -Schedule: normal -Last Changed Author: erik -Last Changed Rev: 86031 -Last Changed Date: 2017-07-07 12:28:10 -0600 (Fri, 07 Jul 2017) -""" -SVN_INFO_CISM = """ -Path: components/cism -Working Copy Root Path: /Users/andreb/projects/ncar/git-conversion/clm-dev-experimental/components/cism -URL: https://svn-ccsm-models.cgd.ucar.edu/glc/trunk_tags/cism2_1_37 -Relative URL: ^/glc/trunk_tags/cism2_1_37 -Repository Root: https://svn-ccsm-models.cgd.ucar.edu -Repository UUID: fe37f545-8307-0410-aea5-b40df96820b5 -Revision: 86711 -Node Kind: directory -Schedule: normal -Last Changed Author: sacks -Last Changed Rev: 85704 -Last Changed Date: 2017-06-15 05:59:28 -0600 (Thu, 15 Jun 2017) -""" - - -class TestSvnRepositoryCheckURL(unittest.TestCase): - """Verify that the svn_check_url function is working as expected. - """ - - def setUp(self): - """Setup reusable svn repository object - """ - self._name = 'component' - rdata = {ExternalsDescription.PROTOCOL: 'svn', - ExternalsDescription.REPO_URL: - 'https://svn-ccsm-models.cgd.ucar.edu/', - ExternalsDescription.TAG: - 'mosart/trunk_tags/mosart1_0_26', - } - - data = {self._name: - { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: 'junk', - ExternalsDescription.EXTERNALS: '', - ExternalsDescription.REPO: rdata, - }, - } - - model = ExternalsDescriptionDict(data) - repo = model[self._name][ExternalsDescription.REPO] - self._repo = SvnRepository('test', repo) - - def test_check_url_same(self): - """Test that we correctly identify that the correct URL. - """ - svn_output = SVN_INFO_MOSART - expected_url = self._repo.url() - result, current_version = \ - self._repo._check_url(svn_output, expected_url) - self.assertEqual(result, ExternalStatus.STATUS_OK) - self.assertEqual(current_version, 'mosart/trunk_tags/mosart1_0_26') - - def test_check_url_different(self): - """Test that we correctly reject an incorrect URL. - """ - svn_output = SVN_INFO_CISM - expected_url = self._repo.url() - result, current_version = \ - self._repo._check_url(svn_output, expected_url) - self.assertEqual(result, ExternalStatus.MODEL_MODIFIED) - self.assertEqual(current_version, 'glc/trunk_tags/cism2_1_37') - - def test_check_url_none(self): - """Test that we can handle an empty string for output, e.g. not an svn - repo. - - """ - svn_output = EMPTY_STR - expected_url = self._repo.url() - result, current_version = \ - self._repo._check_url(svn_output, expected_url) - self.assertEqual(result, ExternalStatus.UNKNOWN) - self.assertEqual(current_version, '') - - -class TestSvnRepositoryCheckSync(unittest.TestCase): - """Test whether the SvnRepository svn_check_sync functionality is - correct. - - """ - - def setUp(self): - """Setup reusable svn repository object - """ - self._name = "component" - rdata = {ExternalsDescription.PROTOCOL: 'svn', - ExternalsDescription.REPO_URL: - 'https://svn-ccsm-models.cgd.ucar.edu/', - ExternalsDescription.TAG: - 'mosart/trunk_tags/mosart1_0_26', - } - - data = {self._name: - { - ExternalsDescription.REQUIRED: False, - ExternalsDescription.PATH: 'junk', - ExternalsDescription.EXTERNALS: EMPTY_STR, - ExternalsDescription.REPO: rdata, - }, - } - - model = ExternalsDescriptionDict(data) - repo = model[self._name][ExternalsDescription.REPO] - self._repo = SvnRepository('test', repo) - - @staticmethod - def _svn_info_empty(*_): - """Return an empty info string. Simulates svn info failing. - """ - return '' - - @staticmethod - def _svn_info_synced(*_): - """Return an info sting that is synced with the setUp data - """ - return SVN_INFO_MOSART - - @staticmethod - def _svn_info_modified(*_): - """Return and info string that is modified from the setUp data - """ - return SVN_INFO_CISM - - def test_repo_dir_not_exist(self): - """Test that a directory that doesn't exist returns an error status - - Note: the Repository classes should be prevented from ever - working on an empty directory by the _Source object. - - """ - stat = ExternalStatus() - self._repo._check_sync(stat, 'junk') - self.assertEqual(stat.sync_state, ExternalStatus.STATUS_ERROR) - # check_dir should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_repo_dir_exist_no_svn_info(self): - """Test that an empty info string returns an unknown status - """ - stat = ExternalStatus() - # Now we over-ride the _svn_info method on the repo to return - # a known value without requiring access to svn. - self._repo._svn_info = self._svn_info_empty - self._repo._check_sync(stat, '.') - self.assertEqual(stat.sync_state, ExternalStatus.UNKNOWN) - # check_dir should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_repo_dir_synced(self): - """Test that a valid info string that is synced to the repo in the - externals description returns an ok status. - - """ - stat = ExternalStatus() - # Now we over-ride the _svn_info method on the repo to return - # a known value without requiring access to svn. - self._repo._svn_info = self._svn_info_synced - self._repo._check_sync(stat, '.') - self.assertEqual(stat.sync_state, ExternalStatus.STATUS_OK) - # check_dir should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - def test_repo_dir_modified(self): - """Test that a valid svn info string that is out of sync with the - externals description returns a modified status. - - """ - stat = ExternalStatus() - # Now we over-ride the _svn_info method on the repo to return - # a known value without requiring access to svn. - self._repo._svn_info = self._svn_info_modified - self._repo._check_sync(stat, '.') - self.assertEqual(stat.sync_state, ExternalStatus.MODEL_MODIFIED) - # check_dir should only modify the sync_state, not clean_state - self.assertEqual(stat.clean_state, ExternalStatus.DEFAULT) - - -class TestSVNStatusXML(unittest.TestCase): - """Test parsing of svn status xml output - """ - SVN_STATUS_XML_DIRTY_ALL = ''' - - - - - -sacks -2017-06-15T11:59:00.355419Z - - - - - - -sacks -2013-02-07T16:17:56.412878Z - - - - - - -sacks -2017-05-01T16:48:27.893741Z - - - - - - - - - - - - - - - - -''' - - SVN_STATUS_XML_DIRTY_MISSING = ''' - - - - - -sacks -2017-06-15T11:59:00.355419Z - - - - - - - - -''' - - SVN_STATUS_XML_DIRTY_MODIFIED = ''' - - - - - -sacks -2013-02-07T16:17:56.412878Z - - - - - - - - -''' - - SVN_STATUS_XML_DIRTY_DELETED = ''' - - - - - -sacks -2017-05-01T16:48:27.893741Z - - - - - - - - -''' - - SVN_STATUS_XML_DIRTY_UNVERSION = ''' - - - - - - - - - - - -''' - - SVN_STATUS_XML_DIRTY_ADDED = ''' - - - - - - - - - - - -''' - - SVN_STATUS_XML_CLEAN = ''' - - - - - - - - - - - -''' - - def test_xml_status_dirty_missing(self): - """Verify that svn status output is consindered dirty when there is a - missing file. - - """ - svn_output = self.SVN_STATUS_XML_DIRTY_MISSING - is_dirty = SvnRepository.xml_status_is_dirty( - svn_output) - self.assertTrue(is_dirty) - - def test_xml_status_dirty_modified(self): - """Verify that svn status output is consindered dirty when there is a - modified file. - """ - svn_output = self.SVN_STATUS_XML_DIRTY_MODIFIED - is_dirty = SvnRepository.xml_status_is_dirty( - svn_output) - self.assertTrue(is_dirty) - - def test_xml_status_dirty_deleted(self): - """Verify that svn status output is consindered dirty when there is a - deleted file. - """ - svn_output = self.SVN_STATUS_XML_DIRTY_DELETED - is_dirty = SvnRepository.xml_status_is_dirty( - svn_output) - self.assertTrue(is_dirty) - - def test_xml_status_dirty_unversion(self): - """Verify that svn status output ignores unversioned files when making - the clean/dirty decision. - - """ - svn_output = self.SVN_STATUS_XML_DIRTY_UNVERSION - is_dirty = SvnRepository.xml_status_is_dirty( - svn_output) - self.assertFalse(is_dirty) - - def test_xml_status_dirty_added(self): - """Verify that svn status output is consindered dirty when there is a - added file. - """ - svn_output = self.SVN_STATUS_XML_DIRTY_ADDED - is_dirty = SvnRepository.xml_status_is_dirty( - svn_output) - self.assertTrue(is_dirty) - - def test_xml_status_dirty_all(self): - """Verify that svn status output is consindered dirty when there are - multiple dirty files.. - - """ - svn_output = self.SVN_STATUS_XML_DIRTY_ALL - is_dirty = SvnRepository.xml_status_is_dirty( - svn_output) - self.assertTrue(is_dirty) - - def test_xml_status_dirty_clean(self): - """Verify that svn status output is consindered clean when there are - no 'dirty' files. This means accepting untracked and externals. - - """ - svn_output = self.SVN_STATUS_XML_CLEAN - is_dirty = SvnRepository.xml_status_is_dirty( - svn_output) - self.assertFalse(is_dirty) - - -if __name__ == '__main__': - unittest.main() diff --git a/manage_externals/test/test_unit_utils.py b/manage_externals/test/test_unit_utils.py deleted file mode 100644 index c994e58eb..000000000 --- a/manage_externals/test/test_unit_utils.py +++ /dev/null @@ -1,350 +0,0 @@ -#!/usr/bin/env python - -"""Unit test driver for checkout_externals - -Note: this script assume the path to the checkout_externals.py module is -already in the python path. - -""" - -from __future__ import absolute_import -from __future__ import unicode_literals -from __future__ import print_function - -import os -import unittest - -from manic.utils import last_n_lines, indent_string -from manic.utils import str_to_bool, execute_subprocess -from manic.utils import is_remote_url, split_remote_url, expand_local_url - - -class TestExecuteSubprocess(unittest.TestCase): - """Test the application logic of execute_subprocess wrapper - """ - - def test_exesub_return_stat_err(self): - """Test that execute_subprocess returns a status code when caller - requests and the executed subprocess fails. - - """ - cmd = ['false'] - status = execute_subprocess(cmd, status_to_caller=True) - self.assertEqual(status, 1) - - def test_exesub_return_stat_ok(self): - """Test that execute_subprocess returns a status code when caller - requests and the executed subprocess succeeds. - - """ - cmd = ['true'] - status = execute_subprocess(cmd, status_to_caller=True) - self.assertEqual(status, 0) - - def test_exesub_except_stat_err(self): - """Test that execute_subprocess raises an exception on error when - caller doesn't request return code - - """ - cmd = ['false'] - with self.assertRaises(RuntimeError): - execute_subprocess(cmd, status_to_caller=False) - - -class TestLastNLines(unittest.TestCase): - """Test the last_n_lines function. - - """ - - def test_last_n_lines_short(self): - """With a message with <= n lines, result of last_n_lines should - just be the original message. - - """ - mystr = """three -line -string -""" - - mystr_truncated = last_n_lines( - mystr, 3, truncation_message='[truncated]') - self.assertEqual(mystr, mystr_truncated) - - def test_last_n_lines_long(self): - """With a message with > n lines, result of last_n_lines should - be a truncated string. - - """ - mystr = """a -big -five -line -string -""" - expected = """[truncated] -five -line -string -""" - - mystr_truncated = last_n_lines( - mystr, 3, truncation_message='[truncated]') - self.assertEqual(expected, mystr_truncated) - - -class TestIndentStr(unittest.TestCase): - """Test the indent_string function. - - """ - - def test_indent_string_singleline(self): - """Test the indent_string function with a single-line string - - """ - mystr = 'foo' - result = indent_string(mystr, 4) - expected = ' foo' - self.assertEqual(expected, result) - - def test_indent_string_multiline(self): - """Test the indent_string function with a multi-line string - - """ - mystr = """hello -hi -goodbye -""" - result = indent_string(mystr, 2) - expected = """ hello - hi - goodbye -""" - self.assertEqual(expected, result) - - -class TestStrToBool(unittest.TestCase): - """Test the string to boolean conversion routine. - - """ - - def test_case_insensitive_true(self): - """Verify that case insensitive variants of 'true' returns the True - boolean. - - """ - values = ['true', 'TRUE', 'True', 'tRuE', 't', 'T', ] - for value in values: - received = str_to_bool(value) - self.assertTrue(received) - - def test_case_insensitive_false(self): - """Verify that case insensitive variants of 'false' returns the False - boolean. - - """ - values = ['false', 'FALSE', 'False', 'fAlSe', 'f', 'F', ] - for value in values: - received = str_to_bool(value) - self.assertFalse(received) - - def test_invalid_str_error(self): - """Verify that a non-true/false string generates a runtime error. - """ - values = ['not_true_or_false', 'A', '1', '0', - 'false_is_not_true', 'true_is_not_false'] - for value in values: - with self.assertRaises(RuntimeError): - str_to_bool(value) - - -class TestIsRemoteURL(unittest.TestCase): - """Crude url checking to determine if a url is local or remote. - - """ - - def test_url_remote_git(self): - """verify that a remote git url is identified. - """ - url = 'git@somewhere' - is_remote = is_remote_url(url) - self.assertTrue(is_remote) - - def test_url_remote_ssh(self): - """verify that a remote ssh url is identified. - """ - url = 'ssh://user@somewhere' - is_remote = is_remote_url(url) - self.assertTrue(is_remote) - - def test_url_remote_http(self): - """verify that a remote http url is identified. - """ - url = 'http://somewhere' - is_remote = is_remote_url(url) - self.assertTrue(is_remote) - - def test_url_remote_https(self): - """verify that a remote https url is identified. - """ - url = 'https://somewhere' - is_remote = is_remote_url(url) - self.assertTrue(is_remote) - - def test_url_local_user(self): - """verify that a local path with '~/path/to/repo' gets rejected - - """ - url = '~/path/to/repo' - is_remote = is_remote_url(url) - self.assertFalse(is_remote) - - def test_url_local_var_curly(self): - """verify that a local path with env var '${HOME}' gets rejected - """ - url = '${HOME}/path/to/repo' - is_remote = is_remote_url(url) - self.assertFalse(is_remote) - - def test_url_local_var(self): - """verify that a local path with an env var '$HOME' gets rejected - """ - url = '$HOME/path/to/repo' - is_remote = is_remote_url(url) - self.assertFalse(is_remote) - - def test_url_local_abs(self): - """verify that a local abs path gets rejected - """ - url = '/path/to/repo' - is_remote = is_remote_url(url) - self.assertFalse(is_remote) - - def test_url_local_rel(self): - """verify that a local relative path gets rejected - """ - url = '../../path/to/repo' - is_remote = is_remote_url(url) - self.assertFalse(is_remote) - - -class TestSplitRemoteURL(unittest.TestCase): - """Crude url checking to determine if a url is local or remote. - - """ - - def test_url_remote_git(self): - """verify that a remote git url is identified. - """ - url = 'git@somewhere.com:org/repo' - received = split_remote_url(url) - self.assertEqual(received, "org/repo") - - def test_url_remote_ssh(self): - """verify that a remote ssh url is identified. - """ - url = 'ssh://user@somewhere.com/path/to/repo' - received = split_remote_url(url) - self.assertEqual(received, 'somewhere.com/path/to/repo') - - def test_url_remote_http(self): - """verify that a remote http url is identified. - """ - url = 'http://somewhere.org/path/to/repo' - received = split_remote_url(url) - self.assertEqual(received, 'somewhere.org/path/to/repo') - - def test_url_remote_https(self): - """verify that a remote http url is identified. - """ - url = 'http://somewhere.gov/path/to/repo' - received = split_remote_url(url) - self.assertEqual(received, 'somewhere.gov/path/to/repo') - - def test_url_local_url_unchanged(self): - """verify that a local path is unchanged - - """ - url = '/path/to/repo' - received = split_remote_url(url) - self.assertEqual(received, url) - - -class TestExpandLocalURL(unittest.TestCase): - """Crude url checking to determine if a url is local or remote. - - Remote should be unmodified. - - Local, should perform user and variable expansion. - - """ - - def test_url_local_user1(self): - """verify that a local path with '~/path/to/repo' gets expanded to an - absolute path. - - NOTE(bja, 2017-11) we can't test for something like: - '~user/path/to/repo' because the user has to be in the local - machine password directory and we don't know a user name that - is valid on every system....? - - """ - field = 'test' - url = '~/path/to/repo' - received = expand_local_url(url, field) - print(received) - self.assertTrue(os.path.isabs(received)) - - def test_url_local_expand_curly(self): - """verify that a local path with '${HOME}' gets expanded to an absolute path. - """ - field = 'test' - url = '${HOME}/path/to/repo' - received = expand_local_url(url, field) - self.assertTrue(os.path.isabs(received)) - - def test_url_local_expand_var(self): - """verify that a local path with '$HOME' gets expanded to an absolute path. - """ - field = 'test' - url = '$HOME/path/to/repo' - received = expand_local_url(url, field) - self.assertTrue(os.path.isabs(received)) - - def test_url_local_env_missing(self): - """verify that a local path with env var that is missing gets left as-is - - """ - field = 'test' - url = '$TMP_VAR/path/to/repo' - received = expand_local_url(url, field) - print(received) - self.assertEqual(received, url) - - def test_url_local_expand_env(self): - """verify that a local path with another env var gets expanded to an - absolute path. - - """ - field = 'test' - os.environ['TMP_VAR'] = '/some/absolute' - url = '$TMP_VAR/path/to/repo' - received = expand_local_url(url, field) - del os.environ['TMP_VAR'] - print(received) - self.assertTrue(os.path.isabs(received)) - self.assertEqual(received, '/some/absolute/path/to/repo') - - def test_url_local_normalize_rel(self): - """verify that a local path with another env var gets expanded to an - absolute path. - - """ - field = 'test' - url = '/this/is/a/long/../path/to/a/repo' - received = expand_local_url(url, field) - print(received) - self.assertEqual(received, '/this/is/a/path/to/a/repo') - - -if __name__ == '__main__': - unittest.main() diff --git a/scripts/exgdas_atmos_nceppost.sh b/scripts/exgdas_atmos_nceppost.sh index 0faec53c6..31c90fb49 100755 --- a/scripts/exgdas_atmos_nceppost.sh +++ b/scripts/exgdas_atmos_nceppost.sh @@ -16,6 +16,8 @@ echo " Feb 18 - Meng - Removed legacy setting for generating grib1 data" echo " and reading sigio model outputs." echo " Aug 20 - Meng - Remove .ecf extentsion per EE2 review." echo " Sep 20 - Meng - Update clean up files per EE2 review." +echo " Mar 21 - Meng - Update POSTGRB2TBL default setting." +echo " Oct 21 - Meng - Remove jlogfile for wcoss2 transition." echo "-----------------------------------------------------" ##################################################################### @@ -24,7 +26,7 @@ set -x cd $DATA msg="HAS BEGUN on `hostname`" -postmsg "$jlogfile" "$msg" +postmsg "$msg" export POSTGPSH=${POSTGPSH:-$USHgfs/gfs_nceppost.sh} export GFSDOWNSH=${GFSDOWNSH:-$USHgfs/fv3gfs_downstream_nems.sh} @@ -221,7 +223,7 @@ do set -x msg="Starting post for fhr=$fhr" - postmsg "$jlogfile" "$msg" + postmsg "$msg" ############################### # Put restart files into /nwges diff --git a/scripts/exgfs_atmos_nceppost.sh b/scripts/exgfs_atmos_nceppost.sh index 199c1dc1f..2168f5624 100755 --- a/scripts/exgfs_atmos_nceppost.sh +++ b/scripts/exgfs_atmos_nceppost.sh @@ -25,6 +25,11 @@ echo " Feb 18 - Meng - Removed legacy setting for generating grib1 data" echo " and reading sigio model outputs." echo " Aug 20 - Meng - Remove .ecf extentsion per EE2 review." echo " Sep 20 - Meng - Update clean up files per EE2 review." +echo " Dec 20 - Meng - Add alert for special data file." +echo " Mar 21 - Meng - Update POSTGRB2TBL default setting." +echo " Jun 21 - Mao - Instead of err_chk, catch err and print out" +echo " WAFS failure warnings to avoid job crashing" +echo " Oct 21 - Meng - Remove jlogfile for wcoss2 transition." echo "-----------------------------------------------------" ##################################################################### @@ -34,7 +39,7 @@ cd $DATA # specify model output format type: 4 for nemsio, 3 for sigio msg="HAS BEGUN on `hostname`" -postmsg "$jlogfile" "$msg" +postmsg "$msg" export POSTGPSH=${POSTGPSH:-$USHgfs/gfs_nceppost.sh} export GFSDOWNSH=${GFSDOWNSH:-$USHgfs/fv3gfs_downstream_nems.sh} @@ -201,27 +206,32 @@ then export PGIOUT=wafsifile $POSTGPSH - export err=$?; err_chk + export err=$? - # WAFS package doesn't process this part. - # Need to be saved for WAFS U/V/T verification, - # resolution higher than WAFS 1.25 deg for future compatibility - wafsgrid="latlon 0:1440:0.25 90:721:-0.25" - $WGRIB2 $PGBOUT -set_grib_type same -new_grid_winds earth \ + if [ $err -ne 0 ] ; then + echo " *** GFS POST WARNING: WAFS output failed for analysis, err=$err" + else + + # WAFS package doesn't process this part. + # Need to be saved for WAFS U/V/T verification, + # resolution higher than WAFS 1.25 deg for future compatibility + wafsgrid="latlon 0:1440:0.25 90:721:-0.25" + $WGRIB2 $PGBOUT -set_grib_type same -new_grid_winds earth \ -new_grid_interpolation bilinear -set_bitmap 1 \ -new_grid $wafsgrid ${PGBOUT}.tmp - if test $SENDCOM = "YES" - then + if test $SENDCOM = "YES" + then cp ${PGBOUT}.tmp $COMOUT/${PREFIX}wafs.0p25.anl $WGRIB2 -s ${PGBOUT}.tmp > $COMOUT/${PREFIX}wafs.0p25.anl.idx - if [ $SENDDBN = YES ]; then - $DBNROOT/bin/dbn_alert MODEL GFS_WAFS_GB2 $job $COMOUT/${PREFIX}wafs.0p25.anl - $DBNROOT/bin/dbn_alert MODEL GFS_WAFS_GB2__WIDX $job $COMOUT/${PREFIX}wafs.0p25.anl.idx - fi +# if [ $SENDDBN = YES ]; then +# $DBNROOT/bin/dbn_alert MODEL GFS_WAFS_GB2 $job $COMOUT/${PREFIX}wafs.0p25.anl +# $DBNROOT/bin/dbn_alert MODEL GFS_WAFS_GB2__WIDX $job $COMOUT/${PREFIX}wafs.0p25.anl.idx +# fi + fi + rm $PGBOUT ${PGBOUT}.tmp fi - rm $PGBOUT ${PGBOUT}.tmp fi fi ########################## WAFS U/V/T analysis end ########################## @@ -273,7 +283,7 @@ do set -x msg="Starting post for fhr=$fhr" - postmsg "$jlogfile" "$msg" + postmsg "$msg" ############################### # Put restart files into /nwges @@ -487,6 +497,10 @@ do mv goesfile $COMOUT/${SPECIALFL}f$fhr mv goesifile $COMOUT/${SPECIALFLIDX}f$fhr + if [ $SENDDBN = YES ]; then + $DBNROOT/bin/dbn_alert MODEL GFS_SPECIAL_GB2 $job $COMOUT/${SPECIALFL}f$fhr + fi + fi fi # end of satellite processing @@ -523,16 +537,20 @@ do $POSTGPSH fi - export err=$?; err_chk - - if [ -e $PGBOUT ] - then - if test $SENDCOM = "YES" - then - cp $PGBOUT $COMOUT/${PREFIX}wafs.grb2f$fhr - cp $PGIOUT $COMOUT/${PREFIX}wafs.grb2if$fhr - fi - fi + export err=$? + + if [ $err -ne 0 ] ; then + echo " *** GFS POST WARNING: WAFS output failed for f${fhr}, err=$err" + else + if [ -e $PGBOUT ] + then + if test $SENDCOM = "YES" + then + cp $PGBOUT $COMOUT/${PREFIX}wafs.grb2f$fhr + cp $PGIOUT $COMOUT/${PREFIX}wafs.grb2if$fhr + fi + fi + fi fi [[ -f wafsfile ]] && rm wafsfile ; [[ -f wafsifile ]] && rm wafsifile fi diff --git a/scripts/exglobal_atmos_pmgr.sh b/scripts/exglobal_atmos_pmgr.sh index 58784241c..a9bcb4251 100755 --- a/scripts/exglobal_atmos_pmgr.sh +++ b/scripts/exglobal_atmos_pmgr.sh @@ -67,7 +67,7 @@ do sleep 10 icnt=$((icnt + 1)) - if [ $icnt -ge 1001 ] + if [ $icnt -ge 1080 ] then msg="ABORTING after 3 hours of waiting for ${RUN} FCST hours $postjobs." err_exit $msg diff --git a/sorc/post_gtg.fd b/sorc/post_gtg.fd new file mode 160000 index 000000000..b7e077699 --- /dev/null +++ b/sorc/post_gtg.fd @@ -0,0 +1 @@ +Subproject commit b7e077699ca1054104cc93342a038941346bef04 diff --git a/ush/fv3gfs_downstream_nems.sh b/ush/fv3gfs_downstream_nems.sh index b2f625de3..149b02021 100755 --- a/ush/fv3gfs_downstream_nems.sh +++ b/ush/fv3gfs_downstream_nems.sh @@ -99,7 +99,7 @@ fi #----------------------------------------------------- #----------------------------------------------------- -if [ $machine = WCOSS -o $machine = WCOSS_C -o $machine = WCOSS_DELL_P3 -o $machine = HERA -o $machine = ORION -o $machine = JET -o $machine = S4 ]; then +if [ $machine = WCOSS -o $machine = WCOSS_C -o $machine = WCOSS_DELL_P3 -o $machine = HERA -o $machine = ORION -o $machine = JET -o $machine = S4 -o $machine = WCOSS2 ]; then #----------------------------------------------------- #----------------------------------------------------- export nset=1 @@ -171,7 +171,7 @@ date export MP_PGMMODEL=mpmd export MP_CMDFILE=$DATA/poescript launcher=${APRUN_DWN:-"aprun -j 1 -n 24 -N 24 -d 1 cfp"} - if [ $machine = WCOSS_C -o $machine = WCOSS_DELL_P3 ] ; then + if [ $machine = WCOSS_C -o $machine = WCOSS_DELL_P3 -o $machine = WCOSS2 ] ; then $launcher $MP_CMDFILE elif [ $machine = HERA -o $machine = ORION -o $machine = JET -o $machine = S4 ] ; then if [ -s $DATA/poescript_srun ]; then rm -f $DATA/poescript_srun; fi diff --git a/ush/gfs_nceppost.sh b/ush/gfs_nceppost.sh index 975bdc6a6..e99e9d202 100755 --- a/ush/gfs_nceppost.sh +++ b/ush/gfs_nceppost.sh @@ -23,6 +23,8 @@ # Remove legacy setting for reading non-nemsio model output # and generating grib1 data # 2019-06-02 Wen Meng: Remove the links of gfs fix files. +# 2021-06-11 Yali Mao: Instead of err_chk, 'exit $err' for wafsfile +# if POSTGPEXEC fails # # Usage: global_postgp.sh SIGINP FLXINP FLXIOUT PGBOUT PGIOUT IGEN # @@ -351,6 +353,12 @@ ${APRUN:-mpirun.lsf} $POSTGPEXEC < itag > outpost_gfs_${VDATE}_${CTL} export ERR=$? export err=$ERR + +if [ $err -ne 0 ] ; then + if [ $PGBOUT = "wafsfile" ] ; then + exit $err + fi +fi $ERRSCRIPT||exit 2 if [ $FILTER = "1" ] ; then From 98f7acdd9f027dde73d3af9c88bec23ad2b76215 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 5 Jan 2022 14:28:46 -0500 Subject: [PATCH 026/107] Disable recursive checkout on gtg code (#427) --- .gitmodules | 1 + 1 file changed, 1 insertion(+) diff --git a/.gitmodules b/.gitmodules index ab0321a73..2c09fa095 100644 --- a/.gitmodules +++ b/.gitmodules @@ -1,3 +1,4 @@ [submodule "sorc/post_gtg.fd"] path = sorc/post_gtg.fd url = https://github.com/NCAR/UPP_GTG + update = none From 8013830708f0dc10a0585ab558c45046d5fef9cd Mon Sep 17 00:00:00 2001 From: Rahul Mahajan Date: Mon, 10 Jan 2022 11:23:52 -0500 Subject: [PATCH 027/107] add option to build with GTG code or stubs (#430) * add option to build with GTG code or stubs * make IP optional depending on GTG option. * GTG code depends on a file that only resides in the gtg repo * fix a big boo-boo * move sorc/post_gtg.fd to sorc/ncep_post.fd/post_gtg.fd and update build path to GTG * correct the name of the submodule. fix mixed indents * move map_routines.F90 into the GTG src list --- .gitignore | 4 ++-- .gitmodules | 8 ++++---- CMakeLists.txt | 5 ++++- sorc/ncep_post.fd/CMakeLists.txt | 30 ++++++++++++++++++++--------- sorc/{ => ncep_post.fd}/post_gtg.fd | 0 5 files changed, 31 insertions(+), 16 deletions(-) rename sorc/{ => ncep_post.fd}/post_gtg.fd (100%) diff --git a/.gitignore b/.gitignore index 2dc827ccf..c9d3f6e12 100644 --- a/.gitignore +++ b/.gitignore @@ -9,8 +9,8 @@ # USE CAUTION WHEN ADDING WILDCARDS, as some builds use different filename # # conventions than others # ############################################################################## -build/ -install/ +build*/ +install*/ *.[aox] *.mod diff --git a/.gitmodules b/.gitmodules index 2c09fa095..742a824df 100644 --- a/.gitmodules +++ b/.gitmodules @@ -1,4 +1,4 @@ -[submodule "sorc/post_gtg.fd"] - path = sorc/post_gtg.fd - url = https://github.com/NCAR/UPP_GTG - update = none +[submodule "post_gtg.fd"] + path = sorc/ncep_post.fd/post_gtg.fd + url = https://github.com/NCAR/UPP_GTG + update = none diff --git a/CMakeLists.txt b/CMakeLists.txt index ff311e9d0..8100dd0d2 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -15,6 +15,7 @@ list(APPEND CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/cmake") option(OPENMP "use OpenMP threading" ON) option(BUILD_POSTEXEC "Build NCEPpost executable" ON) option(BUILD_WITH_WRFIO "Build NCEPpost with WRF-IO library" OFF) +option(BUILD_WITH_GTG "Build NCEPpost with NCAR/GTG" OFF) option(ENABLE_DOCS "Enable generation of doxygen-based documentation." OFF) if(NOT CMAKE_BUILD_TYPE MATCHES "^(Debug|Release|RelWithDebInfo|MinSizeRel)$") @@ -47,7 +48,9 @@ find_package(bacio REQUIRED) find_package(crtm REQUIRED) find_package(g2 REQUIRED) find_package(g2tmpl REQUIRED) -find_package(ip REQUIRED) +if(BUILD_WITH_GTG) + find_package(ip REQUIRED) +endif() if(BUILD_POSTEXEC) find_package(nemsio REQUIRED) diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index 8dc6fae37..5fba419fc 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -63,20 +63,12 @@ list(APPEND LIB_SRC GPVS.f grib2_module.f GRIDSPEC.f - gtg_algo.F90 - gtg_compute.F90 - gtg_config.F90 - gtg_ctlblk.F90 - gtg_filter.F90 - gtg_indices.F90 - gtg_smoothseams.F90 ICAOHEIGHT.f kinds_mod.F LFMFLD.f LFMFLD_GFS.f LOOKUP.f machine.f - map_routines.F90 MAPSSLP.f MASKS_mod.f MDL2AGL.f @@ -137,6 +129,22 @@ list(APPEND LIB_SRC xml_perl_data.f ZENSUN.f) +list(APPEND GTG_LIB_SRC + gtg_algo.F90 + gtg_compute.F90 + gtg_config.F90 + gtg_ctlblk.F90 + gtg_filter.F90 + gtg_indices.F90 + gtg_smoothseams.F90 + map_routines.F90) + +if(BUILD_WITH_GTG) + list(TRANSFORM GTG_LIB_SRC PREPEND post_gtg.fd/) +endif() + +list(APPEND LIB_SRC ${GTG_LIB_SRC}) + list(APPEND EXE_SRC ASSIGNNEMSIOVAR.f GETNEMSNDSCATTER.f @@ -200,10 +208,14 @@ target_link_libraries(${LIBNAME} PUBLIC crtm::crtm g2::g2_4 g2tmpl::g2tmpl - ip::ip_4 MPI::MPI_Fortran NetCDF::NetCDF_Fortran) +if(BUILD_WITH_GTG) + target_link_libraries(${LIBNAME} PUBLIC + ip::ip_4) +endif() + if(OpenMP_Fortran_FOUND) target_link_libraries(${LIBNAME} PUBLIC OpenMP::OpenMP_Fortran) endif() diff --git a/sorc/post_gtg.fd b/sorc/ncep_post.fd/post_gtg.fd similarity index 100% rename from sorc/post_gtg.fd rename to sorc/ncep_post.fd/post_gtg.fd From 89357d0f1f3af0d8dd87ff292e290cd30d47d884 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Thu, 13 Jan 2022 14:16:29 -0500 Subject: [PATCH 028/107] Add options in build script (#435) * Add command line arguments in compile_upp.sh for options, e.g. building with gtg code, building with wrfio stub code, turning on cmake verbose. * Remove legacy GNU make capability. --- modulefiles/post/v8.0.0-cray-intel | 60 ------------ modulefiles/post/v8.0.0-hera | 55 ----------- modulefiles/post/v8.0.0-jet | 52 ---------- modulefiles/post/v8.0.0-odin | 87 ----------------- modulefiles/post/v8.0.0-orion | 56 ----------- modulefiles/post/v8.0.0-stampede | 54 ----------- modulefiles/post/v8.0.0-wcoss | 45 --------- modulefiles/post/v8.0.0-wcoss_dell_p3 | 54 ----------- modulefiles/s4 | 0 modulefiles/upp/lib-cray-intel | 57 ----------- modulefiles/upp/lib-hera | 52 ---------- modulefiles/upp/lib-jet | 52 ---------- modulefiles/upp/lib-orion | 53 ----------- modulefiles/upp/lib-wcoss | 54 ----------- modulefiles/upp/lib-wcoss_dell_p3 | 53 ----------- sorc/build_ncep_post.sh | 132 -------------------------- tests/compile_upp.sh | 59 ++++++++++-- tests/detect_machine.sh | 2 + 18 files changed, 51 insertions(+), 926 deletions(-) delete mode 100644 modulefiles/post/v8.0.0-cray-intel delete mode 100644 modulefiles/post/v8.0.0-hera delete mode 100644 modulefiles/post/v8.0.0-jet delete mode 100644 modulefiles/post/v8.0.0-odin delete mode 100755 modulefiles/post/v8.0.0-orion delete mode 100644 modulefiles/post/v8.0.0-stampede delete mode 100644 modulefiles/post/v8.0.0-wcoss delete mode 100644 modulefiles/post/v8.0.0-wcoss_dell_p3 mode change 100644 => 100755 modulefiles/s4 delete mode 100755 modulefiles/upp/lib-cray-intel delete mode 100755 modulefiles/upp/lib-hera delete mode 100755 modulefiles/upp/lib-jet delete mode 100755 modulefiles/upp/lib-orion delete mode 100755 modulefiles/upp/lib-wcoss delete mode 100755 modulefiles/upp/lib-wcoss_dell_p3 delete mode 100755 sorc/build_ncep_post.sh diff --git a/modulefiles/post/v8.0.0-cray-intel b/modulefiles/post/v8.0.0-cray-intel deleted file mode 100644 index 529fb6c6b..000000000 --- a/modulefiles/post/v8.0.0-cray-intel +++ /dev/null @@ -1,60 +0,0 @@ -#%Module###################################################################### -############################################################# -## Lin.Gan@noaa.gov -## EMC -## post v7.0.0 - Branch based on current trunk as of 20151106 -## Luna Cray with Intel -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -module use -a /usrx/local/prod/modulefiles -module use -a /gpfs/hps/nco/ops/nwprod/lib/modulefiles -module load PrgEnv-intel -module rm intel -module load intel/18.1.163 -module rm NetCDF-intel-sandybridge/4.2 -module load craype-haswell -#module load craype/2.3.0 -module load cray-libsci/13.0.3 - -module load NetCDF-intel-sandybridge/4.7.4 -module load HDF5-parallel-intel-sandybridge/1.10.6 - -module load jasper-gnu-sandybridge/1.900.1 -module load png-gnu-sandybridge/1.2.49 -module load zlib-gnu-sandybridge/1.2.7 - -# Loading nceplibs modules -module load g2-intel/3.2.0 -module load g2tmpl-intel/1.6.0 -module load w3nco-intel/2.2.0 -module load bacio-intel/2.0.3 -module load gfsio-intel/1.1.0 -module load ip-intel/3.0.2 -module load sp-intel/2.0.3 -module load crtm-intel/2.3.0 -module load w3emc-intel/2.4.0 - -module load nemsio-intel/2.2.4 -module load sigio-intel/2.1.0 -module load sfcio-intel/1.0.0 -module load wrfio-intel/1.1.1 - -setenv myFC ftn -setenv OPENMP "-qopenmp" -setenv myFCFLAGS "-O2 -convert big_endian -traceback -g -fp-model source -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" - -setenv mySFC ftn - - - diff --git a/modulefiles/post/v8.0.0-hera b/modulefiles/post/v8.0.0-hera deleted file mode 100644 index 72b80bc9e..000000000 --- a/modulefiles/post/v8.0.0-hera +++ /dev/null @@ -1,55 +0,0 @@ -#%Module###################################################################### -############################################################# -## Lin.Gan@noaa.gov -## EMC -## post v7.0.0 -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for WCOSS production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -# Loading Intel Compiler Suite -module load intel/18.0.5.274 -module load impi/2018.0.4 - -module use /scratch1/NCEPDEV/nems/emc.nemspara/soft/modulefiles -module load hdf5_parallel/1.10.6 -module load netcdf_parallel/4.7.4 - -module use -a /scratch2/NCEPDEV/nwprod/NCEPLIBS/modulefiles -module load jasper/1.900.1 -module load png/1.2.44 -module load z/1.2.11 - -# Loding nceplibs modules -module load g2/3.2.0 -module load g2tmpl/1.6.0 -module load w3nco/2.2.0 -module load bacio/2.0.3 -module load gfsio/1.1.0 -module load ip/3.0.2 -module load sp/2.0.3 -module load crtm/2.3.0 -module load w3emc/2.4.0 - -module load nemsio/2.2.4 -module load sigio/2.1.1 -module load sfcio/1.1.1 -module load wrfio/1.1.1 - -setenv myFC mpiifort -setenv OPENMP "-qopenmp" -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -# -#setenv myFCFLAGS "-O0 -convert big_endian -fp-model source -openmp -g -check all -ftrapuv -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" - -setenv mySFC ifort diff --git a/modulefiles/post/v8.0.0-jet b/modulefiles/post/v8.0.0-jet deleted file mode 100644 index b56a5c365..000000000 --- a/modulefiles/post/v8.0.0-jet +++ /dev/null @@ -1,52 +0,0 @@ -#%Module###################################################################### -############################################################# -## Lin.Gan@noaa.gov -## EMC -## post v7.0.0 -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for WCOSS production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -# Loading Intel Compiler Suite -module load intel/18.0.5.274 -module load impi/2018.4.274 - -# Loding nceplibs modules -module use /mnt/lfs4/HFIP/hfv3gfs/nwprod/NCEPLIBS/modulefiles -module load sigio/v2.1.0 -module load jasper/v1.900.1 -module load png/v1.2.44 -module load z/v1.2.6 -module load sfcio/v1.0.0 -module load nemsio/v2.2.3 -module load bacio/v2.0.2 -module load xmlparse/v2.0.0 -module load gfsio/v1.1.0 -module load ip/v3.0.1 -module load sp/v2.0.2 -module load w3emc/v2.4.0 -module load w3nco/v2.0.6 -module load crtm/v2.3.0 -module load g2/v3.1.0 -module load g2tmpl/v1.6.0 -module load wrfio/v1.1.1 -module load hdf5_parallel/1.10.6 -module load netcdf_parallel/4.7.4 - - -#setenv WRFPATH /mnt/lfs3/projects/hfv3gfs/nwprod/wrf_shared.v1.1.0/ -setenv myFC mpiifort -setenv OPENMP "-qopenmp" -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -# -#setenv myFCFLAGS "-O0 -convert big_endian -fp-model source -openmp -g -check all -ftrapuv -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" diff --git a/modulefiles/post/v8.0.0-odin b/modulefiles/post/v8.0.0-odin deleted file mode 100644 index cde6d1d3b..000000000 --- a/modulefiles/post/v8.0.0-odin +++ /dev/null @@ -1,87 +0,0 @@ -#%Module###################################################################### -############################################################# -## Lin.Gan@noaa.gov -## EMC -## post v7.0.0 -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for WCOSS production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -#module purge - -# Loading Intel Compiler Suite -module load PrgEnv-intel -module swap intel/19.0.5.281 -module load cray-mpich/7.7.10 -module load cray-libsci -module load cray-netcdf-hdf5parallel -module load cray-parallel-netcdf -module load cray-hdf5-parallel -module load gcc/6.1.0 -module load slurm - -# Loding nceplibs modules -module use -a /oldscratch/ywang/external/modulefiles -module load sigio/v2.0.1 -#module load jasper/v1.900.1 -#module load png/v1.2.44 -#module load z/v1.2.6 -module load sfcio/v1.0.0 -module load nemsio/v2.2.2 -module load bacio/v2.0.2 -#module load g2/v2.5.2 -#module load xmlparse/v2.0.0 -module load gfsio/v1.1.0 -module load ip/v3.0.0 -module load sp/v2.0.2 -module load w3emc/v2.3.0 -module load w3nco/v2.0.6 -module load crtm/v2.2.5 -module load g2/v3.1.0 -module load g2tmpl/v1.5.0 -module load wrfio/1.1.1 -#module load netcdf/3.6.3 -#module load netcdf/4.6.1 - -setenv NETCDF /opt/cray/pe/netcdf-hdf5parallel/4.6.3.2/INTEL/19.0 -setenv JASPER_LIB "-ljasper" -setenv PNG_LIB "-lpng" - -#setenv NCEPLIBS /mnt/lfs3/projects/hfv3gfs/gwv/ljtjet/lib - -#module use /mnt/lfs3/projects/hfv3gfs/gwv/ljtjet/lib/modulefiles -#module load g2tmpl-intel/1.5.0 - -#module use /mnt/lfs3/projects/hfv3gfs/gwv/ljtjet/lib/wrf.post.lib/modulefiles -#module load wrf-io-v1.1.1 -# -#setenv WRFIO_LIB /mnt/lfs3/projects/hfv3gfs/gwv/ljtjet/lib/wrf.post.lib/v1.1.1/lib/wrf_io/libwrfio_nf.a - - -#set dlib /mnt/lfs3/projects/hfv3gfs/gwv/ltmp2/lib/g2/v3.1.0/ -#set bname "G2" -# -### Export environment variables -#setenv ${bname}_SRC $dlib/src -#setenv ${bname}_INC4 $dlib/intel/include/g2_v3.1.0_4 -#setenv ${bname}_INCd $dlib/intel/include/g2_v3.1.0_d -#setenv ${bname}_LIB4 $dlib/intel/libg2_v3.1.0_4.a -#setenv ${bname}_LIBd $dlib/intel/libg2_v3.1.0_d.a -#setenv ${bname}_VER v3.1.0 - -#setenv WRFPATH /mnt/lfs3/projects/hfv3gfs/nwprod/wrf_shared.v1.1.0/ -setenv myFC ftn -setenv OPENMP "-qopenmp" -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp -target-cpu=x86-64" -# -#setenv myFCFLAGS "-O0 -convert big_endian -fp-model source -openmp -g -check all -ftrapuv -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" diff --git a/modulefiles/post/v8.0.0-orion b/modulefiles/post/v8.0.0-orion deleted file mode 100755 index cf7889526..000000000 --- a/modulefiles/post/v8.0.0-orion +++ /dev/null @@ -1,56 +0,0 @@ -#%Module###################################################################### -############################################################# -## Lin.Gan@noaa.gov -## EMC -## post v7.0.0 -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for WCOSS production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -# Loading Intel Compiler Suite -module load intel/2018.4 -module load impi/2018.4 - -#module use /contrib/modulefiles -module use -a /apps/contrib/NCEPLIBS/orion/modulefiles - -module load netcdf_parallel/4.7.4 -module load hdf5_parallel/1.10.6 - -module load jasper/1.900.2 -module load png/1.2.44 -module load z/1.2.6 - -# Loding nceplibs modules -module load g2/3.2.0 -module load g2tmpl/1.6.0 -module load w3nco/2.2.0 -module load bacio/2.0.3 -module load gfsio/1.2.0 -module load ip/3.0.2 -module load sp/2.0.3 -module load crtm/2.3.0 -module load w3emc/2.4.0 - -module load nemsio/2.2.4 -module load sigio/2.2.0 -module load sfcio/1.2.0 -module load wrfio/1.1.1 - -setenv myFC mpiifort -setenv OPENMP "-qopenmp" -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -# -#setenv myFCFLAGS "-O0 -convert big_endian -fp-model source -qopenmp -g -check all -ftrapuv -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" - -setenv mySFC ifort diff --git a/modulefiles/post/v8.0.0-stampede b/modulefiles/post/v8.0.0-stampede deleted file mode 100644 index 95ad14a5c..000000000 --- a/modulefiles/post/v8.0.0-stampede +++ /dev/null @@ -1,54 +0,0 @@ -#%Module###################################################################### -############################################################# -## Lin.Gan@noaa.gov -## EMC -## post v7.0.0 -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for WCOSS production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -# Loading Intel Compiler Suite -module purge -module load intel/18.0.2 -module load impi/18.0.2 -module load parallel-netcdf/4.6.2 -module load phdf5/1.10.4 - -# Loding nceplibs modules -#module use -a /mnt/lfs3/projects/hfv3gfs/nwprod/lib/modulefiles -module use -a /work/00315/tg455890/stampede2/external/modulefiles -module load sigio/v2.1.0 -module load sfcio/v1.0.0 -module load nemsio/v2.2.3 -module load bacio/v2.0.2 -#module load g2/v2.5.2 -#module load xmlparse/v2.0.0 -module load gfsio/v1.1.0 -module load ip/v3.0.0 -module load sp/v2.0.2 -module load w3emc/v2.3.0 -module load w3nco/v2.0.6 -module load crtm/v2.2.3 -module load g2/v3.1.0 -module load g2tmpl/v1.6.0 -module load wrfio/1.1.1 - -setenv NETCDF /opt/apps/intel18/netcdf/4.6.2/x86_64 -setenv JASPER_LIB "-ljasper" -setenv PNG_LIB "-lpng" - -setenv myFC mpiifort -setenv OPENMP "-qopenmp" -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -# -#setenv myFCFLAGS "-O0 -convert big_endian -fp-model source -openmp -g -check all -ftrapuv -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" diff --git a/modulefiles/post/v8.0.0-wcoss b/modulefiles/post/v8.0.0-wcoss deleted file mode 100644 index 38cf2801b..000000000 --- a/modulefiles/post/v8.0.0-wcoss +++ /dev/null @@ -1,45 +0,0 @@ -#%Module###################################################################### -############################################################# -## Lin.Gan@noaa.gov -## EMC -## post v7.0.0 -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for WCOSS production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -# Loading Intel Compiler Suite -module load ics/15.0.3 -module load ibmpe/1.3.0.12 - -# Loding nceplibs modules -module load sigio/v2.1.0 -module load jasper/v1.900.1 -module load png/v1.2.44 -module load z/v1.2.6 -module load sfcio/v1.0.0 -module load nemsio/v2.2.2 -module load bacio/v2.0.1 -module load g2/v3.1.0 -module load xmlparse/v2.0.0 -module load gfsio/v1.1.0 -module load ip/v3.0.0 -module load sp/v2.0.2 -module load w3emc/v2.2.0 -module load w3nco/v2.0.6 -module load crtm/v2.2.4 -module load NetCDF/3.6.3 -module load g2tmpl/v1.5.0 - -setenv WRFPATH /nwprod/sorc/wrf_shared.v1.1.0 -setenv myFC mpiifort -setenv OPENMP "-openmp" -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -openmp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" diff --git a/modulefiles/post/v8.0.0-wcoss_dell_p3 b/modulefiles/post/v8.0.0-wcoss_dell_p3 deleted file mode 100644 index 8056ecac5..000000000 --- a/modulefiles/post/v8.0.0-wcoss_dell_p3 +++ /dev/null @@ -1,54 +0,0 @@ -#%Module###################################################################### -############################################################# -## post v7.0.0 - for WCOSS Dell -## Wen Meng 07/2018: set post to v8.0.0 for fv3gfs -############################################################# -proc ModulesHelp { } { -puts stderr "Set environment veriables for post" -puts stderr "This module initializes the users environment" -puts stderr "to build the post for production.\n" -} -module-whatis "post" - -set ver v8.0.0 - -module load ips/18.0.1.163 -module load impi/18.0.1 -#module load prod_util/1.1.0 - -module load NetCDF-parallel/4.7.4 -module load HDF5-parallel/1.10.6 - -module load jasper/1.900.1 -module load libpng/1.2.59 -module load zlib/1.2.11 - -# Loading nceplibs modules -module load g2/3.2.0 -module load g2tmpl/1.6.0 -module load w3nco/2.2.0 -module load bacio/2.0.3 -module load gfsio/1.1.0 -module load ip/3.0.2 -module load sp/2.0.3 -module load crtm/2.3.0 -module load w3emc/2.4.0 - -module load nemsio/2.2.4 -module load sigio/2.1.0 -module load sfcio/1.0.0 -module load wrfio/1.1.1 - -setenv myFC mpiifort -setenv OPENMP "-qopenmp" -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" -#setenv myFCFLAGS "-g -O0 -check -check noarg_temp_created -check nopointer -fp-stack-check -fstack-protector-all -fpe0 -debug -traceback -ftrapuv" -##setenv myCPPFLAGS "-O0 -g -ftrapuv -traceback" - - -setenv mySFC ifort - - - diff --git a/modulefiles/s4 b/modulefiles/s4 old mode 100644 new mode 100755 diff --git a/modulefiles/upp/lib-cray-intel b/modulefiles/upp/lib-cray-intel deleted file mode 100755 index 0233f4be4..000000000 --- a/modulefiles/upp/lib-cray-intel +++ /dev/null @@ -1,57 +0,0 @@ -#%Module###################################################################### -## Jun.Wang@noaa.gov: Started NCEPPOST lib v6.3.0 -## Wen.Meng@noaa.gov 10/2019: Upgraded to v8.0.0 -##_____________________________________________________ -proc ModulesHelp { } { -puts stderr "Set environment veriables for NCEPPOST" -puts stderr "This module initializes the enviro nment " -puts stderr "for the Intel Compiler Suite $version\n" -} -module-whatis " NCEPPOST lib whatis description" - -#set ver v6.3.0 -#set envir dev -#set NCEPLIB /nwprod/lib - -#set sys [uname sysname] - -#setenv COMPF_MP mpiifort -setenv myFC ftn -setenv myFCFLAGS "-O2 -convert big_endian -traceback -g -fp-model source -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" -setenv ARCHV ar -setenv CPPC /lib/cpp -#setenv version v8.0.0 -# - -module purge - -module use -a /usrx/local/prod/modulefiles -module use -a /gpfs/hps/nco/ops/nwprod/lib/modulefiles - -# Loading Intel Compiler Suite -module load PrgEnv-intel -module rm intel -module load intel/18.1.163 -module load craype-haswell -#module load craype/2.3.0 - -module load jasper-gnu-sandybridge/1.900.1 -module load png-gnu-sandybridge/1.2.49 -module load zlib-gnu-sandybridge/1.2.7 - -# Loading nceplibs modules -module load g2-intel/3.2.0 -module load g2tmpl-intel/1.6.0 -#module load xmlparse/v2.0.0 -module load w3nco-intel/2.2.0 -module load bacio-intel/2.0.3 -module load gfsio-intel/1.1.0 -#module load sigio/2.1.0 -module load ip-intel/3.0.2 -module load sp-intel/2.0.3 -module load crtm-intel/2.3.0 -module load w3emc-intel/2.4.0 - - diff --git a/modulefiles/upp/lib-hera b/modulefiles/upp/lib-hera deleted file mode 100755 index 392989db4..000000000 --- a/modulefiles/upp/lib-hera +++ /dev/null @@ -1,52 +0,0 @@ -#%Module###################################################################### -## Jun.Wang@noaa.gov: Started NCEPPOST lib v6.3.0 -## Wen.Meng@noaa.gov 10/2019: Upgraded to v8.0.0 -##_____________________________________________________ -proc ModulesHelp { } { -puts stderr "Set environment veriables for NCEPPOST" -puts stderr "This module initializes the enviro nment " -puts stderr "for the Intel Compiler Suite $version\n" -} -module-whatis " NCEPPOST lib whatis description" - -#set ver v6.3.0 -#set envir dev -#set NCEPLIB /nwprod/lib - -#set sys [uname sysname] - -#setenv COMPF_MP mpiifort -setenv myFC mpiifort -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" -setenv ARCHV ar -setenv CPPC /lib/cpp -#setenv version v8.0.0 -# - -module purge - -# Loading Intel Compiler Suite -module load intel/18.0.5.274 -module load impi/2018.0.4 - -# Loading nceplibs modules -module use -a /scratch2/NCEPDEV/nwprod/NCEPLIBS/modulefiles -module load jasper/1.900.1 -module load png/1.2.44 -module load z/1.2.11 - -module load g2/3.2.0 -module load g2tmpl/1.6.0 -#module load xmlparse/v2.0.0 -module load w3nco/2.2.0 -module load bacio/2.0.3 -module load gfsio/1.1.0 -#module load sigio/2.1.1 -module load ip/3.0.2 -module load sp/2.0.3 -module load crtm/2.3.0 -module load w3emc/2.4.0 - - diff --git a/modulefiles/upp/lib-jet b/modulefiles/upp/lib-jet deleted file mode 100755 index c9d9cb005..000000000 --- a/modulefiles/upp/lib-jet +++ /dev/null @@ -1,52 +0,0 @@ -#%Module###################################################################### -## Jun.Wang@noaa.gov: Started NCEPPOST lib v6.3.0 -## Wen.Meng@noaa.gov 10/2019: Upgraded to v8.0.0 -##_____________________________________________________ -proc ModulesHelp { } { -puts stderr "Set environment veriables for NCEPPOST" -puts stderr "This module initializes the enviro nment " -puts stderr "for the Intel Compiler Suite $version\n" -} -module-whatis " NCEPPOST lib whatis description" - -#set ver v6.3.0 -#set envir dev -#set NCEPLIB /nwprod/lib - -#set sys [uname sysname] - -#setenv COMPF_MP mpiifort -setenv myFC mpiifort -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" -setenv ARCHV ar -setenv CPPC /lib/cpp -setenv version v8.0.0 -# - -module purge - -# Loading Intel Compiler Suite -module load intel/18.0.5.274 -module load impi/2018.4.274 - -# Loading nceplibs modules -module use /mnt/lfs4/HFIP/hfv3gfs/nwprod/NCEPLIBS/modulefiles -module load jasper/v1.900.1 -module load png/v1.2.44 -module load z/v1.2.6 -module load g2/v3.1.0 -module load g2tmpl/v1.6.0 -#module load xmlparse/v2.0.0 - -module load w3emc/v2.4.0 -module load w3nco/v2.0.6 -module load bacio/v2.0.2 -module load gfsio/v1.1.0 -#module load sigio/2.1.1 -module load ip/v3.0.1 -module load sp/v2.0.2 -module load crtm/v2.3.0 - - diff --git a/modulefiles/upp/lib-orion b/modulefiles/upp/lib-orion deleted file mode 100755 index 7459163ba..000000000 --- a/modulefiles/upp/lib-orion +++ /dev/null @@ -1,53 +0,0 @@ -#%Module###################################################################### -## Jun.Wang@noaa.gov: Started NCEPPOST lib v6.3.0 -## Wen.Meng@noaa.gov 10/2019: Upgraded to v8.0.0 -##_____________________________________________________ -proc ModulesHelp { } { -puts stderr "Set environment veriables for NCEPPOST" -puts stderr "This module initializes the enviro nment " -puts stderr "for the Intel Compiler Suite $version\n" -} -module-whatis " NCEPPOST lib whatis description" - -#set ver v6.3.0 -#set envir dev -#set NCEPLIB /nwprod/lib - -#set sys [uname sysname] - -#setenv COMPF_MP mpiifort -setenv myFC mpiifort -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -fpp" -#setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" -setenv ARCHV ar -setenv CPPC /lib/cpp -#setenv version v8.0.0 -# - -module purge - -# Loading Intel Compiler Suite -module load intel/2018.4 -module load impi/2018.4 - -# Loading nceplibs modules -module use -a /apps/contrib/NCEPLIBS/orion/modulefiles -module load jasper/1.900.2 -module load png/1.2.44 -module load z/1.2.6 - -module load g2/3.2.0 -module load g2tmpl/1.6.0 -#module load xmlparse/v2.0.0 -module load w3nco/2.2.0 -module load bacio/2.0.3 -module load gfsio/1.2.0 -#module load sigio/2.1.0 -module load ip/3.0.2 -module load sp/2.0.3 -module load crtm/2.3.0 -module load w3emc/2.4.0 - - diff --git a/modulefiles/upp/lib-wcoss b/modulefiles/upp/lib-wcoss deleted file mode 100755 index 7fa2710b6..000000000 --- a/modulefiles/upp/lib-wcoss +++ /dev/null @@ -1,54 +0,0 @@ -#%Module###################################################################### -## Jun.Wang@noaa.gov: Started NCEPPOST lib v6.3.0 -## Wen.Meng@noaa.gov 10/2019: Upgraded to v8.0.0 -##_____________________________________________________ -proc ModulesHelp { } { -puts stderr "Set environment veriables for NCEPPOST" -puts stderr "This module initializes the enviro nment " -puts stderr "for the Intel Compiler Suite $version\n" -} -module-whatis " NCEPPOST lib whatis description" - -#set ver v6.3.0 -#set envir dev -#set NCEPLIB /nwprod/lib - -#set sys [uname sysname] - -#setenv COMPF_MP mpiifort -setenv myFC mpiifort -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" -setenv ARCHV ar -setenv CPPC /lib/cpp -setenv version v8.0.0 -# - -module purge - -# Loading Intel Compiler Suite -module load ics/16.0.3 -module load ibmpe -#module load ics/15.0.3 -##module load ibmpe/1.3.0.12 -#module load prod_util/1.1.0 - -# Loading nceplibs modules -module load jasper/v1.900.1 -module load png/v1.2.44 -module load z/v1.2.6 -module load g2/v3.1.0 -module load g2tmpl/v1.5.0 -#module load xmlparse/v2.0.0 - -module load w3emc/v2.2.0 -module load w3nco/v2.0.6 -module load bacio/v2.0.1 -module load gfsio/v1.1.0 -#module load sigio/2.1.0 -module load ip/v3.0.1 -module load sp/v2.0.2 -module load crtm/v2.2.4 - - diff --git a/modulefiles/upp/lib-wcoss_dell_p3 b/modulefiles/upp/lib-wcoss_dell_p3 deleted file mode 100755 index 94eea42e4..000000000 --- a/modulefiles/upp/lib-wcoss_dell_p3 +++ /dev/null @@ -1,53 +0,0 @@ -#%Module###################################################################### -## Jun.Wang@noaa.gov: Started NCEPPOST lib v6.3.0 -## Wen.Meng@noaa.gov 10/2019: Upgraded to v8.0.0 -##_____________________________________________________ -proc ModulesHelp { } { -puts stderr "Set environment veriables for NCEPPOST" -puts stderr "This module initializes the enviro nment " -puts stderr "for the Intel Compiler Suite $version\n" -} -module-whatis " NCEPPOST lib whatis description" - -#set ver v6.3.0 -#set envir dev -#set NCEPLIB /nwprod/lib - -#set sys [uname sysname] - -#setenv COMPF_MP mpiifort -setenv myFC mpiifort -setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -fpp" -#setenv myFCFLAGS "-O3 -convert big_endian -traceback -g -fp-model source -qopenmp -fpp" -setenv myCPP /lib/cpp -setenv myCPPFLAGS "-P" -setenv ARCHV ar -setenv CPPC /lib/cpp -#setenv version v8.0.0 -# - -module purge - -# Loading Intel Compiler Suite -module load ips/18.0.1.163 -module load impi/18.0.1 - -module load jasper/1.900.1 -module load libpng/1.2.59 -module load zlib/1.2.11 - - -# Loading nceplibs modules -module load g2/3.2.0 -module load g2tmpl/1.6.0 -#module load xmlparse/v2.0.0 -module load w3nco/2.2.0 -module load bacio/2.0.3 -module load gfsio/1.1.0 -#module load sigio/2.1.0 -module load ip/3.0.2 -module load sp/2.0.3 -module load crtm/2.3.0 -module load w3emc/2.4.0 - - diff --git a/sorc/build_ncep_post.sh b/sorc/build_ncep_post.sh deleted file mode 100755 index 93022e2f4..000000000 --- a/sorc/build_ncep_post.sh +++ /dev/null @@ -1,132 +0,0 @@ -#!/bin/bash -#################################################################################################### -# -# post using module compile standard -# -# 10/15 Lin Gan: Create module load version -# 01/16 Lin Gan: Update to use GFS Vertical Structure -# 07/16 J. Carley: Generalize for other machines using modules -# 07/18 Wen Meng: Set post to v8.0.0 for fv3gfs -# 10/19 M Kavulich: Provide machine name as an input argument -# -##################################################################################################### -##################################################################################################### - -#List of valid machines: -validmachines=(theia jet wcoss_dell_p3 wcoss cray-intel hera orion odin stampede s4) - -function usage { - echo "Usage:" - echo " $0 machinename" - echo "" - echo " Valid values for 'machinename' are: ${validmachines[@]}" - exit 1 -} - -if [ "$#" -eq 0 ]; then - #Check to see if we are building the old way - module purge - set -x - mac=$(hostname | cut -c1-1) - mac2=$(hostname | cut -c1-2) - if [ $mac2 = tf ] ; then # For Theia - machine=theia - elif [ $mac = f ] ; then # For Jet - machine=jet - elif [ $mac = v -o $mac = m ] ; then # For Dell - machine=wcoss_dell_p3 - elif [ $mac = t -o $mac = e -o $mac = g ] ; then # For WCOSS - machine=wcoss - elif [ $mac2 = s4 ] ; then # For S4 - machine=s4 - elif [ $mac = l -o $mac = s ] ; then # wcoss_c (i.e. luna and surge) - export machine=cray-intel - elif [ $mac2 = hf ] ; then # For Hera - machine=hera - elif [ $mac = O ] ; then - machine=orion - elif [ $mac2 = od ] ; then - machine=odin - else - echo "" - echo "ERROR ERROR ERROR" - echo "" - echo "Error: To use this build script without arguments you must be on a valid machine" - echo "Valid machines are:" - echo "${validmachines[@]}" - echo "" - echo "ERROR ERROR ERROR" - fi - -elif [ "$#" -gt 1 ]; then - echo "Error: too many input arguments" - exit 2 -else - machine=$1 -fi - -# Lin Gan Module Load -set -x -case $machine in -theia) # For Theia - module purge - . /etc/profile - . /etc/profile.d/modules.sh - ;; -jet) # For Jet - module purge - . /etc/profile - . /etc/profile.d/modules.sh - ;; -wcoss_dell_p3) # For Dell - module purge - . $MODULESHOME/init/bash - ;; -wcoss) # For WCOSS - module purge - . /usrx/local/Modules/default/init/bash - ;; -cray-intel) # For wcoss_c (i.e. luna and surge) - module purge - ;; -hera) # For Hera - . /etc/profile - . /etc/profile.d/modules.sh - ;; -orion) # For Orion - . /etc/profile - ;; -odin) # For Odin at NSSL - . /etc/profile - . /etc/profile.d/modules.sh - ;; -stampede) - module purge - ;; -s4) # For S4 - . /etc/profile - ;; -*) - set +x - echo "ERROR: Invalid machine name specified" - usage - ;; -esac - -# Lin Gan modifiy to use NCO vertical structure prefix for NCO deployment - 20160131 -moduledir=`dirname $(readlink -f ../modulefiles/post)` -module use ${moduledir} -module load post/v8.0.0-${machine} -module list - -cd ncep_post.fd - -make -f makefile_module clean -make -f makefile_module - -if [ ! -d "../../exec" ] ; then - mkdir -p ../../exec -fi -cp ncep_post ../../exec/ - -exit 0 diff --git a/tests/compile_upp.sh b/tests/compile_upp.sh index 94360f243..bd7fa15f8 100755 --- a/tests/compile_upp.sh +++ b/tests/compile_upp.sh @@ -1,11 +1,47 @@ #!/bin/bash # Wen Meng 01/2020, Set up for cmake build. -############################################# +# Wen Meng 01/2022, Add option for building with gtg code +############################################################ -set -x +set -eu -#Clean loaded modules -module purge +usage() { + echo + echo "Usage: $0 [-g] [-w] -h" + echo + echo " -p installation prefix DEFAULT: ../install" + echo " -g Build with GTG(users with gtg repos. access only) DEFAULT: OFF" + echo " -w Build without WRF-IO DEFAULT: ON" + echo " -v Build with cmake verbose DEFAULT: NO" + echo " -h display this message and quit" + echo + exit 1 +} + +prefix="../install" +gtg_opt=" -DBUILD_WITH_GTG=OFF" +wrfio_opt=" -DBUILD_WITH_WRFIO=ON" +verbose_opt="" +while getopts ":p:gwvh" opt; do + case $opt in + p) + prefix=$OPTARG + ;; + g) + gtg_opt=" -DBUILD_WITH_GTG=ON" + ;; + w) + wrfio_opt=" -DBUILD_WITH_WRFIO=OFF" + ;; + v) + verbose_opt="VERBOSE=1" + ;; + h|\?|:) + usage + ;; + esac +done +cmake_opts=" -DCMAKE_INSTALL_PREFIX=$prefix"${wrfio_opt}${gtg_opt} hostname source ./detect_machine.sh @@ -17,15 +53,18 @@ fi PATHTR=${PATHTR:-$( cd ${MYDIR}/.. && pwd )} #Load required modulefiles -module use $PATHTR/modulefiles -modulefile=${MACHINE_ID} -module load $modulefile -module list +if [[ $MACHINE_ID != "unknown" ]]; then + module purge + module use $PATHTR/modulefiles + modulefile=${MACHINE_ID} + module load $modulefile + module list +fi rm -rf build install mkdir build && cd build -cmake -DCMAKE_INSTALL_PREFIX=../install -DBUILD_WITH_WRFIO=ON ../.. -make -j6 +cmake $cmake_opts ../.. +make -j6 $verbose_opt make install rm -rf $PATHTR/exec && mkdir $PATHTR/exec diff --git a/tests/detect_machine.sh b/tests/detect_machine.sh index 9362e5635..5aec0b88b 100755 --- a/tests/detect_machine.sh +++ b/tests/detect_machine.sh @@ -92,6 +92,8 @@ case $(hostname -f) in login4.stampede2.tacc.utexas.edu) MACHINE_ID=stampede ;; ### stampede4 s4-submit.ssec.wisc.edu) MACHINE_ID=s4 ;; ### S4 + + *) MACHINE_ID=unknown esac # Overwrite auto-detect with RT_MACHINE if set From 117d51370509c8175a0f56632d41b9679f4b7667 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 19 Jan 2022 11:51:54 -0500 Subject: [PATCH 029/107] Clean up legacy read interfaces (#437) * Remove read interfaces INITPOST_GFS_NEMS, INITPOST_GFS_NEMS_MPIIO and INITPOST_GFS_NMM. * Change linking order for w3nco and nemsio * Remove INITPOST_GFS_NETCDF * Remove INITPOST_GFS_NEMS.f, INITPOST_GFS_NETCDF.f, INITPOST_NEMS.f, INITPOST_NEMS_MPIIO.f from UPP code. * Fix build failture. * Clean up legacy makefile * Clean up another two makefiles * Add back INITPOST_GFS_NETCDF --- sorc/ncep_post.fd/CMakeLists.txt | 5 +- sorc/ncep_post.fd/INITPOST_GFS_NEMS.f | 3264 ----------------------- sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f | 2464 ----------------- sorc/ncep_post.fd/INITPOST_NMM.f | 2643 ------------------ sorc/ncep_post.fd/WRFPOST.f | 56 +- sorc/ncep_post.fd/build_upp_lib.sh | 54 - sorc/ncep_post.fd/makefile | 258 -- sorc/ncep_post.fd/makefile_dtc | 130 - sorc/ncep_post.fd/makefile_lib | 146 - sorc/ncep_post.fd/makefile_module | 126 - 10 files changed, 6 insertions(+), 9140 deletions(-) delete mode 100644 sorc/ncep_post.fd/INITPOST_GFS_NEMS.f delete mode 100644 sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f delete mode 100644 sorc/ncep_post.fd/INITPOST_NMM.f delete mode 100755 sorc/ncep_post.fd/build_upp_lib.sh delete mode 100644 sorc/ncep_post.fd/makefile delete mode 100644 sorc/ncep_post.fd/makefile_dtc delete mode 100644 sorc/ncep_post.fd/makefile_lib delete mode 100644 sorc/ncep_post.fd/makefile_module diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index 5fba419fc..0855a7788 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -150,14 +150,11 @@ list(APPEND EXE_SRC GETNEMSNDSCATTER.f GFSPOSTSIG.F INITPOST.F - INITPOST_GFS_NEMS.f INITPOST_GFS_NEMS_MPIIO.f INITPOST_GFS_NETCDF.f INITPOST_GFS_NETCDF_PARA.f INITPOST_NEMS.f - INITPOST_NEMS_MPIIO.f INITPOST_NETCDF.f - INITPOST_NMM.f WRFPOST.f getIVariableN.f getVariable.f @@ -224,8 +221,8 @@ if(BUILD_POSTEXEC) add_executable(${EXENAME} ${EXE_SRC}) target_link_libraries(${EXENAME} PRIVATE ${LIBNAME} - w3nco::w3nco_4 nemsio::nemsio + w3nco::w3nco_4 sp::sp_4 sfcio::sfcio sigio::sigio) diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS.f deleted file mode 100644 index 2f04cfb7e..000000000 --- a/sorc/ncep_post.fd/INITPOST_GFS_NEMS.f +++ /dev/null @@ -1,3264 +0,0 @@ -!> @file -! . . . -!> SUBPROGRAM: INITPOST INITIALIZE POST FOR RUN -!! PRGRMMR: Hui-Ya Chuang DATE: 2007-03-01 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF GFS MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 2011-02-07 Jun Wang add grib2 option -!! 2011-12-14 Sarah Lu add aer option -!! 2012-01-07 Sarah Lu compute air density -!! 2012-12-22 Sarah Lu add aerosol zerout option -!! 2015-03-16 S. Moorthi adding gocart_on option -!! 2015-03-18 S. Moorthi Optimization including threading -!! 2015-08-17 S. Moorthi Add TKE for NEMS/GSM -!! 2021-03-11 Bo Cui change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INIT -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! - SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D, & - iostatusAER,nfile,ffile,rfile) -! SUBROUTINE INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D,nfile,ffile) - - - use vrbls4d, only: dust, SALT, SUSO, SOOT, WASO - use vrbls3d, only: t, q, uh, vh, pmid, pint, alpint, dpres, zint, zmid, o3, & - qqr, qqs, cwm, qqi, qqw, omga, rhomid, q2, cfr, rlwtt, rswtt, tcucn, & - tcucns, train, el_pbl, exch_h, vdifftt, vdiffmois, dconvmois, nradtt, & - o3vdiff, o3prod, o3tndy, mwpv, unknown, vdiffzacce, zgdrag,cnvctummixing, & - vdiffmacce, mgdrag, cnvctvmmixing, ncnvctcfrac, cnvctumflx, cnvctdmflx, & - cnvctzgdrag, sconvmois, cnvctmgdrag, cnvctdetmflx, duwt, duem, dusd, dudp - use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & - cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & - tshltr, albase, avgalbedo, avgtcdc, czen, czmean, mxsnal, radot, sigt4, & - cfrach, cfracl, cfracm, avgcfrach, qshltr, avgcfracl, avgcfracm, cnvcfr, & - islope, cmc, grnflx, vegfrc, acfrcv, ncfrcv, acfrst, ncfrst, ssroff, & - bgroff, rlwin, rlwtoa, cldwork, alwin, alwout, alwtoa, rswin, rswinc, & - rswout, aswin, auvbin, auvbinc, aswout, aswtoa, sfcshx, sfclhx, subshx, & - snopcx, sfcux, sfcvx, sfcuvx, gtaux, gtauy, potevp, u10, v10, smstav, & - smstot, ivgtyp, isltyp, sfcevp, sfcexc, acsnow, acsnom, sst, thz0, qz0, & - uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm, & - ptoph, pboth, pblcfr, ttoph, runoff, maxtshltr, mintshltr, maxrhshltr, & - minrhshltr, dzice, smcwlt, suntime, fieldcapa, htopd, hbotd, htops, hbots, & - cuppt, dusmass, ducmass, dusmass25, ducmass25, aswintoa, & - u10h,v10h - use soil, only: sldpth, sh2o, smc, stc - use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice -! use kinds, only: i_llong - use nemsio_module, only: nemsio_gfile, nemsio_getfilehead, nemsio_getheadvar, nemsio_close - use physcons_post, only: grav => con_g, fv => con_fvirt, rgas => con_rd, & - eps => con_eps, epsm1 => con_epsm1 - use params_mod, only: erad, dtr, tfrz, h1, d608, rd, p1000, capa - use lookup_mod, only: thl, plq, ptbl, ttbl, rdq, rdth, rdp, rdthe, pl, qs0, sqs, sthe, & - ttblq, rdpq, rdtheq, stheq, the0q, the0 - use ctlblk_mod, only: me, mpi_comm_comp, icnt, idsp, jsta, jend, ihrst, idat, sdat, ifhr, & - ifmin, filename, tprec, tclod, trdlw, trdsw, tsrfc, tmaxmin, td3d, restrt, sdat, & - jend_m, imin, imp_physics, dt, spval, pdtop, pt, qmin, nbin_du, nphs, dtq2, ardlw,& - ardsw, asrfc, avrain, avcnvc, theat, gdsdegr, spl, lsm, alsl, im, jm, im_jm, lm, & - jsta_2l, jend_2u, nsoil, lp1, icu_physics, ivegsrc, novegtype, nbin_ss, nbin_bc, & - nbin_oc, nbin_su, gocart_on, pt_tbl, hyb_sigp - use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & - dxval, dyval, truelat2, truelat1, psmapf, cenlat - use upp_physics, only: fpvsnew -! use wrf_io_flags_mod, only: ! Do we need this? -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none -! - type(nemsio_gfile),intent(inout) :: nfile,ffile,rfile -! -! INCLUDE/SET PARAMETERS. -! - INCLUDE "mpif.h" - -! integer,parameter:: MAXPTS=1000000 ! max im*jm points -! -! real,parameter:: con_g =9.80665e+0! gravity -! real,parameter:: con_rv =4.6150e+2 ! gas constant H2O -! real,parameter:: con_rd =2.8705e+2 ! gas constant air -! real,parameter:: con_fvirt =con_rv/con_rd-1. -! real,parameter:: con_eps =con_rd/con_rv -! real,parameter:: con_epsm1 =con_rd/con_rv-1 -! -! This version of INITPOST shows how to initialize, open, read from, and -! close a NetCDF dataset. In order to change it to read an internal (binary) -! dataset, do a global replacement of _ncd_ with _int_. - - real, parameter :: gravi = 1.0/grav - integer,intent(in) :: NREC,iostatusFlux,iostatusD3D,iostatusAER - character(len=20) :: VarName, VcoordName - integer :: Status - character startdate*19,SysDepInfo*80,cgar*1 - character startdate2(19)*4 -! -! NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK -! AS LONG AS REALS AND INTEGERS ARE THE SAME SIZE. -! -! ALSO, EXTRACT IS CALLED WITH DUMMY ( A REAL ) EVEN WHEN THE NUMBERS ARE -! INTEGERS - THIS IS OK AS LONG AS INTEGERS AND REALS ARE THE SAME SIZE. - LOGICAL RUNB,SINGLRST,SUBPOST,NEST,HYDRO,IOOMG,IOALL - logical, parameter :: debugprint = .false., zerout = .false. -! logical, parameter :: debugprint = .true., zerout = .false. - CHARACTER*32 LABEL - CHARACTER*40 CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV,FILCLD,FILRAD,FILSFC - CHARACTER*4 RESTHR - CHARACTER FNAME*255,ENVAR*50 - INTEGER IDATE(8),JDATE(8),JPDS(200),JGDS(200),KPDS(200),KGDS(200),IGDS(18) -! LOGICAL*1 LB(IM,JM) -! -! INCLUDE COMMON BLOCKS. -! -! DECLARE VARIABLES. -! -! REAL fhour - integer nfhour ! forecast hour from nems io file - REAL RINC(5) - - REAL DUMMY(IM,JM), DUMMY2(IM,JM) - real, allocatable :: fi(:,:,:) -!jw - integer ii,jj,js,je,iyear,imn,iday,itmp,ioutcount,istatus, & - I,J,L,ll,k,kf,irtn,igdout,n,Index,nframe, & - impf,jmpf,nframed2,iunitd3d,ierr,idum,iret - real TSTART,TLMH,TSPH,ES,FACT,soilayert,soilayerb,zhour,dum, & - tvll,pmll,tv - - character*8, allocatable :: recname(:) - character*16,allocatable :: reclevtyp(:) - integer, allocatable :: reclev(:) - real, allocatable :: glat1d(:), glon1d(:), qstl(:) - real, allocatable :: wrk1(:,:), wrk2(:,:) - real, allocatable :: p2d(:,:), t2d(:,:), q2d(:,:), & - qs2d(:,:), cw2d(:,:), cfr2d(:,:) - real(kind=4),allocatable :: vcoord4(:,:,:) - real, dimension(lm+1) :: ak5, bk5 - real*8, allocatable :: pm2d(:,:), pi2d(:,:) - - real buf(im,jsta_2l:jend_2u) - -! real buf(im,jsta_2l:jend_2u),bufsoil(im,nsoil,jsta_2l:jend_2u) & -! ,buf3d(im,jsta_2l:jend_2u,lm),buf3d2(im,lp1,jsta_2l:jend_2u) - - real LAT, isa, jsa -! REAL, PARAMETER :: QMIN = 1.E-15 - -! DATA BLANK/' '/ -! -!*********************************************************************** -! START INIT HERE. -! - WRITE(6,*)'INITPOST: ENTER INITPOST_GFS_NEMS' - WRITE(6,*)'me=',me,'LMV=',size(LMV,1),size(LMV,2),'LMH=', & - size(LMH,1),size(LMH,2),'jsta_2l=',jsta_2l,'jend_2u=', & - jend_2u,'im=',im -! - isa = im / 2 - jsa = (jsta+jend) / 2 - -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - buf(i,j) = spval - enddo - enddo -! -! STEP 1. READ MODEL OUTPUT FILE -! -! -!*** -! -! LMH and LMV always = LM for sigma-type vert coord - -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i = 1, im - LMV(i,j) = lm - LMH(i,j) = lm - end do - end do - -! HTM VTM all 1 for sigma-type vert coord - -!$omp parallel do private(i,j,l) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - HTM (i,j,l) = 1.0 - VTM (i,j,l) = 1.0 - end do - end do - end do -! -! how do I get the filename? -! fileName = '/ptmp/wx20mb/wrfout_01_030500' -! DateStr = '2002-03-05_18:00:00' -! how do I get the filename? -! call ext_int_ioinit(SysDepInfo,Status) -! print*,'called ioinit', Status -! call ext_int_open_for_read( trim(fileName), 0, 0, " ", -! & DataHandle, Status) -! print*,'called open for read', Status -! if ( Status /= 0 ) then -! print*,'error opening ',fileName, ' Status = ', Status ; stop -! endif -! get date/time info -! this routine will get the next time from the file, not using it -! print *,'DateStr before calling ext_int_get_next_time=',DateStr -! call ext_int_get_next_time(DataHandle, DateStr, Status) -! print *,'DateStri,Status,DataHandle = ',DateStr,Status,DataHandle - -! The end j row is going to be jend_2u for all variables except for V. - - JS = JSTA_2L - JE = JEND_2U - -! get start date - if (me == 0)then - print*,'nrec=',nrec - allocate(recname(nrec),reclevtyp(nrec),reclev(nrec)) - allocate(glat1d(im*jm),glon1d(im*jm)) - allocate(vcoord4(lm+1,3,2)) - call nemsio_getfilehead(nfile,iret=iret & - ,idate=idate(1:7),nfhour=nfhour,recname=recname & - ,reclevtyp=reclevtyp,reclev=reclev,lat=glat1d & - ,lon=glon1d,nframe=nframe,vcoord=vcoord4) - if(iret/=0)print*,'error getting idate,nfhour' - print *,'latstar1=',glat1d(1),glat1d(im*jm) -! print *,'printing an inventory of GFS nemsio file' -! do i=1,nrec -! print *,'recname=',(trim(recname(i))) -! print *,'reclevtyp=',(trim(reclevtyp(i))) -! print *,'reclev=',(reclev(i)) -! end do -! deallocate (recname,reclevtyp,reclev) - -! call nemsio_getfilehead(ffile,nrec=idum) -! print*,'nrec for flux file = ',idum -! allocate(recname(idum),reclevtyp(idum),reclev(idum)) -! call nemsio_getfilehead(ffile,iret=iret, & -! recname=recname,reclevtyp=reclevtyp,reclev=reclev) -! do i=1,idum -! print *,'recname=',(trim(recname(i))) -! print *,'reclevtyp=',(trim(reclevtyp(i))) -! print *,'reclev=',(reclev(i)) -! end do - -!$omp parallel do private(i,j) - do j=1,jm - do i=1,im - dummy(i,j) = glat1d((j-1)*im+i) - dummy2(i,j) = glon1d((j-1)*im+i) - end do - end do -! - if (hyb_sigp) then - do l=1,lm+1 - ak5(l) = vcoord4(l,1,1) - bk5(l) = vcoord4(l,2,1) - enddo - endif -! - deallocate(recname,reclevtyp,reclev,glat1d,glon1d,vcoord4) -! can't get idate and fhour, specify them for now -! idate(4)=2006 -! idate(2)=9 -! idate(3)=16 -! idate(1)=0 -! fhour=6.0 - print*,'idate before broadcast = ',(idate(i),i=1,7) - end if - call mpi_bcast(idate(1), 7, MPI_INTEGER, 0, mpi_comm_comp, iret) - call mpi_bcast(nfhour, 1, MPI_INTEGER, 0, mpi_comm_comp, iret) - call mpi_bcast(nframe, 1, MPI_INTEGER, 0, mpi_comm_comp, iret) - print*,'idate after broadcast = ',(idate(i),i=1,4) - print*,'nfhour = ',nfhour - - if (hyb_sigp) then - call mpi_bcast(ak5, lm+1, MPI_REAL, 0, mpi_comm_comp, iret) - call mpi_bcast(bk5, lm+1, MPI_REAL, 0, mpi_comm_comp, iret) - endif - if (me == 0) print *,' ak5=',ak5 - if (me == 0) print *,' bk5=',bk5 - -! sample print point - ii = im/2 - jj = jm/2 - call mpi_scatterv(dummy(1,1),icnt,idsp,mpi_real & - ,gdlat(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,ierr) - call mpi_scatterv(dummy2(1,1),icnt,idsp,mpi_real & - ,gdlon(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,ierr) - - print *,'before call EXCH,mype=',me,'max(gdlat)=',maxval(gdlat), & - 'max(gdlon)=', maxval(gdlon) - CALL EXCH(gdlat(1,JSTA_2L)) - print *,'after call EXCH,mype=',me - -!$omp parallel do private(i,j) - do j = jsta, jend_m - do i = 1, im-1 - DX (i,j) = ERAD*COS(GDLAT(I,J)*DTR) *(GDLON(I+1,J)-GDLON(I,J))*DTR - DY (i,j) = ERAD*(GDLAT(I,J)-GDLAT(I,J+1))*DTR ! like A*DPH -! F(I,J)=1.454441e-4*sin(gdlat(i,j)*DTR) ! 2*omeg*sin(phi) -! if (i == ii .and. j == jj) print*,'sample LATLON, DY, DY=' & -! ,i,j,GDLAT(I,J),GDLON(I,J),DX(I,J),DY(I,J) - end do - end do - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - F(I,J) = 1.454441e-4*sin(gdlat(i,j)*DTR) ! 2*omeg*sin(phi) - end do - end do - - impf = im - jmpf = jm - print*,'impf,jmpf,nframe= ',impf,jmpf,nframe - -!MEB not sure how to get these - ! waiting to read in lat lon from GFS soon -! varname='GLAT' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! GDLAT=SPVAL -! else -! this_offset=file_offset(index+1)+(jsta_2l-1)*4*im -! this_length=im*(jend_2u-jsta_2l+1) -! call mpi_file_read_at(iunit,this_offset -! + ,buf,this_length,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName,"Assigned missing values" -! GDLAT=SPVAL -! else -! do j = jsta_2l, jend_2u -! do i = 1, im -! F(I,J)=1.454441e-4*sin(buf(I,J)) ! 2*omeg*sin(phi) -! GDLAT(I,J)=buf(I,J)*RTD - -! enddo -! enddo -! end if -! end if - -! varname='GLON' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! GDLON=SPVAL -! else -! this_offset=file_offset(index+1)+(jsta_2l-1)*4*im -! this_length=im*(jend_2u-jsta_2l+1) -! call mpi_file_read_at(iunit,this_offset -! + ,buf,this_length,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName,"Assigned missing values" -! GDLON=SPVAL -! else -! do j = jsta_2l, jend_2u -! do i = 1, im -! GDLON(I,J)=buf(I,J)*RTD -! if(i == 409.and.j == 835)print*,'GDLAT GDLON in INITPOST=' -! + ,i,j,GDLAT(I,J),GDLON(I,J) -! enddo -! enddo -! end if -! end if - -! if(jsta<=594.and.jend>=594)print*,'gdlon(120,594)= ', -! + gdlon(120,594) - - -! iyear=idate(4)+2000 ! older gfsio only has 2 digit year - iyear = idate(1) - imn = idate(2) ! ask Jun - iday = idate(3) ! ask Jun - ihrst = idate(4) - imin = idate(5) - jdate = 0 - idate = 0 -! -! read(startdate,15)iyear,imn,iday,ihrst,imin - 15 format(i4,1x,i2,1x,i2,1x,i2,1x,i2) - print*,'start yr mo day hr min =',iyear,imn,iday,ihrst,imin - print*,'processing yr mo day hr min=' & - ,idat(3),idat(1),idat(2),idat(4),idat(5) -! - idate(1) = iyear - idate(2) = imn - idate(3) = iday - idate(5) = ihrst - idate(6) = imin - SDAT(1) = imn - SDAT(2) = iday - SDAT(3) = iyear - jdate(1) = idat(3) - jdate(2) = idat(1) - jdate(3) = idat(2) - jdate(5) = idat(4) - jdate(6) = idat(5) -! - print *,' idate=',idate - print *,' jdate=',jdate -! CALL W3DIFDAT(JDATE,IDATE,2,RINC) -! ifhr=nint(rinc(2)) -! - CALL W3DIFDAT(JDATE,IDATE,0,RINC) -! - print *,' rinc=',rinc - ifhr = nint(rinc(2)+rinc(1)*24.) - print *,' ifhr=',ifhr - ifmin = nint(rinc(3)) -! if(ifhr /= nint(fhour))print*,'find wrong Grib file';stop - print*,' in INITPOST ifhr ifmin fileName=',ifhr,ifmin,fileName - -! GFS has the same accumulation bucket for precipitation and fluxes and it is written to header -! the header has the start hour information so post uses it to recontruct bucket - if(me==0)then - call nemsio_getheadvar(ffile,'zhour',zhour,iret=iret) - if(iret==0)then - tprec = 1.0*ifhr-zhour - tclod = tprec - trdlw = tprec - trdsw = tprec - tsrfc = tprec - tmaxmin = tprec - td3d = tprec - print*,'tprec from flux file header= ',tprec - else - print*,'Error reading accumulation bucket from flux file', & - 'header - will try to read from env variable FHZER' - CALL GETENV('FHZER',ENVAR) - read(ENVAR, '(I2)')idum - tprec = idum*1.0 - tclod = tprec - trdlw = tprec - trdsw = tprec - tsrfc = tprec - tmaxmin = tprec - td3d = tprec - print*,'TPREC from FHZER= ',tprec - end if - end if - - call mpi_bcast(tprec, 1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(tclod, 1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(trdlw, 1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(trdsw, 1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(tsrfc, 1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(tmaxmin,1,MPI_REAL,0,mpi_comm_comp,iret) - call mpi_bcast(td3d, 1,MPI_REAL,0,mpi_comm_comp,iret) - -! Getting tstart - tstart=0. -! VarName='TSTART' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file" -! else -! call mpi_file_read_at(iunit,file_offset(index)+5*4 -! + ,garb,1,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName," using MPIIO" -! else -! print*,VarName, ' from MPIIO READ= ',garb -! tstart=garb -! end if -! end if - print*,'tstart= ',tstart - -! Getiing restart - - RESTRT=.TRUE. ! set RESTRT as default -! call ext_int_get_dom_ti_integer(DataHandle,'RESTARTBIN',itmp -! + ,1,ioutcount,istatus) - -! IF(itmp < 1)THEN -! RESTRT=.FALSE. -! ELSE -! RESTRT=.TRUE. -! END IF - -! print*,'status for getting RESTARTBIN= ',istatus - -! print*,'Is this a restrt run? ',RESTRT - - IF(tstart > 1.0E-2)THEN - ifhr = ifhr+NINT(tstart) - rinc = 0 - idate = 0 - rinc(2) = -1.0*ifhr - call w3movdat(rinc,jdate,idate) - SDAT(1) = idate(2) - SDAT(2) = idate(3) - SDAT(3) = idate(1) - IHRST = idate(5) - print*,'new forecast hours for restrt run= ',ifhr - print*,'new start yr mo day hr min =',sdat(3),sdat(1) & - ,sdat(2),ihrst,imin - END IF - - imp_physics = 99 !set GFS mp physics to 99 for Zhao scheme - print*,'MP_PHYSICS= ',imp_physics - -! Initializes constants for Ferrier microphysics - if(imp_physics==5 .or. imp_physics==85 .or. imp_physics==95)then - CALL MICROINIT(imp_physics) - end if - -! IVEGSRC=1 for IGBP, 0 for USGS, 2 for UMD - VarName='IVEGSRC' - if(me == 0)then - call nemsio_getheadvar(nfile,trim(VarName),IVEGSRC,iret) - if (iret /= 0) then - print*,VarName,' not found in file-Assigned 2 for UMD as default' - IVEGSRC=1 - end if - end if - call mpi_bcast(IVEGSRC,1,MPI_INTEGER,0,mpi_comm_comp,iret) - print*,'IVEGSRC= ',IVEGSRC - -! set novegtype based on vegetation classification - if(ivegsrc==2)then - novegtype=13 - else if(ivegsrc==1)then - novegtype=20 - else if(ivegsrc==0)then - novegtype=24 - end if - print*,'novegtype= ',novegtype - - VarName='CU_PHYSICS' - if(me == 0)then - call nemsio_getheadvar(nfile,trim(VarName),iCU_PHYSICS,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned 4 for SAS as default" - iCU_PHYSICS=4 - end if - end if - call mpi_bcast(iCU_PHYSICS,1,MPI_INTEGER,0,mpi_comm_comp,iret) - if (me == 0) print*,'CU_PHYSICS= ',iCU_PHYSICS -! waiting to retrieve lat lon infor from raw GFS output -! VarName='DX' - -! VarName='DY' - -! GFS does not need DT to compute accumulated fields, set it to one -! VarName='DT' - DT=1 -! GFS does not need truelat -! VarName='TRUELAT1' - -! VarName='TRUELAT2' - -! Specigy maptype=4 for Gaussian grid -! maptype=4 -! write(6,*) 'maptype is ', maptype -! HBM2 is most likely not in Grib message, set them to ones - HBM2=1.0 - -! try to get kgds from flux grib file and then convert to igds that is used by GRIBIT.f -! flux files are now nemsio files so comment the following lines out -! if(me == 0)then -! jpds=-1.0 -! jgds=-1.0 -! igds=0 -! call getgb(iunit,0,im_jm,0,jpds,jgds,kf & -! ,k,kpds,kgds,lb,dummy,ierr) -! if(ierr == 0)then -! call R63W72(KPDS,KGDS,JPDS,IGDS(1:18)) -! print*,'in INITPOST_GFS,IGDS for GFS= ',(IGDS(I),I=1,18) -! end if -! end if -! call mpi_bcast(igds(1),18,MPI_INTEGER,0,mpi_comm_comp,iret) -! print*,'IGDS for GFS= ',(IGDS(I),I=1,18) - -! Specigy grid type -! if(iostatusFlux==0)then - if(IGDS(4)/=0)then - maptype=IGDS(3) - else if((im/2+1)==jm)then - maptype=0 !latlon grid - else - maptype=4 ! default gaussian grid - end if - gridtype='A' - - if (me == 0) write(6,*) 'maptype and gridtype is ', maptype,gridtype - -! start retrieving data using gfsio, first land/sea mask - -! VarName='land' -! VcoordName='sfc' -! l=1 - -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) -! + ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! else -! -! do j = 1, jm -! do i = 1, im -! dummy(I,J)=1.0 - dummy(I,J) ! convert Grib message to 2D -! if (j == jm/2 .and. mod(i,10) == 0) -! + print*,'sample ',VarName, ' = ',i,j,dummy(i,j) -! -! enddo -! enddo -! end if -! end if -! -! call mpi_scatterv(dummy,icnt,idsp,mpi_real -! + ,sm(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - - VcoordName='sfc' ! surface fileds - l=1 - -! start retrieving data using getgb, first land/sea mask - VarName='land' - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,impf,jmpf,nframe,sm) - -! where(sm /= spval)sm=1.0-sm ! convert to sea mask -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= spval) sm(i,j) = 1.0 - sm(i,j) - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',sm(isa,jsa) - - -! sea ice mask using getgb - - VarName='icec' - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sice) - -! if(debugprint)print*,'sample ',VarName,' = ',sice(isa,jsa) - -! where(sice /=spval .and. sice >=1.0)sm=0.0 !sea ice has sea mask=0 -! GFS flux files have land points with non-zero sea ice, per Iredell, these -! points have sea ice changed to zero, i.e., trust land mask more than sea ice -! where(sm/=spval .and. sm==0.0)sice=0.0 !specify sea ice=0 at land - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= spval .and. sm(i,j) == 0.0) sice(i,j) = 0.0 - enddo - enddo - -! Terrain height * G using nemsio - VarName='hgt' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,fis) - -! where(fis /= spval)fis=fis*grav - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (fis(i,j) /= spval) then - zint(i,j,lp1) = fis(i,j) - fis(i,j) = fis(i,j) * grav - - endif - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',fis(isa,jsa) - -! Surface pressure using nemsio - VarName='pres' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pint(1,jsta_2l,lp1)) - -! if(debugprint)print*,'sample surface pressure = ',pint(isa,jsa,lp1 - -! -! vertical loop for Layer 3d fields -! -------------------------------- - VcoordName = 'mid layer' - - do l=1,lm - ll=lm-l+1 - -! model level T - print*,'start retrieving GFS T using nemsio' - VarName='tmp' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,t(1,jsta_2l,ll)) - -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,t(isa,jsa,ll) - -! model level q - VarName='spfh' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,q(1,jsta_2l,ll)) -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,q(isa,jsa,ll) - -! i model level u - VarName='ugrd' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,uh(1,jsta_2l,ll)) -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,uh(isa,jsa,ll) - -! model level v - VarName='vgrd' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,vh(1,jsta_2l,ll)) -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,vh(isa,jsa,ll) - -! model level pressure - if (.not. hyb_sigp) then - VarName='pres' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pmid(1,jsta_2l,ll)) -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,pmid(isa,jsa,ll) - -! GFS is on A grid and does not need PMIDV - -! dp - VarName='dpres' -! write(0,*)' bef getnemsandscatter ll=',ll,' l=',l,VarName - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dpres(1,jsta_2l,ll)) -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,pmid(isa,jsa,ll) - endif -! ozone mixing ratio - VarName='o3mr' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,o3(1,jsta_2l,ll)) - -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,o3(isa,jsa,ll) -! write(1000+me,*)'sample ',ll,VarName,' = ',ll,o3(isa,jsa,ll) - -! cloud water and ice mixing ratio for zhao scheme -! need to look up old eta post to derive cloud water/ice from cwm -! Zhao scheme does not produce suspended rain and snow - -!$omp parallel do private(i,j) - do j = jsta, jend - do i=1,im - qqw(i,j,ll) = 0. - qqr(i,j,ll) = 0. - qqs(i,j,ll) = 0. - qqi(i,j,ll) = 0. - enddo - enddo - - VarName='clwmr' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,cwm(1,jsta_2l,ll)) -! if(debugprint)print*,'sample ',ll,VarName,' = ',ll,cwm(isa,jsa,ll) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if(t(i,j,ll) < (TFRZ-15.) )then ! dividing cloud water from ice - qqi(i,j,ll) = cwm(i,j,ll) - else - qqw(i,j,ll) = cwm(i,j,ll) - end if -! if (j == jm/2 .and. mod(i,50) == 0) -! + print*,'sample ',trim(VarName), ' after scatter= ' -! + ,i,j,ll,cwm(i,j,ll) - end do - end do -! if (iret /= 0)print*,'Error scattering array';stop - -! pressure vertical velocity - VarName='vvel' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,omga(1,jsta_2l,ll)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,omga(isa,jsa,ll) - -! With SHOC NEMS/GSM does output TKE now - VarName='tke' - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,q2(1,jsta_2l,ll)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,q2(isa,jsa,ll) - - - end do ! do loop for l - -! construct interface pressure from model top (which is zero) and dp from top down PDTOP -! pdtop = spval - pt = 0. -! pd = spval ! GFS does not output PD - - ii = im/2 - jj = (jsta+jend)/2 - -!!!!! COMPUTE Z, GFS integrates Z on mid-layer instead -!!! use GFS contants to see if height becomes more aggreable to GFS pressure grib file - if (hyb_sigp) then - do l=lm,1,-1 -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - pint(i,j,l) = ak5(lm+2-l) + bk5(lm+2-l)*pint(i,j,lp1) - pmid(i,j,l) = 0.5*(pint(i,j,l)+pint(i,j,l+1)) ! for now - Moorthi - enddo - enddo - if (me == 0) print*,'sample pint,pmid' ,ii,jj,l,pint(ii,jj,l),pmid(ii,jj,l) - enddo - else - do l=2,lm -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - pint(i,j,l) = pint(i,j,l-1) + dpres(i,j,l-1) - enddo - enddo - if (me == 0) print*,'sample pint,pmid' ,ii,jj,l,pint(ii,jj,l),pmid(ii,jj,l) - end do - endif - - allocate(wrk1(im,jsta:jend),wrk2(im,jsta:jend)) - allocate(fi(im,jsta:jend,2)) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - pd(i,j) = spval ! GFS does not output PD - pint(i,j,1) = PT - alpint(i,j,lp1) = log(pint(i,j,lp1)) - wrk1(i,j) = log(PMID(I,J,LM)) - wrk2(i,j) = T(I,J,LM)*(Q(I,J,LM)*fv+1.0) - FI(I,J,1) = FIS(I,J) & - + wrk2(i,j)*rgas*(ALPINT(I,J,Lp1)-wrk1(i,j)) - ZMID(I,J,LM) = FI(I,J,1) * gravi - end do - end do - - print *,' Tprof=',t(ii,jj,:) - print *,' Qprof=',q(ii,jj,:) - -! SECOND, INTEGRATE HEIGHT HYDROSTATICLY, GFS integrate height on mid-layer - - DO L=LM,2,-1 ! omit computing model top height because it's infinity - ll = l - 1 -! write(0,*)' me=',me,'ll=',ll,' gravi=',gravi,rgas,' fv=',fv -!$omp parallel do private(i,j,tvll,pmll,fact) - do j = jsta, jend -! write(0,*)' j=',j,' me=',me - do i = 1, im - alpint(i,j,l) = log(pint(i,j,l)) - tvll = T(I,J,LL)*(Q(I,J,LL)*fv+1.0) - pmll = log(PMID(I,J,LL)) - -! if (me == 0 .and. i == ii .and. j == jj ) print*,'L ZINT= ',l,' tvll =', tvll, & -! ' pmll=',pmll,' wrk2=',wrk2(i,j),' wrk1=',wrk1(i,j),' fi1=',fi(i,j,1), & -! ' T=',T(i,j,LL),' Q=',Q(i,j,ll) - - FI(I,J,2) = FI(I,J,1) + (0.5*rgas)*(wrk2(i,j)+tvll) & - * (wrk1(i,j)-pmll) - ZMID(I,J,LL) = FI(I,J,2) * gravi -! - FACT = (ALPINT(I,J,L)-wrk1(i,j)) / (pmll-wrk1(i,j)) - ZINT(I,J,L) = ZMID(I,J,L) + (ZMID(I,J,LL)-ZMID(I,J,L)) * FACT - FI(I,J,1) = FI(I,J,2) - wrk1(i,J) = pmll - wrk2(i,j) = tvll -! if (me == 0 .and. i == ii .and. j == jj ) print*,'L ZINT= ',l,zint(ii,jj,l), & -! 'alpint=',ALPINT(ii,jj,l),'pmid=',LOG(PMID(Ii,Jj,L)),'pmid(l-1)=', & -! LOG(PMID(Ii,Jj,L-1)),'zmd=',ZMID(Ii,Jj,L),'zmid(l-1)=',ZMID(Ii,Jj,L-1) - ENDDO - ENDDO - - if (me == 0) print*,'L ZINT= ',l,zint(ii,jj,l), & - 'alpint=',ALPINT(ii,jj,l),'pmid=',LOG(PMID(Ii,Jj,L)),'pmid(l-1)=', & - LOG(PMID(Ii,Jj,L-1)),'zmd=',ZMID(Ii,Jj,L),'zmid(l-1)=',ZMID(Ii,Jj,L-1) - ENDDO - deallocate(wrk1,wrk2,fi) - - - if (gocart_on) then - -! GFS output dust in nemsio (GOCART) - do n=1,nbin_du - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - dust(i,j,l,n) = spval - enddo - enddo - enddo - enddo -! DUST = SPVAL - VarName='du001' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dust(1,jsta_2l,ll,1)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,dust(isa,jsa,ll,1) - end do ! do loop for l - - VarName='du002' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dust(1,jsta_2l,ll,2)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,dust(isa,jsa,ll,2) - end do ! do loop for l - - VarName='du003' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dust(1,jsta_2l,ll,3)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,dust(isa,jsa,ll,3) - end do ! do loop for l - - VarName='du004' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dust(1,jsta_2l,ll,4)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,dust(isa,jsa,ll,4) - end do ! do loop for l - - VarName='du005' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dust(1,jsta_2l,ll,5)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,dust(isa,jsa,ll,5) - end do ! do loop for l -! -! GFS output sea salt in nemsio (GOCART) - do n=1,nbin_ss - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - salt(i,j,l,n) = spval - enddo - enddo - enddo - enddo -! SALT = SPVAL - VarName='ss001' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,salt(1,jsta_2l,ll,1)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,salt(isa,jsa,ll,1) - end do ! do loop for l - - VarName='ss002' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,salt(1,jsta_2l,ll,2)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,salt(isa,jsa,ll,2) - end do ! do loop for l - - VarName='ss003' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,salt(1,jsta_2l,ll,3)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,salt(isa,jsa,ll,3) - end do ! do loop for l - - VarName='ss004' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,salt(1,jsta_2l,ll,4)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,salt(isa,jsa,ll,4) - end do ! do loop for l - - VarName='ss005' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,salt(1,jsta_2l,ll,5)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,salt(isa,jsa,ll,5) - end do ! do loop for l - -! GFS output black carbon in nemsio (GOCART) - do n=1,nbin_oc - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - soot(i,j,l,n) = spval - enddo - enddo - enddo - enddo -! SOOT = SPVAL - VarName='bcphobic' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,soot(1,jsta_2l,ll,1)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,soot(isa,jsa,ll,1) - end do ! do loop for l - - VarName='bcphilic' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,soot(1,jsta_2l,ll,2)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,soot(isa,jsa,ll,2) - end do ! do loop for l - -! GFS output organic carbon in nemsio (GOCART) - do n=1,nbin_oc - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - waso(i,j,l,n) = spval - enddo - enddo - enddo - enddo -! WASO = SPVAL - VarName='ocphobic' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,waso(1,jsta_2l,ll,1)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,waso(isa,jsa,ll,1) - end do ! do loop for l - - VarName='ocphilic' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,waso(1,jsta_2l,ll,2)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,waso(isa,jsa,ll,2) - end do ! do loop for l - -! GFS output sulfate in nemsio (GOCART) - do n=1,nbin_su - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - suso(i,j,l,n) = spval - enddo - enddo - enddo - enddo -! SUSO = SPVAL - VarName='so4' - VcoordName='mid layer' - do l=1,lm - ll=lm-l+1 - call getnemsandscatter(me,nfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,suso(1,jsta_2l,ll,1)) -! if(debugprint)print*,'sample l ',VarName,' = ',ll,suso(isa,jsa,ll,1) - end do ! do loop for l - - -! -- compute air density RHOMID and remove negative tracer values - do l=1,lm -!$omp parallel do private(i,j,n,tv) - do j=jsta,jend - do i=1,im - - TV = T(I,J,L) * (H1+D608*MAX(Q(I,J,L),QMIN)) - RHOMID(I,J,L) = PMID(I,J,L) / (RD*TV) - do n = 1, NBIN_DU - IF ( dust(i,j,l,n) < SPVAL) THEN - DUST(i,j,l,n) = MAX(DUST(i,j,l,n), 0.0) - ENDIF - enddo - do n = 1, NBIN_SS - IF ( salt(i,j,l,n) < SPVAL) THEN - SALT(i,j,l,n) = MAX(SALT(i,j,l,n), 0.0) - ENDIF - enddo - do n = 1, NBIN_OC - IF ( waso(i,j,l,n) < SPVAL) THEN - WASO(i,j,l,n) = MAX(WASO(i,j,l,n), 0.0) - ENDIF - enddo - do n = 1, NBIN_BC - IF ( soot(i,j,l,n) < SPVAL) THEN - SOOT(i,j,l,n) = MAX(SOOT(i,j,l,n), 0.0) - ENDIF - enddo - do n = 1, NBIN_SU - IF ( suso(i,j,l,n) < SPVAL) THEN - SUSO(i,j,l,n) = MAX(SUSO(i,j,l,n), 0.0) - ENDIF - enddo - - end do - end do - end do - endif ! endif for gocart_on -! - -! PBL height using nemsio - VarName='hpbl' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pblh) -! if(debugprint)print*,'sample ',VarName,' = ',pblh(isa,jsa) - -! frictional velocity using nemsio - VarName='fricv' -! VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ustar) -! if(debugprint)print*,'sample ',VarName,' = ',ustar(isa,jsa) - -! roughness length using getgb - VarName='sfcr' -! VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,z0) -! if(debugprint)print*,'sample ',VarName,' = ',z0(isa,jsa) - -! surface potential T using getgb - VarName='tmp' -! VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ths) - -! where(ths/=spval)ths=ths*(p1000/pint(:,:,lp1))**CAPA ! convert to THS - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (ths(i,j) /= spval) then -! write(0,*)' i=',i,' j=',j,' ths=',ths(i,j),' pint=',pint(i,j,lp1) - ths(i,j) = ths(i,j) * (p1000/pint(i,j,lp1))**capa - endif - QS(i,j) = SPVAL ! GFS does not have surface specific humidity - twbs(i,j) = SPVAL ! GFS does not have inst sensible heat flux - qwbs(i,j) = SPVAL ! GFS does not have inst latent heat flux - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',ths(isa,jsa) - - -! GFS does not have time step and physics time step, make up ones since they -! are not really used anyway - NPHS=2. - DT=80. - DTQ2 = DT * NPHS !MEB need to get physics DT - TSPH = 3600./DT !MEB need to get DT -! All GFS time-averaged quantities are in 6 hour bucket -! TPREC=6.0 - -! convective precip in m per physics time step using gfsio -! VarName='cprat' -! VcoordName='sfc' -! l=1 -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) & -! + ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! else -! do j = 1, jm -! do i = 1, im -! dummy(I,J)= dummy(i,j)*dtq2/1000. ! convert to m -! if (j == jm/2 .and. mod(i,50) == 0) -! + print*,'sample ',VarName, ' = ',i,j,dummy(i,j) -! enddo -! enddo -! end if -! end if -! call mpi_scatterv(dummy,icnt,idsp,mpi_real & -! + , avgcprate(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - -! convective precip in m per physics time step using getgb - VarName='cprat' -! VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,avgcprate) -! where(avgcprate /= spval)avgcprate=avgcprate*dtq2/1000. ! convert to m -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcprate(i,j) /= spval) avgcprate(i,j) = avgcprate(i,j) * (dtq2*0.001) - cprate(i,j) = avgcprate(i,j) - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcprate(isa,jsa) - -! print*,'maxval CPRATE: ', maxval(CPRATE) - -! precip rate in m per physics time step using getgb - VarName='prate' -! VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,avgprec) -! where(avgprec /= spval)avgprec=avgprec*dtq2/1000. ! convert to m -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgprec(i,j) /= spval) avgprec(i,j) = avgprec(i,j) * (dtq2*0.001) - enddo - enddo - -! if(debugprint)print*,'sample ',VarName,' = ',avgprec(isa,jsa) - - prec=avgprec !set avg cprate to inst one to derive other fields - -! GFS does not have accumulated total, gridscale, and convective precip, will use inst precip to derive in SURFCE.f - - -! inst snow water eqivalent using nemsio - VarName='weasd' -! VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sno) -! if(debugprint)print*,'sample ',VarName,' = ',sno(isa,jsa) - -! snow depth in mm using nemsio - VarName='snod' -! VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,si) -! where(si /= spval)si=si*1000. ! convert to mm -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (si(i,j) /= spval) si(i,j) = si(i,j) * 1000.0 - CLDEFI(i,j) = SPVAL ! GFS does not have convective cloud efficiency - lspa(i,j) = spval ! GFS does not have similated precip - TH10(i,j) = SPVAL ! GFS does not have 10 m theta - TH10(i,j) = SPVAL ! GFS does not have 10 m theta - Q10(i,j) = SPVAL ! GFS does not have 10 m humidity - ALBASE(i,j) = SPVAL ! GFS does not have snow free albedo - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',si(isa,jsa) - -!!$omp parallel do private(i,j,l) -! do l=1,lm -! do j=jsta,jend -! do i=1,im -! Q2(i,j,l) = SPVAL ! GFS does not have TKE because it uses MRF scheme -! ! GFS does not have surface exchange coeff -! enddo -! enddo -! enddo - -! 2m T using nemsio - VarName='tmp' - VcoordName='2 m above gnd' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,tshltr) -! if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) - -! GFS does not have 2m pres, estimate it, also convert t to theta - Do j=jsta,jend - Do i=1,im - PSHLTR(I,J)=pint(I,J,lm+1)*EXP(-0.068283/tshltr(i,j)) - tshltr(i,j)= tshltr(i,j)*(p1000/PSHLTR(I,J))**CAPA ! convert to theta -! if (j == jm/2 .and. mod(i,50) == 0) -! + print*,'sample 2m T and P after scatter= ' -! + ,i,j,tshltr(i,j),pshltr(i,j) - end do - end do - -! 2m specific humidity using gfsio -! VarName='spfh' -! VcoordName='2m above gnc' -! l=1 -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) & -! + ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! end if -! end if -! call mpi_scatterv(dummy,icnt,idsp,mpi_real & -! + ,qshltr(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - -! 2m specific humidity using nemsio - VarName='spfh' - VcoordName='2 m above gnd' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,qshltr) -! if(debugprint)print*,'sample ',VarName,' = ',qshltr(isa,jsa) - - -! mid day avg albedo in fraction using gfsio -! VarName='albdo' -! VcoordName='sfc' -! l=1 -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) & -! + ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! else -! do j = 1, jm -! do i = 1, im -! dummy(I,J)= dummy(i,j)/100. ! convert to fraction -! if (j == jm/2 .and. mod(i,50) == 0) -! + print*,'sample ',VarName, ' = ',i,j,dummy(i,j) -! enddo -! enddo -! end if -! end if -! call mpi_scatterv(dummy,icnt,idsp,mpi_real & -! + ,avgalbedo(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - -! mid day avg albedo in fraction using nemsio - VarName='albdo' - VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,avgalbedo) -! where(avgalbedo /= spval)avgalbedo=avgalbedo/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgalbedo(i,j) /= spval) avgalbedo(i,j) = avgalbedo(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) - -! time averaged column cloud fractionusing nemsio - VarName='tcdc' - VcoordName='atmos col' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,avgtcdc) -! where(avgtcdc /= spval)avgtcdc=avgtcdc/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgtcdc(i,j) /= spval) avgtcdc(i,j) = avgtcdc(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgtcdc(isa,jsa) - -! GFS probably does not use zenith angle -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - Czen(i,j) = spval - CZMEAN(i,j) = SPVAL - enddo - enddo - -! maximum snow albedo in fraction using nemsio - VarName='mxsalb' - VcoordName='sfc' -! l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,mxsnal) -! where(mxsnal /= spval)mxsnal=mxsnal/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (mxsnal(i,j) /= spval) mxsnal(i,j) = mxsnal(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',mxsnal(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - radot(i,j) = spval ! GFS does not have inst surface outgoing longwave - enddo - enddo - -! GFS probably does not use sigt4, set it to sig*t^4 -!$omp parallel do private(i,j,tlmh) - Do j=jsta,jend - Do i=1,im - TLMH = T(I,J,LM) * T(I,J,LM) - Sigt4(i,j) = 5.67E-8 * TLMH * TLMH - End do - End do - -! TG is not used, skip it for now - -! will retrive f_ice when GFS switches to Ferrier scheme -! varname='F_ICE' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! F_ice=SPVAL -! else -! this_offset=file_offset(index+1)+(jsta_2l-1)*4*im*lm -! this_length=im*(jend_2u-jsta_2l+1)*lm -! call mpi_file_read_at(iunit,this_offset -! + ,buf3d,this_length,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName,"Assigned missing values" -! F_ice=SPVAL -! else -! do l = 1, lm -! ll=lm-l+1 -! do j = jsta_2l, jend_2u -! do i = 1, im -! F_ice( i, j, l ) = buf3d ( i, ll, j ) -! if(i == im/2.and.j == (jsta+jend)/2)print*,'sample F_ice= ', -! + i,j,l,F_ice( i, j, l ) -! end do -! end do -! end do -! end if -! end if - -! varname='F_RAIN' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! F_rain=SPVAL -! else -! this_offset=file_offset(index+1)+(jsta_2l-1)*4*im*lm -! this_length=im*(jend_2u-jsta_2l+1)*lm -! call mpi_file_read_at(iunit,this_offset -! + ,buf3d,this_length,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName,"Assigned missing values" -! F_rain=SPVAL -! else -! do l = 1, lm -! ll=lm-l+1 -! do j = jsta_2l, jend_2u -! do i = 1, im -! F_rain( i, j, l ) = buf3d ( i, ll, j ) -! if(i == im/2.and.j == (jsta+jend)/2)print*,'sample F_rain= ', -! + i,j,l,F_rain( i, j, l ) -! end do -! end do -! end do -! end if -! end if - -! varname='F_RIMEF' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! F_RimeF=SPVAL -! else -! this_offset=file_offset(index+1)+(jsta_2l-1)*4*im*lm -! this_length=im*(jend_2u-jsta_2l+1)*lm -! call mpi_file_read_at(iunit,this_offset -! + ,buf3d,this_length,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName,"Assigned missing values" -! F_RimeF=SPVAL -! else -! do l = 1, lm -! ll=lm-l+1 -! do j = jsta_2l, jend_2u -! do i = 1, im -! F_RimeF( i, j, l ) = buf3d ( i, ll, j ) -! if(i == im/2.and.j == (jsta+jend)/2)print*, -! + 'sample F_RimeF= ',i,j,l,F_RimeF( i, j, l ) -! end do -! end do -! end do -! end if -! end if - -! GFS does not have model level cloud fraction -> derive cloud fraction -! CFR=SPVAL -! allocate(qstl(lm)) -! print*,'start deriving cloud fraction' - -! do j=jsta,jend -! do i=1,im -! do l=1,lm -! if(i==im/2.and.j==jsta)print*,'sample T=',t(i,j,l) -! es=fpvsnew(t(i,j,l)) -! if(i==im/2.and.j==jsta)print*,'sample ES=',es -! es=min(es,pmid(i,j,l)) -! if(i==im/2.and.j==jsta)print*,'sample ES=',es -! qstl(l)=con_eps*es/(pmid(i,j,l)+con_epsm1*es) !saturation q for GFS -! end do -! call progcld1 -!................................... - -! --- inputs: -! & ( pmid(i,j,1:lm)/100.,pint(i,j,1:lm+1)/100., -! & t(i,j,1:lm),q(i,j,1:lm),qstl,cwm(i,j,1:lm), -! & gdlat(i,j),gdlon(i,j), -! & 1, lm, lm+1, 0, -! --- outputs: -! & cfr(i,j,1:lm) -! & ) -! do l=1,lm -! cfr(i,j,l)=cldtot(l) -! end do -! end do -! end do - allocate(p2d(im,lm),t2d(im,lm),q2d(im,lm),cw2d(im,lm), & - qs2d(im,lm),cfr2d(im,lm)) - do j=jsta,jend -!$omp parallel do private(i,k,es) - do k=1,lm - do i=1,im - p2d(i,k) = pmid(i,j,k)*0.01 - t2d(i,k) = t(i,j,k) - q2d(i,k) = q(i,j,k) - cw2d(i,k) = cwm(i,j,k) - es = min(fpvsnew(t(i,j,k)),pmid(i,j,k)) - qs2d(i,k) = eps*es/(pmid(i,j,k)+epsm1*es)!saturation q for GFS - enddo - enddo - call progcld1 & -!................................... -! --- inputs: - ( p2d,t2d,q2d,qs2d,cw2d,im,lm,0, & -! --- outputs: - cfr2d & - ) -!$omp parallel do private(i,k) - do k=1,lm - do i=1,im - cfr(i,j,k) = cfr2d(i,k) - enddo - end do - end do - deallocate(p2d,t2d,q2d,qs2d,cw2d,cfr2d) - - -! ask murthy if there is snow rate in GFS -! varname='SR' -! call retrieve_index(index,VarName,varname_all,nrecs,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! SR=SPVAL -! else -! this_offset=file_offset(index+1)+(jsta_2l-1)*4*im -! this_length=im*(jend_2u-jsta_2l+1) -! call mpi_file_read_at(iunit,this_offset -! + ,sr,this_length,mpi_real4 -! + , mpi_status_ignore, ierr) -! if (ierr /= 0) then -! print*,"Error reading ", VarName,"Assigned missing values" -! SR=SPVAL -! end if -! end if - -! GFS does not have inst cloud fraction for high, middle, and low cloud -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - cfrach(i,j) = spval - cfracl(i,j) = spval - cfracm(i,j) = spval - enddo - enddo - -! ave high cloud fraction using nemsio - VarName='tcdc' - VcoordName='high cld lay' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,avgcfrach) -! where(avgcfrach /= spval)avgcfrach=avgcfrach/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfrach(i,j) /= spval) avgcfrach(i,j) = avgcfrach(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcfrach(isa,jsa) - -! ave low cloud fraction using nemsio - VarName='tcdc' - VcoordName='low cld lay' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,avgcfracl) -! where(avgcfracl /= spval)avgcfracl=avgcfracl/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfracl(i,j) /= spval) avgcfracl(i,j) = avgcfracl(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcfracl(isa,jsa) - -! ave middle cloud fraction using nemsio - VarName='tcdc' - VcoordName='mid cld lay' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,avgcfracm) -! where(avgcfracm /= spval)avgcfracm=avgcfracm/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfracm(i,j) /= spval) avgcfracm(i,j) = avgcfracm(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcfracm(isa,jsa) - -! inst convective cloud fraction using nemsio - VarName='tcdc' - VcoordName='convect-cld laye' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,cnvcfr) -! where(cnvcfr /= spval)cnvcfr=cnvcfr/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cnvcfr(i,j) /= spval) cnvcfr (i,j)= cnvcfr(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',cnvcfr(isa,jsa) - -! slope type using nemsio - VarName='sltyp' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,buf) -! where(buf /= spval)islope=nint(buf) -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - islope(i,j) = nint(buf(i,j)) - else - islope(i,j) = 0 - endif - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',islope(isa,jsa) - -! plant canopy sfc wtr in m using nemsio - VarName='cnwat' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,cmc) -! where(cmc /= spval)cmc=cmc/1000. ! convert from kg*m^2 to m -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cmc(i,j) /= spval) cmc(i,j) = cmc(i,j) * 0.001 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',cmc(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - grnflx(i,j) = spval ! GFS does not have inst ground heat flux - enddo - enddo - -! GFS does not have snow cover yet -! VarName='gflux' -! VcoordName='sfc' -! l=1 -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) & -! + ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! end if -! end if -! call mpi_scatterv(dummy,icnt,idsp,mpi_real & -! + , pctsno(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - -! asuume tg3 in GFS is the same as soiltb in wrf nmm. It's in sfc file, will -! be able to read it when it merges to gfs io -! soiltb is not being put out, comment it out -! VarName='tg3' -! VcoordName='sfc' -! l=1 -! if(me == 0)then -! call gfsio_readrecvw34(gfile,trim(VarName),trim(VcoordName) & -! ,l,dummy,iret=iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dummy=spval -! end if -! end if -! call mpi_scatterv(dummy(1,1),icnt,idsp,mpi_real & -! , soiltb(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) -! if (iret /= 0)print*,'Error scattering array';stop - -! vegetation fraction in fraction. using nemsio - VarName='veg' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,vegfrc) -! where(vegfrc /= spval) -! vegfrc=vegfrc/100. ! convert to fraction -! elsewhere (vegfrc == spval) -! vegfrc=0. ! set to zero to be reasonable input for crtm -! end where -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (vegfrc(i,j) /= spval) then - vegfrc(i,j) = vegfrc(i,j) * 0.01 - else - vegfrc(i,j) = 0.0 - endif - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',vegfrc(isa,jsa) - -! GFS doesn not yet output soil layer thickness, assign SLDPTH to be the same as nam - - SLDPTH(1) = 0.10 - SLDPTH(2) = 0.3 - SLDPTH(3) = 0.6 - SLDPTH(4) = 1.0 - -! liquid volumetric soil mpisture in fraction using nemsio - VarName='soill' - VcoordName='0-10 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sh2o(1,jsta_2l,1)) -! if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,1) - - VarName='soill' - VcoordName='10-40 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sh2o(1,jsta_2l,2)) -! if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,2) - - VarName='soill' - VcoordName='40-100 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sh2o(1,jsta_2l,3)) -! if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,3) - - VarName='soill' - VcoordName='100-200 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sh2o(1,jsta_2l,4)) -! if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,4) - -! volumetric soil moisture using nemsio - VarName='soilw' - VcoordName='0-10 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,smc(1,jsta_2l,1)) -! if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,1) - - VarName='soilw' - VcoordName='10-40 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,smc(1,jsta_2l,2)) -! if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,2) - - VarName='soilw' - VcoordName='40-100 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,smc(1,jsta_2l,3)) -! if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,3) - - VarName='soilw' - VcoordName='100-200 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,smc(1,jsta_2l,4)) -! if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,4) - -! soil temperature using nemsio - VarName='tmp' - VcoordName='0-10 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,stc(1,jsta_2l,1)) -! if(debugprint)print*,'sample l','stc',' = ',1,stc(isa,jsa,1) - - VarName='tmp' - VcoordName='10-40 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,stc(1,jsta_2l,2)) -! if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,2) - - VarName='tmp' - VcoordName='40-100 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,stc(1,jsta_2l,3)) -! if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,3) - - VarName='tmp' - VcoordName='100-200 cm down' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,stc(1,jsta_2l,4)) -! if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,4) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - acfrcv(i,j) = spval ! GFS does not output time averaged convective and strat cloud fraction, set acfrcv to spval, ncfrcv to 1 - ncfrcv(i,j) = 1.0 - acfrst(i,j) = spval ! GFS does not output time averaged cloud fraction, set acfrst to spval, ncfrst to 1 - ncfrst(i,j) = 1.0 - ssroff(i,j) = spval ! GFS does not have storm runoff - bgroff(i,j) = spval ! GFS does not have UNDERGROUND RUNOFF - rlwin(i,j) = spval ! GFS does not have inst incoming sfc longwave - rlwtoa(i,j) = spval ! GFS does not have inst model top outgoing longwave - enddo - enddo -! trdlw(i,j) = 6.0 - ardlw = 1.0 ! GFS incoming sfc longwave has been averaged over 6 hr bucket, set ARDLW to 1 - -! time averaged incoming sfc longwave using nemsio - VarName='dlwrf' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,alwin) - -! time averaged outgoing sfc longwave using gfsio - VarName='ulwrf' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,alwout) -! where(alwout /= spval) alwout=-alwout ! CLDRAD puts a minus sign before gribbing -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (alwout(i,j) /= spval) alwout(i,j) = -alwout(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,alwout(isa,jsa) - -! time averaged outgoing model top longwave using gfsio - VarName='ulwrf' - VcoordName='nom. top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,alwtoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,alwtoa(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - rswin(i,j) = spval ! GFS does not have inst incoming sfc shortwave - rswinc(i,j) = spval ! GFS does not have inst incoming clear sky sfc shortwave - rswout(i,j) = spval ! GFS does not have inst outgoing sfc shortwave - enddo - enddo - -! GFS incoming sfc longwave has been averaged, set ARDLW to 1 - ardsw=1.0 -! trdsw=6.0 - -! time averaged incoming sfc shortwave using gfsio - VarName='dswrf' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,aswin) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswin(isa,jsa) - -! time averaged incoming sfc uv-b using getgb - VarName='duvb' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,auvbin) -! if(debugprint)print*,'sample l',VarName,' = ',1,auvbin(isa,jsa) - -! time averaged incoming sfc clear sky uv-b using getgb - VarName='cduvb' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,auvbinc) -! if(debugprint)print*,'sample l',VarName,' = ',1,auvbinc(isa,jsa) - -! time averaged outgoing sfc shortwave using gfsio - VarName='uswrf' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,aswout) -! where(aswout /= spval) aswout=-aswout ! CLDRAD puts a minus sign before gribbing -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (aswout(i,j) /= spval) aswout(i,j) = -aswout(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,aswout(isa,jsa) - -! time averaged model top incoming shortwave - VarName='dswrf' - VcoordName='nom. top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,aswintoa) - -! time averaged model top outgoing shortwave - VarName='uswrf' - VcoordName='nom. top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,aswtoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswtoa(isa,jsa) - -! time averaged surface sensible heat flux, multiplied by -1 because wrf model flux -! has reversed sign convention using gfsio - VarName='shtfl' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sfcshx) -! where (sfcshx /= spval)sfcshx=-sfcshx -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sfcshx(i,j) /= spval) sfcshx(i,j) = -sfcshx(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcshx(isa,jsa) - -! GFS surface flux has been averaged, set ASRFC to 1 - asrfc=1.0 -! tsrfc=6.0 - -! time averaged surface latent heat flux, multiplied by -1 because wrf model flux -! has reversed sign vonvention using gfsio - VarName='lhtfl' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sfclhx) -! where (sfclhx /= spval)sfclhx=-sfclhx -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sfclhx(i,j) /= spval) sfclhx(i,j) = -sfclhx(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,sfclhx(isa,jsa) - -! time averaged ground heat flux using nemsio - VarName='gflux' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,subshx) -! if(debugprint)print*,'sample l',VarName,' = ',1,subshx(isa,jsa) - -! time averaged zonal momentum flux using gfsio - VarName='uflx' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sfcux) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcux(isa,jsa) - -! time averaged meridional momentum flux using nemsio - VarName='vflx' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,sfcvx) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcvx(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - snopcx(i,j) =spval ! GFS does not have snow phase change heat flux - sfcuvx(i,j) = spval ! GFS does not use total momentum flux - enddo - enddo - -! time averaged zonal gravity wave stress using nemsio - VarName='u-gwd' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,gtaux) -! if(debugprint)print*,'sample l',VarName,' = ',1,gtaux(isa,jsa) - -! time averaged meridional gravity wave stress using getgb - VarName='v-gwd' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,gtauy) -! if(debugprint)print*,'sample l',VarName,' = ',1,gtauy(isa,jsa) - -! time averaged accumulated potential evaporation - VarName='pevpr' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,potevp) -! if(debugprint)print*,'sample l',VarName,' = ',1,potevp(isa,jsa) - - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im -! GFS does not have temperature tendency due to long wave radiation - rlwtt(i,j,l) = spval -! GFS does not have temperature tendency due to short wave radiation - rswtt(i,j,l) = spval -! GFS does not have temperature tendency due to latent heating from convection - tcucn(i,j,l) = spval - tcucns(i,j,l) = spval -! GFS does not have temperature tendency due to latent heating from grid scale - train(i,j,l) = spval - enddo - enddo - enddo - -! set avrain to 1 - avrain=1.0 - avcnvc=1.0 - theat=6.0 ! just in case GFS decides to output T tendency - -! 10 m u using nemsio - VarName='ugrd' - VcoordName='10 m above gnd' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,u10) -! if(debugprint)print*,'sample l',VarName,' = ',1,u10(isa,jsa) - do j=jsta,jend - do i=1,im - u10h(i,j)=u10(i,j) - end do - end do - -! 10 m v using gfsio - VarName='vgrd' - VcoordName='10 m above gnd' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,v10) - do j=jsta,jend - do i=1,im - v10h(i,j)=v10(i,j) - end do - end do -! if(debugprint)print*,'sample l',VarName,' = ',1,v10(isa,jsa) - -! vegetation type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='vgtyp' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,buf) -! where (buf /= spval) -! ivgtyp=nint(buf) -! elsewhere -! ivgtyp=0 !need to feed reasonable value to crtm -! end where -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - ivgtyp(i,j) = nint(buf(i,j)) - else - ivgtyp(i,j) = 0 - endif - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,ivgtyp(isa,jsa) - -! soil type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='sotyp' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,buf) -! where (buf /= spval) -! isltyp=nint(buf) -! elsewhere -! isltyp=0 !need to feed reasonable value to crtm -! end where -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - isltyp(i,j) = nint(buf(i,j)) - else - isltyp(i,j) = 0 - endif - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,isltyp(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - smstav(i,j) = spval ! GFS does not have soil moisture availability - smstot(i,j) = spval ! GFS does not have total soil moisture - sfcevp(i,j) = spval ! GFS does not have accumulated surface evaporation - sfcexc(i,j) = spval ! GFS does not have surface exchange coefficient - acsnow(i,j) = spval ! GFS does not have averaged accumulated snow - acsnom(i,j) = spval ! GFS does not have snow melt - sst(i,j) = spval ! GFS does not have sst???? - thz0(i,j) = ths(i,j) ! GFS does not have THZ0, use THS to substitute - qz0(i,j) = spval ! GFS does not output humidity at roughness length - uz0(i,j) = spval ! GFS does not output u at roughness length - vz0(i,j) = spval ! GFS does not output humidity at roughness length - enddo - enddo - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - EL_PBL(i,j,l) = spval ! GFS does not have mixing length - exch_h(i,j,l) = spval ! GFS does not output exchange coefficient - enddo - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,thz0(isa,jsa) - -! retrieve inst convective cloud top, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index - VarName='pres' - VcoordName='convect-cld top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ptop) -! if(debugprint)print*,'sample l',VarName,' = ',1,ptop(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - htop(i,j) = spval - if(ptop(i,j) <= 0.0) ptop(i,j) = spval - enddo - enddo - do j=jsta,jend - do i=1,im - if(ptop(i,j) < spval)then - do l=1,lm - if(ptop(i,j) <= pmid(i,j,l))then - htop(i,j) = l -! if(i==ii .and. j==jj)print*,'sample ptop,pmid pmid-1,pint= ', & -! ptop(i,j),pmid(i,j,l),pmid(i,j,l-1),pint(i,j,l),htop(i,j) - exit - end if - end do - end if - end do - end do - -! retrieve inst convective cloud bottom, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index - VarName='pres' - VcoordName='convect-cld bot' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pbot) -! if(debugprint)print*,'sample l',VarName,VcoordName,' = ',1,pbot(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - hbot(i,j) = spval - if(pbot(i,j) <= 0.0) pbot(i,j) = spval - enddo - enddo - do j=jsta,jend - do i=1,im -! if(.not.lb(i,j))print*,'false bitmask for pbot at ' -! + ,i,j,pbot(i,j) - if(pbot(i,j) < spval)then - do l=lm,1,-1 - if(pbot(i,j) >= pmid(i,j,l)) then - hbot(i,j) = l -! if(i==ii .and. j==jj)print*,'sample pbot,pmid= ', & -! pbot(i,j),pmid(i,j,l),hbot(i,j) - exit - end if - end do - end if - end do - end do - -! retrieve time averaged low cloud top pressure using nemsio - VarName='pres' - VcoordName='low cld top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ptopl) -! if(debugprint)print*,'sample l',VarName,' = ',1,ptopl(isa,jsa) - -! retrieve time averaged low cloud bottom pressure using nemsio - VarName='pres' - VcoordName='low cld bot' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pbotl) -! if(debugprint)print*,'sample l',VarName,' = ',1,pbotl(isa,jsa) - -! retrieve time averaged low cloud top temperature using nemsio - VarName='tmp' - VcoordName='low cld top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,Ttopl) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopl(isa,jsa) - -! retrieve time averaged middle cloud top pressure using nemsio - VarName='pres' - VcoordName='mid cld top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ptopm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptopm(isa,jsa) - -! retrieve time averaged middle cloud bottom pressure using nemsio - VarName='pres' - VcoordName='mid cld bot' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pbotm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pbotm(isa,jsa) - -! retrieve time averaged middle cloud top temperature using nemsio - VarName='tmp' - VcoordName='mid cld top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,Ttopm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopm(isa,jsa) - -! retrieve time averaged high cloud top pressure using nemsio ********* - VarName='pres' - VcoordName='high cld top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ptoph) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptoph(isa,jsa) - -! retrieve time averaged high cloud bottom pressure using nemsio - VarName='pres' - VcoordName='high cld bot' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pboth) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pboth(isa,jsa) - -! retrieve time averaged high cloud top temperature using nemsio - VarName='tmp' - VcoordName='high cld top' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,Ttoph) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttoph(isa,jsa) - -! retrieve boundary layer cloud cover using nemsio - VarName='tcdc' - VcoordName='bndary-layer cld' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,pblcfr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,pblcfr(isa,jsa) -! where (pblcfr /= spval)pblcfr=pblcfr/100. ! convert to fraction -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (pblcfr(i,j) < spval) pblcfr(i,j) = pblcfr(i,j) * 0.01 - enddo - enddo - -! retrieve cloud work function using nemsio - VarName='cwork' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,cldwork) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,cldwork(isa,jsa) - -! retrieve water runoff using nemsio - VarName='watr' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,runoff) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,runoff(isa,jsa) - -! retrieve shelter max temperature using nemsio - VarName='tmax' - VcoordName='2 m above gnd' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,maxtshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,maxtshltr(isa,jsa) - -! retrieve shelter max temperature using nemsio - VarName='tmin' - VcoordName='2 m above gnd' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,mintshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & -! 1,mintshltr(im/2,(jsta+jend)/2) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - MAXRHSHLTR(i,j) = SPVAL - MINRHSHLTR(i,j) = SPVAL - enddo - enddo - -! retrieve ice thickness using nemsio - VarName='icetk' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dzice) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,dzice(isa,jsa) - -! retrieve wilting point using nemsio - VarName='wilt' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,smcwlt) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,smcwlt(isa,jsa) - -! retrieve sunshine duration using nemsio - VarName='sunsd' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,suntime) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,suntime(isa,jsa) - -! retrieve field capacity using nemsio - VarName='fldcp' - VcoordName='sfc' - l=1 - call getnemsandscatter(me,ffile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,fieldcapa) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,fieldcapa(isa,jsa) - -! GFS does not have deep convective cloud top and bottom fields - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - HTOPD(i,j) = SPVAL - HBOTD(i,j) = SPVAL - HTOPS(i,j) = SPVAL - HBOTS(i,j) = SPVAL - CUPPT(i,j) = SPVAL - enddo - enddo - -! -!!!! DONE GETTING -! Will derive isobaric OMEGA from continuity equation later. -! OMGA=SPVAL -! -! -! retrieve d3d fields if it's listed -! ---------------------------------- - if (me == 0) print*,'iostatus for d3d file= ',iostatusD3D - if(iostatusD3D == 0) then ! start reading d3d file -! retrieve longwave tendency using getgb - Index=41 - VarName='LW RAD TEMP TNDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=251 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,rlwtt(1,jsta_2l,ll)) - end do - -! retrieve shortwave tendency using getgb - Index=40 - VarName='SW RAD TEMP TNDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=250 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,rswtt(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion tendency using getgb - Index=356 - VarName='VDIFF TNDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=246 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdifftt(1,jsta_2l,ll)) - end do - -! retrieve deep convective tendency using getgb - Index=79 - VarName='AVE CNVCT RN TMPTDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=242 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,tcucn(1,jsta_2l,ll)) - end do - -! retrieve shallow convective tendency using getgb - Index=358 - VarName='S CNVCT TNDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=244 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,tcucns(1,jsta_2l,ll)) - end do - -! retrieve grid scale latent heat tendency using getgb - Index=78 - VarName='AVE GRDSCL RN TMPTDY' - jpds=-1.0 - jgds=-1.0 - jpds(5)=241 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,train(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion moistening using getgb - Index=360 - VarName='Vertical diffusion moistening' - jpds=-1.0 - jgds=-1.0 - jpds(5)=249 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdiffmois(1,jsta_2l,ll)) - end do - -! retrieve deep convection moistening using getgb - Index=361 - VarName='deep convection moistening' - jpds=-1.0 - jgds=-1.0 - jpds(5)=243 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,dconvmois(1,jsta_2l,ll)) - end do - -! retrieve shallow convection moistening using getgb - Index=362 - VarName='shallow convection moistening' - jpds=-1.0 - jgds=-1.0 - jpds(5)=245 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,sconvmois(1,jsta_2l,ll)) - end do - -! retrieve non-radiation tendency using getgb - Index=363 - VarName='non-radiation tendency' - jpds=-1.0 - jgds=-1.0 - jpds(5)=173 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,nradtt(1,jsta_2l,ll)) - end do - -! retrieve Vertical diffusion of ozone using getgb - Index=364 - VarName='Vertical diffusion of ozone' - jpds=-1.0 - jgds=-1.0 - jpds(5)=174 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,o3vdiff(1,jsta_2l,ll)) - end do - -! retrieve ozone production using getgb - Index=365 - VarName='Ozone production' - jpds=-1.0 - jgds=-1.0 - jpds(5)=175 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,o3prod(1,jsta_2l,ll)) - end do - -! retrieve ozone tendency using getgb - Index=366 - VarName='Ozone tendency' - jpds=-1.0 - jgds=-1.0 - jpds(5)=188 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,o3tndy(1,jsta_2l,ll)) - end do - -! retrieve mass weighted PV using getgb - Index=367 - VarName='Mass weighted PV' - jpds=-1.0 - jgds=-1.0 - jpds(5)=139 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,mwpv(1,jsta_2l,ll)) - end do - -! retrieve OZONE TNDY using getgb - Index=368 - VarName='?' - jpds=-1.0 - jgds=-1.0 - jpds(5)=239 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,unknown(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion zonal acceleration - Index=369 - VarName='VDIFF Z ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=247 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdiffzacce(1,jsta_2l,ll)) - end do - -! retrieve gravity drag zonal acceleration - Index=370 - VarName='G DRAG Z ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=181 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,zgdrag(1,jsta_2l,ll)) - end do - -! retrieve convective U momemtum mixing - Index=371 - VarName='CNVCT U M MIX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=183 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctummixing(1,jsta_2l,ll)) - end do - -! retrieve vertical diffusion meridional acceleration - Index=372 - VarName='VDIFF M ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=248 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,vdiffmacce(1,jsta_2l,ll)) - end do - -! retrieve gravity drag meridional acceleration - Index=373 - VarName='G DRAG M ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=182 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,mgdrag(1,jsta_2l,ll)) - end do - -! retrieve convective V momemtum mixing - Index=374 - VarName='CNVCT V M MIX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=184 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctvmmixing(1,jsta_2l,ll)) - end do - -! retrieve nonconvective cloud fraction - Index=375 - VarName='N CNVCT CLD FRA' - jpds=-1.0 - jgds=-1.0 - jpds(5)=213 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,ncnvctcfrac(1,jsta_2l,ll)) - end do - -! retrieve convective upward mass flux - Index=391 - VarName='CNVCT U M FLX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=202 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctumflx(1,jsta_2l,ll)) - end do - -! retrieve convective downward mass flux - Index=392 - VarName='CNVCT D M FLX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=209 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctdmflx(1,jsta_2l,ll)) - end do - -! retrieve nonconvective detraintment flux - Index=393 - VarName='CNVCT DET M FLX' - jpds=-1.0 - jgds=-1.0 - jpds(5)=219 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctdetmflx(1,jsta_2l,ll)) - end do - -! retrieve cnvct gravity drag zonal acceleration - Index=394 - VarName='CNVCT G DRAG Z ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=196 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctzgdrag(1,jsta_2l,ll)) - end do - -! retrieve cnvct gravity drag meridional acceleration - Index=395 - VarName='CNVCT G DRAG M ACCE' - jpds=-1.0 - jgds=-1.0 - jpds(5)=197 - jpds(6)=109 - do l=1,lm - jpds(7)=l - ll=lm-l+1 !flip 3d fields to count from top down - call getgbandscatter(me,iunitd3d,im,jm,im_jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,jpds,jgds,kpds,cnvctmgdrag(1,jsta_2l,ll)) - end do - - call baclose(iunitd3d,status) - print*,'done reading D3D fields' - - end if ! end of d3d file read - ! -------------------- - print *,'after d3d files reading,mype=',me - -! Retrieve aer fields if it's listed (GOCART) - print *, 'iostatus for aer file=', iostatusAER - if(iostatusAER == 0) then ! start reading aer file - -! retrieve dust emission fluxes - do K = 1, nbin_du - if ( K == 1) VarName='DUEM001' - if ( K == 2) VarName='DUEM002' - if ( K == 3) VarName='DUEM003' - if ( K == 4) VarName='DUEM004' - if ( K == 5) VarName='DUEM005' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,duem(1,jsta_2l,K)) -! if(debugprint)print*,'sample ',VarName,' = ',duem(isa,jsa,k) - enddo - -! retrieve dust sedimentation fluxes - do K = 1, nbin_du - if ( K == 1) VarName='DUSD001' - if ( K == 2) VarName='DUSD002' - if ( K == 3) VarName='DUSD003' - if ( K == 4) VarName='DUSD004' - if ( K == 5) VarName='DUSD005' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dusd(1,jsta_2l,K)) -! if(debugprint)print*,'sample ',VarName,' = ',dusd(isa,jsa,k) - enddo - -! retrieve dust dry deposition fluxes - do K = 1, nbin_du - if ( K == 1) VarName='DUDP001' - if ( K == 2) VarName='DUDP002' - if ( K == 3) VarName='DUDP003' - if ( K == 4) VarName='DUDP004' - if ( K == 5) VarName='DUDP005' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dudp(1,jsta_2l,K)) - print *,'dudp,ck=',maxval(dudp(1:im,jsta:jend,k)), & - minval(dudp(1:im,jsta:jend,k)) -! if(debugprint)print*,'sample ',VarName,' = ',dudp(isa,jsa,k) - enddo - -! retrieve dust wet deposition fluxes - do K = 1, nbin_du - if ( K == 1) VarName='DUWT001' - if ( K == 2) VarName='DUWT002' - if ( K == 3) VarName='DUWT003' - if ( K == 4) VarName='DUWT004' - if ( K == 5) VarName='DUWT005' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,duwt(1,jsta_2l,K)) -! if(debugprint)print*,'sample ',VarName,' = ',duwt(isa,jsa,k) - enddo - -! retrieve sfc mass concentration - VarName='DUSMASS' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dusmass) -! if(debugprint)print*,'sample ',VarName,' = ',dusmass(isa,jsa) - -! retrieve col mass density - VarName='DUCMASS' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ducmass) -! if(debugprint)print*,'sample ',VarName,' = ',ducmass(isa,jsa) - -! retrieve sfc mass concentration (pm2.5) - VarName='DUSMASS25' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,dusmass25) -! if(debugprint)print*,'sample ',VarName,' = ',dusmass25(isa,jsa) - -! retrieve col mass density (pm2.5) - VarName='DUCMASS25' - VcoordName='atmos col' - l=1 - call getnemsandscatter(me,rfile,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,VcoordName & - ,l,im,jm,nframe,ducmass25) -! if(debugprint)print*,'sample ',VarName,' = ',ducmass25(isa,jsa) - - if (me == 0) print *,'after aer files reading,mype=',me - end if ! end of aer file read - -! pos east - call collect_loc(gdlat,dummy) - if(me == 0)then - latstart = nint(dummy(1,1)*gdsdegr) - latlast = nint(dummy(im,jm)*gdsdegr) - print*,'laststart,latlast B bcast= ',latstart,latlast,'gdsdegr=',gdsdegr,& - 'dummy(1,1)=',dummy(1,1),dummy(im,jm),'gdlat=',gdlat(1,1) - end if - call mpi_bcast(latstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(latlast,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - write(6,*) 'laststart,latlast,me A calling bcast=',latstart,latlast,me - call collect_loc(gdlon,dummy) - if(me == 0)then - lonstart = nint(dummy(1,1)*gdsdegr) - lonlast = nint(dummy(im,jm)*gdsdegr) - end if - call mpi_bcast(lonstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(lonlast, 1,MPI_INTEGER,0,mpi_comm_comp,irtn) - - write(6,*)'lonstart,lonlast A calling bcast=',lonstart,lonlast -! -! ncdump -h -!! -!! - write(6,*) 'filename in INITPOST=', filename,' is' - -! status=nf_open(filename,NF_NOWRITE,ncid) -! write(6,*) 'returned ncid= ', ncid -! status=nf_get_att_real(ncid,varid,'DX',tmp) -! dxval=int(tmp) -! status=nf_get_att_real(ncid,varid,'DY',tmp) -! dyval=int(tmp) -! status=nf_get_att_real(ncid,varid,'CEN_LAT',tmp) -! cenlat=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'CEN_LON',tmp) -! cenlon=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'TRUELAT1',tmp) -! truelat1=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'TRUELAT2',tmp) -! truelat2=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'MAP_PROJ',tmp) -! maptype=int(tmp) -! status=nf_close(ncid) - -! dxval=30000. -! dyval=30000. -! -! write(6,*) 'dxval= ', dxval -! write(6,*) 'dyval= ', dyval -! write(6,*) 'cenlat= ', cenlat -! write(6,*) 'cenlon= ', cenlon -! write(6,*) 'truelat1= ', truelat1 -! write(6,*) 'truelat2= ', truelat2 -! write(6,*) 'maptype is ', maptype -! - -! close up shop -! call ext_int_ioclose ( DataHandle, Status ) - -! generate look up table for lifted parcel calculations - - THL = 210. - PLQ = 70000. - pt_TBL = 10000. ! this is for 100 hPa added by Moorthi - - CALL TABLE(PTBL,TTBL,PT_TBL, & - RDQ,RDTH,RDP,RDTHE,PL,THL,QS0,SQS,STHE,THE0) - - CALL TABLEQ(TTBLQ,RDPQ,RDTHEQ,PLQ,THL,STHEQ,THE0Q) - -! -! - IF(ME == 0)THEN - WRITE(6,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' - WRITE(6,51) (SPL(L),L=1,LSM) - 50 FORMAT(14(F4.1,1X)) - 51 FORMAT(8(F8.1,1X)) - ENDIF -! -! COMPUTE DERIVED TIME STEPPING CONSTANTS. -! -!MEB need to get DT -! DT = 120. !MEB need to get DT -! NPHS = 4 !MEB need to get physics DT -! TPREC=float(ifhr) -!MEB need to get DT - -!how am i going to get this information? -! NPREC = INT(TPREC *TSPH+D50) -! NHEAT = INT(THEAT *TSPH+D50) -! NCLOD = INT(TCLOD *TSPH+D50) -! NRDSW = INT(TRDSW *TSPH+D50) -! NRDLW = INT(TRDLW *TSPH+D50) -! NSRFC = INT(TSRFC *TSPH+D50) -!how am i going to get this information? -! -! IF(ME == 0)THEN -! WRITE(6,*)' ' -! WRITE(6,*)'DERIVED TIME STEPPING CONSTANTS' -! WRITE(6,*)' NPREC,NHEAT,NSRFC : ',NPREC,NHEAT,NSRFC -! WRITE(6,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW -! ENDIF -! -! COMPUTE DERIVED MAP OUTPUT CONSTANTS. -!$omp parallel do private(l) - DO L = 1,LSM - ALSL(L) = LOG(SPL(L)) - END DO -! -!HC WRITE IGDS OUT FOR WEIGHTMAKER TO READ IN AS KGDSIN - if(me == 0)then - print*,'writing out igds' - igdout = 110 -! open(igdout,file='griddef.out',form='unformatted' -! + ,status='unknown') - if(maptype == 1)THEN ! Lambert conformal - WRITE(igdout)3 - WRITE(6,*)'igd(1)=',3 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ELSE IF(MAPTYPE == 2)THEN !Polar stereographic - WRITE(igdout)5 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 !Assume projection at +-90 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ! Note: The calculation of the map scale factor at the standard - ! lat/lon and the PSMAPF - ! Get map factor at 60 degrees (N or S) for PS projection, which will - ! be needed to correctly define the DX and DY values in the GRIB GDS - if (TRUELAT1 < 0.) THEN - LAT = -60. - else - LAT = 60. - end if - - CALL MSFPS (LAT,TRUELAT1*0.001,PSMAPF) - - ELSE IF(MAPTYPE == 3) THEN !Mercator - WRITE(igdout)1 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)latlast - WRITE(igdout)lonlast - WRITE(igdout)TRUELAT1 - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)255 - ELSE IF(MAPTYPE == 0 .OR. MAPTYPE == 203)THEN !A STAGGERED E-GRID - WRITE(igdout)203 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)136 - WRITE(igdout)CENLAT - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)64 - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)0 - END IF - end if -! -! close all files -! - call nemsio_close(nfile,iret=status) - call nemsio_close(ffile,iret=status) - call nemsio_close(rfile,iret=status) -! call baclose(iunit,status) - - RETURN - END - - diff --git a/sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f deleted file mode 100644 index 9aed1706b..000000000 --- a/sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f +++ /dev/null @@ -1,2464 +0,0 @@ -!> @file -! . . . -!> SUBPROGRAM: INITPOST INITIALIZE POST FOR RUN -!! PRGRMMR: Hui-Ya Chuang DATE: 2008-03-26 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF AN NEMS MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 21-03-11 Bo Cui - change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INITPOST_NEMS -!! INPUT ARGUMENT LIST: -!! NREC -!! NFILE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! - SUBROUTINE INITPOST_NEMS_MPIIO() - - use vrbls3d, only: t, q, uh, vh, q2, cwm, f_ice, f_rain, f_rimef, cfr, pint,& - pint, alpint, pmid, pmidv, zint, zmid, wh, rlwtt, rswtt,& - ttnd, tcucn, train, el_pbl, exch_h, omga - use vrbls2d, only: f, pd, fis, pblh, mixht, ustar, z0, ths, qs, twbs, qwbs, prec,& - acprec, cuprec,ancprc, lspa, sno, snoavg, psfcavg, t10avg, t10m, akhsavg, akmsavg,& - refd_max, w_up_max, w_dn_max, up_heli_max, si, cldefi, th10, q10, pshltr,& - tshltr, qshltr, maxtshltr, mintshltr, maxrhshltr, minrhshltr, akhs, akms, albase,& - albedo, czen, cfracl, cfracm, islope, cmc, grnflx, pctsno, soiltb, vegfrc,& - acfrcv, acfrst, ssroff, bgroff, czmean, mxsnal, radot, sigt4, tg, sr, cfrach,& - rlwin, rlwtoa, alwin, alwout, alwtoa, rswin, rswinc, rswout, aswin,aswout,& - aswtoa, sfcshx, sfclhx, subshx, snopcx, sfcuvx, potevp, ncfrcv, ncfrst, u10h,& - u10, v10h, v10, u10max, v10max, smstav, smstot, sfcevp, ivgtyp, acsnow, acsnom,& - sst, thz0, qz0, uz0, vz0, htop, isltyp, sfcexc, hbot, htopd, htops, cuppt, cprate,& - hbotd, hbots - use soil, only: sldpth, sh2o, smc, stc - use masks, only: lmv, lmh, htm, vtm, dx, dy, hbm2, gdlat, gdlon, sm, sice - use kinds, only: i_llong - use wrf_io_flags_mod, only: - use params_mod, only: pi, dtr, g, d608, rd - use lookup_mod, only: thl, plq, ptbl, ttbl, rdq, rdth, rdp, rdthe, pl, qs0, sqs, sthe, the0,& - ttblq, rdpq, rdtheq, stheq, the0q - use ctlblk_mod, only: me, mpi_comm_comp, global, icnt, idsp, jsta, ihrst, imin, idat, sdat,& - ifhr, ifmin, filename, restrt, imp_physics, isf_surface_physics, icu_physics, jend,& - dt, spval, gdsdegr, grib, pdtop, pt, tmaxmin, nsoil, lp1, jend_m, nprec, nphs, avrain,& - avcnvc, ardlw, ardsw, asrfc, novegtype, spl, lsm, dtq2, tsrfc, trdlw, trdsw, theat, tclod,& - tprec, alsl, lm , im, jm, jsta_2l, jend_2u, ivegsrc, pthresh - use gridspec_mod, only: dyval, dxval, cenlat, cenlon, maptype, gridtype, latstart, latlast, latnw,& - latse, lonstart, lonlast, lonnw, lonse, latstartv, latlastv, cenlatv, lonstartv,& - lonlastv, cenlonv -! use nemsio_module, only: nemsio_gfile, nemsio_getfilehead, nemsio_close, nemsio_getheadvar - use nemsio_module_mpi - use upp_math, only: h2u -! -! INCLUDE/SET PARAMETERS. - implicit none -! - type(nemsio_gfile) :: nfile -! - INCLUDE "mpif.h" -! This version of INITPOST shows how to initialize, open, read from, and -! close a NetCDF dataset. In order to change it to read an internal (binary) -! dataset, do a global replacement of _ncd_ with _int_. - - character(len=8) :: VarName - character(len=8) :: VcoordName - integer :: Status - integer fldsize,fldst,recn - character startdate*19,SysDepInfo*80,cgar*1 - character startdate2(19)*4 -! -! NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK -! AS LONG AS REALS AND INTEGERS ARE THE SAME SIZE. -! -! ALSO, EXTRACT IS CALLED WITH DUMMY ( A REAL ) EVEN WHEN THE NUMBERS ARE -! INTEGERS - THIS IS OK AS LONG AS INTEGERS AND REALS ARE THE SAME SIZE. - LOGICAL RUNB,SINGLRST,SUBPOST,NEST,HYDRO - LOGICAL IOOMG,IOALL - logical, parameter :: debugprint = .false. - logical fliplayer ! whether or not to flip layer - logical :: convert_rad_to_deg=.false. -! logical global - CHARACTER*32 LABEL - CHARACTER*40 CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV & - , FILCLD,FILRAD,FILSFC - CHARACTER*4 RESTHR - CHARACTER FNAME*80,ENVAR*50,BLANK*4 - integer nfhour ! forecast hour from nems io file - INTEGER IDATE(8),JDATE(8) -! -! DECLARE VARIABLES. -! - REAL FACT,tsph,tstart - REAL RINC(5) - REAL ETA1(LM+1), ETA2(LM+1) - REAL GARB - REAL DUM1D (LM+1) - REAL DUMMY ( IM, JM ) -! REAL DUMMY2 ( IM, JM ) - real, allocatable :: fi(:,:,:) - integer ibuf(im,jsta_2l:jend_2u) - real buf(im,jsta_2l:jend_2u) - character*8,allocatable:: recname(:) - character*8,allocatable :: reclevtyp(:) - integer,allocatable:: reclev(:) - real, allocatable:: bufy(:) - real, allocatable:: glat1d(:),glon1d(:) - real, allocatable:: tmp(:) -!jw - integer ii,jj,js,je,jev,iyear,imn,iday,itmp,ioutcount,istatus, & - nsrfc,nrdlw,nrdsw,nheat,nclod, & - iunit,nrec,I,J,L, iret,nframe,impf,jmpf,nframed2, & - igdout,ll,n,im1,jm1,iim1 -! - DATA BLANK/' '/ -! -!*********************************************************************** -! START INIT HERE. -! - WRITE(6,*)'INITPOST: ENTER INITPOST' -! -! -! STEP 1. READ MODEL OUTPUT FILE -! -!*** -! LMH always = LM for sigma-type vert coord -! LMV always = LM for sigma-type vert coord - - do j = jsta_2l, jend_2u - do i = 1, im - LMV ( i, j ) = lm - LMH ( i, j ) = lm - end do - end do - -! HTM VTM all 1 for sigma-type vert coord - - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - HTM ( i, j, l ) = 1.0 - VTM ( i, j, l ) = 1.0 - end do - end do - end do - -! The end j row is going to be jend_2u for all variables except for V. - JS=JSTA_2L - JE=JEND_2U - IF (JEND_2U==JM) THEN - JEV=JEND_2U+1 - ELSE - JEV=JEND_2U - ENDIF -! sample print point - ii=(1+im)/2 - jj=(1+jm)/2 -! initialize nemsio using mpi io module - call nemsio_init() - call nemsio_open(nfile,trim(filename),'read',mpi_comm_comp,iret=status) - if ( Status /= 0 ) then - print*,'error opening ',fileName, ' Status = ', Status ; stop - endif - call nemsio_getfilehead(nfile,iret=status,nrec=nrec) - print*,'nrec=',nrec - allocate(recname(nrec),reclevtyp(nrec),reclev(nrec)) - call nemsio_getfilehead(nfile,iret=iret & - ,recname=recname ,reclevtyp=reclevtyp,reclev=reclev) - if (me == 0)then - do i=1,nrec - print *,'recname,reclevtyp,reclev=',trim(recname(i)),' ', & - trim(reclevtyp(i)),reclev(i) - end do - end if - -! get start date - idate=0 -! if (me == 0)then - call nemsio_getfilehead(nfile,iret=iret & - ,idate=idate(1:7),nfhour=nfhour,nframe=nframe) - - impf=im+nframe*2 - jmpf=jm+nframe*2 - print*,'nframe,impf,jmpf= ',nframe,impf,jmpf - allocate(glat1d(impf*jmpf),glon1d(impf*jmpf) ) - call nemsio_getfilehead(nfile,dx=glat1d & - ,dy=glon1d,iret=iret) - if(iret/=0)print*,'did not find dx dy' - do j=jsta,jend - do i=1,im - ! dummy(i,j) = glat1d((j-1)*impf+i+nframe) - ! dummy2(i,j) = glon1d((j-1)*impf+i+nframe) - dx(i,j)= glat1d((j-1)*impf+i+nframe) - dy(i,j)= glon1d((j-1)*impf+i+nframe) - end do - end do - deallocate(glat1d,glon1d) - print*,'idate before broadcast = ',(idate(i),i=1,7) -! end if !for me=0 -! call mpi_bcast(idate(1),7,MPI_INTEGER,0,mpi_comm_comp,iret) -! call mpi_bcast(nfhour,1,MPI_INTEGER,0,mpi_comm_comp,iret) -! call mpi_bcast(nframe,1,MPI_INTEGER,0,mpi_comm_comp,iret) - - IF(.not. global)THEN - impf=im+nframe*2 - jmpf=jm+nframe*2 - ELSE - impf=im+1 ! post cut im off because it's the same as i=1 but data from model is till im - jmpf=jm - END IF - print*,'impf,jmpf,nframe for reading fields = ',impf,jmpf,nframe - print*,'idate after broadcast = ',(idate(i),i=1,7) - print*,'nfhour = ',nfhour - !call mpi_scatterv(dummy(1,1),icnt,idsp,mpi_real & - ! ,dx(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) - !call mpi_scatterv(dummy2(1,1),icnt,idsp,mpi_real & - ! ,dy(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) - - - iyear = idate(1) - imn = idate(2) ! ask Jun - iday = idate(3) ! ask Jun - ihrst = idate(4) - imin = idate(5) - jdate = 0 - idate = 0 -! -! read(startdate,15)iyear,imn,iday,ihrst,imin - 15 format(i4,1x,i2,1x,i2,1x,i2,1x,i2) - print*,'start yr mo day hr min =',iyear,imn,iday,ihrst,imin - print*,'processing yr mo day hr min=' & - ,idat(3),idat(1),idat(2),idat(4),idat(5) -! - idate(1) = iyear - idate(2) = imn - idate(3) = iday - idate(5) = ihrst - idate(6) = imin - SDAT(1) = imn - SDAT(2) = iday - SDAT(3) = iyear - jdate(1) = idat(3) - jdate(2) = idat(1) - jdate(3) = idat(2) - jdate(5) = idat(4) - jdate(6) = idat(5) -! - print *,' idate=',idate - print *,' jdate=',jdate -! CALL W3DIFDAT(JDATE,IDATE,2,RINC) -! ifhr=nint(rinc(2)) -! - CALL W3DIFDAT(JDATE,IDATE,0,RINC) -! - print *,' rinc=',rinc - ifhr=nint(rinc(2)+rinc(1)*24.) - print *,' ifhr=',ifhr - ifmin=nint(rinc(3)) -! if(ifhr /= nfhour)print*,'find wrong Model input file';stop - print*,' in INITPOST ifhr ifmin fileName=',ifhr,ifmin,fileName - -! Getting tstart - tstart=0. - print*,'tstart= ',tstart - -! Getiing restart - - RESTRT=.TRUE. ! set RESTRT as default -! call ext_int_get_dom_ti_integer(DataHandle,'RESTARTBIN',itmp -! + ,1,ioutcount,istatus) - -! IF(itmp < 1)THEN -! RESTRT=.FALSE. -! ELSE -! RESTRT=.TRUE. -! END IF - -! print*,'status for getting RESTARTBIN= ',istatus - -! print*,'Is this a restrt run? ',RESTRT - - IF(tstart > 1.0E-2)THEN - ifhr=ifhr+NINT(tstart) - rinc=0 - idate=0 - rinc(2)=-1.0*ifhr - call w3movdat(rinc,jdate,idate) - SDAT(1)=idate(2) - SDAT(2)=idate(3) - SDAT(3)=idate(1) - IHRST=idate(5) - print*,'new forecast hours for restrt run= ',ifhr - print*,'new start yr mo day hr min =',sdat(3),sdat(1) & - ,sdat(2),ihrst,imin - END IF - - VarName='mp_physi' - !if(me == 0)then - call nemsio_getheadvar(nfile,trim(VarName),imp_physics,iret) - if (iret /= 0) then - print*,VarName," not found in file- go to 16 character " - VarName='mp_physics' - call nemsio_getheadvar(nfile,trim(VarName),imp_physics,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned 1000" - imp_physics=1000 - end if - end if - !end if - !call mpi_bcast(imp_physics,1,MPI_INTEGER,0,mpi_comm_comp,iret) - print*,'MP_PHYSICS= ',imp_physics - -! Initializes constants for Ferrier microphysics - if(imp_physics==5 .or. imp_physics==85 .or. imp_physics==95)then - CALL MICROINIT(imp_physics) - end if - - VarName='sf_surface_physi' - call nemsio_getheadvar(nfile,trim(VarName),iSF_SURFACE_PHYSICS,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned 2 for NOAH LSM as default" - iSF_SURFACE_PHYSICS=2 - end if - print*,'SF_SURFACE_PHYSICS= ',iSF_SURFACE_PHYSICS - -! IVEGSRC=1 for IGBP and 0 for USGS - VarName='IVEGSRC' - call nemsio_getheadvar(nfile,trim(VarName),IVEGSRC,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned 1 for IGBP as default" - IVEGSRC=1 - end if - print*,'IVEGSRC= ',IVEGSRC - -! set novegtype based on vegetation classification - if(ivegsrc==1)then - novegtype=20 - else if(ivegsrc==0)then - novegtype=24 - end if - print*,'novegtype= ',novegtype - - VarName='CU_PHYSICS' - call nemsio_getheadvar(nfile,trim(VarName),iCU_PHYSICS,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned 2 for BMJ as default" - iCU_PHYSICS=2 - end if - print*,'CU_PHYSICS= ',iCU_PHYSICS - - - allocate(bufy(jm)) - VarName='DX' -! if(me == 0)then -! call nemsio_getheadvar(nfile,trim(VarName),bufy,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dx=spval -! end if -! end if -! call mpi_bcast(bufy,jm,MPI_REAL,0,mpi_comm_comp,iret) -! do j=jsta,jend -! do i=1,im -! dx(i,j)=bufy(j) -! end do -! end do - if(debugprint)print*,'sample ',VarName,' = ',dx(im/2,(jsta+jend)/2) - - VarName='DY' -! if(me == 0)then -! call nemsio_getheadvar(nfile,trim(VarName),bufy,iret) -! if (iret /= 0) then -! print*,VarName," not found in file-Assigned missing values" -! dx=spval -! end if -! end if -! call mpi_bcast(bufy,jm,MPI_REAL,0,mpi_comm_comp,iret) -! do j=jsta,jend -! do i=1,im -! dy(i,j)=bufy(j) -! end do -! end do - if(debugprint)print*,'sample ',VarName,' = ',dy(im/2,(jsta+jend)/2) - deallocate(bufy) - - VarName='dt' - call nemsio_getheadvar(nfile,trim(VarName),garb,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - dt=spval - else - dt=garb - end if - - VarName='dphd' - call nemsio_getheadvar(nfile,trim(VarName),garb,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - dyval=spval - else - dyval=garb*gdsdegr - end if -! dyval=106 ! hard wire for AQ domain testing - - VarName='dlmd' - call nemsio_getheadvar(nfile,trim(VarName),garb,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - dxval=spval - else - dxval=garb*gdsdegr - end if -! dxval=124 ! hard wire for AQ domain testing - - print*,'DX, DY, DT=',dxval,dyval,dt - - VarName='TPH0D' - call nemsio_getheadvar(nfile,trim(VarName),garb,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - cenlat=spval - else - cenlat=nint(garb*gdsdegr) - end if - - VarName='TLM0D' - call nemsio_getheadvar(nfile,trim(VarName),garb,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - cenlon=spval - else - if(grib=="grib2") then - cenlon=nint((garb+360.)*gdsdegr) - endif - end if - - varname='sg1' - call nemsio_getheadvar(nfile,trim(varname),eta1,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - ETA1=SPVAL - end if - - varname='sg2' - call nemsio_getheadvar(nfile,trim(varname),eta2,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - ETA2=SPVAL - end if - if(me==0)then - open(75,file='ETAPROFILE.txt',form='formatted', & - status='unknown') - DO L=1,lm+1 - write(75,1020)L, ETA1(lm+2-l), ETA2(lm+2-l) - END DO - 1020 format(I3,2E17.10) - close (75) - end if - - varname='pdtop' - call nemsio_getheadvar(nfile,trim(varname),pdtop,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - pdtop=SPVAL - end if - - varname='pt' - call nemsio_getheadvar(nfile,trim(varname),pt,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned missing values" - pt=SPVAL - end if - print*,'PT, PDTOP= ',PT,PDTOP - - VarName='sldpth' - call nemsio_getheadvar(nfile,trim(varname),sldpth,iret) - print*,'SLDPTH= ',(SLDPTH(N),N=1,NSOIL) - -! set default to not empty buket - nprec=0 - nphs=0 - nclod=0 - nheat=0 - nrdlw=0 - nrdsw=0 - nsrfc=0 - - VarName='nprec' - call nemsio_getheadvar(nfile,trim(varname),nprec,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned zero" - end if - if(debugprint)print*,'sample ',VarName,' = ',nprec - - VarName='nphs' - call nemsio_getheadvar(nfile,trim(varname),nphs,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned zero" - end if - if(debugprint)print*,'sample ',VarName,' = ',nphs - - VarName='nclod' - call nemsio_getheadvar(nfile,trim(varname),nclod,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned zero" - end if - if(debugprint)print*,'sample ',VarName,' = ',nclod - - VarName='nheat' - call nemsio_getheadvar(nfile,trim(varname),nheat,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned zero" - end if - if(debugprint)print*,'sample ',VarName,' = ',nheat - - VarName='nrdlw' - call nemsio_getheadvar(nfile,trim(varname),nrdlw,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned zero" - end if - if(debugprint)print*,'sample ',VarName,' = ',nrdlw - - VarName='nrdsw' - call nemsio_getheadvar(nfile,trim(varname),nrdsw,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned zero" - end if - if(debugprint)print*,'sample ',VarName,' = ',nrdsw - - VarName='nsrfc' - call nemsio_getheadvar(nfile,trim(varname),nsrfc,iret) - if (iret /= 0) then - print*,VarName," not found in file-Assigned zero" - end if - if(debugprint)print*,'sample ',VarName,' = ',nsrfc - - IF(.not. global)THEN - maptype=205 ! for Arakawa-B grid - gridtype='B' - ELSE - maptype=0 ! for global NMMB on latlon grid - gridtype='A' ! will put wind on mass point for now to make regular latlon - END IF - print*,'maptype and gridtype= ',maptype,gridtype - - HBM2=1.0 - -! start reading nemsio files using parallel read - fldsize=(jend-jsta+1)*im - allocate(tmp(fldsize*nrec)) - print*,'allocate tmp successfully' - tmp=0. - call nemsio_denseread(nfile,1,im,jsta,jend,tmp,iret=iret) - if(iret/=0)then - print*,"fail to read nemsio file using mpi io read, stopping" - stop - end if - - varname='glat' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,gdlat) - - call collect_loc(gdlat,dummy) -! decides whether or not to convert to degree - if(me==0)then - if(maxval(abs(dummy))0. .and. gdlon(2,jsta)<0.)then - do j=jsta,jend - gdlon(1,j)=gdlon(1,j)-360.0 - end do - end if - end if - if(debugprint)print*,'sample ',VarName,' = ',(gdlon(i,(jsta+jend)/2),i=1,im,8) - if(debugprint)print*,'max min lon=',maxval(gdlon),minval(gdlon) - call collect_loc(gdlon,dummy) - if(me==0)then - if(grib=='grib2') then - if(dummy(1,1)<0) dummy(1,1)=dummy(1,1)+360. - if(dummy(im,jm)<0) dummy(im,jm)=dummy(im,jm)+360. - endif - lonstart=nint(dummy(1,1)*gdsdegr) - lonlast=nint(dummy(im,jm)*gdsdegr) - lonnw=nint(dummy(1,jm)*gdsdegr) - lonse=nint(dummy(im,1)*gdsdegr) -! dxval=nint((dummy(2,1)-dummy(1,1))*1000.) -! dxval=124 ! hard wire for AQ domain testing - if(mod(im,2)==0)then -! cenlon=nint((dummy(ii,jj)+dummy(ii+1,jj)+dummy(ii+1,jj+1)+dummy(ii,jj+1))/4.0*1000.) - else -! cenlon=nint(dummy(ii,jj)*1000.) - end if - end if - call mpi_bcast(lonstart,1,MPI_INTEGER,0,mpi_comm_comp,iret) - call mpi_bcast(lonlast,1,MPI_INTEGER,0,mpi_comm_comp,iret) -! call mpi_bcast(dxval,1,MPI_INTEGER,0,mpi_comm_comp,iret) -! call mpi_bcast(cenlon,1,MPI_INTEGER,0,mpi_comm_comp,iret) - write(6,*)'lonstart,lonlast A calling bcast=',lonstart,lonlast - print*,'dxval, cenlon= ',dxval, cenlon - - convert_rad_to_deg=.false. - varname='vlat' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,buf) - - if(debugprint)print*,'sample ',VarName,' = ',buf(im/2,(jsta+jend)/2) - if(debugprint)print*,'max min vlat=',maxval(buf),minval(buf) - call collect_loc(buf,dummy) - if(me==0)then - if(maxval(abs(dummy)) 27.0 .or. sfcevp(i,j)<1.0)print*, & -! 'bad vegtype=',i,j,sfcevp(i,j) -! end do -! end do - - where(sfcevp /= spval)IVGTYP=nint(sfcevp) - if(debugprint)print*,'sample ',VarName,' = ',IVGTYP(im/2,(jsta+jend)/2) - - sfcevp=spval - VarName='sltyp' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,sfcevp) ! temporary use sfcevp because it's real in nemsio - where(sfcevp /= spval)ISLTYP=nint(sfcevp) - if(debugprint)print*,'sample ',VarName,' = ',ISLTYP(im/2,(jsta+jend)/2) - - sfcevp=spval - VarName='sfcevp' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,sfcevp) - if(debugprint)print*,'sample ',VarName,' = ',sfcevp(im/2,(jsta+jend)/2) - - VarName='sfcexc' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,sfcexc) - if(debugprint)print*,'sample ',VarName,' = ',sfcexc(im/2,(jsta+jend)/2) - if(debugprint)print*,'MAX/MIN ',VarName,' = ' & - ,maxval(sfcexc),minval(sfcexc) - - VarName='acsnow' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,acsnow) - if(debugprint)print*,'sample ',VarName,' = ',acsnow(im/2,(jsta+jend)/2) - - VarName='acsnom' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,acsnom) - if(debugprint)print*,'sample ',VarName,' = ',acsnom(im/2,(jsta+jend)/2) - - VarName='tsea' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,sst) - if(debugprint)print*,'sample ',VarName,' = ',sst(im/2,(jsta+jend)/2) - -! VarName='EL_PBL' ! not in nems io yet - VarName='xlen_mix' - VcoordName='mid layer' - do l=1,lm -! ll=lm-l+1 - ll=l - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,ll,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,EL_PBL(1,jsta_2l,ll)) - if(debugprint)print*,'sample l ',VarName,' = ',ll,EL_PBL(im/2,(jsta+jend)/2,ll) - end do ! do loop for l - - VarName='exch_h' - VcoordName='mid layer' - do l=1,lm -! ll=lm-l+1 - ll=l - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,ll,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,exch_h(1,jsta_2l,ll)) - if(debugprint)print*,'sample l ',VarName,' = ',ll,exch_h(im/2,(jsta+jend)/2,ll) - end do ! do loop for l - - VarName='thz0' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,thz0) - if(debugprint)print*,'sample ',VarName,' = ',thz0(im/2,(jsta+jend)/2) - - VarName='qz0' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,qz0) - if(debugprint)print*,'sample ',VarName,' = ',qz0(im/2,(jsta+jend)/2) - - VarName='uz0' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,uz0) - if(debugprint)print*,'sample ',VarName,' = ',uz0(im/2,(jsta+jend)/2) - - VarName='vz0' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,vz0) - if(debugprint)print*,'sample ',VarName,' = ',vz0(im/2,(jsta+jend)/2) - -! -! Very confusing story ... -! -! Retrieve htop and hbot => They are named CNVTOP, CNVBOT in the model and -! with HBOTS,HTOPS (shallow conv) and HBOTD,HTOPD (deep conv) represent -! the 3 sets of convective cloud base/top arrays tied to the frequency -! that history files are written. -! -! IN THE *MODEL*, arrays HBOT,HTOP are similar to CNVTOP,CNVBOT but are -! used in radiation and are tied to the frequency of radiation updates. -! -! For historical reasons model arrays CNVTOP,CNVBOT are renamed HBOT,HTOP -! and manipulated throughout the post. - -! retrieve htop and hbot -! VarName='HTOP' - VarName='cnvtop' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,htop) - where(htop /= spval)htop=float(lm)-htop+1.0 -! where(htop /= spval .and. htop > lm)htop=lm*1.0 - if(debugprint)print*,'sample ',VarName,' = ',htop(im/2,(jsta+jend)/2) - -! VarName='HBOT' - VarName='cnvbot' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,hbot) - where(hbot /= spval)hbot=float(lm)-hbot+1.0 -! where(hbot /= spval .and. hbot > lm)hbot=lm*1.0 - if(debugprint)print*,'sample ',VarName,' = ',hbot(im/2,(jsta+jend)/2) - - VarName='htopd' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,htopd) - where(htopd /= spval)htopd=float(lm)-htopd+1.0 -! where(htopd /= spval .and. htopd > lm)htopd=lm*1.0 - if(debugprint)print*,'sample ',VarName,' = ',htopd(im/2,(jsta+jend)/2) - - VarName='hbotd' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,hbotd) - where(hbotd /= spval)hbotd=float(lm)-hbotd+1.0 -! where(hbotd /= spval .and. hbotd > lm)hbotd=lm*1.0 - if(debugprint)print*,'sample ',VarName,' = ',hbotd(im/2,(jsta+jend)/2) - - VarName='htops' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,htops) - where(htops /= spval)htops=float(lm)-htops+1.0 -! where(htops /= spval .and. htops > lm)htops=lm*1.0 - if(debugprint)print*,'sample ',VarName,' = ',htops(im/2,(jsta+jend)/2) - - VarName='hbots' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,hbots) - where(hbots /= spval)hbots=float(lm)-hbots+1.0 -! where(hbots /= spval .and. hbots > lm)hbots=lm*1.0 - if(debugprint)print*,'sample ',VarName,' = ',hbots(im/2,(jsta+jend)/2) - - VarName='cuppt' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,cuppt) - if(debugprint)print*,'sample ',VarName,' = ',cuppt(im/2,(jsta+jend)/2) - - VarName='cprate' - VcoordName='sfc' - l=1 - call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & - ,l,nrec,fldsize,spval,tmp & - ,recname,reclevtyp,reclev,VarName,VcoordName & - ,cprate) - if(debugprint)print*,'sample ',VarName,' = ',cprate(im/2,(jsta+jend)/2) - - deallocate(tmp,recname,reclevtyp,reclev) -!!!! DONE GETTING - - do l = 1, lm - do j = jsta, jend - do i = 1, im - IF(ABS(T(I,J,L))>1.0E-3) & - OMGA(I,J,L) = -WH(I,J,L)*PMID(I,J,L)*G/ & - (RD*T(I,J,L)*(1.+D608*Q(I,J,L))) - - end do - end do - end do - write(0,*)' after OMGA' - - - THL=210. - PLQ=70000. - - CALL TABLE(PTBL,TTBL,PT, & - RDQ,RDTH,RDP,RDTHE,PL,THL,QS0,SQS,STHE,THE0) - - CALL TABLEQ(TTBLQ,RDPQ,RDTHEQ,PLQ,THL,STHEQ,THE0Q) - write(0,*)' after TABLEQ' - - -! -! - IF(ME==0)THEN - WRITE(6,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' - WRITE(6,51) (SPL(L),L=1,LSM) - 50 FORMAT(14(F4.1,1X)) - 51 FORMAT(8(F8.1,1X)) - ENDIF -! -! COMPUTE DERIVED TIME STEPPING CONSTANTS. -! -!MEB need to get DT -! DT = 120. !MEB need to get DT -! NPHS = 4 !MEB need to get physics DT - DTQ2 = DT * NPHS !MEB need to get physics DT - TSPH = 3600./DT !MEB need to get DT - - IF (PTHRESH>0.) THEN - PTHRESH=0.01*DTQ2/3.6E6 !-- Precip rate >= 0.01 mm/h -! PTHRESH=0.01*DTQ2/(3600.*39.37) !-- Precip rate >= 0.01 inches/h - ENDIF - - TSRFC=float(NSRFC)/TSPH - IF(NSRFC==0)TSRFC=float(ifhr) !in case buket does not get emptied - TRDLW=float(NRDLW)/TSPH - IF(NRDLW==0)TRDLW=float(ifhr) !in case buket does not get emptied - TRDSW=float(NRDSW)/TSPH - IF(NRDSW==0)TRDSW=float(ifhr) !in case buket does not get emptied - THEAT=float(NHEAT)/TSPH - IF(NHEAT==0)THEAT=float(ifhr) !in case buket does not get emptied - TCLOD=float(NCLOD)/TSPH - IF(NCLOD==0)TCLOD=float(ifhr) !in case buket does not get emptied - TPREC=float(NPREC)/TSPH - IF(NPREC==0)TPREC=float(ifhr) !in case buket does not get emptied -! TPREC=float(ifhr) - print*,'TSRFC TRDLW TRDSW THEAT TCLOD TPREC= ' & - ,TSRFC, TRDLW, TRDSW, THEAT, TCLOD, TPREC -!MEB need to get DT - -!how am i going to get this information? -! NPREC = INT(TPREC *TSPH+D50) -! NHEAT = INT(THEAT *TSPH+D50) -! NCLOD = INT(TCLOD *TSPH+D50) -! NRDSW = INT(TRDSW *TSPH+D50) -! NRDLW = INT(TRDLW *TSPH+D50) -! NSRFC = INT(TSRFC *TSPH+D50) -!how am i going to get this information? -! -! IF(ME==0)THEN -! WRITE(6,*)' ' -! WRITE(6,*)'DERIVED TIME STEPPING CONSTANTS' -! WRITE(6,*)' NPREC,NHEAT,NSRFC : ',NPREC,NHEAT,NSRFC -! WRITE(6,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW -! ENDIF -! -! COMPUTE DERIVED MAP OUTPUT CONSTANTS. - DO L = 1,LSM - ALSL(L) = ALOG(SPL(L)) - END DO - write(0,*)' after ALSL' -! -!HC WRITE IGDS OUT FOR WEIGHTMAKER TO READ IN AS KGDSIN - if(me==0)then - print*,'writing out igds' - igdout=110 -! open(igdout,file='griddef.out',form='unformatted' -! + ,status='unknown') - IF(MAPTYPE==203)THEN !A STAGGERED E-GRID - WRITE(igdout)203 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)136 - WRITE(igdout)CENLAT - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)64 - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)LATLAST - WRITE(igdout)LONLAST - ELSE IF(MAPTYPE==205)THEN !A STAGGERED B-GRID - WRITE(igdout)205 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)136 - WRITE(igdout)CENLAT - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)64 - WRITE(igdout)LATLAST - WRITE(igdout)LONLAST - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)0 - END IF - open(111,file='copygb_gridnav.txt',form='formatted' & - ,status='unknown') - IF(MAPTYPE==203)THEN !A STAGGERED E-GRID - write(111,1000) 2*IM-1,JM,LATSTART,LONSTART,CENLON, & - NINT(dxval*107.),NINT(dyval*110.),CENLAT,CENLAT - ELSE IF(MAPTYPE==205)THEN !A STAGGERED B-GRID - if(grib=="grib2") then - write(111,1000) IM,JM,LATSTART/1000,LONSTART/1000,CENLON/1000, & - NINT(dxval*107.)/1000,NINT(dyval*110.)/1000, & - CENLAT/1000,CENLAT/1000, & - LATLAST/1000,LONLAST/1000 - endif - END IF -1000 format('255 3 ',2(I4,x),I6,x,I7,x,'8 ',I7,x,2(I6,x),'0 64', & - 3(x,I6),x,I7) - close(111) -! - IF (MAPTYPE==205)THEN !A STAGGERED B-GRID - open(112,file='latlons_corners.txt',form='formatted' & - ,status='unknown') - if(grib=="grib2") then - write(112,1001)LATSTART/1000,(LONSTART/1000)-360000, & - LATSE/1000, & - LONSE/1000,LATNW/1000,LONNW/1000,LATLAST/1000, & - (LONLAST/1000)-360000 - endif -1001 format(4(I6,x,I7,x)) - close(112) - ENDIF - - end if - -! close all files - call nemsio_close(nfile,iret=status) - call nemsio_finalize() -! - write(0,*)'end of INIT_NEMS' - - RETURN - END diff --git a/sorc/ncep_post.fd/INITPOST_NMM.f b/sorc/ncep_post.fd/INITPOST_NMM.f deleted file mode 100644 index c673aa5fb..000000000 --- a/sorc/ncep_post.fd/INITPOST_NMM.f +++ /dev/null @@ -1,2643 +0,0 @@ -!> @file -! -!> SUBPROGRAM: INITPOST INITIALIZE POST FOR RUN -!! PRGRMMR: RUSS TREADON ORG: W/NP2 DATE: 93-11-10 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF AN ETA MODEL OR POST -!! PROCESSOR RUN. -!! -!! THIS ROUTINE ASSUMES THAT INTEGERS AND REALS ARE THE SAME SIZE -!! -!! PROGRAM HISTORY LOG: -!! 93-11-10 RUSS TREADON - ADDED DOCBLOC -!! 98-05-29 BLACK - CONVERSION OF POST CODE FROM 1-D TO 2-D -!! 99-01 20 TUCCILLO - MPI VERSION -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-06-19 MIKE BALDWIN - WRF VERSION -!! 02-08-15 H CHUANG - UNIT CORRECTION AND GENERALIZE PROJECTION OPTIONS -!! 03-07-25 H CHUANG - MODIFIED TO PROCESS NMM WRF -!! 05-12-05 H CHUANG - ADD CAPABILITY TO OUTPUT OFF-HOUR FORECAST WHICH HAS -!! NO INPACTS ON ON-HOUR FORECAST -!! 21-03-11 Bo Cui - change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INIT -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! - SUBROUTINE INITPOST_NMM - - use vrbls3d, only: t, u, uh, v, vh, q, cwm, f_ice, f_rain, f_rimef, q,& - qqw, qqr, qqs, qqi, qqg, qqw, cwm , q2, wh, pint, alpint, pmid,& - omga, pmidv, zmid, rlwtt, rswtt, ttnd, tcucn, train, exch_h,& - el_pbl, cfr, zint, REF_10CM, qqni, qqnr, qrimef - use vrbls2d, only: fis, cfrach, cfracl, cfracm, u10h, u10, v10h, v10,th10,& - q10, tshltr, qshltr, pshltr, smstav, smstot, acfrcv, acfrst, ncfrcv,& - ncfrst, ssroff, bgroff, sfcevp, sfcexc, vegfrc, acsnow, acsnom,& - cmc, sst, mdltaux, mdltauy, thz0, qz0, uz0, vz0, qs, z0, pblh, mixht,& - ustar, akhs, akms, ths, prec, cuprec, acprec, ancprc, cprate, cuppt,& - lspa, cldefi, htop, hbot, htopd, czmean, rswout, rlwin, rlwtoa, sigt4,& - radot, aswin, aswout, alwin, alwout, alwtoa, aswtoa, hbotd, htops,& - hbots, sr, rswin, rswinc, czen, tg, soiltb, twbs, sfcshx, qwbs,& - sfclhx, grnflx, subshx, potevp, sno, si, pctsno, ivgtyp, isltyp,& - islope, albedo, albase, mxsnal, epsr, f, REFC_10CM, REFD_MAX, & - RSWTOA, SWUPT, ACSWUPT, SWDNT, ACSWDNT, CD10, CH10 - use soil, only: smc, sh2o, stc, sldpth, sllevel - use masks, only: lmv, lmh, htm, vtm, hbm2, sm, sice, gdlat, gdlon, dx, dy - use params_mod, only: tfrz, g, rd, d608, rtd, dtr, erad - use lookup_mod, only: thl, plq, ptbl, ttbl, rdq, rdth, rdp, rdthe, pl,& - qs0, sqs, sthe, the0, ttblq, rdpq, rdtheq, stheq, the0q - use ctlblk_mod, only: jsta, jend, nprec, jsta_2l, jend_2u, filename,& - datahandle, datestr, ihrst, imin, sdat, spval, imp_physics, pt,& - icu_physics, pdtop, nsoil, isf_surface_physics, jsta_m, jend_m,& - avrain, avcnvc, ardsw, ardlw, asrfc, me, mpi_comm_comp, nphs, spl,& - lsm, dt, dtq2,tsrfc, trdlw, trdsw, idat, ifhr, ifmin, restrt,& - theat, tclod, tprec, alsl, lm, im, jm , submodelname - use gridspec_mod, only: latstart, latlast, cenlat, lonstart, lonlast,& - cenlon, dxval, dyval, maptype, gridtype, truelat1, truelat2,& - psmapf -! use wrf_io_flags_mod -! - implicit none -! -! INCLUDE/SET PARAMETERS. -! - INCLUDE "mpif.h" -! -! This version of INITPOST shows how to initialize, open, read from, and -! close a NetCDF dataset. In order to change it to read an internal (binary) -! dataset, do a global replacement of _ncd_ with _int_. - real :: dcenlat, dcenlon - character(len=31) :: VarName - integer :: Status, cen1, cen2 - character startdate*19,SysDepInfo*80 -! -! NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK -! AS LONG AS REALS AND INTEGERS ARE THE SAME SIZE. -! -! ALSO, EXTRACT IS CALLED WITH DUMMY ( A REAL ) EVEN WHEN THE NUMBERS ARE -! INTEGERS - THIS IS OK AS LONG AS INTEGERS AND REALS ARE THE SAME SIZE. - CHARACTER*4 RESTHR - INTEGER IDATE(8),JDATE(8) - INTEGER :: i_parent_start, j_parent_start -! -! DECLARE VARIABLES. -! - REAL RINC(5) - REAL ETA1(LM), ETA2(LM) - REAL DUMMY ( IM, JM ) -! REAL DUMMY2 ( IM, JM ) - real, allocatable :: fi(:,:,:) - REAL DUM3D ( IM+1, JM+1, LM+1 ) - REAL DUM3D2 ( IM+1, JM+1, LM+1 ) -!mp - INTEGER IDUMMY ( IM, JM ) -! -!jw - integer ii,jj,js,je,jev,iyear,imn,iday,itmp,ioutcount,istatus, & - nsrfc,nrdlw,nrdsw,nheat,nclod, & - I,J,L,LL,N,LONEND,LATEND,IMM,INAV,IRTN, & - IFDX,IFDY,IGDOUT,ICEN,JCEN -! integer iw, ie - real TSPH,fact,dumcst,tstart,tmp - real LAT -! -! Declarations for : -! putting 10 m wind on V points because copygb assume such - INTEGER IE, IW -!code from R.Rozumalski - INTEGER latnm, latsm, lonem, lonwm, idxave, dlat, dlon, nlat, nlon - -!*********************************************************************** -! START INIT HERE. -! - WRITE(6,*)'INITPOST: ENTER INITPOST' - print*,'im,jm,lm= ',im,jm,lm - - ii=im/2 ! diagnostic print indices - jj=(jsta+jend)/2 - ll=lm/2 -! -! STEP 1. READ MODEL OUTPUT FILE -! -! -!*** -! -! set default to not empty buket - NSRFC=0 - NRDLW=0 - NRDSW=0 - NHEAT=0 - NCLOD=0 - NPREC=0 - -! LMH always = LM for sigma-type vert coord -! LMV always = LM for sigma-type vert coord - - do j = jsta_2l, jend_2u - do i = 1, im - LMV ( i, j ) = lm - LMH ( i, j ) = lm - end do - end do - - -! HTM VTM all 1 for sigma-type vert coord - - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - HTM ( i, j, l ) = 1.0 - VTM ( i, j, l ) = 1.0 - end do - end do - end do -! -! how do I get the filename? -! fileName = '/ptmp/wx20mb/wrfout_01_030500' -! DateStr = '2002-03-05_18:00:00' -! how do I get the filename? - call ext_ncd_ioinit(SysDepInfo,Status) - print*,'called ioinit', Status - call ext_ncd_open_for_read( trim(fileName), 0, 0, " ", & - DataHandle, Status) - print*,'called open for read', Status - if ( Status /= 0 ) then - print*,'error opening ',fileName, ' Status = ', Status ; stop - endif -! get date/time info -! this routine will get the next time from the file, not using it - print *,'DateStr before calling ext_ncd_get_next_time=',DateStr -! call ext_ncd_get_next_time(DataHandle, DateStr, Status) - print *,'DateStri,Status,DataHandle = ',DateStr,Status,DataHandle - -! The end j row is going to be jend_2u for all variables except for V. - JS=JSTA_2L - JE=JEND_2U - IF (JEND_2U==JM) THEN - JEV=JEND_2U+1 - ELSE - JEV=JEND_2U - ENDIF -! -! Getting start time - call ext_ncd_get_dom_ti_char(DataHandle,'START_DATE',startdate, & - status ) -! patch for NMM WRF because it does not have start-date in output yet -! startdate='2003-04-17T00:00:00' - print*,'startdate= ',startdate -! - jdate=0 - idate=0 - read(startdate,15)iyear,imn,iday,ihrst,imin - 15 format(i4,1x,i2,1x,i2,1x,i2,1x,i2) - print*,'start yr mo day hr min =',iyear,imn,iday,ihrst,imin - print*,'processing yr mo day hr min=',idat(3),idat(1),idat(2), & - idat(4),idat(5) - idate(1)=iyear - idate(2)=imn - idate(3)=iday - idate(5)=ihrst - idate(6)=imin - SDAT(1)=imn - SDAT(2)=iday - SDAT(3)=iyear -! - jdate(1)=idat(3) - jdate(2)=idat(1) - jdate(3)=idat(2) - jdate(5)=idat(4) - jdate(6)=idat(5) -! CALL W3DIFDAT(JDATE,IDATE,2,RINC) -! ifhr=nint(rinc(2)) - CALL W3DIFDAT(JDATE,IDATE,0,RINC) - ifhr=nint(rinc(2)+rinc(1)*24.) - ifmin=nint(rinc(3)) - print*,' in INITPOST ifhr ifmin fileName=',ifhr,ifmin,fileName - -! Getting tstart - call ext_ncd_get_dom_ti_real(DataHandle,'TSTART',tmp,1,ioutcount, & - istatus) - if(istatus==0)then - tstart=tmp - else - tstart=0. - end if - print*,'status for getting TSTART= ',istatus - print*,'TSTART= ',TSTART - -! Getting restart - - RESTRT=.TRUE. ! set RESTRT default - call ext_ncd_get_dom_ti_integer(DataHandle,'RESTARTBIN',itmp,1, & - ioutcount,istatus) - - IF(itmp < 1)THEN - RESTRT=.FALSE. - ELSE - RESTRT=.TRUE. - END IF - - print*,'status for getting RESTARTBIN= ',istatus - print*,'Is this a restrt run? ',RESTRT - -! IF(RESTRT)THEN -! ifhr=ifhr+NINT(tstart) -! print*,'new forecast hours for restrt run= ',ifhr -! END IF - - IF(tstart > 1.0E-2)THEN - ifhr=ifhr+NINT(tstart) - rinc=0 - idate=0 - rinc(2)=-1.0*ifhr - call w3movdat(rinc,jdate,idate) - SDAT(1)=idate(2) - SDAT(2)=idate(3) - SDAT(3)=idate(1) - IHRST=idate(5) - print*,'new forecast hours for restrt run= ',ifhr - print*,'new start yr mo day hr min =',sdat(3),sdat(1), & - sdat(2),ihrst,imin - END IF - - VarName='HBM2' - HBM2=SPVAL - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - HBM2 ( i, j ) = dummy ( i, j ) - end do - end do - -! OK, since all of the variables are dimensioned/allocated to be -! the same size, this means we have to be careful int getVariable -! to not try to get too much data. For example, -! DUM3D is dimensioned IM+1,JM+1,LM+1 but there might actually -! only be im,jm,lm points of data available for a particular variable. - -! get 3-D variables - VarName='T' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - t ( i, j, l ) = dum3d ( i, j, l ) -! if(l==1)print*,'Debug: I,J,T= ',i,j,t ( i, j, l ) -! t ( i, j, l ) = dum3d ( i, j, l ) + 300. -! th ( i, j, l ) = dum3d ( i, j, l ) + 300. - end do - end do - end do - do l=1,lm - if(jj>= jsta .and. jj<=jend)print*,'sample L,T= ',L,T(ii,jj,l) - end do - -! VarName='T_ADJ' -! call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, -! & IM+1,1,JM+1,LM+1,IM,JS,JE,LM) -! do l = 1, lm -! do j = jsta_2l, jend_2u -! do i = 1, im -! t_ADJ ( i, j, l ) = dum3d ( i, j, l ) -! end do -! end do -! end do -! do l=1,lm -! if(jj>= jsta .and. jj<=jend)print*,'sample L,T_ADJ= ',L -! &,T_ADJ(ii,jj,l) -! end do - - - VarName='U' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - u ( i, j, l ) = dum3d ( i, j, l ) - UH( i, j, l ) = dum3d ( i, j, l ) -! if(l==1)print*,'Debug: I,J,U= ',i,j,u( i, j, l ) - end do - end do -! fill up UH which is U at P-points including 2 row halo -! do j = jsta_2l, jend_2u -! do i = 1, im -! UH (I,J,L) = (dum3d(I,J,L)+dum3d(I+1,J,L))*0.5 -! end do -! end do - end do - if(jj>= jsta .and. jj<=jend)print*,'sample U= ',U(ii,jj,ll) - VarName='V' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - v ( i, j, l ) = dum3d ( i, j, l ) - VH( i, j, l ) = dum3d ( i, j, l ) - end do - end do -! fill up VH which is V at P-points including 2 row halo -! do j = jsta_2l, jend_2u -! do i = 1, im -! VH(I,J,L) = (dum3d(I,J,L)+dum3d(I,J+1,L))*0.5 -! end do -! end do - end do - if(jj>= jsta .and. jj<=jend)print*,'sample V= ',V(ii,jj,ll) - - call ext_ncd_get_dom_ti_integer(DataHandle,'MP_PHYSICS' & - ,itmp,1,ioutcount,istatus) - imp_physics=itmp -! Chuang: will initialize microphysics constants differently for 85 now -! if(imp_physics == 85) imp_physics=5 !HWRF - print*,'MP_PHYSICS= ',imp_physics - -! Initializes constants for Ferrier microphysics - if(imp_physics==5 .or. imp_physics==15 .or. imp_physics==85 & - .or. imp_physics==95)then - CALL MICROINIT(imp_physics) - end if - - call ext_ncd_get_dom_ti_integer(DataHandle,'CU_PHYSICS' & - ,itmp,1,ioutcount,istatus) - icu_physics=itmp - if (icu_physics == 84 .or. icu_physics == 85) icu_physics = 4 ! HWRF - print*,'CU_PHYSICS= ',icu_physics - - ! Set these values to SPVAL to insure they are initialized a - ! fact that the code relies on later.... - qqw=spval - qqr=spval - qqs=spval - qqi=spval - qqg=spval - -!KRF: NMM and ARW direct read of radar ref for microphysic options -! mp options: 2,4,6,7,8,10,14,16 -! REFL_10cm --> REF_10CM -! REFD_MAX --> REFD_MAX - VarName='REFL_10CM' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - REF_10CM ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - do l=1,lm - if(jj>= jsta .and. jj<=jend)print*,'sample L,T= ',L,T(ii,jj,l) - end do - - VarName='REFD_MAX' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - REFD_MAX ( i, j ) = dummy ( i, j ) - end do - end do -! print*,'REFD_MAX at ',ii,jj,' = ',REFD_MAX(ii,jj) -! END KRF - - if(imp_physics==5 .or. imp_physics==15 .or. imp_physics==85 .or. imp_physics==95)then - - VarName='Q' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - if (dum3d(i,j,l) < 10E-12) dum3d(i,j,l) = 10E-12 - q ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - print*,'finish reading specific humidity' - if(jj>= jsta .and. jj<=jend)print*,'sample Q= ',Q(ii,jj,ll) - - else - VarName='QVAPOR' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im -! q ( i, j, l ) = dum3d ( i, j, l ) -! if(l==1)print*,'Debug: I,J,Q= ',i,j,q( i, j, l ) -!CHC CONVERT MIXING RATIO TO SPECIFIC HUMIDITY - if (dum3d(i,j,l) < 10E-12) dum3d(i,j,l) = 10E-12 - q ( i, j, l ) = dum3d ( i, j, l )/(1.0+dum3d ( i, j, l )) - end do - end do - end do - print*,'finish reading specific humidity' - if(jj>= jsta .and. jj<=jend)print*,'sample Q= ',Q(ii,jj,ll) - endif - - if(imp_physics==5 .or. imp_physics==85 .or. imp_physics==95)then - VarName='CWM' !????? - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - cwm ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - print*,'finish reading cloud mixing ratio' - - VarName='F_ICE' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - F_ICE ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - - VarName='F_RAIN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - F_RAIN ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - - VarName='F_RIMEF' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - F_RIMEF ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - - else ! retrieve hydrometeo fields directly for non-Ferrier - cwm=spval !make sure set - F_RimeF=spval !make sure set - - if(imp_physics/=0)then - VarName='QCLOUD' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im -! partition cloud water and ice for WSM3 - if(imp_physics==3)then - if(t(i,j,l) >= TFRZ)then - qqw ( i, j, l ) = dum3d ( i, j, l ) - else - qqi ( i, j, l ) = dum3d ( i, j, l ) - end if - else ! bug fix provided by J CASE - qqw ( i, j, l ) = dum3d ( i, j, l ) - end if - cwm(i,j,l)=dum3d(i,j,l) - end do - end do - end do - end if - if(jj>= jsta .and. jj<=jend)print*,'sample qqw= ' & - ,Qqw(ii,jj,ll) - - if(imp_physics/=1 .and. imp_physics/=3 & - .and. imp_physics/=0)then - VarName='QICE' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - qqi ( i, j, l ) = dum3d ( i, j, l ) - cwm(i,j,l)=cwm(i,j,l)+dum3d(i,j,l) - end do - end do - end do - end if - if(jj>= jsta .and. jj<=jend)print*,'sample qqi= ' & - ,Qqi(ii,jj,ll) - - if(imp_physics==15) then - VarName='QRIMEF' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - qrimef ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - end if - if(jj>= jsta .and. jj<=jend)print*,'sample qrimef= ' & - ,Qrimef(ii,jj,ll) - - if(imp_physics/=0)then - VarName='QRAIN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im -! partition rain and snow for WSM3 - if(imp_physics == 3)then - if(t(i,j,l) >= TFRZ)then - qqr ( i, j, l ) = dum3d ( i, j, l ) - else - qqs ( i, j, l ) = dum3d ( i, j, l ) - end if - else ! bug fix provided by J CASE - qqr ( i, j, l ) = dum3d ( i, j, l ) - end if - cwm(i,j,l)=cwm(i,j,l)+dum3d(i,j,l) - end do - end do - end do - end if - if(jj>= jsta .and. jj<=jend)print*,'sample qqr= ' & - ,Qqr(ii,jj,ll) - - if(imp_physics/=1 .and. imp_physics/=3 & - .and. imp_physics/=0)then - VarName='QSNOW' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - qqs ( i, j, l ) = dum3d ( i, j, l ) - cwm(i,j,l)=cwm(i,j,l)+dum3d(i,j,l) - end do - end do - end do - end if - if(jj>= jsta .and. jj<=jend)print*,'sample qqs= ' & - ,Qqs(ii,jj,ll) - - if(imp_physics==2 .or. imp_physics==6 & - .or. imp_physics==8 .or. imp_physics==28)then - VarName='QGRAUP' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - qqg ( i, j, l ) = dum3d ( i, j, l ) - cwm(i,j,l)=cwm(i,j,l)+dum3d(i,j,l) - end do - end do - end do - end if - if(jj>= jsta .and. jj<=jend)print*,'sample qqg= ' & - ,Qqg(ii,jj,ll) - -! KRS: Add concentrations for HWRF output - if(imp_physics==8 .or. imp_physics==9)then - VarName='QNICE' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM, JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - qqni ( i, j, l ) = dum3d ( i, j, l ) - if(i==im/2.and.j==(jsta+jend)/2)print*,'sample QQNI= ', & - i,j,l,QQNI ( i, j, l ) - end do - end do - end do - VarName='QNRAIN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM, JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - qqnr ( i, j, l ) = dum3d ( i, j, l ) - if(i==im/2.and.j==(jsta+jend)/2)print*,'sample QQNR= ', & - i,j,l,QQNR ( i, j, l ) - end do - end do - end do - end if -! KRS: End add concentrations for HWRF - - end if ! end of retrieving hydrometeo for different MP options - - -! call getVariable(fileName,DateStr,DataHandle,'TKE_PBL',DUM3D, - call getVariable(fileName,DateStr,DataHandle,'Q2',DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - q2 ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - VarName='W' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM+1) -! & IM+1,1,JM+1,LM+1,IM,JS,JE,LM) -! do l = 1, lm+1 -! do j = jsta_2l, jend_2u -! do i = 1, im -! w ( i, j, l ) = dum3d ( i, j, l ) -! end do -! end do -! end do -! fill up WH which is W at P-points including 2 row halo - DO L=1,LM - DO I=1,IM - DO J=JSTA_2L,JEND_2U -! WH(I,J,L) = (W(I,J,L)+W(I,J,L+1))*0.5 - wh ( i, j, l ) = dum3d ( i, j, l+1 ) - ENDDO - ENDDO - ENDDO - print*,'finish reading W' - -!MEB call getVariable(fileName,DateStr,DataHandle,'QRAIN',new) - - VarName='PINT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM+1) -! VarName='P' -! call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D2, -! & IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm+1 - do j = jsta_2l, jend_2u - do i = 1, im -! PMID(I,J,L)=DUM3D(I,J,L)+DUM3D2(I,J,L) - PINT(I,J,L)=DUM3D(I,J,L) - ALPINT(I,J,L)=ALOG(PINT(I,J,L)) - end do - end do - end do -! do l = 1, lm+1 -! if(jj>= jsta .and. jj<=jend)print*,'sample PINT= ' -! & ,PINT(ii,jj,l) -! end do -! - DO L=1,LM - DO I=1,IM - DO J=JSTA_2L,JEND_2U - PMID(I,J,L)=(PINT(I,J,L)+PINT(I,J,L+1))*0.5 -! TH(I,J,L)=T(I,J,L)*(1.E5/PMID(I,J,L))**CAPA - IF(ABS(T(I,J,L))>1.0E-3) & - OMGA(I,J,L) = -WH(I,J,L)*PMID(I,J,L)*G/ & - (RD*T(I,J,L)*(1.+D608*Q(I,J,L))) -! -! PINT(I,J,L)=EXP((ALOG(PMID(I,J,L-1))+ -! & ALOG(PMID(I,J,L)))*0.5) ! ave of ln p -! ALPINT(I,J,L)=ALOG(PINT(I,J,L)) - ENDDO - ENDDO - ENDDO -! - do l = 1, lm - do j = jsta, jend - do i = 1, im-MOD(J,2) - IF(J == 1 .AND. I < IM)THEN !SOUTHERN BC - PMIDV(I,J,L)=0.5*(PMID(I,J,L)+PMID(I+1,J,L)) - ELSE IF(J==JM .AND. I1.0e-5)print*,'nonzero ncfrcv',ncfrcv(i,j) - end do - end do - - VarName='NCFRST' - write(6,*) 'call getIVariable for : ', VarName - call getIVariableN(fileName,DateStr,DataHandle,VarName,IDUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ncfrst ( i, j ) = float(idummy ( i, j )) -! if(ncfrst(i,j)>1.0e-5)print*,'nonzero ncfrst',ncfrst(i,j) - end do - end do - - VarName='SSROFF' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SSROFF ( i, j ) = dummy ( i, j ) - end do - end do - VarName='UDROFF' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - BGROFF ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='SFCEVP' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SFCEVP( i, j ) = dummy ( i, j ) - end do - end do -! print*,'SFCEVP at ',ii,jj,' = ',SFCEVP(ii,jj) - - VarName='CD10' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY,& - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CD10( i, j ) = dummy ( i, j ) - end do - end do -! print*,'CD10 at ',ii,jj,' = ',CD10(ii,jj) - - VarName='CH10' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY,& - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CH10( i, j ) = dummy ( i, j ) - end do - end do -! print*,'CD10 at ',ii,jj,' = ',CD10(ii,jj) - - VarName='SFCEXC' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SFCEXC( i, j ) = dummy ( i, j ) - end do - end do -! print*,'SFCEXC at ',ii,jj,' = ',SFCEXC(ii,jj) - VarName='VEGFRC' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - VEGFRC ( i, j ) = dummy ( i, j ) - end do - end do - print*,'VEGFRC at ',ii,jj,' = ',VEGFRC(ii,jj) - VarName='ACSNOW' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ACSNOW ( i, j ) = dummy ( i, j ) - end do - end do - VarName='ACSNOM' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ACSNOM ( i, j ) = dummy ( i, j ) - end do - end do -! VarName='CANWAT' - VarName='CMC' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CMC ( i, j ) = dummy ( i, j ) - end do - end do - VarName='SST' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SST ( i, j ) = dummy ( i, j ) - end do - end do - print*,'SST at ',ii,jj,' = ',sst(ii,jj) - - VarName='TAUX' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - MDLTAUX ( i, j ) = dummy ( i, j ) - end do - end do - print*,'MDLTAUX at ',ii,jj,' = ',mdltaux(ii,jj) - - VarName='TAUY' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - MDLTAUY ( i, j ) = dummy ( i, j ) - end do - end do - print*,'MDLTAUY at ',ii,jj,' = ',mdltauy(ii,jj) - - VarName='EXCH_H' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - EXCH_H ( i, j, l ) = dum3d ( i, j, l ) - dummy(i,j)=dum3d ( i, j, l ) - end do - end do - print*,'l, max exch = ',l,maxval(dummy) - end do - do l=1,lm - print*,'sample EXCH_H= ',EXCH_H(ii,jj,l) - end do - - VarName='EL_PBL' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - EL_PBL ( i, j, l ) = dum3d ( i, j, l ) - dummy(i,j)=dum3d ( i, j, l ) - end do - end do - print*,'l, max EL_PBL = ',l,maxval(dummy) - end do - - - VarName='THZ0' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - THZ0 ( i, j ) = dummy ( i, j ) - end do - end do - print*,'THZ0 at ',ii,jj,' = ',THZ0(ii,jj) - VarName='QZ0' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - QZ0 ( i, j ) = dummy ( i, j ) - end do - end do - print*,'QZ0 at ',ii,jj,' = ',QZ0(ii,jj) - VarName='UZ0' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - UZ0 ( i, j ) = dummy ( i, j ) - end do - end do - print*,'UZ0 at ',ii,jj,' = ',UZ0(ii,jj) - VarName='VZ0' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - VZ0 ( i, j ) = dummy ( i, j ) - end do - end do - print*,'VZ0 at ',ii,jj,' = ',VZ0(ii,jj) -! VarName='QSFC' - VarName='QS' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - QS ( i, j ) = dummy ( i, j ) -! if(qs(i,j)>1.0e-7)print*,'nonzero qsfc' - end do - end do - - VarName='Z0' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - Z0 ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='PBLH' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - PBLH( i, j ) = dummy ( i, j ) - end do - end do -! write(6,*) 'PBLH(ii,jj): ', DUMMY(ii,jj) - - VarName='MIXHT' !PLee (3/07) - MIXHT=SPVAL !Init value to detect read failure - call getVariable(filename,DateStr,DataHandle,Varname,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - MIXHT( i, j ) = dummy ( i, j ) - end do - end do - - VarName='USTAR' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - USTAR( i, j ) = dummy ( i, j ) - end do - end do - - print*,'USTAR at ',ii,jj,' = ',USTAR(ii,jj) - VarName='AKHS_OUT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - AKHS ( i, j ) = dummy ( i, j ) - end do - end do - print*,'max akhs= ',maxval(akhs) - VarName='AKMS_OUT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - AKMS ( i, j ) = dummy ( i, j ) - end do - end do - print*,'max akms= ',maxval(akms) - -! -! In my version, variable is TSK (skin temp, not skin pot temp) -! -!mp call getVariable(fileName,DateStr,DataHandle,'THSK',DUMMY, -! VarName='TSK' - VarName='THS' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - THS ( i, j ) = dummy ( i, j ) - end do - end do - print*,'THS at ',ii,jj,' = ',THS(ii,jj) - -!C -!CMP -!C -!C RAINC is "ACCUMULATED TOTAL CUMULUS PRECIPITATION" -!C RAINNC is "ACCUMULATED TOTAL GRID SCALE PRECIPITATION" - - write(6,*) 'getting RAINC' - - VarName='PREC' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im -! CUPREC ( i, j ) = dummy ( i, j ) * 0.001 - PREC ( i, j ) = dummy ( i, j ) - end do - end do - print*,'PREC at ',ii,jj,' = ',PREC(ii,jj) - -! VarName='RAINC' - VarName='CUPREC' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im -! CUPREC ( i, j ) = dummy ( i, j ) * 0.001 - CUPREC ( i, j ) = dummy ( i, j ) - end do - end do - print*,'CUPREC at ',ii,jj,' = ',CUPREC(ii,jj) - write(6,*) 'getting RAINTOTAL' -! VarName='RAINNC' - VarName='ACPREC' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ACPREC( i, j ) = dummy ( i, j ) - ANCPRC ( i, j ) = ACPREC(I,J)-CUPREC(I,J) - end do - end do - print*,'ACPREC at ',ii,jj,' = ',ACPREC(ii,jj) - print*,'ANCPRC at ',ii,jj,' = ',ANCPRC(ii,jj) -! -! hoping to read instantanous convective precip rate soon, initialize it to spval -! for now - - VarName='CPRATE' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CPRATE(I,J)=dummy(i,j) - enddo - enddo - - VarName='CUPPT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CUPPT ( i, j ) = dummy ( i, j ) - end do - end do - print*,'maxval CUPPT: ', maxval(DUMMY) - -! adding land surface precipitation accumulation for Yin's precip assimilation - - VarName='LSPA' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - LSPA ( i, j ) = dummy ( i, j ) - end do - end do - print*,'maxval LSPA: ', maxval(DUMMY) - - - VarName='CLDEFI' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CLDEFI ( i, j ) = dummy ( i, j ) - end do - end do - print*,'maxval CLDEFI: ', maxval(DUMMY) - -! -! Very confusing story ... -! -! Retrieve htop and hbot => They are named CNVTOP, CNVBOT in the model and -! with HBOTS,HTOPS (shallow conv) and HBOTD,HTOPD (deep conv) represent -! the 3 sets of convective cloud base/top arrays tied to the frequency -! that history files are written. -! -! IN THE *MODEL*, arrays HBOT,HTOP are similar to CNVTOP,CNVBOT but are -! used in radiation and are tied to the frequency of radiation updates. -! -! For historical reasons model arrays CNVTOP,CNVBOT are renamed HBOT,HTOP -! and manipulated throughout the post. - -! VarName='HTOP' - VarName='CNVTOP' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - HTOP ( i, j ) = float(LM)-dummy(i,j)+1.0 - HTOP ( i, j ) = max(1.0,min(HTOP(I,J),float(LM))) - end do - end do - print*,'maxval HTOP: ', maxval(DUMMY) - -! VarName='HBOT' - VarName='CNVBOT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - HBOT ( i, j ) = float(LM)-dummy(i,j)+1.0 - HBOT ( i, j ) = max(1.0,min(HBOT(I,J),float(LM))) - end do - end do - print*,'maxval HBOT: ', maxval(DUMMY) - - VarName='HTOPD' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - HTOPD ( i, j ) = float(LM)-dummy(i,j)+1.0 - end do - end do - print*,'maxval HTOPD: ', maxval(DUMMY) - - VarName='HBOTD' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - HBOTD ( i, j ) = float(LM)-dummy(i,j)+1.0 - end do - end do - print*,'maxval HBOTD: ', maxval(DUMMY) - - VarName='HTOPS' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - HTOPS ( i, j ) = float(LM)-dummy(i,j)+1.0 - end do - end do - print*,'maxval HTOPS: ', maxval(DUMMY) - - VarName='HBOTS' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - HBOTS ( i, j ) = float(LM)-dummy(i,j)+1.0 - end do - end do - print*,'maxval HBOTS: ', maxval(DUMMY) - - VarName='CLDFRA' - call getVariable(fileName,DateStr,DataHandle,VarName,DUM3D, & - IM+1,1,JM+1,LM+1,IM,JS,JE,LM) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - CFR ( i, j, l ) = dum3d ( i, j, l ) - end do - end do - end do - - - VarName='SR' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SR ( i, j ) = dummy(i,j) - end do - end do - print*,'maxval SR: ', maxval(DUMMY) - -! call getVariable(fileName,DateStr,DataHandle,'RAINCV',DUMMY, -! & IM,1,JM,1,IM,JS,JE,1) -! do j = jsta_2l, jend_2u -! do i = 1, im -! CUPPT ( i, j ) = dummy ( i, j )* 0.001 -! end do -! end do -! -! VarName='GSW' - VarName='RSWIN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - RSWIN ( i, j ) = dummy ( i, j ) -! if(abs(dummy(i,j))> 0.0)print*,'rswin=',dummy(i,j) - end do - end do - - VarName='RSWINC' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - RSWINC ( i, j ) = dummy ( i, j ) -! if(abs(dummy(i,j))> 0.0)print*,'rswin=',dummy(i,j) - end do - end do - -! read in zenith angle - VarName='CZEN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CZEN ( i, j ) = dummy ( i, j ) -! if(abs(czen(i,j))> 0.0)print*,'czen=',czen(i,j) - end do - end do - - VarName='CZMEAN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - CZMEAN ( i, j ) = dummy ( i, j ) -! if(abs(dummy(i,j))> 0.0)print*,'czmean=',dummy(i,j) - end do - end do - - VarName='RSWOUT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - RSWOUT ( i, j ) = dummy ( i, j ) -! if(abs(dummy(i,j))> 0.0)print*,'rswout=',dummy(i,j) - end do - end do - -! VarName='GLW' - VarName='RLWIN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - RLWIN ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='RLWTOA' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - RLWTOA ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='SIGT4' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SIGT4 ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='RADOT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - RADOT ( i, j ) = dummy ( i, j ) - end do - end do - -! accumulated incoming short wave - VarName='ASWIN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ASWIN ( i, j ) = dummy ( i, j ) - end do - end do - -! accumulated outgoing short wave - VarName='ASWOUT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ASWOUT ( i, j ) = dummy ( i, j ) -! if(abs(dummy(i,j))> 0.0)print*,'aswout=',dummy(i,j) - end do - end do - -! shortwave accumulation frequency - VarName='NRDSW' - call getIVariableN(fileName,DateStr,DataHandle,VarName,NRDSW, & - 1,1,1,1,1,1,1,1) - print*,'NRDSW in INITPOST_NMM=',NRDSW - - VarName='ARDSW' - call getVariable(fileName,DateStr,DataHandle,VarName,ARDSW, & - 1,1,1,1,1,1,1,1) - print*,'ARDSW ARDLW in INITPOST_NMM=',ARDSW, ARDLW -! accumulated incoming long wave - VarName='ALWIN' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ALWIN ( i, j ) = dummy ( i, j ) - end do - end do - -! accumulated outgoing long wave - VarName='ALWOUT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ALWOUT ( i, j ) = dummy ( i, j ) - end do - end do - -! longwave accumulation frequency - VarName='NRDLW' - call getIVariableN(fileName,DateStr,DataHandle,VarName,NRDLW, & - 1,1,1,1,1,1,1,1) - print*,'NRDLW= ',NRDLW - -! longwave accumulation counts - VarName='ARDLW' - call getVariable(fileName,DateStr,DataHandle,VarName,ARDLW, & - 1,1,1,1,1,1,1,1) - -! obtain time averaged radition at the top of atmosphere - VarName='ALWTOA' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ALWTOA ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='ASWTOA' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ASWTOA ( i, j ) = dummy ( i, j ) - end do - end do - -! KRS: Add RSWTOA to radiation variable options - VarName='RSWTOA' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - RSWTOA ( i, j ) = dummy ( i, j ) - end do - end do - -! KRS: RRTMG variables for HWRF - VarName='SWUPT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SWUPT ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='ACSWUPT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ACSWUPT ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='SWDNT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SWDNT ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='ACSWDNT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ACSWDNT ( i, j ) = dummy ( i, j ) - end do - end do - -! END KRS RRTMG Vars - - -! VarName='TMN' -! VarName='TG' - VarName='TGROUND' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - TG ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='SOILTB' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SOILTB ( i, j ) = dummy ( i, j ) - end do - end do - -! sensible heat fluxes - VarName='TWBS' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - TWBS ( i, j ) = dummy ( i, j ) - end do - end do - -! accumulated sensible heat fluxes -! VarName='HFX' - VarName='SFCSHX' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SFCSHX ( i, j ) = dummy ( i, j ) - end do - end do - -! fluxes accumulation frequency - VarName='NSRFC' - call getIVariableN(fileName,DateStr,DataHandle,VarName,NSRFC, & - 1,1,1,1,1,1,1,1) - print*,'NSRFC= ',NSRFC -! fluxes accumulation counts - VarName='ASRFC' - call getVariable(fileName,DateStr,DataHandle,VarName,ASRFC, & - 1,1,1,1,1,1,1,1) - -! instantanous latent heat fluxes - VarName='QWBS' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - QWBS ( i, j ) = dummy ( i, j ) - end do - end do - -! accumulated latent heat fluxes -! VarName='QFX' - VarName='SFCLHX' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SFCLHX ( i, j ) = dummy ( i, j ) - end do - end do - -! instantanous ground heat fluxes - VarName='GRNFLX' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - GRNFLX ( i, j ) = dummy ( i, j ) - end do - end do - -! accumulated ground heat fluxes - VarName='SUBSHX' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SUBSHX ( i, j ) = dummy ( i, j ) - end do - end do - -! accumulated ground heat fluxes - VarName='POTEVP' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - POTEVP ( i, j ) = dummy ( i, j ) - end do - end do - -! VarName='SNOWC' -! VarName='SNO' - VarName='WEASD' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) -! do j = jsta_2l, jend_2u -! do i = 1, im -! SNO ( i, j ) = dummy ( i, j ) -! end do -! end do - - VarName='SNO' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SNO ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='SI' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SI ( i, j ) = dummy ( i, j ) - end do - end do - -! snow cover - VarName='PCTSNO' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - PCTSNO ( i, j ) = dummy ( i, j ) - if(dummy(i,j) > 1.0e-5)print*,'nonzero pctsno' - end do - end do - - -! GET VEGETATION TYPE - -! call getVariable(fileName,DateStr,DataHandle,'IVGTYP',DUMMY -! & ,IM,1,JM,1,IM,JS,JE,1) -! print*,'sample VEG TYPE',DUMMY(20,20) -! XLAND 1 land 2 sea -! VarName='XLAND' - - VarName='IVGTYP' - call getIVariableN(fileName,DateStr,DataHandle,VarName,IDUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - IVGTYP ( i, j ) = idummy ( i, j ) - end do - end do - print*,'MAX IVGTYP=', maxval(idummy) - - VarName='ISLTYP' - call getIVariableN(fileName,DateStr,DataHandle,VarName,IDUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ISLTYP ( i, j ) = idummy ( i, j ) - end do - end do - print*,'MAX ISLTYP=', maxval(idummy) - - VarName='ISLOPE' - call getIVariableN(fileName,DateStr,DataHandle,VarName,IDUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ISLOPE( i, j ) = idummy ( i, j ) - end do - end do - - VarName='SM' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SM ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='SICE' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - SICE ( i, j ) = dummy ( i, j ) - end do - end do - - VarName='ALBEDO' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ALBEDO( i, j ) = dummy ( i, j ) - end do - end do - - VarName='ALBASE' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - ALBASE( i, j ) = dummy ( i, j ) - end do - end do - - VarName='MXSNAL' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - MXSNAL( i, j ) = dummy ( i, j ) - end do - end do - - VarName='EPSR' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - EPSR( i, j ) = dummy ( i, j ) - end do - end do - -! VarName='XLAT' - VarName='GLAT' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - f(i,j) = 1.454441e-4*sin(dummy(i,j)) - GDLAT ( i, j ) = dummy ( i, j ) * RTD - end do - end do -! pos north - print*,'GDLAT at ',ii,jj,' = ',GDLAT(ii,jj) - print*,'read past GDLAT' -! VarName='XLONG' - VarName='GLON' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - GDLON ( i, j ) = dummy ( i, j ) * RTD -! if(j==1 .or. j==jm)print*,'I,J,GDLON,GDLAT= ',i,j -! 1 ,GDLON( i, j ),GDLAT ( i, j ) -! if(abs(GDLAT(i,j)-20.0)<0.5 .and. abs(GDLON(I,J) -! 1 +157.0)<5.)print* -! 2 ,'Debug:I,J,GDLON,GDLAT,SM,HGT,psfc= ',i,j,GDLON(i,j) -! 3 ,GDLAT(i,j),SM(i,j),FIS(i,j)/G,PINT(I,j,lm+1) - end do - end do - print*,'GDLON at ',ii,jj,' = ',GDLON(ii,jj) - print*,'read past GDLON' -! pos east - call collect_loc(gdlat,dummy) - get_dcenlat: if(me==0)then - latstart=nint(dummy(1,1)*1000.) ! lower left - latlast=nint(dummy(im,jm)*1000.) ! upper right - - icen=im/2 !center grid - jcen=jm/2 -print *, 'dummy(icen,jcen) = ', dummy(icen,jcen) -print *, 'dummy(icen-1,jcen) = ', dummy(icen-1,jcen) -print *, 'dummy(icen+1,jcen) = ', dummy(icen+1,jcen) - - ! Grid navigation for copygb - R.Rozumalski - latnm = nint(dummy(icen,jm)*1000.) - latsm = nint(dummy(icen,1)*1000.) -print *, 'latnm, latsm', latnm, latsm - - ! temporary patch for nmm wrf for moving nest - ! cenlat = glat(im/2,jm/2) -Gopal - - if(mod(im,2)/=0)then !per Pyle, jm is always odd - if(mod(jm+1,4)/=0)then - dcenlat=dummy(icen,jcen) - else - dcenlat=0.5*(dummy(icen-1,jcen)+dummy(icen,jcen)) - end if - else - if(mod(jm+1,4)/=0)then - dcenlat=0.5*(dummy(icen,jcen)+dummy(icen+1,jcen)) - else - dcenlat=dummy(icen,jcen) - end if - end if - endif get_dcenlat - write(6,*) 'laststart,latlast,dcenlat B calling bcast= ', & - latstart,latlast,dcenlat - call mpi_bcast(latstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(latlast,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(dcenlat,1,MPI_REAL,0,mpi_comm_comp,irtn) - write(6,*) 'laststart,latlast A calling bcast= ',latstart,latlast - - call collect_loc(gdlon,dummy) - get_dcenlon: if(me==0)then - lonstart=nint(dummy(1,1)*1000.) - lonlast=nint(dummy(im,jm)*1000.) - - ! icen, jcen set above -print *, 'lon dummy(icen,jcen) = ', dummy(icen,jcen) -print *, 'lon dummy(icen-1,jcen) = ', dummy(icen-1,jcen) -print *, 'lon dummy(icen+1,jcen) = ', dummy(icen+1,jcen) - - ! Grid navigation for copygb - R.Rozumalski - lonem = nint(dummy(icen,jm)*1000.) - lonwm = nint(dummy(icen,1)*1000.) - - if(mod(im,2)/=0)then !per Pyle, jm is always odd - if(mod(jm+1,4)/=0)then - cen1=dummy(icen,jcen) - cen2=cen1 - else - cen1=min(dummy(icen-1,jcen),dummy(icen,jcen)) - cen2=max(dummy(icen-1,jcen),dummy(icen,jcen)) - end if - else - if(mod(jm+1,4)/=0)then - cen1=min(dummy(icen+1,jcen),dummy(icen,jcen)) - cen2=max(dummy(icen+1,jcen),dummy(icen,jcen)) - else - cen1=dummy(icen,jcen) - cen2=cen1 - end if - end if - ! Trahan fix: Pyle's code broke at the dateline. - if(cen2-cen1>180) then - ! We're near the dateline - dcenlon=mod(0.5*(cen2+cen1+360)+3600+180,360.)-180. - else - ! We're not near the dateline. Use the original code, - ! unmodified, to maintain bitwise identicality. - dcenlon=0.5*(cen1+cen2) - endif - end if get_dcenlon ! rank 0 - write(6,*)'lonstart,lonlast,cenlon B calling bcast= ',lonstart, & - lonlast,cenlon - call mpi_bcast(lonstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(lonlast,1,MPI_INTEGER,0,mpi_comm_comp,irtn) - call mpi_bcast(dcenlon,1,MPI_REAL,0,mpi_comm_comp,irtn) - write(6,*)'lonstart,lonlast,cenlon A calling bcast= ',lonstart, & - lonlast,cenlon - - if(me==0) then - open(1013,file='this-domain-center.ksh.inc',form='formatted',status='unknown') -1013 format(A,'=',F0.3) - write(1013,1013) 'clat',dcenlat - write(1013,1013) 'clon',dcenlon - endif -! -! OBTAIN DX FOR NMM WRF - VarName='DX_NMM' - call getVariable(fileName,DateStr,DataHandle,VarName,DUMMY, & - IM,1,JM,1,IM,JS,JE,1) - do j = jsta_2l, jend_2u - do i = 1, im - DX ( i, j ) = dummy ( i, j ) - if(DX(i,j)<0.1)print*,'zero dx in INIT: I,J,DX= ',i,j & - ,DX( i, j ) -! if(j==1 .or. j==jm)print*,'I,J,DX= ',i,j -! 1 ,DX( i, j ) - end do - end do - - varname='ETA1' - write(6,*) 'call getVariable for : ', VarName - call getVariable(fileName,DateStr,DataHandle,VarName,ETA1, & - LM,1,1,1,LM,1,1,1) - - varname='ETA2' - write(6,*) 'call getVariable for : ', VarName - call getVariable(fileName,DateStr,DataHandle,VarName,ETA2, & - LM,1,1,1,LM,1,1,1) - - open(75,file='ETAPROFILE.txt',form='formatted',status='unknown') - DO L=1,lm+1 - IF(L == 1)THEN - write(75,1020)L, 0., 0. - ELSE - write(75,1020)L, ETA1(lm+2-l), ETA2(lm+2-l) - END IF -! print*,'L, ETA1, ETA2= ',L, ETA1(l), ETA2(l) - END DO - 1020 format(I3,2E17.10) - close (75) - -! physics calling frequency - VarName='NPHS0' - call getIVariableN(fileName,DateStr,DataHandle,VarName,NPHS, & - 1,1,1,1,1,1,1,1) - print*,'NPHS= ',NPHS -! physics calling frequency - VarName='NCLOD' - call getIVariableN(fileName,DateStr,DataHandle,VarName,NCLOD, & - 1,1,1,1,1,1,1,1) - -! physics calling frequency - VarName='NPREC' - call getIVariableN(fileName,DateStr,DataHandle,VarName,NPREC, & - 1,1,1,1,1,1,1,1) - -! physics calling frequency - VarName='NHEAT' - call getIVariableN(fileName,DateStr,DataHandle,VarName,NHEAT, & - 1,1,1,1,1,1,1,1) - print*,'NHEAT= ',NHEAT - - ! Compute f_* arrays from q* arrays - if(imp_physics==15) then - print *,'Convert from Q arrays to F arrays for advected Ferrier.' - call etamp_q2f(QRIMEF,QQI,QQR,QQW,CWM,F_RAIN,F_ICE,F_RIMEF,T) - endif -! -! ncdump -h - -!! -!! -!! - write(6,*) 'filename in INITPOST=', filename,' is' - -! status=nf_open(filename,NF_NOWRITE,ncid) -! write(6,*) 'returned ncid= ', ncid -! status=nf_get_att_real(ncid,varid,'DX',tmp) -! dxval=int(tmp) -! status=nf_get_att_real(ncid,varid,'DY',tmp) -! dyval=int(tmp) -! status=nf_get_att_real(ncid,varid,'CEN_LAT',tmp) -! cenlat=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'CEN_LON',tmp) -! cenlon=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'TRUELAT1',tmp) -! truelat1=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'TRUELAT2',tmp) -! truelat2=int(1000.*tmp) -! status=nf_get_att_real(ncid,varid,'MAP_PROJ',tmp) -! maptype=int(tmp) -! status=nf_close(ncid) - -! dxval=30000. -! dyval=30000. -! -! write(6,*) 'dxval= ', dxval -! write(6,*) 'dyval= ', dyval -! write(6,*) 'cenlat= ', cenlat -! write(6,*) 'cenlon= ', cenlon -! write(6,*) 'truelat1= ', truelat1 -! write(6,*) 'truelat2= ', truelat2 -! write(6,*) 'maptype is ', maptype -! - call ext_ncd_get_dom_ti_real(DataHandle,'DX',tmp, & - 1,ioutcount,istatus) - dxval=nint(tmp*1000.) ! E-grid dlamda in degree - write(6,*) 'dxval= ', dxval - - call ext_ncd_get_dom_ti_real(DataHandle,'DY',tmp, & - 1,ioutcount,istatus) - dyval=nint(tmp*1000.) - write(6,*) 'dyval= ', dyval - - call ext_ncd_get_dom_ti_real(DataHandle,'CEN_LAT',tmp, & - 1,ioutcount,istatus) - cenlat=nint(tmp*1000.) ! E-grid dlamda in degree - write(6,*) 'cenlat= ', cenlat - - call ext_ncd_get_dom_ti_real(DataHandle,'CEN_LON',tmp, & - 1,ioutcount,istatus) - cenlon=nint(tmp*1000.) ! E-grid dlamda in degree - write(6,*) 'cenlon= ', cenlon - -! JW call ext_ncd_get_dom_ti_real(DataHandle,'TRUELAT1',tmp -! JW + ,1,ioutcount,istatus) -! JW truelat1=nint(1000.*tmp) -! JW write(6,*) 'truelat1= ', truelat1 -! JW call ext_ncd_get_dom_ti_real(DataHandle,'TRUELAT2',tmp -! JW + ,1,ioutcount,istatus) -! JW truelat2=nint(1000.*tmp) -! JW write(6,*) 'truelat2= ', truelat2 - call ext_ncd_get_dom_ti_integer(DataHandle,'MAP_PROJ',itmp, & - 1,ioutcount,istatus) - maptype=itmp - gridtype = 'E' - write(6,*) 'maptype, gridtype ', maptype, gridtype - gridtype='E' - - call ext_ncd_get_dom_ti_integer(DataHandle,'I_PARENT_START',itmp, & - 1,ioutcount,istatus) - i_parent_start=itmp - - call ext_ncd_get_dom_ti_integer(DataHandle,'J_PARENT_START',itmp, & - 1,ioutcount,istatus) - j_parent_start=itmp - - do j = jsta_2l, jend_2u - do i = 1, im -! DX ( i, j ) = dxval - DY ( i, j ) = dyval*DTR*ERAD*0.001 - end do - end do - -! generate look up table for lifted parcel calculations - - THL=210. - PLQ=70000. - - CALL TABLE(PTBL,TTBL,PT, & - RDQ,RDTH,RDP,RDTHE,PL,THL,QS0,SQS,STHE,THE0) - - CALL TABLEQ(TTBLQ,RDPQ,RDTHEQ,PLQ,THL,STHEQ,THE0Q) - -! -! - IF(ME==0)THEN - WRITE(6,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' - WRITE(6,51) (SPL(L),L=1,LSM) - 50 FORMAT(14(F4.1,1X)) - 51 FORMAT(8(F8.1,1X)) - ENDIF -! -! COMPUTE DERIVED TIME STEPPING CONSTANTS. -! - call ext_ncd_get_dom_ti_real(DataHandle,'DT',tmp, & - 1,ioutcount,istatus) - DT=tmp - print*,'DT= ',DT - DTQ2 = DT * NPHS - TSPH = 3600./DT - - TSRFC=float(NSRFC)/TSPH - IF(NSRFC==0)TSRFC=float(ifhr) !in case buket does not get emptied - TRDLW=float(NRDLW)/TSPH - IF(NRDLW==0)TRDLW=float(ifhr) !in case buket does not get emptied - TRDSW=float(NRDSW)/TSPH - IF(NRDSW==0)TRDSW=float(ifhr) !in case buket does not get emptied - THEAT=float(NHEAT)/TSPH - IF(NHEAT==0)THEAT=float(ifhr) !in case buket does not get emptied - TCLOD=float(NCLOD)/TSPH - IF(NCLOD==0)TCLOD=float(ifhr) !in case buket does not get emptied - TPREC=float(NPREC)/TSPH - IF(NPREC==0)TPREC=float(ifhr) !in case buket does not get emptied - print*,'TSRFC TRDLW TRDSW= ',TSRFC, TRDLW, TRDSW - -!how am i going to get this information? -! NPREC = INT(TPREC *TSPH+D50) -! NHEAT = INT(THEAT *TSPH+D50) -! NCLOD = INT(TCLOD *TSPH+D50) -! NRDSW = INT(TRDSW *TSPH+D50) -! NRDLW = INT(TRDLW *TSPH+D50) -! NSRFC = INT(TSRFC *TSPH+D50) -!how am i going to get this information? -! -! IF(ME==0)THEN -! WRITE(6,*)' ' -! WRITE(6,*)'DERIVED TIME STEPPING CONSTANTS' -! WRITE(6,*)' NPREC,NHEAT,NSRFC : ',NPREC,NHEAT,NSRFC -! WRITE(6,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW -! ENDIF -! -! COMPUTE DERIVED MAP OUTPUT CONSTANTS. - DO L = 1,LSM - ALSL(L) = ALOG(SPL(L)) - END DO -! - if(submodelname == 'NEST') then - print *,'NMM NEST mode: use projection center as projection center' - elseif(submodelname == 'MOAD') then - print *,'NMM MOAD mode: use domain center as projection center' - CENLAT=NINT(DCENLAT*1000) - CENLON=NINT(DCENLON*1000) - elseif(i_parent_start>1 .or. j_parent_start>1) then - print *,'No submodel specified for nested domain. Using projection center as projection center.' - else - print *,'No submodel specified for MOAD. Using domain center as projection center' - endif - - - if(me==0)then - ! write out copygb_gridnav.txt - ! provided by R.Rozumalski - NWS - - inav=10 - - TRUELAT1 = CENLAT - TRUELAT2 = CENLAT - - IFDX = NINT (dxval*107.) - IFDY = NINT (dyval*110.) - - open(inav,file='copygb_gridnav.txt',form='formatted', & - status='unknown') - - print *, ' MAPTYPE :',maptype - print *, ' IM :',IM*2-1 - print *, ' JM :',JM - print *, ' LATSTART :',LATSTART - print *, ' LONSTART :',LONSTART - print *, ' CENLAT :',CENLAT - print *, ' CENLON :',CENLON - print *, ' TRUELAT2 :',TRUELAT2 - print *, ' TRUELAT1 :',TRUELAT1 - print *, ' DX :',IFDX*0.001 - print *, ' DY :',IFDY*0.001 - - IF(MAPTYPE==0 .OR. MAPTYPE==203)THEN !A STAGGERED E-GRID - - IMM = 2*IM-1 - IDXAVE = ( IFDY + IFDX ) * 0.5 - - ! If the Center Latitude of the domain is located within 15 degrees - ! of the equator then use a a regular Lat/Lon navigation for the - ! remapped grid in copygb; otherwise, use a Lambert conformal. Make - ! sure to specify the correct pole for the S. Hemisphere (LCC). - ! - IF ( abs(CENLAT)>15000) THEN - write(6,*)' Copygb LCC Navigation Information' - IF (CENLAT >0) THEN ! Northern Hemisphere - write(6,1000) IMM,JM,LATSTART,LONSTART,CENLON, & - IFDX,IFDY,CENLAT,CENLAT - write(inav,1000) IMM,JM,LATSTART,LONSTART,CENLON, & - IFDX,IFDY,CENLAT,CENLAT - ELSE ! Southern Hemisphere - write(6,1001) IMM,JM,LATSTART,LONSTART,CENLON, & - IFDX,IFDY,CENLAT,CENLAT - write(inav,1001) IMM,JM,LATSTART,LONSTART,CENLON, & - IFDX,IFDY,CENLAT,CENLAT - END IF - ELSE - dlat = (latnm-latsm)/(JM-1) - nlat = INT (dlat) - - if (lonem < 0) lonem = 360000. + lonem - if (lonwm < 0) lonwm = 360000. + lonwm - - dlon = lonem-lonwm - if (dlon < 0.) dlon = dlon + 360000. - dlon = (dlon)/(IMM-1) - nlon = INT (dlon) - - write(6,*)' Copygb Lat/Lon Navigation Information' - write(6,2000) IMM,JM,latsm,lonwm,latnm,lonem,nlon,nlat - write(inav,2000) IMM,JM,latsm,lonwm,latnm,lonem,nlon,nlat - ENDIF - close(inav) - - 1000 format('255 3 ',2(I3,x),I6,x,I7,x,'8 ',I7,x,2(I6,x),'0 64', & - 2(x,I6)) - 1001 format('255 3 ',2(I3,x),I6,x,I7,x,'8 ',I7,x,2(I6,x),'128 64', & - 2(x,I6),' -90000 0') - 2000 format('255 0 ',2(I3,x),2(I7,x),'8 ',2(I7,x),2(I7,x),'64') - END IF ! maptype - - !HC WRITE IGDS OUT FOR WEIGHTMAKER TO READ IN AS KGDSIN - igdout=110 - if (maptype == 1)THEN ! Lambert conformal - WRITE(igdout)3 - WRITE(6,*)'igd(1)=',3 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 -! JW WRITE(igdout)TRUELAT2 -! JW WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ELSE IF(MAPTYPE == 2)THEN !Polar stereographic - WRITE(igdout)5 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 -! JW WRITE(igdout)TRUELAT2 !Assume projection at +-90 -! JW WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ! Note: The calculation of the map scale factor at the standard - ! lat/lon and the PSMAPF - ! Get map factor at 60 degrees (N or S) for PS projection, which will - ! be needed to correctly define the DX and DY values in the GRIB GDS - if (TRUELAT1 < 0.) THEN - LAT = -60. - else - LAT = 60. - end if - - CALL MSFPS (LAT,TRUELAT1*0.001,PSMAPF) - - ELSE IF(MAPTYPE == 3)THEN !Mercator - WRITE(igdout)1 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)latlast - WRITE(igdout)lonlast -! JW WRITE(igdout)TRUELAT1 - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)255 - ELSE IF(MAPTYPE==0 .OR. MAPTYPE==203)THEN !A STAGGERED E-GRID - WRITE(igdout)203 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)136 - WRITE(igdout)CENLAT - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)64 - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)0 - -! following for hurricane wrf post - open(inav,file='copygb_hwrf.txt',form='formatted', & - status='unknown') - LATEND=LATSTART+(JM-1)*dyval - LONEND=LONSTART+(IMM-1)*dxval - write(10,1010) IMM,JM,LATSTART,LONSTART,LATEND,LONEND, & - dxval,dyval - -1010 format('255 0 ',2(I3,x),I6,x,I7,x,'136 ',I6,x,I7,x, & - 2(I6,x),'64') - close (inav) - - END IF - end if -! -! -! close up shop - call ext_ncd_ioclose ( DataHandle, Status ) - - RETURN - END diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index 571174dd7..e6e3e8ab4 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -44,6 +44,8 @@ !! 21-06-20 W Meng - remove reading grib1 and gfsio lib !! 21-10-22 KaYee Wong - created formal fortran namelist for itag !! 21-11-03 Tracy Hertneky - Removed SIGIO option +!! 22-01-14 W Meng - Remove interfaces INITPOST_GS_NEMS, INITPOST_NEMS_MPIIO +!! INITPOST_NMM and INITPOST_GFS_NETCDF. !! !! USAGE: WRFPOST !! INPUT ARGUMENT LIST: @@ -272,11 +274,6 @@ PROGRAM WRFPOST ,trim(fileName),trim(fileNameFlux) end if -! -! set ndegr -! if(grib=='grib1') then -! gdsdegr = 1000. -! else if (grib=='grib2') then if(grib=='grib2') then gdsdegr = 1.d6 endif @@ -302,14 +299,7 @@ PROGRAM WRFPOST !set control file name fileNameFlat='postxconfig-NT.txt' -!KaYee if(MODELNAME == 'RAPR') then -!KaYee read(5,*,iostat=iret,end=119) kpo -!KaYee else - read(5,nampgb,iostat=iret,end=119) -!KaYee endif -! if(kpo > komax)print*,'pressure levels cannot exceed ',komax; STOP -! if(kth > komax)print*,'isent levels cannot exceed ',komax; STOP -! if(kpv > komax)print*,'PV levels cannot exceed ',komax; STOP + read(5,nampgb,iostat=iret,end=119) 119 continue if(me == 0) then print*,'komax,iret for nampgb= ',komax,iret @@ -332,15 +322,6 @@ PROGRAM WRFPOST if(me == 0) then print*,'using pressure levels from POSTGPVARS' endif -!KaYee if(MODELNAME == 'RAPR')then -!KaYee read(5,*) (po(l),l=1,kpo) -! CRA READ VALID TIME UNITS -!KaYee read(5,121) VTIMEUNITS -!KaYee if(me == 0) then -!KaYee print*,'VALID TIME UNITS = ', VTIMEUNITS -!KaYee endif -! CRA -!KaYee endif lsm = kpo if( .not. popascal ) then untcnvt = 100. @@ -360,21 +341,8 @@ PROGRAM WRFPOST LSMP1 = LSM+1 if (me==0) print*,'LSM, SPL = ',lsm,spl(1:lsm) -!Chuang, Jun and Binbin: If model is RSM, read in precip accumulation frequency (sec) from unit5 - if(MODELNAME == 'RSM') then - read(5,115)PRNTSEC - TPREC = PRNTSEC/3600.0 - print*,'TPREC in RSM= ',TPREC - end if - 115 format(f7.1) 116 continue -!KaYee if(MODELNAME == 'GFS') then -! read(5,*) line -!KaYee read(5,111,end=125) fileNameFlat -!KaYee 125 continue -! if(len_trim(fileNameFlat)<5) fileNameFlat = 'postxconfig-NT.txt' -!KaYee if (me == 0) print*,'Post flat name in GFS= ',trim(fileNameFlat) -!KaYee endif + ! set PTHRESH for different models if(MODELNAME == 'NMM')then PTHRESH = 0.000004 @@ -648,16 +616,10 @@ PROGRAM WRFPOST IF(MODELNAME == 'NCAR' .OR. MODELNAME == 'RAPR') THEN print*,'CALLING INITPOST TO PROCESS NCAR NETCDF OUTPUT' CALL INITPOST - ELSE IF(MODELNAME == 'NMM') THEN - print*,'CALLING INITPOST_NMM TO PROCESS NMM NETCDF OUTPUT' - CALL INITPOST_NMM ELSE IF (MODELNAME == 'FV3R') THEN ! use netcdf library to read output directly print*,'CALLING INITPOST_NETCDF' CALL INITPOST_NETCDF(ncid2d,ncid3d) - ELSE IF (MODELNAME == 'GFS') THEN - print*,'CALLING INITPOST_GFS_NETCDF' - CALL INITPOST_GFS_NETCDF(ncid3d) ELSE PRINT*,'POST does not have netcdf option for model,',MODELNAME,' STOPPING,' STOP 9998 @@ -680,10 +642,6 @@ PROGRAM WRFPOST ELSE IF(TRIM(IOFORM) == 'binarynemsio') THEN IF(MODELNAME == 'NMM') THEN CALL INITPOST_NEMS(NREC,nfile) - ELSE IF(MODELNAME == 'GFS') THEN -! CALL INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D,nfile,ffile) - CALL INITPOST_GFS_NEMS(NREC,iostatusFlux,iostatusD3D,iostatusAER, & - nfile,ffile,rfile) ELSE PRINT*,'POST does not have nemsio option for model,',MODELNAME,' STOPPING,' STOP 9998 @@ -691,11 +649,7 @@ PROGRAM WRFPOST END IF ELSE IF(TRIM(IOFORM) == 'binarynemsiompiio')THEN - IF(MODELNAME == 'NMM') THEN -! close nemsio file for serial read - call nemsio_close(nfile,iret=status) - CALL INITPOST_NEMS_MPIIO() - ELSE IF(MODELNAME == 'GFS') THEN + IF(MODELNAME == 'GFS') THEN ! close nemsio file for serial read call nemsio_close(nfile,iret=status) call nemsio_close(ffile,iret=status) diff --git a/sorc/ncep_post.fd/build_upp_lib.sh b/sorc/ncep_post.fd/build_upp_lib.sh deleted file mode 100755 index b3a01dae3..000000000 --- a/sorc/ncep_post.fd/build_upp_lib.sh +++ /dev/null @@ -1,54 +0,0 @@ -SHELL=/bin/sh - -module purge -set -x -mac=$(hostname | cut -c1-1) -mac2=$(hostname | cut -c1-2) - -if [ $mac2 = hf ] ; then # For Hera - machine=hera - . /etc/profile - . /etc/profile.d/modules.sh -elif [ $mac = f ] ; then # For Jet - machine=jet - . /etc/profile - . /etc/profile.d/modules.sh -elif [ $mac = v -o $mac = m ] ; then # For Dell - machine=wcoss_dell_p3 - . $MODULESHOME/init/bash -elif [ $mac = t -o $mac = e -o $mac = g ] ; then # For WCOSS - machine=wcoss - . /usrx/local/Modules/default/init/bash -elif [ $mac2 = s4 ] ; then # For S4 - machine=s4 - . /etc/profile -elif [ $mac = l -o $mac = s ] ; then # wcoss_c (i.e. luna and surge) - export machine=cray-intel -elif [ $mac = O ] ; then # For Orion - machine=orion - . /etc/profile -fi -export version=${1:-"v8.0.0"} - -moduledir=`dirname $(readlink -f ../../modulefiles/post)` -module use -a ${moduledir} -module load upp/lib-${machine} -#module load nceppost_modulefile - -# -module list - -#sleep 1 - -BASE=`pwd` - -##################################### -cd ${BASE} -rm *.o *.mod incmod -#mkdir -m 775 -p $BASE/../../lib/include/ncep_post_${version}_4 -make -f makefile_lib clean -mkdir -m 775 -p include/upp_4 -make -f makefile_lib - -exit 0 - diff --git a/sorc/ncep_post.fd/makefile b/sorc/ncep_post.fd/makefile deleted file mode 100644 index 7a0a614d8..000000000 --- a/sorc/ncep_post.fd/makefile +++ /dev/null @@ -1,258 +0,0 @@ -#!/bin/ksh -set -x -mac=$(hostname | cut -c1-1) -mac2=$(hostname | cut -c1-2) -################################# options ############################################### -#export CLEAN=NO # comment this line to clean before compiling -#debug=YES # turn on debug mode - default - NO - make_post_lib=YES # create post library - default - NO - make_post_exec=YES # create post executable - default - YES -#make_nowrf=YES # compile with wrf stub instead of WRF lib -################################# options ############################################### -# -if [ $mac2 = ga ] ; then # For GAEA - machine=gaea - center=${center:-ncep} - make_nowrf=${make_nowrf:-YES} # to compile with wrf stub instead of WRF lib -elif [ $mac2 = tf ] ; then # For Theia - machine=theia - make_nowrf=${make_nowrf:-YES} # to compile with wrf stub instead of WRF lib -elif [ $mac = z -o $mac = h -o $mac = f ] ; then # For ZEUS - machine=zeus - make_nowrf=${make_nowrf:-YES} # to compile with wrf stub instead of WRF lib -elif [ $mac = t -o $mac = e -o $mac = g ] ; then # For WCOSS - machine=wcoss -elif [ $mac = l -o $mac = s ] ; then # wcoss_c (i.e. luna and surge) - export machine=wcoss_c - make_nowrf=${make_nowrf:-YES} # to compile with wrf stub instead of WRF lib -fi -debug=${debug:-NO} -export make_post_lib=${make_post_lib:-NO} -export make_post_exec=${make_post_exec:-YES} -export make_nowrf=${make_nowrf:- NO} -if [ $machine = wcoss ] ; then - export NETCDFPATH="/usrx/local/NetCDF/3.6.3" - export WRFPATH="/nwprod/sorc/wrf_shared.v1.1.0" - export NWPROD="/nwprod" - export XMLPATH=$NWPROD - export IPPATH=$NWPROD - export SPPATH=/usrx/local/nceplibs - export BACIOPATH=/usrx/local/nceplibs - export ipv="" - export spv=_v2.0.2p - export crtmv=2.0.6 - export crtmv_inc=$crtmv - export xmlv=_v2.0.0 - export baciov=_v2.0.1p - export FC=mpiifort - export CPP="/lib/cpp -P" - export CPPFLAGS="-DLINUX" - export CC=cc - if [ $debug = YES ] ; then - export OPTS="-O0 -openmp " - export DEBUG="-g -traceback -convert big_endian -ftrapuv -check bounds -check format -check output_conversion -check pointers -check uninit -fp-stack-check" - else - export OPTS="-O3 -convert big_endian -fp-model source -openmp -xAVX" - export DEBUG="" - fi - export LIST="" - export FREE="-FR" - export TRAPS="" - export PROFILE="" -elif [ $machine = wcoss_c ] ; then - export FC=ftn - export CPP="/lib/cpp -P" - export CPPFLAGS="-DLINUX" - export CC=cc - if [ $debug = YES ] ; then - export OPTS="-O0 -openmp " - export DEBUG="-g -traceback -convert big_endian -ftrapuv -check bounds -check format -check output_conversion -check pointers -check uninit -fp-stack-check" - else - export OPTS="-O3 -convert big_endian -fp-model source -openmp -xAVX" - export DEBUG="" - fi - export LIST="" - export FREE="-FR" - export TRAPS="" - export PROFILE="" -elif [ $machine = zeus ] ; then - export NETCDFPATH="/apps/netcdf/3.6.3/intel" - export WRFPATH="/scratch2/portfolios/NCEPDEV/meso/save/Dusan.Jovic/WRFV3" - export NWPROD="/contrib/nceplibs/nwprod" - export XMLPATH="/home/Hui-Ya.Chuang" - export IPPATH=$NWPROD - export SPPATH=$NWPROD - export ipv="" - export spv=_v2.0.1 - export crtmv=2.0.7 - export FC="ifort -lmpi" - export CPP="/lib/cpp -P" - export CC=cc - export ARCH="" - export CPPFLAGS="-DLINUX" - if [ $debug = YES ] ; then - export OPTS="-O0 -openmp -g" - export DEBUG="-g -check all -ftrapuv -convert big_endian -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - else - export export OPTS="-O3 -convert big_endian -traceback -g -fp-model source -openmp" - export DEBUG="" - fi - export LIST="" - export FREE="-FR" - export TRAPS="" - export PROFILE="" -elif [ $machine = theia ] ; then - export NETCDFPATH="/apps/netcdf/4.3.0-intel" - export WRFPATH="/scratch4/NCEPDEV/global/save/Shrinivas.Moorthi/theia/nceplibs/nwprod/lib/sorc/WRFV3" - export NWPROD="/scratch4/NCEPDEV/global/save/Shrinivas.Moorthi/theia/nceplibs/nwprod" - export ipv=_v2.0.3 - export spv="" - export crtmv=2.0.7 - export gfsiov="" - export w3ev=_v2.1.0 - export w3nv="" - export xmlv=_v2.0.0 - export g2tv="" - export baciov=_v2.1.0 - export XMLPATH=$NWPROD - export IPPATH=$NWPROD - export SPPATH=$NWPROD - export BACIOPATH=$NWPROD/lib - export FC=mpiifort - export CPP="/lib/cpp -P" - export CC=cc - export ARCH="" - export CPPFLAGS="-DLINUX" - if [ $debug = YES ] ; then - export OPTS="-O0 -openmp -g" - export DEBUG="-g -check all -ftrapuv -convert big_endian -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - else - export export OPTS="-O3 -convert big_endian -traceback -g -fp-model source -openmp" - export DEBUG="" - fi - export LIST="" - export FREE="-FR" - export TRAPS="" - export PROFILE="" -elif [ $machine = gaea ] ; then - export NETCDFPATH="/opt/cray/netcdf/4.3.2/INTEL/140" - export WRFPATH="/lustre/f1/unswept/ncep/Shrinivas.Moorthi/nceplibs/nwprod/lib/sorc/WRFV3" - export NWPROD="/lustre/f1/unswept/ncep/Shrinivas.Moorthi/nceplibs/nwprod" - export IPPATH=$NWPROD - export SPPATH=$NWPROD - export baciov=_v2.1.0 - export BACIOPATH=/lustre/f1/unswept/ncep/Shrinivas.Moorthi/nceplibs/nwprod/lib/sorc/bacio_fast_byteswap/bacio${baciov}_4 - export ipv="" - export spv=_v2.0.1 - export xmlv=_v2.0.0 - export FC=ftn - export CPP="/lib/cpp -P" - export ARCH="" - export CPPFLAGS="-DLINUX" - export CC=icc - if [ $debug = YES ] ; then - export OPTS="-O0 -g" - export DEBUG="-g -check all -ftrapuv -convert big_endian -fp-stack-check -fstack-protector -heap-arrays -recursive -traceback" - else - export export OPTS="-O3 -convert big_endian -traceback -g -fp-model source" - export DEBUG="" - fi - export LIST="" - export FREE=-FR - export TRAPS="" - export PROFILE="" - - export gfsiov="" - export crtmv=2.0.7 - export w3ev=_v2.1.0 - export w3nv="" -fi -export crtmv=${crtmv:-2.0.7} -export crtmv_inc=${crtmv_inc:-v$crtmv} -export XMLPATH=${XMLPATH:-$NWPROD} -export BACIOPATH=${BACIOPATH:-$NWPROD/lib} -export xmlv=${xmlv:-""} -export w3ev=${w3ev:-_v2.0.3} -export ipv=${ipv:-""} -export spv=${spv:-""} - -if [ ${CLEAN:-YES} = YES ] ; then make -f Makefile clean ; fi - -export CFLAGS="-DLINUX -Dfunder -DFortranByte=char -DFortranInt=int -DFortranLlong='long long'" -if [ $machine = wcoss_c ] ; then - - if [ $make_nowrf = YES ] ; then - WRF_INC= - WRF_LIB= - fi - NETCDF_LIB="${NETCDF}/lib/libnetcdf.a" - export FFLAGS="${OPTS} ${FREE} ${TRAPS} ${DEBUG} -I${XMLPARSE_INC} -I${G2_INC4} -I${G2TMPL_INC} -I${NEMSIO_INC} -I${SIGIO_INC4} -I${SFCIO_INC4} -I${GFSIO_INC4} -I${W3EMC_INC4} -I${CRTM_INC} -I${NETCDF_INCLUDE} -I${PNG_INC}" - - export LIBS="${WRF_LIB} ${XMLPARSE_LIB} ${G2_LIB4} ${G2TMPL_LIB} ${NEMSIO_LIB} ${GFSIO_LIB4} ${SIGIO_LIB4} ${SFCIO_LIB4} ${IP_LIB4} ${SP_LIB4} ${W3NCO_LIB4} ${W3EMC_LIB4} ${BACIO_LIB4} ${CRTM_LIB} ${NETCDF_LIB} ${PNG_LIB} ${JASPER_LIB} ${Z_LIB}" -else - SFCIO_INC="-I${NWPROD}/lib/incmod/sfcio_4" - SFCIO_LIB="${NWPROD}/lib/libsfcio_4.a" - - NEMSIO_INC="-I${NWPROD}/lib/incmod/nemsio" - NEMSIO_LIB="-L${NWPROD}/lib -lnemsio" - BACIO_LIB="-L${BACIOPATH} -lbacio${baciov}_4" - SIGIO_INC="-I${NWPROD}/lib/incmod/sigio_4" - SIGIO_LIB="${NWPROD}/lib/libsigio_4.a" - NCDLIBS="-L${NETCDFPATH} -lnetcdf" - NCDFFLAGS="-I${NETCDFPATH}" - if [ $make_nowrf = YES ] ; then - WRF_INC= - WRF_LIB= - else - WRF_INC="-I${WRFPATH}/external/io_quilt -I${WRFPATH}/frame" - WRF_LIB="${WRFPATH}/main/libwrflib.a ${WRFPATH}/frame/pack_utils.o ${WRFPATH}/frame/module_internal_header_util.o ${WRFPATH}/external/io_grib1/libio_grib1.a ${WRFPATH}/external/io_grib_share/libio_grib_share.a ${WRFPATH}/external/io_int/libwrfio_int.a ${WRFPATH}/external/io_netcdf/libwrfio_nf.a ${WRFPATH}/external/esmf_time_f90/libesmf_time.a ${WRFPATH}/external/RSL_LITE/librsl_lite.a" - fi - - G2_INC="-I${NWPROD}/lib/incmod/g2_4 -I${NWPROD}/lib/incmod/g2tmpl${g2tv}" - G2_LIB="-L${NWPROD}/lib -lg2tmpl${g2tv} -lg2_4 -ljasper -lpng -lz" - - GFSIO_INC="-I${NWPROD}/lib/incmod/gfsio${gfsiov}_4" - GFSIO_LIB="-L${NWPROD}/lib -lgfsio${gfsiov}_4" - - IP_LIB="-L${IPPATH}/lib -lip${ipv}_4" - SP_LIB="-L${SPPATH} -lsp${sp}_4" - - W3_INC="-I${NWPROD}/lib/incmod/w3emc${w3ev}_4" - W3_LIB="-L${NWPROD}/lib -lw3nco${w3nv}_4 -lw3emc${w3ev}_4" - - CRTM_INC="-I${NWPROD}/lib/incmod/crtm_${crtmv_inc}" - CRTM_LIB="-L${NWPROD}/lib -lcrtm_v${crtmv}" - XML_INC="-I${XMLPATH}/lib/incmod/xmlparse${xmlv}" - XML_LIB="-L${XMLPATH}/lib -lxmlparse${xmlv}" - - NETCDF_LIB="${NETCDFPATH}/lib/libnetcdf.a" - NETCDF_INC="-I${NETCDFPATH}/include" - - export FFLAGS="${OPTS} ${FREE} ${TRAPS} ${DEBUG} ${WRF_INC} ${XML_INC} ${G2_INC} ${NEMSIO_INC} ${GFSIO_INC} ${SIGIO_INC} ${SFCIO_INC} ${W3_INC} ${CRTM_INC} ${NETCDF_INC}" - - export LIBS="${WRF_LIB} ${XML_LIB} ${G2_LIB} ${NEMSIO_LIB} ${GFSIO_LIB} ${SIGIO_LIB} ${SFCIO_LIB} ${IP_LIB} ${SP_LIB} ${W3_LIB} ${BACIO_LIB} ${CRTM_LIB} ${NETCDF_LIB}" - -fi -if [ $make_post_lib = NO ] ; then - if [ $make_post_exec = YES ] ; then - if [ $make_nowrf = YES ] ; then - _make -f Makefile_nowrf - else - make -f Makefile - fi - fi -else - if [ $make_post_exec = YES ] ; then - if [ $make_nowrf = YES ] ; then - make -f Makefile_nowrf - else - make -f Makefile - fi - fi - export POSTLIBPATH=${POSTLIBPATH:-$(pwd)} - if [ ${CLEAN:-YES} = YES ] ; then rm -rf $POSTLIBPATH/include/post_4 ; fi - mkdir -p $POSTLIBPATH/include/post_4 - make -f Makefile_lib -fi - - diff --git a/sorc/ncep_post.fd/makefile_dtc b/sorc/ncep_post.fd/makefile_dtc deleted file mode 100644 index 519c2418b..000000000 --- a/sorc/ncep_post.fd/makefile_dtc +++ /dev/null @@ -1,130 +0,0 @@ -SHELL = /bin/sh - -################################################################################ -# -# Makefile for NCEP Post -# -# Use: -# make - build the executable -# make clean - start with a clean slate -# -################################################################################# -# -# Define the name of the executable -# -TARGET = unipost.exe - -# -# build configuration determined before compile -include ../../configure.upp - -# -# directories for shared resources -LOCALINC = -I$(INCMOD) -I$(INCMOD)/crtm2 -NCDFINC = -I$(NETCDFPATH)/include -GRIB2INC = -I$(GRIB2SUPT_INC) - -LLIBDIR = -L$(LIBDIR) -UPPLIBS = -lCRTM $(SERIAL_MPI_LIB) -lxmlparse -NCEPLIBS = $(NCEPLIBLIB) $(NCEPLIB_FLAGS) $(GRIB2SUPT_LIB) -NCDFLIBS = -L$(NETCDFPATH)/lib $(NETCDFLIBS) - -LIBS = $(LLIBDIR) $(UPPLIBS) $(GRIB2LIBS) $(NCEPLIBS) $(NCDFLIBS) - -MODULES = - -# -# Compilation / Link Flag Configuration -EXTRA_CPPFLAGS = -EXTRA_FFLAGS = -c $(LOCALINC) $(NETCDFINC) $(NCDFINC) $(NCEPLIBINC) -#EXTRA_LDFLAGS = $(LIBS) -Wl,-Map=lm -EXTRA_LDFLAGS = $(LIBS) -EXTRA_CFLAGS = -Dfunder -DFortranByte=char -DFortranInt=int -DFortranLlong='long long' - -# -# ----------- -# Threaded object files -# ----------- -OBJS_FT = wrf_io_flags.o getVariable.o \ - getIVariableN.o kinds_mod.o machine.o physcons.o \ - native_endianness.o \ - retrieve_index.o ZENSUN.o \ - CLDFRAC_ZHAO.o GFSPOST.o GFSPOSTSIG.o GETGBANDSCATTER.o \ - blockIO.o - -# ----------- -# Non-threaded object files -# ----------- -#OBJXML = post_t.o - -OBJS_F = VRBLS2D_mod.o VRBLS3D_mod.o VRBLS4D_mod.o MASKS_mod.o PMICRPH.o SOIL_mod.o CMASSI.o \ - CTLBLK.o GRIDSPEC.o \ - LOOKUP.o PARAMR.o RHGRD.o RQSTFLD.o xml_perl_data.o cuparm.o params.o svptbl.o get_postfilename.o grib2_module.o \ - SET_LVLSXML.o FILL_PSETFLD.o BNDLYR.o BOUND.o CALCAPE.o \ - CALDWP.o CALDRG.o CALHEL.o CALLCL.o CALMCVG.o CALPOT.o CALPW.o CALRH.o CALRCH.o \ - CALRH_GSD.o CALSTRM.o CALTAU.o CALTHTE.o CALVIS.o CALVIS_GSD.o CALVOR.o CALWXT.o $(LINUX_OBJ)\ - CALWXT_RAMER.o CALWXT_BOURG.o CALWXT_REVISED.o CALRH_PW.o CALWXT_EXPLICIT.o \ - CALWXT_DOMINANT.o CLDRAD.o \ - CLMAX.o COLLECT.o COLLECT_LOC.o DEWPOINT.o FDLVL.o FGAMMA.o FIXED.o FRZLVL.o FRZLVL2.o \ - GET_BITS.o INITPOST.o LFMFLD.o MAPSSLP.o MISCLN.o MDL2STD_P.o MIXLEN.o MDL2P.o ETAMP_Q2F.o \ - MDLFLD.o MPI_FIRST.o MPI_LAST.o NGMFLD.o NGMSLP.o OTLFT.o OTLIFT.o SLP_new.o SLP_NMM.o \ - EXCH.o PARA_RANGE.o PROCESS.o INITPOST_NMM.o EXCH2.o READCNTRL.o READ_xml.o \ - SET_OUTFLDS.o SCLFLD.o SERVER.o \ - SETUP_SERVERS.o SMOOTH.o SURFCE.o SPLINE.o TABLE.o TABLEQ.o TRPAUS.o TTBLEX.o WETBULB.o \ - WRFPOST.o CALMICT.o MICROINIT.o GPVS.o MDL2SIGMA.o ETCALC.o CANRES.o \ - CALGUST.o WETFRZLVL.o SNFRAC.o MDL2AGL.o SNFRAC_GFS.o AVIATION.o DEALLOCATE.o \ - CALPBL.o MDL2SIGMA2.o INITPOST_GFS.o CALRH_GFS.o LFMFLD_GFS.o \ - CALRAD_WCLOUD_newcrtm.o MDL2THANDPV.o CALPBLREGIME.o POLEAVG.o INITPOST_NEMS.o \ - GETNEMSNDSCATTER.o ICAOHEIGHT.o INITPOST_GFS_NEMS.o \ - GEO_ZENITH_ANGLE.o GFIP3.o GRIDAVG.o CALUPDHEL.o MSFPS.o INITPOST_GFS_SIGIO.o\ - AllGETHERV_GSD.o SELECT_CHANNELS.o ALLOCATE_ALL.o INITPOST_NEMS_MPIIO.o ASSIGNNEMSIOVAR.o INITPOST_GFS_NEMS_MPIIO.o \ - INITPOST_NETCDF.o INITPOST_GFS_NETCDF.o \ - gtg_ctlblk.o gtg_indices.o gtg_filter.o gtg_compute.o gtg_config.o map_routines.o gtg_algo.o CALVESSEL.o \ - CALHEL2.o CALCAPE2.o - -OBJS = $(OBJS_F) $(OBJXML) $(OBJS_FT) - -# ----------- -# Targets -# ----------- -all: $(TARGET) - -$(TARGET): $(XML_DEPS) $(OBJS) $(MODULES) - $(F90) -o $@ $(FFLAGS) $(MODULES) $(OBJS) $(LDFLAGS) $(EXTRA_LDFLAGS) - $(CP) $@ $(BINDIR) - -# This insures a dependency found in some files -- watch file order above remains -- should -# be done w/ dependencies -$(OBJS_F): $(OBJS_FT) $(OBJXML) - -# -# These files are configurable, but rarely change -clean: - @echo -e "\n<><><><> CLEAN <><><><>\n$@ in `pwd`" - $(RM) $(TARGET) $(OBJS) *.lst *.mod - $(RM) $(BINDIR)/$(TARGET) - for f in `ls -1 *.F|sed "s/.F$$/.f/"` ; do \ - $(RM) $$f ; \ - done - -distclean: clean - -.IGNORE: -.PHONY: clean - -.SUFFIXES: -.SUFFIXES: .F .f .f90 .o .c - -.F.o: - $(CPP) $(CPP_FLAGS) $(EXTRA_CPPFLAGS) $< > $*.f - $(F90) -c $(FFLAGS) $(EXTRA_FFLAGS) $*.f - -.f.o: - $(F90) -c $(FFLAGS) $(EXTRA_FFLAGS) $< - -.f90.o: - $(F90) -c $(FFLAGS) $(EXTRA_FFLAGS) $< - -.c.o: - ${CC} -c ${CFLAGS} $(EXTRA_CFLAGS) $< - diff --git a/sorc/ncep_post.fd/makefile_lib b/sorc/ncep_post.fd/makefile_lib deleted file mode 100644 index 37d48af6e..000000000 --- a/sorc/ncep_post.fd/makefile_lib +++ /dev/null @@ -1,146 +0,0 @@ -################################################################################ -# -# Makefile for upp (NCEP Post) -# -# Use: -# make - build the executable -# make clean - start with a clean slate -# -# The following macros will be of interest: -# -# TARGET - name of the executable -# FC - name of Fortran compiler -# CPP - name of CPP -# ARCH - architecture -# CPPFLAGS - CPP flags -# OPTS - compiler code optimizations -# LIST - source listing -# SMP - threading -# TRAPS - runtime traps for floating point exceptions -# PROFILE - source code profiling ( -pg ) -# DEBUG - -g -# MEM - user data area and stack size -# MAP - load map -# W3LIB - w3lib -# BACIO - bacio lib -# ESSL - ESSL library -# MASS - MASS library -# HPMLIB - hpm lib -# SEARCH - library search location -# -# This version for eta_post with more intelligent memory allocation -# Jim Tuccillo Feb 2001 -# -# This version for eta_post with asynchronous I/O server. -# Jim Tuccillo June 2001 - -# This version for NEMS_POST -# Jun Wang June 2010 -# -# This version for GFS V16 in-line post -# Wen Meng Ocotomber 2020 -# -################################################################################# -# -# Define the name of the executable -# - #POSTLIBPATH=../.. - #TARGET = ${POSTLIBPATH}/lib/libncep_post_${version}_4.a - #INCMOD= ${POSTLIBPATH}/lib/include/ncep_post_${version}_4 - TARGET = libupp_4.a - INCMOD = include/upp_4 - AR = ar - ARFLAGS = -rv - -# -# CPP, Compiler, and Linker Options -# - -#FC = mpfort -compiler ifort -#CPP = /lib/cpp -P -FC = $(myFC) $(myFCFLAGS) -CPP = $(myCPP) $(myCPPFLAGS) -ARCH = auto -CPPFLAGS = -DLINUX -OPTS = -O -fp-model strict -LIST = -FREE = -FR -#TRAPS = -qflttrap=ov:und:zero:inv:inex -qcheck -qinitauto=FF -TRAPS = -PROFILE = -DEBUG = -g -CFLAGS = -DLINUX -Dfunder -DFortranByte=char -DFortranInt=int -DFortranLlong='long long' -W3LIBDIR = /nwprod/lib - -SEARCH = -# -# Assemble Options -# -#FFLAGS = $(OPTS) $(FREE) $(TRAPS) $(DEBUG) -I$(CRTM_INC) -I$(W3EMC_INC4) -I$(G2_INC4) -I$(G2TMPL_INC) -I$(XMLPARSE_INC) -I$(SIGIO_INC4) -I$(GFSIO_INC4) -FFLAGS = $(OPTS) $(FREE) $(TRAPS) $(DEBUG) -I$(CRTM_INC) -I$(W3EMC_INC4) -I$(G2_INC4) -I$(G2TMPL_INC) -I$(SIGIO_INC4) -I$(GFSIO_INC4) -FFLAGST = $(OPTS) $(FREE) $(TRAPS) $(DEBUG) -I$(CRTM_INC) -I$(W3EMC_INC4) -I$(SIGIO_INC4) -I$(GFSIO_INC4) - -# -# Threaded object files -# -OBJST= kinds_mod.o machine.o physcons.o ZENSUN.o CLDFRAC_ZHAO.o GFSPOST.o -# -# Non-threaded object files -# -#OBJXML= post_t.o -# -OBJS= VRBLS2D_mod.o VRBLS3D_mod.o VRBLS4D_mod.o MASKS_mod.o PMICRPH.o SOIL_mod.o \ - CMASSI.o CTLBLK.o GRIDSPEC.o LOOKUP.o PARAMR.o RHGRD.o RQSTFLD.o xml_perl_data.o \ - cuparm.o params.o svptbl.o get_postfilename.o grib2_module.o \ - SET_LVLSXML.o FILL_PSETFLD.o \ - BNDLYR.o BOUND.o CALCAPE.o CALDWP.o CALDRG.o CALHEL.o CALLCL.o \ - CALMCVG.o CALPOT.o CALPW.o CALRH.o CALRCH.o CALRH_GSD.o \ - CALSTRM.o CALTAU.o CALTHTE.o CALVIS.o CALVIS_GSD.o CALVOR.o CALWXT.o \ - CALWXT_RAMER.o CALWXT_BOURG.o CALWXT_REVISED.o CALRH_PW.o \ - CALWXT_EXPLICIT.o CALWXT_DOMINANT.o \ - CLDRAD.o CLMAX.o COLLECT.o COLLECT_LOC.o DEWPOINT.o \ - FDLVL.o FGAMMA.o FIXED.o FRZLVL.o FRZLVL2.o \ - GET_BITS.o LFMFLD.o \ - MAPSSLP.o MISCLN.o MDL2STD_P.o MIXLEN.o MDL2P.o MDLFLD.o \ - NGMFLD.o NGMSLP.o OTLFT.o OTLIFT.o SLP_new.o SLP_NMM.o EXCH.o \ - PARA_RANGE.o PROCESS.o EXCH2.o \ - READCNTRL.o READ_xml.o SET_OUTFLDS.o SCLFLD.o \ - SMOOTH.o SURFCE.o \ - SPLINE.o TABLE.o TABLEQ.o TRPAUS.o TTBLEX.o WETBULB.o \ - CALMICT.o MICROINIT.o GPVS.o MDL2SIGMA.o \ - ETCALC.o CANRES.o CALGUST.o WETFRZLVL.o SNFRAC.o MDL2AGL.o SNFRAC_GFS.o \ - AVIATION.o DEALLOCATE.o \ - CALPBL.o MDL2SIGMA2.o CALRH_GFS.o LFMFLD_GFS.o \ - CALRAD_WCLOUD_newcrtm.o MDL2THANDPV.o CALPBLREGIME.o POLEAVG.o \ - ICAOHEIGHT.o \ - GEO_ZENITH_ANGLE.o GFIP3.o GRIDAVG.o CALUPDHEL.o \ - AllGETHERV_GSD.o MSFPS.o SELECT_CHANNELS.o ALLOCATE_ALL.o \ - gtg_ctlblk.o gtg_indices.o gtg_filter.o gtg_compute.o gtg_config.o map_routines.o gtg_algo.o gtg_smoothseams.o CALVESSEL.o \ - CALHEL2.o CALCAPE2.o - - -.SUFFIXES: .F .f .o .f90 .c - -.F.f: - $(CPP) $(CPPFLAGS) $< > $*.f - -$(TARGET): $(OBJST) $(OBJXML) $(OBJS) - $(AR) $(ARFLAGS) $@ $(OBJST) $(OBJXML) $(OBJS) $(LIBS) - mv *.mod $(INCMOD) - -.f.o: - $(FC) $(FFLAGS) -c $< - -.f90.o: - $(FC) $(FFLAGS) -c $< - -.c.o : - ${CC} ${CFLAGS} -c $< - -clean: - /bin/rm -rf libupp_*.a *.lst *.o include -# -#postcntrl_t.o : postcntrl_t.f90 -# $(FC) $(FFLAGS) postcntrl_t.f90 - - diff --git a/sorc/ncep_post.fd/makefile_module b/sorc/ncep_post.fd/makefile_module deleted file mode 100644 index 5b6f2c763..000000000 --- a/sorc/ncep_post.fd/makefile_module +++ /dev/null @@ -1,126 +0,0 @@ -################################################################################################### -# post implement module load standard -# -# 10/15 Lin Gan: Create module load version -# 12/07 Lin Gan: Update to generate post module output -# 07/16 J. Carley: Generalize for multiple machines -# -################################################################################################### - -SHELL=/bin/bash -# -# Define the name of the executable -# -# To generate exe as ncep_post -TARGET = ncep_post -LIB_TARGET = libnceppost.a -AR = ar -ARFLAGS = ruv - -# -# CPP, Compiler, and Linker Options -# - -FC = $(myFC) $(myFCFLAGS) -CPP = $(myCPP) $(myCPPFLAGS) -CPPFLAGS = -DLINUX -FREE = -FR - -NETCDF_INC = -I$(NETCDF)/include -#NETCDF_LDFLAGS = -L$(NETCDF)/lib -lnetcdff -lnetcdf -NETCDF_LDFLAGS = -L$(NETCDF)/lib -lnetcdff -lnetcdf -L$(HDF5_LDFLAGS) $(Z_LIB) - -CFLAGS = -DLINUX -Dfunder -DFortranByte=char -DFortranInt=int -DFortranLlong='long long' - -FFLAGS = $(OPTS) $(FREE) $(DEBUG) \ - -I$(SFCIO_INC4) \ - -I$(NEMSIO_INC) \ - -I$(SIGIO_INC4) \ - -I$(G2_INC4) \ - -I$(G2TMPL_INC) \ - -I$(GFSIO_INC4) \ - -I$(W3EMC_INC4) \ - -I$(CRTM_INC) \ - -I$(IP_INC4) \ - $(NETCDF_INC) - -LIBS = $(WRFIO_LIB) \ - $(G2TMPL_LIB) \ - $(G2_LIB4) \ - $(JASPER_LIB) \ - $(PNG_LIB) \ - $(Z_LIB) \ - $(NEMSIO_LIB) \ - $(GFSIO_LIB4) \ - $(SIGIO_LIB4) \ - $(SFCIO_LIB4) \ - $(IP_LIB4) \ - $(SP_LIB4) \ - $(W3EMC_LIB4) \ - $(W3NCO_LIB4) \ - $(BACIO_LIB4) \ - $(CRTM_LIB) \ - $(NETCDF_LDFLAGS) - - -OBJS = wrf_io_flags.o getVariable.o getIVariableN.o \ - kinds_mod.o machine.o physcons.o \ - native_endianness.o blockIO.o \ - retrieve_index.o ZENSUN.o CLDFRAC_ZHAO.o \ - GFSPOST.o GFSPOSTSIG.o GETGBANDSCATTER.o \ - VRBLS2D_mod.o VRBLS3D_mod.o VRBLS4D_mod.o MASKS_mod.o PMICRPH.o SOIL_mod.o \ - CMASSI.o CTLBLK.o GRIDSPEC.o LOOKUP.o PARAMR.o RHGRD.o RQSTFLD.o xml_perl_data.o \ - cuparm.o params.o svptbl.o get_postfilename.o grib2_module.o \ - SET_LVLSXML.o FILL_PSETFLD.o \ - UPP_MATH.o UPP_PHYSICS.o \ - BNDLYR.o BOUND.o CALDWP.o CALDRG.o CALHEL.o CALLCL.o \ - CALMCVG.o CALPOT.o CALPW.o CALRCH.o \ - CALSTRM.o CALTAU.o CALTHTE.o CALVIS.o CALVIS_GSD.o CALVOR.o CALWXT.o \ - CALWXT_RAMER.o CALWXT_BOURG.o CALWXT_REVISED.o \ - CALWXT_EXPLICIT.o CALWXT_DOMINANT.o \ - CLDRAD.o CLMAX.o COLLECT.o COLLECT_LOC.o DEWPOINT.o \ - FDLVL.o FGAMMA.o FIXED.o FRZLVL.o FRZLVL2.o \ - GET_BITS.o INITPOST.o LFMFLD.o \ - MAPSSLP.o MISCLN.o MDL2STD_P.o MIXLEN.o MDL2P.o MDLFLD.o MPI_FIRST.o MPI_LAST.o \ - NGMFLD.o NGMSLP.o OTLFT.o OTLIFT.o SLP_new.o SLP_NMM.o EXCH.o \ - PARA_RANGE.o PROCESS.o INITPOST_NMM.o EXCH2.o \ - READCNTRL.o READ_xml.o SET_OUTFLDS.o SCLFLD.o SERVER.o SETUP_SERVERS.o \ - SMOOTH.o SURFCE.o \ - SPLINE.o TABLE.o TABLEQ.o TRPAUS.o TTBLEX.o WETBULB.o WRFPOST.o \ - CALMICT.o MICROINIT.o GPVS.o MDL2SIGMA.o \ - ETCALC.o CANRES.o CALGUST.o WETFRZLVL.o SNFRAC.o MDL2AGL.o SNFRAC_GFS.o \ - AVIATION.o DEALLOCATE.o \ - CALPBL.o MDL2SIGMA2.o INITPOST_GFS.o LFMFLD_GFS.o \ - CALRAD_WCLOUD_newcrtm.o MDL2THANDPV.o CALPBLREGIME.o POLEAVG.o \ - INITPOST_NEMS.o GETNEMSNDSCATTER.o ICAOHEIGHT.o INITPOST_GFS_NEMS.o \ - GEO_ZENITH_ANGLE.o GFIP3.o CALUPDHEL.o INITPOST_GFS_SIGIO.o \ - AllGETHERV_GSD.o MSFPS.o SELECT_CHANNELS.o ALLOCATE_ALL.o INITPOST_NEMS_MPIIO.o ASSIGNNEMSIOVAR.o \ - INITPOST_GFS_NEMS_MPIIO.o INITPOST_NETCDF.o INITPOST_GFS_NETCDF.o INITPOST_GFS_NETCDF_PARA.o \ - gtg_ctlblk.o gtg_indices.o gtg_filter.o gtg_compute.o gtg_config.o map_routines.o gtg_algo.o gtg_smoothseams.o CALVESSEL.o \ - CALHEL2.o ETAMP_Q2F.o - - -.SUFFIXES: .F .f .o .f90 .c - -.F.f: - $(CPP) $(CPPFLAGS) $< > $*.f - -$(TARGET): $(OBJST) $(OBJS) - $(FC) -o $@ $(OBJST) $(OBJS) $(LIBS) $(OPENMP) - mkdir -p include/post_4 - $(AR) $(ARFLAGS) $(LIB_TARGET) $(OBJST) $(OBJS) - mv *.mod include/post_4 - -.f.o: - $(FC) $(FFLAGS) -c $< - -.f90.o: - $(FC) $(FFLAGS) -c $< - -.c.o : - ${CC} ${CFLAGS} -c $< - - -clean: - /bin/rm -f *.o *.mod libnceppost.a ncep_post - /bin/rm -rf include From 3cf3a375decdc57ec74a87ce65b2acc702e41c71 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 2 Feb 2022 13:15:56 -0500 Subject: [PATCH 030/107] Port UPP develop branch on wcoss2 (#439) * Add changes for WCOSS2 Acorn. * Add changes for Dogwood. * Add changes for WCOSS2. * Change modulefile on wcoss2 in LUA format based on Kate's comments. * Add machine recognition for cactus and WCOSS1 P3.5 based on Eric's comments --- jobs/JGLOBAL_ATMOS_NCEPPOST | 14 ++------- jobs/JGLOBAL_ATMOS_POST_MANAGER | 2 +- modulefiles/wcoss2.lua | 56 +++++++++++++++++++++++++++++++++ tests/compile_upp.sh | 6 +++- tests/detect_machine.sh | 38 ++++++++++++++++++++-- 5 files changed, 100 insertions(+), 16 deletions(-) create mode 100755 modulefiles/wcoss2.lua diff --git a/jobs/JGLOBAL_ATMOS_NCEPPOST b/jobs/JGLOBAL_ATMOS_NCEPPOST index 66c81353e..45adca8e5 100755 --- a/jobs/JGLOBAL_ATMOS_NCEPPOST +++ b/jobs/JGLOBAL_ATMOS_NCEPPOST @@ -65,9 +65,6 @@ export g2tmpl_ver=${g2tmpl_ver:-v1.5.0} export CDATE=${CDATE:-${PDY}${cyc}} export CDUMP=${CDUMP:-${RUN:-"gfs"}} export COMPONENT=${COMPONENT:-atmos} -if [ $RUN_ENVIR = "nco" ]; then - export ROTDIR=${COMROOT:?}/$NET/$envir -fi ############################################## @@ -77,17 +74,12 @@ export APRUNP=${APRUN:-$APRUN_NP} export RERUN=${RERUN:-NO} export HOMECRTM=${HOMECRTM:-${NWROOT}/lib/crtm/${crtm_ver}} export FIXCRTM=${CRTM_FIX:-${HOMECRTM}/fix} -#export FIXCRTM=${FIXCRTM:-${NWROOThps}/hwrf.${hwrf_ver}/fix/hwrf-crtm-2.0.6} export PARMpost=${PARMpost:-$HOMEgfs/parm/post} export INLINE_POST=${WRITE_DOPOST:-".false."} -if [ $RUN_ENVIR = "nco" ]; then - export COMIN=${COMIN:-$ROTDIR/$RUN.$PDY/$cyc/$COMPONENT} - export COMOUT=${COMOUT:-$ROTDIR/$RUN.$PDY/$cyc/$COMPONENT} -else - export COMIN="$ROTDIR/$CDUMP.$PDY/$cyc/$COMPONENT" - export COMOUT="$ROTDIR/$CDUMP.$PDY/$cyc/$COMPONENT" -fi +export COMIN=${COMIN:-$ROTDIR/$RUN.$PDY/$cyc/$COMPONENT} +export COMOUT=${COMOUT:-$ROTDIR/$RUN.$PDY/$cyc/$COMPONENT} + [[ ! -d $COMOUT ]] && mkdir -m 775 -p $COMOUT if [ $RUN = gfs ];then diff --git a/jobs/JGLOBAL_ATMOS_POST_MANAGER b/jobs/JGLOBAL_ATMOS_POST_MANAGER index 32d781809..94c848627 100755 --- a/jobs/JGLOBAL_ATMOS_POST_MANAGER +++ b/jobs/JGLOBAL_ATMOS_POST_MANAGER @@ -89,7 +89,7 @@ export EXT_FCST=NO ########################################### export cycle=t${cyc}z setpdy.sh -. PDY +. ./PDY export ROTDIR=${ROTDIR:-${COMROOT:?}/$NET/$envir} export COMIN=${COMIN:-$ROTDIR/$RUN.$PDY/$cyc/$COMPONENT} diff --git a/modulefiles/wcoss2.lua b/modulefiles/wcoss2.lua new file mode 100755 index 000000000..158837b40 --- /dev/null +++ b/modulefiles/wcoss2.lua @@ -0,0 +1,56 @@ +help([[ +Load environment to build post on WCOSS2 +]]) + +PrgEnv_intel_ver=os.getenv("PrgEnv_intel_ver") or "8.1.0" +intel_ver=os.getenv("intel_ver") or "19.1.3.304" +craype_ver=os.getenv("craype_ver") or "2.7.10" +cray_mpich_ver=os.getenv("cray_mpich_ver") or "8.1.9" +load(pathJoin("PrgEnv-intel", PrgEnv_intel_ver)) +load(pathJoin("intel", intel_ver)) +load(pathJoin("craype", craype_ver)) +load(pathJoin("cray-mpich", cray_mpich_ver)) + +hdf5_ver=os.getenv("hdf5_ver") or "1.10.6" +netcdf_ver=os.getenv("netcdf_ver") or "4.7.4" +load(pathJoin("hdf5", hdf5_ver)) +load(pathJoin("netcdf", netcdf_ver)) + +jasper_ver=os.getenv("jasper_ver") or "2.0.25" +libpng_ver=os.getenv("libpng_ver") or "1.6.37" +zlib_ver=os.getenv("zlib_ver") or "1.2.11" +load(pathJoin("jasper", jasper_ver)) +load(pathJoin("libpng", libpng_ver)) +load(pathJoin("zlib", zlib_ver)) + +g2_ver=os.getenv("g2_ver") or "3.4.5" +g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" +w3nco_ver=os.getenv("w3nco_ver") or "2.4.1" +bacio_ver=os.getenv("bacio_ver") or "2.4.1" +ip_ver=os.getenv("ip_ver") or "3.3.3" +sp_ver=os.getenv("sp_ver") or "2.3.3" +crtm_ver=os.getenv("crtm_ver") or "2.3.0" +w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" +load(pathJoin("g2", g2_ver)) +load(pathJoin("g2tmpl", g2tmpl_ver)) +load(pathJoin("w3nco", w3nco_ver)) +load(pathJoin("bacio", bacio_ver)) +load(pathJoin("ip", ip_ver)) +load(pathJoin("sp", sp_ver)) +load(pathJoin("crtm", crtm_ver)) +load(pathJoin("w3emc", w3emc_ver)) + +nemsio_ver=os.getenv("nemsio_ver") or "2.5.2" +sigio_ver=os.getenv("sigio_ver") or "2.3.2" +sfcio_ver=os.getenv("sfcio_ver") or "1.4.1" +wrf_io_ver=os.getenv("wrf_io_ver") or "1.2.0" +load(pathJoin("nemsio", nemsio_ver)) +load(pathJoin("sigio", sigio_ver)) +load(pathJoin("sfcio", sfcio_ver)) +load(pathJoin("wrf_io", wrf_io_ver)) + +setenv("CC","cc") +setenv("CXX","CC") +setenv("FC","ftn") + +whatis("Description: post build environment") diff --git a/tests/compile_upp.sh b/tests/compile_upp.sh index bd7fa15f8..7e9a9d310 100755 --- a/tests/compile_upp.sh +++ b/tests/compile_upp.sh @@ -54,7 +54,11 @@ PATHTR=${PATHTR:-$( cd ${MYDIR}/.. && pwd )} #Load required modulefiles if [[ $MACHINE_ID != "unknown" ]]; then - module purge + if [[ $MACHINE_ID == "wcoss2" ]]; then + module reset + else + module purge + fi module use $PATHTR/modulefiles modulefile=${MACHINE_ID} module load $modulefile diff --git a/tests/detect_machine.sh b/tests/detect_machine.sh index 5aec0b88b..79d8a0d2e 100755 --- a/tests/detect_machine.sh +++ b/tests/detect_machine.sh @@ -16,6 +16,12 @@ case $(hostname -f) in v72a1.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus v72a2.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus v72a3.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus + v109a1.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus + v109a2.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus + v109a3.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus + v110a1.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus + v110a2.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus + v110a3.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### venus m71a1.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars m71a2.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars @@ -23,9 +29,35 @@ case $(hostname -f) in m72a1.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars m72a2.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars m72a3.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars - - alogin01) MACHINE_ID=wcoss2 ;; ### acorn - alogin02) MACHINE_ID=wcoss2 ;; ### acorn + m109a1.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars + m110a2.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars + m109a3.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars + m110a1.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars + m110a2.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars + m110a3.ncep.noaa.gov) MACHINE_ID=wcoss_dell_p3 ;; ### mars + + alogin01.acorn.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2_a ;; ### acorn + alogin02.acorn.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2_a ;; ### acorn + adecflow01.acorn.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### acorn + adecflow02.acorn.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### acorn + dlogin01.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin02.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin03.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin04.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin05.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin06.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin07.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cattus + dlogin08.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin09.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin01.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin02.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin03.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin04.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin05.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin06.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin07.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin08.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin09.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus gaea9) MACHINE_ID=gaea ;; ### gaea9 gaea10) MACHINE_ID=gaea ;; ### gaea10 From 4a16052d2d37b3d78388708bb143376449506f9e Mon Sep 17 00:00:00 2001 From: lgannoaa <37596169+lgannoaa@users.noreply.github.com> Date: Thu, 10 Feb 2022 10:41:27 -0500 Subject: [PATCH 031/107] Exception handling if anl input not found (#443) (#444) * modified: scripts/exgdas_atmos_nceppost.sh * modified: scripts/exgfs_atmos_nceppost.sh --- scripts/exgdas_atmos_nceppost.sh | 6 ++++++ scripts/exgfs_atmos_nceppost.sh | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/scripts/exgdas_atmos_nceppost.sh b/scripts/exgdas_atmos_nceppost.sh index 31c90fb49..dc7b12698 100755 --- a/scripts/exgdas_atmos_nceppost.sh +++ b/scripts/exgdas_atmos_nceppost.sh @@ -18,6 +18,7 @@ echo " Aug 20 - Meng - Remove .ecf extentsion per EE2 review." echo " Sep 20 - Meng - Update clean up files per EE2 review." echo " Mar 21 - Meng - Update POSTGRB2TBL default setting." echo " Oct 21 - Meng - Remove jlogfile for wcoss2 transition." +echo " Feb 22 - Lin - Exception handling if anl input not found." echo "-----------------------------------------------------" ##################################################################### @@ -178,6 +179,11 @@ then fi rm pgbfile.grib2 +else + #### atmanl file not found need failing job + echo " *** FATAL ERROR: No model anl file output " + export err=9 + err_chk fi #---------------------------------- diff --git a/scripts/exgfs_atmos_nceppost.sh b/scripts/exgfs_atmos_nceppost.sh index 2168f5624..f8e996d13 100755 --- a/scripts/exgfs_atmos_nceppost.sh +++ b/scripts/exgfs_atmos_nceppost.sh @@ -30,6 +30,7 @@ echo " Mar 21 - Meng - Update POSTGRB2TBL default setting." echo " Jun 21 - Mao - Instead of err_chk, catch err and print out" echo " WAFS failure warnings to avoid job crashing" echo " Oct 21 - Meng - Remove jlogfile for wcoss2 transition." +echo " Feb 22 - Lin - Exception handling if anl input not found." echo "-----------------------------------------------------" ##################################################################### @@ -235,7 +236,11 @@ then fi fi ########################## WAFS U/V/T analysis end ########################## - +else + #### atmanl file not found need failing job + echo " *** FATAL ERROR: No model anl file output " + export err=9 + err_chk fi #---------------------------------- From 45e8fdc4513035b636d8b2b6406fb2d151e0f4ab Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Fri, 11 Feb 2022 08:48:47 -0500 Subject: [PATCH 032/107] Update regional FV3 read interface with parallel netcdf read (#441) * Changes for parallel netcdf read for regional FV3 interface * Clean up debugging code * Replace small with the one defined in params_mod based on Huiya's comments. --- sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f | 28 +- sorc/ncep_post.fd/INITPOST_NETCDF.f | 1082 ++++++++---------- 2 files changed, 515 insertions(+), 595 deletions(-) diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f index 624807426..aee28bb0b 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f @@ -2585,6 +2585,8 @@ subroutine read_netcdf_3d_para(ncid,im,jm,jsta,jsta_2l,jend,jend_2u, & spval,varname,buf,lm) use netcdf + use ctlblk_mod, only : me + use params_mod, only : small implicit none INCLUDE "mpif.h" @@ -2594,10 +2596,12 @@ subroutine read_netcdf_3d_para(ncid,im,jm,jsta,jsta_2l,jend,jend_2u, & real,intent(out) :: buf(im,jsta_2l:jend_2u,lm) integer :: varid,iret,jj,i,j,l,kk integer :: start(3), count(3), stride(3) + real,parameter :: spval_netcdf=9.99e+20 + real :: fill_value iret = nf90_inq_varid(ncid,trim(varname),varid) if (iret /= 0) then - print*,VarName," not found -Assigned missing values" + if (me == 0) print*,VarName," not found -Assigned missing values" !$omp parallel do private(i,j,l) do l=1,lm do j=jsta,jend @@ -2607,10 +2611,19 @@ subroutine read_netcdf_3d_para(ncid,im,jm,jsta,jsta_2l,jend,jend_2u, & enddo enddo else + iret = nf90_get_att(ncid,varid,"_FillValue",fill_value) + if (iret /= 0) fill_value = spval_netcdf start = (/1,jsta,1/) jj=jend-jsta+1 count = (/im,jj,lm/) iret = nf90_get_var(ncid,varid,buf(1:im,jsta:jend,1:lm),start=start,count=count) + do l=1,lm + do j=jsta,jend + do i=1,im + if(abs(buf(i,j,l)-fill_value)1.0E6 .or. pint(1,jsta_2l,lp1)<50000.) & @@ -1713,9 +1613,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! dong set missing value for zint ! zint=spval VarName='hgtsfc' - call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,zint(1,jsta_2l,lp1)) + call read_netcdf_2d_para(ncid3d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,zint(1,jsta_2l,lp1)) if(debugprint)print*,'sample ',VarName,' =',zint(isa,jsa,lp1) do j=jsta,jend do i=1,im @@ -1836,28 +1735,25 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! instantaneous 3D cloud fraction VarName='cldfra' + call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cfr(1,jsta_2l,1),lm) ! do l=1,lm - call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,lm,cfr(1,jsta_2l,1)) ! if(debugprint)print*,'sample ',VarName,'isa,jsa,l =' & ! ,cfr(isa,jsa,l),isa,jsa,l ! enddo VarName='refl_10cm' + call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,REF_10CM(1,jsta_2l,1),lm) ! do l=1,lm - call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,lm,REF_10CM(1,jsta_2l,1)) ! if(debugprint)print*,'sample ',VarName,'isa,jsa,l =' & ! ,REF_10CM(isa,jsa,l),isa,jsa,l ! enddo ! turbulence kinetic energy (QKE = 2*TKE) VarName='qke' - call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,lm,q2(1,jsta_2l,1)) + call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,q2(1,jsta_2l,1),lm) do l=1,lm do j=jsta,jend do i=1,im @@ -1868,19 +1764,17 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! ice-friendly aerosol number concentration VarName='nifa' - call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,lm,qqnifa(1,jsta_2l,1)) + call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,qqnifa(1,jsta_2l,1),lm) ! water-friendly aerosol number concentration VarName='nwfa' - call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,lm,qqnwfa(1,jsta_2l,1)) + call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,qqnwfa(1,jsta_2l,1),lm) VarName='land' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sm) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sm) if(debugprint)print*,'sample ',VarName,' =',sm(im/2,(jsta+jend)/2) !$omp parallel do private(i,j) @@ -1893,8 +1787,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! sea ice mask VarName = 'icec' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sice) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sice) if(debugprint)print*,'sample ',VarName,' = ',sice(isa,jsa) ! where(sice /=spval .and. sice >=1.0)sm=0.0 !sea ice has sea @@ -1915,36 +1809,36 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! PBL height using nemsio VarName = 'hpbl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pblh) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pblh) if(debugprint)print*,'sample ',VarName,' = ',pblh(isa,jsa) ! frictional velocity using nemsio VarName='fricv' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ustar) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ustar) ! if(debugprint)print*,'sample ',VarName,' = ',ustar(isa,jsa) ! roughness length using getgb VarName='sfcr' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,z0) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,z0) ! if(debugprint)print*,'sample ',VarName,' = ',z0(isa,jsa) ! sfc exchange coeff VarName='sfexc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,SFCEXC) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,SFCEXC) ! aerodynamic conductance VarName='acond' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,acond) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,acond) if(debugprint)print*,'sample ',VarName,' = ',acond(isa,jsa) ! mid day avg albedo VarName='albdo_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgalbedo) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgalbedo) if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) do j=jsta,jend do i=1,im @@ -1954,8 +1848,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! surface potential T using getgb VarName='tmpsfc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ths) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ths) ! where(ths/=spval)ths=ths*(p1000/pint(:,:,lp1))**CAPA ! convert to THS @@ -1997,8 +1891,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! convective precip in m per physics time step using getgb ! read 3 hour bucket VarName='cpratb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcprate) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgcprate) ! where(avgcprate /= spval)avgcprate=avgcprate*dtq2/1000. ! convert to m !$omp parallel do private(i,j) do j=jsta,jend @@ -2012,8 +1906,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! read continuous bucket VarName='cprat_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcprate_cont) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgcprate_cont) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2027,8 +1921,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! precip rate in m per physics time step using getgb VarName='prateb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgprec) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgprec) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2041,8 +1935,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! prec = avgprec !set avg cprate to inst one to derive other fields VarName='prate_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgprec_cont) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgprec_cont) ! where(avgprec /= spval)avgprec=avgprec*dtq2/1000. ! convert to m !$omp parallel do private(i,j) do j=jsta,jend @@ -2055,8 +1949,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample ',VarName,' = ',avgprec_cont(isa,jsa) ! precip rate in m per physics time step VarName='tprcp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,prec) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,prec) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2078,47 +1972,47 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! max hourly surface precipitation rate VarName='pratemax' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,prate_max) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,prate_max) if(debugprint)print*,'sample ',VarName,' = ',prate_max(isa,jsa) ! max hourly 1-km agl reflectivity VarName='refdmax' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,refd_max) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,refd_max) if(debugprint)print*,'sample ',VarName,' = ',refd_max(isa,jsa) ! max hourly -10C reflectivity VarName='refdmax263k' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,refdm10c_max) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,refdm10c_max) if(debugprint)print*,'sample ',VarName,' = ',refdm10c_max(isa,jsa) ! max hourly u comp of 10m agl wind VarName='u10max' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,u10max) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,u10max) if(debugprint)print*,'sample ',VarName,' = ',u10max(isa,jsa) ! max hourly v comp of 10m agl wind VarName='v10max' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,v10max) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,v10max) if(debugprint)print*,'sample ',VarName,' = ',v10max(isa,jsa) ! max hourly 10m agl wind speed VarName='spd10max' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,wspd10max) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,wspd10max) if(debugprint)print*,'sample ',VarName,' = ',wspd10max(isa,jsa) ! 2m T using nemsio VarName='tmp2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,tshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tshltr) if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) ! inst snow water eqivalent using nemsio VarName='weasd' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sno) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sno) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2130,8 +2024,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! ave snow cover VarName='snowc_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,snoavg) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,snoavg) ! snow cover is multipled by 100 in SURFCE before writing it out do j=jsta,jend do i=1,im @@ -2142,8 +2036,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! snow depth in mm using nemsio VarName='snod' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,si) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,si) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2161,8 +2055,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! 2m T using nemsio VarName='tmp2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,tshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tshltr) if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) ! GFS does not have 2m pres, estimate it, also convert t to theta @@ -2178,14 +2072,14 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! 2m specific humidity using nemsio VarName='spfh2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,qshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,qshltr) if(debugprint)print*,'sample ',VarName,' = ',qshltr(isa,jsa) ! mid day avg albedo in fraction using nemsio VarName='albdosfc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgalbedo) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgalbedo) ! where(avgalbedo /= spval)avgalbedo=avgalbedo/100. ! convert to fraction !$omp parallel do private(i,j) do j=jsta,jend @@ -2197,8 +2091,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged column cloud fractionusing nemsio VarName='tcdc_aveclm' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgtcdc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgtcdc) ! where(avgtcdc /= spval)avgtcdc=avgtcdc/100. ! convert to fraction !$omp parallel do private(i,j) do j=jsta,jend @@ -2219,8 +2113,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! maximum snow albedo in fraction using nemsio VarName='snoalb' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,mxsnal) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,mxsnal) ! where(mxsnal /= spval)mxsnal=mxsnal/100. ! convert to fraction !!$omp parallel do private(i,j) ! do j=jsta,jend @@ -2253,8 +2147,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! ave high cloud fraction using nemsio VarName='tcdc_avehcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcfrach) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgcfrach) ! where(avgcfrach /= spval)avgcfrach=avgcfrach/100. ! convert to fraction !$omp parallel do private(i,j) do j=jsta,jend @@ -2266,8 +2160,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! ave low cloud fraction using nemsio VarName='tcdc_avelcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcfracl) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgcfracl) ! where(avgcfracl /= spval)avgcfracl=avgcfracl/100. ! convert to fraction !$omp parallel do private(i,j) do j=jsta,jend @@ -2279,8 +2173,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! ave middle cloud fraction using nemsio VarName='tcdc_avemcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcfracm) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgcfracm) ! where(avgcfracm /= spval)avgcfracm=avgcfracm/100. ! convert to fraction !$omp parallel do private(i,j) do j=jsta,jend @@ -2292,6 +2186,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! inst convective cloud fraction using nemsio VarName='tcdccnvcl' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cnvcfr) ! where(cnvcfr /= spval)cnvcfr=cnvcfr/100. ! convert to fraction !$omp parallel do private(i,j) do j=jsta,jend @@ -2303,8 +2199,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! slope type using nemsio VarName='sltyp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,buf) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf) !$omp parallel do private(i,j) do j = jsta_2l, jend_2u do i=1,im @@ -2319,8 +2215,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! plant canopy sfc wtr in m VarName='cnwat' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,cmc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cmc) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2339,8 +2235,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! frozen precip fraction using nemsio VarName='cpofp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sr) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2353,8 +2249,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! sea ice skin temperature VarName='tisfc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ti) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ti) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2364,8 +2260,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! vegetation fraction in fraction. using nemsio VarName='veg' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,vegfrc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,vegfrc) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2408,8 +2304,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! liquid volumetric soil mpisture in fraction using nemsio VarName='soill1' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,1)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sh2o(1,jsta_2l,1)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2420,8 +2316,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,1) VarName='soill2' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,2)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sh2o(1,jsta_2l,2)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2432,8 +2328,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,2) VarName='soill3' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,3)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sh2o(1,jsta_2l,3)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2443,9 +2339,9 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) enddo if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,3) - VarName='soill4' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,4)) + VarName='soill4' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sh2o(1,jsta_2l,4)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2457,8 +2353,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! volumetric soil moisture using nemsio VarName='soilw1' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,1)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,1)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2469,8 +2365,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,1) VarName='soilw2' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,2)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,2)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2481,8 +2377,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,2) VarName='soilw3' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,3)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,3)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2493,8 +2389,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,3) VarName='soilw4' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,4)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,4)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2507,8 +2403,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) IF (NSOIL==9) THEN VarName='soilw5' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,5)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,5)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2519,8 +2415,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,5) VarName='soilw6' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,6)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,6)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2531,8 +2427,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,6) VarName='soilw7' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,7)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,7)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2543,8 +2439,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,7) VarName='soilw8' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,8)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,8)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2555,8 +2451,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,8) VarName='soilw9' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,9)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smc(1,jsta_2l,9)) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2570,8 +2466,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! soil temperature using nemsio VarName='soilt1' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,1)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,1)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2583,8 +2479,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample l','stc',' = ',1,stc(isa,jsa,1) VarName='soilt2' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,2)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,2)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2596,8 +2492,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,2) VarName='soilt3' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,3)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,3)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2609,8 +2505,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,3) VarName='soilt4' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,4)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,4)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2624,8 +2520,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) IF (NSOIL==9) THEN VarName='soilt5' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,5)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,5)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2637,8 +2533,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,5) VarName='soilt6' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,6)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,6)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2650,8 +2546,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,6) VarName='soilt7' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,7)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,7)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2663,8 +2559,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,7) VarName='soilt8' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,8)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,8)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2676,8 +2572,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,8) VarName='soilt9' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,9)) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,stc(1,jsta_2l,9)) ! mask open water areas, combine with sea ice tmp !$omp parallel do private(i,j) do j=jsta,jend @@ -2706,22 +2602,23 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged incoming sfc longwave VarName='dlwrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,alwin) ! inst incoming sfc longwave VarName='dlwrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rlwin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,rlwin) ! time averaged outgoing sfc longwave VarName='ulwrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwout) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,alwout) + ! inst outgoing sfc longwave VarName='ulwrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,radot) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,radot) ! where(alwout /= spval) alwout=-alwout ! CLDRAD puts a minus sign before gribbing !$omp parallel do private(i,j) @@ -2734,8 +2631,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged outgoing model top longwave using gfsio VarName='ulwrf_avetoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwtoa) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,alwtoa) ! if(debugprint)print*,'sample l',VarName,' = ',1,alwtoa(isa,jsa) ! GFS incoming sfc longwave has been averaged, set ARDLW to 1 @@ -2744,19 +2641,19 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged incoming sfc shortwave VarName='dswrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswin) ! if(debugprint)print*,'sample l',VarName,' = ',1,aswin(isa,jsa) ! inst incoming sfc shortwave VarName='dswrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rswin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,rswin) ! time averaged model top incoming shortwave VarName='dswrf_avetoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswintoa) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswintoa) ! if(debugprint)print*,'sample l',VarName,' = ',1,aswintoa(isa,jsa) ! inst incoming clear sky sfc shortwave @@ -2770,20 +2667,20 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged incoming sfc uv-b using getgb VarName='duvb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,auvbin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,auvbin) ! if(debugprint)print*,'sample l',VarName,' = ',1,auvbin(isa,jsa) ! time averaged incoming sfc clear sky uv-b using getgb VarName='cduvb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,auvbinc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,auvbinc) ! if(debugprint)print*,'sample l',VarName,' = ',1,auvbinc(isa,jsa) ! time averaged outgoing sfc shortwave using gfsio VarName='uswrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswout) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswout) ! where(aswout /= spval) aswout=-aswout ! CLDRAD puts a minus sign before gribbing !$omp parallel do private(i,j) do j=jsta,jend @@ -2795,20 +2692,20 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! inst outgoing sfc shortwave using gfsio VarName='uswrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rswout) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,rswout) ! time averaged model top outgoing shortwave VarName='uswrf_avetoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswtoa) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswtoa) ! if(debugprint)print*,'sample l',VarName,' = ',1,aswtoa(isa,jsa) ! time averaged surface sensible heat flux, multiplied by -1 because wrf model flux ! has reversed sign convention using gfsio VarName='shtfl_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcshx) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sfcshx) ! where (sfcshx /= spval)sfcshx=-sfcshx !$omp parallel do private(i,j) do j=jsta,jend @@ -2820,8 +2717,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! inst surface sensible heat flux VarName='shtfl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,twbs) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,twbs) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2836,8 +2733,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged surface latent heat flux, multiplied by -1 because wrf model flux ! has reversed sign vonvention using gfsio VarName='lhtfl_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfclhx) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sfclhx) ! where (sfclhx /= spval)sfclhx=-sfclhx !$omp parallel do private(i,j) do j=jsta,jend @@ -2849,8 +2746,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! inst surface latent heat flux VarName='lhtfl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,qwbs) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,qwbs) !$omp parallel do private(i,j) do j=jsta,jend do i=1,im @@ -2862,34 +2759,34 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! inst aod550 optical depth if(rdaod) then VarName='aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,aod550) VarName='du_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,du_aod550) VarName='ss_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,ss_aod550) VarName='su_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,su_aod550) VarName='oc_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,oc_aod550) VarName='bc_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,bc_aod550) end if ! time averaged ground heat flux using nemsio VarName='gflux_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,subshx) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,subshx) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2901,8 +2798,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! inst ground heat flux using nemsio VarName='gflux' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,grnflx) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,grnflx) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2913,27 +2810,27 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged zonal momentum flux using gfsio VarName='uflx_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcux) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sfcux) ! if(debugprint)print*,'sample l',VarName,' = ',1,sfcux(isa,jsa) ! time averaged meridional momentum flux using nemsio VarName='vflx_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcvx) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sfcvx) ! if(debugprint)print*,'sample l',VarName,' = ',1,sfcvx(isa,jsa) ! dong read in inst surface flux ! inst zonal momentum flux using gfsio VarName='uflx' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcuxi) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sfcuxi) if(debugprint)print*,'sample l',VarName,' = ',1,sfcuxi(isa,jsa) ! inst meridional momentum flux using nemsio VarName='vflx' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcvxi) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,sfcvxi) if(debugprint)print*,'sample l',VarName,' = ',1,sfcvxi(isa,jsa) @@ -2946,20 +2843,20 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! time averaged zonal gravity wave stress using nemsio VarName='u-gwd_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,gtaux) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,gtaux) ! if(debugprint)print*,'sample l',VarName,' = ',1,gtaux(isa,jsa) ! time averaged meridional gravity wave stress using getgb VarName='v-gwd_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,gtauy) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,gtauy) ! if(debugprint)print*,'sample l',VarName,' = ',1,gtauy(isa,jsa) ! time averaged accumulated potential evaporation VarName='pevpr_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgpotevp) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgpotevp) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -2971,8 +2868,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! inst potential evaporation VarName='pevpr' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,potevp) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,potevp) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3005,8 +2902,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! 10 m u using nemsio VarName='ugrd10m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,u10) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,u10) do j=jsta,jend do i=1,im @@ -3017,8 +2914,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! 10 m v using gfsio VarName='vgrd10m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,v10) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,v10) do j=jsta,jend do i=1,im @@ -3029,8 +2926,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! vegetation type, it's in GFS surface file, hopefully will merge into gfsio soon VarName='vtype' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,buf) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf) ! where (buf /= spval) ! ivgtyp=nint(buf) ! elsewhere @@ -3050,9 +2947,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! soil type, it's in GFS surface file, hopefully will merge into gfsio soon VarName='sotyp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,buf) - VcoordName='sfc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf) l=1 !$omp parallel do private(i,j) do j = jsta_2l, jend_2u @@ -3099,8 +2995,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! l=1 ! if(debugprint)print*,'sample l',VarName,' = ',1,ptop(isa,jsa) VarName='prescnvclt' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ptop) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ptop) !$omp parallel do private(i,j) @@ -3128,8 +3024,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve inst convective cloud bottom, GFS has cloud top pressure instead of index, ! will need to modify CLDRAD.f to use pressure directly instead of index VarName='prescnvclb' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pbot) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pbot) ! if(debugprint)print*,'sample l',VarName,VcoordName,' = ',1,pbot(isa,jsa) !$omp parallel do private(i,j) do j=jsta,jend @@ -3224,14 +3120,14 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve cloud work function VarName='cwork_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,cldwork) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cldwork) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,cldwork(isa,jsa) ! accumulated total (base+surface) runoff VarName='watr_acc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,runoff) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,runoff) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3243,25 +3139,25 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve shelter max temperature using nemsio VarName='t02max' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,maxtshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,maxtshltr) ! retrieve shelter min temperature using nemsio VarName='t02min' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,mintshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,mintshltr) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & ! 1,mintshltr(im/2,(jsta+jend)/2) ! retrieve shelter max RH VarName='rh02max' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,maxrhshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,maxrhshltr) ! retrieve shelter min temperature using nemsio VarName='rh02min' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,minrhshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,minrhshltr) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & ! 1,mintshltr(im/2,(jsta+jend)/2) @@ -3275,14 +3171,14 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve ice thickness using nemsio VarName='icetk' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,dzice) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,dzice) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,dzice(isa,jsa) ! retrieve wilting point using nemsio VarName='wilt' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smcwlt) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smcwlt) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3294,13 +3190,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve sunshine duration using nemsio VarName='sunsd_acc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,suntime) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,suntime) ! retrieve field capacity using nemsio VarName='fldcp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,fieldcapa) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,fieldcapa) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3312,72 +3208,72 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve time averaged surface visible beam downward solar flux VarName='vbdsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avisbeamswin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avisbeamswin) VcoordName='sfc' l=1 ! retrieve time averaged surface visible diffuse downward solar flux VarName='vddsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avisdiffswin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avisdiffswin) ! retrieve time averaged surface near IR beam downward solar flux VarName='nbdsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,airbeamswin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,airbeamswin) ! retrieve time averaged surface near IR diffuse downward solar flux VarName='nddsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,airdiffswin) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,airdiffswin) ! retrieve time averaged surface clear sky outgoing LW VarName='csulf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwoutc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,alwoutc) ! retrieve time averaged TOA clear sky outgoing LW VarName='csulftoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwtoac) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,alwtoac) ! retrieve time averaged surface clear sky outgoing SW VarName='csusf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswoutc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswoutc) ! retrieve time averaged TOA clear sky outgoing LW VarName='csusftoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswtoac) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswtoac) ! retrieve time averaged surface clear sky incoming LW VarName='csdlf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwinc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,alwinc) ! retrieve time averaged surface clear sky incoming SW VarName='csdsf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswinc) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswinc) ! retrieve shelter max specific humidity using nemsio VarName='spfhmax_max2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,maxqshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,maxqshltr) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', ! 1,maxqshltr(isa,jsa) ! retrieve shelter min temperature using nemsio VarName='spfhmin_min2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,minqshltr) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,minqshltr) ! retrieve storm runoff using nemsio VarName='ssrun_acc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,SSROFF) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,SSROFF) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3388,8 +3284,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve direct soil evaporation VarName='evbs_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgedir) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgedir) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3400,8 +3296,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve CANOPY WATER EVAP VarName='evcw_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgecan) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgecan) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3412,8 +3308,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve PLANT TRANSPIRATION VarName='trans_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgetrans) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgetrans) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3424,8 +3320,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve snow sublimation VarName='sbsno_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgesnow) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,avgesnow) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3436,8 +3332,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrive total soil moisture VarName='soilm' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smstot) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,smstot) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend @@ -3448,8 +3344,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! retrieve snow phase change heat flux VarName='snohf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,snopcx) + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,snopcx) ! mask water areas !$omp parallel do private(i,j) do j=jsta,jend From 583f76bee537a028b48b4555d19596df9be2a1ea Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Fri, 11 Feb 2022 09:32:26 -0700 Subject: [PATCH 033/107] Update documentation to reflect updates to develop (fortran namelist/RQSTFLD removal) (#445) --- docs/AddNewVariable.rst | 76 +++++++---------------------------------- docs/InputsOutputs.rst | 7 ++-- 2 files changed, 17 insertions(+), 66 deletions(-) diff --git a/docs/AddNewVariable.rst b/docs/AddNewVariable.rst index 7fd5ff268..295c89da0 100644 --- a/docs/AddNewVariable.rst +++ b/docs/AddNewVariable.rst @@ -79,41 +79,33 @@ with examples in the sections below. This flat file (instead of the xml file) is read in by UPP as it was much faster to read a text file than an xml file. -2. Define the new field: RQSTFLD.F - - This file contains a list of all possible fields to be output by UPP, corresponding Grib1 key-word character - strings, UPP ID (Index) for internal code, and Grib1 IDs. Note that as of December 2020, EMC removed the Grib1 - option from its repository as part of its re-reginnering effort. Users will continue to use UPP ID (Index) for - defining the new variable to be added. However, the character string and Grib1 ID in RQSTFLD.F will no longer - be used by UPP. - -3. Allocate the field: ALLOCATE.f +2. Allocate the field: ALLOCATE.f This file is the instantiation or allocation of the variable. Note that the variables are defined based on the parallel processing capability of UPP - use an example from the file. -4. Deallocate the field: DEALLOCATE.f +3. Deallocate the field: DEALLOCATE.f All good programmers give back their resources when they are done. Please update this routine to return your resource to the system. -5. Declare the new variable: VRBLS2D_mod.f, VRBLS3D_mod.f, or VRBLS4D_mod.f +4. Declare the new variable: VRBLS2D_mod.f, VRBLS3D_mod.f, or VRBLS4D_mod.f The variable is declared in one of these modules defining files depending on its dimension. -6. Read model output if necessary: INITPOST_GFS_NETCDF_PARA.f (current operational netcdf output with GFS V16), +5. Read model output if necessary: INITPOST_GFS_NETCDF_PARA.f (current operational netcdf output with GFS V16), INITPOST_NETCDF.f (LAM FV3 netcdf) Check first to see if all variables needed to derive your new variable are already available in UPP. If not, you will need to use one of these files for reading the model output files. The appropriate one will need to be chosen based on the model and model output format. -7. Add to appropriate routine for filling the new variable: e.g. SURFCE.f, MDLFLD.f, MDL2P.f, etc +6. Add to appropriate routine for filling the new variable: e.g. SURFCE.f, MDLFLD.f, MDL2P.f, etc This is the place where you will derive your new variable and then fill the Grib2 array with the data to be written out later on. -8. Build or rebuild the code for changes to take effect before running your UPP run script. +7. Build or rebuild the code for changes to take effect before running your UPP run script. **Example Procedure: Steps for adding a new variable ‘TG3’** @@ -180,7 +172,7 @@ with examples in the sections below. e) Add the new variable to the UPP/parm/post_avblflds.xml, which lists all fields available for output in GRIB2 format. This file is generally not modified unless adding a new field or modifying an existing one. - - Post_avblfldidx: the unique array number given in the RQSTFLD.f routine. + - Post_avblfldidx: the unique array index number used to store this variable. - Shortname: name describing the variable and level type - Pname: the abbreviation for your variable (should match what is used in params_grib2_tbl_new) - Table info: table used if not standard WMO @@ -229,49 +221,7 @@ with examples in the sections below. This flat file (instead of the xml file) is read in by UPP as it was much faster to read a text file than an xml file. -2. Define the new variable in RQSTFLD.F which includes a list of all possible fields to be output by - UPP, corresponding Grib1 key-word character strings, UPP ID (Index) for internal code, and Grib1 IDs. - Ensure your code is up-to-date and pick a unique identifier that is not already used for the new variable. - Currently, the 900's are being used for new contributions. - - Example Entry - - | ! HWRF addition for v_flux as pass through variable: - - | DATA IFILV(901),AVBL(901),IQ(901),IS(901),AVBLGRB2(901) & - | & /1,'MODEL SFC V WIND STR’,125,001, & - | & 'V_FLX ON surface’/ - - Where: - - **IFILV** Identifies field as MASS/VELOCITY point (e.g. 1) - - **AVBL** is the model output character string variable name for Grib1 (e.g. MODEL SFC V WIND STR) - - **IQ** is the GRIB PDS OCTET 9 (table 2) - Indicator of parameter and units (e.g. 125) - - **IS** is the GRIB PDS OCTET 10 (table 3&3a) - Indicator of type of level or layer (e.g. 001) - - **AVBLGRB2** is the model output character string variable name for Grib2 (e.g. V_FLX ON surface) - - A UNIQUE array Index UPP uses to store this variable in parallel arrays (e.g. **901**) - - User procedure - - Soil temperature (TSOIL) is found in the Grib1 parameter tables as parameter number 085, so this - can be used for the Grib1 ID. - http://www.nco.ncep.noaa.gov/pmb/docs/on388/table2.html - - Use level type 'depth below land surface', which is 111. - http://www.nco.ncep.noaa.gov/pmb/docs/on388/table3.html - - New variables are continuously being added to UPP, so be sure to check that the UPP Index 999 is - still available before using it to add your new variable. If it is already in use, pick the next - available Index. - - Add as: - - :: - - DATA IFILV(999),AVBL(999),IQ(999),IS(999),AVBLGRB2(999) & - & /1,'DEEP SOIL TMP',085,111, & - & 'DEEP TSOIL ON depth_bel_land_sfc'/ - - .. note:: - Since Grib1 is no longer supported, the variable character strings and Grib IDs for Grib1 are not - important, but still need to be included here for correct formatting. - -3. Allocate the new variable in ALLOCATE_ALL.f +2. Allocate the new variable in ALLOCATE_ALL.f This file is the instantiation or allocation of the variable. Note that the variables are defined based on the parallel processing capability of UPP - use an example from the file. @@ -282,7 +232,7 @@ with examples in the sections below. allocate(tg3(im,jsta_2l:jend_2u)) -4. De-allocate the variable to give the resources back in DEALLOCATE.f +3. De-allocate the variable to give the resources back in DEALLOCATE.f All good programmers give back their resources when they are done. Please update this routine to return your resources to the system. @@ -293,7 +243,7 @@ with examples in the sections below. deallocate(tg3) -5. Declare the new variable in the appropriate file depending on its dimensions; +4. Declare the new variable in the appropriate file depending on its dimensions; VRBLS2D_mod.f, VRBLS3D_mod.f or VRBLS4D_mod.f User procedure @@ -304,7 +254,7 @@ with examples in the sections below. tg3(:,:) -6. Read the field from the GFS model output file by adding the new variable into INITPOST_GFS_NETCDF_PARA.f. +5. Read the field from the GFS model output file by adding the new variable into INITPOST_GFS_NETCDF_PARA.f. This file is used for reading the GFS model FV3 output files in netcdf format. User procedure @@ -324,7 +274,7 @@ with examples in the sections below. call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,tg3) -7. Determine the appropriate routine to add the new variable to (e.g. SURFCE.f, MDLFLD.f, +6. Determine the appropriate routine to add the new variable to (e.g. SURFCE.f, MDLFLD.f, MDL2P.f, etc). This is the place that you will fill the Grib2 array with the data to be written out later on. The appropriate routine will depend on what your field is. For example, if you have a new diagnostic called foo, and you want it interpolated to pressure levels, you would need to add it to MDL2P.f. If foo was only a @@ -365,7 +315,7 @@ with examples in the sections below. endiF ENDIF -8. Build or rebuild the code for changes to take effect before running your UPP run script. +7. Build or rebuild the code for changes to take effect before running your UPP run script. User procedure IF you already have the code built. Otherwise, see the User's Guide for instructions on building. diff --git a/docs/InputsOutputs.rst b/docs/InputsOutputs.rst index 56c65cb9b..008cb5a05 100644 --- a/docs/InputsOutputs.rst +++ b/docs/InputsOutputs.rst @@ -14,7 +14,7 @@ Input files =========== The UPP requires the following input files: - - The itag namelist + - The itag namelist file - The GRIB2 control file - Additional data files (e.g. lookup tables, coefficient files for satellite) @@ -22,10 +22,11 @@ The UPP requires the following input files: ITAG ---- -The :bolditalic:`itag` namelist that is read in by the :bolditalic:`upp.x` executable from stdin (unit 5) is +The file called :bolditalic:`itag` is a text file that contains the fortran namelist &model_inputs. It is +read in by the :bolditalic:`upp.x` executable from stdin (unit 5) and is generated automatically within the UFS application workflow or stand-alone run script based on user-defined options. It should not be necessary to edit this. For description purposes, the namelist -(:bolditalic:`itag`) contains 7 lines for FV3: +&model_inputs (:bolditalic:`itag` file) contains 7 lines for FV3: #. Name of the FV3 (pressure level) output file to be posted. From 30fcea8fcb8e753ad0c251ff21a7d6b353629686 Mon Sep 17 00:00:00 2001 From: "Chan-Hoo.Jeon-NOAA" <60152248+chan-hoo@users.noreply.github.com> Date: Wed, 23 Feb 2022 12:27:11 -0500 Subject: [PATCH 034/107] exec is selectable for executable directory (#448) --- CMakeLists.txt | 6 ++++++ README.md | 6 +++--- sorc/ncep_post.fd/CMakeLists.txt | 4 ++-- 3 files changed, 11 insertions(+), 5 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 8100dd0d2..ca0255482 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -63,6 +63,12 @@ if(BUILD_POSTEXEC) endif() endif() +### Switch RUNTIME DESTINATION DIR between bin and exec +set(exec_dir bin) +if(EMC_EXEC_DIR) + set(exec_dir exec) +endif() + add_subdirectory(sorc) add_subdirectory(parm) diff --git a/README.md b/README.md index 6f80fd158..4d403a302 100644 --- a/README.md +++ b/README.md @@ -110,9 +110,9 @@ Builds include: ``` mkdir build cd build -cmake .. -DCMAKE_INSTALL_PREFIX=/path/to/install -make -make test +cmake .. -DCMAKE_INSTALL_PREFIX=/path/to/install +(or cmake .. -DCMAKE_INSTALL_PREFIX=/path/to/install -DEMC_EXEC_DIR=ON) +make -j 4 make install ``` diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index 0855a7788..3215bad5f 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -230,7 +230,7 @@ if(BUILD_POSTEXEC) target_link_libraries(${EXENAME} PRIVATE wrf_io::wrf_io) endif() - install(TARGETS ${EXENAME} RUNTIME DESTINATION bin) + install(TARGETS ${EXENAME} RUNTIME DESTINATION ${exec_dir}) endif() install(DIRECTORY ${module_dir} DESTINATION ${CMAKE_INSTALL_PREFIX}) @@ -238,6 +238,6 @@ install(DIRECTORY ${module_dir} DESTINATION ${CMAKE_INSTALL_PREFIX}) install( TARGETS ${LIBNAME} EXPORT ${PROJECT_NAME}Exports - RUNTIME DESTINATION bin + RUNTIME DESTINATION ${exec_dir} LIBRARY DESTINATION lib ARCHIVE DESTINATION lib) From 7a5ae3c887e57ae5ff6097e1a701a429c5742b11 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Mon, 7 Mar 2022 08:27:04 -0700 Subject: [PATCH 035/107] Doxygen for CALGUST (#451) * Doxygen for CALDRG.f * This is part of Issue #392 Fixes the doxygen warnings in CALGUST.f Please review this subroutine. Thank you. --- sorc/ncep_post.fd/CALGUST.f | 61 ++++++++++++------------------------- 1 file changed, 19 insertions(+), 42 deletions(-) diff --git a/sorc/ncep_post.fd/CALGUST.f b/sorc/ncep_post.fd/CALGUST.f index 07c4a7f1c..98d3ee97b 100644 --- a/sorc/ncep_post.fd/CALGUST.f +++ b/sorc/ncep_post.fd/CALGUST.f @@ -1,46 +1,23 @@ !> @file -! . . . -!> SUBPROGRAM: CALGUST COMPUTE MAX WIND LEVEL -!! PRGRMMR: MANIKIN ORG: W/NP2 DATE: 97-03-04 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES SURFACE WIND GUST BY MIXING -!! DOWN MOMENTUM FROM THE LEVEL AT THE HEIGHT OF THE PBL -!! -!! -!! PROGRAM HISTORY LOG: -!! 03-10-15 GEOFF MANIKIN -!! 05-03-09 H CHUANG - WRF VERSION -!! 05-07-07 BINBIN ZHOU - ADD RSM -!! 15-03-11 S Moorthi - set sfcwind to spval if u10 and v10 are spvals -!! for A grid and set gust to just wind -!! (in GSM with nemsio, it appears u10 & v10 have spval) -!! -!! USAGE: CALL CALGUST(GUST) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! GUST - SPEED OF THE MAXIMUM SFC WIND GUST -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! H2V -!! -!! LIBRARY: -!! COMMON - -!! LOOPS -!! OPTIONS -!! MASKS -!! INDX -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes max wind level. +! +!> This routine computes surface wind gust by mixing +!> down momentum from the level at the height of the PBL. +!> +!> @param[out] GUST Speed of the maximum surface wind gust. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 03-10-15 | Geoff Manokin | Initial +!> 05-03-09 | H Chuang | WRF Version +!> 05-07-07 | Binbin Zhou | Add RSM +!> 15-03-11 | S Moorthi | set sfcwind to spval if u10 and v10 are spvals +!> | for A grid and set gust to just wind +!> | (in GSM with nemsio, it appears u10 & v10 have spval) +!> +!> @author Geoff Manikin W/NP2 @date 1997-03-04 + SUBROUTINE CALGUST(LPBL,ZPBL,GUST) ! From 0185bb9f23ca9c9e96a22bf7ce09baa04c7d3491 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Fri, 18 Mar 2022 16:03:57 -0400 Subject: [PATCH 036/107] The fix in CALUPDHEL.f (#458) * Modify CALUPDHEL.f for restricting undefined grids in computation. * Update VERSION to 10.0.12. --- VERSION | 2 +- sorc/ncep_post.fd/CALUPDHEL.f | 8 ++++++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/VERSION b/VERSION index 89acc9519..59a550906 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -10.0.11 +10.0.12 diff --git a/sorc/ncep_post.fd/CALUPDHEL.f b/sorc/ncep_post.fd/CALUPDHEL.f index 11fbc98b2..b9e3bbbec 100644 --- a/sorc/ncep_post.fd/CALUPDHEL.f +++ b/sorc/ncep_post.fd/CALUPDHEL.f @@ -11,6 +11,7 @@ !! 11-01-11 M Pyle - converted to F90 for unified post !! 11-04-05 H Chuang - added B grid option !! 20-11-06 J Meng - USE UPP_MATH MODULE +!! 22-03-17 Wen Meng - Restrict computation from undefined grids. !! !! USAGE: CALL CALUPDHEL(UPDHEL) !! @@ -101,6 +102,8 @@ SUBROUTINE CALUPDHEL(UPDHEL) DO J=JSTA_M,JEND_M DO I=2,IM-1 + IF (HTSFC(I,J) < spval) THEN + R2DX = 1./(2.*DX(I,J)) R2DY = 1./(2.*DY(I,J)) @@ -133,6 +136,11 @@ SUBROUTINE CALUPDHEL(UPDHEL) ENDIF ENDDO l_loop + + ELSE + UPDHEL(I,J) = spval + ENDIF + ENDDO ENDDO From f22a5908619b38b426a0a31dec507b02c8920799 Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Mon, 28 Mar 2022 06:56:14 -0600 Subject: [PATCH 037/107] Bug fix for SLLEVEL bound issue when not RUC LSM (#463) Co-authored-by: Tracy --- sorc/ncep_post.fd/INITPOST_NETCDF.f | 2 ++ 1 file changed, 2 insertions(+) diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index f6adbb367..87bb24b62 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -2292,6 +2292,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! assign soil depths for RUC LSM, hard wire 9 soil depths here ! so they aren't missing. + IF (NSOIL==9) THEN SLLEVEL(1) = 0.0 SLLEVEL(2) = 0.01 SLLEVEL(3) = 0.04 @@ -2301,6 +2302,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) SLLEVEL(7) = 1.0 SLLEVEL(8) = 1.6 SLLEVEL(9) = 3.0 + END IF ! liquid volumetric soil mpisture in fraction using nemsio VarName='soill1' From cc2741b9b86b035dcf0ec2f8635eedfd8c8a7109 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Mon, 28 Mar 2022 16:50:00 -0700 Subject: [PATCH 038/107] Doxygen caldrg caldwcp calgust refinement (#464) * Further refinement to the tables and logs. * Further refinement to the tables and logs. (#455) --- sorc/ncep_post.fd/CALDRG.f | 21 ++++++++++++--------- sorc/ncep_post.fd/CALDWP.f | 26 +++++++++++++------------- sorc/ncep_post.fd/CALGUST.f | 10 ++++------ 3 files changed, 29 insertions(+), 28 deletions(-) diff --git a/sorc/ncep_post.fd/CALDRG.f b/sorc/ncep_post.fd/CALDRG.f index e74381fde..c06db3e7a 100644 --- a/sorc/ncep_post.fd/CALDRG.f +++ b/sorc/ncep_post.fd/CALDRG.f @@ -2,17 +2,20 @@ !> @brief Subroutine that computes drag cofficient. ! !> This rountine computes a surface layer drag coefficient using -!> equation (7.4.1A) in "An introduction to boundary layer -!> meteorology" by Stull (1988, Kluwer Academic Publishers). +!> equation (7.4.1A) in ["An introduction to boundary layer +!> meteorology" by Stull (1988, Kluwer Academic +!> Publishers)](https://link.springer.com/book/10.1007/978-94-009-3027-8). !> -!> @param[out] DRAGCO surface layer drag coefficient +!> @param[out] DRAGCO surface layer drag coefficient. !> -!> Program history -!> - 93-09-01 Russ Treadon -!> - 98-06-15 T Black - Conversion from 1-D to 2-D -!> - 00-01-04 Jim Tuccillo - MPI version -!> - 02-01-15 Mike Baldwin - WRF version -!> - 05-02-22 H Chuang - Add WRF NMM components +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-09-01 | Russ Treadon | Initial +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2005-02-22 | H Chuang | Add WRF NMM components !> !> @author Russ Treadon W/NP2 @date 1993-09-01 SUBROUTINE CALDRG(DRAGCO) diff --git a/sorc/ncep_post.fd/CALDWP.f b/sorc/ncep_post.fd/CALDWP.f index f6e594e98..be3876bd0 100644 --- a/sorc/ncep_post.fd/CALDWP.f +++ b/sorc/ncep_post.fd/CALDWP.f @@ -1,21 +1,21 @@ !> @file !> @brief Subroutine related to dewpoint temperature. ! -!> Computes dewpoint from P, T, and Q +!> Computes dewpoint from P, T, and Q. !> -!> @param[in] P1D Pressure (Pa) -!> @param[in] Q1D Specific humidity (kg/kg) -!> @param[in] T1D Temperature (K) -!> @param[out] TDWP Dewpoint temperature (K) +!> @param[in] P1D Pressure (Pa). +!> @param[in] Q1D Specific humidity (kg/kg). +!> @param[in] T1D Temperature (K). +!> @param[out] TDWP Dewpoint temperature (K). !> -!> Program history -!> - 92-12-22 Russ Treadon -!> - 93-10-04 Russ Treadon - Added check to bound dewpoint -!> temperature to not exceed the -!> ambient temperature. -!> - 98-06-08 T BLACK - Conversion from 1-D to 2-D -!> - 00-01-04 Jim Tuccillo - MPI version -!> - 21-07-23 Wen Meng - Retrict computation from undefined points +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-10-04 | Russ Treadon | Added check to bound dewpoint temperature to not exceed the ambient temperature. +!> 1998-06-08 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2021-07-23 | Wen Meng | Retrict computation from undefined points !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALDWP(P1D,Q1D,TDWP,T1D) diff --git a/sorc/ncep_post.fd/CALGUST.f b/sorc/ncep_post.fd/CALGUST.f index 98d3ee97b..84158170a 100644 --- a/sorc/ncep_post.fd/CALGUST.f +++ b/sorc/ncep_post.fd/CALGUST.f @@ -9,12 +9,10 @@ !> ### Program history log: !> Date | Programmer | Comments !> -----|------------|--------- -!> 03-10-15 | Geoff Manokin | Initial -!> 05-03-09 | H Chuang | WRF Version -!> 05-07-07 | Binbin Zhou | Add RSM -!> 15-03-11 | S Moorthi | set sfcwind to spval if u10 and v10 are spvals -!> | for A grid and set gust to just wind -!> | (in GSM with nemsio, it appears u10 & v10 have spval) +!> 2003-10-15 | Geoff Manokin | Initial +!> 2005-03-09 | H Chuang | WRF Version +!> 2005-07-07 | Binbin Zhou | Add RSM +!> 2015-03-11 | S Moorthi | Set sfcwind to spval if u10 and v10 are spvals for A grid and set gust to just wind (in GSM with nemsio, it appears u10 & v10 have spval) !> !> @author Geoff Manikin W/NP2 @date 1997-03-04 From 1ac2cd7886bffe69b4f914afab6c755525a8abe6 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Tue, 29 Mar 2022 14:34:58 -0700 Subject: [PATCH 039/107] This is part of Issue #392 (#460) Fixes the doxygen warnings in CALHEL.f CALHEL2.f CALHEL3.f Please review this subroutine. Thank you. --- sorc/ncep_post.fd/CALHEL.f | 115 ++++++++++++--------------------- sorc/ncep_post.fd/CALHEL2.f | 122 +++++++++++++----------------------- sorc/ncep_post.fd/CALHEL3.f | 120 +++++++++++++---------------------- 3 files changed, 123 insertions(+), 234 deletions(-) diff --git a/sorc/ncep_post.fd/CALHEL.f b/sorc/ncep_post.fd/CALHEL.f index 8520bf5cd..110e5b049 100644 --- a/sorc/ncep_post.fd/CALHEL.f +++ b/sorc/ncep_post.fd/CALHEL.f @@ -1,80 +1,43 @@ !> @file -! . . . -!> SUBPROGRAM: CALHEL COMPUTES STORM RELATIVE HELICITY -!! PRGRMMR: BALDWIN ORG: W/NP2 DATE: 94-08-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES ESTIMATED STORM MOTION AND -!! STORM-RELATIVE ENVIRONMENTAL HELICITY. -!! (DAVIES-JONES ET AL 1990) THE ALGORITHM PROCEEDS AS -!! FOLLOWS. -!! -!! THE STORM MOTION COMPUTATION NO LONGER EMPLOYS THE DAVIES AND -!! JOHNS (1993) METHOD WHICH DEFINED STORM MOTION AS 30 DEGREES TO -!! THE RIGHT OF THE 0-6 KM MEAN WIND AT 75% OF THE SPEED FOR MEAN -!! SPEEDS LESS THAN 15 M/S AND 20 DEGREES TO THE RIGHT FOR SPEEDS -!! GREATER THAN 15 M/S. INSTEAD, WE NOW USE THE DYNAMIC METHOD -!! (BUNKERS ET AL. 1998) WHICH HAS BEEN FOUND TO DO BETTER IN -!! CASES WITH 'NON-CLASSIC' HODOGRAPHS (SUCH AS NORTHWEST-FLOW -!! EVENTS) AND DO AS WELL OR BETTER THAN THE OLD METHOD IN MORE -!! CLASSIC SITUATIONS. -!! -!! PROGRAM HISTORY LOG: -!! 94-08-22 MICHAEL BALDWIN -!! 97-03-27 MICHAEL BALDWIN - SPEED UP CODE -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 00-01-10 G MANIKIN - CHANGED TO BUNKERS METHOD -!! 02-05-22 G MANIKIN - NOW ALLOW CHOICE OF COMPUTING -!! HELICITY OVER TWO DIFFERENT -!! (0-1 and 0-3 KM) DEPTHS -!! 03-03-25 G MANIKIN - MODIFIED CODE TO COMPUTE MEAN WINDS -!! USING ARITHMETIC AVERAGES INSTEAD OF -!! MASS WEIGHTING; DIFFERENCES ARE MINOR -!! BUT WANT TO BE CONSISTENT WITH THE -!! BUNKERS METHOD -!! 04-04-16 M PYLE - MINIMAL MODIFICATIONS, BUT PUT INTO -!! NMM WRFPOST CODE -!! 05=02-25 H CHUANG - ADD COMPUTATION FOR ARW A GRID -!! 05-07-07 BINBIN ZHOU - ADD RSM FOR A GRID -!! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -!! -!! USAGE: CALHEL(UST,VST,HELI) -!! INPUT ARGUMENT LIST: -!! DPTH - DEPTH IN METERS OVER WHICH HELICITY SHOULD BE COMPUTED; -!! ALLOWS ONE TO DISTINGUISH 0-3 KM AND 0-1 KM VALUES -!! -!! OUTPUT ARGUMENT LIST: -!! UST - ESTIMATED U COMPONENT (M/S) OF STORM MOTION. -!! VST - ESTIMATED V COMPONENT (M/S) OF STORM MOTION. -!! HELI - STORM-RELATIVE HELICITY (M**2/S**2) -!! CRA -!! USHR1 - U COMPONENT (M/S) OF 0-1 KM SHEAR -!! VSHR1 - V COMPONENT (M/S) OF 0-1 KM SHEAR -!! USHR6 - U COMPONENT (M/S) OF 0-0.5 to 5.5-6.0 KM SHEAR -!! VSHR6 - V COMPONENT (M/S) OF 0-0.5 to 5.5-6.0 KM SHEAR -!! CRA - -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! COMMON - VRBLS -!! LOOPS -!! PHYS -!! EXTRA -!! MASKS -!! OPTIONS -!! INDX -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM SP -!! +!> @brief Subroutine that computes storm relative helicity. +! +!> This routine computes estimated storm motion and storm-relative +!> environmental helicity. (Davies-Jones et al 1990) the algorithm +!> processd as follows. +!> +!> The storm motion computation no longer employs the Davies and Johns (1993) +!> method which defined storm motion as 30 degress to the right of the 0-6 km +!> mean wind at 75% of the speed for mean speeds less than 15 m/s and 20 degrees +!> to the right for speeds greater than 15 m/s. Instead, we now use the dynamic +!> method (Bunkers et al. 1988) which has been found to do better in cases with +!> 'non-classic' hodographs (such as Northwest-flow events) and do as well or +!> better than the old method in more classic situations. +!> +!> @param[in] DPTH Depth in meters over whcih helicity should be computed; allows one to distinguish 0-3 km and 0-1 km values. +!> @param[out] UST Estimated U Component (m/s) Of Storm motion. +!> @param[out] VST Estimated V Component (m/s) Of Storm motion. +!> @param[out] HELI Storm-relative heliciry (m**2/s**2). +!> @param[out] USHR1 U Component (m/s) Of 0-1 km shear. +!> @param[out] VSHR1 V Component (m/s) Of 0-1 km shear. +!> @param[out] USHR6 U Component (m/s) Of 0-0.5 to 5.5-6.0 km shear. +!> @param[out] VSHR6 V Component (m/s) Of 0-0.5 to 5.5-6.0 km shear. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1994-08-22 | Michael Baldwin | Initial +!> 1997-03-27 | Michael Baldwin | Speed up code +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2000-01-10 | G Manikin | Changed to Bunkers method +!> 2002-05-22 | G Manikin | Now allow choice of computing helicity over two different (0-1 and 0-3 km) depths +!> 2003-03-25 | G Manikin | Modified code to compute mean winds using arithmetic averages instead of mass weighting; differences are minor but want to be consistent with the Bunkers method +!> 2004-04-16 | M Pyle | Minimal modifications but put into NMM WRFPOST code +!> 2005-02-25 | H Chuang | Add computation for ARW A grid +!> 2005-07-07 | Binbin Zhou | Add RSM for A grid +!> 2019-10-30 | Bo Cui | Remove "goto" statement +!> +!> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) ! diff --git a/sorc/ncep_post.fd/CALHEL2.f b/sorc/ncep_post.fd/CALHEL2.f index c7678b1c9..2cddefbb4 100644 --- a/sorc/ncep_post.fd/CALHEL2.f +++ b/sorc/ncep_post.fd/CALHEL2.f @@ -1,84 +1,46 @@ !> @file -! . . . -!> SUBPROGRAM: CALHEL COMPUTES STORM RELATIVE HELICITY -!! PRGRMMR: BALDWIN ORG: W/NP2 DATE: 94-08-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES ESTIMATED STORM MOTION AND -!! STORM-RELATIVE ENVIRONMENTAL HELICITY. -!! (DAVIES-JONES ET AL 1990) THE ALGORITHM PROCEEDS AS -!! FOLLOWS. -!! -!! THE STORM MOTION COMPUTATION NO LONGER EMPLOYS THE DAVIES AND -!! JOHNS (1993) METHOD WHICH DEFINED STORM MOTION AS 30 DEGREES TO -!! THE RIGHT OF THE 0-6 KM MEAN WIND AT 75% OF THE SPEED FOR MEAN -!! SPEEDS LESS THAN 15 M/S AND 20 DEGREES TO THE RIGHT FOR SPEEDS -!! GREATER THAN 15 M/S. INSTEAD, WE NOW USE THE DYNAMIC METHOD -!! (BUNKERS ET AL. 1998) WHICH HAS BEEN FOUND TO DO BETTER IN -!! CASES WITH 'NON-CLASSIC' HODOGRAPHS (SUCH AS NORTHWEST-FLOW -!! EVENTS) AND DO AS WELL OR BETTER THAN THE OLD METHOD IN MORE -!! CLASSIC SITUATIONS. -!! -!! PROGRAM HISTORY LOG: -!! 94-08-22 MICHAEL BALDWIN -!! 97-03-27 MICHAEL BALDWIN - SPEED UP CODE -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 00-01-10 G MANIKIN - CHANGED TO BUNKERS METHOD -!! 02-05-22 G MANIKIN - NOW ALLOW CHOICE OF COMPUTING -!! HELICITY OVER TWO DIFFERENT -!! (0-1 and 0-3 KM) DEPTHS -!! 03-03-25 G MANIKIN - MODIFIED CODE TO COMPUTE MEAN WINDS -!! USING ARITHMETIC AVERAGES INSTEAD OF -!! MASS WEIGHTING; DIFFERENCES ARE MINOR -!! BUT WANT TO BE CONSISTENT WITH THE -!! BUNKERS METHOD -!! 04-04-16 M PYLE - MINIMAL MODIFICATIONS, BUT PUT INTO -!! NMM WRFPOST CODE -!! 05=02-25 H CHUANG - ADD COMPUTATION FOR ARW A GRID -!! 05-07-07 BINBIN ZHOU - ADD RSM FOR A GRID -!! 19-09-03 J MENG - MODIFIED TO COMPUTE EFFECTIVE HELICITY -!! AND CRITICAL ANGLE -!! -!! USAGE: CALHEL(UST,VST,HELI) -!! INPUT ARGUMENT LIST: -!! LLOW - LOWER BOUND CAPE>=100 AND CINS>=-250 -!! LUPP - UPPER BOUND CAPE< 100 OR CINS< -250 -!! DPTH - DEPTH IN METERS OVER WHICH HELICITY SHOULD BE COMPUTED; -!! ALLOWS ONE TO DISTINGUISH 0-3 KM AND 0-1 KM VALUES -!! -!! OUTPUT ARGUMENT LIST: -!! UST - ESTIMATED U COMPONENT (M/S) OF STORM MOTION. -!! VST - ESTIMATED V COMPONENT (M/S) OF STORM MOTION. -!! HELI - STORM-RELATIVE HELICITY (M**2/S**2) -!! CANGLE - CRITICAL ANGLE -!! CRA -!! USHR1 - U COMPONENT (M/S) OF 0-1 KM SHEAR -!! VSHR1 - V COMPONENT (M/S) OF 0-1 KM SHEAR -!! USHR6 - U COMPONENT (M/S) OF 0-0.5 to 5.5-6.0 KM SHEAR -!! VSHR6 - V COMPONENT (M/S) OF 0-0.5 to 5.5-6.0 KM SHEAR -!! CRA - -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! COMMON - VRBLS -!! LOOPS -!! PHYS -!! EXTRA -!! MASKS -!! OPTIONS -!! INDX -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM SP -!! +!> @brief Subroutine that computes storm relative helicity. +! +!> This routine computes estimated storm motion and storm-relative +!> environmental helicity. (Davies-Jones et al 1990) the algorithm +!> processd as follows. +!> +!> The storm motion computation no longer employs the Davies and Johns (1993) +!> method which defined storm motion as 30 degress to the right of the 0-6 km +!> mean wind at 75% of the speed for mean speeds less than 15 m/s and 20 degrees +!> to the right for speeds greater than 15 m/s. Instead, we now use the dynamic +!> method (Bunkers et al. 1988) which has been found to do better in cases with +!> 'non-classic' hodographs (such as Northwest-flow events) and do as well or +!> better than the old method in more classic situations. +!> +!> @param[in] LLOW Lower bound CAPE>=100 and CINS>=-250. +!> @param[in] LUPP Upper bound CAPE< 100 or CINS< -250; allows one to distinguish 0-3 km and 0-1 km values. +!> @param[in] DPTH Depth in meters over whcih helicity should be computed; allows one to distinguish 0-3 km and 0-1 km values. +!> @param[out] UST Estimated U Component (m/s) Of Storm motion. +!> @param[out] VST Estimated V Component (m/s) Of Storm motion. +!> @param[out] HELI Storm-relative heliciry (m**2/s**2). +!> @param[out] CANGLE Critical angle. +!> @param[out] USHR1 U Component (m/s) Of 0-1 km shear. +!> @param[out] VSHR1 V Component (m/s) Of 0-1 km shear. +!> @param[out] USHR6 U Component (m/s) Of 0-0.5 to 5.5-6.0 km shear. +!> @param[out] VSHR6 V Component (m/s) Of 0-0.5 to 5.5-6.0 km shear. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1994-08-22 | Michael Baldwin | Initial +!> 1997-03-27 | Michael Baldwin | Speed up code +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2000-01-10 | G Manikin | Changed to Bunkers method +!> 2002-05-22 | G Manikin | Now allow choice of computing helicity over two different (0-1 and 0-3 km) depths +!> 2003-03-25 | G Manikin | Modified code to compute mean winds using arithmetic averages instead of mass weighting; differences are minor but want to be consistent with the Bunkers method +!> 2004-04-16 | M Pyle | Minimal modifications but put into NMM WRFPOST code +!> 2005-02-25 | H Chuang | Add computation for ARW A grid +!> 2005-07-07 | Binbin Zhou | Add RSM for A grid +!> 2019-09-03 | J Meng | Modified to compute effective helicity and critical angle +!> +!> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) ! diff --git a/sorc/ncep_post.fd/CALHEL3.f b/sorc/ncep_post.fd/CALHEL3.f index 976778bfb..839082b2e 100644 --- a/sorc/ncep_post.fd/CALHEL3.f +++ b/sorc/ncep_post.fd/CALHEL3.f @@ -1,82 +1,46 @@ !> @file -! . . . -!> SUBPROGRAM: CALHEL COMPUTES STORM RELATIVE HELICITY -!! PRGRMMR: BALDWIN ORG: W/NP2 DATE: 94-08-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES ESTIMATED STORM MOTION AND -!! STORM-RELATIVE ENVIRONMENTAL HELICITY. -!! (DAVIES-JONES ET AL 1990) THE ALGORITHM PROCEEDS AS -!! FOLLOWS. -!! -!! THE STORM MOTION COMPUTATION NO LONGER EMPLOYS THE DAVIES AND -!! JOHNS (1993) METHOD WHICH DEFINED STORM MOTION AS 30 DEGREES TO -!! THE RIGHT OF THE 0-6 KM MEAN WIND AT 75% OF THE SPEED FOR MEAN -!! SPEEDS LESS THAN 15 M/S AND 20 DEGREES TO THE RIGHT FOR SPEEDS -!! GREATER THAN 15 M/S. INSTEAD, WE NOW USE THE DYNAMIC METHOD -!! (BUNKERS ET AL. 1998) WHICH HAS BEEN FOUND TO DO BETTER IN -!! CASES WITH 'NON-CLASSIC' HODOGRAPHS (SUCH AS NORTHWEST-FLOW -!! EVENTS) AND DO AS WELL OR BETTER THAN THE OLD METHOD IN MORE -!! CLASSIC SITUATIONS. -!! -!! PROGRAM HISTORY LOG: -!! 94-08-22 MICHAEL BALDWIN -!! 97-03-27 MICHAEL BALDWIN - SPEED UP CODE -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 00-01-10 G MANIKIN - CHANGED TO BUNKERS METHOD -!! 02-05-22 G MANIKIN - NOW ALLOW CHOICE OF COMPUTING -!! HELICITY OVER TWO DIFFERENT -!! (0-1 and 0-3 KM) DEPTHS -!! 03-03-25 G MANIKIN - MODIFIED CODE TO COMPUTE MEAN WINDS -!! USING ARITHMETIC AVERAGES INSTEAD OF -!! MASS WEIGHTING; DIFFERENCES ARE MINOR -!! BUT WANT TO BE CONSISTENT WITH THE -!! BUNKERS METHOD -!! 04-04-16 M PYLE - MINIMAL MODIFICATIONS, BUT PUT INTO -!! NMM WRFPOST CODE -!! 05=02-25 H CHUANG - ADD COMPUTATION FOR ARW A GRID -!! 05-07-07 BINBIN ZHOU - ADD RSM FOR A GRID -!! 19-09-03 J MENG - MODIFIED TO COMPUTE EFFECTIVE HELICITY -!! AND CRITICAL ANGLE -!! 21-03-15 E COLON - CALHEL2 MODIFIED TO COMPUTE EFFECTIVE -!! RATHER THAN FIXED LAYER HELICITY -!! USAGE: CALHEL3(UST,VST,HELI) -!! INPUT ARGUMENT LIST: -!! LLOW - LOWER BOUND CAPE>=100 AND CINS>=-250 -!! LUPP - UPPER BOUND CAPE< 100 OR CINS< -250 -!! -!! OUTPUT ARGUMENT LIST: -!! UST - ESTIMATED U COMPONENT (M/S) OF STORM MOTION. -!! VST - ESTIMATED V COMPONENT (M/S) OF STORM MOTION. -!! HELI - STORM-RELATIVE HELICITY (M**2/S**2) -!! CRA -!! USHR1 - U COMPONENT (M/S) OF 0-1 KM SHEAR -!! VSHR1 - V COMPONENT (M/S) OF 0-1 KM SHEAR -!! USHR6 - U COMPONENT (M/S) OF 0-0.5 to 5.5-6.0 KM SHEAR -!! VSHR6 - V COMPONENT (M/S) OF 0-0.5 to 5.5-6.0 KM SHEAR -!! CRA - -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! COMMON - VRBLS -!! LOOPS -!! PHYS -!! EXTRA -!! MASKS -!! OPTIONS -!! INDX -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM SP -!! +!> @brief Subroutine that computes storm relative helicity. +! +!> This routine computes estimated storm motion and storm-relative +!> environmental helicity. (Davies-Jones et al 1990) the algorithm +!> processd as follows. +!> +!> The storm motion computation no longer employs the Davies and Johns (1993) +!> method which defined storm motion as 30 degress to the right of the 0-6 km +!> mean wind at 75% of the speed for mean speeds less than 15 m/s and 20 degrees +!> to the right for speeds greater than 15 m/s. Instead, we now use the dynamic +!> method (Bunkers et al. 1988) which has been found to do better in cases with +!> 'non-classic' hodographs (such as Northwest-flow events) and do as well or +!> better than the old method in more classic situations. +!> +!> @param[in] LLOW Lower bound CAPE>=100 and CINS>=-250. +!> @param[in] LUPP Upper bound CAPE< 100 or CINS< -250; allows one to distinguish 0-3 km and 0-1 km values. +!> @param[out] UST Estimated U Component (m/s) Of Storm motion. +!> @param[out] VST Estimated V Component (m/s) Of Storm motion. +!> @param[out] HELI Storm-relative heliciry (m**2/s**2). +!> @param[out] CANGLE Critical angle. +!> @param[out] USHR1 U Component (m/s) Of 0-1 km shear. +!> @param[out] VSHR1 V Component (m/s) Of 0-1 km shear. +!> @param[out] USHR6 U Component (m/s) Of 0-0.5 to 5.5-6.0 km shear. +!> @param[out] VSHR6 V Component (m/s) Of 0-0.5 to 5.5-6.0 km shear. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1994-08-22 | Michael Baldwin | Initial +!> 1997-03-27 | Michael Baldwin | Speed up code +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2000-01-10 | G Manikin | Changed to Bunkers method +!> 2002-05-22 | G Manikin | Now allow choice of computing helicity over two different (0-1 and 0-3 km) depths +!> 2003-03-25 | G Manikin | Modified code to compute mean winds using arithmetic averages instead of mass weighting; differences are minor but want to be consistent with the Bunkers method +!> 2004-04-16 | M Pyle | Minimal modifications but put into NMM WRFPOST code +!> 2005-02-25 | H Chuang | Add computation for ARW A grid +!> 2005-07-07 | Binbin Zhou | Add RSM for A grid +!> 2019-09-03 | J Meng | Modified to compute effective helicity and critical angle +!> 2021-03-15 | E Colon | CALHEL2 modified to compute effective rather than fixed layer helicity +!> +!> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) ! From 5bdb289d1a2c084ba4c50dfb3a653a11fbadb482 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 30 Mar 2022 12:19:50 -0400 Subject: [PATCH 040/107] Unify global and regional FV3 read interfaces (#453) * Unify the interfaces for reading FV3 outputs in netcdf. * Remove interface INITPOST_GFS_NETCDF_PARA. * Remove INITPOST_GFS_NETCDF.f. * Remove the capability of serial netcdf reading FV3 outputs. * Correct reading rswinc. * Remove duplication in CLDRAD.f. * Remove duplicated avgalbedo reading * Add changes for reading pwat from model. * Clean up commented out code * Clean up duplicated lines --- sorc/ncep_post.fd/ALLOCATE_ALL.f | 3 + sorc/ncep_post.fd/CLDRAD.f | 25 +- sorc/ncep_post.fd/CMakeLists.txt | 2 - sorc/ncep_post.fd/DEALLOCATE.f | 1 + sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f | 2761 ------------------ sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f | 2672 ----------------- sorc/ncep_post.fd/INITPOST_NETCDF.f | 414 ++- sorc/ncep_post.fd/VRBLS2D_mod.f | 2 +- sorc/ncep_post.fd/WRFPOST.f | 79 +- 9 files changed, 325 insertions(+), 5634 deletions(-) delete mode 100644 sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f delete mode 100644 sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 4643f84a5..afe9c7eed 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -18,6 +18,7 @@ !! - 21-04-06 Wen Meng - Initializing all allocated arrays !! - 21-04-16 Wen Meng - Initializing aextc55 and extc55 as 0. These !! two arrays are involved in GSL visibility computation. +!! - 22-03-22 Wen Meng - Initializing pwat. !! !! OUTPUT FILES: !! - STDOUT - RUN TIME STANDARD OUT. @@ -970,6 +971,7 @@ SUBROUTINE ALLOCATE_ALL() allocate(tedir(im,jsta_2l:jend_2u)) allocate(twa(im,jsta_2l:jend_2u)) allocate(fdnsst(im,jsta_2l:jend_2u)) + allocate(pwat(im,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u @@ -1020,6 +1022,7 @@ SUBROUTINE ALLOCATE_ALL() tedir(i,j)=spval twa(i,j)=spval fdnsst(i,j)=spval + pwat(i,j)=spval enddo enddo ! diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index df5799171..461fcac48 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -107,18 +107,19 @@ SUBROUTINE CLDRAD HBOT, HBOTD, HBOTS, HTOP, HTOPD, HTOPS, FIS, PBLH, & PBOT, PBOTL, PBOTM, PBOTH, CNVCFR, PTOP, PTOPL, & PTOPM, PTOPH, TTOPL, TTOPM, TTOPH, PBLCFR, CLDWORK, & - ASWIN, AUVBIN, AUVBINC, ASWIN, ASWOUT,ALWOUT, ASWTOA,& + ASWIN, AUVBIN, AUVBINC, ASWOUT,ALWOUT, ASWTOA, & RLWTOA, CZMEAN, CZEN, RSWIN, ALWIN, ALWTOA, RLWIN, & SIGT4, RSWOUT, RADOT, RSWINC, ASWINC, ASWOUTC, & ASWTOAC, ALWOUTC, ASWTOAC, AVISBEAMSWIN, & - AVISDIFFSWIN, ASWINTOA, ASWINC, ASWTOAC, AIRBEAMSWIN,& + AVISDIFFSWIN, ASWINTOA, ASWTOAC, AIRBEAMSWIN, & AIRDIFFSWIN, DUSMASS, DUSMASS25, DUCMASS, DUCMASS25, & ALWINC, ALWTOAC, SWDDNI, SWDDIF, SWDNBC, SWDDNIC, & SWDDIFC, SWUPBC, LWDNBC, LWUPBC, SWUPT, & TAOD5502D, AERSSA2D, AERASY2D, MEAN_FRP, LWP, IWP, & AVGCPRATE, & DUSTCB,SSCB,BCCB,OCCB,SULFCB,DUSTPM,SSPM,aod550, & - du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550 + du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550, & + PWAT use masks, only: LMH, HTM use params_mod, only: TFRZ, D00, H99999, QCLDMIN, SMALL, D608, H1, ROG, & GI, RD, QCONV, ABSCOEFI, ABSCOEF, STBOL, PQ0, A2, & @@ -254,6 +255,7 @@ SUBROUTINE CLDRAD data INDX_EXT / 610, 611, 612, 613, 614 / data INDX_SCA / 651, 652, 653, 654, 655 / logical, parameter :: debugprint = .false. + logical :: Model_Pwat ! ! !************************************************************************* @@ -417,12 +419,29 @@ SUBROUTINE CLDRAD IF (IGET(080) > 0) THEN ! dong GRID1 = spval + Model_Pwat = .false. + DO J=JSTA,JEND + DO I=1,IM + IF(ABS(PWAT(I,J)-SPVAL)>SMALL) THEN + Model_Pwat = .true. + exit + ENDIF + END DO + END DO + IF (Model_Pwat) THEN + DO J=JSTA,JEND + DO I=1,IM + GRID1(I,J) = PWAT(I,J) + END DO + END DO + ELSE CALL CALPW(GRID1(1,jsta),1) DO J=JSTA,JEND DO I=1,IM IF(FIS(I,J) >= SPVAL) GRID1(I,J)=spval END DO END DO + ENDIF CALL BOUND(GRID1,D00,H99999) if(grib == "grib2" )then cfld = cfld + 1 diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index 3215bad5f..470c02f6a 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -151,8 +151,6 @@ list(APPEND EXE_SRC GFSPOSTSIG.F INITPOST.F INITPOST_GFS_NEMS_MPIIO.f - INITPOST_GFS_NETCDF.f - INITPOST_GFS_NETCDF_PARA.f INITPOST_NEMS.f INITPOST_NETCDF.f WRFPOST.f diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index c6cf34ad9..f16cf8b6e 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -386,6 +386,7 @@ SUBROUTINE DE_ALLOCATE deallocate(tedir) deallocate(twa) deallocate(fdnsst) + deallocate(pwat) ! GSD deallocate(rainc_bucket) deallocate(rainc_bucket1) diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f deleted file mode 100644 index b61732212..000000000 --- a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f +++ /dev/null @@ -1,2761 +0,0 @@ -!> @file -! . . . -!> SUBPROGRAM: INITPOST_NETCDF INITIALIZE POST FOR RUN -!! PRGRMMR: Hui-Ya Chuang DATE: 2016-03-04 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF GFS MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 2017-08-11 H Chuang start from INITPOST_GFS_NEMS_MPIIO.f -!! 2021-03-11 Bo Cui change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INITPOST_NETCDF -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! - SUBROUTINE INITPOST_GFS_NETCDF(ncid3d) - - - use netcdf - use vrbls4d, only: dust, SALT, SUSO, SOOT, WASO, PP25, PP10 - use vrbls3d, only: t, q, uh, vh, pmid, pint, alpint, dpres, zint, zmid, o3, & - qqr, qqs, cwm, qqi, qqw, omga, rhomid, q2, cfr, rlwtt, rswtt, tcucn, & - tcucns, train, el_pbl, exch_h, vdifftt, vdiffmois, dconvmois, nradtt, & - o3vdiff, o3prod, o3tndy, mwpv, unknown, vdiffzacce, zgdrag,cnvctummixing, & - vdiffmacce, mgdrag, cnvctvmmixing, ncnvctcfrac, cnvctumflx, cnvctdmflx, & - cnvctzgdrag, sconvmois, cnvctmgdrag, cnvctdetmflx, duwt, duem, dusd, dudp, & - wh, qqg, ref_10cm - use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & - cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & - tshltr, albase, avgalbedo, avgtcdc, czen, czmean, mxsnal, radot, sigt4, & - cfrach, cfracl, cfracm, avgcfrach, qshltr, avgcfracl, avgcfracm, cnvcfr, & - islope, cmc, grnflx, vegfrc, acfrcv, ncfrcv, acfrst, ncfrst, ssroff, & - bgroff, rlwin, rlwtoa, cldwork, alwin, alwout, alwtoa, rswin, rswinc, & - rswout, aswin, auvbin, auvbinc, aswout, aswtoa, sfcshx, sfclhx, subshx, & - snopcx, sfcux, sfcvx, sfcuxi, sfcvxi, sfcuvx, gtaux, gtauy, potevp, u10, v10, smstav, & - smstot, ivgtyp, isltyp, sfcevp, sfcexc, acsnow, acsnom, sst, thz0, qz0, & - uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm, & - ptoph, pboth, pblcfr, ttoph, runoff, maxtshltr, mintshltr, maxrhshltr, & - minrhshltr, dzice, smcwlt, suntime, fieldcapa, htopd, hbotd, htops, hbots, & - cuppt, dusmass, ducmass, dusmass25, ducmass25, aswintoa,rel_vort_maxhy1, & - maxqshltr, minqshltr, acond, sr, u10h, v10h,refd_max, w_up_max, w_dn_max, & - up_heli_max,up_heli_min,up_heli_max03,up_heli_min03,rel_vort_max01,u10max, v10max, & - avgedir,avgecan,avgetrans,avgesnow,avgprec_cont,avgcprate_cont,rel_vort_max, & - avisbeamswin,avisdiffswin,airbeamswin,airdiffswin,refdm10c_max,wspd10max, & - alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & - ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550 - use soil, only: sldpth, sh2o, smc, stc - use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice - use physcons_post, only: grav => con_g, fv => con_fvirt, rgas => con_rd, & - eps => con_eps, epsm1 => con_epsm1 - use params_mod, only: erad, dtr, tfrz, h1, d608, rd, p1000, capa,pi - use lookup_mod, only: thl, plq, ptbl, ttbl, rdq, rdth, rdp, rdthe, pl, qs0, sqs, sthe, & - ttblq, rdpq, rdtheq, stheq, the0q, the0 - use ctlblk_mod, only: me, mpi_comm_comp, icnt, idsp, jsta, jend, ihrst, idat, sdat, ifhr, & - ifmin, filename, tprec, tclod, trdlw, trdsw, tsrfc, tmaxmin, td3d, restrt, sdat, & - jend_m, imin, imp_physics, dt, spval, pdtop, pt, qmin, nbin_du, nphs, dtq2, ardlw,& - ardsw, asrfc, avrain, avcnvc, theat, gdsdegr, spl, lsm, alsl, im, jm, im_jm, lm, & - jsta_2l, jend_2u, nsoil, lp1, icu_physics, ivegsrc, novegtype, nbin_ss, nbin_bc, & - nbin_oc, nbin_su, gocart_on, pt_tbl, hyb_sigp, filenameFlux, fileNameAER,rdaod - use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & - dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & - latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r - use upp_physics, only: fpvsnew -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none -! -! type(nemsio_gfile) :: nfile,ffile,rfile - integer,parameter :: nvar2d=48 -! character(nemsio_charkind) :: name2d(nvar2d) - integer :: nvar3d, numDims -! character(nemsio_charkind), allocatable :: name3din(:), name3dout(:) -! character(nemsio_charkind) :: varname,levtype -! -! INCLUDE/SET PARAMETERS. -! - INCLUDE "mpif.h" - -! integer,parameter:: MAXPTS=1000000 ! max im*jm points -! -! real,parameter:: con_g =9.80665e+0! gravity -! real,parameter:: con_rv =4.6150e+2 ! gas constant H2O -! real,parameter:: con_rd =2.8705e+2 ! gas constant air -! real,parameter:: con_fvirt =con_rv/con_rd-1. -! real,parameter:: con_eps =con_rd/con_rv -! real,parameter:: con_epsm1 =con_rd/con_rv-1 -! -! This version of INITPOST shows how to initialize, open, read from, and -! close a NetCDF dataset. In order to change it to read an internal (binary) -! dataset, do a global replacement of _ncd_ with _int_. - - real, parameter :: gravi = 1.0/grav - character(len=20) :: VarName, VcoordName - integer :: Status, fldsize, fldst, recn, recn_vvel - character startdate*19,SysDepInfo*80,cgar*1 - character startdate2(19)*4 -! -! NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK -! AS LONG AS REALS AND INTEGERS ARE THE SAME SIZE. -! -! ALSO, EXTRACT IS CALLED WITH DUMMY ( A REAL ) EVEN WHEN THE NUMBERS ARE -! INTEGERS - THIS IS OK AS LONG AS INTEGERS AND REALS ARE THE SAME SIZE. - LOGICAL RUNB,SINGLRST,SUBPOST,NEST,HYDRO,IOOMG,IOALL -! logical, parameter :: debugprint = .true., zerout = .false. - logical, parameter :: debugprint = .false., zerout = .false. - logical :: convert_rad_to_deg=.false. - CHARACTER*32 varcharval -! CHARACTER*40 CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV,FILCLD,FILRAD,FILSFC - CHARACTER*4 RESTHR - CHARACTER FNAME*255,ENVAR*50 - INTEGER IDATE(8),JDATE(8),JPDS(200),JGDS(200),KPDS(200),KGDS(200) -! LOGICAL*1 LB(IM,JM) -! -! INCLUDE COMMON BLOCKS. -! -! DECLARE VARIABLES. -! -! REAL fhour -! integer nfhour ! forecast hour from nems io file - integer fhzero !bucket - real dtp !physics time step - REAL RINC(5) - -! REAL FI(IM,JM,2) - REAL DUMMY(IM,JM) - -!jw - integer ii,jj,js,je,iyear,imn,iday,itmp,ioutcount,istatus, & - I,J,L,ll,k,kf,irtn,igdout,n,Index,nframe, & - nframed2,iunitd3d,ierr,idum,iret,nrec,idrt - integer ncid3d,ncid2d,varid,nhcas - real TSTART,TLMH,TSPH,ES,FACT,soilayert,soilayerb,zhour,dum, & - tvll,pmll,tv, tx1, tx2 - - character*20,allocatable :: recname(:) - integer, allocatable :: reclev(:), kmsk(:,:) - real, allocatable :: glat1d(:), glon1d(:), qstl(:) - real, allocatable :: wrk1(:,:), wrk2(:,:) - real, allocatable :: p2d(:,:), t2d(:,:), q2d(:,:), & - qs2d(:,:), cw2d(:,:), cfr2d(:,:) - real(kind=4),allocatable :: vcoord4(:,:,:) - real, dimension(lm+1) :: ak5, bk5 - real*8, allocatable :: pm2d(:,:), pi2d(:,:) - real, allocatable :: tmp(:) - real :: buf(im,jsta_2l:jend_2u) - real :: buf3d(im,jsta_2l:jend_2u,lm) - -! real buf(im,jsta_2l:jend_2u),bufsoil(im,nsoil,jsta_2l:jend_2u) & -! ,buf3d(im,jsta_2l:jend_2u,lm),buf3d2(im,lp1,jsta_2l:jend_2u) - - real LAT - integer isa, jsa, latghf, jtem, idvc, idsl, nvcoord, ip1, nn, npass - - integer, parameter :: npass2=5, npass3=30 - real, parameter :: third=1.0/3.0 - INTEGER, DIMENSION(2) :: ij4min, ij4max - REAL :: omgmin, omgmax - real, allocatable :: d2d(:,:), u2d(:,:), v2d(:,:), omga2d(:,:) - REAL, ALLOCATABLE :: ps2d(:,:),psx2d(:,:),psy2d(:,:) - real, allocatable :: div3d(:,:,:) - real(kind=4),allocatable :: vcrd(:,:) - real :: dum_const - -!*********************************************************************** -! START INIT HERE. -! - WRITE(6,*)'INITPOST: ENTER INITPOST_GFS_NETCDF' - WRITE(6,*)'me=',me, & - 'jsta_2l=',jsta_2l,'jend_2u=', & - jend_2u,'im=',im -! - isa = im / 2 - jsa = (jsta+jend) / 2 - -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - buf(i,j) = spval - enddo - enddo - - Status=nf90_get_att(ncid3d,nf90_global,'ak',ak5) - if(Status/=0)then - print*,'ak not found; assigning missing value' - ak5=spval - else - if(me==0)print*,'ak5= ',ak5 - end if - Status=nf90_get_att(ncid3d,nf90_global,'idrt',idrt) - if(Status/=0)then - print*,'idrt not in netcdf file,reading grid' - Status=nf90_get_att(ncid3d,nf90_global,'grid',varcharval) - if(Status/=0)then - print*,'idrt and grid not in netcdf file, set default to latlon' - idrt=0 - MAPTYPE=0 - else - if(trim(varcharval)=='rotated_latlon')then - MAPTYPE=207 - idrt=207 - Status=nf90_get_att(ncid3d,nf90_global,'cen_lon',dum_const) - if(Status/=0)then - print*,'cen_lon not found; assigning missing value' - cenlon=spval - else - if(dum_const<0.)then - cenlon=nint((dum_const+360.)*gdsdegr) - else - cenlon=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'cen_lat',dum_const) - if(Status/=0)then - print*,'cen_lat not found; assigning missing value' - cenlat=spval - else - cenlat=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'lon1',dum_const) - if(Status/=0)then - print*,'lonstart_r not found; assigning missing value' - lonstart_r=spval - else - if(dum_const<0.)then - lonstart_r=nint((dum_const+360.)*gdsdegr) - else - lonstart_r=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat1',dum_const) - if(Status/=0)then - print*,'latstart_r not found; assigning missing value' - latstart_r=spval - else - latstart_r=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'lon2',dum_const) - if(Status/=0)then - print*,'lonlast_r not found; assigning missing value' - lonlast_r=spval - else - if(dum_const<0.)then - lonlast_r=nint((dum_const+360.)*gdsdegr) - else - lonlast_r=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat2',dum_const) - if(Status/=0)then - print*,'latlast_r not found; assigning missing value' - latlast_r=spval - else - latlast_r=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'dlon',dum_const) - if(Status/=0)then - print*,'dlmd not found; assigning missing value' - dxval=spval - else - dxval=dum_const*gdsdegr - end if - Status=nf90_get_att(ncid3d,nf90_global,'dlat',dum_const) - if(Status/=0)then - print*,'dphd not found; assigning missing value' - dyval=spval - else - dyval=dum_const*gdsdegr - end if - - print*,'lonstart,latstart,cenlon,cenlat,dyval,dxval', & - lonstart,latstart,cenlon,cenlat,dyval,dxval - -! Jili Dong add support for regular lat lon (2019/03/22) start - else if(trim(varcharval)=='latlon')then - MAPTYPE=0 - idrt=0 - - Status=nf90_get_att(ncid3d,nf90_global,'lon1',dum_const) - if(Status/=0)then - print*,'lonstart not found; assigning missing value' - lonstart=spval - else - if(dum_const<0.)then - lonstart=nint((dum_const+360.)*gdsdegr) - else - lonstart=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat1',dum_const) - if(Status/=0)then - print*,'latstart not found; assigning missing value' - latstart=spval - else - latstart=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'lon2',dum_const) - if(Status/=0)then - print*,'lonlast not found; assigning missing value' - lonlast=spval - else - if(dum_const<0.)then - lonlast=nint((dum_const+360.)*gdsdegr) - else - lonlast=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat2',dum_const) - if(Status/=0)then - print*,'latlast not found; assigning missing value' - latlast=spval - else - latlast=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'dlon',dum_const) - if(Status/=0)then - print*,'dlmd not found; assigning missing value' - dxval=spval - else - dxval=dum_const*gdsdegr - end if - Status=nf90_get_att(ncid3d,nf90_global,'dlat',dum_const) - if(Status/=0)then - print*,'dphd not found; assigning missing value' - dyval=spval - else - dyval=dum_const*gdsdegr - end if - - print*,'lonstart,latstart,dyval,dxval', & - lonstart,lonlast,latstart,latlast,dyval,dxval - -! Jili Dong add support for regular lat lon (2019/03/22) end - - else if(trim(varcharval)=='gaussian')then - MAPTYPE=4 - idrt=4 - else ! setting default maptype - MAPTYPE=0 - idrt=0 - end if - end if !end reading grid - end if !end reading idrt - if(me==0)print*,'idrt MAPTYPE= ',idrt,MAPTYPE -! STEP 1. READ MODEL OUTPUT FILE -! -! -!*** -! -! LMH and LMV always = LM for sigma-type vert coord - -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i = 1, im - LMV(i,j) = lm - LMH(i,j) = lm - end do - end do - -! HTM VTM all 1 for sigma-type vert coord - -!$omp parallel do private(i,j,l) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - HTM (i,j,l) = 1.0 - VTM (i,j,l) = 1.0 - end do - end do - end do - - Status=nf90_get_att(ncid3d,nf90_global,'nhcas',nhcas) - if(Status/=0)then - print*,'nhcas not in netcdf file, set default to nonhydro' - nhcas=0 - end if - if(me==0)print*,'nhcas= ',nhcas - if (nhcas == 0 ) then !non-hydrostatic case - nrec=15 - allocate (recname(nrec)) - recname=[character(len=20) :: 'ugrd','vgrd','spfh','tmp','o3mr', & - 'presnh','dzdt', 'clwmr','dpres', & - 'delz','icmr','rwmr', & - 'snmr','grle','cld_amt'] - else - nrec=8 - allocate (recname(nrec)) - recname=[character(len=20) :: 'ugrd','vgrd','tmp','spfh','o3mr', & - 'hypres', 'clwmr','dpres'] - endif - -! write(0,*)'nrec=',nrec - !allocate(recname(nrec),reclevtyp(nrec),reclev(nrec)) - allocate(glat1d(jm),glon1d(im)) - allocate(vcoord4(lm+1,3,2)) - -! hardwire idate for now -! idate=(/2017,08,07,00,0,0,0,0/) -! get cycle start time - Status=nf90_inq_varid(ncid3d,'time',varid) - if(Status/=0)then - print*,'time not in netcdf file, stopping' - STOP 1 - else - Status=nf90_get_att(ncid3d,varid,'units',varcharval) - if(Status/=0)then - print*,'time unit not available' - else - print*,'time unit read from netcdf file= ',varcharval -! assume use hours as unit -! idate_loc=index(varcharval,'since')+6 - read(varcharval,101)idate(1),idate(2),idate(3),idate(4),idate(5) - end if -! Status=nf90_inquire_dimension(ncid3d,varid,len=ntimes) -! allocate(fhours(ntimes)) -! status = nf90_inq_varid(ncid3d,varid,fhours) -! Status=nf90_get_var(ncid3d,varid,nfhour,start=(/1/), & -! count=(/1/)) -! if(Status/=0)then -! print*,'forecast hour not in netcdf file, stopping' -! STOP 1 -! end if - end if - 101 format(T13,i4,1x,i2,1x,i2,1x,i2,1x,i2) - print*,'idate= ',idate(1:5) -! get longitude - Status=nf90_inq_varid(ncid3d,'grid_xt',varid) - Status=nf90_inquire_variable(ncid3d,varid,ndims = numDims) - if(debugprint)print*,'number of dim for gdlon ',numDims - if(numDims==1)then - Status=nf90_get_var(ncid3d,varid,glon1d) - do j=jsta,jend - do i=1,im - gdlon(i,j) = real(glon1d(i),kind=4) - end do - end do - lonstart = nint(glon1d(1)*gdsdegr) - lonlast = nint(glon1d(im)*gdsdegr) - dxval = nint(abs(glon1d(1)-glon1d(2))*gdsdegr) - else if(numDims==2)then - Status=nf90_get_var(ncid3d,varid,dummy) - if(maxval(abs(dummy))<2.0*pi)convert_rad_to_deg=.true. - if(convert_rad_to_deg)then - do j=jsta,jend - do i=1,im - gdlon(i,j) = real(dummy(i,j),kind=4)*180./pi - end do - end do - else - do j=jsta,jend - do i=1,im - gdlon(i,j) = real(dummy(i,j),kind=4) - end do - end do - end if - if(convert_rad_to_deg)then - lonstart = nint(dummy(1,1)*gdsdegr)*180./pi - lonlast = nint(dummy(im,jm)*gdsdegr)*180./pi - dxval = nint(abs(dummy(1,1)-dummy(2,1))*gdsdegr)*180./pi - else - lonstart = nint(dummy(1,1)*gdsdegr) - lonlast = nint(dummy(im,jm)*gdsdegr) - dxval = nint(abs(dummy(1,1)-dummy(2,1))*gdsdegr) - end if - -! Jili Dong add support for regular lat lon (2019/03/22) start - if (MAPTYPE == 0) then - if(lonstart<0.)then - lonstart=lonstart+360.*gdsdegr - end if - if(lonlast<0.)then - lonlast=lonlast+360.*gdsdegr - end if - end if -! Jili Dong add support for regular lat lon (2019/03/22) end - - end if - print*,'lonstart,lonlast,dxval ',lonstart,lonlast,dxval -! get latitude - Status=nf90_inq_varid(ncid3d,'grid_yt',varid) - Status=nf90_inquire_variable(ncid3d,varid,ndims = numDims) - if(debugprint)print*,'number of dim for gdlat ',numDims - if(numDims==1)then - Status=nf90_get_var(ncid3d,varid,glat1d) - do j=jsta,jend - do i=1,im - gdlat(i,j) = real(glat1d(j),kind=4) - end do - end do - latstart = nint(glat1d(1)*gdsdegr) - latlast = nint(glat1d(jm)*gdsdegr) - dyval = nint(abs(glat1d(1)-glat1d(2))*gdsdegr) - else if(numDims==2)then - Status=nf90_get_var(ncid3d,varid,dummy) - if(maxval(abs(dummy))1.0e5)print*,'bad dpres ',i,j,dpres(i,j,l) -!make sure delz is positive -! if(dpres(i,j,l)/=spval .and. t(i,j,l)/=spval .and. & -! q(i,j,l)/=spval .and. buf3d(i,j,l)/=spval)then -! pmid(i,j,l)=rgas*dpres(i,j,l)* & -! t(i,j,l)*(q(i,j,l)*fv+1.0)/grav/abs(buf3d(i,j,l)) -! else -! pmid(i,j,l)=spval -! end if -! dong add missing value - if (wh(i,j,l) < spval) then - omga(i,j,l)=(-1.)*wh(i,j,l)*dpres(i,j,l)/abs(buf3d(i,j,l)) - else - omga(i,j,l) = spval - end if -! if(t(i,j,l)>1000.)print*,'bad T ',t(i,j,l) - enddo - enddo - enddo - call read_netcdf_3d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,recname(11) & - ,lm,qqi(1,jsta_2l,1)) - call read_netcdf_3d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,recname(12) & - ,lm,qqr(1,jsta_2l,1)) - call read_netcdf_3d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,recname(13) & - ,lm,qqs(1,jsta_2l,1)) - call read_netcdf_3d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,recname(14) & - ,lm,qqg(1,jsta_2l,1)) - call read_netcdf_3d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,recname(15) & - ,lm,cfr(1,jsta_2l,1)) -! calculate CWM from FV3 output - do l=1,lm - do j=jsta,jend - do i=1,im - cwm(i,j,l)=qqg(i,j,l)+qqs(i,j,l)+qqr(i,j,l)+qqi(i,j,l)+qqw(i,j,l) - enddo - enddo - if(debugprint)print*,'sample l,t,q,u,v,w,= ',isa,jsa,l & - ,t(isa,jsa,l),q(isa,jsa,l),uh(isa,jsa,l),vh(isa,jsa,l) & - ,wh(isa,jsa,l) - if(debugprint)print*,'sample l cwm for FV3',l, & - cwm(isa,jsa,l) - end do -! max hourly updraft velocity -! VarName='upvvelmax' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,w_up_max) -! if(debugprint)print*,'sample ',VarName,' = ',w_up_max(isa,jsa) - -! max hourly downdraft velocity -! VarName='dnvvelmax' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,w_dn_max) -! if(debugprint)print*,'sample ',VarName,' = ',w_dn_max(isa,jsa) -! max hourly updraft helicity -! VarName='uhmax25' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,up_heli_max) -! if(debugprint)print*,'sample ',VarName,' = ',up_heli_max(isa,jsa) -! min hourly updraft helicity -! VarName='uhmin25' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,up_heli_min) -! if(debugprint)print*,'sample ',VarName,' = ',up_heli_min(isa,jsa) -! max hourly 0-3km updraft helicity -! VarName='uhmax03' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,up_heli_max03) -! if(debugprint)print*,'sample ',VarName,' = ',up_heli_max03(isa,jsa) -! min hourly 0-3km updraft helicity -! VarName='uhmin03' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,up_heli_min03) -! if(debugprint)print*,'sample ',VarName,' = ',up_heli_min03(isa,jsa) - -! max 0-1km relative vorticity max -! VarName='maxvort01' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rel_vort_max01) -! if(debugprint)print*,'sample ',VarName,' = ',rel_vort_max01(isa,jsa) -! max 0-2km relative vorticity max -! VarName='maxvort02' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rel_vort_max) -! if(debugprint)print*,'sample ',VarName,' =',rel_vort_max(isa,jsa) -! max hybrid lev 1 relative vorticity max -! VarName='maxvorthy1' -! call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rel_vort_maxhy1) -! if(debugprint)print*,'sample ',VarName,' =',rel_vort_maxhy1(isa,jsa) -! surface pressure - VarName='pressfc' - call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,pint(1,jsta_2l,lp1)) - do j=jsta,jend - do i=1,im -! if(pint(i,j,lp1)>1.0E6 .or. pint(1,jsta_2l,lp1)<50000.) & -! print*,'bad psfc ',i,j,pint(i,j,lp1) - end do - end do - if(debugprint)print*,'sample ',VarName,' =',pint(isa,jsa,lp1) - - pt = ak5(1) - - do j=jsta,jend - do i=1,im - pint(i,j,1)= pt - end do - end do - - do l=2,lp1 - do j=jsta,jend - do i=1,im - pint(i,j,l) = pint(i,j,l-1) + dpres(i,j,l-1) - enddo - enddo -! if (me == 0) print*,'sample model pint,pmid' ,ii,jj,l & -! ,pint(ii,jj,l),pmid(ii,jj,l) - end do - -!compute pmid from averaged two layer pint - do l=lm,1,-1 - do j=jsta,jend - do i=1,im - pmid(i,j,l) = 0.5*(pint(i,j,l)+pint(i,j,l+1)) - enddo - enddo - enddo - -! do l=lm,1,-1 -! do j=jsta,jend -! do i=1,im -! if(pint(i,j,l+1)/=spval .and. dpres(i,j,l)/=spval)then -! pint(i,j,l)=pint(i,j,l+1)-dpres(i,j,l) -! else -! pint(i,j,l)=spval -! end if -! end do -! end do -! print*,'sample pint= ',isa,jsa,l,pint(isa,jsa,l) -! end do - -! surface height from FV3 -! dong set missing value for zint -! zint=spval - VarName='hgtsfc' - call read_netcdf_2d_scatter(me,ncid3d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & - ,zint(1,jsta_2l,lp1)) - if(debugprint)print*,'sample ',VarName,' =',zint(isa,jsa,lp1) - do j=jsta,jend - do i=1,im - if (zint(i,j,lp1) /= spval) then - fis(i,j) = zint(i,j,lp1) * grav - else - fis(i,j) = spval - endif - enddo - enddo - - do l=lm,1,-1 - do j=jsta,jend - do i=1,im - if(zint(i,j,l+1)/=spval .and. buf3d(i,j,l)/=spval)then -!make sure delz is positive - zint(i,j,l)=zint(i,j,l+1)+abs(buf3d(i,j,l)) -! if(zint(i,j,l)>1.0E6)print*,'bad H ',i,j,l,zint(i,j,l) - else - zint(i,j,l)=spval - end if - end do - end do - print*,'sample zint= ',isa,jsa,l,zint(isa,jsa,l) - end do - - do l=lp1,1,-1 - do j=jsta,jend - do i=1,im - alpint(i,j,l)=log(pint(i,j,l)) - end do - end do - end do - - do l=lm,1,-1 - do j=jsta,jend - do i=1,im - if(zint(i,j,l+1)/=spval .and. zint(i,j,l)/=spval & - .and. pmid(i,j,l)/=spval)then - zmid(i,j,l)=zint(i,j,l+1)+(zint(i,j,l)-zint(i,j,l+1))* & - (log(pmid(i,j,l))-alpint(i,j,l+1))/ & - (alpint(i,j,l)-alpint(i,j,l+1)) - if(zmid(i,j,l)>1.0E6)print*,'bad Hmid ',i,j,l,zmid(i,j,l) - else - zmid(i,j,l)=spval - endif - end do - end do - end do - - - pt = ak5(1) - -! else -! do l=2,lm -!!$omp parallel do private(i,j) -! do j=jsta,jend -! do i=1,im -! pint(i,j,l) = pint(i,j,l-1) + dpres(i,j,l-1) -! enddo -! enddo -! if (me == 0) print*,'sample pint,pmid' ,ii,jj,l,pint(ii,jj,l),pmid(ii,jj,l) -! end do -! endif -! - - deallocate (vcoord4) -!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - -! - -! done with 3d file, close it for now - Status=nf90_close(ncid3d) - deallocate(recname) - -! open flux file - Status = nf90_open(trim(fileNameFlux),NF90_NOWRITE, ncid2d) - - if ( Status /= 0 ) then - print*,'error opening ',fileNameFlux, ' Status = ', Status - print*,'skip reading of flux file' - endif - -! IVEGSRC=1 for IGBP, 0 for USGS, 2 for UMD - VarName='IVEGSRC' - Status=nf90_get_att(ncid2d,nf90_global,'IVEGSRC',IVEGSRC) - if (Status /= 0) then - print*,VarName,' not found-Assigned 1 for IGBP as default' - IVEGSRC=1 - end if - if (me == 0) print*,'IVEGSRC= ',IVEGSRC - -! set novegtype based on vegetation classification - if(ivegsrc==2)then - novegtype=13 - else if(ivegsrc==1)then - novegtype=20 - else if(ivegsrc==0)then - novegtype=24 - end if - if (me == 0) print*,'novegtype= ',novegtype - - Status=nf90_get_att(ncid2d,nf90_global,'imp_physics',imp_physics) - if (Status /= 0) then - print*,VarName,' not found-Assigned 11 GFDL as default' - imp_physics=11 - end if - if (me == 0) print*,'MP_PHYSICS= ',imp_physics -! - Status=nf90_get_att(ncid2d,nf90_global,'fhzero',fhzero) - if (Status /= 0) then - print*,VarName,' not found-Assigned 3 hours as default' - fhzero=3 - end if - if (me == 0) print*,'fhzero= ',fhzero -! - Status=nf90_get_att(ncid2d,nf90_global,'dtp',dtp) - if (Status /= 0) then - print*,VarName,' not found-Assigned 90s as default' - dtp=90 - end if - if (me == 0) print*,'dtp= ',dtp -! Initializes constants for Ferrier microphysics - if(imp_physics==5 .or. imp_physics==85 .or. imp_physics==95) then - CALL MICROINIT(imp_physics) - end if - -! Chuang: zhour is when GFS empties bucket last so using this -! to compute buket will result in changing bucket with forecast time. -! set default bucket for now - -! call nemsio_getheadvar(ffile,'zhour',zhour,iret=iret) -! if(iret == 0) then -! tprec = 1.0*ifhr-zhour -! tclod = tprec -! trdlw = tprec -! trdsw = tprec -! tsrfc = tprec -! tmaxmin = tprec -! td3d = tprec -! print*,'tprec from flux file header= ',tprec -! else -! print*,'Error reading accumulation bucket from flux file', & -! 'header - will try to read from env variable FHZER' -! CALL GETENV('FHZER',ENVAR) -! read(ENVAR, '(I2)')idum -! tprec = idum*1.0 -! tclod = tprec -! trdlw = tprec -! trdsw = tprec -! tsrfc = tprec -! tmaxmin = tprec -! td3d = tprec -! print*,'TPREC from FHZER= ',tprec -! end if - - - tprec = float(fhzero) - if(ifhr>240)tprec=12. - tclod = tprec - trdlw = tprec - trdsw = tprec - tsrfc = tprec - tmaxmin = tprec - td3d = tprec - print*,'tprec = ',tprec - - -! start reading 2d netcdf file -! surface pressure -! VarName='pressfc' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & -! ,pint(1,jsta_2l,lp1)) -! if(debugprint)print*,'sample ',VarName,' =',pint(isa,jsa,lp1) -! do l=lm,1,-1 -! do j=jsta,jend -! do i=1,im -! pint(i,j,l)=pint(i,j,l+1)-dpres(i,j,l) -! if(pint(i,j,l)>1.0E6)print*,'bad P ',i,j,l,pint(i,j,l) & -! ,pint(i,j,l+1),dpres(i,j,l) -! end do -! end do -! print*,'sample pint= ',isa,jsa,l,pint(isa,jsa,l) -! end do -! surface height from FV3 already multiplied by G -! VarName='orog' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,fis) -! if(debugprint)print*,'sample ',VarName,' =',fis(isa,jsa) -! do j=jsta,jend -! do i=1,im -! if (fis(i,j) /= spval) then -! zint(i,j,lp1) = fis(i,j) -! fis(i,j) = fis(i,j) * grav -! else -! zint(i,j,lp1) = spval -! fis(i,j) = spval -! endif -! enddo -! enddo - -! do l=lm,1,-1 -! do j=jsta,jend -! do i=1,im -! if(zint(i,j,l+1)/=spval .and. buf3d(i,j,l)/=spval)then -! zint(i,j,l)=zint(i,j,l+1)+buf3d(i,j,l) -! if(zint(i,j,l)>1.0E6)print*,'bad H ',i,j,l,zint(i,j,l) -! else -! zint(i,j,l)=spval -! end if -! end do -! end do -! print*,'sample zint= ',isa,jsa,l,zint(isa,jsa,l) -! end do - -! Per communication with Fanglin, P from model in not monotonic -! so compute P using ak and bk for now Sep. 2017 -! do l=lm,1,-1 -!!!$omp parallel do private(i,j) -! do j=jsta,jend -! do i=1,im -! pint(i,j,l) = ak5(lm+2-l) + bk5(lm+2-l)*pint(i,j,lp1) -! pmid(i,j,l) = 0.5*(pint(i,j,l)+pint(i,j,l+1)) ! for now - -! enddo -! enddo -! print*,'sample pint,pmid' & -! ,l,pint(isa,jsa,l),pmid(isa,jsa,l) -! enddo - -! allocate(wrk1(im,jsta:jend),wrk2(im,jsta:jend)) -! do j=jsta,jend -! do i=1,im -! pd(i,j) = spval ! GFS does not output PD -! pint(i,j,1) = PT -! alpint(i,j,lp1) = log(pint(i,j,lp1)) -! wrk1(i,j) = log(PMID(I,J,LM)) -! wrk2(i,j) = T(I,J,LM)*(Q(I,J,LM)*fv+1.0) -! FI(I,J,1) = FIS(I,J) & -! + wrk2(i,j)*rgas*(ALPINT(I,J,Lp1)-wrk1(i,j)) -! ZMID(I,J,LM) = FI(I,J,1) * gravi -! end do -! end do - -! SECOND, INTEGRATE HEIGHT HYDROSTATICLY, GFS integrate height on -! mid-layer - -! DO L=LM,2,-1 ! omit computing model top height -! ll = l - 1 -! do j = jsta, jend -! do i = 1, im -! alpint(i,j,l) = log(pint(i,j,l)) -! tvll = T(I,J,LL)*(Q(I,J,LL)*fv+1.0) -! pmll = log(PMID(I,J,LL)) - -! FI(I,J,2) = FI(I,J,1) + (0.5*rgas)*(wrk2(i,j)+tvll) & -! * (wrk1(i,j)-pmll) -! ZMID(I,J,LL) = FI(I,J,2) * gravi -! -! FACT = (ALPINT(I,J,L)-wrk1(i,j)) / (pmll-wrk1(i,j)) -! ZINT(I,J,L) = ZMID(I,J,L) +(ZMID(I,J,LL)-ZMID(I,J,L))*FACT -! FI(I,J,1) = FI(I,J,2) -! wrk1(i,J) = pmll -! wrk2(i,j) = tvll -! ENDDO -! ENDDO - -! print*,'L ZINT= ',l,zint(isa,jsa,l),ZMID(isa,jsa,l) -! ,'alpint=',ALPINT(ii,jj,l),'pmid=',LOG(PMID(Ii,Jj,L)), & -! 'pmid(l-1)=',LOG(PMID(Ii,Jj,L-1)),'zmd=',ZMID(Ii,Jj,L), & -! 'zmid(l-1)=',ZMID(Ii,Jj,L-1) -! ENDDO -! deallocate(wrk1,wrk2) - -! do l=lp1,2,-1 -! do j=jsta,jend -! do i=1,im -! alpint(i,j,l)=log(pint(i,j,l)) -! end do -! end do -! end do - -! do l=lm,2,-1 -! do j=jsta,jend -! do i=1,im -! zmid(i,j,l)=zint(i,j,l+1)+(zint(i,j,l)-zint(i,j,l+1))* & -! (log(pmid(i,j,l))-alpint(i,j,l+1))/ & -! (alpint(i,j,l)-alpint(i,j,l+1)) -! if(zmid(i,j,l)>1.0E6)print*,'bad Hmid ',i,j,l,zmid(i,j,l) -! end do -! end do -! end do - -! VarName='refl_10cm' -! do l=1,lm -! call read_netcdf_3d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName & -! ,lm,REF_10CM(1,jsta_2l,1)) -! if(debugprint)print*,'sample ',VarName,'isa,jsa,l =' & -! ,REF_10CM(isa,jsa,l),isa,jsa,l -! enddo -!Set REF_10CM as missning since gfs doesn't ouput it - do l=1,lm - do j=jsta,jend - do i=1,im - REF_10CM(i,j,l)=spval - enddo - enddo - enddo - - VarName='land' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sm) - if(debugprint)print*,'sample ',VarName,' =',sm(im/2,(jsta+jend)/2) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= spval) sm(i,j) = 1.0 - sm(i,j) - enddo - enddo - -! sea ice mask - - VarName = 'icec' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sice) - if(debugprint)print*,'sample ',VarName,' = ',sice(isa,jsa) - -! where(sice /=spval .and. sice >=1.0)sm=0.0 !sea ice has sea -! mask=0 -! GFS flux files have land points with non-zero sea ice, per Iredell, -! these -! points have sea ice changed to zero, i.e., trust land mask more than -! sea ice -! where(sm/=spval .and. sm==0.0)sice=0.0 !specify sea ice=0 at land - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= spval .and. sm(i,j) == 0.0) sice(i,j) = 0.0 - enddo - enddo - - -! PBL height using nemsio - VarName = 'hpbl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pblh) - if(debugprint)print*,'sample ',VarName,' = ',pblh(isa,jsa) - -! frictional velocity using nemsio - VarName='fricv' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ustar) -! if(debugprint)print*,'sample ',VarName,' = ',ustar(isa,jsa) - -! roughness length using getgb - VarName='sfcr' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,z0) -! if(debugprint)print*,'sample ',VarName,' = ',z0(isa,jsa) - -! sfc exchange coeff - VarName='sfexc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,SFCEXC) - -! aerodynamic conductance - VarName='acond' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,acond) - if(debugprint)print*,'sample ',VarName,' = ',acond(isa,jsa) -! mid day avg albedo - VarName='albdo_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgalbedo) - if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) - do j=jsta,jend - do i=1,im - if (avgalbedo(i,j) /= spval) avgalbedo(i,j) = avgalbedo(i,j) * 0.01 - enddo - enddo - -! surface potential T using getgb - VarName='tmpsfc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ths) - -! where(ths/=spval)ths=ths*(p1000/pint(:,:,lp1))**CAPA ! convert to THS - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (ths(i,j) /= spval) then -! write(0,*)' i=',i,' j=',j,' ths=',ths(i,j),' pint=',pint(i,j,lp1) - ths(i,j) = ths(i,j) * (p1000/pint(i,j,lp1))**capa - endif - QS(i,j) = SPVAL ! GFS does not have surface specific humidity - twbs(i,j) = SPVAL ! GFS does not have inst sensible heat flux - qwbs(i,j) = SPVAL ! GFS does not have inst latent heat flux -!assign sst - if (sm(i,j) /= 0.0) then - sst(i,j) = ths(i,j) * (pint(i,j,lp1)/p1000)**capa - else - sst(i,j) = spval - endif - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',ths(isa,jsa) - - -! GFS does not have time step and physics time step, make up ones since they -! are not really used anyway -! NPHS=1. -! DT=90. -! DTQ2 = DT * NPHS !MEB need to get physics DT - DTQ2 = DTP !MEB need to get physics DT - NPHS=1 - DT = DTQ2/NPHS !MEB need to get DT - TSPH = 3600./DT - -! convective precip in m per physics time step using getgb -! read 3 hour bucket - VarName='cpratb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcprate) -! where(avgcprate /= spval)avgcprate=avgcprate*dtq2/1000. ! convert to m -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcprate(i,j) /= spval) avgcprate(i,j) = avgcprate(i,j) * (dtq2*0.001) - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcprate(isa,jsa) - -! print*,'maxval CPRATE: ', maxval(CPRATE) - -! read continuous bucket - VarName='cprat_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcprate_cont) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcprate_cont(i,j) /= spval) avgcprate_cont(i,j) = & - avgcprate_cont(i,j) * (dtq2*0.001) - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcprate_cont(isa,jsa) - -! print*,'maxval CPRATE: ', maxval(CPRATE) - -! precip rate in m per physics time step using getgb - VarName='prateb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgprec) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if(avgprec(i,j) /= spval)avgprec(i,j)=avgprec(i,j)*(dtq2*0.001) - enddo - enddo - - if(debugprint)print*,'sample ',VarName,' = ',avgprec(isa,jsa) - -! prec = avgprec !set avg cprate to inst one to derive other fields - - VarName='prate_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgprec_cont) -! where(avgprec /= spval)avgprec=avgprec*dtq2/1000. ! convert to m -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgprec_cont(i,j) /=spval)avgprec_cont(i,j)=avgprec_cont(i,j) & - * (dtq2*0.001) - enddo - enddo - - if(debugprint)print*,'sample ',VarName,' = ',avgprec_cont(isa,jsa) -! precip rate in m per physics time step - VarName='tprcp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,prec) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (prec(i,j) /= spval) prec(i,j)=prec(i,j)* (dtq2*0.001) & - * 1000. / dtp - enddo - enddo - -! convective precip rate in m per physics time step - VarName='cnvprcp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,cprate) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cprate(i,j) /= spval) then - cprate(i,j) = max(0.,cprate(i,j)) * (dtq2*0.001) & - * 1000. / dtp - else - cprate(i,j) = 0. - endif - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',cprate(isa,jsa) - -! GFS does not have accumulated total, gridscale, and convective precip, will use inst precip to derive in SURFCE.f - -! max hourly 1-km agl reflectivity -! VarName='refdmax' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,refd_max) -! if(debugprint)print*,'sample ',VarName,' = ',refd_max(isa,jsa) -! max hourly -10C reflectivity -! VarName='refdmax263k' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,refdm10c_max) -! if(debugprint)print*,'sample ',VarName,' = ',refdm10c_max(isa,jsa) - -! max hourly u comp of 10m agl wind -! VarName='u10max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,u10max) -! if(debugprint)print*,'sample ',VarName,' = ',u10max(isa,jsa) -! max hourly v comp of 10m agl wind -! VarName='v10max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,v10max) -! if(debugprint)print*,'sample ',VarName,' = ',v10max(isa,jsa) -! max hourly 10m agl wind speed -! VarName='spd10max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,wspd10max) -! if(debugprint)print*,'sample ',VarName,' = ',wspd10max(isa,jsa) - - -! 2m T using nemsio - VarName='tmp2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,tshltr) - if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) - -! inst snow water eqivalent using nemsio - VarName='weasd' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sno) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j)==0.) sno(i,j) = spval - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',sno(isa,jsa) - -! ave snow cover - VarName='snowc_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,snoavg) -! snow cover is multipled by 100 in SURFCE before writing it out - do j=jsta,jend - do i=1,im - if (sm(i,j)==1.0 .and. sice(i,j)==0.) snoavg(i,j)=spval - if(snoavg(i,j)/=spval)snoavg(i,j)=snoavg(i,j)/100. - end do - end do - -! snow depth in mm using nemsio - VarName='snod' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,si) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j)==1.0 .and. sice(i,j)==0.) si(i,j)=spval - if (si(i,j) /= spval) si(i,j) = si(i,j) * 1000.0 - CLDEFI(i,j) = SPVAL ! GFS does not have convective cloud efficiency - lspa(i,j) = spval ! GFS does not have similated precip - TH10(i,j) = SPVAL ! GFS does not have 10 m theta - TH10(i,j) = SPVAL ! GFS does not have 10 m theta - Q10(i,j) = SPVAL ! GFS does not have 10 m humidity - ALBASE(i,j) = SPVAL ! GFS does not have snow free albedo - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',si(isa,jsa) - -! 2m T using nemsio - VarName='tmp2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,tshltr) - if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) - -! GFS does not have 2m pres, estimate it, also convert t to theta - Do j=jsta,jend - Do i=1,im - PSHLTR(I,J)=pint(I,J,lm+1)*EXP(-0.068283/tshltr(i,j)) - tshltr(i,j)= tshltr(i,j)*(p1000/PSHLTR(I,J))**CAPA ! convert to theta -! if (j == jm/2 .and. mod(i,50) == 0) -! + print*,'sample 2m T and P after scatter= ' -! + ,i,j,tshltr(i,j),pshltr(i,j) - end do - end do - -! 2m specific humidity using nemsio - VarName='spfh2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,qshltr) - if(debugprint)print*,'sample ',VarName,' = ',qshltr(isa,jsa) - -! mid day avg albedo in fraction using nemsio -! VarName='albdosfc' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgalbedo) -!! where(avgalbedo /= spval)avgalbedo=avgalbedo/100. ! convert to fraction -!!$omp parallel do private(i,j) -! do j=jsta,jend -! do i=1,im -! if (avgalbedo(i,j) /= spval) avgalbedo(i,j) = avgalbedo(i,j) * 0.01 -! enddo -! enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) - -! time averaged column cloud fractionusing nemsio - VarName='tcdc_aveclm' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgtcdc) -! where(avgtcdc /= spval)avgtcdc=avgtcdc/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgtcdc(i,j) /= spval) avgtcdc(i,j) = avgtcdc(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgtcdc(isa,jsa) - -! GFS probably does not use zenith angle -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - Czen(i,j) = spval - CZMEAN(i,j) = SPVAL - enddo - enddo - -! maximum snow albedo in fraction using nemsio - VarName='snoalb' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,mxsnal) -! where(mxsnal /= spval)mxsnal=mxsnal/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (mxsnal(i,j) /= spval) mxsnal(i,j) = mxsnal(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',mxsnal(isa,jsa) - -! GFS probably does not use sigt4, set it to sig*t^4 -!$omp parallel do private(i,j,tlmh) - Do j=jsta,jend - Do i=1,im - TLMH = T(I,J,LM) * T(I,J,LM) - Sigt4(i,j) = 5.67E-8 * TLMH * TLMH - End do - End do - -! TG is not used, skip it for now - -! GFS does not have inst cloud fraction for high, middle, and low cloud -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - cfrach(i,j) = spval - cfracl(i,j) = spval - cfracm(i,j) = spval - enddo - enddo - -! ave high cloud fraction using nemsio - VarName='tcdc_avehcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcfrach) -! where(avgcfrach /= spval)avgcfrach=avgcfrach/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfrach(i,j) /= spval) avgcfrach(i,j) = avgcfrach(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgcfrach(isa,jsa) - -! ave low cloud fraction using nemsio - VarName='tcdc_avelcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcfracl) -! where(avgcfracl /= spval)avgcfracl=avgcfracl/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfracl(i,j) /= spval) avgcfracl(i,j) = avgcfracl(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgcfracl(isa,jsa) - -! ave middle cloud fraction using nemsio - VarName='tcdc_avemcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgcfracm) -! where(avgcfracm /= spval)avgcfracm=avgcfracm/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfracm(i,j) /= spval) avgcfracm(i,j) = avgcfracm(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgcfracm(isa,jsa) - -! inst convective cloud fraction using nemsio - VarName='tcdccnvcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,cnvcfr) -! where(cnvcfr /= spval)cnvcfr=cnvcfr/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cnvcfr(i,j) /= spval) cnvcfr (i,j)= cnvcfr(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',cnvcfr(isa,jsa) - -! slope type using nemsio - VarName='sltyp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,buf) -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - islope(i,j) = nint(buf(i,j)) - else - islope(i,j) = 0 - endif - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',islope(isa,jsa) - -! plant canopy sfc wtr in m - VarName='cnwat' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,cmc) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cmc(i,j) /= spval) cmc(i,j) = cmc(i,j) * 0.001 - if (sm(i,j) /= 0.0) cmc(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',cmc(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - grnflx(i,j) = spval ! GFS does not have inst ground heat flux - enddo - enddo - -! frozen precip fraction using nemsio - VarName='cpofp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sr) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if(sr(i,j) /= spval) then -!set range within (0,1) - sr(i,j)=min(1.,max(0.,sr(i,j))) - endif - enddo - enddo - -! sea ice skin temperature - VarName='tisfc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ti) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sice(i,j) == spval .or. sice(i,j) == 0.) ti(i,j)=spval - enddo - enddo - -! vegetation fraction in fraction. using nemsio - VarName='veg' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,vegfrc) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (vegfrc(i,j) /= spval) then - vegfrc(i,j) = vegfrc(i,j) * 0.01 - else - vegfrc(i,j) = 0.0 - endif - enddo - enddo -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) vegfrc(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',vegfrc(isa,jsa) - -! GFS doesn not yet output soil layer thickness, assign SLDPTH to be the same as nam - - SLDPTH(1) = 0.10 - SLDPTH(2) = 0.3 - SLDPTH(3) = 0.6 - SLDPTH(4) = 1.0 - -! liquid volumetric soil mpisture in fraction using nemsio - VarName='soill1' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,1)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,1) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,1) - - VarName='soill2' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,2)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,2) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,2) - - VarName='soill3' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,3)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,3) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,3) - - VarName='soill4' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sh2o(1,jsta_2l,4)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,4) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,4) - -! volumetric soil moisture using nemsio - VarName='soilw1' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,1)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,1) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,1) - - VarName='soilw2' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,2)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,2) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,2) - - VarName='soilw3' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,3)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,3) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,3) - - VarName='soilw4' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smc(1,jsta_2l,4)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,4) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,4) - -! soil temperature using nemsio - VarName='soilt1' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,1)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,1) = spval - !if (sm(i,j) /= 0.0) stc(i,j,1) = spval - enddo - enddo - if(debugprint)print*,'sample l','stc',' = ',1,stc(isa,jsa,1) - - VarName='soilt2' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,2)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,2) = spval - !if (sm(i,j) /= 0.0) stc(i,j,2) = spval - enddo - enddo - if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,2) - - VarName='soilt3' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,3)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,3) = spval - !if (sm(i,j) /= 0.0) stc(i,j,3) = spval - enddo - enddo - if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,3) - - VarName='soilt4' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,stc(1,jsta_2l,4)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,4) = spval - !if (sm(i,j) /= 0.0) stc(i,j,4) = spval - enddo - enddo - if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,4) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - acfrcv(i,j) = spval ! GFS does not output time averaged convective and strat cloud fraction, set acfrcv to spval, ncfrcv to 1 - ncfrcv(i,j) = 1.0 - acfrst(i,j) = spval ! GFS does not output time averaged cloud fraction, set acfrst to spval, ncfrst to 1 - ncfrst(i,j) = 1.0 - bgroff(i,j) = spval ! GFS does not have UNDERGROUND RUNOFF - rlwtoa(i,j) = spval ! GFS does not have inst model top outgoing longwave - enddo - enddo -! trdlw(i,j) = 6.0 - ardlw = 1.0 ! GFS incoming sfc longwave has been averaged over 6 hr bucket, set ARDLW to 1 - -! time averaged incoming sfc longwave - VarName='dlwrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwin) - -! inst incoming sfc longwave - VarName='dlwrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rlwin) - -! time averaged outgoing sfc longwave - VarName='ulwrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwout) -! inst outgoing sfc longwave - VarName='ulwrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,radot) - -! where(alwout /= spval) alwout=-alwout ! CLDRAD puts a minus sign before gribbing -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (alwout(i,j) /= spval) alwout(i,j) = -alwout(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,alwout(isa,jsa) - -! time averaged outgoing model top longwave using gfsio - VarName='ulwrf_avetoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwtoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,alwtoa(isa,jsa) - -! GFS incoming sfc longwave has been averaged, set ARDLW to 1 - ardsw=1.0 -! trdsw=6.0 - -! time averaged incoming sfc shortwave - VarName='dswrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswin) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswin(isa,jsa) - -! inst incoming sfc shortwave - VarName='dswrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rswin) - -! inst incoming clear sky sfc shortwave - VarName='csdlf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rswinc) - -! time averaged incoming sfc uv-b using getgb - VarName='duvb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,auvbin) -! if(debugprint)print*,'sample l',VarName,' = ',1,auvbin(isa,jsa) - -! time averaged incoming sfc clear sky uv-b using getgb - VarName='cduvb_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,auvbinc) -! if(debugprint)print*,'sample l',VarName,' = ',1,auvbinc(isa,jsa) - -! time averaged outgoing sfc shortwave using gfsio - VarName='uswrf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswout) -! where(aswout /= spval) aswout=-aswout ! CLDRAD puts a minus sign before gribbing -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (aswout(i,j) /= spval) aswout(i,j) = -aswout(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,aswout(isa,jsa) - -! inst outgoing sfc shortwave using gfsio - VarName='uswrf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,rswout) - -! time averaged model top incoming shortwave - VarName='dswrf_avetoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswintoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswintoa(isa,jsa) - -! time averaged model top outgoing shortwave - VarName='uswrf_avetoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswtoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswtoa(isa,jsa) - -! time averaged surface sensible heat flux, multiplied by -1 because wrf model flux -! has reversed sign convention using gfsio - VarName='shtfl_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcshx) -! where (sfcshx /= spval)sfcshx=-sfcshx -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sfcshx(i,j) /= spval) sfcshx(i,j) = -sfcshx(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcshx(isa,jsa) - -! inst surface sensible heat flux - VarName='shtfl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,twbs) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (twbs(i,j) /= spval) twbs(i,j) = -twbs(i,j) - enddo - enddo - -! GFS surface flux has been averaged, set ASRFC to 1 - asrfc=1.0 -! tsrfc=6.0 - -! time averaged surface latent heat flux, multiplied by -1 because wrf model flux -! has reversed sign vonvention using gfsio - VarName='lhtfl_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfclhx) -! where (sfclhx /= spval)sfclhx=-sfclhx -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sfclhx(i,j) /= spval) sfclhx(i,j) = -sfclhx(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,sfclhx(isa,jsa) - -! inst surface latent heat flux - VarName='lhtfl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,qwbs) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (qwbs(i,j) /= spval) qwbs(i,j) = -qwbs(i,j) - enddo - enddo - - if(me==0)print*,'rdaod= ',rdaod -! inst aod550 optical depth - if(rdaod) then - VarName='aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aod550) - - VarName='du_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,du_aod550) - - VarName='ss_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ss_aod550) - - VarName='su_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,su_aod550) - - VarName='oc_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,oc_aod550) - - VarName='bc_aod550' - call read_netcdf_2d_scatter(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,bc_aod550) - end if - -! time averaged ground heat flux using nemsio - VarName='gflux_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,subshx) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) subshx(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,subshx(isa,jsa) - -! inst ground heat flux using nemsio - VarName='gflux' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,grnflx) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) grnflx(i,j) = spval - enddo - enddo - -! time averaged zonal momentum flux using gfsio - VarName='uflx_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcux) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcux(isa,jsa) - -! time averaged meridional momentum flux using nemsio - VarName='vflx_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcvx) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcvx(isa,jsa) - -! dong read in inst surface flux -! inst zonal momentum flux using gfsio -! VarName='uflx' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcuxi) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcuxi(isa,jsa) - -! inst meridional momentum flux using nemsio -! VarName='vflx' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcvxi) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcvxi(isa,jsa) - - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - sfcuvx(i,j) = spval ! GFS does not use total momentum flux - enddo - enddo - -! time averaged zonal gravity wave stress using nemsio - VarName='u-gwd_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,gtaux) -! if(debugprint)print*,'sample l',VarName,' = ',1,gtaux(isa,jsa) - -! time averaged meridional gravity wave stress using getgb - VarName='v-gwd_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,gtauy) -! if(debugprint)print*,'sample l',VarName,' = ',1,gtauy(isa,jsa) - -! time averaged accumulated potential evaporation - VarName='pevpr_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgpotevp) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) avgpotevp(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,potevp(isa,jsa) - -! inst potential evaporation - VarName='pevpr' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,potevp) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) potevp(i,j) = spval - enddo - enddo - - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im -! GFS does not have temperature tendency due to long wave radiation - rlwtt(i,j,l) = spval -! GFS does not have temperature tendency due to short wave radiation - rswtt(i,j,l) = spval -! GFS does not have temperature tendency due to latent heating from convection - tcucn(i,j,l) = spval - tcucns(i,j,l) = spval -! GFS does not have temperature tendency due to latent heating from grid scale - train(i,j,l) = spval - enddo - enddo - enddo - -! set avrain to 1 - avrain=1.0 - avcnvc=1.0 - theat=6.0 ! just in case GFS decides to output T tendency - -! 10 m u using nemsio - VarName='ugrd10m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,u10) - - do j=jsta,jend - do i=1,im - u10h(i,j)=u10(i,j) - end do - end do -! if(debugprint)print*,'sample l',VarName,' = ',1,u10(isa,jsa) - -! 10 m v using gfsio - VarName='vgrd10m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,v10) - - do j=jsta,jend - do i=1,im - v10h(i,j)=v10(i,j) - end do - end do -! if(debugprint)print*,'sample l',VarName,' = ',1,v10(isa,jsa) - -! vegetation type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='vtype' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,buf) -! where (buf /= spval) -! ivgtyp=nint(buf) -! elsewhere -! ivgtyp=0 !need to feed reasonable value to crtm -! end where -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - ivgtyp(i,j) = nint(buf(i,j)) - else - ivgtyp(i,j) = 0 - endif - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,ivgtyp(isa,jsa) - -! soil type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='sotyp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,buf) - VcoordName='sfc' - l=1 -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - isltyp(i,j) = nint(buf(i,j)) - else - isltyp(i,j) = 0 !need to feed reasonable value to crtm - endif - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,isltyp(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - smstav(i,j) = spval ! GFS does not have soil moisture availability -! smstot(i,j) = spval ! GFS does not have total soil moisture - sfcevp(i,j) = spval ! GFS does not have accumulated surface evaporation - acsnow(i,j) = spval ! GFS does not have averaged accumulated snow - acsnom(i,j) = spval ! GFS does not have snow melt -! sst(i,j) = spval ! GFS does not have sst???? - thz0(i,j) = ths(i,j) ! GFS does not have THZ0, use THS to substitute - qz0(i,j) = spval ! GFS does not output humidity at roughness length - uz0(i,j) = spval ! GFS does not output u at roughness length - vz0(i,j) = spval ! GFS does not output humidity at roughness length - enddo - enddo - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - EL_PBL(i,j,l) = spval ! GFS does not have mixing length - exch_h(i,j,l) = spval ! GFS does not output exchange coefficient - enddo - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,thz0(isa,jsa) - -! retrieve inst convective cloud top, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index -! VarName='pres' -! VcoordName='convect-cld top' -! l=1 -! if(debugprint)print*,'sample l',VarName,' = ',1,ptop(isa,jsa) - VarName='prescnvclt' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ptop) - - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - htop(i,j) = spval - if(ptop(i,j) <= 0.0) ptop(i,j) = spval - enddo - enddo - do j=jsta,jend - do i=1,im - if(ptop(i,j) < spval)then - do l=1,lm - if(ptop(i,j) <= pmid(i,j,l))then - htop(i,j) = l -! if(i==ii .and. j==jj)print*,'sample ptop,pmid pmid-1,pint= ', & -! ptop(i,j),pmid(i,j,l),pmid(i,j,l-1),pint(i,j,l),htop(i,j) - exit - end if - end do - end if - end do - end do - -! retrieve inst convective cloud bottom, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index - VarName='prescnvclb' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pbot) -! if(debugprint)print*,'sample l',VarName,VcoordName,' = ',1,pbot(isa,jsa) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - hbot(i,j) = spval - if(pbot(i,j) <= 0.0) pbot(i,j) = spval - enddo - enddo - do j=jsta,jend - do i=1,im -! if(.not.lb(i,j))print*,'false bitmask for pbot at ' -! + ,i,j,pbot(i,j) - if(pbot(i,j) < spval)then - do l=lm,1,-1 - if(pbot(i,j) >= pmid(i,j,l)) then - hbot(i,j) = l -! if(i==ii .and. j==jj)print*,'sample pbot,pmid= ', & -! pbot(i,j),pmid(i,j,l),hbot(i,j) - exit - end if - end do - end if - end do - end do - if(debugprint)print*,'sample hbot = ',hbot(isa,jsa) -! retrieve time averaged low cloud top pressure using nemsio - VarName='pres_avelct' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ptopl) -! if(debugprint)print*,'sample l',VarName,' = ',1,ptopl(isa,jsa) - -! retrieve time averaged low cloud bottom pressure using nemsio - VarName='pres_avelcb' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pbotl) -! if(debugprint)print*,'sample l',VarName,' = ',1,pbotl(isa,jsa) - -! retrieve time averaged low cloud top temperature using nemsio - VarName='tmp_avelct' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,Ttopl) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopl(isa,jsa) - -! retrieve time averaged middle cloud top pressure using nemsio - VarName='pres_avemct' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ptopm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptopm(isa,jsa) - -! retrieve time averaged middle cloud bottom pressure using nemsio - VarName='pres_avemcb' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pbotm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pbotm(isa,jsa) - -! retrieve time averaged middle cloud top temperature using nemsio - VarName='tmp_avemct' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,Ttopm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopm(isa,jsa) - -! retrieve time averaged high cloud top pressure using nemsio ********* - VarName='pres_avehct' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,ptoph) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptoph(isa,jsa) - -! retrieve time averaged high cloud bottom pressure using nemsio - VarName='pres_avehcb' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pboth) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pboth(isa,jsa) - -! retrieve time averaged high cloud top temperature using nemsio - VarName='tmp_avehct' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,Ttoph) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttoph(isa,jsa) - -! retrieve boundary layer cloud cover using nemsio - VarName='tcdc_avebndcl' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,pblcfr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,pblcfr(isa,jsa) -! where (pblcfr /= spval)pblcfr=pblcfr/100. ! convert to fraction -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (pblcfr(i,j) < spval) pblcfr(i,j) = pblcfr(i,j) * 0.01 - enddo - enddo - -! retrieve cloud work function - VarName='cwork_aveclm' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,cldwork) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,cldwork(isa,jsa) - -! accumulated total (base+surface) runoff - VarName='watr_acc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,runoff) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) runoff(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,runoff(isa,jsa) - -! retrieve shelter max temperature using nemsio - VarName='tmax_max2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,maxtshltr) - -! retrieve shelter min temperature using nemsio - VarName='tmin_min2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,mintshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & -! 1,mintshltr(im/2,(jsta+jend)/2) - -! retrieve shelter max RH -! VarName='rh02max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,maxrhshltr) - -! retrieve shelter min temperature using nemsio -! VarName='rh02min' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,minrhshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & -! 1,mintshltr(im/2,(jsta+jend)/2) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - MAXRHSHLTR(i,j) = SPVAL - MINRHSHLTR(i,j) = SPVAL - enddo - enddo - -! retrieve ice thickness using nemsio - VarName='icetk' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,dzice) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,dzice(isa,jsa) - -! retrieve wilting point using nemsio - VarName='wilt' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smcwlt) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smcwlt(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,smcwlt(isa,jsa) - -! retrieve sunshine duration using nemsio - VarName='sunsd_acc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,suntime) - -! retrieve field capacity using nemsio - VarName='fldcp' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,fieldcapa) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) fieldcapa(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,fieldcapa(isa,jsa) - -! retrieve time averaged surface visible beam downward solar flux - VarName='vbdsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avisbeamswin) - VcoordName='sfc' - l=1 - -! retrieve time averaged surface visible diffuse downward solar flux - VarName='vddsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avisdiffswin) - -! retrieve time averaged surface near IR beam downward solar flux - VarName='nbdsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,airbeamswin) - -! retrieve time averaged surface near IR diffuse downward solar flux - VarName='nddsf_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,airdiffswin) - -! retrieve time averaged surface clear sky outgoing LW - VarName='csulf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwoutc) - -! retrieve time averaged TOA clear sky outgoing LW - VarName='csulftoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwtoac) - -! retrieve time averaged surface clear sky outgoing SW - VarName='csusf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswoutc) - -! retrieve time averaged TOA clear sky outgoing LW - VarName='csusftoa' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswtoac) - -! retrieve time averaged surface clear sky incoming LW - VarName='csdlf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,alwinc) - -! retrieve time averaged surface clear sky incoming SW - VarName='csdsf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,aswinc) - -! retrieve shelter max specific humidity using nemsio - VarName='spfhmax_max2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,maxqshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', -! 1,maxqshltr(isa,jsa) - -! retrieve shelter min temperature using nemsio - VarName='spfhmin_min2m' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,minqshltr) - -! retrieve storm runoff using nemsio - VarName='ssrun_acc' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,SSROFF) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) ssroff(i,j) = spval - enddo - enddo - -! retrieve direct soil evaporation - VarName='evbs_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgedir) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) avgedir(i,j) = spval - enddo - enddo - -! retrieve CANOPY WATER EVAP - VarName='evcw_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgecan) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) avgecan(i,j) = spval - enddo - enddo - -! retrieve PLANT TRANSPIRATION - VarName='trans_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgetrans) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) avgetrans(i,j) = spval - enddo - enddo - -! retrieve snow sublimation - VarName='sbsno_ave' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgesnow) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j)==1.0 .and. sice(i,j)==0.) avgesnow(i,j)=spval - enddo - enddo - -! retrive total soil moisture - VarName='soilm' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,smstot) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smstot(i,j) = spval - enddo - enddo - -! retrieve snow phase change heat flux - VarName='snohf' - call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & - ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,snopcx) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) snopcx(i,j) = spval - enddo - enddo - -! GFS does not have deep convective cloud top and bottom fields - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - HTOPD(i,j) = SPVAL - HBOTD(i,j) = SPVAL - HTOPS(i,j) = SPVAL - HBOTS(i,j) = SPVAL - CUPPT(i,j) = SPVAL - enddo - enddo - -! done with flux file, close it for now - Status=nf90_close(ncid2d) -! deallocate(tmp,recname,reclevtyp,reclev) - -! pos east -! call collect_loc(gdlat,dummy) -! if(me == 0)then -! latstart = nint(dummy(1,1)*gdsdegr) -! latlast = nint(dummy(im,jm)*gdsdegr) -! print*,'laststart,latlast B bcast= ',latstart,latlast,'gdsdegr=',gdsdegr,& -! 'dummy(1,1)=',dummy(1,1),dummy(im,jm),'gdlat=',gdlat(1,1) -! end if -! call mpi_bcast(latstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) -! call mpi_bcast(latlast,1,MPI_INTEGER,0,mpi_comm_comp,irtn) -! write(6,*) 'laststart,latlast,me A calling bcast=',latstart,latlast,me -! call collect_loc(gdlon,dummy) -! if(me == 0)then -! lonstart = nint(dummy(1,1)*gdsdegr) -! lonlast = nint(dummy(im,jm)*gdsdegr) -! end if -! call mpi_bcast(lonstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) -! call mpi_bcast(lonlast, 1,MPI_INTEGER,0,mpi_comm_comp,irtn) - -! write(6,*)'lonstart,lonlast A calling bcast=',lonstart,lonlast -! - -! generate look up table for lifted parcel calculations - - THL = 210. - PLQ = 70000. - pt_TBL = 10000. ! this is for 100 hPa added by Moorthi - - CALL TABLE(PTBL,TTBL,PT_TBL, & - RDQ,RDTH,RDP,RDTHE,PL,THL,QS0,SQS,STHE,THE0) - - CALL TABLEQ(TTBLQ,RDPQ,RDTHEQ,PLQ,THL,STHEQ,THE0Q) - -! -! - IF(ME == 0)THEN - WRITE(6,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' - WRITE(6,51) (SPL(L),L=1,LSM) - 50 FORMAT(14(F4.1,1X)) - 51 FORMAT(8(F8.1,1X)) - ENDIF -! -!$omp parallel do private(l) - DO L = 1,LSM - ALSL(L) = LOG(SPL(L)) - END DO -! -!HC WRITE IGDS OUT FOR WEIGHTMAKER TO READ IN AS KGDSIN - if(me == 0)then - print*,'writing out igds' - igdout = 110 -! open(igdout,file='griddef.out',form='unformatted' -! + ,status='unknown') - if(maptype == 1)THEN ! Lambert conformal - WRITE(igdout)3 - WRITE(6,*)'igd(1)=',3 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ELSE IF(MAPTYPE == 2)THEN !Polar stereographic - WRITE(igdout)5 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 !Assume projection at +-90 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ! Note: The calculation of the map scale factor at the standard - ! lat/lon and the PSMAPF - ! Get map factor at 60 degrees (N or S) for PS projection, which will - ! be needed to correctly define the DX and DY values in the GRIB GDS - if (TRUELAT1 < 0.) THEN - LAT = -60. - else - LAT = 60. - end if - - CALL MSFPS (LAT,TRUELAT1*0.001,PSMAPF) - - ELSE IF(MAPTYPE == 3) THEN !Mercator - WRITE(igdout)1 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)latlast - WRITE(igdout)lonlast - WRITE(igdout)TRUELAT1 - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)255 - ELSE IF(MAPTYPE == 0 .OR. MAPTYPE == 203)THEN !A STAGGERED E-GRID - WRITE(igdout)203 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)136 - WRITE(igdout)CENLAT - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)64 - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)0 - END IF - end if -! -! - - RETURN - END - diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f b/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f deleted file mode 100644 index aee28bb0b..000000000 --- a/sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f +++ /dev/null @@ -1,2672 +0,0 @@ -!> @file -! . . . -!> SUBPROGRAM: INITPOST_GFS_NETCDF_PARA INITIALIZE POST FOR RUN -!! PRGRMMR: Wen Meng DATE: 2020-02-04 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF GFS MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 2020-02-04 W Meng start from INITPOST_GFS_NETCDF.f -!! 2021-03-11 Bo Cui change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INITPOST_GFS_NETCDF_PARA -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! - SUBROUTINE INITPOST_GFS_NETCDF_PARA(ncid3d) - - - use netcdf - use vrbls4d, only: dust, SALT, SUSO, SOOT, WASO, PP25, PP10 - use vrbls3d, only: t, q, uh, vh, pmid, pint, alpint, dpres, zint, zmid, o3, & - qqr, qqs, cwm, qqi, qqw, omga, rhomid, q2, cfr, rlwtt, rswtt, tcucn, & - tcucns, train, el_pbl, exch_h, vdifftt, vdiffmois, dconvmois, nradtt, & - o3vdiff, o3prod, o3tndy, mwpv, unknown, vdiffzacce, zgdrag,cnvctummixing, & - vdiffmacce, mgdrag, cnvctvmmixing, ncnvctcfrac, cnvctumflx, cnvctdmflx, & - cnvctzgdrag, sconvmois, cnvctmgdrag, cnvctdetmflx, duwt, duem, dusd, dudp, & - wh, qqg, ref_10cm - use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & - cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & - tshltr, albase, avgalbedo, avgtcdc, czen, czmean, mxsnal, landfrac, radot, sigt4, & - cfrach, cfracl, cfracm, avgcfrach, qshltr, avgcfracl, avgcfracm, cnvcfr, & - islope, cmc, grnflx, vegfrc, acfrcv, ncfrcv, acfrst, ncfrst, ssroff, & - bgroff, rlwin, rlwtoa, cldwork, alwin, alwout, alwtoa, rswin, rswinc, & - rswout, aswin, auvbin, auvbinc, aswout, aswtoa, sfcshx, sfclhx, subshx, & - snopcx, sfcux, sfcvx, sfcuxi, sfcvxi, sfcuvx, gtaux, gtauy, potevp, u10, v10, smstav, & - smstot, ivgtyp, isltyp, sfcevp, sfcexc, acsnow, acsnom, sst, thz0, qz0, & - uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm, & - ptoph, pboth, pblcfr, ttoph, runoff, tecan, tetran, tedir, twa, maxtshltr, & - mintshltr, maxrhshltr, fdnsst, & - minrhshltr, dzice, smcwlt, suntime, fieldcapa, htopd, hbotd, htops, hbots, & - cuppt, dusmass, ducmass, dusmass25, ducmass25, aswintoa,rel_vort_maxhy1, & - maxqshltr, minqshltr, acond, sr, u10h, v10h,refd_max, w_up_max, w_dn_max, & - up_heli_max,up_heli_min,up_heli_max03,up_heli_min03,rel_vort_max01,u10max, v10max, & - avgedir,avgecan,paha,pahi,avgetrans,avgesnow,avgprec_cont,avgcprate_cont,rel_vort_max, & - avisbeamswin,avisdiffswin,airbeamswin,airdiffswin,refdm10c_max,wspd10max, & - alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & - ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550 - use soil, only: sldpth, sh2o, smc, stc - use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice - use physcons_post, only: grav => con_g, fv => con_fvirt, rgas => con_rd, & - eps => con_eps, epsm1 => con_epsm1 - use params_mod, only: erad, dtr, tfrz, h1, d608, rd, p1000, capa,pi - use lookup_mod, only: thl, plq, ptbl, ttbl, rdq, rdth, rdp, rdthe, pl, qs0, sqs, sthe, & - ttblq, rdpq, rdtheq, stheq, the0q, the0 - use ctlblk_mod, only: me, mpi_comm_comp, icnt, idsp, jsta, jend, ihrst, idat, sdat, ifhr, & - ifmin, filename, tprec, tclod, trdlw, trdsw, tsrfc, tmaxmin, td3d, restrt, sdat, & - jend_m, imin, imp_physics, dt, spval, pdtop, pt, qmin, nbin_du, nphs, dtq2, ardlw,& - ardsw, asrfc, avrain, avcnvc, theat, gdsdegr, spl, lsm, alsl, im, jm, im_jm, lm, & - jsta_2l, jend_2u, nsoil, lp1, icu_physics, ivegsrc, novegtype, nbin_ss, nbin_bc, & - nbin_oc, nbin_su, gocart_on, pt_tbl, hyb_sigp, filenameFlux, fileNameAER,rdaod - use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & - dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & - latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r - - use upp_physics, only: fpvsnew -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none -! -! type(nemsio_gfile) :: nfile,ffile,rfile - integer,parameter :: nvar2d=48 -! character(nemsio_charkind) :: name2d(nvar2d) - integer :: nvar3d, numDims -! character(nemsio_charkind), allocatable :: name3din(:), name3dout(:) -! character(nemsio_charkind) :: varname,levtype -! -! INCLUDE/SET PARAMETERS. -! - INCLUDE "mpif.h" - -! integer,parameter:: MAXPTS=1000000 ! max im*jm points -! -! real,parameter:: con_g =9.80665e+0! gravity -! real,parameter:: con_rv =4.6150e+2 ! gas constant H2O -! real,parameter:: con_rd =2.8705e+2 ! gas constant air -! real,parameter:: con_fvirt =con_rv/con_rd-1. -! real,parameter:: con_eps =con_rd/con_rv -! real,parameter:: con_epsm1 =con_rd/con_rv-1 -! -! This version of INITPOST shows how to initialize, open, read from, and -! close a NetCDF dataset. In order to change it to read an internal (binary) -! dataset, do a global replacement of _ncd_ with _int_. - - real, parameter :: gravi = 1.0/grav - character(len=20) :: VarName, VcoordName - integer :: Status, fldsize, fldst, recn, recn_vvel - character startdate*19,SysDepInfo*80,cgar*1 - character startdate2(19)*4 -! -! NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK -! AS LONG AS REALS AND INTEGERS ARE THE SAME SIZE. -! -! ALSO, EXTRACT IS CALLED WITH DUMMY ( A REAL ) EVEN WHEN THE NUMBERS ARE -! INTEGERS - THIS IS OK AS LONG AS INTEGERS AND REALS ARE THE SAME SIZE. - LOGICAL RUNB,SINGLRST,SUBPOST,NEST,HYDRO,IOOMG,IOALL -! logical, parameter :: debugprint = .true., zerout = .false. - logical, parameter :: debugprint = .false., zerout = .false. - logical :: convert_rad_to_deg=.false. - CHARACTER*32 varcharval -! CHARACTER*40 CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV,FILCLD,FILRAD,FILSFC - CHARACTER*4 RESTHR - CHARACTER FNAME*255,ENVAR*50 - INTEGER IDATE(8),JDATE(8),JPDS(200),JGDS(200),KPDS(200),KGDS(200) -! LOGICAL*1 LB(IM,JM) -! -! INCLUDE COMMON BLOCKS. -! -! DECLARE VARIABLES. -! -! REAL fhour - integer nfhour ! forecast hour from nems io file - integer fhzero !bucket - real dtp !physics time step - REAL RINC(5) - - REAL DUMMY(IM,JM) -!jw - integer ii,jj,js,je,iyear,imn,iday,itmp,ioutcount,istatus, & - I,J,L,ll,k,kf,irtn,igdout,n,Index,nframe, & - nframed2,iunitd3d,ierr,idum,iret,nrec,idrt - integer ncid3d,ncid2d,varid,nhcas - real TSTART,TLMH,TSPH,ES,FACT,soilayert,soilayerb,zhour,dum, & - tvll,pmll,tv, tx1, tx2 - - character*20,allocatable :: recname(:) - integer, allocatable :: reclev(:), kmsk(:,:) - real, allocatable :: glat1d(:), glon1d(:), qstl(:) - real, allocatable :: wrk1(:,:), wrk2(:,:) - real, allocatable :: p2d(:,:), t2d(:,:), q2d(:,:), & - qs2d(:,:), cw2d(:,:), cfr2d(:,:) - real(kind=4),allocatable :: vcoord4(:,:,:) - real, dimension(lm+1) :: ak5, bk5 - real*8, allocatable :: pm2d(:,:), pi2d(:,:) - real, allocatable :: tmp(:) - real :: buf(im,jsta_2l:jend_2u) - real :: buf3d(im,jsta_2l:jend_2u,lm) - -! real buf(im,jsta_2l:jend_2u),bufsoil(im,nsoil,jsta_2l:jend_2u) & -! ,buf3d(im,jsta_2l:jend_2u,lm),buf3d2(im,lp1,jsta_2l:jend_2u) - - real LAT - integer isa, jsa, latghf, jtem, idvc, idsl, nvcoord, ip1, nn, npass - - integer, parameter :: npass2=5, npass3=30 - real, parameter :: third=1.0/3.0 - INTEGER, DIMENSION(2) :: ij4min, ij4max - REAL :: omgmin, omgmax - real, allocatable :: d2d(:,:), u2d(:,:), v2d(:,:), omga2d(:,:) - REAL, ALLOCATABLE :: ps2d(:,:),psx2d(:,:),psy2d(:,:) - real, allocatable :: div3d(:,:,:) - real(kind=4),allocatable :: vcrd(:,:) - real :: dum_const - -!*********************************************************************** -! START INIT HERE. -! - WRITE(6,*)'INITPOST: ENTER INITPOST_GFS_NETCDF_PARA' - WRITE(6,*)'me=',me, & - 'jsta_2l=',jsta_2l,'jend_2u=', & - jend_2u,'im=',im -! - isa = im / 2 - jsa = (jsta+jend) / 2 - -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - buf(i,j) = spval - enddo - enddo - - Status=nf90_get_att(ncid3d,nf90_global,'ak',ak5) - if(Status/=0)then - print*,'ak not found; assigning missing value' - ak5=spval - else - if(me==0)print*,'ak5= ',ak5 - end if - Status=nf90_get_att(ncid3d,nf90_global,'idrt',idrt) - if(Status/=0)then - print*,'idrt not in netcdf file,reading grid' - Status=nf90_get_att(ncid3d,nf90_global,'grid',varcharval) - if(Status/=0)then - print*,'idrt and grid not in netcdf file, set default to latlon' - idrt=0 - MAPTYPE=0 - else - if(trim(varcharval)=='rotated_latlon')then - MAPTYPE=207 - idrt=207 - Status=nf90_get_att(ncid3d,nf90_global,'cen_lon',dum_const) - if(Status/=0)then - print*,'cen_lon not found; assigning missing value' - cenlon=spval - else - if(dum_const<0.)then - cenlon=nint((dum_const+360.)*gdsdegr) - else - cenlon=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'cen_lat',dum_const) - if(Status/=0)then - print*,'cen_lat not found; assigning missing value' - cenlat=spval - else - cenlat=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'lon1',dum_const) - if(Status/=0)then - print*,'lonstart_r not found; assigning missing value' - lonstart_r=spval - else - if(dum_const<0.)then - lonstart_r=nint((dum_const+360.)*gdsdegr) - else - lonstart_r=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat1',dum_const) - if(Status/=0)then - print*,'latstart_r not found; assigning missing value' - latstart_r=spval - else - latstart_r=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'lon2',dum_const) - if(Status/=0)then - print*,'lonlast_r not found; assigning missing value' - lonlast_r=spval - else - if(dum_const<0.)then - lonlast_r=nint((dum_const+360.)*gdsdegr) - else - lonlast_r=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat2',dum_const) - if(Status/=0)then - print*,'latlast_r not found; assigning missing value' - latlast_r=spval - else - latlast_r=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'dlon',dum_const) - if(Status/=0)then - print*,'dlmd not found; assigning missing value' - dxval=spval - else - dxval=dum_const*gdsdegr - end if - Status=nf90_get_att(ncid3d,nf90_global,'dlat',dum_const) - if(Status/=0)then - print*,'dphd not found; assigning missing value' - dyval=spval - else - dyval=dum_const*gdsdegr - end if - - print*,'lonstart,latstart,cenlon,cenlat,dyval,dxval', & - lonstart,latstart,cenlon,cenlat,dyval,dxval - -! Jili Dong add support for regular lat lon (2019/03/22) start - else if(trim(varcharval)=='latlon')then - MAPTYPE=0 - idrt=0 - - Status=nf90_get_att(ncid3d,nf90_global,'lon1',dum_const) - if(Status/=0)then - print*,'lonstart not found; assigning missing value' - lonstart=spval - else - if(dum_const<0.)then - lonstart=nint((dum_const+360.)*gdsdegr) - else - lonstart=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat1',dum_const) - if(Status/=0)then - print*,'latstart not found; assigning missing value' - latstart=spval - else - latstart=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'lon2',dum_const) - if(Status/=0)then - print*,'lonlast not found; assigning missing value' - lonlast=spval - else - if(dum_const<0.)then - lonlast=nint((dum_const+360.)*gdsdegr) - else - lonlast=dum_const*gdsdegr - end if - end if - Status=nf90_get_att(ncid3d,nf90_global,'lat2',dum_const) - if(Status/=0)then - print*,'latlast not found; assigning missing value' - latlast=spval - else - latlast=dum_const*gdsdegr - end if - - Status=nf90_get_att(ncid3d,nf90_global,'dlon',dum_const) - if(Status/=0)then - print*,'dlmd not found; assigning missing value' - dxval=spval - else - dxval=dum_const*gdsdegr - end if - Status=nf90_get_att(ncid3d,nf90_global,'dlat',dum_const) - if(Status/=0)then - print*,'dphd not found; assigning missing value' - dyval=spval - else - dyval=dum_const*gdsdegr - end if - - print*,'lonstart,latstart,dyval,dxval', & - lonstart,lonlast,latstart,latlast,dyval,dxval - -! Jili Dong add support for regular lat lon (2019/03/22) end - - else if(trim(varcharval)=='gaussian')then - MAPTYPE=4 - idrt=4 - else ! setting default maptype - MAPTYPE=0 - idrt=0 - end if - end if !end reading grid - end if !end reading idrt - if(me==0)print*,'idrt MAPTYPE= ',idrt,MAPTYPE -! STEP 1. READ MODEL OUTPUT FILE -! -! -!*** -! -! LMH and LMV always = LM for sigma-type vert coord - -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i = 1, im - LMV(i,j) = lm - LMH(i,j) = lm - end do - end do - -! HTM VTM all 1 for sigma-type vert coord - -!$omp parallel do private(i,j,l) - do l = 1, lm - do j = jsta_2l, jend_2u - do i = 1, im - HTM (i,j,l) = 1.0 - VTM (i,j,l) = 1.0 - end do - end do - end do - - Status=nf90_get_att(ncid3d,nf90_global,'nhcas',nhcas) - if(Status/=0)then - print*,'nhcas not in netcdf file, set default to nonhydro' - nhcas=0 - end if - if(me==0)print*,'nhcas= ',nhcas - if (nhcas == 0 ) then !non-hydrostatic case - nrec=15 - allocate (recname(nrec)) - recname=[character(len=20) :: 'ugrd','vgrd','spfh','tmp','o3mr', & - 'presnh','dzdt', 'clwmr','dpres', & - 'delz','icmr','rwmr', & - 'snmr','grle','cld_amt'] - else - nrec=8 - allocate (recname(nrec)) - recname=[character(len=20) :: 'ugrd','vgrd','tmp','spfh','o3mr', & - 'hypres', 'clwmr','dpres'] - endif - -! write(0,*)'nrec=',nrec - !allocate(recname(nrec),reclevtyp(nrec),reclev(nrec)) - allocate(glat1d(jm),glon1d(im)) - allocate(vcoord4(lm+1,3,2)) - -! hardwire idate for now -! idate=(/2017,08,07,00,0,0,0,0/) -! get cycle start time - Status=nf90_inq_varid(ncid3d,'time',varid) - if(Status/=0)then - print*,'time not in netcdf file, stopping' - STOP 1 - else - Status=nf90_get_att(ncid3d,varid,'units',varcharval) - if(Status/=0)then - print*,'time unit not available' - else - print*,'time unit read from netcdf file= ',varcharval -! assume use hours as unit -! idate_loc=index(varcharval,'since')+6 - read(varcharval,101)idate(1),idate(2),idate(3),idate(4),idate(5) - end if -! Status=nf90_inquire_dimension(ncid3d,varid,len=ntimes) -! allocate(fhours(ntimes)) -! status = nf90_inq_varid(ncid3d,varid,fhours) -! Status=nf90_get_var(ncid3d,varid,nfhour,start=(/1/), & -! count=(/1/)) -! if(Status/=0)then -! print*,'forecast hour not in netcdf file, stopping' -! STOP 1 -! end if - end if - 101 format(T13,i4,1x,i2,1x,i2,1x,i2,1x,i2) - print*,'idate= ',idate(1:5) -! get longitude - Status=nf90_inq_varid(ncid3d,'grid_xt',varid) - Status=nf90_inquire_variable(ncid3d,varid,ndims = numDims) - if(debugprint)print*,'number of dim for gdlon ',numDims - if(numDims==1)then - Status=nf90_get_var(ncid3d,varid,glon1d) - do j=jsta,jend - do i=1,im - gdlon(i,j) = real(glon1d(i),kind=4) - end do - end do - lonstart = nint(glon1d(1)*gdsdegr) - lonlast = nint(glon1d(im)*gdsdegr) - dxval = nint(abs(glon1d(1)-glon1d(2))*gdsdegr) - else if(numDims==2)then - Status=nf90_get_var(ncid3d,varid,dummy) - if(maxval(abs(dummy))<2.0*pi)convert_rad_to_deg=.true. - if(convert_rad_to_deg)then - do j=jsta,jend - do i=1,im - gdlon(i,j) = real(dummy(i,j),kind=4)*180./pi - end do - end do - else - do j=jsta,jend - do i=1,im - gdlon(i,j) = real(dummy(i,j),kind=4) - end do - end do - end if - if(convert_rad_to_deg)then - lonstart = nint(dummy(1,1)*gdsdegr)*180./pi - lonlast = nint(dummy(im,jm)*gdsdegr)*180./pi - dxval = nint(abs(dummy(1,1)-dummy(2,1))*gdsdegr)*180./pi - else - lonstart = nint(dummy(1,1)*gdsdegr) - lonlast = nint(dummy(im,jm)*gdsdegr) - dxval = nint(abs(dummy(1,1)-dummy(2,1))*gdsdegr) - end if - -! Jili Dong add support for regular lat lon (2019/03/22) start - if (MAPTYPE == 0) then - if(lonstart<0.)then - lonstart=lonstart+360.*gdsdegr - end if - if(lonlast<0.)then - lonlast=lonlast+360.*gdsdegr - end if - end if -! Jili Dong add support for regular lat lon (2019/03/22) end - - end if - print*,'lonstart,lonlast,dxval ',lonstart,lonlast,dxval -! get latitude - Status=nf90_inq_varid(ncid3d,'grid_yt',varid) - Status=nf90_inquire_variable(ncid3d,varid,ndims = numDims) - if(debugprint)print*,'number of dim for gdlat ',numDims - if(numDims==1)then - Status=nf90_get_var(ncid3d,varid,glat1d) - do j=jsta,jend - do i=1,im - gdlat(i,j) = real(glat1d(j),kind=4) - end do - end do - latstart = nint(glat1d(1)*gdsdegr) - latlast = nint(glat1d(jm)*gdsdegr) - dyval = nint(abs(glat1d(1)-glat1d(2))*gdsdegr) - else if(numDims==2)then - Status=nf90_get_var(ncid3d,varid,dummy) - if(maxval(abs(dummy))1000.)print*,'bad T ',t(i,j,l) - enddo - enddo - enddo - call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & - spval,recname(11),qqi(1,jsta_2l,1),lm) - call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & - spval,recname(12),qqr(1,jsta_2l,1),lm) - call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & - spval,recname(13),qqs(1,jsta_2l,1),lm) - call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & - spval,recname(14),qqg(1,jsta_2l,1),lm) - call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & - spval,recname(15),cfr(1,jsta_2l,1),lm) - -! calculate CWM from FV3 output - do l=1,lm - do j=jsta,jend - do i=1,im - cwm(i,j,l)=qqg(i,j,l)+qqs(i,j,l)+qqr(i,j,l)+qqi(i,j,l)+qqw(i,j,l) - enddo - enddo - if(debugprint)print*,'sample l,t,q,u,v,w,= ',isa,jsa,l & - ,t(isa,jsa,l),q(isa,jsa,l),uh(isa,jsa,l),vh(isa,jsa,l) & - ,wh(isa,jsa,l) - if(debugprint)print*,'sample l cwm for FV3',l, & - cwm(isa,jsa,l) - end do - -! surface pressure - VarName='pressfc' - call read_netcdf_2d_para(ncid3d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pint(1,jsta_2l,lp1)) - do j=jsta,jend - do i=1,im -! if(pint(i,j,lp1)>1.0E6 .or. pint(1,jsta_2l,lp1)<50000.) & -! print*,'bad psfc ',i,j,pint(i,j,lp1) - end do - end do - if(debugprint)print*,'sample ',VarName,' =',pint(isa,jsa,lp1) - - pt = ak5(1) - - do j=jsta,jend - do i=1,im - pint(i,j,1)= pt - end do - end do - - do l=2,lp1 - do j=jsta,jend - do i=1,im - pint(i,j,l) = pint(i,j,l-1) + dpres(i,j,l-1) - enddo - enddo -! if (me == 0) print*,'sample model pint,pmid' ,ii,jj,l & -! ,pint(ii,jj,l),pmid(ii,jj,l) - end do - -!compute pmid from averaged two layer pint - do l=lm,1,-1 - do j=jsta,jend - do i=1,im - pmid(i,j,l) = 0.5*(pint(i,j,l)+pint(i,j,l+1)) - enddo - enddo - enddo - -! surface height from FV3 -! dong set missing value for zint -! zint=spval - VarName='hgtsfc' - call read_netcdf_2d_para(ncid3d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,zint(1,jsta_2l,lp1)) - if(debugprint)print*,'sample ',VarName,' =',zint(isa,jsa,lp1) - do j=jsta,jend - do i=1,im - if (zint(i,j,lp1) /= spval) then - fis(i,j) = zint(i,j,lp1) * grav - else - fis(i,j) = spval - endif - enddo - enddo - - do l=lm,1,-1 - do j=jsta,jend - do i=1,im - if(zint(i,j,l+1)/=spval .and. buf3d(i,j,l)/=spval)then -!make sure delz is positive - zint(i,j,l)=zint(i,j,l+1)+abs(buf3d(i,j,l)) -! if(zint(i,j,l)>1.0E6)print*,'bad H ',i,j,l,zint(i,j,l) - else - zint(i,j,l)=spval - end if - end do - end do - print*,'sample zint= ',isa,jsa,l,zint(isa,jsa,l) - end do - - do l=lp1,1,-1 - do j=jsta,jend - do i=1,im - alpint(i,j,l)=log(pint(i,j,l)) - end do - end do - end do - - do l=lm,1,-1 - do j=jsta,jend - do i=1,im - if(zint(i,j,l+1)/=spval .and. zint(i,j,l)/=spval & - .and. pmid(i,j,l)/=spval)then - zmid(i,j,l)=zint(i,j,l+1)+(zint(i,j,l)-zint(i,j,l+1))* & - (log(pmid(i,j,l))-alpint(i,j,l+1))/ & - (alpint(i,j,l)-alpint(i,j,l+1)) - if(zmid(i,j,l)>1.0E6)print*,'bad Hmid ',i,j,l,zmid(i,j,l) - else - zmid(i,j,l)=spval - endif - end do - end do - end do - - - pt = ak5(1) - -! - - deallocate (vcoord4) -!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - -! - -! done with 3d file, close it for now - Status=nf90_close(ncid3d) - deallocate(recname) - -! open flux file - Status = nf90_open(trim(fileNameFlux),ior(nf90_nowrite, nf90_mpiio), & - ncid2d,comm=mpi_comm_world,info=mpi_info_null) - if ( Status /= 0 ) then - print*,'error opening ',fileNameFlux, ' Status = ', Status - print*,'skip reading of flux file' - endif - -! IVEGSRC=1 for IGBP, 0 for USGS, 2 for UMD - VarName='IVEGSRC' - Status=nf90_get_att(ncid2d,nf90_global,'IVEGSRC',IVEGSRC) - if (Status /= 0) then - print*,VarName,' not found-Assigned 1 for IGBP as default' - IVEGSRC=1 - end if - if (me == 0) print*,'IVEGSRC= ',IVEGSRC - -! set novegtype based on vegetation classification - if(ivegsrc==2)then - novegtype=13 - else if(ivegsrc==1)then - novegtype=20 - else if(ivegsrc==0)then - novegtype=24 - end if - if (me == 0) print*,'novegtype= ',novegtype - - Status=nf90_get_att(ncid2d,nf90_global,'imp_physics',imp_physics) - if (Status /= 0) then - print*,VarName,' not found-Assigned 11 GFDL as default' - imp_physics=11 - end if - if (me == 0) print*,'MP_PHYSICS= ',imp_physics -! - Status=nf90_get_att(ncid2d,nf90_global,'fhzero',fhzero) - if (Status /= 0) then - print*,VarName,' not found-Assigned 3 hours as default' - fhzero=3 - end if - if (me == 0) print*,'fhzero= ',fhzero -! - Status=nf90_get_att(ncid2d,nf90_global,'dtp',dtp) - if (Status /= 0) then - print*,VarName,' not found-Assigned 90s as default' - dtp=90 - end if - if (me == 0) print*,'dtp= ',dtp -! Initializes constants for Ferrier microphysics - if(imp_physics==5 .or. imp_physics==85 .or. imp_physics==95) then - CALL MICROINIT(imp_physics) - end if - - tprec = float(fhzero) - if(ifhr>240)tprec=12. - tclod = tprec - trdlw = tprec - trdsw = tprec - tsrfc = tprec - tmaxmin = tprec - td3d = tprec - print*,'tprec = ',tprec - - -!Set REF_10CM as missning since gfs doesn't ouput it - do l=1,lm - do j=jsta,jend - do i=1,im - REF_10CM(i,j,l)=spval - enddo - enddo - enddo - - VarName='land' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sm) - if(debugprint)print*,'sample ',VarName,' =',sm(im/2,(jsta+jend)/2) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= spval) sm(i,j) = 1.0 - sm(i,j) - enddo - enddo - -! sea ice mask - - VarName = 'icec' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sice) - if(debugprint)print*,'sample ',VarName,' = ',sice(isa,jsa) - -! where(sice /=spval .and. sice >=1.0)sm=0.0 !sea ice has sea -! mask=0 -! GFS flux files have land points with non-zero sea ice, per Iredell, -! these -! points have sea ice changed to zero, i.e., trust land mask more than -! sea ice -! where(sm/=spval .and. sm==0.0)sice=0.0 !specify sea ice=0 at land - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= spval .and. sm(i,j) == 0.0) sice(i,j) = 0.0 - enddo - enddo - - -! PBL height using nemsio - VarName = 'hpbl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pblh) - if(debugprint)print*,'sample ',VarName,' = ',pblh(isa,jsa) - -! frictional velocity using nemsio - VarName='fricv' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ustar) -! if(debugprint)print*,'sample ',VarName,' = ',ustar(isa,jsa) - -! roughness length using getgb - VarName='sfcr' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,z0) -! if(debugprint)print*,'sample ',VarName,' = ',z0(isa,jsa) - -! sfc exchange coeff - VarName='sfexc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,SFCEXC) - -! aerodynamic conductance - VarName='acond' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,acond) - if(debugprint)print*,'sample ',VarName,' = ',acond(isa,jsa) - -! mid day avg albedo - VarName='albdo_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgalbedo) - if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) - do j=jsta,jend - do i=1,im - if (avgalbedo(i,j) /= spval) avgalbedo(i,j) = avgalbedo(i,j) * 0.01 - enddo - enddo - -! surface potential T using getgb - VarName='tmpsfc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ths) - -! where(ths/=spval)ths=ths*(p1000/pint(:,:,lp1))**CAPA ! convert to THS - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (ths(i,j) /= spval) then -! write(0,*)' i=',i,' j=',j,' ths=',ths(i,j),' pint=',pint(i,j,lp1) - ths(i,j) = ths(i,j) * (p1000/pint(i,j,lp1))**capa - endif - QS(i,j) = SPVAL ! GFS does not have surface specific humidity - twbs(i,j) = SPVAL ! GFS does not have inst sensible heat flux - qwbs(i,j) = SPVAL ! GFS does not have inst latent heat flux -!assign sst - if (sm(i,j) /= 0.0) then - sst(i,j) = ths(i,j) * (pint(i,j,lp1)/p1000)**capa - else - sst(i,j) = spval - endif - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',ths(isa,jsa) - -! foundation temperature - VarName='tref' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,fdnsst) - if(debugprint)print*,'sample ',VarName,' = ',fdnsst(isa,jsa) - -! GFS does not have time step and physics time step, make up ones since they -! are not really used anyway -! NPHS=1. -! DT=90. -! DTQ2 = DT * NPHS !MEB need to get physics DT - DTQ2 = DTP !MEB need to get physics DT - NPHS=1 - DT = DTQ2/NPHS !MEB need to get DT - TSPH = 3600./DT - -! convective precip in m per physics time step using getgb -! read 3 hour bucket - VarName='cpratb_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgcprate) -! where(avgcprate /= spval)avgcprate=avgcprate*dtq2/1000. ! convert to m -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcprate(i,j) /= spval) avgcprate(i,j) = avgcprate(i,j) * (dtq2*0.001) - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcprate(isa,jsa) - -! print*,'maxval CPRATE: ', maxval(CPRATE) - -! read continuous bucket - VarName='cprat_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgcprate_cont) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcprate_cont(i,j) /= spval) avgcprate_cont(i,j) = & - avgcprate_cont(i,j) * (dtq2*0.001) - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgcprate_cont(isa,jsa) - -! print*,'maxval CPRATE: ', maxval(CPRATE) - -! precip rate in m per physics time step using getgb - VarName='prateb_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgprec) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if(avgprec(i,j) /= spval)avgprec(i,j)=avgprec(i,j)*(dtq2*0.001) - enddo - enddo - - if(debugprint)print*,'sample ',VarName,' = ',avgprec(isa,jsa) - -! prec = avgprec !set avg cprate to inst one to derive other fields - - VarName='prate_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgprec_cont) -! where(avgprec /= spval)avgprec=avgprec*dtq2/1000. ! convert to m -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgprec_cont(i,j) /=spval)avgprec_cont(i,j)=avgprec_cont(i,j) & - * (dtq2*0.001) - enddo - enddo - - if(debugprint)print*,'sample ',VarName,' = ',avgprec_cont(isa,jsa) -! precip rate in m per physics time step - VarName='tprcp' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,prec) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (prec(i,j) /= spval) prec(i,j)=prec(i,j)* (dtq2*0.001) & - * 1000. / dtp - enddo - enddo - -! convective precip rate in m per physics time step - VarName='cnvprcp' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,cprate) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cprate(i,j) /= spval) then - cprate(i,j) = max(0.,cprate(i,j)) * (dtq2*0.001) & - * 1000. / dtp - else - cprate(i,j) = 0. - endif - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',cprate(isa,jsa) - -! GFS does not have accumulated total, gridscale, and convective precip, will use inst precip to derive in SURFCE.f - -! max hourly 1-km agl reflectivity -! VarName='refdmax' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,refd_max) -! if(debugprint)print*,'sample ',VarName,' = ',refd_max(isa,jsa) -! max hourly -10C reflectivity -! VarName='refdmax263k' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,refdm10c_max) -! if(debugprint)print*,'sample ',VarName,' = ',refdm10c_max(isa,jsa) - -! max hourly u comp of 10m agl wind -! VarName='u10max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,u10max) -! if(debugprint)print*,'sample ',VarName,' = ',u10max(isa,jsa) -! max hourly v comp of 10m agl wind -! VarName='v10max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,v10max) -! if(debugprint)print*,'sample ',VarName,' = ',v10max(isa,jsa) -! max hourly 10m agl wind speed -! VarName='spd10max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,wspd10max) -! if(debugprint)print*,'sample ',VarName,' = ',wspd10max(isa,jsa) - - -! 2m T using nemsio - VarName='tmp2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,tshltr) - if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) - -! inst snow water eqivalent using nemsio - VarName='weasd' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sno) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j)==0.) sno(i,j) = spval - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',sno(isa,jsa) - -! ave snow cover - VarName='snowc_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,snoavg) -! snow cover is multipled by 100 in SURFCE before writing it out - do j=jsta,jend - do i=1,im - if (sm(i,j)==1.0 .and. sice(i,j)==0.) snoavg(i,j)=spval - if(snoavg(i,j)/=spval)snoavg(i,j)=snoavg(i,j)/100. - end do - end do - -! snow depth in mm using nemsio - VarName='snod' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,si) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j)==1.0 .and. sice(i,j)==0.) si(i,j)=spval - if (si(i,j) /= spval) si(i,j) = si(i,j) * 1000.0 - CLDEFI(i,j) = SPVAL ! GFS does not have convective cloud efficiency - lspa(i,j) = spval ! GFS does not have similated precip - TH10(i,j) = SPVAL ! GFS does not have 10 m theta - TH10(i,j) = SPVAL ! GFS does not have 10 m theta - Q10(i,j) = SPVAL ! GFS does not have 10 m humidity - ALBASE(i,j) = SPVAL ! GFS does not have snow free albedo - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',si(isa,jsa) - -! 2m T using nemsio - VarName='tmp2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,tshltr) - if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) - -! GFS does not have 2m pres, estimate it, also convert t to theta - Do j=jsta,jend - Do i=1,im - PSHLTR(I,J)=pint(I,J,lm+1)*EXP(-0.068283/tshltr(i,j)) - tshltr(i,j)= tshltr(i,j)*(p1000/PSHLTR(I,J))**CAPA ! convert to theta -! if (j == jm/2 .and. mod(i,50) == 0) -! + print*,'sample 2m T and P after scatter= ' -! + ,i,j,tshltr(i,j),pshltr(i,j) - end do - end do - -! 2m specific humidity using nemsio - VarName='spfh2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,qshltr) - if(debugprint)print*,'sample ',VarName,' = ',qshltr(isa,jsa) - -! mid day avg albedo in fraction using nemsio -! VarName='albdosfc' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,avgalbedo) -!! where(avgalbedo /= spval)avgalbedo=avgalbedo/100. ! convert to fraction -!!$omp parallel do private(i,j) -! do j=jsta,jend -! do i=1,im -! if (avgalbedo(i,j) /= spval) avgalbedo(i,j) = avgalbedo(i,j) * 0.01 -! enddo -! enddo -! if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) - -! time averaged column cloud fractionusing nemsio - VarName='tcdc_aveclm' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgtcdc) -! where(avgtcdc /= spval)avgtcdc=avgtcdc/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgtcdc(i,j) /= spval) avgtcdc(i,j) = avgtcdc(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgtcdc(isa,jsa) - -! GFS probably does not use zenith angle -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - Czen(i,j) = spval - CZMEAN(i,j) = SPVAL - enddo - enddo - -! maximum snow albedo in fraction using nemsio - VarName='snoalb' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,mxsnal) -! where(mxsnal /= spval)mxsnal=mxsnal/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (mxsnal(i,j) /= spval) mxsnal(i,j) = mxsnal(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',mxsnal(isa,jsa) - -! land fraction - VarName='lfrac' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,landfrac) - -! GFS probably does not use sigt4, set it to sig*t^4 -!$omp parallel do private(i,j,tlmh) - Do j=jsta,jend - Do i=1,im - TLMH = T(I,J,LM) * T(I,J,LM) - Sigt4(i,j) = 5.67E-8 * TLMH * TLMH - End do - End do - -! TG is not used, skip it for now - -! GFS does not have inst cloud fraction for high, middle, and low cloud -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - cfrach(i,j) = spval - cfracl(i,j) = spval - cfracm(i,j) = spval - enddo - enddo - -! ave high cloud fraction using nemsio - VarName='tcdc_avehcl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgcfrach) -! where(avgcfrach /= spval)avgcfrach=avgcfrach/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfrach(i,j) /= spval) avgcfrach(i,j) = avgcfrach(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgcfrach(isa,jsa) - -! ave low cloud fraction using nemsio - VarName='tcdc_avelcl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgcfracl) -! where(avgcfracl /= spval)avgcfracl=avgcfracl/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfracl(i,j) /= spval) avgcfracl(i,j) = avgcfracl(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgcfracl(isa,jsa) - -! ave middle cloud fraction using nemsio - VarName='tcdc_avemcl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgcfracm) -! where(avgcfracm /= spval)avgcfracm=avgcfracm/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgcfracm(i,j) /= spval) avgcfracm(i,j) = avgcfracm(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgcfracm(isa,jsa) - -! inst convective cloud fraction using nemsio - VarName='tcdccnvcl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,cnvcfr) -! where(cnvcfr /= spval)cnvcfr=cnvcfr/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cnvcfr(i,j) /= spval) cnvcfr (i,j)= cnvcfr(i,j) * 0.01 - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',cnvcfr(isa,jsa) - -! slope type using nemsio - VarName='sltyp' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,buf) -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - islope(i,j) = nint(buf(i,j)) - else - islope(i,j) = 0 - endif - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',islope(isa,jsa) - -! plant canopy sfc wtr in m - VarName='cnwat' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,cmc) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (cmc(i,j) /= spval) cmc(i,j) = cmc(i,j) * 0.001 - if (sm(i,j) /= 0.0) cmc(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',cmc(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - grnflx(i,j) = spval ! GFS does not have inst ground heat flux - enddo - enddo - -! frozen precip fraction using nemsio - VarName='cpofp' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sr) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if(sr(i,j) /= spval) then -!set range within (0,1) - sr(i,j)=min(1.,max(0.,sr(i,j))) - endif - enddo - enddo - -! sea ice skin temperature - VarName='tisfc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ti) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sice(i,j) == spval .or. sice(i,j) == 0.) ti(i,j)=spval - enddo - enddo - -! vegetation fraction in fraction. using nemsio - VarName='veg' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,vegfrc) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (vegfrc(i,j) /= spval) then - vegfrc(i,j) = vegfrc(i,j) * 0.01 - else - vegfrc(i,j) = 0.0 - endif - enddo - enddo -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) vegfrc(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample ',VarName,' = ',vegfrc(isa,jsa) - -! GFS doesn not yet output soil layer thickness, assign SLDPTH to be the same as nam - - SLDPTH(1) = 0.10 - SLDPTH(2) = 0.3 - SLDPTH(3) = 0.6 - SLDPTH(4) = 1.0 - -! liquid volumetric soil mpisture in fraction using nemsio - VarName='soill1' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sh2o(1,jsta_2l,1)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,1) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,1) - - VarName='soill2' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sh2o(1,jsta_2l,2)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,2) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,2) - - VarName='soill3' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sh2o(1,jsta_2l,3)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,3) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,3) - - VarName='soill4' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sh2o(1,jsta_2l,4)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) sh2o(i,j,4) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,sh2o(isa,jsa,4) - -! volumetric soil moisture using nemsio - VarName='soilw1' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,smc(1,jsta_2l,1)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,1) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,1) - - VarName='soilw2' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,smc(1,jsta_2l,2)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,2) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,2) - - VarName='soilw3' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,smc(1,jsta_2l,3)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,3) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,3) - - VarName='soilw4' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,smc(1,jsta_2l,4)) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smc(i,j,4) = spval - enddo - enddo - if(debugprint)print*,'sample l',VarName,' = ',1,smc(isa,jsa,4) - -! soil temperature using nemsio - VarName='soilt1' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,stc(1,jsta_2l,1)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,1) = spval - !if (sm(i,j) /= 0.0) stc(i,j,1) = spval - enddo - enddo - if(debugprint)print*,'sample l','stc',' = ',1,stc(isa,jsa,1) - - VarName='soilt2' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,stc(1,jsta_2l,2)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,2) = spval - !if (sm(i,j) /= 0.0) stc(i,j,2) = spval - enddo - enddo - if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,2) - - VarName='soilt3' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,stc(1,jsta_2l,3)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,3) = spval - !if (sm(i,j) /= 0.0) stc(i,j,3) = spval - enddo - enddo - if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,3) - - VarName='soilt4' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,stc(1,jsta_2l,4)) -! mask open water areas, combine with sea ice tmp -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) stc(i,j,4) = spval - !if (sm(i,j) /= 0.0) stc(i,j,4) = spval - enddo - enddo - if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,4) - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - acfrcv(i,j) = spval ! GFS does not output time averaged convective and strat cloud fraction, set acfrcv to spval, ncfrcv to 1 - ncfrcv(i,j) = 1.0 - acfrst(i,j) = spval ! GFS does not output time averaged cloud fraction, set acfrst to spval, ncfrst to 1 - ncfrst(i,j) = 1.0 - bgroff(i,j) = spval ! GFS does not have UNDERGROUND RUNOFF - rlwtoa(i,j) = spval ! GFS does not have inst model top outgoing longwave - enddo - enddo -! trdlw(i,j) = 6.0 - ardlw = 1.0 ! GFS incoming sfc longwave has been averaged over 6 hr bucket, set ARDLW to 1 - -! time averaged incoming sfc longwave - VarName='dlwrf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alwin) - -! inst incoming sfc longwave - VarName='dlwrf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,rlwin) - -! time averaged outgoing sfc longwave - VarName='ulwrf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alwout) -! inst outgoing sfc longwave - VarName='ulwrf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,radot) - -! where(alwout /= spval) alwout=-alwout ! CLDRAD puts a minus sign before gribbing -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (alwout(i,j) /= spval) alwout(i,j) = -alwout(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,alwout(isa,jsa) - -! time averaged outgoing model top longwave using gfsio - VarName='ulwrf_avetoa' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alwtoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,alwtoa(isa,jsa) - -! GFS incoming sfc longwave has been averaged, set ARDLW to 1 - ardsw=1.0 -! trdsw=6.0 - -! time averaged incoming sfc shortwave - VarName='dswrf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswin) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswin(isa,jsa) - -! inst incoming sfc shortwave - VarName='dswrf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,rswin) - -! inst incoming clear sky sfc shortwave - VarName='csdlf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,rswinc) - -! time averaged incoming sfc uv-b using getgb - VarName='duvb_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,auvbin) -! if(debugprint)print*,'sample l',VarName,' = ',1,auvbin(isa,jsa) - -! time averaged incoming sfc clear sky uv-b using getgb - VarName='cduvb_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,auvbinc) -! if(debugprint)print*,'sample l',VarName,' = ',1,auvbinc(isa,jsa) - -! time averaged outgoing sfc shortwave using gfsio - VarName='uswrf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswout) -! where(aswout /= spval) aswout=-aswout ! CLDRAD puts a minus sign before gribbing -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (aswout(i,j) /= spval) aswout(i,j) = -aswout(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,aswout(isa,jsa) - -! inst outgoing sfc shortwave using gfsio - VarName='uswrf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,rswout) - -! time averaged model top incoming shortwave - VarName='dswrf_avetoa' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswintoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswintoa(isa,jsa) - -! time averaged model top outgoing shortwave - VarName='uswrf_avetoa' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswtoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswtoa(isa,jsa) - -! time averaged surface sensible heat flux, multiplied by -1 because wrf model flux -! has reversed sign convention using gfsio - VarName='shtfl_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sfcshx) -! where (sfcshx /= spval)sfcshx=-sfcshx -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sfcshx(i,j) /= spval) sfcshx(i,j) = -sfcshx(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcshx(isa,jsa) - -! inst surface sensible heat flux - VarName='shtfl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,twbs) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (twbs(i,j) /= spval) twbs(i,j) = -twbs(i,j) - enddo - enddo - -! GFS surface flux has been averaged, set ASRFC to 1 - asrfc=1.0 -! tsrfc=6.0 - -! time averaged surface latent heat flux, multiplied by -1 because wrf model flux -! has reversed sign vonvention using gfsio - VarName='lhtfl_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sfclhx) -! where (sfclhx /= spval)sfclhx=-sfclhx -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sfclhx(i,j) /= spval) sfclhx(i,j) = -sfclhx(i,j) - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,sfclhx(isa,jsa) - -! inst surface latent heat flux - VarName='lhtfl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,qwbs) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (qwbs(i,j) /= spval) qwbs(i,j) = -qwbs(i,j) - enddo - enddo - - if(me==0)print*,'rdaod= ',rdaod -! inst aod550 optical depth - if(rdaod) then - VarName='aod550' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aod550) - - VarName='du_aod550' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,du_aod550) - - VarName='ss_aod550' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ss_aod550) - - VarName='su_aod550' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,su_aod550) - - VarName='oc_aod550' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,oc_aod550) - - VarName='bc_aod550' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,bc_aod550) - endif !end if rdaod - - -! time averaged ground heat flux using nemsio - VarName='gflux_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,subshx) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) subshx(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,subshx(isa,jsa) - -! inst ground heat flux using nemsio - VarName='gflux' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,grnflx) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) grnflx(i,j) = spval - enddo - enddo - -! time averaged zonal momentum flux using gfsio - VarName='uflx_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sfcux) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcux(isa,jsa) - -! time averaged meridional momentum flux using nemsio - VarName='vflx_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,sfcvx) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcvx(isa,jsa) - -! dong read in inst surface flux -! inst zonal momentum flux using gfsio -! VarName='uflx' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcuxi) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcuxi(isa,jsa) - -! inst meridional momentum flux using nemsio -! VarName='vflx' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,sfcvxi) -! if(debugprint)print*,'sample l',VarName,' = ',1,sfcvxi(isa,jsa) - - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - sfcuvx(i,j) = spval ! GFS does not use total momentum flux - enddo - enddo - -! time averaged zonal gravity wave stress using nemsio - VarName='u-gwd_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,gtaux) -! if(debugprint)print*,'sample l',VarName,' = ',1,gtaux(isa,jsa) - -! time averaged meridional gravity wave stress using getgb - VarName='v-gwd_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,gtauy) -! if(debugprint)print*,'sample l',VarName,' = ',1,gtauy(isa,jsa) - -! time averaged accumulated potential evaporation - VarName='pevpr_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgpotevp) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) avgpotevp(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,potevp(isa,jsa) - -! inst potential evaporation - VarName='pevpr' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,potevp) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) == 1.0 .and. sice(i,j) ==0.) potevp(i,j) = spval - enddo - enddo - - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im -! GFS does not have temperature tendency due to long wave radiation - rlwtt(i,j,l) = spval -! GFS does not have temperature tendency due to short wave radiation - rswtt(i,j,l) = spval -! GFS does not have temperature tendency due to latent heating from convection - tcucn(i,j,l) = spval - tcucns(i,j,l) = spval -! GFS does not have temperature tendency due to latent heating from grid scale - train(i,j,l) = spval - enddo - enddo - enddo - -! set avrain to 1 - avrain=1.0 - avcnvc=1.0 - theat=6.0 ! just in case GFS decides to output T tendency - -! 10 m u using nemsio - VarName='ugrd10m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,u10) - - do j=jsta,jend - do i=1,im - u10h(i,j)=u10(i,j) - end do - end do -! if(debugprint)print*,'sample l',VarName,' = ',1,u10(isa,jsa) - -! 10 m v using gfsio - VarName='vgrd10m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,v10) - - do j=jsta,jend - do i=1,im - v10h(i,j)=v10(i,j) - end do - end do -! if(debugprint)print*,'sample l',VarName,' = ',1,v10(isa,jsa) - -! vegetation type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='vtype' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,buf) -! where (buf /= spval) -! ivgtyp=nint(buf) -! elsewhere -! ivgtyp=0 !need to feed reasonable value to crtm -! end where -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - ivgtyp(i,j) = nint(buf(i,j)) - else - ivgtyp(i,j) = 0 - endif - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,ivgtyp(isa,jsa) - -! soil type, it's in GFS surface file, hopefully will merge into gfsio soon - VarName='sotyp' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,buf) -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (buf(i,j) < spval) then - isltyp(i,j) = nint(buf(i,j)) - else - isltyp(i,j) = 0 !need to feed reasonable value to crtm - endif - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,isltyp(isa,jsa) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - smstav(i,j) = spval ! GFS does not have soil moisture availability -! smstot(i,j) = spval ! GFS does not have total soil moisture - sfcevp(i,j) = spval ! GFS does not have accumulated surface evaporation - acsnow(i,j) = spval ! GFS does not have averaged accumulated snow - acsnom(i,j) = spval ! GFS does not have snow melt -! sst(i,j) = spval ! GFS does not have sst???? - thz0(i,j) = ths(i,j) ! GFS does not have THZ0, use THS to substitute - qz0(i,j) = spval ! GFS does not output humidity at roughness length - uz0(i,j) = spval ! GFS does not output u at roughness length - vz0(i,j) = spval ! GFS does not output humidity at roughness length - enddo - enddo - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - EL_PBL(i,j,l) = spval ! GFS does not have mixing length - exch_h(i,j,l) = spval ! GFS does not output exchange coefficient - enddo - enddo - enddo -! if(debugprint)print*,'sample l',VarName,' = ',1,thz0(isa,jsa) - -! retrieve inst convective cloud top, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index -! VarName='pres' -! VcoordName='convect-cld top' -! l=1 -! if(debugprint)print*,'sample l',VarName,' = ',1,ptop(isa,jsa) - VarName='prescnvclt' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ptop) - - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - htop(i,j) = spval - if(ptop(i,j) <= 0.0) ptop(i,j) = spval - enddo - enddo - do j=jsta,jend - do i=1,im - if(ptop(i,j) < spval)then - do l=1,lm - if(ptop(i,j) <= pmid(i,j,l))then - htop(i,j) = l -! if(i==ii .and. j==jj)print*,'sample ptop,pmid pmid-1,pint= ', & -! ptop(i,j),pmid(i,j,l),pmid(i,j,l-1),pint(i,j,l),htop(i,j) - exit - end if - end do - end if - end do - end do - -! retrieve inst convective cloud bottom, GFS has cloud top pressure instead of index, -! will need to modify CLDRAD.f to use pressure directly instead of index - VarName='prescnvclb' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pbot) -! if(debugprint)print*,'sample l',VarName,VcoordName,' = ',1,pbot(isa,jsa) -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - hbot(i,j) = spval - if(pbot(i,j) <= 0.0) pbot(i,j) = spval - enddo - enddo - do j=jsta,jend - do i=1,im -! if(.not.lb(i,j))print*,'false bitmask for pbot at ' -! + ,i,j,pbot(i,j) - if(pbot(i,j) < spval)then - do l=lm,1,-1 - if(pbot(i,j) >= pmid(i,j,l)) then - hbot(i,j) = l -! if(i==ii .and. j==jj)print*,'sample pbot,pmid= ', & -! pbot(i,j),pmid(i,j,l),hbot(i,j) - exit - end if - end do - end if - end do - end do - if(debugprint)print*,'sample hbot = ',hbot(isa,jsa) -! retrieve time averaged low cloud top pressure using nemsio - VarName='pres_avelct' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ptopl) -! if(debugprint)print*,'sample l',VarName,' = ',1,ptopl(isa,jsa) - -! retrieve time averaged low cloud bottom pressure using nemsio - VarName='pres_avelcb' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pbotl) -! if(debugprint)print*,'sample l',VarName,' = ',1,pbotl(isa,jsa) - -! retrieve time averaged low cloud top temperature using nemsio - VarName='tmp_avelct' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,Ttopl) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopl(isa,jsa) - -! retrieve time averaged middle cloud top pressure using nemsio - VarName='pres_avemct' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ptopm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptopm(isa,jsa) - -! retrieve time averaged middle cloud bottom pressure using nemsio - VarName='pres_avemcb' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pbotm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pbotm(isa,jsa) - -! retrieve time averaged middle cloud top temperature using nemsio - VarName='tmp_avemct' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,Ttopm) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopm(isa,jsa) - -! retrieve time averaged high cloud top pressure using nemsio ********* - VarName='pres_avehct' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ptoph) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptoph(isa,jsa) - -! retrieve time averaged high cloud bottom pressure using nemsio - VarName='pres_avehcb' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pboth) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pboth(isa,jsa) - -! retrieve time averaged high cloud top temperature using nemsio - VarName='tmp_avehct' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,Ttoph) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttoph(isa,jsa) - -! retrieve boundary layer cloud cover using nemsio - VarName='tcdc_avebndcl' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pblcfr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,pblcfr(isa,jsa) -! where (pblcfr /= spval)pblcfr=pblcfr/100. ! convert to fraction -!$omp parallel do private(i,j) - do j = jsta_2l, jend_2u - do i=1,im - if (pblcfr(i,j) < spval) pblcfr(i,j) = pblcfr(i,j) * 0.01 - enddo - enddo - -! retrieve cloud work function - VarName='cwork_aveclm' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,cldwork) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,cldwork(isa,jsa) - -! accumulated total (base+surface) runoff - VarName='watr_acc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,runoff) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) runoff(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,runoff(isa,jsa) - -! accumulated evaporation of intercepted water - VarName='ecan_acc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,tecan) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) tecan(i,j) = spval - enddo - enddo - -! accumulated plant transpiration - VarName='etran_acc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,tetran) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) tetran(i,j) = spval - enddo - enddo - -! accumulated soil surface evaporation - VarName='edir_acc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,tedir) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) tedir(i,j) = spval - enddo - enddo - -! total water storage in aquifer - VarName='wa_acc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,twa) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) twa(i,j) = spval - enddo - enddo - -! retrieve shelter max temperature using nemsio - VarName='tmax_max2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,maxtshltr) - -! retrieve shelter min temperature using nemsio - VarName='tmin_min2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,mintshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & -! 1,mintshltr(im/2,(jsta+jend)/2) - -! retrieve shelter max RH -! VarName='rh02max' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,maxrhshltr) - -! retrieve shelter min temperature using nemsio -! VarName='rh02min' -! call read_netcdf_2d_scatter(me,ncid2d,1,im,jm,jsta,jsta_2l & -! ,jend_2u,MPI_COMM_COMP,icnt,idsp,spval,VarName,minrhshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & -! 1,mintshltr(im/2,(jsta+jend)/2) - -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - MAXRHSHLTR(i,j) = SPVAL - MINRHSHLTR(i,j) = SPVAL - enddo - enddo - -! retrieve ice thickness using nemsio - VarName='icetk' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,dzice) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,dzice(isa,jsa) - -! retrieve wilting point using nemsio - VarName='wilt' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,smcwlt) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smcwlt(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,smcwlt(isa,jsa) - -! retrieve sunshine duration using nemsio - VarName='sunsd_acc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,suntime) - -! retrieve field capacity using nemsio - VarName='fldcp' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,fieldcapa) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) fieldcapa(i,j) = spval - enddo - enddo -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,fieldcapa(isa,jsa) - -! retrieve time averaged surface visible beam downward solar flux - VarName='vbdsf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avisbeamswin) - l=1 - -! retrieve time averaged surface visible diffuse downward solar flux - VarName='vddsf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avisdiffswin) - -! retrieve time averaged surface near IR beam downward solar flux - VarName='nbdsf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,airbeamswin) - -! retrieve time averaged surface near IR diffuse downward solar flux - VarName='nddsf_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,airdiffswin) - -! retrieve time averaged surface clear sky outgoing LW - VarName='csulf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alwoutc) - -! retrieve time averaged TOA clear sky outgoing LW - VarName='csulftoa' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alwtoac) - -! retrieve time averaged surface clear sky outgoing SW - VarName='csusf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswoutc) - -! retrieve time averaged TOA clear sky outgoing LW - VarName='csusftoa' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswtoac) - -! retrieve time averaged surface clear sky incoming LW - VarName='csdlf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alwinc) - -! retrieve time averaged surface clear sky incoming SW - VarName='csdsf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswinc) - -! retrieve shelter max specific humidity using nemsio - VarName='spfhmax_max2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,maxqshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', -! 1,maxqshltr(isa,jsa) - -! retrieve shelter min temperature using nemsio - VarName='spfhmin_min2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,minqshltr) - -! retrieve storm runoff using nemsio - VarName='ssrun_acc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,SSROFF) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) ssroff(i,j) = spval - enddo - enddo - -! retrieve direct soil evaporation - VarName='evbs_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgedir) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) avgedir(i,j) = spval - enddo - enddo - -! retrieve CANOPY WATER EVAP - VarName='evcw_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgecan) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) avgecan(i,j) = spval - enddo - enddo - -! retrieve AVERAGED PRECIP ADVECTED HEAT FLUX - VarName='pah_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,paha) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) paha(i,j) = spval - enddo - enddo - -! retrieve nstantaneous PRECIP ADVECTED HEAT FLUX - VarName='pahi' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pahi) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) pahi(i,j) = spval - enddo - enddo - -! retrieve PLANT TRANSPIRATION - VarName='trans_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgetrans) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) avgetrans(i,j) = spval - enddo - enddo - -! retrieve snow sublimation - VarName='sbsno_ave' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgesnow) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j)==1.0 .and. sice(i,j)==0.) avgesnow(i,j)=spval - enddo - enddo - -! retrive total soil moisture - VarName='soilm' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,smstot) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) smstot(i,j) = spval - enddo - enddo - -! retrieve snow phase change heat flux - VarName='snohf' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,snopcx) -! mask water areas -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (sm(i,j) /= 0.0) snopcx(i,j) = spval - enddo - enddo - -! GFS does not have deep convective cloud top and bottom fields - -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - HTOPD(i,j) = SPVAL - HBOTD(i,j) = SPVAL - HTOPS(i,j) = SPVAL - HBOTS(i,j) = SPVAL - CUPPT(i,j) = SPVAL - enddo - enddo - -! done with flux file, close it for now - Status=nf90_close(ncid2d) -! deallocate(tmp,recname,reclevtyp,reclev) - -! pos east -! call collect_loc(gdlat,dummy) -! if(me == 0)then -! latstart = nint(dummy(1,1)*gdsdegr) -! latlast = nint(dummy(im,jm)*gdsdegr) -! print*,'laststart,latlast B bcast= ',latstart,latlast,'gdsdegr=',gdsdegr,& -! 'dummy(1,1)=',dummy(1,1),dummy(im,jm),'gdlat=',gdlat(1,1) -! end if -! call mpi_bcast(latstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) -! call mpi_bcast(latlast,1,MPI_INTEGER,0,mpi_comm_comp,irtn) -! write(6,*) 'laststart,latlast,me A calling bcast=',latstart,latlast,me -! call collect_loc(gdlon,dummy) -! if(me == 0)then -! lonstart = nint(dummy(1,1)*gdsdegr) -! lonlast = nint(dummy(im,jm)*gdsdegr) -! end if -! call mpi_bcast(lonstart,1,MPI_INTEGER,0,mpi_comm_comp,irtn) -! call mpi_bcast(lonlast, 1,MPI_INTEGER,0,mpi_comm_comp,irtn) - -! write(6,*)'lonstart,lonlast A calling bcast=',lonstart,lonlast -! - -! generate look up table for lifted parcel calculations - - THL = 210. - PLQ = 70000. - pt_TBL = 10000. ! this is for 100 hPa added by Moorthi - - CALL TABLE(PTBL,TTBL,PT_TBL, & - RDQ,RDTH,RDP,RDTHE,PL,THL,QS0,SQS,STHE,THE0) - - CALL TABLEQ(TTBLQ,RDPQ,RDTHEQ,PLQ,THL,STHEQ,THE0Q) - -! -! - IF(ME == 0)THEN - WRITE(6,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' - WRITE(6,51) (SPL(L),L=1,LSM) - 50 FORMAT(14(F4.1,1X)) - 51 FORMAT(8(F8.1,1X)) - ENDIF -! -!$omp parallel do private(l) - DO L = 1,LSM - ALSL(L) = LOG(SPL(L)) - END DO -! -!HC WRITE IGDS OUT FOR WEIGHTMAKER TO READ IN AS KGDSIN - if(me == 0)then - print*,'writing out igds' - igdout = 110 -! open(igdout,file='griddef.out',form='unformatted' -! + ,status='unknown') - if(maptype == 1)THEN ! Lambert conformal - WRITE(igdout)3 - WRITE(6,*)'igd(1)=',3 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ELSE IF(MAPTYPE == 2)THEN !Polar stereographic - WRITE(igdout)5 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)TRUELAT2 !Assume projection at +-90 - WRITE(igdout)TRUELAT1 - WRITE(igdout)255 - ! Note: The calculation of the map scale factor at the standard - ! lat/lon and the PSMAPF - ! Get map factor at 60 degrees (N or S) for PS projection, which will - ! be needed to correctly define the DX and DY values in the GRIB GDS - if (TRUELAT1 < 0.) THEN - LAT = -60. - else - LAT = 60. - end if - - CALL MSFPS (LAT,TRUELAT1*0.001,PSMAPF) - - ELSE IF(MAPTYPE == 3) THEN !Mercator - WRITE(igdout)1 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)8 - WRITE(igdout)latlast - WRITE(igdout)lonlast - WRITE(igdout)TRUELAT1 - WRITE(igdout)0 - WRITE(igdout)64 - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)255 - ELSE IF(MAPTYPE == 0 .OR. MAPTYPE == 203)THEN !A STAGGERED E-GRID - WRITE(igdout)203 - WRITE(igdout)im - WRITE(igdout)jm - WRITE(igdout)LATSTART - WRITE(igdout)LONSTART - WRITE(igdout)136 - WRITE(igdout)CENLAT - WRITE(igdout)CENLON - WRITE(igdout)DXVAL - WRITE(igdout)DYVAL - WRITE(igdout)64 - WRITE(igdout)0 - WRITE(igdout)0 - WRITE(igdout)0 - END IF - end if -! -! - - RETURN - END - - subroutine read_netcdf_3d_para(ncid,im,jm,jsta,jsta_2l,jend,jend_2u, & - spval,varname,buf,lm) - - use netcdf - use ctlblk_mod, only : me - use params_mod, only : small - implicit none - INCLUDE "mpif.h" - - character(len=20),intent(in) :: varname - real,intent(in) :: spval - integer,intent(in) :: ncid,im,jm,lm,jsta_2l,jend_2u,jsta,jend - real,intent(out) :: buf(im,jsta_2l:jend_2u,lm) - integer :: varid,iret,jj,i,j,l,kk - integer :: start(3), count(3), stride(3) - real,parameter :: spval_netcdf=9.99e+20 - real :: fill_value - - iret = nf90_inq_varid(ncid,trim(varname),varid) - if (iret /= 0) then - if (me == 0) print*,VarName," not found -Assigned missing values" -!$omp parallel do private(i,j,l) - do l=1,lm - do j=jsta,jend - do i=1,im - buf(i,j,l)=spval - enddo - enddo - enddo - else - iret = nf90_get_att(ncid,varid,"_FillValue",fill_value) - if (iret /= 0) fill_value = spval_netcdf - start = (/1,jsta,1/) - jj=jend-jsta+1 - count = (/im,jj,lm/) - iret = nf90_get_var(ncid,varid,buf(1:im,jsta:jend,1:lm),start=start,count=count) - do l=1,lm - do j=jsta,jend - do i=1,im - if(abs(buf(i,j,l)-fill_value) con_g, fv => con_fvirt, rgas => con_rd, & @@ -80,7 +84,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ardsw, asrfc, avrain, avcnvc, theat, gdsdegr, spl, lsm, alsl, im, jm, im_jm, lm, & jsta_2l, jend_2u, nsoil, lp1, icu_physics, ivegsrc, novegtype, nbin_ss, nbin_bc, & nbin_oc, nbin_su, gocart_on, pt_tbl, hyb_sigp, filenameFlux, fileNameAER, & - iSF_SURFACE_PHYSICS,rdaod, aqfcmaq_on + iSF_SURFACE_PHYSICS,rdaod, aqfcmaq_on, modelname use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r, STANDLON @@ -160,7 +164,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) real, allocatable :: wrk1(:,:), wrk2(:,:) real, allocatable :: p2d(:,:), t2d(:,:), q2d(:,:), & qs2d(:,:), cw2d(:,:), cfr2d(:,:) - real(kind=4),allocatable :: vcoord4(:,:,:) real, dimension(lm+1) :: ak5, bk5 real*8, allocatable :: pm2d(:,:), pi2d(:,:) real, allocatable :: tmp(:) @@ -382,7 +385,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) !$omp parallel do private(i,j) do j = jsta_2l, jend_2u - do i=1,im + do i= 1, im buf(i,j) = spval enddo enddo @@ -617,9 +620,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) end if STANDLON = cenlon - print*,'lonstart,latstart,cenlon,cenlat,truelat1,truelat2,stadlon,dyval,dxval', & + print*,'lonstart,latstart,cenlon,cenlat,truelat1,truelat2, & + stadlon,dyval,dxval', & lonstart,latstart,cenlon,cenlat,truelat1,truelat2,standlon,dyval,dxval + else if(trim(varcharval)=='gaussian')then + MAPTYPE=4 + idrt=4 else ! setting default maptype MAPTYPE=0 idrt=0 @@ -677,7 +684,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! write(0,*)'nrec=',nrec !allocate(recname(nrec),reclevtyp(nrec),reclev(nrec)) allocate(glat1d(jm),glon1d(im)) - allocate(vcoord4(lm+1,3,2)) ! hardwire idate for now ! idate=(/2017,08,07,00,0,0,0,0/) @@ -712,7 +718,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! Jili Dong check output format for coordinate reading Status=nf90_inq_varid(ncid3d,'grid_xt',varid) Status=nf90_inquire_variable(ncid3d,varid,ndims = numDims) - if(numDims==1) then + if(numDims==1.and.modelname=="FV3R") then read_lonlat=.true. else read_lonlat=.false. @@ -836,7 +842,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'me sample gdlon gdlat= ' & ,me,gdlon(isa,jsa),gdlat(isa,jsa) -! Specigy grid staggering type +! Specify grid staggering type gridtype = 'A' maptype=idrt if (me == 0) print *, 'maptype and gridtype is ', & @@ -859,21 +865,11 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) end if end if -! -! if (hyb_sigp) then -! do l=1,lm+1 -! ak5(l) = vcoord4(l,1,1) -! bk5(l) = vcoord4(l,2,1) -! enddo -! endif - -!--Fanglin Yang: nemsio file created from FV3 does not have vcoord. -! if ( minval(ak5) <0 .or. minval(bk5) <0 ) then deallocate(glat1d,glon1d) print*,'idate = ',(idate(i),i=1,7) - print*,'nfhour = ',nfhour +! print*,'nfhour = ',nfhour ! sample print point ii = im/2 @@ -1013,8 +1009,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) spval,recname(13),qqs(1,jsta_2l,1),lm) call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & spval,recname(14),qqg(1,jsta_2l,1),lm) -!wm call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & -!wm spval,recname(15),cfr(1,jsta_2l,1),lm) ! calculate CWM from FV3 output do l=1,lm @@ -1030,6 +1024,21 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) cwm(isa,jsa,l) end do +! instantaneous 3D cloud fraction + if ( imp_physics==11) then !GFDL MP + VarName='cld_amt' + call read_netcdf_3d_para(ncid3d,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cfr(1,jsta_2l,1),lm) + else + VarName='cldfra' + call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cfr(1,jsta_2l,1),lm) + endif +! do l=1,lm +! if(debugprint)print*,'sample ',VarName,'isa,jsa,l =' & +! ,cfr(isa,jsa,l),isa,jsa,l +! enddo + !============================= ! For AQF Chemical species !============================= @@ -1515,12 +1524,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) endif ! -- aqfcmaq_on !============================ +! read for regional FV3 + if (modelname == 'FV3R') then ! max hourly updraft velocity VarName='upvvelmax' call read_netcdf_2d_para(ncid3d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,w_up_max) if(debugprint)print*,'sample ',VarName,' = ',w_up_max(isa,jsa) - ! max hourly downdraft velocity VarName='dnvvelmax' call read_netcdf_2d_para(ncid3d,im,jsta,jsta_2l,jend,jend_2u, & @@ -1562,6 +1572,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_2d_para(ncid3d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,rel_vort_maxhy1) if(debugprint)print*,'sample ',VarName,' =',rel_vort_maxhy1(isa,jsa) + endif + ! surface pressure VarName='pressfc' call read_netcdf_2d_para(ncid3d,im,jsta,jsta_2l,jend,jend_2u, & @@ -1666,10 +1678,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) end do - pt = ak5(1) - - - deallocate (vcoord4) !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! @@ -1697,23 +1705,16 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) end if if (me == 0) print*,'novegtype= ',novegtype - Status=nf90_get_att(ncid2d,nf90_global,'imp_physics',imp_physics) - if (Status /= 0) then - print*,VarName,' not found-Assigned 11 GFDL as default' - imp_physics=11 - end if - if (me == 0) print*,'MP_PHYSICS= ',imp_physics -! Status=nf90_get_att(ncid2d,nf90_global,'fhzero',fhzero) if (Status /= 0) then - print*,VarName,' not found-Assigned 3 hours as default' + print*,'fhzero not found-Assigned 3 hours as default' fhzero=3 end if if (me == 0) print*,'fhzero= ',fhzero ! Status=nf90_get_att(ncid2d,nf90_global,'dtp',dtp) if (Status /= 0) then - print*,VarName,' not found-Assigned 90s as default' + print*,'dtp not found-Assigned 90s as default' dtp=90 end if if (me == 0) print*,'dtp= ',dtp @@ -1733,15 +1734,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) print*,'tprec = ',tprec -! instantaneous 3D cloud fraction - VarName='cldfra' - call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,cfr(1,jsta_2l,1),lm) -! do l=1,lm -! if(debugprint)print*,'sample ',VarName,'isa,jsa,l =' & -! ,cfr(isa,jsa,l),isa,jsa,l -! enddo - VarName='refl_10cm' call read_netcdf_3d_para(ncid2d,im,jm,jsta,jsta_2l,jend,jend_2u, & spval,VarName,REF_10CM(1,jsta_2l,1),lm) @@ -1839,12 +1831,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) VarName='albdo_ave' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,avgalbedo) - if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) +!$omp parallel do private(i,j) do j=jsta,jend do i=1,im if (avgalbedo(i,j) /= spval) avgalbedo(i,j) = avgalbedo(i,j) * 0.01 enddo enddo + if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) ! surface potential T using getgb VarName='tmpsfc' @@ -1877,6 +1870,12 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) enddo if(debugprint)print*,'sample ',VarName,' = ',ths(isa,jsa) +! foundation temperature + VarName='tref' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,fdnsst) + if(debugprint)print*,'sample ',VarName,' = ',fdnsst(isa,jsa) + ! GFS does not have time step and physics time step, make up ones since they ! are not really used anyway @@ -1960,11 +1959,18 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) enddo ! convective precip rate in m per physics time step -! VarName='cnvprcp' + VarName='cnvprcp' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cprate) !set cprate as 0. do j=jsta,jend do i=1,im - cprate(i,j) = 0. + if (cprate(i,j) /= spval) then + cprate(i,j) = max(0.,cprate(i,j)) * (dtq2*0.001) & + * 1000. / dtp + else + cprate(i,j) = 0. + endif enddo enddo @@ -2002,13 +2008,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) spval,VarName,wspd10max) if(debugprint)print*,'sample ',VarName,' = ',wspd10max(isa,jsa) - -! 2m T using nemsio - VarName='tmp2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,tshltr) - if(debugprint)print*,'sample ',VarName,' = ',tshltr(isa,jsa) - ! inst snow water eqivalent using nemsio VarName='weasd' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & @@ -2076,19 +2075,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) spval,VarName,qshltr) if(debugprint)print*,'sample ',VarName,' = ',qshltr(isa,jsa) -! mid day avg albedo in fraction using nemsio - VarName='albdosfc' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,avgalbedo) -! where(avgalbedo /= spval)avgalbedo=avgalbedo/100. ! convert to fraction -!$omp parallel do private(i,j) - do j=jsta,jend - do i=1,im - if (avgalbedo(i,j) /= spval) avgalbedo(i,j) = avgalbedo(i,j) * 0.01 - enddo - enddo - if(debugprint)print*,'sample ',VarName,' = ',avgalbedo(isa,jsa) - ! time averaged column cloud fractionusing nemsio VarName='tcdc_aveclm' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & @@ -2115,14 +2101,11 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) VarName='snoalb' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,mxsnal) -! where(mxsnal /= spval)mxsnal=mxsnal/100. ! convert to fraction -!!$omp parallel do private(i,j) -! do j=jsta,jend -! do i=1,im -! if (mxsnal(i,j) /= spval) mxsnal(i,j) = mxsnal(i,j) * 0.01 -! enddo -! enddo -! if(debugprint)print*,'sample ',VarName,' = ',mxsnal(isa,jsa) + +! land fraction + VarName='lfrac' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,landfrac) ! GFS probably does not use sigt4, set it to sig*t^4 !$omp parallel do private(i,j,tlmh) @@ -2652,12 +2635,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,rswin) -! time averaged model top incoming shortwave - VarName='dswrf_avetoa' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aswintoa) -! if(debugprint)print*,'sample l',VarName,' = ',1,aswintoa(isa,jsa) - ! inst incoming clear sky sfc shortwave ! FV3 do not output instant incoming clear sky sfc shortwave !$omp parallel do private(i,j) @@ -2697,6 +2674,12 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,rswout) +! time averaged model top incoming shortwave + VarName='dswrf_avetoa' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aswintoa) +! if(debugprint)print*,'sample l',VarName,' = ',1,aswintoa(isa,jsa) + ! time averaged model top outgoing shortwave VarName='uswrf_avetoa' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & @@ -3054,63 +3037,63 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) end do if(debugprint)print*,'sample hbot = ',hbot(isa,jsa) ! retrieve time averaged low cloud top pressure using nemsio - VarName='pres_ave' - VcoordName='low cld top' - l=1 + VarName='pres_avelct' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ptopl) ! if(debugprint)print*,'sample l',VarName,' = ',1,ptopl(isa,jsa) ! retrieve time averaged low cloud bottom pressure using nemsio - VarName='pres_ave' - VcoordName='low cld bot' - l=1 + VarName='pres_avelcb' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pbotl) ! if(debugprint)print*,'sample l',VarName,' = ',1,pbotl(isa,jsa) ! retrieve time averaged low cloud top temperature using nemsio - VarName='tmp_ave' - VcoordName='low cld top' - l=1 + VarName='tmp_avelct' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,Ttopl) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopl(isa,jsa) ! retrieve time averaged middle cloud top pressure using nemsio - VarName='pres_ave' - VcoordName='mid cld top' - l=1 + VarName='pres_avemct' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ptopm) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptopm(isa,jsa) ! retrieve time averaged middle cloud bottom pressure using nemsio - VarName='pres_ave' - VcoordName='mid cld bot' - l=1 + VarName='pres_avemcb' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pbotm) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pbotm(isa,jsa) ! retrieve time averaged middle cloud top temperature using nemsio - VarName='tmp_ave' - VcoordName='mid cld top' - l=1 + VarName='tmp_avemct' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,Ttopm) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttopm(isa,jsa) ! retrieve time averaged high cloud top pressure using nemsio ********* - VarName='pres_ave' - VcoordName='high cld top' - l=1 + VarName='pres_avehct' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ptoph) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,ptoph(isa,jsa) ! retrieve time averaged high cloud bottom pressure using nemsio - VarName='pres_ave' - VcoordName='high cld bot' - l=1 + VarName='pres_avehcb' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pboth) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,pboth(isa,jsa) ! retrieve time averaged high cloud top temperature using nemsio - VarName='tmp_ave' - VcoordName='high cld top' - l=1 + VarName='tmp_avehct' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,Ttoph) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ',1,Ttoph(isa,jsa) ! retrieve boundary layer cloud cover using nemsio VarName='tcdc_avebndcl' - VcoordName='bndary-layer cld' - l=1 + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pblcfr) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,pblcfr(isa,jsa) ! where (pblcfr /= spval)pblcfr=pblcfr/100. ! convert to fraction !$omp parallel do private(i,j) @@ -3121,7 +3104,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) enddo ! retrieve cloud work function - VarName='cwork_ave' + VarName='cwork_aveclm' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,cldwork) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,cldwork(isa,jsa) @@ -3137,15 +3120,65 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if (sm(i,j) /= 0.0) runoff(i,j) = spval enddo enddo + +! total water storage in aquifer + VarName='wa_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,twa) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) twa(i,j) = spval + enddo + enddo ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', 1,runoff(isa,jsa) - + +! accumulated evaporation of intercepted water + VarName='ecan_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tecan) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) tecan(i,j) = spval + enddo + enddo + +! accumulated plant transpiration + VarName='etran_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tetran) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) tetran(i,j) = spval + enddo + enddo + +! accumulated soil surface evaporation + VarName='edir_acc' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,tedir) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) tedir(i,j) = spval + enddo + enddo + ! retrieve shelter max temperature using nemsio VarName='t02max' + if(modelname=='GFS') VarName='tmax_max2m' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,maxtshltr) ! retrieve shelter min temperature using nemsio VarName='t02min' + if(modelname=='GFS') VarName='tmin_min2m' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,mintshltr) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & @@ -3162,15 +3195,19 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) spval,VarName,minrhshltr) ! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', & ! 1,mintshltr(im/2,(jsta+jend)/2) + +! retrieve shelter max specific humidity using nemsio + VarName='spfhmax_max2m' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,maxqshltr) +! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', +! 1,maxqshltr(isa,jsa) + +! retrieve shelter min temperature using nemsio + VarName='spfhmin_min2m' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,minqshltr) -!!$omp parallel do private(i,j) -! do j=jsta_2l,jend_2u -! do i=1,im -! MAXRHSHLTR(i,j) = SPVAL -! MINRHSHLTR(i,j) = SPVAL -! enddo -! enddo - ! retrieve ice thickness using nemsio VarName='icetk' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & @@ -3260,18 +3297,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & spval,VarName,aswinc) -! retrieve shelter max specific humidity using nemsio - VarName='spfhmax_max2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,maxqshltr) -! if(debugprint)print*,'sample l',VcoordName,VarName,' = ', -! 1,maxqshltr(isa,jsa) - -! retrieve shelter min temperature using nemsio - VarName='spfhmin_min2m' - call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,minqshltr) - ! retrieve storm runoff using nemsio VarName='ssrun_acc' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & @@ -3308,6 +3333,30 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) enddo enddo +! retrieve AVERAGED PRECIP ADVECTED HEAT FLUX + VarName='pah_ave' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,paha) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) paha(i,j) = spval + enddo + enddo + +! retrieve instantaneous PRECIP ADVECTED HEAT FLUX + VarName='pahi' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pahi) +! mask water areas +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + if (sm(i,j) /= 0.0) pahi(i,j) = spval + enddo + enddo + ! retrieve PLANT TRANSPIRATION VarName='trans_ave' call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & @@ -3355,6 +3404,11 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if (sm(i,j) /= 0.0) snopcx(i,j) = spval enddo enddo + +! retrieve pwater + VarName='pwat' + call read_netcdf_2d_para(ncid2d,im,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,pwat) ! GFS does not have deep convective cloud top and bottom fields @@ -3613,3 +3667,93 @@ subroutine read_netcdf_2d_scatter(me,ncid,ifhr,im,jm,jsta,jsta_2l & ,buf(1,jsta),icnt(me),mpi_real,0,MPI_COMM_COMP,iret) end subroutine read_netcdf_2d_scatter + + subroutine read_netcdf_3d_para(ncid,im,jm,jsta,jsta_2l,jend,jend_2u, & + spval,varname,buf,lm) + + use netcdf + use ctlblk_mod, only : me + use params_mod, only : small + implicit none + INCLUDE "mpif.h" + + character(len=20),intent(in) :: varname + real,intent(in) :: spval + integer,intent(in) :: ncid,im,jm,lm,jsta_2l,jend_2u,jsta,jend + real,intent(out) :: buf(im,jsta_2l:jend_2u,lm) + integer :: varid,iret,jj,i,j,l,kk + integer :: start(3), count(3), stride(3) + real,parameter :: spval_netcdf=9.99e+20 + real :: fill_value + + iret = nf90_inq_varid(ncid,trim(varname),varid) + if (iret /= 0) then + if (me == 0) print*,VarName," not found -Assigned missing values" +!$omp parallel do private(i,j,l) + do l=1,lm + do j=jsta,jend + do i=1,im + buf(i,j,l)=spval + enddo + enddo + enddo + else + iret = nf90_get_att(ncid,varid,"_FillValue",fill_value) + if (iret /= 0) fill_value = spval_netcdf + start = (/1,jsta,1/) + jj=jend-jsta+1 + count = (/im,jj,lm/) + iret = nf90_get_var(ncid,varid,buf(1:im,jsta:jend,1:lm),start=start,count=count) + do l=1,lm + do j=jsta,jend + do i=1,im + if(abs(buf(i,j,l)-fill_value) Date: Thu, 31 Mar 2022 15:49:23 -0600 Subject: [PATCH 041/107] Add ability to compile script to use non-intel compilers; add Cheyenne modulefiles for gnu and intel (#468) * Add cheyenne modulefile * Intel 19 --> 2021 * Add ability to specify compiler; move all existing modulefiles to ${name}_intel since they are all for intel compilers; add "cheyenne_gnu" modulefile * Revert move of intel modulefiles; now the implicit default for a modulefile is intel, only gnu and other compilers will have the compiler name appended to the modulefile * Allow for lua modulefiles with ".lua" appended --- modulefiles/cheyenne | 40 +++++++++++++++++++++++++++++++++++++++ modulefiles/cheyenne_gnu | 41 ++++++++++++++++++++++++++++++++++++++++ tests/compile_upp.sh | 28 ++++++++++++++++++++------- 3 files changed, 102 insertions(+), 7 deletions(-) create mode 100644 modulefiles/cheyenne create mode 100644 modulefiles/cheyenne_gnu diff --git a/modulefiles/cheyenne b/modulefiles/cheyenne new file mode 100644 index 000000000..75ae507e5 --- /dev/null +++ b/modulefiles/cheyenne @@ -0,0 +1,40 @@ +#%Module# + +proc ModulesHelp { } { +puts stderr "Loads modules required for building upp" +} +module-whatis "Loads UPP prerequisites on Cheyenne for Intel 2021.2" + +module purge + +module load cmake/3.18.2 +module load ncarenv/1.3 +module load intel/2021.2 +module load mpt/2.22 +module load ncarcompilers/0.5.0 +module unload netcdf + +module use /glade/p/ral/jntp/GMTB/tools/hpc-stack-v1.2.0/modulefiles/stack +module load hpc/1.2.0 +module load hpc-intel/2021.2 +module load hpc-mpt/2.22 + +module load jasper/2.0.25 +module load zlib/1.2.11 +module load png/1.6.35 + +module load hdf5/1.10.6 +module load netcdf/4.7.4 + +module load bacio/2.4.1 +module load crtm/2.3.0 +module load g2/3.4.2 +module load g2tmpl/1.10.0 +module load ip/3.3.3 +module load nemsio/2.5.2 +module load sfcio/1.4.1 +module load sigio/2.3.2 +module load sp/2.3.3 +module load w3nco/2.4.1 +module load w3emc/2.7.3 +module load wrf_io/1.2.0 diff --git a/modulefiles/cheyenne_gnu b/modulefiles/cheyenne_gnu new file mode 100644 index 000000000..c7dbc8e18 --- /dev/null +++ b/modulefiles/cheyenne_gnu @@ -0,0 +1,41 @@ +#%Module# + +proc ModulesHelp { } { +puts stderr "Loads modules required for building upp" +} +module-whatis "Loads UPP prerequisites on Cheyenne for Intel 2021.2" + +module purge + +module load cmake/3.18.2 +module load ncarenv/1.3 +module load gnu/10.1.0 +module load mpt/2.22 +module load ncarcompilers/0.5.0 +module load python/3.7.9 +module unload netcdf + +module use /glade/p/ral/jntp/GMTB/tools/hpc-stack-v1.2.0/modulefiles/stack +module load hpc/1.2.0 +module load hpc-gnu/10.1.0 +module load hpc-mpt/2.22 + +module load jasper/2.0.25 +module load zlib/1.2.11 +module load png/1.6.35 + +module load hdf5/1.10.6 +module load netcdf/4.7.4 + +module load bacio/2.4.1 +module load crtm/2.3.0 +module load g2/3.4.2 +module load g2tmpl/1.10.0 +module load ip/3.3.3 +module load nemsio/2.5.2 +module load sfcio/1.4.1 +module load sigio/2.3.2 +module load sp/2.3.3 +module load w3nco/2.4.1 +module load w3emc/2.7.3 +module load wrf_io/1.2.0 diff --git a/tests/compile_upp.sh b/tests/compile_upp.sh index 7e9a9d310..2c20f660c 100755 --- a/tests/compile_upp.sh +++ b/tests/compile_upp.sh @@ -7,12 +7,13 @@ set -eu usage() { echo - echo "Usage: $0 [-g] [-w] -h" + echo "Usage: $0 [-p] [-g] [-w] [-v] [-c] -h" echo echo " -p installation prefix DEFAULT: ../install" - echo " -g Build with GTG(users with gtg repos. access only) DEFAULT: OFF" - echo " -w Build without WRF-IO DEFAULT: ON" - echo " -v Build with cmake verbose DEFAULT: NO" + echo " -g build with GTG(users with gtg repos. access only) DEFAULT: OFF" + echo " -w build without WRF-IO DEFAULT: ON" + echo " -v build with cmake verbose DEFAULT: NO" + echo " -c Compiler to use for build DEFAULT: intel" echo " -h display this message and quit" echo exit 1 @@ -21,8 +22,9 @@ usage() { prefix="../install" gtg_opt=" -DBUILD_WITH_GTG=OFF" wrfio_opt=" -DBUILD_WITH_WRFIO=ON" +compiler="intel" verbose_opt="" -while getopts ":p:gwvh" opt; do +while getopts ":p:gwc:vh" opt; do case $opt in p) prefix=$OPTARG @@ -33,6 +35,9 @@ while getopts ":p:gwvh" opt; do w) wrfio_opt=" -DBUILD_WITH_WRFIO=OFF" ;; + c) + compiler=$OPTARG + ;; v) verbose_opt="VERBOSE=1" ;; @@ -43,7 +48,6 @@ while getopts ":p:gwvh" opt; do done cmake_opts=" -DCMAKE_INSTALL_PREFIX=$prefix"${wrfio_opt}${gtg_opt} -hostname source ./detect_machine.sh if [[ $(uname -s) == Darwin ]]; then readonly MYDIR=$(cd "$(dirname "$(greadlink -f -n "${BASH_SOURCE[0]}" )" )" && pwd -P) @@ -60,7 +64,17 @@ if [[ $MACHINE_ID != "unknown" ]]; then module purge fi module use $PATHTR/modulefiles - modulefile=${MACHINE_ID} + if [[ $compiler == "intel" ]]; then + modulefile=${MACHINE_ID} + else + modulefile=${MACHINE_ID}_${compiler} + fi + if [ -f "${PATHTR}/modulefiles/${modulefile}" -o -f "${PATHTR}/modulefiles/${modulefile}.lua" ]; then + echo "Building for machine ${MACHINE_ID}, compiler ${compiler}" + else + echo "Modulefile does not exist for machine ${MACHINE_ID}, compiler ${compiler}" + exit 1 + fi module load $modulefile module list fi From 6ffdd3dd1e2ad5011b63ac95932cfa00e0938edf Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Fri, 1 Apr 2022 07:37:42 -0600 Subject: [PATCH 042/107] This is part of Issue #392 (#465) Fixes the doxygen warnings in CALLCL.f CALMCVG.f CALMICT.f --- sorc/ncep_post.fd/CALLCL.f | 74 ++++++--------- sorc/ncep_post.fd/CALMCVG.f | 80 +++++++--------- sorc/ncep_post.fd/CALMICT.f | 180 +++++++++++++----------------------- 3 files changed, 125 insertions(+), 209 deletions(-) diff --git a/sorc/ncep_post.fd/CALLCL.f b/sorc/ncep_post.fd/CALLCL.f index 4b029b758..8a3fbfb75 100644 --- a/sorc/ncep_post.fd/CALLCL.f +++ b/sorc/ncep_post.fd/CALLCL.f @@ -1,50 +1,32 @@ !> @file -! -!> SUBPROGRAM: CALLCL COMPUTES LCL HEIGHTS AND PRESSURE -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-03-15 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE LIFTING CONDENSATION LEVEL -!! PRESSURE AND HEIGHT IN EACH COLUMN AT MASS POINTS. -!! THE HEIGHT IS ABOVE GROUND LEVEL. THE EQUATION USED -!! TO FIND THE LCL PRESSURE IS FROM BOLTAN (1980,MWR) -!! AND IS THE SAME AS THAT USED IN SUBROUTINE CALCAPE. -!! -!! THIS ROUTINE IS A TEST VERSION. STILL TO BE RESOLVED -!! IS THE "BEST" PARCEL TO LIFT. -!! -!! PROGRAM HISTORY LOG: -!! 93-03-15 RUSS TREADON -!! 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-24 MIKE BALDWIN - WRF VERSION -!! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -!! 21-07-28 W Meng - Restriction compuatation from undefined grids -!! -!! USAGE: CALL CALLCL(P1D,T1D,Q1D,PLCL,ZLCL) -!! INPUT ARGUMENT LIST: -!! P1D - ARRAY OF PARCEL PRESSURES (PA) -!! T1D - ARRAY OF PARCEL TEMPERATURES (K) -!! Q1D - ARRAY OF PARCEL SPECIFIC HUMIDITIES (KG/KG) -!! -!! OUTPUT ARGUMENT LIST: -!! PLCL - PARCEL PRESSURE AT LCL (PA) -!! ZLCL - PARCEL AGL HEIGHT AT LCL (M) -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - LOOPS -!! OPTIONS -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes LCL heights and pressure. +!> +!> This routine computes the lifting condensation level +!> pressure and height in each column at mass points. +!> The height is above ground level. The equation used +!> to find the LCL pressure is from Boltan (1980, MWR) +!> and is the same as that used in subroutine CALCAPE. +!> +!> This is a test version. Still to be resolved +!> is the "best" parcel to lift. +!> +!> @param[in] P1D Array of parcel pressures (Pa). +!> @param[in] T1D Array of parcel temperatures (K). +!> @param[in] Q1D Array of parcel specific humidities (kg/kg). +!> @param[out] PLCL Parcel Pressure at LCL (Pa). +!> @param[out] ZLCL Parcel AGL height at LCL (m). +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-03-15 | Russ Treadon | Initial +!> 1998-06-16 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-24 | Mike Baldwin | WRF Version +!> 2019-10-30 | Bo Cui | Remove "GOTO" Statement +!> 2021-07-28 | W Meng | Restriction compuatation from undefined grids +!> +!> @author Russ Treadon W/NP2 @date 1993-03-15 SUBROUTINE CALLCL(P1D,T1D,Q1D,PLCL,ZLCL) ! diff --git a/sorc/ncep_post.fd/CALMCVG.f b/sorc/ncep_post.fd/CALMCVG.f index 488fe8033..87d454abf 100644 --- a/sorc/ncep_post.fd/CALMCVG.f +++ b/sorc/ncep_post.fd/CALMCVG.f @@ -1,53 +1,35 @@ !> @file -! -!> SUBPROGRAM: CALMCVG COMPUTES MOISTURE CONVERGENCE -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-01-22 -!! -!! ABSTRACT: -!! GIVEN SPECIFIC HUMIDITY, Q, AND THE U-V WIND COMPONENTS -!! THIS ROUTINE EVALUATES THE VECTOR OPERATION, -!! DEL DOT (Q*VEC) -!! WHERE, -!! DEL IS THE VECTOR GRADIENT OPERATOR, -!! DOT IS THE STANDARD DOT PRODUCT OPERATOR, AND -!! VEC IS THE VECTOR WIND. -!! MINUS ONE TIMES THE RESULTING SCALAR FIELD IS THE -!! MOISTURE CONVERGENCE WHICH IS RETURNED BY THIS ROUTINE. -!! -!! PROGRAM HISTORY LOG: -!! 93-01-22 RUSS TREADON -!! 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-23 MIKE BALDWIN - WRF C-GRID VERSION -!! 05-07-07 BINBIN ZHOU - ADD RSM A GRID -!! 06-04-25 H CHUANG - BUG FIXES TO CORECTLY COMPUTE MC AT BOUNDARIES -!! 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY -!! -!! USAGE: CALL CALMCVG(Q1D,U1D,V1D,QCNVG) -!! INPUT ARGUMENT LIST: -!! Q1D - SPECIFIC HUMIDITY AT P-POINTS (KG/KG) -!! U1D - U WIND COMPONENT (M/S) AT P-POINTS -!! V1D - V WIND COMPONENT (M/S) AT P-POINTS -!! -!! OUTPUT ARGUMENT LIST: -!! QCNVG - MOISTURE CONVERGENCE (1/S) AT P-POINTS -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - MASKS -!! DYNAM -!! OPTIONS -!! INDX -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes moisture convergence. +!> +!>

+!> Given specific humidity, Q, and the U-V wind components
+!> This routine evaluates the vector operation, 
+!>                  DEL DOT (Q*VEC)
+!> where,
+!>    DEL is the vector gradient operator,
+!>    DOT is the standard dot product operator, and
+!>    VEC is the vector wind.
+!> Minus one times the resulting scalar field is the 
+!> moisture convergence which is returned by this routine.
+!>
+!> +!> @param[in] Q1D - Specific humidity at P-points (kg/kg). +!> @param[in] U1D - U wind component (m/s) at P-points. +!> @param[in] V1D - V wind component (m/s) at P-points. +!> @param[out] QCNVG - Moisture convergence (1/s) at P-points. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-01-22 | Russ Treadon | Initial +!> 1998-06-08 | T Black | Conversion From 1-D To 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-23 | Mike Baldwin | WRF C-Grid Version +!> 2005-07-07 | Binbin Zhou | Add RSM A Grid +!> 2006-04-25 | H Chuang | Bug fixes to correctly compute MC at boundaries +!> 2021-04-01 | J Meng | Computation on defined points only +!> +!> @author Russ Treadon W/NP2 @date 1993-01-22 SUBROUTINE CALMCVG(Q1D,U1D,V1D,QCNVG) ! diff --git a/sorc/ncep_post.fd/CALMICT.f b/sorc/ncep_post.fd/CALMICT.f index 543610f10..6e0d9a463 100644 --- a/sorc/ncep_post.fd/CALMICT.f +++ b/sorc/ncep_post.fd/CALMICT.f @@ -1,58 +1,37 @@ !> @file -! . . . -!> SUBPROGRAM: CALMIC COMPUTES HYDROMETEORS -!! PRGRMMR: JIN ORG: W/NP2 DATE: 01-08-14 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE MIXING RATIOS OF CLOUD WATER, -!! CLOUD ICE, RAIN, AND SNOW. THE CODE IS BASED ON SUBROUTINES -!! GSMDRIVE & GSMCOLUMN IN THE NMM MODEL. -!! -!! PROGRAM HISTORY LOG: -!! 01-08-14 YI JIN -!! 02-02-11 Brad Ferrier - Minor changes for consistency w/ NMM model -!! 04-11-10 Brad Ferrier - Removed cloud fraction algorithm -!! 04-11-17 H CHUANG - WRF VERSION -!! 14-03-11 B Ferrier - Created new & old versions of this subroutine -!! to process new & old versions of the microphysics -!! -!! USAGE: CALL CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL -!! &, QW1,QI1,QR1,QS1,DBZ1,DBZR1,DBZI1,DBZC1) -!! INPUT ARGUMENT LIST: -!! P1D - PRESSURE (PA) -!! T1D - TEMPERATURE (K) -!! Q1D - SPECIFIC HUMIDITY (KG/KG) -!! C1D - TOTAL CONDENSATE (CWM, KG/KG) -!! FI1D - F_ice (fraction of condensate in form of ice) -!! FR1D - F_rain (fraction of liquid water in form of rain) -!! FS1D - F_RimeF ("Rime Factor", ratio of total ice growth -!! to deposition growth) -!! CUREFL - Radar reflectivity contribution from convection (mm**6/m**3) -!! -!! OUTPUT ARGUMENT LIST: -!! QW1 - CLOUD WATER MIXING RATIO (KG/KG) -!! QI1 - CLOUD ICE MIXING RATIO (KG/KG) -!! QR1 - RAIN MIXING RATIO (KG/KG) -!! QS1 - "SNOW" (precipitation ice) MIXING RATIO (KG/KG) -!! DBZ1 - Equivalent radar reflectivity factor in dBZ; i.e., 10*LOG10(Z) -!! DBZR - Equivalent radar reflectivity factor from rain in dBZ -!! DBZI - Equivalent radar reflectivity factor from ice (all forms) in dBZ -!! DBZC - Equivalent radar reflectivity factor from parameterized convection in dBZ -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! FUNCTIONS: -!! FPVS -!! UTILITIES: -!! LIBRARY: -!! NONE -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM SP -!! +!> @brief Subroutine that computes hydrometeors. +!> +!> This routin computes the mixing ratios of cloud water, +!> cloud ice, rain, and snow. The code is based on subroutines +!> GSMDRIVE and GSMCOLUMN in the NMM model. +!> +!> @param[in] P1D Pressure (Pa). +!> @param[in] T1D Temperature (K). +!> @param[in] Q1D Specific humidity (kg/kg). +!> @param[in] C1D Total condensate (CWM, kg/kg). +!> @param[in] FI1D F_ice (fraction of condensate in form of ice). +!> @param[in] FR1D F_rain (fraction of liquid water in form of rain). +!> @param[in] FS1D F_RimeF ("Rime Factor", ratio of total ice growth to deposition growth). +!> @param[in] CUREFL Radar reflectivity contribution from convection (mm**6/m**3). +!> @param[out] QW1 Cloud water mixing ratio (kg/kg). +!> @param[out] QI1 Cloud ice mixing ratio (kg/kg). +!> @param[out] QR1 Rain mixing ratio (kg/kg). +!> @param[out] QS1 "Snow" (precipitation ice) mixing ratio (kg/kg). +!> @param[out] DBZ1 Equivalent radar reflectivity factor in dBZ; i.e., 10*LOG10(Z). +!> @param[out] DBZR Equivalent radar reflectivity factor from rain in dBZ. +!> @param[out] DBZI Equivalent radar reflectivity factor from ice (all forms) in dBZ. +!> @param[out] DBZC Equivalent radar reflectivity factor from parameterized convection in dBZ. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2001-08-14 | Yi Jin | Initial +!> 2002-02-11 | Brad Ferrier | Minor changes for consistency w/ NMM model +!> 2004-11-10 | Brad Ferrier | Removed cloud fraction algorithm +!> 2004-11-17 | H Chuang | WRF VERSION +!> 2014-03-11 | Brad Ferrier | Created new & old versions of this subroutine to process new & old versions of the microphysics +!> +!> @author Yi Jin W/NP2 @date 2001-08-14 SUBROUTINE CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & QW1,QI1,QR1,QS1,DBZ1,DBZR1,DBZI1,DBZC1,NLICE1,NRAIN1) @@ -320,66 +299,39 @@ SUBROUTINE CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & ! SUBROUTINE CALMICT_old(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & QW1,QI1,QR1,QS1,DBZ1,DBZR1,DBZI1,DBZC1,NLICE1,NRAIN1) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALMICT_old COMPUTES HYDROMETEORS FROM THE OLDER VERSION -! OF THE MICROPHYSICS -! -! PRGRMMR: JIN ORG: W/NP2 DATE: 01-08-14 -! -! ABSTRACT: -! THIS ROUTINE COMPUTES THE MIXING RATIOS OF CLOUD WATER, CLOUD ICE, -! RAIN, AND SNOW. THE CODE IS BASED ON OPTION MP_PHYSICS==95 IN THE -! WRF NAMELIST AND OPTION MICRO='fer' in NMMB CONFIGURE FILES. -! -! PROGRAM HISTORY LOG: -! 01-08-14 YI JIN -! 02-02-11 Brad Ferrier - Minor changes for consistency w/ NMM model -! 04-11-10 Brad Ferrier - Removed cloud fraction algorithm -! 04-11-17 H CHUANG - WRF VERSION -! 14-03-11 B Ferrier - Created new & old versions of this subroutine -! to process new & old versions of the microphysics -! -! USAGE: CALL CALMICT_old(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL -! &, QW1,QI1,QR1,QS1,DBZ1,DBZR1,DBZI1,DBZC1) -! -! INPUT ARGUMENT LIST: -! P1D - PRESSURE (PA) -! T1D - TEMPERATURE (K) -! Q1D - SPECIFIC HUMIDITY (KG/KG) -! C1D - TOTAL CONDENSATE (CWM, KG/KG) -! FI1D - F_ice (fraction of condensate in form of ice) -! FR1D - F_rain (fraction of liquid water in form of rain) -! FS1D - F_RimeF ("Rime Factor", ratio of total ice growth -! to deposition growth) -! CUREFL - Radar reflectivity contribution from convection (mm**6/m**3) -! -! OUTPUT ARGUMENT LIST: -! QW1 - CLOUD WATER MIXING RATIO (KG/KG) -! QI1 - CLOUD ICE MIXING RATIO (KG/KG) -! QR1 - RAIN MIXING RATIO (KG/KG) -! QS1 - "SNOW" (precipitation ice) MIXING RATIO (KG/KG) -! DBZ1 - Equivalent radar reflectivity factor in dBZ; i.e., 10*LOG10(Z) -! DBZR - Equivalent radar reflectivity factor from rain in dBZ -! DBZI - Equivalent radar reflectivity factor from ice (all forms) in dBZ -! DBZC - Equivalent radar reflectivity factor from parameterized convection -! in dBZ -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! FUNCTIONS: -! FPVS -! UTILITIES: -! LIBRARY: -! NONE -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : IBM SP -!$$$ -! +!> CALMICT_old computes hydrometeors from the older version of the microphysics. +!> +!> This routin computes the mixing ratios of cloud water, cloud ice, +!> rain, and snow. The code is based on option MP_PHYSICS==95 in the +!> WRF namelist and option MICRO='fer' in NMMB configure files. +!> +!> @param[in] P1D Pressure (Pa). +!> @param[in] T1D Temperature (K). +!> @param[in] Q1D Specific humidity (kg/kg). +!> @param[in] C1D Total condensate (CWM, kg/kg). +!> @param[in] FI1D F_ice (fraction of condensate in form of ice). +!> @param[in] FR1D F_rain (fraction of liquid water in form of rain). +!> @param[in] FS1D F_RimeF ("Rime Factor", ratio of total ice growth to deposition growth). +!> @param[in] CUREFL Radar reflectivity contribution from convection (mm**6/m**3). +!> @param[out] QW1 Cloud water mixing ratio (kg/kg). +!> @param[out] QI1 Cloud ice mixing ratio (kg/kg). +!> @param[out] QR1 Rain mixing ratio (kg/kg). +!> @param[out] QS1 "Snow" (precipitation ice) mixing ratio (kg/kg). +!> @param[out] DBZ1 Equivalent radar reflectivity factor in dBZ; i.e., 10*LOG10(Z). +!> @param[out] DBZR Equivalent radar reflectivity factor from rain in dBZ. +!> @param[out] DBZI Equivalent radar reflectivity factor from ice (all forms) in dBZ. +!> @param[out] DBZC Equivalent radar reflectivity factor from parameterized convection in dBZ. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2001-08-14 | Yi Jin | Initial +!> 2002-02-11 | Brad Ferrier | Minor changes for consistency w/ NMM model +!> 2004-11-10 | Brad Ferrier | Removed cloud fraction algorithm +!> 2004-11-17 | H Chuang | WRF VERSION +!> 2014-03-11 | Brad Ferrier | Created new & old versions of this subroutine to process new & old versions of the microphysics +!> +!> @author Yi Jin W/NP2 @date 2001-08-14 use params_mod, only: dbzmin, epsq, tfrz, eps, rd, d608, oneps, nlimin use ctlblk_mod, only: jsta, jend, jsta_2l, jend_2u, im use rhgrd_mod, only: rhgrd From 28415134485e05436b08a1051ee801c02f165ea4 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Fri, 1 Apr 2022 10:37:47 -0600 Subject: [PATCH 043/107] This is part of Issue #392 (#466) Fixes the doxygen warnings in CALPBL.f CALPBLREGIME.f CALPOT.f CALPW.f. --- sorc/ncep_post.fd/CALPBL.f | 43 +++++---------- sorc/ncep_post.fd/CALPBLREGIME.f | 68 +++++++++-------------- sorc/ncep_post.fd/CALPOT.f | 53 ++++++------------ sorc/ncep_post.fd/CALPW.f | 95 +++++++++++++------------------- 4 files changed, 94 insertions(+), 165 deletions(-) diff --git a/sorc/ncep_post.fd/CALPBL.f b/sorc/ncep_post.fd/CALPBL.f index d71f9676a..1b18e6f54 100644 --- a/sorc/ncep_post.fd/CALPBL.f +++ b/sorc/ncep_post.fd/CALPBL.f @@ -1,34 +1,17 @@ !> @file -! -!> SUBPROGRAM: CALPBL COMPUTES PBL HEIGHT BASED ON BULK RCH NUMBER -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE BULK RICHARDSON NUMBER -!! AND PBL HEIGHT ABOVE SURFACE -!! -!! PROGRAM HISTORY LOG: -!! 06-05-04 M TSIDULKO -!! -!! USAGE: CALL CALPBL(PBLRI) -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! PBLRI - PBL HEIGHT ABOVE GROUND -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - -!! CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : -!! +!> @brief Subroutine that computes PBL height based on bulk RCH number. +!> +!> This routine computes the bulk Richardson number +!> and PBL height above surface. +!> +!> @param[out] PBLRI PBL height above ground. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2006-05-04 | M Tsidulko | Initial +!> +!> @author M Tsidulko @date 2006-05-04 SUBROUTINE CALPBL(PBLRI) ! diff --git a/sorc/ncep_post.fd/CALPBLREGIME.f b/sorc/ncep_post.fd/CALPBLREGIME.f index fbbc9dc33..66ce654fb 100644 --- a/sorc/ncep_post.fd/CALPBLREGIME.f +++ b/sorc/ncep_post.fd/CALPBLREGIME.f @@ -1,47 +1,29 @@ !> @file -! . . . -!> SUBPROGRAM: CALPBL COMPUTES PBL HEIGHT BASED ON BULK RCH NUMBER -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE BULK RICHARDSON NUMBER BASED ON ALGORITHMS -!! FROM WRF SURFACE LAYER AND THEN DERIVE PBL REGIME AS FOLLOWS: -!! 1. BR >= 0.2; -!! REPRESENTS NIGHTTIME STABLE CONDITIONS (REGIME=1), -!! -!! 2. BR < 0.2 .AND. BR > 0.0; -!! REPRESENTS DAMPED MECHANICAL TURBULENT CONDITIONS -!! (REGIME=2), -!! -!! 3. BR == 0.0 -!! REPRESENTS FORCED CONVECTION CONDITIONS (REGIME=3), -!! -!! 4. BR < 0.0 -!! REPRESENTS FREE CONVECTION CONDITIONS (REGIME=4). -!! . -!! -!! PROGRAM HISTORY LOG: -!! 07-04-27 H CHUANG -!! -!! USAGE: CALL CALPBLREGIME(PBLREGIME) -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! PBLRI - PBL HEIGHT ABOVE GROUND -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - -!! CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : -!! +!> @brief Subroutine that computes PBL height based on bulk RCH number. +!> +!> This routine computes the bulk Richardson number based on algorithms +!> from WRF surface layer and then derive PBL regime as follows: +!> 1. BR >= 0.2; +!> Represents nighttime stable conditions (Regime=1), +!> +!> 2. BR < 0.2 .AND. BR > 0.0; +!> Represents damped mechanical turbulent conditions +!> (Regime=2), +!> +!> 3. BR == 0.0 +!> Represents forced convection conditions (Regime=3), +!> +!> 4. BR < 0.0 +!> Represnets free convection conditions (Regime=4). +!> +!> @param[out] PBLRI PBL Height above ground. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2007-04-27 | H Chuang | Initial +!> +!> @author H Chuang @date 2007-04-27 SUBROUTINE CALPBLREGIME(PBLREGIME) ! diff --git a/sorc/ncep_post.fd/CALPOT.f b/sorc/ncep_post.fd/CALPOT.f index a043435b0..8e3661885 100644 --- a/sorc/ncep_post.fd/CALPOT.f +++ b/sorc/ncep_post.fd/CALPOT.f @@ -1,39 +1,22 @@ !> @file -! -!> SUBPROGRAM: CALPOT COMPUTES POTENTIAL TEMPERATURE -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-24 -!! -!! ABSTRACT: -!! GIVEN PRESSURE AND TEMPERATURE THIS ROUTINE RETURNS -!! THE POTENTIAL TEMPERATURE. -!! -!! PROGRAM HISTORY LOG: -!! 92-12-24 RUSS TREADON -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-24 MIKE BALDWIN - WRF VERSION -!! -!! USAGE: CALL CALPOT(P1D,T1D,THETA) -!! INPUT ARGUMENT LIST: -!! P1D - PRESSURE (PA) -!! T1D - TEMPERATURE (K) -!! -!! OUTPUT ARGUMENT LIST: -!! THETA - POTENTIAL TEMPERATURE (K) -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! NONE -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes potential temperature. +!> +!> Given pressure and temperature this routine returns +!> the potential temperature. +!> +!> @param[in] P1D pressures (Pa). +!> @param[in] T1D temperatures (K). +!> @param[out] THETA potential temperatures (K). +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-24 | Russ Treadon | Initial +!> 1998-06-15 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-24 | Mike Baldwin | WRF Version +!> +!> @author Russ Treadon W/NP2 @date 1992-12-24 SUBROUTINE CALPOT(P1D,T1D,THETA) ! diff --git a/sorc/ncep_post.fd/CALPW.f b/sorc/ncep_post.fd/CALPW.f index 2944454c0..51aa4c457 100644 --- a/sorc/ncep_post.fd/CALPW.f +++ b/sorc/ncep_post.fd/CALPW.f @@ -1,61 +1,42 @@ !> @file -! . . . -!> SUBPROGRAM: CALPW COMPUTES -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-24 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES PRECIPITABLE WATER IN A COLUMN -!! EXTENDING FROM THE FIRST ATMOSPHERIC ETA LAYER TO THE -!! MODEL TOP. THE DEFINITION USED IS -!! TOP -!! PRECIPITABLE WATER = SUM (Q+CLDW) DP*HTM/G -!! BOT -!! WHERE, -!! BOT IS THE FIRST ETA LAYER, -!! TOP IS THE MODEL TOP, -!! Q IS THE SPECIFIC HUMIDITY (KG/KG) IN THE LAYER -!! CLDW IS THE CLOUD WATER (KG/KG) IN THE LAYER -!! DP (Pa) IS THE LAYER THICKNESS. -!! HTM IS THE HEIGHT MASK AT THAT LAYER (=0 IF BELOW GROUND) -!! G IS THE GRAVITATIONAL CONSTANT -!! -!! PROGRAM HISTORY LOG: -!! 92-12-24 RUSS TREADON -!! 96-03-04 MIKE BALDWIN - ADD CLOUD WATER AND SPEED UP CODE -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-06-19 MIKE BALDWIN - WRF VERSION -!! 04-12-30 H CHUANG - UPDATE TO CALCULATE TOTAL COLUMN FOR OTHER -!! HYDROMETEORS -!! 14-11-12 SARAH LU - UPDATE TO CALCULATE AEROSOL OPTICAL DEPTH -!! 15-07-02 SARAH LU - UPDATE TO CALCULATE SCATTERING AEROSOL -!! OPTICAL DEPTH (18) -!! 15-07-04 SARAH LU - CORRECT PW INTEGRATION FOR AOD (17) -!! 15-07-10 SARAH LU - UPDATE TO CALCULATE ASYMETRY PARAMETER -!! 19-07-25 Li(Kate) Zhang - MERGE SARHA LU's update for FV3-Chem -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! -!! USAGE: CALL CALPW(PW) -!! INPUT ARGUMENT LIST: -!! PW - ARRAY OF PRECIPITABLE WATER. -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - LOOPS -!! MASKS -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes precipitable water. +!> +!>
+!> This routine computes precipitable water in a column
+!> extending from the first atmospheric ETA layer to the
+!> model top. The definition used is
+!>                      TOP
+!> precipitable water = sum (Q+CLDW) DP*HTM/G
+!>                      BOT
+!> where,
+!> BOT is the first ETA layer,
+!> TOP is the model top,
+!> Q is the specific humidity (kg/kg) in the layer
+!> CLDW is the cloud water (kg/kg) in the layer
+!> DP (Pa) is the layer thickness.
+!> HTM is the height mask at that layer (=0 if below ground)
+!> G is the gravitational constant.
+!>
+!> +!> @param[in] PW Array of precipitable water. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-24 | Russ Treadon | Initial +!> 1996-03-04 | Mike Baldwin | Add cloud water and speed up code +!> 1998-06-15 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-06-19 | Mike Baldwin | WRF Version +!> 2004-12-30 | H Chuang | Update to calculate total column for other hydrometeors +!> 2014-11-12 | Sarah Lu | Update tp calculate aerosol optical depth +!> 2015-07-02 | Sarah Lu | Update to calculate scattering aerosal optical depth (18) +!> 2015-07-04 | Sarah Lu | Correct PW integration for AOD (17) +!> 2015-07-10 | Sarah Lu | Update to calculate asymetry parameter +!> 2019-07-25 | Li(Kate) Zhang | Merge Sarah Lu's update for FV3-Chem +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> +!> @author Russ Treadon W/NP2 @date 1992-12-24 SUBROUTINE CALPW(PW,IDECID) ! From 394917e09979e8509c52fb0e7c48be7c16cf8502 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Mon, 4 Apr 2022 11:05:27 -0600 Subject: [PATCH 044/107] Doxygen in CALRAD_WCLOUD_newcrtm.f CALRCH.f CALSTRM.f CALTAU.f CALTHTE.f CALUPDHEL.f. (#467) * This is part of Issue #392. Fixes the doxygen warnings in CALRAD_WCLOUD_newcrtm.f CALRCH.f CALSTRM.f CALTAU.f CALTHTE.f CALUPDHEL.f. * Fixed typo. * Update to PR #458. --- sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f | 44 ++++++--------- sorc/ncep_post.fd/CALRCH.f | 60 +++++++------------- sorc/ncep_post.fd/CALSTRM.f | 61 ++++++++------------- sorc/ncep_post.fd/CALTAU.f | 67 +++++++++-------------- sorc/ncep_post.fd/CALTHTE.f | 58 +++++++------------- sorc/ncep_post.fd/CALUPDHEL.f | 49 +++++------------ 6 files changed, 121 insertions(+), 218 deletions(-) diff --git a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f index 0ecca0e50..7c5c615c7 100644 --- a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f +++ b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f @@ -1,30 +1,22 @@ !> @file -! -!> THIS ROUTINE COMPUTES MODEL DERIVED BRIGHTNESS TEMPERATURE -!! USING CRTM. IT IS PATTERNED AFTER GSI SETUPRAD WITH TREADON'S HELP -!! -!! PROGRAM HISTORY LOG: -!! - 11-02-06 Jun WANG - addgrib2 option -!! - 14-12-09 WM LEWIS ADDED: -!! FUNCTION EFFR TO COMPUTE EFFECTIVE PARTICLE RADII -!! CHANNEL SELECTION USING LVLS FROM WRF_CNTRL.PARM -!! - 19-04-01 Sharon NEBUDA - Added output option for GOES-16 & GOES-17 ABI IR Channels 7-16 -!! - 20-04-09 Tracy Hertneky - Added Himawari-8 AHI CH7-CH16 -!! - 21-01-10 Web Meng - Added checking points for skiping grids with filling value spval -!! - 21-03-11 Bo Cui - improve local arrays memory -!! - 21-08-31 Lin Zhu - added ssmis-f17 channels 15-18 grib2 output -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! /nwprod/lib/sorc/crtm2 -!! -!! @author CHUANG @date 07-01-17 -!! +!> @brief Subroutine that computes model derived brightness temperature. +!> +!> This routine computes model derived brightness temperature +!> using CRTM. It is patterned after GSI setuprad with Treadon's help. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2007-01-17 | H Chuang | Initial +!> 2011-02-06 | Jun Wang | add grib2 option +!> 2014-12-09 | WM Lewis | added function EFFR to compute effective particle radii channel selection using LVLS from WRF_CNTRL.PARM +!> 2019-04-01 | Sharon Nebuda | Added output option for GOES-16 & GOES-17 ABI IR Channels 7-16 +!> 2020-04-09 | Tracy Hertneky | Added Himawari-8 AHI CH7-CH16 +!> 2021-01-10 | Wen Meng | Added checking points for skiping grids with filling value spval +!> 2021-03-11 | Bo Cui | improve local arrays memory +!> 2021-08-31 | Lin Zhu | added ssmis-f17 channels 15-18 grib2 output +!> +!> @author Chuang @date 2007-01-17 SUBROUTINE CALRAD_WCLOUD use vrbls3d, only: o3, pint, pmid, t, q, qqw, qqi, qqr, f_rimef, nlice, nrain, qqs, qqg, & diff --git a/sorc/ncep_post.fd/CALRCH.f b/sorc/ncep_post.fd/CALRCH.f index 60b5425b6..e923fa53a 100644 --- a/sorc/ncep_post.fd/CALRCH.f +++ b/sorc/ncep_post.fd/CALRCH.f @@ -1,43 +1,25 @@ !> @file -! -!> SUBPROGRAM: CALRCH COMPUTES GRD RCH NUMBER -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-10-11 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE GRADIENT RICHARDSON NUMBER -!! AS CODED IN ETA MODEL SUBROUTINE PROFQ2.F. -!! FIX TO AVOID UNREASONABLY SMALL ANEMOMETER LEVEL WINDS. -!! -!! PROGRAM HISTORY LOG: -!! 93-10-11 RUSS TREADON -!! 98-06-17 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 01-10-22 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-01-15 MIKE BALDWIN - WRF VERSION -!! 05-02-25 H CHUANG - ADD COMPUTATION FOR NMM E GRID -!! 05-07-07 BINBIN ZHOU - ADD RSM FOR A GRID -!! -!! USAGE: CALL CALRCH(EL,RICHNO) -!! INPUT ARGUMENT LIST: -!! EL - MIXING LENGTH SCALE. -!! -!! OUTPUT ARGUMENT LIST: -!! RICHNO - GRADIENT RICHARDSON NUMBER. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - -!! CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes GRD RCH number. +!> +!> This routine computes the gradient Richardson number +!> as coded in ETA model subroutine PROFQ2.F. +!> Fix to avoid unreasonably small anemometer level winds. +!> +!> @param[in] EL Mixing length scale. +!> @param[out] RICHNO Gradient Richardson number. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-10-11 | Russ Treadon | Initial +!> 1998-06-17 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2001-10-22 | H Chuang | Modified to process hybrid model output +!> 2002-01-15 | Mike Baldwin | WRF Version +!> 2005-02-25 | H Chuang | Add computation for NMM E grid +!> 2005-07-07 | Binbin Zhou | Add RSM for A Grid +!> +!> @author Russ Treadon W/NP2 @date 1993-10-11 SUBROUTINE CALRCH(EL,RICHNO) ! diff --git a/sorc/ncep_post.fd/CALSTRM.f b/sorc/ncep_post.fd/CALSTRM.f index c9204ccb6..311f6fbc4 100644 --- a/sorc/ncep_post.fd/CALSTRM.f +++ b/sorc/ncep_post.fd/CALSTRM.f @@ -1,43 +1,26 @@ !> @file -! -!> SUBPROGRAM: CALSTRM COMPUTES GEO STREAMFUNCTION -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE GEOSTROPHIC STREAMFUNCTION, -!! PSI, FROM THE PASSED GEOPOTENTIAL HEIGHT FIELD, Z. -!! THE FORMULA USED IS PSI = G*Z/F0, WHERE G IS THE -!! GRAVITATIONAL ACCELERATION CONSTANT AND F0 IS A -!! CONSTANT CORIOLIS PARAMETER. F0 IS SET TO BE THE -!! VALUE OF THE CORIOLIS PARAMETER NEAR THE CENTER -!! OF THE MODEL GRID. -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-05 JIM TUCCILLO - MPI VERSION -!! 02-06-13 MIKE BALDWIN - WRF VERSION -!! -!! USAGE: CALL CALSTRM(Z1D,STRM) -!! INPUT ARGUMENT LIST: -!! Z1D - GEOPOTENTIAL HEIGHT (M) -!! -!! OUTPUT ARGUMENT LIST: -!! STRM - GEOSTROPHIC STREAMFUNCTION -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - MAPOT -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes geo streamfunction. +!> +!> This routine computes the geostrophic streamfunction, +!> PSI, from the passed geopotential height field, Z. +!> The formule used it PSI = G*Z/F0, where G is the +!> gravitational acceleration constant and F0 is a +!> constant Coriolis parameter. F0 is set to be the +!> valus of the Coriolis parameter near the center +!> of the model grid. +!> +!> @param[in] Z1D Geopotential height (m). +!> @param[out] STRM Geostrophic streamfunction. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1998-06-08 | T Black | Conversion from 1-D TO 2-D +!> 2000-01-05 | Jim Tuccillo | MPI Version +!> 2002-06-13 | Mike Baldwin | WRF Version +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALSTRM(Z1D,STRM) ! diff --git a/sorc/ncep_post.fd/CALTAU.f b/sorc/ncep_post.fd/CALTAU.f index 79bae45d3..1d351a3c0 100644 --- a/sorc/ncep_post.fd/CALTAU.f +++ b/sorc/ncep_post.fd/CALTAU.f @@ -1,46 +1,29 @@ !> @file -! -!> SUBPROGRAM: CALTAU COMPUTE U AND V WIND STRESSES -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-09-01 -!! -!! ABSTRACT: THIS ROUTINE COMPUTES SURFACE LAYER U AND V -!! WIND COMPONENT STRESSES USING K THEORY AS PRESENTED -!! IN SECTION 8.4 OF "NUMBERICAL PREDICTION AND DYNAMIC -!! METEOROLOGY" BY HALTINER AND WILLIAMS (1980, JOHN WILEY -!! & SONS). -!! -!! PROGRAM HISTORY LOG: -!! 93-09-01 RUSS TREADON -!! 98-06-11 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID OUTPUT -!! 02-01-15 MIKE BALDWIN - WRF VERSION, OUTPUT IS ON MASS-POINTS -!! 05-02-23 H CHUANG - COMPUTE STRESS FOR NMM ON WIND POINTS -!! 05-07-07 BINBIN ZHOU - ADD RSM STRESS for A GRID -!! 21-07-26 W Meng - Restrict computation from undefined grids -!! USAGE: CALL CALTAU(TAUX,TAUY) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! TAUX - SUFACE LAYER U COMPONENT WIND STRESS. -!! TAUY - SUFACE LAYER V COMPONENT WIND STRESS. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! CLMAX -!! MIXLEN -!! -!! LIBRARY: -!! COMMON - -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes U and V wind stresses. +!> +!> This routine computes surface layer U and V +!> wind component stresses using K theory as presented +!> in section 8.4 of "Numerical prediction and dynamic +!> meteorology" by Haltiner and Williams (1980, John Wiley +!> & Sons). +!> +!> @param[out] TAUX Suface layer U component wind stress. +!> @param[out] TAUY Suface layer V component wind stress. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-09-01 | Russ Treadon | Initial +!> 1998-06-11 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2001-10-25 | H Chuang | Modified to process hybrid output +!> 2002-01-15 | Mike Baldwin | WRF Version, output is on mass-points +!> 2005-02-23 | H Chuang | Compute stress for NMM on wind points +!> 2005-07-07 | Binbin Zhou | Add RSM stress for A Grid +!> 2021-07-26 | W Meng | Restrict computation from undefined grids +!> +!> @author Russ Treadon W/NP2 @date 1993-09-01 + SUBROUTINE CALTAU(TAUX,TAUY) ! diff --git a/sorc/ncep_post.fd/CALTHTE.f b/sorc/ncep_post.fd/CALTHTE.f index c59cd08dd..d3a64bd5e 100644 --- a/sorc/ncep_post.fd/CALTHTE.f +++ b/sorc/ncep_post.fd/CALTHTE.f @@ -1,41 +1,25 @@ !> @file -! -!> SUBPROGRAM: CALTHTE COMPUTES THETA-E -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-06-18 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE EQUIVALENT POTENTIAL TEMPERATURE -!! GIVEN PRESSURE, TEMPERATURE, AND SPECIFIC HUMIDITY. THE -!! EQUATIONS OF BOLTON (MWR,1980) ARE USED. -!! -!! PROGRAM HISTORY LOG: -!! 93-06-18 RUSS TREADON -!! 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 21-07-28 W Meng - Restrict computation from undefined grids -!! -!! USAGE: CALL CALTHTE(P1D,T1D,Q1D,THTE) -!! INPUT ARGUMENT LIST: -!! P1D - PRESSURE (PA) -!! T1D - TEMPERATURE (K) -!! Q1D - SPECIFIC HUMIDITY (KG/KG) -!! -!! OUTPUT ARGUMENT LIST: -!! THTE - THETA-E (K) -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! VAPOR - FUNCTION TO CALCULATE VAPOR PRESSURE. -!! LIBRARY: -!! NONE -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes Theta-E. +!> +!> This routine computes the equivalent potential temperature +!> given pressure, temperature, and specific humidity. The +!> equations of Bolton (MWR,1980) are used. +!> +!> @param[in] P1D pressure (Pa). +!> @param[in] T1D temperature (K). +!> @param[in] Q1D specific humidity(kg/kg). +!> @param[out] THTE Theta-E (K). +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-06-18 | Russ Treadon | Initial +!> 1998-06-16 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2021-07-28 | W Meng | Restrict computation from undefined grids +!> +!> @author Russ Treadon W/NP2 @date 1993-06-18 + SUBROUTINE CALTHTE(P1D,T1D,Q1D,THTE) ! diff --git a/sorc/ncep_post.fd/CALUPDHEL.f b/sorc/ncep_post.fd/CALUPDHEL.f index b9e3bbbec..a85bb02de 100644 --- a/sorc/ncep_post.fd/CALUPDHEL.f +++ b/sorc/ncep_post.fd/CALUPDHEL.f @@ -1,39 +1,18 @@ !> @file -! -!> SUBPROGRAM: CALUPDHEL COMPUTES UPDRAFT HELICITY -!! PRGRMMR: PYLE ORG: W/NP2 DATE: 07-10-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE UPDRAFT HELICITY -!! -!! PROGRAM HISTORY LOG: -!! 07-10-22 M PYLE - based on SPC Algorithm courtesy of David Bright -!! 11-01-11 M Pyle - converted to F90 for unified post -!! 11-04-05 H Chuang - added B grid option -!! 20-11-06 J Meng - USE UPP_MATH MODULE -!! 22-03-17 Wen Meng - Restrict computation from undefined grids. -!! -!! USAGE: CALL CALUPDHEL(UPDHEL) -!! -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! UPDHEL - UPDRAFT HELICITY (M^2/S^2) -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes the updraft helicity. +!> +!> @param[out] UPDHEL Updraft helicity (m^2/s^2). +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2007-10-22 | M Pyle | Initial +!> 2007-10-22 | M Pyle | based on SPC Algorithm courtesy of David Bright +!> 2011-01-11 | M Pyle | converted to F90 for unified post +!> 2011-04-05 | H Chuang | added B grid option +!> 2020-11-06 | J Meng | Use UPP_MATH Module +!> +!> @author M Pyle W/NP2 @date 2007-10-22 SUBROUTINE CALUPDHEL(UPDHEL) ! From 40fbb3f33680c4a2b7c02da8515c8d134645fc33 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Mon, 4 Apr 2022 14:28:39 -0600 Subject: [PATCH 045/107] Doxygen in CALVOR.f, CALWXT_BOURG.f, CLDRAD.f, COLLECT.f, COLLECT_LOC.f, DEALLOCATE.f, and DEALLOCATE.f (#469) * This is part of Issue #392. Fixes the doxygen warnings in CALVOR.f, CALWXT_BOURG.f, CLDRAD.f, COLLECT.f, COLLECT_LOC.f, DEALLOCATE.f, and DEALLOCATE.f. * Fixed minor bug in CALVOR.f. * Update to PR#453. * More updates. --- sorc/ncep_post.fd/CALVOR.f | 170 ++++++++++--------------------- sorc/ncep_post.fd/CALWXT_BOURG.f | 114 +++++++++------------ sorc/ncep_post.fd/CLDRAD.f | 167 +++++++++++++----------------- sorc/ncep_post.fd/COLLECT.f | 44 +++----- sorc/ncep_post.fd/COLLECT_LOC.f | 44 +++----- sorc/ncep_post.fd/DEALLOCATE.f | 43 +++----- sorc/ncep_post.fd/DEWPOINT.f | 87 ++++++++-------- 7 files changed, 253 insertions(+), 416 deletions(-) diff --git a/sorc/ncep_post.fd/CALVOR.f b/sorc/ncep_post.fd/CALVOR.f index ea5bb3deb..4e052de5c 100644 --- a/sorc/ncep_post.fd/CALVOR.f +++ b/sorc/ncep_post.fd/CALVOR.f @@ -1,47 +1,28 @@ !> @file -! -!> SUBPROGRAM: CALVOR COMPUTES ABSOLUTE VORTICITY -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE ABSOLUTE VORTICITY. -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-01-15 MIKE BALDWIN - WRF VERSION C-GRID -!! 05-03-01 H CHUANG - ADD NMM E GRID -!! 05-05-17 H CHUANG - ADD POTENTIAL VORTICITY CALCULATION -!! 05-07-07 B ZHOU - ADD RSM IN COMPUTING DVDX, DUDY AND UAVG -!! 13-08-09 S MOORTHI - Optimize the vorticity loop including threading -!! 16-08-05 S Moorthi - add zonal filetering -!! 2019-10-17 Y Mao - Skip calculation when U/V is SPVAL -!! 2020-11-06 J Meng - USE UPP_MATH MODULE - - -!! -!! USAGE: CALL CALVOR(UWND,VWND,ABSV) -!! INPUT ARGUMENT LIST: -!! UWND - U WIND (M/S) MASS-POINTS -!! VWND - V WIND (M/S) MASS-POINTS -!! -!! OUTPUT ARGUMENT LIST: -!! ABSV - ABSOLUTE VORTICITY (1/S) MASS-POINTS -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : WCOSS -!! +!> @brief Subroutine that computes absolute vorticity. +!> +!> This routine computes the absolute vorticity. +!> +!> @param[in] UWND U wind (m/s) mass-points. +!> @param[in] VWND V wind (m/s) mass-points. +!> @param[out] ABSV absolute vorticity (1/s) mass-points. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1998-06-08 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-01-15 | Mike Baldwin | WRF Version C-grid +!> 2005-03-01 | H Chuang | Add NMM E grid +!> 2005-05-17 | H Chuang | Add Potential vorticity calculation +!> 2005-07-07 | B Zhou | Add RSM in computing DVDX, DUDY and UAVG +!> 2013-08-09 | S Moorthi | Optimize the vorticity loop including threading +!> 2016-08-05 | S Moorthi | add zonal filetering +!> 2019-10-17 | Y Mao | Skip calculation when U/V is SPVAL +!> 2020-11-06 | J Meng | Use UPP_MATH Module +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALVOR(UWND,VWND,ABSV) ! @@ -410,44 +391,23 @@ SUBROUTINE CALVOR(UWND,VWND,ABSV) RETURN END +!> CALDIV computes divergence. +!> +!> For GFS, this routine copmutes the horizontal divergence +!> using 2nd-order centered scheme on a lat-lon grid +!> +!> @param[in] UWND U wind (m/s) mass-points. +!> @param[in] VWND V wind (m/s) mass-points. +!> @param[out] DIV divergence (1/s) mass-points. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2016-05-05 | Sajal Kar | Modified CALVORT to compute divergence from wind components +!> 2016-07-22 | S Moorthi | Modified polar divergence calculation +!> +!> @author Sajal Kar W/NP2 @date 2016-05-05 SUBROUTINE CALDIV(UWND,VWND,DIV) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALDIV COMPUTES DIVERGENCE -! PRGRMMR: SAJAL KAR ORG: W/NP2 DATE: 16-05-05 -! -! ABSTRACT: -! FOR GFS, THIS ROUTINE COMPUTES THE HORIZONTAL DIVERGENCE -! USING 2ND-ORDER CENTERED SCHEME ON A LAT-LON GRID -! -! PROGRAM HISTORY LOG: -! 16-05-05 SAJAL KAR MODIFIED CALVORT TO COMPUTE DIVERGENCE FROM -! WIND COMPONENTS -! 16-07-22 S Moorthi modifying polar divergence calculation -! -! USAGE: CALL CALDIV(UWND,VWND,DIV) -! INPUT ARGUMENT LIST: -! UWND - U WIND (M/S) MASS-POINTS -! VWND - V WIND (M/S) MASS-POINTS -! -! OUTPUT ARGUMENT LIST: -! DIV - DIVERGENCE (1/S) MASS-POINTS -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! NONE -! LIBRARY: -! COMMON - CTLBLK -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : WCOSS -!$$$ -! -! use masks, only: gdlat, gdlon use params_mod, only: d00, dtr, small, erad use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & @@ -683,41 +643,21 @@ SUBROUTINE CALDIV(UWND,VWND,DIV) END SUBROUTINE CALDIV SUBROUTINE CALGRADPS(PS,PSX,PSY) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALGRADPS COMPUTES GRADIENTS OF A SCALAR FIELD PS OR LNPS -! PRGRMMR: SAJAL KAR ORG: W/NP2 DATE: 16-05-05 -! -! ABSTRACT: -! FOR GFS, THIS ROUTINE COMPUTES HRIZONTAL GRADIENTS OF PS OR LNPS -! USING 2ND-ORDER CENTERED SCHEME ON A LAT-LON GRID -! -! PROGRAM HISTORY LOG: -! 16-05-05 SAJAL KAR REDUCED FROM CALVORT TO ZONAL AND MERIDIONAL -! GRADIENTS OF GIVEN SURFACE PRESSURE PS, OR LNPS -! -! USAGE: CALL CALGRADPS(PS,PSX,PSY) -! INPUT ARGUMENT LIST: -! PS - SURFACE PRESSURE (PA) MASS-POINTS -! -! OUTPUT ARGUMENT LIST: -! PSX - ZONAL GRADIENT OF PS AT MASS-POINTS -! PSY - MERIDIONAL GRADIENT OF PS AT MASS-POINTS -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! NONE -! LIBRARY: -! COMMON - CTLBLK -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : WCOSS -!$$$ -! +!> CALGRADPS computes gardients of a scalar field PS or LNPS. +!> +!> For GFS, this routine computes horizontal gradients of PS or LNPS. +!> Using 2nd-order centered scheme on a lat-lon grid. +!> +!> @param[in] PS Surface pressure (Pa) mass-points. +!> @param[out] PSX Zonal gradient of PS at mass-points. +!> @param[out] PSY Meridional gradient of PS at mass-points. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2016-05-05 | Sajal Kar | Reduced from CALVORT to zonal and meridional gradients of given surface pressure PS, or LNPS +!> +!> @author Sajal Kar W/NP2 @date 2016-05-05 use masks, only: gdlat, gdlon use params_mod, only: dtr, d00, small, erad use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & diff --git a/sorc/ncep_post.fd/CALWXT_BOURG.f b/sorc/ncep_post.fd/CALWXT_BOURG.f index aef3300f1..fa584b8b5 100644 --- a/sorc/ncep_post.fd/CALWXT_BOURG.f +++ b/sorc/ncep_post.fd/CALWXT_BOURG.f @@ -1,68 +1,54 @@ !> @file -! -!> Subprogram: calwxt_bourg Calculate precipitation type (Bourgouin) -!! Prgmmr: Baldwin Org: np22 Date: 1999-07-06 -!! -!! Abstract: This routine computes precipitation type -!! using a decision tree approach that uses the so-called -!! "energy method" of Bourgouin of AES (Canada) 1992 -!! -!! Program history log: -!! 1999-07-06 M Baldwin -!! 1999-09-20 M Baldwin make more consistent with bourgouin (1992) -!! 2005-08-24 G Manikin added to wrf post -!! 2007-06-19 M Iredell mersenne twister, best practices -!! 2015-00-00 S Moorthi changed random number call and optimization and cleanup -!! -!! Usage: call calwxt_bourg(im,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1, & -!! & iseed,g,pthresh, & -!! & t,q,pmid,pint,lmh,prec,zint,ptype) -!! Input argument list: -!! im integer i dimension -!! jm integer j dimension -!! jsta_2l integer j dimension start point (including haloes) -!! jend_2u integer j dimension end point (including haloes) -!! jsta integer j dimension start point (excluding haloes) -!! jend integer j dimension end point (excluding haloes) -!! lm integer k dimension -!! lp1 integer k dimension plus 1 -!! iseed integer random number seed -!! g real gravity (m/s**2) -!! pthresh real precipitation threshold (m) -!! t real(im,jsta_2l:jend_2u,lm) mid layer temp (K) -!! q real(im,jsta_2l:jend_2u,lm) specific humidity (kg/kg) -!! pmid real(im,jsta_2l:jend_2u,lm) mid layer pressure (Pa) -!! pint real(im,jsta_2l:jend_2u,lp1) interface pressure (Pa) -!! lmh real(im,jsta_2l:jend_2u) max number of layers -!! prec real(im,jsta_2l:jend_2u) precipitation (m) -!! zint real(im,jsta_2l:jend_2u,lp1) interface height (m) -!! Output argument list: -!! ptype integer(im,jm) instantaneous weather type () -!! acts like a 4 bit binary -!! 1111 = rain/freezing rain/ice pellets/snow -!! where the one's digit is for snow -!! the two's digit is for ice pellets -!! the four's digit is for freezing rain -!! and the eight's digit is for rain -!! in other words... -!! ptype=1 snow -!! ptype=2 ice pellets/mix with ice pellets -!! ptype=4 freezing rain/mix with freezing rain -!! ptype=8 rain -!! -!! Modules used: -!! mersenne_twister pseudo-random number generator -!! -!! Subprograms called: -!! random_number pseudo-random number generator -!! -!! Attributes: -!! Language: Fortran 90 -!! -!! Remarks: vertical order of arrays must be layer 1 = top -!! and layer lmh = bottom -!! -!! +!> @brief Subroutine that calculate precipitation type (Bourgouin). +!> +!> This routine computes precipitation type. +!> using a decision tree approach that uses the so-called +!> "energy method" of Bourgouin of AES (Canada) 1992. +!> +!> @param[in] im integer i dimension. +!> @param[in] jm integer j dimension. +!> @param[in] jsta_2l integer j dimension start point (including haloes). +!> @param[in] jend_2u integer j dimension end point (including haloes). +!> @param[in] jsta integer j dimension start point (excluding haloes). +!> @param[in] jend integer j dimension end point (excluding haloes). +!> @param[in] lm integer k dimension. +!> @param[in] lp1 integer k dimension plus 1. +!> @param[in] iseed integer random number seed. +!> @param[in] g real gravity (m/s**2). +!> @param[in] pthresh real precipitation threshold (m). +!> @param[in] t real(im,jsta_2l:jend_2u,lm) mid layer temp (K). +!> @param[in] q real(im,jsta_2l:jend_2u,lm) specific humidity (kg/kg). +!> @param[in] pmid real(im,jsta_2l:jend_2u,lm) mid layer pressure (Pa). +!> @param[in] pint real(im,jsta_2l:jend_2u,lp1) interface pressure (Pa). +!> @param[in] lmh real(im,jsta_2l:jend_2u) max number of layers. +!> @param[in] prec real(im,jsta_2l:jend_2u) precipitation (m). +!> @param[in] zint real(im,jsta_2l:jend_2u,lp1) interface height (m). +!> @param[out] ptype integer(im,jm) instantaneous weather type () acts like a 4 bit binary 1111 = rain/freezing rain/ice pellets/snow. +!>
+!>                   where the one's digit is for snow
+!>                         the two's digit is for ice pellets
+!>                         the four's digit is for freezing rain
+!>                         and the eight's digit is for rain
+!>                         in other words...
+!>                         ptype=1 snow
+!>                         ptype=2 ice pellets/mix with ice pellets
+!>                         ptype=4 freezing rain/mix with freezing rain
+!>                         ptype=8 rain
+!>
+!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-07-06 | M Baldwin | Initial +!> 1999-09-20 | M Baldwin | make more consistent with bourgouin (1992) +!> 2005-08-24 | G Manikin | added to wrf post +!> 2007-06-19 | M Iredell | mersenne twister, best practices +!> 2015-??-?? | S Moorthi | changed random number call and optimization and cleanup +!> +!> Remarks: vertical order of arrays must be layer 1 = top +!> and layer lmh = bottom +!> +!> @author M Baldwin np22 @date 1999-07-06 subroutine calwxt_bourg_post(im,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1, & & iseed,g,pthresh, & diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index 461fcac48..1eabc8610 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -1,99 +1,70 @@ !> @file -! . . . -!> SUBPROGRAM: CLDRAD POST SNDING/CLOUD/RADTN FIELDS -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-08-30 -!! -!! ABSTRACT: THIS ROUTINE COMPUTES/POSTS SOUNDING, CLOUD -!! RELATED, AND RADIATION FIELDS. UNDER THE HEADING OF -!! SOUNDING FIELDS FALL THE THREE ETA MODEL LIFTED INDICES, -!! CAPE, CIN, AND TOTAL COLUMN PRECIPITABLE WATER. -!! -!! THE THREE ETA MODEL LIFTED INDICES DIFFER ONLY IN THE -!! DEFINITION OF THE PARCEL TO LIFT. ONE LIFTS PARCELS FROM -!! THE LOWEST ABOVE GROUND ETA LAYER. ANOTHER LIFTS MEAN -!! PARCELS FROM ANY OF NBND BOUNDARY LAYERS (SEE SUBROUTINE -!! BNDLYR). THE FINAL TYPE OF LIFTED INDEX IS A BEST LIFTED -!! INDEX BASED ON THE NBND BOUNDARY LAYER LIFTED INDICES. -!! -!! TWO TYPES OF CAPE/CIN ARE AVAILABLE. ONE IS BASED ON PARCELS -!! IN THE LOWEST ETA LAYER ABOVE GROUND. THE OTHER IS BASED -!! ON A LAYER MEAN PARCEL IN THE N-TH BOUNDARY LAYER ABOVE -!! THE GROUND. SEE SUBROUTINE CALCAPE FOR DETAILS. -!! -!! THE CLOUD FRACTION AND LIQUID CLOUD WATER FIELDS ARE DIRECTLY -!! FROM THE MODEL WITH MINIMAL POST PROCESSING. THE LIQUID -!! CLOUD WATER, 3-D CLOUD FRACTION, AND TEMPERATURE TENDENCIES -!! DUE TO PRECIPITATION ARE NOT POSTED IN THIS ROUTINE. SEE -!! SUBROUTINE ETAFLD FOR THESE FIELDS. LIFTING CONDENSATION -!! LEVEL HEIGHT AND PRESSURE ARE COMPUTED AND POSTED IN -!! SUBROUTINE MISCLN. -!! -!! THE RADIATION FIELDS POSTED BY THIS ROUTINE ARE THOSE COMPUTED -!! DIRECTLY IN THE MODEL. -!! -!! PROGRAM HISTORY LOG: -!! 93-08-30 RUSS TREADON -!! 94-08-04 MICHAEL BALDWIN - ADDED OUTPUT OF INSTANTANEOUS SFC -!! FLUXES OF NET SW AND LW DOWN RADIATION -!! 97-04-25 MICHAEL BALDWIN - FIX PDS FOR PRECIPITABLE WATER -!! 97-04-29 GEOFF MANIKIN - MOVED CLOUD TOP TEMPS CALCULATION -!! TO THIS SUBROUTINE. CHANGED METHOD -!! OF DETERMINING WHERE CLOUD BASE AND -!! TOP ARE FOUND AND ADDED HEIGHT OPTION -!! FOR TOP AND BASE. -!! 98-04-29 GEOFF MANIKIN - CHANGED VALUE FOR CLOUD BASE/TOP PRESSURES -!! AND HEIGHTS FROM SPVAL TO -500 -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 98-07-17 MIKE BALDWIN - REMOVED LABL84 -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 00-02-22 GEOFF MANIKIN - CHANGED VALUE FOR CLOUD BASE/TOP PRESSURES -!! AND HEIGHTS FROM SPVAL TO -500 (WAS NOT IN -!! PREVIOUS IBM VERSION) -!! 01-10-22 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-01-15 MIKE BALDWIN - WRF VERSION -!! 05-01-06 H CHUANG - ADD VARIOUS CLOUD FIELDS -!! 05-07-07 BINBIN ZHOU - ADD RSM MODEL -!! 05-08-30 BINBIN ZHOU - ADD CEILING and FLIGHT CONDITION RESTRICTION -!! 10-09-09 GEOFF MANIKIN - REVISED CALL TO CALCAPE -!! 11-02-06 Jun Wang - ADD GRIB2 OPTION -!! 11-12-14 SARAH LU - ADD AEROSOL OPTICAL PROPERTIES -!! 11-12-16 SARAH LU - ADD AEROSOL 2D DIAG FIELDS -!! 11-12-23 SARAH LU - CONSOLIDATE ALL GOCART FIELDS TO BLOCK 4 -!! 11-12-23 SARAH LU - ADD AOD AT ADDITIONAL CHANNELS -!! 12-04-03 Jun Wang - Add lftx and GFS convective cloud cover for grib2 -!! 13-05-06 Shrinivas Moorthi - Add cloud condensate to total precip water -!! 13-12-23 LU/Wang - READ AEROSOL OPTICAL PROPERTIES LUTS to compute dust aod, -!! non-dust aod, and use geos5 gocart LUTS -!! 15-??-?? S. Moorthi - threading, optimization, local dimension -!! 19-07-24 Li(Kate) Zhang Merge and update ARAH Lu's work from NGAC into FV3-Chem -!! 19-10-30 Bo CUI - Remove "GOTO" statement -!! 20-03-25 Jesse Meng - remove grib1 -!! 20-05-20 Jesse Meng - CALRH unification with NAM scheme -!! 20-11-10 Jesse Meng - USE UPP_PHYSICS MODULE -!! 21-02-08 Anning Cheng, read aod550, aod550_du/su/ss/oc/bc -!! directly from fv3gfs and output to grib2 by setting rdaod -!! 21-04-01 Jesse Meng - COMPUTATION ON DEFINED POINTS ONLY -!! -!! USAGE: CALL CLDRAD -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - RQSTFLD -!! CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM SP -!! +!> @brief Subroutine that post SNDING/CLOUD/RADTN fields. +!> +!> This routine computes/posts sounding cloud +!> related, and radiation fields. Under the heading of +!> sounding fields fall the three ETA model lifted indices, +!> CAPE, CIN, and total column precipitable water. +!> +!> The three ETA model lifted indices differ only in the +!> definition of the parcel to lift. One lifts parcels from +!> the lowest above ground ETA layer. Another lifts mean +!> parcels from any of NBND boundary layers (See subroutine +!> BNDLYR). The final type of lifted index is a best lifted +!> inden based on the NBND bouddary layer lifted indices. +!> +!> Two types of CAPE/CIN are available. One is based on parcels +!> in the lowest ETA layer above ground. The other is based +!> on a layer mean parcel in the N-th boundary layer above +!> the ground. See subroutine CALCAPE for details. +!> +!> The cloud fraction and liquid cloud water fields are directly +!> from the model with minimal post processing. The liquid +!> cloud water, 3-D cloud fraction, and temperature tendencies +!> due to precipotation are not posted in this routine. See +!> sunroutine ETAFLD for these fields. Lifting condensation +!> level height and pressure are computed and posted in +!> subroutine MISCLN. +!> +!> The radiation fields posted by this routine are those computed +!> directly in the model. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-08-30 | Russ Treadon | Initial +!> 1994-08-04 | Mike Baldwin | Added output of instantaneous SFC fluxes of net SW and LW down radiation +!> 1997-04-25 | Mike Baldwin | Fix PDS for precipitable water +!> 1997-04-29 | Geoff Manikin | Moved cloud top temps calculation to this subroutine. Changed method of determining where cloud base and top are found and added height option for top and base +!> 1998-04-29 | Geoff Manikin | Changed value for cloud base/top pressures and heights from SPVAL to -500 +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 1998-07-17 | Mike Baldwin | Removed LABL84 +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2000-02-22 | Geoff Manikin | Changed value for cloud base/top pressures and heights from SPVAL to -500 (was not in previous IBM version) +!> 2001-10-22 | H Chuang | Modified to process hybrid model output +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2005-01-06 | H Chuang | Add various cloud fields +!> 2005-07-07 | Binbin Zhou | Add RSM model +!> 2005-08-30 | Binbin Zhou | Add ceiling and flight condition restriction +!> 2010-09-09 | Geoff Manikin | Revised call to CALCAPE +!> 2011-02-06 | Jun Wang | Add GRIB2 Option +!> 2011-12-14 | Sarah Lu | Add Aerosol optical properties +!> 2011-12-16 | Sarah Lu | Add Aerosol 2D DIAG fields +!> 2011-12-23 | Sarah Lu | Consolidate all GOCART fields to BLOCK 4 +!> 2011-12-23 | Sarah Lu | Add AOD at additional channels +!> 2012-04-03 | Jun Wang | Add lftx and GFS convective cloud cover for grib2 +!> 2013-05-06 | Shrinivas Moorthi | Add cloud condensate to total precip water +!> 2013-12-23 | Lu/Wang | Read aerosol optical properties LUTS to compute dust aod, non-dust aod, and use geos5 gocart LUTS +!> 2015-??-?? | S. Moorthi | threading, optimization, local dimension +!> 2019-07-24 | Li(Kate) Zhang | Merge and update ARAH Lu's work from NGAC into FV3-Chem +!> 2019-10-30 | Bo Cui | Remove "GOTO" statement +!> 2020-03-25 | Jesse Meng | Remove grib1 +!> 2020-05-20 | Jesse Meng | CALRH unification with NAM scheme +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> 2021-02-08 | Anning Cheng | read aod550, aod550_du/su/ss/oc/bc directly from fv3gfs and output to grib2 by setting rdaod +!> 2021-04-01 | Jesse Meng | Computation on defined points only +!> +!> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD ! @@ -5613,9 +5584,9 @@ SUBROUTINE CLDRAD END subroutine cb_cover(cbcov) -! Calculate CB coverage by using fuzzy logic -! Evaluate membership of val in a fuzzy set fuzzy. -! Assume f is in x-log scale +!> Calculate CB coverage by using fuzzy logic +!> Evaluate membership of val in a fuzzy set fuzzy. +!> Assume f is in x-log scale use ctlblk_mod, only: SPVAL,JSTA,JEND,IM implicit none real, intent(inout) :: cbcov(IM,JSTA:JEND) diff --git a/sorc/ncep_post.fd/COLLECT.f b/sorc/ncep_post.fd/COLLECT.f index bcc8fab57..fc1a56f8f 100644 --- a/sorc/ncep_post.fd/COLLECT.f +++ b/sorc/ncep_post.fd/COLLECT.f @@ -1,35 +1,17 @@ !> @file -! -!> SUBPROGRAM: COLLECT GATHERS FROM ALL MPI TASKS -!! PRGRMMR: TUCCILLO ORG: IBM -!! -!! ABSTRACT: -!! GATHER "A" FROM ALL MPI TASKS ONTO TASK 0 -!! -!! PROGRAM HISTORY LOG: -!! 00-01-06 TUCCILLO - ORIGINAL -!! -!! USAGE: CALL COLLECT(A) -!! INPUT ARGUMENT LIST: -!! A - ARRAY BEING GATHERED -!! -!! OUTPUT ARGUMENT LIST: -!! A - GATHERED ARRAY - ONLY VALID ON TASK 0 -!! -!! OUTPUT FILES: -!! STDOUT - RUN TIME STANDARD OUT. -!! -!! SUBPROGRAMS CALLED: -!! MPI_GATHERV -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK.comm -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM RS/6000 SP -!! +!> @brief Subroutine that collect gathers from all MPI tasks. +!> +!> @param[in] A Array being gathered. +!> @param[out] A gathered array - only valid on task 0. +!> +!> Gather "A" from all MPI tasks onto task 0. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> +!> @author Jim Tuccillo IBM @date 2000-01-06 SUBROUTINE COLLECT (A, B) diff --git a/sorc/ncep_post.fd/COLLECT_LOC.f b/sorc/ncep_post.fd/COLLECT_LOC.f index 589cee1ba..7f9c60e9d 100644 --- a/sorc/ncep_post.fd/COLLECT_LOC.f +++ b/sorc/ncep_post.fd/COLLECT_LOC.f @@ -1,35 +1,17 @@ !> @file -! -!> SUBPROGRAM: COLLECT GATHERS FROM ALL MPI TASKS -!! PRGRMMR: TUCCILLO ORG: IBM -!! -!! ABSTRACT: -!! GATHER "A" FROM ALL MPI TASKS ONTO TASK 0 -!! -!! PROGRAM HISTORY LOG: -!! 00-01-06 TUCCILLO - ORIGINAL -!! -!! USAGE: CALL COLLECT(A) -!! INPUT ARGUMENT LIST: -!! A - ARRAY BEING GATHERED -!! -!! OUTPUT ARGUMENT LIST: -!! A - GATHERED ARRAY - ONLY VALID ON TASK 0 -!! -!! OUTPUT FILES: -!! STDOUT - RUN TIME STANDARD OUT. -!! -!! SUBPROGRAMS CALLED: -!! MPI_GATHERV -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK.comm -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM RS/6000 SP -!! +!> @brief Subroutine that collect gathers from all MPI tasks. +!> +!> @param[in] A Array being gathered. +!> @param[out] A gathered array - only valid on task 0. +!> +!> Gather "A" from all MPI tasks onto task 0. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> +!> @author Jim Tuccillo IBM @date 2000-01-06 SUBROUTINE COLLECT_LOC ( A, B ) diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index f16cf8b6e..1bcfdd788 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -1,35 +1,16 @@ !> @file -! -!> SUBPROGRAM: MPI_FIRST SET UP MESSGAE PASSING INFO -!! PRGRMMR: TUCCILLO ORG: IBM -!! -!! ABSTRACT: -!! SETS UP MESSAGE PASSING INFO -!! -!! PROGRAM HISTORY LOG: -!! 00-01-06 TUCCILLO - ORIGINAL -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-06-19 MIKE BALDWIN - WRF VERSION -!! -!! USAGE: CALL MPI_FIRST -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! -!! OUTPUT FILES: -!! STDOUT - RUN TIME STANDARD OUT. -!! -!! SUBPROGRAMS CALLED: -!! PARA_RANGE -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK.comm -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM RS/6000 SP -!! +!> @brief MPI_FIRST set up message passing info. +!> +!> This routine sets up message passing info. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> 2001-10-25 | H Chuang | Modified to process hybrid model output +!> 2002-06-19 | Mike Baldwin | WRF version +!> +!> @author Jim Tuccillo IBM @date 2000-01-06 SUBROUTINE DE_ALLOCATE ! diff --git a/sorc/ncep_post.fd/DEWPOINT.f b/sorc/ncep_post.fd/DEWPOINT.f index e310dd778..4284ecdbf 100644 --- a/sorc/ncep_post.fd/DEWPOINT.f +++ b/sorc/ncep_post.fd/DEWPOINT.f @@ -1,50 +1,45 @@ !> @file -! -!> SUBPROGRAM: DEWPOINT COMPUTES DEWPOINTS FROM VAPOR PRESSURE -!! PRGMMR: J TUCCILLO ORG: W/NP2 DATE: 90-05-19 -!! -!! ABSTRACT: COMPUTES THE DEWPOINTS FOR THE N VALUES -!! OF VAPOR PRESSURE IN ARRAY VP. -!! THE FORMULA: -!! -!! VP = 0.611 * (X**A) * EXP( (A+B)*(1-X) ) -!! -!! IS USED TO GET DEWPOINT TEMPERATURE T, WHERE -!! -!! X = T3/T, T3=TRIPLE PT TEMPERATURE, -!! VP=VAPOR PRESSURE IN CBS, 0.611=VP AT T3, -!! A=(SPEC. HT. OF WATER-CSUBP OF VAPOR)/GAS CONST OF VAPOR -!! AND -!! B=LATENT HEAT AT T3/(GAS CONST OF VAPOR TIMES T3). -!! -!! ON THE FIRST CALL, A TABLE TDP IS CONSTRUCTED GIVING -!! DEWPOINT AS A FUNCTION OF VAPOR PRESSURE. -!! -!! VALUES OF VP LESS THAN THE FIRST TABLE ENTRY -!! (RVP1 IN THE CODE) WILL BE GIVEN DEWPOINTS FOR -!! THAT BEGINNING VALUE. SIMILARLY , VP VALUES THAT -!! EXCEED THE MAXIMUM TABLE VALUE (RVP2 IN THE CODE) -!! WILL BE ASSIGNED DEWPOINTS FOR THAT MAXIMUM VALUE. -!! -!! THE VALUES 0.02 AND 8.0 FOR RVP1 AND RVP2 YIELD -!! DEWPOINTS OF 233.6K AND 314.7K,RESPECTIVELY. -!! -!! PROGRAM HISTORY LOG: -!! - 90-05-19 J TUCCILLO -!! - 93-05-12 R TREADON - EXPANDED TABLE SIZE AND RESET -!! RANGE OF PRESSURES COVERED BY -!! TABLE. -!! - 98-06-12 T BLACK - CONVERSION FROM 1-D TO 2-D -!! - 00-01-04 JIM TUCCILLO - MPI VERSION -!! - 21-07-26 W Meng - Restrict computation from undefined grids -!! -!! USAGE: CALL DEWPOINT( VP, TD) -!! INPUT ARGUMENT LIST: -!! VP - ARRAY OF N VAPOR PRESSURES(CENTIBARS) -!! -!! OUTPUT ARGUMENT LIST: -!! TD - DEWPOINT IN DEGREES ABSOLUTE -!! +!> @brief Subroutine that computes dewpoints from vapor pressure. +!> +!> This routine is to computes the dewpoints for the N values +!> of vapor pressure in array VP. +!> The forumla: +!> +!> VP = 0.611 * (X**A) * EXP( (A+B)*(1-X) ) +!> +!> is used to get dewpoint temperature T, where +!> +!> X = T3/T, T3=Triple PT temperature, +!> VP=Vapor pressure in CBS, 0.611=VP at T3, +!> A=(Spec. HT. of WATER-CSUBP of vapor)/gas const of vapor +!> and +!> B=Latent heat at T3/(gas const of vapor times T3). +!> +!> on the first call, a table TDP is constructed giving +!> dewpoint as a function of vapor pressure. +!> +!> Values of VP less than the first table entry +!> (RVP1 in the code) will be given dewpoints for +!> that beginning valus. Similarly, VP vaules that +!> exceed the maximum table value (RVP2 in the code) +!> will be assigned dewpoints for that maximum value. +!> +!> The values 0.02 and 8.0 for RVP1 and RVP2 yield +!> dewpoints of 233.6K and 314.7K,respectively. +!> +!> @param[in] VP Array of N vapor pressures(centibars). +!> @param[out] TD Dewpoint in degrees absolute. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1990-05-19 | Jim Tuccillo | Initial +!> 1993-05-12 | R Treadon | Expanded table size and reset range of pressures covered by table. +!> 1998-06-12 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2021-07-26 | W Meng | Restrict computation from undefined grids +!> +!> @author Jim Tuccillo W/NP2 @date 1990-05-19 SUBROUTINE DEWPOINT( VP, TD) use ctlblk_mod, only: jsta, jend, im, spval From 3c4a56e389b10bed2e106a49e784a3f53bd2fab3 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Wed, 6 Apr 2022 16:31:46 -0600 Subject: [PATCH 046/107] Doxygen in EXCH.f, FDLVL.f, FILL_PSETFLD.f, FRZLVL.f, and FRZLVL2.f. (#470) * This is part of Issue #392. Fixes the doxygen warnings in EXCH.f, FDLVL.f, FILL_PSETFLD.f, FRZLVL.f, and FRZLVL2.f. * Minor fix and Added new features from Ed's comments. * Format enhancement from Edward's comments. * Updated documentation. --- sorc/ncep_post.fd/EXCH.f | 61 ++--- sorc/ncep_post.fd/FDLVL.f | 384 ++++++++++++------------------- sorc/ncep_post.fd/FILL_PSETFLD.f | 53 ++--- sorc/ncep_post.fd/FRZLVL.f | 101 +++----- sorc/ncep_post.fd/FRZLVL2.f | 105 ++++----- 5 files changed, 273 insertions(+), 431 deletions(-) diff --git a/sorc/ncep_post.fd/EXCH.f b/sorc/ncep_post.fd/EXCH.f index 7cb3b5908..08efef681 100644 --- a/sorc/ncep_post.fd/EXCH.f +++ b/sorc/ncep_post.fd/EXCH.f @@ -1,37 +1,21 @@ !> @file -! -!> SUBPROGRAM: EXCH EXCHANGE ONE HALO ROW -!! PRGRMMR: TUCCILLO ORG: IBM -!! -!! ABSTRACT: -!! EXCHANGE ONE HALO ROW -!! -!! PROGRAM HISTORY LOG: -!! 00-01-06 TUCCILLO - ORIGINAL -!! -!! USAGE: CALL EXCH(A) -!! INPUT ARGUMENT LIST: -!! A - ARRAY TO HAVE HALOS EXCHANGED -!! -!! OUTPUT ARGUMENT LIST: -!! A - ARRAY WITH HALOS EXCHANGED -!! -!! OUTPUT FILES: -!! STDOUT - RUN TIME STANDARD OUT. -!! -!! SUBPROGRAMS CALLED: -!! MPI_SENDRECV -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK.comm -!! -!@PROCESS NOCHECK -! -!--- The 1st line is an inlined compiler directive that turns off -qcheck -! during compilation, even if it's specified as a compiler option in the -! makefile (Tuccillo, personal communication; Ferrier, Feb '02). -! +!> @brief Subroutines that exchange one halo row. +!> +!> These routines are to exchange one halo row. +!> +!> @param[in] A Array to have halos exchanged. +!> @param[out] A Array with halos exchanged. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> +!> @note The 1st line is an inlined compiler directive that turns off -qcheck +!> during compilation, even if it's specified as a compiler option in the +!> makefile (Tuccillo, personal communication; Ferrier, Feb '02). +!> +!> @author Jim Tuccillo IBM @date 2000-01-06 SUBROUTINE EXCH(A) use ctlblk_mod, only: num_procs, jend, iup, jsta, idn, mpi_comm_comp, im,& @@ -72,11 +56,12 @@ SUBROUTINE EXCH(A) end !!@PROCESS NOCHECK -! -!--- The 1st line is an inlined compiler directive that turns off -qcheck -! during compilation, even if it's specified as a compiler option in the -! makefile (Tuccillo, personal communication; Ferrier, Feb '02). -! +!> +!> @note The 1st line is an inlined compiler directive that turns off -qcheck +!> during compilation, even if it's specified as a compiler option in the +!> makefile (Tuccillo, personal communication; Ferrier, Feb '02). +!> +!> @author Jim Tuccillo IBM @date 2000-01-06 subroutine exch_f(a) use ctlblk_mod, only: num_procs, jend, iup, jsta, idn, & diff --git a/sorc/ncep_post.fd/FDLVL.f b/sorc/ncep_post.fd/FDLVL.f index 81441ac3b..e69a17a04 100644 --- a/sorc/ncep_post.fd/FDLVL.f +++ b/sorc/ncep_post.fd/FDLVL.f @@ -1,71 +1,45 @@ !> @file -! -!> SUBPROGRAM: FDLVL COMPUTES FD LEVEL T, Q, U, V -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES TEMPERATURE, SPEC. HUM, U WIND COMPONENT, -!! AND V WIND COMPONENT ON THE NFD=6 FD LEVELS. THE -!! HEIGHT OF THESE LEVELS (IN METERS) IS GIVEN IN THE -!! DATA STATEMENT BELOW. THE ALGORITHM PROCEEDS AS -!! FOLLOWS. (AGL IN PARENTHESES) -!! -!! AT EACH MASS POINT MOVE UP VERTICALLY FROM THE LM-TH (LOWEST -!! ATMOSPHERIC) ETA LAYER. FIND THE ETA LAYERS WHOSE -!! HEIGHT (ABOVE GROUND) BOUNDS THE TARGET FD LEVEL HEIGHT. -!! VERTICALLY INTERPOLATE TO GET TEMPERATURE AT THIS FD -!! LEVEL. AVERAGE THE FOUR SURROUNDING WINDS -!! TO GET A MASS POINT WIND. VERTICALLY INTERPOLATE THESE -!! MASS POINT WINDS TO THE TARGET FD LEVEL. CONTINUE THIS -!! PROCESS UNTIL ALL NFD=6 FD LEVELS HAVE BEEN PROCESSED. -!! MOVE ON TO THE NEXT MASS POINT. -!! -!! AVERAGING THE FOUR ABOVE GROUND WINDS TO THE MASS POINT -!! WAS FOUND TO SMOOTH THE FIELD AND REDUCE THE OCCURRENCE -!! OF POINT PEAK WINDS FAR IN EXCESS OF THE WINDS AT -!! ADJACENT POINTS. MASS POINT VALUES ARE RETURNED. -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 93-11-23 RUSS TREADON - CORRECTED ROUTINE TO COMPUTE -!! FD LEVELS WITH REPECT TO MEAN SEA LEVEL. -!! 94-01-04 MICHAEL BALDWIN - INCLUDE OPTIONS FOR COMPUTING -!! EITHER AGL OR MSL -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-01-15 MIKE BALDWIN - WRF VERSION -!! 11-12-14 SARAH LU - ADD GOCART AEROSOL AERFD -!! -!! USAGE: CALL FDLVL(ITYPE,TFD,QFD,UFD,VFD) -!! INPUT ARGUMENT LIST: -!! ITYPE - FLAG THAT DETERMINES WHETHER MSL (1) OR AGL (2) -!! LEVELS ARE USED. -!! -!! OUTPUT ARGUMENT LIST: -!! TFD - TEMPERATURE (K) ON FD LEVELS. -!! QFD - SPEC HUM ON FD LEVELS. -!! UFD - U WIND (M/S) ON FD LEVELS. -!! VFD - V WIND (M/S) ON FD LEVELS. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! COMMON - -!! LOOPS -!! MASKS -!! OPTIONS -!! INDX -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! -! SUBROUTINE FDLVL(NFD,ITYPE,HTFD,TFD,QFD,UFD,VFD,PFD) -! SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD) +!> @brief Subroutine that computes T, Q, U, V on the flight levels (FD). +!> +!> This routine computes temperature, spec. hum, u wind component, +!> and v wind component on the NFD=6 FD levels. The +!> height of these levels (in meters) is given in the +!> data statement below. The alogrithm proceeds as +!> follows. (AGL-Above ground level in parentheses) +!> +!> At each mass point move up vertically from the LM-TH (lowest +!> atmospheric) ETA layer. Find the ETA layers whose +!> height (above ground) bounds the target FD level height. +!> Vertically interpolate to get temperature at this FD +!> level. Average the four surrounding winds +!> to get a mass point wind. Vertically interpolate these +!> mass point winds to the target FD level. Continue this +!> process until all NFD=6 FD levels have been processed. +!> Move on to the next mass point. +!> +!> Averaging the four above ground winds to the mass point +!> was found to smooth the field and reduce the occurrence +!> of point peak winds far in excess of the winds at +!> adjacent points. Mass point values are returned. +!> +!> @param[in] ITYPE Flag that determines whether MSL (1) or AGL (2) Levels are used. +!> @param[out] TFD Temperature (K) on FD levels. +!> @param[out] QFD Spec hum on FD levels. +!> @param[out] UFD U wind (m/s) on FD levels. +!> @param[out] VFD V wind (m/s) on FD levels. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-11-23 | Russ Treadon | Corrected routine to compute FD levels with respect to mean sea level +!> 1994-01-04 | Mike Baldwin | Include options for computing either AGL or MSL +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2011-12-14 | Sarah Lu | Add GOCART aerosol AERFD +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) ! @@ -468,74 +442,48 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) RETURN END +!> Computes FD level for u,v. +!> +!> This routine computes u/v wind component on NFD FD levels. +!> The height of these levels (in meters) is passed as an +!> input parameter. The alogrithm proceeds as +!> follows. (AGL-Above ground level in parentheses) +!> +!> At each mass point move up vertically from the LM-TH (lowest +!> atmospheric) ETA layer. Find the ETA layers whose +!> height (above ground) bounds the target FD level height. +!> Vertically interpolate to get temperature at this FD +!> level. Average the four surrounding winds +!> to get a mass point wind. Vertically interpolate these +!> mass point winds to the target FD level. Continue this +!> process until all NFD FD levels have been processed. +!> Move on to the next mass point. +!> +!> Averaging the four above ground winds to the mass point +!> was found to smooth the field and reduce the occurrence +!> of point peak winds far in excess of the winds at +!> adjacent points. Mass point values are returned. +!> +!> @param[in] ITYPE Flag that determines whether MSL (1) or AGL (2) Levels are used. +!> @param[in] NFD Number of FD levels. +!> @param[in] HTFD FD levels. +!> @param[out] UFD U wind (m/s) on FD levels. +!> @param[out] VFD V wind (m/s) on FD levels. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-11-23 | Russ Treadon | Corrected routine to compute FD levels with respect to mean sea level +!> 1994-01-04 | Mike Baldwin | Include options for computing either AGL or MSL +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2011-12-14 | Sarah Lu | Add GOCART aerosol AERFD +!> 2019-09-25 | Y Mao | Seperate U/V from mass +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE FDLVL_UV(ITYPE,NFD,HTFD,UFD,VFD) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: FDLVL_UV COMPUTES FD LEVEL U, V -! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -! -! ABSTRACT: -! THIS ROUTINE COMPUTES U/V WIND COMPONENT ON NFD FD LEVELS. -! THE HEIGHT OF THESE LEVELS (IN METERS) IS PASSED AS AN -! INPUT PARAMETER. THE ALGORITHM PROCEEDS AS -! FOLLOWS. (AGL IN PARENTHESES) -! -! AT EACH MASS POINT MOVE UP VERTICALLY FROM THE LM-TH (LOWEST -! ATMOSPHERIC) ETA LAYER. FIND THE ETA LAYERS WHOSE -! HEIGHT (ABOVE GROUND) BOUNDS THE TARGET FD LEVEL HEIGHT. -! VERTICALLY INTERPOLATE TO GET TEMPERATURE AT THIS FD -! LEVEL. AVERAGE THE FOUR SURROUNDING WINDS -! TO GET A MASS POINT WIND. VERTICALLY INTERPOLATE THESE -! MASS POINT WINDS TO THE TARGET FD LEVEL. CONTINUE THIS -! PROCESS UNTIL ALL NFD FD LEVELS HAVE BEEN PROCESSED. -! MOVE ON TO THE NEXT MASS POINT. -! -! AVERAGING THE FOUR ABOVE GROUND WINDS TO THE MASS POINT -! WAS FOUND TO SMOOTH THE FIELD AND REDUCE THE OCCURRENCE -! OF POINT PEAK WINDS FAR IN EXCESS OF THE WINDS AT -! ADJACENT POINTS. MASS POINT VALUES ARE RETURNED. -! . -! -! PROGRAM HISTORY LOG: -! 92-12-22 RUSS TREADON -! 93-11-23 RUSS TREADON - CORRECTED ROUTINE TO COMPUTE -! FD LEVELS WITH REPECT TO MEAN SEA LEVEL. -! 94-01-04 MICHAEL BALDWIN - INCLUDE OPTIONS FOR COMPUTING -! EITHER AGL OR MSL -! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -! 00-01-04 JIM TUCCILLO - MPI VERSION -! 02-01-15 MIKE BALDWIN - WRF VERSION -! 11-12-14 SARAH LU - ADD GOCART AEROSOL AERFD -! 19-25-09 Y Mao - Seperate U/V from mass -! -! USAGE: CALL FDLVL_UV(ITYPE,NFD,HTFD,UFD,VFD) -! INPUT ARGUMENT LIST: -! ITYPE - FLAG THAT DETERMINES WHETHER MSL (1) OR AGL (2) -! LEVELS ARE USED. -! NFD - NUMBER OF FD LEVELS -! HTFD - FD LEVELS -! -! OUTPUT ARGUMENT LIST: -! UFD - U WIND (M/S) ON FD LEVELS. -! VFD - V WIND (M/S) ON FD LEVELS. -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! -! LIBRARY: -! COMMON - -! LOOPS -! MASKS -! OPTIONS -! INDX -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : CRAY C-90 -!$$$ ! ! use vrbls3d, only: ZMID, PMID, UH, VH @@ -795,106 +743,76 @@ SUBROUTINE FDLVL_UV(ITYPE,NFD,HTFD,UFD,VFD) RETURN END +!> Computes FD level for mass variables. +!> +!> This routine computes mass variables (temperature, spec. hum...) +!> on NFD FD levels. The height of these levels (in meters) is +!> passed as an input parameter. The alogrithm proceeds as +!> follows. (AGL-Above ground level in parentheses) +!> +!> At each mass point move up vertically from the LM-TH (lowest +!> atmospheric) ETA layer. Find the ETA layers whose +!> height (above ground) bounds the target FD level height. +!> Vertically interpolate to get temperature at this FD +!> level. Average the four surrounding winds +!> to get a mass point wind. Vertically interpolate these +!> mass point winds to the target FD level. Continue this +!> process until all NFD FD levels have been processed. +!> Move on to the next mass point. +!> +!> Averaging the four above ground winds to the mass point +!> was found to smooth the field and reduce the occurrence +!> of point peak winds far in excess of the winds at +!> adjacent points. Mass point values are returned. +!> +!> NOTES for Q fields by Y Mao: +!> The following safety check should be executed by the caller of FDLVL subroutines. +!> Safety check to avoid tiny QFD values. +!> KRF: Need NCAR and NMM WRF cores in this check as well? +!> @code +!> IF(MODELNAME=='RAPR' .OR. MODELNAME=='NCAR' .OR. MODELNAME=='NMM') THEN ! +!> DO IFD = 1,NFD +!> DO J=JSTA,JEND +!> DO I=1,IM +!> if(QFD(I,J,IFD) < 1.0e-8) QFD(I,J,IFD)=0.0 +!> ENDDO +!> ENDDO +!> ENDDO +!> endif +!> @endcode +!> +!> @param[in] ITYPE Flag that determines whether MSL (1) or AGL (2) Levels are used. +!> @param[in] NFD Number of FD levels. +!> @param[in] PTFD FD pressure levels. +!> @param[in] HTFD FD height levels. +!> @param[in] NIN Number of input fields. +!> @param[in] QIN Array of mass point value on model levels. +!> @param[in] QTYPE Charater array of variable type to differentiate underground interpolation. +!>
+!>                   C-5 Cloud Species
+!>                   K-TURBULENT KINETIC ENERGY
+!>                   Q-Specific Humidity
+!>                   T-Temperature, 
+!>                   W-Vertical Velocity or Omega
+!>
+!> @param[out] QFD Array of mass point value on FD levels. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-11-23 | Russ Treadon | Corrected routine to compute FD levels with respect to mean sea level +!> 1994-01-04 | Mike Baldwin | Include options for computing either AGL or MSL +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2011-12-14 | Sarah Lu | Add GOCART aerosol AERFD +!> 2017-06-01 | Y Mao | Add FD levels for GTG(EDPARM CATEDR MWTURB) and allow levels input from control file +!> 2019-09-25 | Y Mao | Seperate mass from UV allow array of mass input to interpolate multiple fields with the same levels at one time. Dust=> AERFD can be processed when NIN=NBIN_DU +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS module +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE FDLVL_MASS(ITYPE,NFD,PTFD,HTFD,NIN,QIN,QTYPE,QFD) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: FDLVL_MASS COMPUTES FD LEVEL FOR MASS VARIABLES -! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -! -! ABSTRACT: -! THIS ROUTINE COMPUTES MASS VARIABLES (TEMPERATURE, SPEC. HUM...) -! ON NFD FD LEVELS. THE HEIGHT OF THESE LEVELS (IN METERS) IS -! PASSED AS AN INPUT PARAMETER. THE ALGORITHM PROCEEDS AS -! FOLLOWS. (AGL IN PARENTHESES) -! -! AT EACH MASS POINT MOVE UP VERTICALLY FROM THE LM-TH (LOWEST -! ATMOSPHERIC) ETA LAYER. FIND THE ETA LAYERS WHOSE -! HEIGHT (ABOVE GROUND) BOUNDS THE TARGET FD LEVEL HEIGHT. -! VERTICALLY INTERPOLATE TO GET TEMPERATURE AT THIS FD -! LEVEL. AVERAGE THE FOUR SURROUNDING WINDS -! TO GET A MASS POINT WIND. VERTICALLY INTERPOLATE THESE -! MASS POINT WINDS TO THE TARGET FD LEVEL. CONTINUE THIS -! PROCESS UNTIL ALL NFD FD LEVELS HAVE BEEN PROCESSED. -! MOVE ON TO THE NEXT MASS POINT. -! -! AVERAGING THE FOUR ABOVE GROUND WINDS TO THE MASS POINT -! WAS FOUND TO SMOOTH THE FIELD AND REDUCE THE OCCURRENCE -! OF POINT PEAK WINDS FAR IN EXCESS OF THE WINDS AT -! ADJACENT POINTS. MASS POINT VALUES ARE RETURNED. -! . -! -! PROGRAM HISTORY LOG: -! 92-12-22 RUSS TREADON -! 93-11-23 RUSS TREADON - CORRECTED ROUTINE TO COMPUTE -! FD LEVELS WITH REPECT TO MEAN SEA LEVEL. -! 94-01-04 MICHAEL BALDWIN - INCLUDE OPTIONS FOR COMPUTING -! EITHER AGL OR MSL -! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -! 00-01-04 JIM TUCCILLO - MPI VERSION -! 02-01-15 MIKE BALDWIN - WRF VERSION -! 11-12-14 SARAH LU - ADD GOCART AEROSOL AERFD -! 17-06-01 Y Mao - ADD FD levels for GTG(EDPARM CATEDR MWTURB) and allow -! levels input from control file -! 19-09-25 Y MAO - SEPERATE MASS FROM UV -! ALLOW ARRAY OF MASS INPUT TO INTERPOLATE MULTIPLE FIELDS -! WITH THE SAME LEVELS AT ONE TIME -! DUST=>AERFD CAN BE PROCESSED WHEN NIN=NBIN_DU -! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -! -! USAGE: CALL FDLVL_MASS(ITYPE,NFD,PTFD,HTFD,NIN,QIN,QTYPE,QFD) -! INPUT ARGUMENT LIST: -! ITYPE - FLAG THAT DETERMINES WHETHER MSL (1) OR AGL (2) -! LEVELS ARE USED. -! NFD - NUMBER OF FD LEVELS -! PTFD - FD PRESSURE LEVELS -! HTFD - FD HEIGHT LEVELS -! NIN - NUMBER OF INPUT FIELDS -! QIN - ARRAY OF MASS POINT VALUE ON MODEL LEVELS -! QTYPE - CHARACTER ARRAY OF VARIABLE TYPE TO DIFFERENTIATE UNDERGROUND INTERPOLATION -! C-5 Cloud Species -! K-TURBULENT KINETIC ENERGY -! Q-Specific Humidity -! T-Temperature, -! W-Vertical Velocity or Omega -! -! OUTPUT ARGUMENT LIST: -! QFD - ARRAY OF MASS POINT VALUE ON FD LEVELS. -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! -! LIBRARY: -! COMMON - -! LOOPS -! MASKS -! OPTIONS -! INDX -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : CRAY C-90 -!$$$ -! -! - -! NOTES for Q fields by Y Mao: -! The following safety check should be executed by the caller of FDLVL subroutines. -! safety check to avoid tiny QFD values -! !KRF: Need NCAR and NMM WRF cores in this check as well? -! IF(MODELNAME=='RAPR' .OR. MODELNAME=='NCAR' .OR. MODELNAME=='NMM') THEN ! -! DO IFD = 1,NFD -! DO J=JSTA,JEND -! DO I=1,IM -! if(QFD(I,J,IFD) < 1.0e-8) QFD(I,J,IFD)=0.0 -! ENDDO -! ENDDO -! ENDDO -! endif -! - use vrbls3d, only: T,Q,ZMID,PMID,PINT,ZINT use vrbls2d, only: FIS use masks, only: LMH diff --git a/sorc/ncep_post.fd/FILL_PSETFLD.f b/sorc/ncep_post.fd/FILL_PSETFLD.f index 63a9757c7..bc0d3d6b9 100644 --- a/sorc/ncep_post.fd/FILL_PSETFLD.f +++ b/sorc/ncep_post.fd/FILL_PSETFLD.f @@ -1,39 +1,22 @@ !> @file -! . . . -!> SUBPROGRAM: READCNTRLgrb2_xml READS POST xml CONTROL FILE -!! PRGRMMR: J. WANG ORG: NCEP/EMC DATE: 12-01-27 -!! -!! ABSTRACT: -!! THIS ROUTINE SET THE OUTPUT FIELD GRIB2 INFORMATION SUCH -!! AS PARAMETER NAME, LEVEL TYPE ETC FROM POST AVAILABLE FIELD -!! TABLE -!! -!! PROGRAM HISTORY LOG: -!! 01_27_2012 Jun Wang - INITIAL CODE -!! 04_03_2012 Jun Wang - Add table info -!! 03_10_2015 Lin Gan - Using flat file data -!! -!! USAGE: CALL READCNTRL_XML(kth,kpv,pv) -!! INPUT ARGUMENT LIST: -!! param_ofld: output field -!! param_afld: available field in POST -!! -!! OUTPUT ARGUMENT LIST: -!! param_ofld: output field -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! MODULE: - xml_data_post_t -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM -!! +!> @brief fill_psetfld() reads post xml control file. +!> +!> This routine set the output field GRIB2 information such +!> as parameter name, level type etc from post available field +!> table. +!> +!> @param[in] param_ofld output field. +!> @param[in] param_afld available field in post. +!> @param[out] param_ofld output field. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2012-01-27 | Jun Wang | Initial +!> 2012-04-03 | Jun Wang | Add table info +!> 2015-03-10 | Lin Gan | Using flat file data +!> +!> @author J. Wang NCEP/EMC @date 2012-01-27 subroutine fill_psetfld(param_ofld,param_afld) ! diff --git a/sorc/ncep_post.fd/FRZLVL.f b/sorc/ncep_post.fd/FRZLVL.f index d84bd7da4..2ef1fe7be 100644 --- a/sorc/ncep_post.fd/FRZLVL.f +++ b/sorc/ncep_post.fd/FRZLVL.f @@ -1,67 +1,42 @@ !> @file -! -!> SUBPROGRAM: FRZLVL COMPUTES FRZING LVL Z AND RH -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! T. Smirnova - 8-27-2010 - added PFRZL to the output -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE FREEZING LEVEL HEIGHT AND RELATIVE -!! HUMIDITY AT THIS LEVEL FOR EACH MASS POINT ON THE ETA GRID. -!! THE COMPUTED FREEZING LEVEL HEIGHT IS THE MEAN SEA LEVEL -!! HEIGHT. AT EACH MASS POINT WE MOVE UP FROM THE SURFACE TO -!! FIND THE FIRST ETA LAYER WHERE THE TEMPERATURE IS LESS THAN -!! 273.16K. VERTICAL INTERPOLATION IN TEMPERATURE TO THE FREEZING -!! TEMPERATURE GIVES THE FREEZING LEVEL HEIGHT. PRESSURE AND -!! SPECIFIC HUMIDITY ARE INTERPOLATED TO THIS LEVEL AND ALONG WITH -!! THE TEMPERATURE PROVIDE THE FREEZING LEVEL RELATIVE HUMIDITY. -!! IF THE SURFACE (SKIN) TEMPERATURE IS BELOW FREEZING, THE ROUTINE -!! USES SURFACE BASED FIELDS TO COMPUTE THE RELATIVE HUMIDITY. -!! -!! NOTE THAT IN POSTING FREEZING LEVEL DATA THE LFM LOOK-ALIKE FILE -!! (IE, GRID 26), WE PACK 273.15K AS THE FREEZING TEMPERATURE. ALL -!! OTHER OUTPUT GRIDS USE 273.16K -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 93-06-10 RUSS TREADON - CORRECTED FREEZING LEVEL HEIGHTS TO BE -!! WITH REPSECT TO MEAN SEA LEVEL, NOT -!! ABOVE GROUND LEVEL. -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE IF NECESSARY -!! 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-01-15 MIKE BALDWIN - WRF VERSION -!! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! -!! USAGE: CALL FRZLVL(ZFRZ,RHFRZ) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! ZFRZ - ABOVE GROUND LEVEL FREEZING HEIGHT. -!! RHFRZ - RELATIVE HUMIDITY AT FREEZING LEVEL. -!! PFRZL - PRESSURE AT FREEZING LEVEL. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - -!! LOOPS -!! PVRBLS -!! MASKS -!! MAPOT -!! POSTVAR -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes FRZING LVL, Z and RH. +!> +!> This routine computes the freezing level height and relative +!> humidity at this level for each mass point on the ETA grid. +!> The computed freezing level height is the mean sea level +!> height. At each mass point we move up from the surface to +!> find the first ETA layer where the temperature is less than +!> 273.16K. Vertical interpolation in temperature to the freezing +!> temperature gives the freezing level height. Pressure and +!> specific humidity are interpolated to this level and along with +!> the temperature provide the freezing level relative humidity. +!> If the surface (skin) temperature is below freezing, the routine +!> uses surface based fields to compute the relative humidity. +!> +!> Note that in posting freezing level data the LFM look-alike file +!> (IE, GRID 26), we pack 273.15K as the freezing temperature. All +!> other output grids use 273.16K. +!> +!> @param[out] ZFRZ Above ground level freezing height. +!> @param[out] RHFRZ Relative humidity at freezing level. +!> @param[out] PFRZL pressure at freezing level. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-06-05 | Russ Treadon | Corrected freezing level heights to be with respect to mean sea level, not above ground level +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 1998-08-17 | Mike Baldwin | Compute RH over ice if necessary +!> 1998-12-22 | Mike Baldwin | Back out RH over ice +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2001-10-25 | H Chuang | Modified to process hybrid model output +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2010-08-27 | T. Smirnova | Added PFRZL to the output +!> 2019-10-30 | Bo Cui | Remove "GOTO" statement +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS module +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE FRZLVL(ZFRZ,RHFRZ,PFRZL) ! diff --git a/sorc/ncep_post.fd/FRZLVL2.f b/sorc/ncep_post.fd/FRZLVL2.f index a8f934ea7..177e0cc2d 100644 --- a/sorc/ncep_post.fd/FRZLVL2.f +++ b/sorc/ncep_post.fd/FRZLVL2.f @@ -1,66 +1,47 @@ !> @file -! -!> SUBPROGRAM: FRZLVL COMPUTES FRZING LVL Z AND RH -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE ISOTHERMAL LEVEL HEIGHT AND RELATIVE -!! HUMIDITY AT THIS LEVEL FOR EACH MASS POINT ON THE ETA GRID. -!! THE COMPUTED ISOTHERMAL LEVEL HEIGHT IS THE MEAN SEA LEVEL -!! HEIGHT. AT EACH MASS POINT WE MOVE UP FROM THE SURFACE TO -!! FIND THE LAST ETA LAYER WHERE THE TEMPERATURE IS LESS THAN -!! ISOTHERM AND THE TEMP IN THE LAYER BELOW IS ABOVE ISOTHERM. -!! VERTICAL INTERPOLATION IN TEMPERATURE TO THE ISOTHERMAL -!! TEMPERATURE GIVES THE ISOTHERMAL LEVEL HEIGHT. PRESSURE AND -!! SPECIFIC HUMIDITY ARE INTERPOLATED TO THIS LEVEL AND ALONG WITH -!! THE TEMPERATURE PROVIDE THE ISOTHERMAL LEVEL RELATIVE HUMIDITY. -!! IF THE ENTIRE ATMOSPHERE IS BELOW ISOTHERM, THE ROUTINE -!! USES SURFACE BASED FIELDS TO COMPUTE THE RELATIVE HUMIDITY. -!! -!! NOTE THAT IN POSTING FREEZING LEVEL DATA THE LFM LOOK-ALIKE FILE -!! (IE, GRID 26), WE PACK 273.15K AS THE FREEZING TEMPERATURE. ALL -!! OTHER OUTPUT GRIDS USE 273.16K -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 93-06-10 RUSS TREADON - CORRECTED FREEZING LEVEL HEIGHTS TO BE -!! WITH REPSECT TO MEAN SEA LEVEL, NOT -!! ABOVE GROUND LEVEL. -!! 95-03-10 MIKE BALDWIN - GET HIGHEST FREEZING LEVEL. -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE IF NECESSARY -!! 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE -!! 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-01-15 MIKE BALDWIN - WRF VERSION -!! 10-08-27 T. Smirnova - added PFRZL to the output -!! 16-01-21 C. Alexander - Generalized function for any isotherm -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! 21-07-28 W. Meng - Restrict compuatation from undefined grids -!! -!! USAGE: CALL FRZLVL2(ISOTHERM,ZFRZ,RHFRZ,PFRZL) -!! INPUT ARGUMENT LIST: -!! ISOTHERM - ISOTHERMAL VALUE OF HEIGHT TO BE OUTPUT. -!! -!! OUTPUT ARGUMENT LIST: -!! ZFRZ - ABOVE GROUND LEVE/ZFL AT ISOTHERM HEIGHT. -!! RHFRZ - RELATIVE HUMIDITY AT ISOTHERM LEVEL. -!! PFRZL - PRESSURE AT ISOTHERM LEVEL. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief Subroutine that computes FRZING LVL, Z and RH. +!> +!> This routine computes the isothermal level height and relative +!> humidity at this level for each mass point on the ETA grid. +!> The computed isothermal level height is the mean sea level +!> height. At each mass point we move up from the surface to +!> find the last ETA layer where the temperature is less than +!> isotherm and the temp in the layer below is above isotherm. +!> Vertical interpolation in temperature to the isotherm +!> temperature gives the isothermal level height. Pressure and +!> specific humidity are interpolated to this level and along with +!> the temperature provide the isothermal level relative humidity. +!> If the entire atmosphere is below isotherm, the routine +!> uses surface based fields to compute the relative humidity. +!> +!> Note that in posting freezing level data the LFM look-alike file +!> (IE, GRID 26), we pack 273.15K as the freezing temperature. All +!> other output grids use 273.16K. +!> +!> @param[in] isotherm isothermal value of height to be output. +!> @param[out] ZFRZ Above ground level/ZFL at isotherm height. +!> @param[out] RHFRZ Relative humidity at isotherm level. +!> @param[out] PFRZL pressure at isotherm level. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-06-05 | Russ Treadon | Corrected freezing level heights to be with respect to mean sea level, not above ground level +!> 1995-03-10 | Mike Baldwin | Get highest freezing level +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 1998-08-17 | Mike Baldwin | Compute RH over ice if necessary +!> 1998-12-22 | Mike Baldwin | Back out RH over ice +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2001-10-25 | H Chuang | Modified to process hybrid model output +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2010-08-27 | T. Smirnova | Added PFRZL to the output +!> 2016-01-21 | C. Alexander | Generalized function for any isotherm +!> 2019-10-30 | Bo Cui | Remove "GOTO" statement +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS module +!> 2021-07-28 | W. Meng | Restrict compuatation from undefined grids +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE FRZLVL2(ISOTHERM,ZFRZ,RHFRZ,PFRZL) ! From 0bb7295167f384752bb40859748cf6ba67d1560d Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Wed, 6 Apr 2022 17:17:06 -0600 Subject: [PATCH 047/107] Doxygen in GFSPOSTSIG.F NGMFLD.f OTLFT.f OTLIFT.f PARA_RANGE.f PROCESS.f and retrieve_index.f. (#477) * This is part of Issue #392. Fix the doxygen warnings in GFSPOSTSIG.F NGMFLD.f OTLFT.f OTLIFT.f PARA_RANGE.f PROCESS.f and retrieve_index.f. * Minor fix. * Update table for NGMFLD.f. --- sorc/ncep_post.fd/GFSPOSTSIG.F | 341 ++++++++++++----------------- sorc/ncep_post.fd/NGMFLD.f | 120 ++++------ sorc/ncep_post.fd/OTLFT.f | 71 +++--- sorc/ncep_post.fd/OTLIFT.f | 63 ++---- sorc/ncep_post.fd/PARA_RANGE.f | 50 ++--- sorc/ncep_post.fd/PROCESS.f | 75 +++---- sorc/ncep_post.fd/retrieve_index.f | 45 ++-- 7 files changed, 296 insertions(+), 469 deletions(-) diff --git a/sorc/ncep_post.fd/GFSPOSTSIG.F b/sorc/ncep_post.fd/GFSPOSTSIG.F index 50b6f358a..5ca911777 100644 --- a/sorc/ncep_post.fd/GFSPOSTSIG.F +++ b/sorc/ncep_post.fd/GFSPOSTSIG.F @@ -1,77 +1,54 @@ !> @file -! -!> Subprogram: rtsig Read and transform sigma file -!! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -!! -!! Abstract: This subprogram reads a sigma file and transforms -!! the fields to a designated global grid. -!! -!! Program history log: -!! 1999-10-18 Mark Iredell -!! 2013-04-19 Jun Wang: add option to get tmp and ps(in pascal) -!! from enthalpy and ps(cb) option -!! 2013-05-06 Shrinivas Moorthi: Initialize midea to 0 -!! 2013-05-07 Shrinivas Moorthi: Remove mo3, mct, midea and define io3, ict etc -!! correctly and get correct cloud condensate. -!! 2013-08-02 Shrinivas Moorthi: Rewrote the whole routine to read the sigma -!! file differently and to read all tracers -!! Addedd sptezj for two 2d fields -!! 2014-02-20 Shrinivas Moorthi: Modified conversion from spectral to grid -!! taking advantage of threding in SP library. -!! This really speeds up the code -!! Also threaded loop for Temperature from Tv - -!! -!! Usage: call rtsig(lusig,head,k1,k2,kgds,ijo,nct, & -!! h,p,px,py,t,tx,ty,u,v,d,z,sh,o3,ct,iret,o,o2) -!! Input argument list: -!! lusig integer(sigio_intkind) sigma file unit number -!! head type(sigio_head) sigma file header -!! k1 integer first model level to return -!! k2 integer last model level to return -!! kgds integer (200) GDS to which to transform -!! ijo integer dimension of output fields -!! levs integer number of total vertical levels -!! ntrac integer number of output tracers -!! jcap integer number of waves -!! lnt2 integer (jcap+1)*(jcap+2) -!! Output argument list: -!! h real (ijo) surface orography (m) -!! p real (ijo) surface pressure (Pa) -!! px real (ijo) log surface pressure x-gradient (1/m) -!! py real (ijo) log surface pressure y-gradient (1/m) -!! t real (ijo,k1:k2) temperature (K) -!! tx real (ijo,k1:k2) virtual temperature x-gradient (K/m) -!! ty real (ijo,k1:k2) virtual temperature y-gradient (K/m) -!! u real (ijo,k1:k2) x-component wind (m/s) -!! v real (ijo,k1:k2) y-component wind (m/s) -!! d real (ijo,k1:k2) wind divergence (1/s) -!! trc real (ijo,k1:k2,ntrac) tracers -!! 1 = specific humidity (kg/kg) -!! 2 = Ozone mixing ratio (kg/kg) -!! 3 = cloud condensate mixing ratio (kg/kg) -!! . -!! . -!! atomic oxyge, oxygen etc -!! -!! iret integer return code -!! -!! Modules used: -!! sigio_r_module sigma file I/O -!! -!! Subprograms called: -!! sigio_rrdati read sigma single data field -!! sptez scalar spectral transform -!! sptezd gradient spectral transform -!! sptezm multiple scalar spectral transform -!! sptezmv multiple vector spectral transform -!! -!! Attributes: -!! Language: Fortran 90 -!! -!! -! Add Iredells subroutine to read sigma files -!------------------------------------------------------------------------------- +!> +!> @brief rtsig() reads and transforms sigma file. +!> +!> This subprogram reads a sigma file and transforms +!> the fields to a designated global grid. +!> Add Iredells subroutine to read sigma files. +!> +!> @param[out] lusig integer(sigio_intkind) sigma file unit number. +!> @param[out] head type(sigio_head) sigma file header. +!> @param[out] k1 integer first model level to return. +!> @param[out] k2 integer last model level to return. +!> @param[out] kgds integer (200) GDS to which to transform. +!> @param[out] ijo integer dimension of output fields. +!> @param[out] levs integer number of total vertical levels. +!> @param[out] ntrac integer number of output tracers. +!> @param[out] jcap integer number of waves. +!> @param[out] lnt2 integer (jcap+1)*(jcap+2). +!> @param[out] h real (ijo) surface orography (m). +!> @param[out] p real (ijo) surface pressure (Pa). +!> @param[out] px real (ijo) log surface pressure x-gradient (1/m). +!> @param[out] py real (ijo) log surface pressure y-gradient (1/m). +!> @param[out] t real (ijo,k1:k2) temperature (K). +!> @param[out] tx real (ijo,k1:k2) virtual temperature x-gradient (K/m). +!> @param[out] ty real (ijo,k1:k2) virtual temperature y-gradient (K/m). +!> @param[out] u real (ijo,k1:k2) x-component wind (m/s). +!> @param[out] v real (ijo,k1:k2) y-component wind (m/s). +!> @param[out] d real (ijo,k1:k2) wind divergence (1/s). +!> @param[out] trc real (ijo,k1:k2,ntrac) tracers. +!>
+!>                                   1 = specific humidity (kg/kg)
+!>                                   2 = Ozone mixing ratio (kg/kg)
+!>                                   3 = cloud condensate mixing ratio (kg/kg)
+!>                                   .
+!>                                   .
+!>                                       atomic oxyge, oxygen etc
+!>
+!>
+!> @param[out] iret Integer return code. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> 2013-04-19 | Jun Wang | Add option to get tmp and ps(in pascal) from enthalpy and ps(cb) option +!> 2013-05-06 | Shrinivas Moorthi | Initialize midea to 0 +!> 2013-05-07 | Shrinivas Moorthi | Remove mo3, mct, midea and define io3, ict etc correctly and get correct cloud condensate. +!> 2013-08-02 | Shrinivas Moorthi | Rewrote the whole routine to read the sigma file differently and to read all tracers. Added sptezj for two 2d fields +!> 2014-02-20 | Shrinivas Moorthi | Modified conversion from spectral to grid taking advantage of threding in SP library. This really speeds up the code. Also threaded loop for Temperature from Tv +!> +!> @author Mark Iredell np23 @date 1999-10-18 subroutine rtsig(lusig,head,k1,k2,kgds,ijo,levs,ntrac,jcap,lnt2,me, & h,p,px,py,t,u,v,d,trc,iret) @@ -248,43 +225,35 @@ subroutine rtsig(lusig,head,k1,k2,kgds,ijo,levs,ntrac,jcap,lnt2,me, & end subroutine ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +!> modstuff() computes model coordinate dependent functions. +!> +!> This subprogram computes fields which depend on the model coordinate +!> such as pressure thickness and vertical velocity. +!> +!> @param[in] km integer number of levels. +!> @param[in] idvc integer vertical coordinate id (1 for sigma and 2 for hybrid). +!> @param[in] idsl integer type of sigma structure (1 for phillips or 2 for mean). +!> @param[in] nvcoord integer number of vertical coordinates. +!> @param[in] vcoord real (km+1,nvcoord) vertical coordinates. +!> @param[in] ps real surface pressure (Pa). +!> @param[in] psx real log surface pressure x-gradient (1/m). +!> @param[in] psy real log surface pressure y-gradient (1/m). +!> @param[in] d real (km) wind divergence (1/s). +!> @param[in] u real (km) x-component wind (m/s). +!> @param[in] v real (km) y-component wind (m/s). +!> @param[out] pi real (km+1) interface pressure (Pa). +!> @param[out] pm real (km) mid-layer pressure (Pa). +!> @param[out] om real (km) vertical velocity (Pa/s). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> 2013-04-19 | Jun Wang | Add option to get pi by using 8 byte real computation +!> +!> @author Mark Iredell np23 @date 1999-10-18 subroutine modstuff(km,idvc,idsl,nvcoord,vcoord,ps,psx,psy,d,u,v,& pi,pm,om) -!$$$ Subprogram documentation block -! -! Subprogram: modstuff Compute model coordinate dependent functions -! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -! -! Abstract: This subprogram computes fields which depend on the model coordinate -! such as pressure thickness and vertical velocity. -! -! Program history log: -! 1999-10-18 Mark Iredell -! 2013-04-19 Jun Wang: add option to get pi by using 8byte real computation -! -! Usage: call modstuff(km,idvc,idsl,nvcoord,vcoord,ps,psx,psy,d,u,v,& -! pd,pi,pm,os,om,px,py) -! Input argument list: -! km integer number of levels -! idvc integer vertical coordinate id (1 for sigma and 2 for hybrid) -! idsl integer type of sigma structure (1 for phillips or 2 for mean) -! nvcoord integer number of vertical coordinates -! vcoord real (km+1,nvcoord) vertical coordinates -! ps real surface pressure (Pa) -! psx real log surface pressure x-gradient (1/m) -! psy real log surface pressure y-gradient (1/m) -! d real (km) wind divergence (1/s) -! u real (km) x-component wind (m/s) -! v real (km) y-component wind (m/s) -! Output argument list: -! pi real (km+1) interface pressure (Pa) -! pm real (km) mid-layer pressure (Pa) -! om real (km) vertical velocity (Pa/s) -! -! Attributes: -! Language: Fortran 90 -! -!$$$ use sigio_module, only: sigio_modprd implicit none integer,intent(in):: km,idvc,idsl,nvcoord @@ -331,46 +300,38 @@ subroutine modstuff(km,idvc,idsl,nvcoord,vcoord,ps,psx,psy,d,u,v,& end subroutine !------------------------------------------------------------------------------- +!> modstuff2() computes model coordinate dependent functions. +!> +!> This subprogram computes fields which depend on the model coordinate +!> such as pressure thickness and vertical velocity. +!> +!> @param[in] im integer inner computational domain. +!> @param[in] ix integer maximum inner dimension. +!> @param[in] km integer number of levels. +!> @param[in] idvc integer vertical coordinate id (1 for sigma and 2 for hybrid). +!> @param[in] idsl integer type of sigma structure (1 for phillips or 2 for mean). +!> @param[in] nvcoord integer number of vertical coordinates. +!> @param[in] vcoord real (km+1,nvcoord) vertical coordinates. +!> @param[in] ps real surface pressure (Pa). +!> @param[in] psx real log surface pressure x-gradient (1/m). +!> @param[in] psy real log surface pressure y-gradient (1/m). +!> @param[in] d real (km) wind divergence (1/s). +!> @param[in] u real (km) x-component wind (m/s). +!> @param[in] v real (km) y-component wind (m/s). +!> @param[out] pi real (km+1) interface pressure (Pa). +!> @param[out] pm real (km) mid-layer pressure (Pa). +!> @param[out] om real (km) vertical velocity (Pa/s). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> 2013-04-19 | Jun Wang | Add option to get pi by using 8 byte real computation +!> 2013-08-13 | Shrinivas Moorthi | Modified to include im points and thread +!> +!> @author Mark Iredell np23 @date 1999-10-18 subroutine modstuff2(im,ix,km,idvc,idsl,nvcoord,vcoord,ps,psx,psy,d,u,v,& pi,pm,om,me) -!$$$ Subprogram documentation block -! -! Subprogram: modstuff Compute model coordinate dependent functions -! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -! -! Abstract: This subprogram computes fields which depend on the model coordinate -! such as pressure thickness and vertical velocity. -! -! Program history log: -! 1999-10-18 Mark Iredell -! 2013-04-19 Jun Wang: add option to get pi by using 8byte real computation -! 2013-08-13 Shrinivas Moorthi - Modified to include im points and thread -! -! Usage: call modstuff(km,idvc,idsl,nvcoord,vcoord,ps,psx,psy,d,u,v,& -! pd,pi,pm,os,om,px,py) -! Input argument list: -! im integer - inner computational domain -! ix integer - maximum inner dimension -! km integer number of levels -! idvc integer vertical coordinate id (1 for sigma and 2 for hybrid) -! idsl integer type of sigma structure (1 for phillips or 2 for mean) -! nvcoord integer number of vertical coordinates -! vcoord real (km+1,nvcoord) vertical coordinates -! ps real surface pressure (Pa) -! psx real log surface pressure x-gradient (1/m) -! psy real log surface pressure y-gradient (1/m) -! d real (km) wind divergence (1/s) -! u real (km) x-component wind (m/s) -! v real (km) y-component wind (m/s) -! Output argument list: -! pi real (km+1) interface pressure (Pa) -! pm real (km) mid-layer pressure (Pa) -! om real (km) vertical velocity (Pa/s) -! -! Attributes: -! Language: Fortran 90 -! -!$$$ use sigio_module, only : sigio_modprd implicit none integer, intent(in) :: im,ix,km,idvc,idsl,nvcoord,me @@ -443,61 +404,47 @@ subroutine modstuff2(im,ix,km,idvc,idsl,nvcoord,vcoord,ps,psx,psy,d,u,v,& end subroutine !----------------------------------------------------------------------- +!> trssc() transforms sigma spectral fields to grid. +!> +!> Transforms sigma spectral fields to grid and converts +!> log surface pressure to surface pressure and virtual temperature +!> to temperature. +!> +!> @param[in] jcap integer spectral truncation. +!> @param[in] nc integer first dimension (nc>=(jcap+1)*(jcap+2)). +!> @param[in] km integer number of levels. +!> @param[in] ntrac integer number of tracers. +!> @param[in] idvm integer mass variable id. +!> @param[in] idrt integer data representation type. +!> @param[in] lonb integer number of longitudes. +!> @param[in] latb integer number of latitudes. +!> @param[in] ijl integer horizontal dimension. +!> @param[in] j1 integer first latitude. +!> @param[in] j2 integer last latitude. +!> @param[in] jc integer number of cpus. +!> @param[in] szs real (nc) orography. +!> @param[in] sps real (nc) log surface pressure. +!> @param[in] st real (nc,levs) virtual temperature. +!> @param[in] sd real (nc,levs) divergence. +!> @param[in] sz real (nc,levs) vorticity. +!> @param[in] sq real (nc,levs*ntrac) tracers. +!> @param[out] zs real (ijl) orography. +!> @param[out] ps real (ijl) surface pressure. +!> @param[out] t real (ijl,km) temperature. +!> @param[out] u real (ijl,km) zonal wind. +!> @param[out] v real (ijl,km) meridional wind. +!> @param[out] q real (ijl,km*ntrac) tracers. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> +!> @author Mark Iredell w/nmc23 @date 1992-10-31 subroutine trssc(jcap,nc,km,ntrac,idvc,idvm,idsl,nvcoord,vcoord, & cpi,idrt,lonb,latb,ijl,ijn,j1,j2,jc,chgq0, & szs,sps,st,sd,sz,sq,gfszs,gfsps,gfsp,gfsdp, & gfst,gfsu,gfsv,gfsq,gfsw) -!$$$ subprogram documentation block -! -! subprogram: trssc transform sigma spectral fields to grid -! prgmmr: iredell org: w/nmc23 date: 92-10-31 -! -! abstract: transforms sigma spectral fields to grid and converts -! log surface pressure to surface pressure and virtual temperature -! to temperature. -! -! program history log: -! 91-10-31 mark iredell -! -! usage: call trssc(jcap,nc,km,ntrac,idvm, -! & idrt,lonb,latb,ijl,j1,j2,jc, -! & szs,sps,st,sd,sz,sq,zs,ps,t,u,v,q) -! input argument list: -! jcap integer spectral truncation -! nc integer first dimension (nc>=(jcap+1)*(jcap+2)) -! km integer number of levels -! ntrac integer number of tracers -! idvm integer mass variable id -! idrt integer data representation type -! lonb integer number of longitudes -! latb integer number of latitudes -! ijl integer horizontal dimension -! j1 integer first latitude -! j2 integer last latitude -! jc integer number of cpus -! szs real (nc) orography -! sps real (nc) log surface pressure -! st real (nc,levs) virtual temperature -! sd real (nc,levs) divergence -! sz real (nc,levs) vorticity -! sq real (nc,levs*ntrac) tracers -! output argument list: -! zs real (ijl) orography -! ps real (ijl) surface pressure -! t real (ijl,km) temperature -! u real (ijl,km) zonal wind -! v real (ijl,km) meridional wind -! q real (ijl,km*ntrac) tracers -! -! subprograms called: -! sptran perform a scalar spherical transform -! -! attributes: -! language: fortran -! -!c$$$ -!! use gfsio_module -! use gfsio_rst implicit none integer,intent(in)::jcap,nc,km,ntrac,idvc,idvm,idsl,nvcoord,idrt,lonb,latb integer,intent(in)::ijl,ijn,j1,j2,jc,chgq0 diff --git a/sorc/ncep_post.fd/NGMFLD.f b/sorc/ncep_post.fd/NGMFLD.f index 7bd962e14..39ae45cb1 100644 --- a/sorc/ncep_post.fd/NGMFLD.f +++ b/sorc/ncep_post.fd/NGMFLD.f @@ -1,81 +1,47 @@ !> @file -! . . . -!> SUBPROGRAM: NGMFLD COMPUTES LAYER MEAN NGM FIELDS -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES A HANDFUL OF NGM LAYER MEAN -!! FIELDS. THIS IS DONE TO PROVIDE A FULLY COMPLETE -!! ETA NGM LOOK-ALIKE OUTPUT FILE. THE SIGMA (LAYER) -!! FIELDS COMPUTED BY THIS ROUTINE ARE TABULATED BELOW. -!! -!! SIGMA (LAYER) FIELD(S) -!! --------------- -------------- -!! 0.47191-1.00000 RH -!! 0.47171-0.96470 RH -!! 0.18019-0.47191 RH -!! 0.84368-0.98230 RH -!! 0.85000-1.00000 MCONV -!! WHERE -!! RH = RELATIVE HUMIDITY -!! MCONV = MOISTURE CONVERGENCE -!! -!! LAYER MEANS ARE A SUMMATION OVER ETA LAYERS MAPPING INTO -!! THE PRESSURE RANGE CORRESPONDING TO THE SIGMA RANGE ABOVE. -!! THE CALCULATION OF THESE BOUNDING PRESSURES IS DONE AT -!! EACH HORIZONTAL GRID POINT BASED ON THE SURFACE PRESSURE. -!! EACH TERM IN THE SUMMATION IS WEIGHTED BY THE THICKNESS OF -!! THE ETA LAYER. THE FINAL LAYER MEAN IS THIS SUM NORMALIZED -!! BY THE TOTAL DEPTH OF THE LAYER. - -!! -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 93-07-27 RUSS TREADON - MODIFIED SUMMATION LIMITS FROM -!! 0.66*PSFC TO 0.75*PSFC AND 0.33*PSFC -!! TO 0.50*PSFC, WHERE PSFC IS THE -!! SURFACES PRESSURE. THE REASON FOR -!! THIS CHANGE WAS RECOGNITION THAT IN -!! THE LFM 0.33 AND 0.66 WERE MEASURED -!! FROM THE SURFACE TO THE TROPOPAUSE, -!! NOT THE TOP OF THE MODEL. -!! 93-09-13 RUSS TREADON - RH CALCULATIONS WERE MADE INTERNAL -!! TO THE ROUTINE. -!! 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 98-08-18 MIKE BALDWIN - COMPUTE RH OVER ICE -!! 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-24 MIKE BALDWIN - WRF VERSION -!! -!! -!! USAGE: CALL NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! RH4710 - SIGMA LAYER 0.47-1.00 MEAN RELATIVE HUMIDITY. -!! RH4796 - SIGMA LAYER 0.47-0.96 MEAN RELATIVE HUMIDITY. -!! RH1847 - SIGMA LAYER 0.18-0.47 MEAN RELATIVE HUMIDITY. -!! RH8498 - SIGMA LAYER 0.84-0.98 MEAN RELATIVE HUMIDITY. -!! QM8510 - SIGMA LAYER 0.85-1.00 MEAN MOISTURE CONVERGENCE. -!! -!! OUTPUT FILES: -!! NONE -!! -!! LIBRARY: -!! COMMON - -!! MASKS -!! OPTIONS -!! LOOPS -!! MAPOT -!! DYNAMD -!! INDX -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief ngmfld() computes layer mean NGM fields +!> +!> This routine computes a handful of NGM layer mean +!> fields. This is done to provide a fully complete +!> ETA NGM look-alike output file. +!> ### The sigma (layer) fields computed bu this routine are tabulated below. +!> Sigma (layer) | Field(s) | +!> --------------|----------| +!> 0.47191 - 1.00000 | RH | +!> 0.47171 - 0.96470 | RH | +!> 0.18019 - 0.47191 | RH | +!> 0.84368 - 0.98230 | RH | +!> 0.85000 - 1.00000 | MCONV | +!> where RH = Relative humidity and MCONV = Moisture convergence +!> +!> Layer means are a summation over ETA layers mapping into +!> The pressure range corresponding to the sigma range above. +!> The calculation of these bounding pressures is done at +!> each horizontal grid point based on the surface pressure. +!> Each term in the summation is weighted by the thickness of +!> the ETA layer. The final layer mean is this sum normalized +!> by the total depth of the layer. +!> +!> @param[out] RH4710 Sigma layer 0.47-1.00 mean relative humidity. +!> @param[out] RH4796 Sigma layer 0.47-0.96 mean relative humidity. +!> @param[out] RH1847 Sigma layer 0.18-0.47 mean relative humidity. +!> @param[out] RH8498 Sigma layer 0.84-0.98 mean relative humidity. +!> @param[out] QM8510 Sigma layer 0.85-1.00 mean moisture convergence. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-07-27 | Russ Treadon | Modified summation limits from 0.66*PSFC to 0.75*PSFC and 0.33*PSFC to 0.50*PSFC, where PSFC is the surfaces pressure. The reason for this change was recognition that in the LFM 0.33 and 0.66 were measured from the surface to the tropopause not the top of the model. +!> 1993-09-13 | Russ Treadon | RH calculations were made internal to the routine. +!> 1996-03-04 | Mike Baldwin | Change PW CALC to include CLD WTR +!> 1998-06-16 | T Black | Conversion from 1-D to 2-D +!> 1998-08-17 | Mike Baldwin | Compute RH over ice +!> 1998-12-22 | Mike Baldwin | Back out RH over ice +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-24 | Mike Baldwin | WRF Version +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) ! diff --git a/sorc/ncep_post.fd/OTLFT.f b/sorc/ncep_post.fd/OTLFT.f index 38de1b338..05aecfd12 100644 --- a/sorc/ncep_post.fd/OTLFT.f +++ b/sorc/ncep_post.fd/OTLFT.f @@ -1,50 +1,29 @@ !> @file -! -!> SUBPROGRAM: OTLFT COMPUTES LIFTED INDEX -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-03-10 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES LIFTS A PARCEL SPECIFIED BY THE -!! PASSED PRESSURE, TEMPERATURE, AND SPECIFIC HUMIDITY TO -!! 500MB AND THEN COMPUTES A LIFTED INDEX. THIS LIFTED -!! LIFTED INDEX IS THE DIFFERENCE BETWEEN THE LIFTED -!! PARCEL'S TEMPERATURE AT 500MB AND THE AMBIENT 500MB -!! TEMPERATURE. -!! -!! PROGRAM HISTORY LOG: -!! 93-03-10 RUSS TREADON - MODIFIED OTLIFT2 TO LIFT PARCELS -!! SPECIFIED BY PASSED P, T, AND Q. -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-06-17 MIKE BALDWIN - WRF VERSION -!! 11-04-12 GEOFF MANIKIN - USE VIRTUAL TEMPERATURE -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! -!! USAGE: CALL OTLFT(PBND,TBND,QBND,SLINDX) -!! INPUT ARGUMENT LIST: -!! PBND - PARCEL PRESSURE. -!! TBND - PARCEL TEMPERATURE. -!! QBND - PARCEL SPECIFIC HUMIDITY. -!! -!! OUTPUT ARGUMENT LIST: -!! SLINDX - LIFTED INDEX. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOPS -!! MASKS -!! PHYS -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief otlft() computes lifted index. +!> +!> This routine computes lifts a parcel specified by the +!> passed pressure, temperature, and specific humidity to +!> 500mb and then computes a lifted index. This lifted +!> lifted index is the difference between the lifted +!> parcel's temperature at 500mb and the ambient 500mb +!> temperature. +!> +!> @param[in] PBND Parcel pressure. +!> @param[in] TBND Parcel temperature. +!> @param[in] QBND Parcel specific humidity. +!> @param[out] SLINDX Lifted index. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-03-10 | Russ Treadon | Initial. Modified OTLIFT2 to lift parcels specified by passed P, T, and Q. +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-06-17 | Mike Baldwin | WRF Version +!> 2011-04-12 | Geoff Manikin | Use virtual temperature +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> +!> @author Russ Treadon W/NP2 @date 1993-03-10 SUBROUTINE OTLFT(PBND,TBND,QBND,SLINDX) ! diff --git a/sorc/ncep_post.fd/OTLIFT.f b/sorc/ncep_post.fd/OTLIFT.f index f1abe6575..f74992a0b 100644 --- a/sorc/ncep_post.fd/OTLIFT.f +++ b/sorc/ncep_post.fd/OTLIFT.f @@ -1,44 +1,27 @@ !> @file -! -!> SUBPROGRAM: OTLIFT COMPUTES SFC TO 500MB LIFTED INDEX -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-03-10 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES A SURFACE TO 500MB LIFTED INDEX. -!! THE LIFTED PARCEL IS FROM THE FIRST ATMOSPHERIC ETA -!! LAYER (IE, THE ETA LAYER CLOSEST TO THE MODEL GROUND). -!! THE LIFTED INDEX IS THE DIFFERENCE BETWEEN THIS PARCEL'S -!! TEMPERATURE AT 500MB AND THE AMBIENT 500MB TEMPERATURE. -!! -!! PROGRAM HISTORY LOG: -!! ??-??-?? ??? - SUBROUTINE OTLIFT IN ETA MODEL. -!! 93-03-10 RUSS TREADON - ADAPTED OTLIFT FOR USE WITH NEW POST. -!! 98-06-18 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-06-11 MIKE BALDWIN - WRF VERSION -!! 11-04-12 GEOFF MANIKIN - USE VIRTUAL TEMPERATURE -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! -!! USAGE: CALL OTLIFT(SLINDX) -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! SLINDX - LIFTED INDEX. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief otlift() computes SFC to 500mb lifted index. +!> +!> This routine computes a surface to 500mb lifted index. +!> The lifted parcel is from the first atmpspheric ETA +!> layer (ie, the ETA layer closest to the model ground). +!> The lifted index is the difference between this parcel's +!> temperature at 500mb and the ambient 500mb temperature. +!> +!> @param[out] SLINDX lifted index. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> ????-??-?? | ??? | Subroutine OTLIFT in ETA model. +!> 1993-03-10 | Russ Treadon | Adapted OTLIFT for use with new post. +!> 1998-06-18 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2001-10-25 | H Chuang | Modified to process hybrid model output +!> 2002-06-11 | Mike Baldwin | WRF Version +!> 2011-04-12 | Geoff Manikin | Use virtual temperature +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> +!> @author Russ Treadon W/NP2 @date 1993-03-10 SUBROUTINE OTLIFT(SLINDX) ! diff --git a/sorc/ncep_post.fd/PARA_RANGE.f b/sorc/ncep_post.fd/PARA_RANGE.f index 404e0a41d..3f2c32514 100644 --- a/sorc/ncep_post.fd/PARA_RANGE.f +++ b/sorc/ncep_post.fd/PARA_RANGE.f @@ -1,37 +1,21 @@ !> @file -! -!> SUBPROGRAM: PARA_RANGE SET UP DECOMPOSITION VALUES -!! PRGRMMR: TUCCILLO ORG: IBM -!! -!! ABSTRACT: -!! SETS UP DECOMOSITION VALUES -!! -!! PROGRAM HISTORY LOG: -!! 00-01-06 TUCCILLO - ORIGINAL -!! -!! USAGE: CALL PARA_RANGE (N1,N2,NPROCS,IRANK,ISTA,IEND)(A) -!! INPUT ARGUMENT LIST: -!! N1 - FIRST INTERATE VALUE -!! N2 - LAST INTERATE VALUE -!! NPROCS - NUMBER OF MPI TASKS -!! IRANK - MY TAKS ID -!! -!! OUTPUT ARGUMENT LIST: -!! ISTA - FIRST LOOP VALUE -!! IEND - LAST LOOP VALUE -!! -!! OUTPUT FILES: -!! STDOUT - RUN TIME STANDARD OUT. -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM RS/6000 SP -!! +!> @brief para_range() sets up decomposition values. +!> +!> This subroutine sets up decomposition values. +!> +!> @param[in] N1 First interate value. +!> @param[in] N2 Last interate value. +!> @param[in] NPROCS Number of MPI tasks. +!> @param[in] IRANK My taks ID. +!> @param[out] ISTA First loop value. +!> @param[out] IEND Last loop value. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> +!> @author Jim Tuccillo IBM @date 2000-01-06 SUBROUTINE PARA_RANGE (N1,N2,NPROCS,IRANK,ISTA,IEND) implicit none diff --git a/sorc/ncep_post.fd/PROCESS.f b/sorc/ncep_post.fd/PROCESS.f index 034de6caf..8facc7d80 100644 --- a/sorc/ncep_post.fd/PROCESS.f +++ b/sorc/ncep_post.fd/PROCESS.f @@ -1,53 +1,30 @@ !> @file -! -!> SUBPROGRAM: PROCESS DRIVER FOR MAJOR POST ROUTINES. -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-21 -!! -!! ABSTRACT: -!! THIS ROUTINE CALLS THE MAJOR POST PROCESSOR ROUTINES. -!! THESE ROUTINES ARE -!! MDLFLD - CALCULATE NMC SLP, SET BELOW SURFACE FIELDS, -!! AND POSTS DATA ON MODEL SURFACES. -!! MDL2P - POSTS DATA ON ISOBARIC SURFACES. -!! SURFCE - POSTS SOUNDING DATA, SURFACE BASED FIELDS, -!! AND STATIC OR FIXED FIELDS. -!! CLDRAD - POST SOUNDING/CLOUD/RADIATION FIELDS. -!! MISCLN - POST MISCELLANEOUS (SPECIAL) FIELDS. -!! FIXED - POST FIXED FIELDS. -!! -!! PROGRAM HISTORY LOG: -!! 92-12-21 RUSS TREADON -!! 98-06-01 T BLACK - CONVERSION OF POST FROM 1-D TO 2-D -!! 00-01-05 JIM TUCCILLO - MPI VERSION -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-06-19 MIKE BALDWIN - WRF VERSION -!! 11-02-04 Jun Wang - add grib2 option -!! -!! USAGE: CALL PROCESS -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! MDLFLD - POST DATA MDL SURFACES. -!! MDL2P - POST DATA ON PRESSURE SURFACES. -!! SURFCE - POST SURFACE BASED FIELDS. -!! CLDRAD - POST SOUNDING/CLOUD/RADIATION FIELDS. -!! MISCLN - POST MISCELLANEOUS FIELDS. -!! FIXED - POST FIXED FIELDS. -!! LIBRARY: -!! COMMON - OUTGRD -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief process() is a driver for major post routines. +!> +!> This routine calls the major post processor routines. +!> 
+!> These routines are
+!> MDLFLD  - Calculate NMC SLP, set below surface fields,
+!>           and posts data on model surfaces.
+!> MDL2P   - Posts data on isobaric surfaces.
+!> SURFCE  - Posts sounding data  surface based fields,
+!>           and static or fixed fields.
+!> CLDRAD  - Post sounding/cloud/radiation fields.
+!> MISCLN  - Post miscellaneous (special) fields.
+!> FIXED   - Post fixed fields.
+!>
+!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-21 | Russ Treadon | Initial +!> 1998-06-01 | T Black | Conversion from 1-D to 2-D +!> 2000-01-05 | Jim Tuccillo | MPI Version +!> 2001-10-25 | H CHUANG | Modified to process hybrid model output +!> 2002-06-19 | Mike Baldwin | WRF Version +!> 2011-02-04 | Jun Wang | Add grib2 option +!> +!> @author Russ Treadon W/NP2 @date 1992-12-21 SUBROUTINE PROCESS(kth,kpv,th,pv,iostatusD3D) ! !---------------------------------------------------------------------------- diff --git a/sorc/ncep_post.fd/retrieve_index.f b/sorc/ncep_post.fd/retrieve_index.f index ebacab31a..1fb390378 100644 --- a/sorc/ncep_post.fd/retrieve_index.f +++ b/sorc/ncep_post.fd/retrieve_index.f @@ -1,31 +1,22 @@ !> @file -! . . . . -!> subprogram: retrieve_index get record number of desired variable -!! prgmmr: parrish org: np22 date: 2004-11-29 -!! -!! abstract: by examining previously generated inventory of wrf binary restart file, -!! find record number that contains the header record for variable -!! identified by input character variable "string". -!! -!! program history log: -!! 2004-11-29 parrish -!! -!! input argument list: -!! string - mnemonic for variable desired -!! varname_all - list of all mnemonics obtained from inventory of file -!! nrecs - total number of sequential records counted in wrf -!! binary restart file -!! -!! output argument list: -!! index - desired record number -!! iret - return status, set to 0 if variable was found, -!! non-zero if not. -!! -!! attributes: -!! language: f90 -!! machine: ibm RS/6000 SP -!! -!! +!> @brief retrieve_index() gets record number of desired variable. +!> +!> By examining previously generated inventory of wrf binary restart file, +!> find record number that contains the header record for variable +!> identified by input character variable "string". +!> +!> @param[in] string Mnemonic for variable desired. +!> @param[in] varname_all List of all mnemonics obtained from inventory of file. +!> @param[in] nrecs Total number of sequential records counted in wrf binary restart file. +!> @param[out] index Desired record number. +!> @param[out] iret Return status, set to 0 if variable was found, non-zero if not. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2004-11-29 | Parrish | Initial +!> +!> @author Parrish np22 @date 2004-11-29 subroutine retrieve_index(index,string,varname_all,nrecs,iret) From dc8bc684a3e38eae5ff4431e24672b6382127d70 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Thu, 7 Apr 2022 11:14:25 -0600 Subject: [PATCH 048/107] Doxygen in GET_BITS.f, GPVS.f, LFMFLD.f, LFMFLD_GFS.f, MDL2P.f, MDL2STD_P.f, MDL2THANDPV.f, and MSFPS.f. (#474) * This is part of Issue #392. Fixes the doxygen warnings in GET_BITS.f, GPVS.f, LFMFLD.f, LFMFLD_GFS.f, MDL2P.f, MDL2STD_P.f, MDL2THANDPV.f, and MSFPS.f. * Minor fix. --- sorc/ncep_post.fd/GET_BITS.f | 142 ++++++++++++-------------- sorc/ncep_post.fd/GPVS.f | 170 +++++++++++++------------------- sorc/ncep_post.fd/LFMFLD.f | 108 ++++++++------------ sorc/ncep_post.fd/LFMFLD_GFS.f | 112 ++++++++------------- sorc/ncep_post.fd/MDL2P.f | 92 ++++++----------- sorc/ncep_post.fd/MDL2STD_P.f | 50 +++------- sorc/ncep_post.fd/MDL2THANDPV.f | 59 ++++------- sorc/ncep_post.fd/MSFPS.f | 35 +++---- 8 files changed, 294 insertions(+), 474 deletions(-) diff --git a/sorc/ncep_post.fd/GET_BITS.f b/sorc/ncep_post.fd/GET_BITS.f index 1b966d149..64ddd0910 100644 --- a/sorc/ncep_post.fd/GET_BITS.f +++ b/sorc/ncep_post.fd/GET_BITS.f @@ -1,46 +1,37 @@ !> @file -! -!> SUBPROGRAM: GET_BITS COMPUTE NUMBER OF BITS AND ROUND FIELD. -!! PRGMMR: IREDELL ORG: W/NP23 DATE: 92-10-31 -!! -!! ABSTRACT: THE NUMBER OF BITS REQUIRED TO PACK A GIVEN FIELD -!! AT A PARTICULAR DECIMAL SCALING IS COMPUTED USING THE FIELD RANGE. -!! THE FIELD IS ROUNDED OFF TO THE DECIMAL SCALING FOR PACKING. -!! THE MINIMUM AND MAXIMUM ROUNDED FIELD VALUES ARE ALSO RETURNED. -!! GRIB BITMAP MASKING FOR VALID DATA IS OPTIONALLY USED. -!! -!! PROGRAM HISTORY LOG: -!! 92-10-31 IREDELL -!! 95-04-14 BALDWIN - MODIFY FOLLOWING KEITH BRILL'S CODE -!! TO USE SIG DIGITS TO COMPUTE DEC SCALE -!! -!! USAGE: CALL GET_BITS(IBM,ISGDS,LEN,MG,G,ISCALE,GROUND,GMIN,GMAX,NBIT) -!! INPUT ARGUMENT LIST: -!! IBM - INTEGER BITMAP FLAG (=0 FOR NO BITMAP) -!! SGDS - MAXIMUM SIGNIFICANT DIGITS TO KEEP -!! (E.G. SGDS=3.0 KEEPS 3 SIGNIFICANT DIGITS) -!! OR BINARY PRECISION IF <0 -!! (E.G. SGDS=-2.0 KEEPS FIELD TO NEAREST 1/4 -!! -3.0 " " 1/8 -!! 2**SGDS PRECISION) -!! LEN - INTEGER LENGTH OF THE FIELD AND BITMAP -!! MG - INTEGER (LEN) BITMAP IF IBM=1 (0 TO SKIP, 1 TO KEEP) -!! G - REAL (LEN) FIELD -!! -!! OUTPUT ARGUMENT LIST: -!! ISCALE - INTEGER DECIMAL SCALING -!! GROUND - REAL (LEN) FIELD ROUNDED TO DECIMAL SCALING -!! GMIN - REAL MINIMUM VALID ROUNDED FIELD VALUE -!! GMAX - REAL MAXIMUM VALID ROUNDED FIELD VALUE -!! NBIT - INTEGER NUMBER OF BITS TO PACK -!! -!! SUBPROGRAMS CALLED: -!! ISRCHNE - FIND FIRST VALUE IN AN ARRAY NOT EQUAL TO TARGET VALUE -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! -!! +!> @brief get_bits() computes number of bits and round field. +!> +!> The number of bits requited to pack a given field +!> at a particular decimal scaling is computed using the field range. +!> The field is rounded off to the decimal scaling for packing. +!> The minimum and maximum rounded field values are also returned. +!> Grib bitmap masking for valid data is optionally used. +!> +!> @param[in] IBM Integer bitmap flag (=0 for no bitmap). +!> @param[in] SGDS Maximum significant digits to keep. +!>
+!> (E.G. SGDS=3.0 keeps 3 significant digits)
+!>  or binary precision if <0
+!> (E.G. SGDS=-2.0 keeps field to nearest 1/4
+!>            -3.0 keeps field to nearest 1/8
+!>            2**SGDS precision)
+!>
+!> @param[in] LEN Integer length of the field and bitmap. +!> @param[in] MG Integet (LEN) bitmap if IBM=1 (0 to skip, 1 tp keep). +!> @param[in] G Real (LEN) field. +!> @param[out] ISCALE Integer decimal scaling. +!> @param[out] GROUND Real (LEN) field rounded to decimal scaling. +!> @param[out] GMIN Real minimum valid rounded field value. +!> @param[out] GMAX Real maximum valid rounded field value. +!> @param[out] NBIT Integer number of bits to pack. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-10-31 | Iredell | Initial +!> 1995-04-14 | Baldwin | Modify following Keith Brill's code to use sig digits to compute DEC scale +!> +!> @author Iredell W/NP23 @date 1992-10-31 SUBROUTINE GET_BITS(IBM,SGDS,LEN,MG,G,ISCALE,GROUND, & GMIN,GMAX,NBIT) @@ -91,43 +82,36 @@ SUBROUTINE GET_BITS(IBM,SGDS,LEN,MG,G,ISCALE,GROUND, & ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - RETURN END - SUBROUTINE FNDBIT ( rmin, rmax, rdb, nmbts, iscale, iret ) -!************************************************************************ -!* FNDBIT * -!* * -!* This subroutine computes the number of packing bits given the * -!* maximum number of significant digits to preserve or the binary * -!* precision to store the data. The binary precision is given as a * -!* negative integer, ISCALE will always be zero in this case. * -!* * -!* The binary precision translates as follows: * -!* -1 => store data to nearest 1/2 * -!* -2 => store data to nearest 1/4 * -!* -3 => store data to nearest 1/8 * -!* * -!* Note that a fractional number of significant digits is allowed. * -!* * -!* FNDBIT ( AMIN, AMAX, RDB, NBITS, ISCALE, IRET ) * -!* * -!* Input parameters: * -!* AMIN REAL Minimum value * -!* AMAX REAL Maximum value * -!* RDB REAL Maximum # of significant digits * -!* OR binary precision if < 0 * -!* * -!* Output parameters: * -!* NBITS INTEGER Number of bits for packing * -!* ISCALE INTEGER Power of 10 scaling to use * -!* IRET INTEGER Return code * -!* 0 = normal return * -!** * -!* Log: * -!* K. Brill/NMC 06/92 * -!* K. Brill/EMC 12/95 Added binary precision * -!* M. Baldwin 10/96 Added fix for negative nmbts -!************************************************************************ -!* -! +!> fndbit() computes the number of packing bits given the +!> maximum number of significant digits to preserve or the binary +!> precision to store the data. The binary precision is given as a +!> negative integer, ISCALE will always be zero in this case. +!> +!> The binary precision translates as follows: +!> 
+!>     -1  =>  store data to nearest 1/2
+!>     -2  =>  store data to nearest 1/4
+!>     -3  =>  store data to nearest 1/8
+!>
+!> +!> Note that a fractional number of significant digits is allowed. +!> +!> @param[in] AMIN Real Minimum value. +!> @param[in] AMAX Real Maximum value. +!> @param[in] RDB Real Maximum # of significant digits OR binary precision if < 0. +!> @param[out] NBITS Integer Number of bits for packing. +!> @param[out] ISCALE Integer Power of 10 scaling to use. +!> @param[out] IRET Integer Return code. 0 = normal return. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-06-?? | K Brill | Initial +!> 1995-12-?? | K Brill | Added binary precision +!> 1996-10-?? | M Baldwin | Added fix for negative nmbts +!> +!> @author K. Brill NMC @date 1992-06-?? + SUBROUTINE FNDBIT ( rmin, rmax, rdb, nmbts, iscale, iret ) implicit none ! integer,intent(inout) :: iscale,nmbts diff --git a/sorc/ncep_post.fd/GPVS.f b/sorc/ncep_post.fd/GPVS.f index c60dd2f6d..3e91b7d3d 100644 --- a/sorc/ncep_post.fd/GPVS.f +++ b/sorc/ncep_post.fd/GPVS.f @@ -1,36 +1,24 @@ !> @file -! . . . -!> SUBPROGRAM: GPVS COMPUTE SATURATION VAPOR PRESSURE TABLE -!! AUTHOR: N PHILLIPS W/NP2 DATE: 30 DEC 82 -!! -!! ABSTRACT: COMPUTE SATURATION VAPOR PRESSURE TABLE AS A FUNCTION OF -!! TEMPERATURE FOR THE TABLE LOOKUP FUNCTION FPVS. -!! EXACT SATURATION VAPOR PRESSURES ARE CALCULATED IN SUBPROGRAM FPVSX. -!! THE CURRENT IMPLEMENTATION COMPUTES A TABLE WITH A LENGTH -!! OF 7501 FOR TEMPERATURES RANGING FROM 180.0 TO 330.0 KELVIN. -!! -!! PROGRAM HISTORY LOG: -!! 91-05-07 IREDELL -!! 94-12-30 IREDELL EXPAND TABLE -!! 96-02-19 HONG ICE EFFECT -!! -!! USAGE: CALL GPVS -!! -!! SUBPROGRAMS CALLED: -!! (FPVSX) - INLINABLE FUNCTION TO COMPUTE SATURATION VAPOR PRESSURE -!! -!! COMMON BLOCKS: -!! COMPVS - SCALING PARAMETERS AND TABLE FOR FUNCTION FPVS. -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE: IBM SP -!! -!! -!####################################################################### -!-- Lookup tables for the saturation vapor pressure w/r/t water & ice -- -!####################################################################### -! +!> @brief gpvs() computes saturation vapor pressure table. +!> +!> Compute saturation vapor pressure table as a function of +!> temperature for the table lookup function FPVS. +!> Exact saturation vapor pressures are calculated in subprogram FPVSX. +!> The current implementation computes a table with a length +!> of 7501 for temperatures ranging from 180.0 to 330.0 Kelvin. +!> +!> @param[out] pvu real (km) potential vorticity (10**-6*K*m**2/kg/s). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1982-12-30 | N Phillips | Initial +!> 1991-05-07 | Mark Iredell | Made into inlinable function +!> 1994-12-30 | Mark Iredell | Expand table +!> 1996-02-19 | Hong | Ice effect +!> +!> @note Lookup tables for the saturation vapor pressure w/r/t water & ice. +!> @author N Phillips W/NP2 @date 1982-12-30 SUBROUTINE GPVS ! ****************************************************************** @@ -65,40 +53,28 @@ SUBROUTINE GPVS !----------------------------------------------------------------------- FUNCTION FPVS(T) !----------------------------------------------------------------------- -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: FPVS COMPUTE SATURATION VAPOR PRESSURE -! AUTHOR: N PHILLIPS W/NP2 DATE: 30 DEC 82 -! -! ABSTRACT: COMPUTE SATURATION VAPOR PRESSURE FROM THE TEMPERATURE. -! A LINEAR INTERPOLATION IS DONE BETWEEN VALUES IN A LOOKUP TABLE -! COMPUTED IN GPVS. SEE DOCUMENTATION FOR FPVSX FOR DETAILS. -! INPUT VALUES OUTSIDE TABLE RANGE ARE RESET TO TABLE EXTREMA. -! THE INTERPOLATION ACCURACY IS ALMOST 6 DECIMAL PLACES. -! ON THE CRAY, FPVS IS ABOUT 4 TIMES FASTER THAN EXACT CALCULATION. -! THIS FUNCTION SHOULD BE EXPANDED INLINE IN THE CALLING ROUTINE. -! -! PROGRAM HISTORY LOG: -! 91-05-07 IREDELL MADE INTO INLINABLE FUNCTION -! 94-12-30 IREDELL EXPAND TABLE -! 96-02-19 HONG ICE EFFECT -! -! USAGE: PVS=FPVS(T) -! -! INPUT ARGUMENT LIST: -! T - REAL TEMPERATURE IN KELVIN -! -! OUTPUT ARGUMENT LIST: -! FPVS - REAL SATURATION VAPOR PRESSURE IN KILOPASCALS (CB) -! -! COMMON BLOCKS: -! COMPVS - SCALING PARAMETERS AND TABLE COMPUTED IN GPVS. -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90 -! MACHINE: IBM SP -! -!$$$ +!> fpvs() computes saturation vapor pressure. +!> +!> Compute saturation vapor pressure from the temperature. +!> A linear interpolation is done between values in a lookup table +!> computed in GPVS. See documentation for FPVSX for details. +!> Input values outside table range are reset to table extrema. +!> The interpolation accuracy is almost 6 decimal places. +!> On the CRAY, FPVS is about 4 times faster than exact calculation. +!> This function should be expanded inline in the calling routine. +!> +!> @param[in] T real temperature in Kelvin. +!> @param[out] FPVS real saturation vapor pressure in kilopascals (CB). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1982-12-30 | N Phillips | Initial +!> 1991-05-07 | Mark Iredell | Made into inlinable function +!> 1994-12-30 | Mark Iredell | Expand table +!> 1996-02-19 | Hong | Ice effect +!> +!> @author N Phillips W/NP2 @date 1982-12-30 !----------------------------------------------------------------------- use svptbl_mod, only : NX,C1XPVS,C2XPVS,TBPVS ! @@ -144,41 +120,33 @@ FUNCTION FPVS0(T,NX,C1XPVS0,C2XPVS0,TBPVS0) !----------------------------------------------------------------------- FUNCTION FPVSX(T) !----------------------------------------------------------------------- -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: FPVSX COMPUTE SATURATION VAPOR PRESSURE -! AUTHOR: N PHILLIPS W/NP2 DATE: 30 DEC 82 -! -! ABSTRACT: EXACTLY COMPUTE SATURATION VAPOR PRESSURE FROM TEMPERATURE. -! THE WATER MODEL ASSUMES A PERFECT GAS, CONSTANT SPECIFIC HEATS -! FOR GAS AND LIQUID, AND NEGLECTS THE VOLUME OF THE LIQUID. -! THE MODEL DOES ACCOUNT FOR THE VARIATION OF THE LATENT HEAT -! OF CONDENSATION WITH TEMPERATURE. THE ICE OPTION IS NOT INCLUDED. -! THE CLAUSIUS-CLAPEYRON EQUATION IS INTEGRATED FROM THE TRIPLE POINT -! TO GET THE FORMULA -! PVS=PSATK*(TR**XA)*EXP(XB*(1.-TR)) -! WHERE TR IS TTP/T AND OTHER VALUES ARE PHYSICAL CONSTANTS -! THIS FUNCTION SHOULD BE EXPANDED INLINE IN THE CALLING ROUTINE. -! -! PROGRAM HISTORY LOG: -! 91-05-07 IREDELL MADE INTO INLINABLE FUNCTION -! 94-12-30 IREDELL EXACT COMPUTATION -! 96-02-19 HONG ICE EFFECT -! -! USAGE: PVS=FPVSX(T) -! REFERENCE: EMANUEL(1994),116-117 -! -! INPUT ARGUMENT LIST: -! T - REAL TEMPERATURE IN KELVIN -! -! OUTPUT ARGUMENT LIST: -! FPVSX - REAL SATURATION VAPOR PRESSURE IN KILOPASCALS (CB) -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90 -! MACHINE: IBM SP -! -!$$$ +!> fpvsx() computes saturation vapor pressure. +!> +!> Exactly compute saturation vapor pressure from temperature. +!> The water model assumes a perfect gas, constant specific heats +!> for gas and liquid, and neglects the volume of the liquid. +!> The model does account for the variation of the latent heat +!> of condensation with temperature. The ice option is not included. +!> The Clausius-Clapeyron equation is integrated from the triple point +!> To get the formula +!> @code +!> PVS=PSATK*(TR**XA)*exp(XB*(1.-TR)) +!> @endcode +!> where TR is TTP/T and other values are physical constants +!> This function should be expanded inline in the calling routine. +!> +!> @param[in] T real temperature in Kelvin. +!> @param[out] FPVSX real saturation vapor pressure in kilopascals (CB). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1982-12-30 | N Phillips | Initial +!> 1991-05-07 | Mark Iredell | Made into inlinable function +!> 1994-12-30 | Mark Iredell | Exact computation +!> 1996-02-19 | Hong | Ice effect +!> +!> @author N Phillips W/NP2 @date 1982-12-30 !----------------------------------------------------------------------- implicit none ! diff --git a/sorc/ncep_post.fd/LFMFLD.f b/sorc/ncep_post.fd/LFMFLD.f index a5d83919b..7099d4bc7 100644 --- a/sorc/ncep_post.fd/LFMFLD.f +++ b/sorc/ncep_post.fd/LFMFLD.f @@ -1,71 +1,45 @@ !> @file -! . . . -!> SUBPROGRAM: LFMFLD COMPUTES LAYER MEAN LFM FIELDS -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THREE LAYER MEAN RELATIVE HUMIDITIES -!! AND A PRECIPITABLE WATER FIELD FROM ETA LEVEL DATA. THE -!! COMPUTED FIELDS ARE INTENDED TO MIMIC SIMILAR FIELDS COM- -!! PUTED BY THE LFM. THE ALGORITHM USED HERE IS FAIRLY PRI- -!! MATIVE. IN EACH COLUMN ABOVE A MASS POINT ON THE ETA GRID -!! WE SET THE FOLLOWING TARGET PRESSURES: -!! SIGMA LAYER 1.00 PRESSURE: SURFACE PRESSURE -!! SIGMA LAYER 0.66 PRESSURE: 0.50 * SURFACE PRESSURE -!! SIGMA LAYER 0.33 PRESSURE: 0.4356 * SURFACE PRESSURE -!! GIVEN THESE PRESSURES A SURFACE UP SUMMATION IS MADE OF -!! RELATIVE HUMIDITY AND/OR PRECIPITABLE WATER BETWEEN THESE -!! TARGET PRESSURES. EACH TERM IN THE SUMMATION IS WEIGHTED -!! BY THE THICKNESS OF THE ETA LAYER. THE FINAL LAYER MEAN -!! IS THIS SUM NORMALIZED BY THE TOTAL DEPTH OF THE LAYER. -!! THERE IS, OBVIOUSLY, NO NORMALIZATION FOR PRECIPITABLE WATER. -!! -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 93-07-27 RUSS TREADON - MODIFIED SUMMATION LIMITS FROM -!! 0.66*PSFC TO 0.75*PSFC AND 0.33*PSFC -!! TO 0.50*PSFC, WHERE PSFC IS THE -!! SURFACES PRESSURE. THE REASON FOR -!! THIS CHANGE WAS RECOGNITION THAT IN -!! THE LFM 0.33 AND 0.66 WERE MEASURED -!! FROM THE SURFACE TO THE TROPOPAUSE, -!! NOT THE TOP OF THE MODEL. -!! 93-09-13 RUSS TREADON - RH CALCULATIONS WERE MADE INTERNAL -!! TO THE ROUTINE. -!! 96-03-04 MIKE BALDWIN - CHANGE PW CALC TO INCLUDE CLD WTR -!! 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE -!! 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-24 MIKE BALDWIN - WRF VERSION -!! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! -!! -!! USAGE: CALL LFMFLD(RH3310,RH6610,RH3366,PW3310) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! RH3310 - SIGMA LAYER 0.33-1.00 MEAN RELATIVE HUMIDITY. -!! RH6610 - SIGMA LAYER 0.66-1.00 MEAN RELATIVE HUMIDITY. -!! RH3366 - SIGMA LAYER 0.33-0.66 MEAN RELATIVE HUMIDITY. -!! PW3310 - SIGMA LAYER 0.33-1.00 PRECIPITABLE WATER. -!! -!! OUTPUT FILES: -!! NONE -!! -!! LIBRARY: -!! COMMON - -!! MAPOT -!! LOOPS -!! OPTIONS -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief lfmfld() computes layer mean LFM fields. +!> +!> This routine computes three layer mean relative humidities +!> and a precipitable water field from ETA level data. The +!> computed fields are intended to mimic similar fields com- +!> puted by the LFM. The algorithm used here is fairly pri- +!> mative. +!> 
+!> In each column above a mass point on the ETA grid we set the following target pressures:
+!>     Sigma layer 1.00 pressure:  Surface pressure
+!>     Sigma layer 0.66 pressure:  0.50 * Surface pressure
+!>     Sigma layer 0.33 pressure:  0.4356 * Surface pressure
+!>
+!> Given there pressures a surface up summation is made of +!> relative humidity and/or precipitable water between these +!> target pressures. Each term in the summation is weighted +!> By the thickness of the ETA layer. The final layer mean +!> is this sum normalized by the total depth of the layer. +!> There is, obviously, no normalization for precipitable water. +!> +!> @param[out] RH3310 Sigma layer 0.33-1.00 mean relative humidity. +!> @param[out] RH6610 Sigma layer 0.66-1.00 mean relative humidity. +!> @param[out] RH3366 Sigma layer 0.33-0.66 mean relative humidity. +!> @param[out] PW3310 Sigma layer 0.33-1.00 precipitable water. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-07-27 | Russ Treadon | Modified summation limits from 0.66*PSFC to 0.75*PSFC and 0.33*PSFC to 0.50*PSFC, where PSFC is the surfaces pressure. The reason for this change was recognition that in the LFM 0.33 and 0.66 were measured from the surface to the tropopause not the top of the model. +!> 1993-09-13 | Russ Treadon | RH calculations were made internal to the routine. +!> 1996-03-04 | Mike Baldwin | Change PW CALC to include CLD WTR +!> 1998-06-16 | T Black | Conversion from 1-D to 2-D +!> 1998-08-17 | Mike Baldwin | Compute RH over ice +!> 1998-12-22 | Mike Baldwin | Back out RH over ice +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-24 | Mike Baldwin | WRF Version +!> 2019-10-30 | Bo Cui | Remove "GOTO" statement +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE LFMFLD(RH3310,RH6610,RH3366,PW3310) ! diff --git a/sorc/ncep_post.fd/LFMFLD_GFS.f b/sorc/ncep_post.fd/LFMFLD_GFS.f index e89436e39..54f68fb9c 100644 --- a/sorc/ncep_post.fd/LFMFLD_GFS.f +++ b/sorc/ncep_post.fd/LFMFLD_GFS.f @@ -1,74 +1,46 @@ !> @file -! . . . -!> SUBPROGRAM: LFMFLD COMPUTES LAYER MEAN LFM FIELDS -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THREE LAYER MEAN RELATIVE HUMIDITIES -!! AND A PRECIPITABLE WATER FIELD FROM ETA LEVEL DATA. THE -!! COMPUTED FIELDS ARE INTENDED TO MIMIC SIMILAR FIELDS COM- -!! PUTED BY THE LFM. THE ALGORITHM USED HERE IS FAIRLY PRI- -!! MATIVE. IN EACH COLUMN ABOVE A MASS POINT ON THE ETA GRID -!! WE SET THE FOLLOWING TARGET PRESSURES: -!! SIGMA LAYER 1.00 PRESSURE: SURFACE PRESSURE -!! SIGMA LAYER 0.66 PRESSURE: 0.50 * SURFACE PRESSURE -!! SIGMA LAYER 0.33 PRESSURE: 0.4356 * SURFACE PRESSURE -!! GIVEN THESE PRESSURES A SURFACE UP SUMMATION IS MADE OF -!! RELATIVE HUMIDITY AND/OR PRECIPITABLE WATER BETWEEN THESE -!! TARGET PRESSURES. EACH TERM IN THE SUMMATION IS WEIGHTED -!! BY THE THICKNESS OF THE ETA LAYER. THE FINAL LAYER MEAN -!! IS THIS SUM NORMALIZED BY THE TOTAL DEPTH OF THE LAYER. -!! THERE IS, OBVIOUSLY, NO NORMALIZATION FOR PRECIPITABLE WATER. -!! -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 93-07-27 RUSS TREADON - MODIFIED SUMMATION LIMITS FROM -!! 0.66*PSFC TO 0.75*PSFC AND 0.33*PSFC -!! TO 0.50*PSFC, WHERE PSFC IS THE -!! SURFACES PRESSURE. THE REASON FOR -!! THIS CHANGE WAS RECOGNITION THAT IN -!! THE LFM 0.33 AND 0.66 WERE MEASURED -!! FROM THE SURFACE TO THE TROPOPAUSE, -!! NOT THE TOP OF THE MODEL. -!! 93-09-13 RUSS TREADON - RH CALCULATIONS WERE MADE INTERNAL -!! TO THE ROUTINE. -!! 96-03-04 MIKE BALDWIN - CHANGE PW CALC TO INCLUDE CLD WTR -!! 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE -!! 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-24 MIKE BALDWIN - WRF VERSION -!! 06-11-06 H CHUANG - MODIFY TO OUTPUT GFS LFM FIELDS WHICH -!! HAVE DIFFERENT THICKNESS AS MESO AND USE DP -!! RATHER THAN DZ -!! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -!! 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE -!! -!! -!! USAGE: CALL LFMFLD(RH3310,RH6610,RH3366,PW3310) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! RH3310 - SIGMA LAYER 0.33-1.00 MEAN RELATIVE HUMIDITY. -!! RH6610 - SIGMA LAYER 0.66-1.00 MEAN RELATIVE HUMIDITY. -!! RH3366 - SIGMA LAYER 0.33-0.66 MEAN RELATIVE HUMIDITY. -!! PW3310 - SIGMA LAYER 0.33-1.00 PRECIPITABLE WATER. -!! -!! OUTPUT FILES: -!! NONE -!! -!! LIBRARY: -!! COMMON - -!! MAPOT -!! LOOPS -!! OPTIONS -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief lfmfld_gfs() computes layer mean LFM fields. +!> +!> This routine computes three layer mean relative humidities +!> and a precipitable water field from ETA level data. The +!> computed fields are intended to mimic similar fields com- +!> puted by the LFM. The algorithm used here is fairly pri- +!> mative. +!> 
+!> In each column above a mass point on the ETA grid we set the following target pressures:
+!>     Sigma layer 1.00 pressure:  Surface pressure
+!>     Sigma layer 0.66 pressure:  0.50 * Surface pressure
+!>     Sigma layer 0.33 pressure:  0.4356 * Surface pressure
+!>
+!> Given there pressures a surface up summation is made of +!> relative humidity and/or precipitable water between these +!> target pressures. Each term in the summation is weighted +!> By the thickness of the ETA layer. The final layer mean +!> is this sum normalized by the total depth of the layer. +!> There is, obviously, no normalization for precipitable water. +!> +!> @param[out] RH3310 Sigma layer 0.33-1.00 mean relative humidity. +!> @param[out] RH6610 Sigma layer 0.66-1.00 mean relative humidity. +!> @param[out] RH3366 Sigma layer 0.33-0.66 mean relative humidity. +!> @param[out] PW3310 Sigma layer 0.33-1.00 precipitable water. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-07-27 | Russ Treadon | Modified summation limits from 0.66*PSFC to 0.75*PSFC and 0.33*PSFC to 0.50*PSFC, where PSFC is the surfaces pressure. The reason for this change was recognition that in the LFM 0.33 and 0.66 were measured from the surface to the tropopause not the top of the model. +!> 1993-09-13 | Russ Treadon | RH calculations were made internal to the routine. +!> 1996-03-04 | Mike Baldwin | Change PW CALC to include CLD WTR +!> 1998-06-16 | T Black | Conversion from 1-D to 2-D +!> 1998-08-17 | Mike Baldwin | Compute RH over ice +!> 1998-12-22 | Mike Baldwin | Back out RH over ice +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-24 | Mike Baldwin | WRF Version +!> 2006-11-06 | H CHUANG | Modify to output GFS LFM fields which have different thickness as MESO and use DP rather than DZ +!> 2019-10-30 | Bo Cui | Remove "GOTO" statement +!> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE LFMFLD_GFS(RH4410,RH7294,RH4472,RH3310) ! diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f index 9b65497bf..8aab37ba9 100644 --- a/sorc/ncep_post.fd/MDL2P.f +++ b/sorc/ncep_post.fd/MDL2P.f @@ -1,64 +1,36 @@ !> @file -! . . . -!> SUBPROGRAM: MDL2P VERT INTRP OF MODEL LVLS TO PRESSURE -!! PRGRMMR: BLACK ORG: W/NP22 DATE: 99-09-23 -!! -!! ABSTRACT: -!! FOR MOST APPLICATIONS THIS ROUTINE IS THE WORKHORSE OF THE POST PROCESSOR. -!! IN A NUTSHELL IT INTERPOLATES DATA FROM MODEL TO PRESSURE SURFACES. -!! IT ORIGINATED FROM THE VERTICAL INTERPOLATION CODE IN THE OLD ETA -!! POST PROCESSOR SUBROUTINE OUTMAP AND IS A REVISION OF SUBROUTINE ETA2P. -!! -!! PROGRAM HISTORY LOG: -!! 99-09-23 T BLACK - REWRITTEN FROM ETA2P -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-06-12 MIKE BALDWIN - WRF VERSION -!! 02-07-29 H CHUANG - ADD UNDERGROUND FIELDS AND MEMBRANE SLP FOR WRF -!! 04-11-24 H CHUANG - ADD FERRIER'S HYDROMETEOR FIELD -!! 05-07-07 B ZHOU - ADD RSM MODEL for SLP -!! 05--8-30 B ZHOU - ADD AVIATION PRODUCTS: ICING, CAT, LLWS COMPUTATION -!! 08-01-01 H CHUANG - ADD GFS D3D FIELDS TO VERTICAL INTERPOLATION -!! 10-07-01 SMIRNOVA AND HU - ADD RR CHANGES -!! 10-12-30 H CHUANG - ADD HAINES INDEX TO SUPPORT FIRE WEATHER -!! 11-02-06 J Wang - ADD grib2 option TO SUPPORT FIRE WEATHER -!! 12-01-11 S LU - ADD GOCART AEROSOLS -!! 13-08-01 S Moorthi - some optimization -!! 14-02-26 S Moorthi - threading datapd assignment -!! 19-10-30 B CUI - REMOVE "GOTO" STATEMENT -!! 20-03-25 J MENG - remove grib1 -!! 20-05-20 J MENG - CALRH unification with NAM scheme -!! 20-11-10 J MENG - USE UPP_PHYSICS MODULE -!! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) -!! 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY -!! -!! USAGE: CALL MDL2P -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! SCLFLD - SCALE ARRAY ELEMENTS BY CONSTANT. -!! CALPOT - COMPUTE POTENTIAL TEMPERATURE. -!! CALRH - COMPUTE RELATIVE HUMIDITY. -!! CALDWP - COMPUTE DEWPOINT TEMPERATURE. -!! BOUND - BOUND ARRAY ELEMENTS BETWEEN LOWER AND UPPER LIMITS. -!! CALMCVG - COMPUTE MOISTURE CONVERGENCE. -!! CALVOR - COMPUTE ABSOLUTE VORTICITY. -!! CALSTRM - COMPUTE GEOSTROPHIC STREAMFUNCTION. -!! -!! LIBRARY: -!! COMMON - CTLBLK -!! RQSTFLD -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM SP -!! +!> @brief mdl2p() computes vert intrp of model lvls to pressure. +!> +!> For most applications this routine is the workhorse of the post processor. +!> In a nutshell it interpolates data from model to pressure surfaces. +!> It origiaated from the vertical interpolation code in the old ETA +!> post processor subroutine outmap() and is a revision of subroutine eta2p(). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-09-23 | T Black | Rewritten from eta2p() +!> 2001-10-25 | H Chuang | Modified to process hybrid model output +!> 2002-06-12 | Mike Baldwin | WRF Version +!> 2002-07-29 | H Chuang | Add underground fields and membrane SLP for WRF +!> 2004-11-24 | H Chuang | Add FERRIER's hydrometeor field +!> 2005-07-07 | B Zhou | Add RSM model for SLP +!> 2005--8-30 | B Zhou | Add aviation products: ICING, CAT, LLWS computation +!> 2008-01-01 | H Chuang | Add GFS D3D fields to vertical interpolation +!> 2010-07-01 | Smirnova and Hu | Add RR changes +!> 2010-12-30 | H Chuang | Add Haines index to support fire weather +!> 2011-02-06 | J Wang | Add grib2 option to support fire weather +!> 2012-01-11 | S Lu | Add GOCART aerosols +!> 2013-08-01 | S Moorthi | Some optimization +!> 2014-02-26 | S Moorthi | Threading datapd assignment +!> 2019-10-30 | B Cui | Remove "GOTO" statement +!> 2020-03-25 | J Meng | Remove grib1 +!> 2020-05-20 | J Meng | CALRH unification with NAM scheme +!> 2020-11-10 | J Meng | Use UPP_PHYSICS module +!> 2021-03-11 | B Cui | Change local arrays to dimension (im,jsta:jend) +!> 2021-04-01 | J Meng | Computation on defined points only +!> +!> @author T Black W/NP2 @date 1999-09-23 SUBROUTINE MDL2P(iostatusD3D) ! diff --git a/sorc/ncep_post.fd/MDL2STD_P.f b/sorc/ncep_post.fd/MDL2STD_P.f index bcb81f375..3dc0edb62 100644 --- a/sorc/ncep_post.fd/MDL2STD_P.f +++ b/sorc/ncep_post.fd/MDL2STD_P.f @@ -1,40 +1,18 @@ !> @file -! . . . -!> SUBPROGRAM: MDL2STD_P VERT INTRP OF MODEL LVLS TO STANDARD ATMOSPEHRIC PRESSURE -!! PRGRMMR: Y Mao ORG: W/NP22 DATE: Sep 2019 -!! -!! ABSTRACT: -!! ORIGINATED FROM MISCLN.f. THIS ROUTINE INTERPOLATE TO STANDARD -!! ATMOSPHERIC PRESSURE, INSTEAD OF MODEL PRESSURE -!! -!! PROGRAM HISTORY LOG: -!! 19-09-24 Y Mao - REWRITTEN FROM MISCLN.f -!! 20-05-20 J MENG - CALRH unification with NAM scheme -!! 20-11-10 J MENG - USE UPP_PHYSICS MODULE -!! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL MDL2STD_P -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! FDLVL_UV - COMPUTE FD LEVEL WIND (AGL OR MSL). -!! FDLVL_MASS - COMPUTE FD LEVEL MASS (AGL OR MSL). -!! -!! LIBRARY: -!! COMMON - CTLBLK -!! RQSTFLD -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM SP -!! +!> @brief mdl2std_p() vert intrp of model lvls to standard atmospheric pressure. +!> +!> Originated from MISCLN.f. This routine interpolate to standard +!> atmospheric pressure, instead of model pressure. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2019-09-24 | Y Mao | Rewritten from MISCLN.f +!> 2020-05-20 | J Meng | CALRH unification with NAM scheme +!> 2020-11-10 | J Meng | Use UPP_PHYSICS Module +!> 2021-03-11 | B Cui | Change local arrays to dimension (im,jsta:jend) +!> +!> @author Y Mao W/NP22 @date 2019-09-24 SUBROUTINE MDL2STD_P() ! diff --git a/sorc/ncep_post.fd/MDL2THANDPV.f b/sorc/ncep_post.fd/MDL2THANDPV.f index bc5d6efef..686139561 100644 --- a/sorc/ncep_post.fd/MDL2THANDPV.f +++ b/sorc/ncep_post.fd/MDL2THANDPV.f @@ -1,44 +1,23 @@ !> @file -! -!> SUBPROGRAM: MDL2THANDPV VERT INTRP OF MODEL LVLS TO ISENTROPIC AND PV -!! PRGRMMR: CHUANG ORG: W/NP22 DATE: 07-03-26 -!! -!! ABSTRACT: -!! FOR MOST APPLICATIONS THIS ROUTINE IS THE WORKHORSE -!! OF THE POST PROCESSOR. IN A NUTSHELL IT INTERPOLATES -!! DATA FROM MODEL TO THETA AND PV SURFACES. -!! -!! PROGRAM HISTORY -!! 11-02-06 J. WANG ADD GRIB2 OPTION -!! 14-03-06 S. Moorthi - updated for threading and some optimization -!! 16-12-19 G.P. Lou - Added A-grid regional models -!! 20-03-25 J MENG - remove grib1 -!! 20-03-25 J MENG - remove grib1 -!! 20-11-10 J MENG - USE UPP_MATH and UPP_PHYSICS MODULES -!! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) -!! -!! -!! USAGE: CALL MDL2THANDPV -!! INPUT ARGUMENT LIST: -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! PVETC - -!! P2TH - -!! P2PV - -!! COMMON - CTLBLK -!! RQSTFLD -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM SP -!! +!> @brief mdl2thandpv() vert intrp of model lvls to isentropic and PV. +!> +!> For most applications this routine is the workhorse +!> of the post processor. In a nutshell it interpolates +!> data from model to THETA and PV surfaces. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2007-03-26 | Chuang | Initial +!> 2011-02-06 | J. Wang | Add GRIB2 Option +!> 2014-03-06 | S. Moorthi | Updated for threading and some optimization +!> 2016-12-19 | G.P. Lou | Added A-grid regional models +!> 2020-03-25 | J Meng | Remove grib1 +!> 2020-03-25 | J Meng | Remove grib1 +!> 2020-11-10 | J Meng | Use UPP_MATH and UPP_PHYSICS Modules +!> 2021-03-11 | B Cui | Change local arrays to dimension (im,jsta:jend) +!> +!> @author Chuang W/NP22 @date 2007-03-26 SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ! diff --git a/sorc/ncep_post.fd/MSFPS.f b/sorc/ncep_post.fd/MSFPS.f index 06b2bc63d..14aa915d4 100644 --- a/sorc/ncep_post.fd/MSFPS.f +++ b/sorc/ncep_post.fd/MSFPS.f @@ -1,25 +1,18 @@ !> @file -! . . . -!> SUBPROGRAM: MSFPS Computes the map scale factor for a Polar -!! Stereographic grid at a give latitude. -!! -!! ABSTRACT: -!! Computes the map scale factor for a Polar Stereographic -!! grid at a give latitude. -!! -!! PROGRAM HISTORY LOG: -!! 06-11-01 SWIPED FROM WRF SI PACKAGE BY ROZUMALSKI -!! -!! INPUT ARGUMENT LIST: -!! LAT - LATITUDE AT WHICH MAP FACTOR IS VALID -!! TRUELAT1 - TRUELAT 1 -!! -!! OUTPUT ARGUMENT LIST: -!! MSF - MAP SCALE FACTOR -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! +!> @brief msfps() computes the map scale factor for a polar stereographic grid at a give latitude. +!> +!> This subroutine computes the map scale factor for a polar stereographic grid at a give latitude. +!> +!> @param[in] LAT Latitude at which map factor is valid. +!> @param[in] TRUELAT1 TRUELAT 1. +!> @param[out] MSF Map scale factor. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2006-11-01 | Rozumalski | Swiped from WRF si package +!> +!> @author Rozumalski @date 2006-11-01 SUBROUTINE MSFPS(LAT,TRUELAT1,MSF) From 8bbfd6b1ad990b240332d8b3de60c57f62897c47 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Mon, 18 Apr 2022 07:47:40 -0600 Subject: [PATCH 049/107] Doxygen in kinds_mod.F, native_endianness.f, UPP_MATH.f and UPP_PHYSICS.f. (#479) * This is part of Issue #392. Fixes the doxygen warnings in kinds_mod.F, native_endianness.f, UPP_MATH.f and UPP_PHYSICS.f. * Further enhancement from Ed's comment. --- sorc/ncep_post.fd/UPP_MATH.f | 32 +- sorc/ncep_post.fd/UPP_PHYSICS.f | 704 +++++++++++--------------- sorc/ncep_post.fd/kinds_mod.F | 61 +-- sorc/ncep_post.fd/native_endianness.f | 120 ++--- 4 files changed, 374 insertions(+), 543 deletions(-) diff --git a/sorc/ncep_post.fd/UPP_MATH.f b/sorc/ncep_post.fd/UPP_MATH.f index 2b1ad4a75..58f74fa14 100644 --- a/sorc/ncep_post.fd/UPP_MATH.f +++ b/sorc/ncep_post.fd/UPP_MATH.f @@ -1,21 +1,19 @@ !> @file -! -!> SUBPROGRAM: UPP_MATH -!! @author JMENG @date 2020-05-20 -!! -!! A collection of UPP subroutines for numerical math functions calculation. -!! -!! DVDXDUDY -!! computes dudy, dvdx, uwnd -!! -!! H2U, H2V, U2H, V2H -!! interpolates variables between U, V, H, points -!! adopted from UPP subroutine GRIDAVG.f -!! -!! PROGRAM HISTORY LOG: -!! MAY 20 2020 Jesse Meng Initial code -!!------------------------------------------------------------------------ -!! +!> +!> @brief upp_math is a collection of UPP subroutines for numerical math functions calculation. +!> @author Jesse Meng @date 2020-05-20 + +!> dvdxdudy() computes dudy, dvdx, uwnd +!> +!> h2u(), h2v(), u2h(), v2h() interpolate variables between U, V, H, points +!> adopted from UPP subroutine GRIDAVG.f +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2020-05-20 | Jesse Meng | Initial +!> +!> @author Jesse Meng @date 2020-05-20 module upp_math use masks, only: dx, dy diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index 60a54dee5..e19191de2 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -1,37 +1,29 @@ !> @file -! -!> SUBPROGRAM: UPP_PHYSICS -!! @author JMENG @date 2020-05-20 -!! -!! A collection of UPP subroutines for physics variables calculation. -!! -!! CALCAPE -!! Compute CAPE/CINS and other storm related variables. -!! -!! CALCAPE2 -!! Compute additional storm related variables. -!! -!! CALRH -!! CALRH_NAM -!! CALRH_GFS -!! CALRH_GSD -!! Compute RH using various algorithms. -!! The NAM v4.1.18 ALGORITHM (CALRH_NAM) is selected as default for -!! NMMB and FV3GFS, FV3GEFS, and FV3R for the UPP 2020 unification. -!! -!! CALRH_PW -!! Algorithm use at GSD for RUC and Rapid Refresh -!! -!! FPVSNEW -!! Compute saturation vapor pressure. -!! -!! TVIRTUAL -!! Compute virtual temperature. -!! -!! PROGRAM HISTORY LOG: -!! MAY, 2020 Jesse Meng Initial code -!!------------------------------------------------------------------------------------- -!! +!> +!> @brief upp_physics is a collection of UPP subroutines for physics variables calculation. +!> @author Jesse Meng @date 2020-05-20 + +!> calcape() computes CAPE/CINS and other storm related variables. +!> +!> calcape2() computes additional storm related variables. +!> +!> calrh(), calrh_nam(), calrh_gfs(), calrh_gsd() compute RH using various algorithms. +!> +!> The NAM v4.1.18 algorithm (calrh_nam()) is selected as default for +!> NMMB and FV3GFS, FV3GEFS, and FV3R for the UPP 2020 unification. +!> +!> calrh_pw() algorithm use at GSD for RUC and Rapid Refresh. +!> +!> fpvsnew() computes saturation vapor pressure. +!> +!> tvirtual() computes virtual temperature. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2020-05-20 | Jesse Meng | Initial +!> +!> @author Jesse Meng @date 2020-05-20 module upp_physics implicit none @@ -68,55 +60,35 @@ END SUBROUTINE CALRH ! !------------------------------------------------------------------------------------- ! - SUBROUTINE CALRH_NAM(P1,T1,Q1,RH) -! SUBROUTINE CALRH(P1,T1,Q1,RH) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALRH COMPUTES RELATIVE HUMIDITY -! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -! -! ABSTRACT: -! THIS ROUTINE COMPUTES RELATIVE HUMIDITY GIVEN PRESSURE, -! TEMPERATURE, SPECIFIC HUMIDITY. AN UPPER AND LOWER BOUND -! OF 100 AND 1 PERCENT RELATIVE HUMIDITY IS ENFORCED. WHEN -! THESE BOUNDS ARE APPLIED THE PASSED SPECIFIC HUMIDITY -! ARRAY IS ADJUSTED AS NECESSARY TO PRODUCE THE SET RELATIVE -! HUMIDITY. -! . -! -! PROGRAM HISTORY LOG: -! ??-??-?? DENNIS DEAVEN -! 92-12-22 RUSS TREADON - MODIFIED AS DESCRIBED ABOVE. -! 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D -! 98-08-18 MIKE BALDWIN - MODIFY TO COMPUTE RH OVER ICE AS IN MODEL -! 98-12-16 GEOFF MANIKIN - UNDO RH COMPUTATION OVER ICE -! 00-01-04 JIM TUCCILLO - MPI VERSION -! 02-06-11 MIKE BALDWIN - WRF VERSION -! 06-03-19 Wen Meng - MODIFY TOP PRESSURE to 1 PA -! -! USAGE: CALL CALRH(P1,T1,Q1,RH) -! INPUT ARGUMENT LIST: -! P1 - PRESSURE (PA) -! T1 - TEMPERATURE (K) -! Q1 - SPECIFIC HUMIDITY (KG/KG) -! -! OUTPUT ARGUMENT LIST: -! RH - RELATIVE HUMIDITY (DECIMAL FORM) -! Q1 - ADJUSTED SPECIFIC HUMIDITY (KG/KG) -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! LIBRARY: -! NONE -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : CRAY C-90 -!$$$ -! +!> calrh_nam() computes relative humidity. +!> +!> This routine computes relative humidity given pressure, +!> temperature, specific humidity. an upper and lower bound +!> of 100 and 1 percent relative humidity is enforced. When +!> these bounds are applied the passed specific humidity +!> array is adjusted as necessary to produce the set relative +!> humidity. +!> +!> @param[in] P1 Pressure (pa) +!> @param[in] T1 Temperature (K) +!> @param[in] Q1 Specific humidity (kg/kg) +!> @param[out] RH Relative humidity (decimal form) +!> @param[out] Q1 Specific humidity (kg/kg) +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> ????-??-?? | DENNIS DEAVEN | Initial +!> 1992-12-22 | Russ Treadon | Modified as described above +!> 1998-06-08 | T Black | Conversion from 1-D to 2-D +!> 1998-08-18 | Mike Baldwin | Modify to compute RH over ice as in model +!> 1998-12-16 | Geoff Manikin | undo RH computation over ice +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-06-11 | Mike Baldwin | WRF Version +!> 2006-03-19 | Wen Meng | Modify top pressure to 1 pa +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 + SUBROUTINE CALRH_NAM(P1,T1,Q1,RH) use params_mod, only: PQ0, a2, a3, a4, rhmin use ctlblk_mod, only: jsta, jend, spval, im !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -167,55 +139,36 @@ END SUBROUTINE CALRH_NAM ! !------------------------------------------------------------------------------------- ! +!> calrh_gfs() computes relative humidity. +!> +!> This routine computes relative humidity given pressure, +!> temperature, specific humidity. an upper and lower bound +!> of 100 and 1 percent relative humidity is enforced. When +!> these bounds are applied the passed specific humidity +!> array is adjusted as necessary to produce the set relative +!> humidity. +!> +!> @param[in] P1 Pressure (pa) +!> @param[in] T1 Temperature (K) +!> @param[in] Q1 Specific humidity (kg/kg) +!> @param[out] RH Relative humidity (decimal form) +!> @param[out] Q1 Specific humidity (kg/kg) +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> ????-??-?? | DENNIS DEAVEN | Initial +!> 1992-12-22 | Russ Treadon | Modified as described above +!> 1998-06-08 | T Black | Conversion from 1-D to 2-D +!> 1998-08-18 | Mike Baldwin | Modify to compute RH over ice as in model +!> 1998-12-16 | Geoff Manikin | undo RH computation over ice +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-06-11 | Mike Baldwin | WRF Version +!> 2013-08-13 | S. Moorthi | Threading +!> 2006-03-19 | Wen Meng | Modify top pressure to 1 pa +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALRH_GFS(P1,T1,Q1,RH) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALRH COMPUTES RELATIVE HUMIDITY -! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -! -! ABSTRACT: -! THIS ROUTINE COMPUTES RELATIVE HUMIDITY GIVEN PRESSURE, -! TEMPERATURE, SPECIFIC HUMIDITY. AN UPPER AND LOWER BOUND -! OF 100 AND 1 PERCENT RELATIVE HUMIDITY IS ENFORCED. WHEN -! THESE BOUNDS ARE APPLIED THE PASSED SPECIFIC HUMIDITY -! ARRAY IS ADJUSTED AS NECESSARY TO PRODUCE THE SET RELATIVE -! HUMIDITY. -! . -! -! PROGRAM HISTORY LOG: -! ??-??-?? DENNIS DEAVEN -! 92-12-22 RUSS TREADON - MODIFIED AS DESCRIBED ABOVE. -! 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D -! 98-08-18 MIKE BALDWIN - MODIFY TO COMPUTE RH OVER ICE AS IN MODEL -! 98-12-16 GEOFF MANIKIN - UNDO RH COMPUTATION OVER ICE -! 00-01-04 JIM TUCCILLO - MPI VERSION -! 02-06-11 MIKE BALDWIN - WRF VERSION -! 13-08-13 S. Moorthi - Threading -! 06-03-19 Wen Meng - MODIFY TOP PRESSURE to 1 PA -! -! USAGE: CALL CALRH(P1,T1,Q1,RH) -! INPUT ARGUMENT LIST: -! P1 - PRESSURE (PA) -! T1 - TEMPERATURE (K) -! Q1 - SPECIFIC HUMIDITY (KG/KG) -! -! OUTPUT ARGUMENT LIST: -! RH - RELATIVE HUMIDITY (DECIMAL FORM) -! Q1 - ADJUSTED SPECIFIC HUMIDITY (KG/KG) -! -! OUTPUT FILES: -! NONE -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! LIBRARY: -! NONE -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : CRAY C-90 -!$$$ -! use params_mod, only: rhmin use ctlblk_mod, only: jsta, jend, spval, im !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -386,37 +339,28 @@ END SUBROUTINE CALRH_PW !------------------------------------------------------------------------------------- ! elemental function fpvsnew(t) -!$$$ Subprogram Documentation Block -! -! Subprogram: fpvsnew Compute saturation vapor pressure -! Author: N Phillips w/NMC2X2 Date: 30 dec 82 -! -! Abstract: Compute saturation vapor pressure from the temperature. -! A linear interpolation is done between values in a lookup table -! computed in gpvs. See documentation for fpvsx for details. -! Input values outside table range are reset to table extrema. -! The interpolation accuracy is almost 6 decimal places. -! On the Cray, fpvs is about 4 times faster than exact calculation. -! This function should be expanded inline in the calling routine. -! -! Program History Log: -! 91-05-07 Iredell made into inlinable function -! 94-12-30 Iredell expand table -! 1999-03-01 Iredell f90 module -! 2001-02-26 Iredell ice phase -! -! Usage: pvs=fpvsnew(t) -! -! Input argument list: -! t Real(krealfp) temperature in Kelvin -! -! Output argument list: -! fpvsnew Real(krealfp) saturation vapor pressure in Pascals -! -! Attributes: -! Language: Fortran 90. -! -!$$$ +!> fpvsnew() computes saturation vapor pressure. +!> +!> Compute saturation vapor pressure from the temperature. +!> A linear interpolation is done between values in a lookup table +!> computed in gpvs. See documentation for fpvsx for details. +!> Input values outside table range are reset to table extrema. +!> The interpolation accuracy is almost 6 decimal places. +!> On the Cray, fpvs is about 4 times faster than exact calculation. +!> This function should be expanded inline in the calling routine. +!> +!> @param[in] t Real(krealfp) Temperature in Kelvin. +!> @param[out] fpvsnew Real(krealfp) Saturation vapor pressure in Pascals. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1991-05-07 | Iredell | Initial. Made into inlinable function +!> 1994-12-30 | Iredell | Expand table +!> 1999-03-01 | Iredell | F90 module +!> 2001-02-26 | Iredell | Ice phase +!> +!> @author N Phillips w/NMC2X2 @date 1982-12-30 implicit none integer,parameter:: nxpvs=7501 real,parameter:: con_ttp =2.7316e+2 ! temp at H2O 3pt @@ -486,130 +430,98 @@ elemental function fpvsnew(t) end function fpvsnew ! !------------------------------------------------------------------------------------- -! - +!> calcape() computes CAPE and CINS. +!> +!> This routine computes CAPE and CINS given temperature, +!> pressure, and specific humidty. In "storm and cloud +!> dynamics" (1989, academic press) cotton and anthes define +!> CAPE (equation 9.16, p501) as +!> +!> @code +!> EL +!> CAPE = SUM G * LN(THETAP/THETAA) DZ +!> LCL +!> +!> Where, +!> EL = Equilibrium level, +!> LCL = Lifting condenstation level, +!> G = Gravitational acceleration, +!> THETAP = Lifted parcel potential temperature, +!> THETAA = Ambient potential temperature. +!> @endcode +!> +!> Note that the integrand ln(THETAP/THETAA) approximately +!> equals (THETAP-THETAA)/THETAA. This ratio is often used +!> in the definition of CAPE/CINS. +!> +!> Two types of CAPE/CINS can be computed by this routine. The +!> summation process is the same For both cases. What differs +!> is the definition of the parcel to lift. FOR ITYPE=1 the +!> parcel with the warmest THETA-E in A DPBND pascal layer above +!> the model surface is lifted. the arrays P1D, T1D, and Q1D +!> are not used. For itype=2 the arrays P1D, T1D, and Q1D +!> define the parcel to lift in each column. Both types of +!> CAPE/CINS may be computed in a single execution of the post +!> processor. +!> +!> This algorithm proceeds as follows. +!> For each column, +!> (1) Initialize running CAPE and CINS SUM TO 0.0 +!> (2) Compute temperature and pressure at the LCL using +!> look up table (PTBL). Use either parcel that gives +!> max THETAE in lowest DPBND above ground (ITYPE=1) +!> or given parcel from t1D,Q1D,...(ITYPE=2). +!> (3) Compute the temp of a parcel lifted from the LCL. +!> We know that the parcel's +!> equivalent potential temperature (THESP) remains +!> constant through this process. we can +!> compute tpar using this knowledge using look +!> up table (subroutine TTBLEX). +!> (4) Find the equilibrium level. This is defined as the +!> highest positively buoyant layer. +!> (If there is no positively buoyant layer, CAPE/CINS +!> will be zero) +!> (5) Compute CAPE/CINS. +!> (A) Compute THETAP. We know TPAR and P. +!> (B) Compute THETAA. We know T and P. +!> (6) Add G*(THETAP-THETAA)*DZ to the running CAPE or CINS sum. +!> (A) If THETAP > THETAA, add to the CAPE sum. +!> (B) If THETAP < THETAA, add to the CINS sum. +!> (7) Are we at equilibrium level? +!> (A) If yes, stop the summation. +!> (b) if no, contiunue the summation. +!> (8) Enforce limits on CAPE and CINS (i.e. no negative CAPE) +!> +!> @param[in] ITYPE INTEGER Flag specifying how parcel to lift is identified. See comments above. +!> @param[in] DPBND Depth over which one searches for most unstable parcel. +!> @param[in] P1D Array of pressure of parcels to lift. +!> @param[in] T1D Array of temperature of parcels to lift. +!> @param[in] Q1D Array of specific humidity of parcels to lift. +!> @param[in] L1D Array of model level of parcels to lift. +!> @param[out] CAPE Convective available potential energy (J/kg). +!> @param[out] CINS Convective inhibition (J/kg). +!> @param[out] PPARC Pressure level of parcel lifted when one searches over a particular depth to compute CAPE/CIN. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-02-10 | Russ Treadon | Initial +!> 1993-06-19 | Russ Treadon | Generalized routine to allow for type 2 CAPE/CINS calculations +!> 1994-09-23 | Mike Baldwin | Modified to use look up tables instead of complicated equations +!> 1994-10-13 | Mike Baldwin | Modified to continue CAPE/CINS calc up to at highest buoyant layer +!> 1998-06-12 | T Black | Conversion from 1-D TO 2-D +!> 1998-08-18 | T Black | Compute APE internally +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-01-15 | Mike Baldwin | WRF Version +!> 2003-08-24 | G Manikin | Added level of parcel being lifted as output from the routine and added the depth over which one searches for the most unstable parcel as input +!> 2010-09-09 | G Manikin | Changed computation to use virtual temp added eq lvl hght and thunder parameter +!> 2015-??-?? | S Moorthi | Optimization and threading +!> 2021-07-28 | W Meng | Restrict computation from undefined grids +!> 2021-09-01 | E Colon | Equivalent level height index for RTMA +!> +!> @author Russ Treadon W/NP2 @date 1993-02-10 SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & CINS,PPARC,ZEQL,THUND) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALCAPE COMPUTES CAPE AND CINS -! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-02-10 -! -! ABSTRACT: -! -! THIS ROUTINE COMPUTES CAPE AND CINS GIVEN TEMPERATURE, -! PRESSURE, AND SPECIFIC HUMIDTY. IN "STORM AND CLOUD -! DYNAMICS" (1989, ACADEMIC PRESS) COTTON AND ANTHES DEFINE -! CAPE (EQUATION 9.16, P501) AS -! -! EL -! CAPE = SUM G * LN(THETAP/THETAA) DZ -! LCL -! -! WHERE, -! EL = EQUILIBRIUM LEVEL, -! LCL = LIFTING CONDENSTATION LEVEL, -! G = GRAVITATIONAL ACCELERATION, -! THETAP = LIFTED PARCEL POTENTIAL TEMPERATURE, -! THETAA = AMBIENT POTENTIAL TEMPERATURE. -! -! NOTE THAT THE INTEGRAND LN(THETAP/THETAA) APPROXIMATELY -! EQUALS (THETAP-THETAA)/THETAA. THIS RATIO IS OFTEN USED -! IN THE DEFINITION OF CAPE/CINS. -! -! TWO TYPES OF CAPE/CINS CAN BE COMPUTED BY THIS ROUTINE. THE -! SUMMATION PROCESS IS THE SAME FOR BOTH CASES. WHAT DIFFERS -! IS THE DEFINITION OF THE PARCEL TO LIFT. FOR ITYPE=1 THE -! PARCEL WITH THE WARMEST THETA-E IN A DPBND PASCAL LAYER ABOVE -! THE MODEL SURFACE IS LIFTED. THE ARRAYS P1D, T1D, AND Q1D -! ARE NOT USED. FOR ITYPE=2 THE ARRAYS P1D, T1D, AND Q1D -! DEFINE THE PARCEL TO LIFT IN EACH COLUMN. BOTH TYPES OF -! CAPE/CINS MAY BE COMPUTED IN A SINGLE EXECUTION OF THE POST -! PROCESSOR. -! -! THIS ALGORITHM PROCEEDS AS FOLLOWS. -! FOR EACH COLUMN, -! (1) INITIALIZE RUNNING CAPE AND CINS SUM TO 0.0 -! (2) COMPUTE TEMPERATURE AND PRESSURE AT THE LCL USING -! LOOK UP TABLE (PTBL). USE EITHER PARCEL THAT GIVES -! MAX THETAE IN LOWEST DPBND ABOVE GROUND (ITYPE=1) -! OR GIVEN PARCEL FROM T1D,Q1D,...(ITYPE=2). -! (3) COMPUTE THE TEMP OF A PARCEL LIFTED FROM THE LCL. -! WE KNOW THAT THE PARCEL'S -! EQUIVALENT POTENTIAL TEMPERATURE (THESP) REMAINS -! CONSTANT THROUGH THIS PROCESS. WE CAN -! COMPUTE TPAR USING THIS KNOWLEDGE USING LOOK -! UP TABLE (SUBROUTINE TTBLEX). -! (4) FIND THE EQUILIBRIUM LEVEL. THIS IS DEFINED AS THE -! HIGHEST POSITIVELY BUOYANT LAYER. -! (IF THERE IS NO POSITIVELY BUOYANT LAYER, CAPE/CINS -! WILL BE ZERO) -! (5) COMPUTE CAPE/CINS. -! (A) COMPUTE THETAP. WE KNOW TPAR AND P. -! (B) COMPUTE THETAA. WE KNOW T AND P. -! (6) ADD G*(THETAP-THETAA)*DZ TO THE RUNNING CAPE OR CINS SUM. -! (A) IF THETAP > THETAA, ADD TO THE CAPE SUM. -! (B) IF THETAP < THETAA, ADD TO THE CINS SUM. -! (7) ARE WE AT EQUILIBRIUM LEVEL? -! (A) IF YES, STOP THE SUMMATION. -! (B) IF NO, CONTIUNUE THE SUMMATION. -! (8) ENFORCE LIMITS ON CAPE AND CINS (I.E. NO NEGATIVE CAPE) -! -! PROGRAM HISTORY LOG: -! 93-02-10 RUSS TREADON -! 93-06-19 RUSS TREADON - GENERALIZED ROUTINE TO ALLOW FOR -! TYPE 2 CAPE/CINS CALCULATIONS. -! 94-09-23 MIKE BALDWIN - MODIFIED TO USE LOOK UP TABLES -! INSTEAD OF COMPLICATED EQUATIONS. -! 94-10-13 MIKE BALDWIN - MODIFIED TO CONTINUE CAPE/CINS CALC -! UP TO AT HIGHEST BUOYANT LAYER. -! 98-06-12 T BLACK - CONVERSION FROM 1-D TO 2-D -! 98-08-18 T BLACK - COMPUTE APE INTERNALLY -! 00-01-04 JIM TUCCILLO - MPI VERSION -! 02-01-15 MIKE BALDWIN - WRF VERSION -! 03-08-24 G MANIKIN - ADDED LEVEL OF PARCEL BEING LIFTED -! AS OUTPUT FROM THE ROUTINE AND ADDED -! THE DEPTH OVER WHICH ONE SEARCHES FOR -! THE MOST UNSTABLE PARCEL AS INPUT -! 10-09-09 G MANIKIN - CHANGED COMPUTATION TO USE VIRTUAL TEMP -! - ADDED EQ LVL HGHT AND THUNDER PARAMETER -! 15-xx-xx S MOORTHI - optimization and threading -! 21-07-28 W Meng - Restrict computation from undefined grids. -! 21-09-01 E COLON - equivalent level height index for RTMA -! -! USAGE: CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, -! CINS,PPARC) -! INPUT ARGUMENT LIST: -! ITYPE - INTEGER FLAG SPECIFYING HOW PARCEL TO LIFT IS -! IDENTIFIED. SEE COMMENTS ABOVE. -! DPBND - DEPTH OVER WHICH ONE SEARCHES FOR MOST UNSTABLE PARCEL -! P1D - ARRAY OF PRESSURE OF PARCELS TO LIFT. -! T1D - ARRAY OF TEMPERATURE OF PARCELS TO LIFT. -! Q1D - ARRAY OF SPECIFIC HUMIDITY OF PARCELS TO LIFT. -! L1D - ARRAY OF MODEL LEVEL OF PARCELS TO LIFT. -! -! OUTPUT ARGUMENT LIST: -! CAPE - CONVECTIVE AVAILABLE POTENTIAL ENERGY (J/KG) -! CINS - CONVECTIVE INHIBITION (J/KG) -! PPARC - PRESSURE LEVEL OF PARCEL LIFTED WHEN ONE SEARCHES -! OVER A PARTICULAR DEPTH TO COMPUTE CAPE/CIN -! -! OUTPUT FILES: -! STDOUT - RUN TIME STANDARD OUT. -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! BOUND - BOUND (CLIP) DATA BETWEEN UPPER AND LOWER LIMTS. -! TTBLEX - LOOKUP TABLE ROUTINE TO GET T FROM THETAE AND P -! -! LIBRARY: -! COMMON - -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90 -! MACHINE : CRAY C-90 -!$$$ -! use vrbls3d, only: pmid, t, q, zint use vrbls2d, only: teql,ieql use masks, only: lmh @@ -988,140 +900,104 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & END SUBROUTINE CALCAPE ! !------------------------------------------------------------------------------------- -! +!> calcape2() computes CAPE and CINS. +!> +!> This routine computes CAPE and CINS given temperature, +!> pressure, and specific humidty. In "storm and cloud +!> dynamics" (1989, academic press) cotton and anthes define +!> CAPE (equation 9.16, p501) as +!> +!> @code +!> EL +!> CAPE = SUM G * ln(THETAP/THETAA) DZ +!> LCL +!> +!> Where, +!> EL = Equilibrium level, +!> LCL = Lifting condenstation level, +!> G = Gravitational acceleration, +!> THETAP = Lifted parcel potential temperature, +!> THETAA = Ambient potential temperature. +!> @endcode +!> +!> Note that the integrand ln(THETAP/THETAA) approximately +!> equals (THETAP-THETAA)/THETAA. This ratio is often used +!> in the definition of CAPE/CINS. +!> +!> Two types of CAPE/CINS can be computed by this routine. The +!> summation process is the same For both cases. What differs +!> is the definition of the parcel to lift. FOR ITYPE=1 the +!> parcel with the warmest THETA-E in A DPBND pascal layer above +!> the model surface is lifted. the arrays P1D, T1D, and Q1D +!> are not used. For itype=2 the arrays P1D, T1D, and Q1D +!> define the parcel to lift in each column. Both types of +!> CAPE/CINS may be computed in a single execution of the post +!> processor. +!> +!> This algorithm proceeds as follows. +!> For each column, +!> (1) Initialize running CAPE and CINS SUM TO 0.0 +!> (2) Compute temperature and pressure at the LCL using +!> look up table (PTBL). Use either parcel that gives +!> max THETAE in lowest DPBND above ground (ITYPE=1) +!> or given parcel from t1D,Q1D,...(ITYPE=2). +!> (3) Compute the temp of a parcel lifted from the LCL. +!> We know that the parcel's +!> equivalent potential temperature (THESP) remains +!> constant through this process. we can +!> compute tpar using this knowledge using look +!> up table (subroutine TTBLEX). +!> (4) Find the equilibrium level. This is defined as the +!> highest positively buoyant layer. +!> (If there is no positively buoyant layer, CAPE/CINS +!> will be zero) +!> (5) Compute CAPE/CINS. +!> (A) Compute THETAP. We know TPAR and P. +!> (B) Compute THETAA. We know T and P. +!> (6) Add G*(THETAP-THETAA)*DZ to the running CAPE or CINS sum. +!> (A) If THETAP > THETAA, add to the CAPE sum. +!> (B) If THETAP < THETAA, add to the CINS sum. +!> (7) Are we at equilibrium level? +!> (A) If yes, stop the summation. +!> (b) if no, contiunue the summation. +!> (8) Enforce limits on CAPE and CINS (i.e. no negative CAPE) +!> +!> @param[in] ITYPE INTEGER Flag specifying how parcel to lift is identified. See comments above. +!> @param[in] DPBND Depth over which one searches for most unstable parcel. +!> @param[in] P1D Array of pressure of parcels to lift. +!> @param[in] T1D Array of temperature of parcels to lift. +!> @param[in] Q1D Array of specific humidity of parcels to lift. +!> @param[in] L1D Array of model level of parcels to lift. +!> @param[out] CAPE Convective available potential energy (J/kg). +!> @param[out] CINS Convective inhibition (J/kg). +!> @param[out] LFC level of free convection (m). +!> @param[out] ESRHL Lower bound to account for effective helicity calculation. +!> @param[out] ESRHH Upper bound to account for effective helicity calculation. +!> @param[out] DCAPE downdraft CAPE (J/KG). +!> @param[out] DGLD Dendritic growth layer depth (m). +!> @param[out] ESP Enhanced stretching potential. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-02-10 | Russ Treadon | Initial +!> 1993-06-19 | Russ Treadon | Generalized routine to allow for type 2 CAPE/CINS calculations +!> 1994-09-23 | Mike Baldwin | Modified to use look up tables instead of complicated equations +!> 1994-10-13 | Mike Baldwin | Modified to continue CAPE/CINS calc up to at highest buoyant layer +!> 1998-06-12 | T Black | Conversion from 1-D TO 2-D +!> 1998-08-18 | T Black | Compute APE internally +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-01-15 | Mike Baldwin | WRF Version +!> 2003-08-24 | G Manikin | Added level of parcel being lifted as output from the routine and added the depth over which one searches for the most unstable parcel as input +!> 2010-09-09 | G Manikin | Changed computation to use virtual temp added eq lvl hght and thunder parameter +!> 2015-??-?? | S Moorthi | Optimization and threading +!> 2021-09-03 | J Meng | Modified to add 0-3km CAPE/CINS, LFC, effective helicity, downdraft CAPE, dendritic growth layer depth, ESP +!> 2021-09-01 | E Colon | Equivalent level height index for RTMA +!> +!> @author Russ Treadon W/NP2 @date 1993-02-10 SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & CAPE,CINS,LFC,ESRHL,ESRHH, & DCAPE,DGLD,ESP) -! SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & -! CINS,PPARC,ZEQL,THUND) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: CALCAPE COMPUTES CAPE AND CINS -! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-02-10 -! -! ABSTRACT: -! -! THIS ROUTINE COMPUTES CAPE AND CINS GIVEN TEMPERATURE, -! PRESSURE, AND SPECIFIC HUMIDTY. IN "STORM AND CLOUD -! DYNAMICS" (1989, ACADEMIC PRESS) COTTON AND ANTHES DEFINE -! CAPE (EQUATION 9.16, P501) AS -! -! EL -! CAPE = SUM G * LN(THETAP/THETAA) DZ -! LCL -! -! WHERE, -! EL = EQUILIBRIUM LEVEL, -! LCL = LIFTING CONDENSTATION LEVEL, -! G = GRAVITATIONAL ACCELERATION, -! THETAP = LIFTED PARCEL POTENTIAL TEMPERATURE, -! THETAA = AMBIENT POTENTIAL TEMPERATURE. -! -! NOTE THAT THE INTEGRAND LN(THETAP/THETAA) APPROXIMATELY -! EQUALS (THETAP-THETAA)/THETAA. THIS RATIO IS OFTEN USED -! IN THE DEFINITION OF CAPE/CINS. -! -! TWO TYPES OF CAPE/CINS CAN BE COMPUTED BY THIS ROUTINE. THE -! SUMMATION PROCESS IS THE SAME FOR BOTH CASES. WHAT DIFFERS -! IS THE DEFINITION OF THE PARCEL TO LIFT. FOR ITYPE=1 THE -! PARCEL WITH THE WARMEST THETA-E IN A DPBND PASCAL LAYER ABOVE -! THE MODEL SURFACE IS LIFTED. THE ARRAYS P1D, T1D, AND Q1D -! ARE NOT USED. FOR ITYPE=2 THE ARRAYS P1D, T1D, AND Q1D -! DEFINE THE PARCEL TO LIFT IN EACH COLUMN. BOTH TYPES OF -! CAPE/CINS MAY BE COMPUTED IN A SINGLE EXECUTION OF THE POST -! PROCESSOR. -! -! THIS ALGORITHM PROCEEDS AS FOLLOWS. -! FOR EACH COLUMN, -! (1) INITIALIZE RUNNING CAPE AND CINS SUM TO 0.0 -! (2) COMPUTE TEMPERATURE AND PRESSURE AT THE LCL USING -! LOOK UP TABLE (PTBL). USE EITHER PARCEL THAT GIVES -! MAX THETAE IN LOWEST DPBND ABOVE GROUND (ITYPE=1) -! OR GIVEN PARCEL FROM T1D,Q1D,...(ITYPE=2). -! (3) COMPUTE THE TEMP OF A PARCEL LIFTED FROM THE LCL. -! WE KNOW THAT THE PARCEL'S -! EQUIVALENT POTENTIAL TEMPERATURE (THESP) REMAINS -! CONSTANT THROUGH THIS PROCESS. WE CAN -! COMPUTE TPAR USING THIS KNOWLEDGE USING LOOK -! UP TABLE (SUBROUTINE TTBLEX). -! (4) FIND THE EQUILIBRIUM LEVEL. THIS IS DEFINED AS THE -! HIGHEST POSITIVELY BUOYANT LAYER. -! (IF THERE IS NO POSITIVELY BUOYANT LAYER, CAPE/CINS -! WILL BE ZERO) -! (5) COMPUTE CAPE/CINS. -! (A) COMPUTE THETAP. WE KNOW TPAR AND P. -! (B) COMPUTE THETAA. WE KNOW T AND P. -! (6) ADD G*(THETAP-THETAA)*DZ TO THE RUNNING CAPE OR CINS SUM. -! (A) IF THETAP > THETAA, ADD TO THE CAPE SUM. -! (B) IF THETAP < THETAA, ADD TO THE CINS SUM. -! (7) ARE WE AT EQUILIBRIUM LEVEL? -! (A) IF YES, STOP THE SUMMATION. -! (B) IF NO, CONTIUNUE THE SUMMATION. -! (8) ENFORCE LIMITS ON CAPE AND CINS (I.E. NO NEGATIVE CAPE) -! -! PROGRAM HISTORY LOG: -! 93-02-10 RUSS TREADON -! 93-06-19 RUSS TREADON - GENERALIZED ROUTINE TO ALLOW FOR -! TYPE 2 CAPE/CINS CALCULATIONS. -! 94-09-23 MIKE BALDWIN - MODIFIED TO USE LOOK UP TABLES -! INSTEAD OF COMPLICATED EQUATIONS. -! 94-10-13 MIKE BALDWIN - MODIFIED TO CONTINUE CAPE/CINS CALC -! UP TO AT HIGHEST BUOYANT LAYER. -! 98-06-12 T BLACK - CONVERSION FROM 1-D TO 2-D -! 98-08-18 T BLACK - COMPUTE APE INTERNALLY -! 00-01-04 JIM TUCCILLO - MPI VERSION -! 02-01-15 MIKE BALDWIN - WRF VERSION -! 03-08-24 G MANIKIN - ADDED LEVEL OF PARCEL BEING LIFTED -! AS OUTPUT FROM THE ROUTINE AND ADDED -! THE DEPTH OVER WHICH ONE SEARCHES FOR -! THE MOST UNSTABLE PARCEL AS INPUT -! 10-09-09 G MANIKIN - CHANGED COMPUTATION TO USE VIRTUAL TEMP -! - ADDED EQ LVL HGHT AND THUNDER PARAMETER -! 15-xx-xx S MOORTHI - optimization and threading -! 19-09-03 J MENG - MODIFIED TO ADD 0-3KM CAPE/CINS, LFC, -! EFFECTIVE HELICITY, DOWNDRAFT CAPE, -! DENDRITIC GROWTH LAYER DEPTH, ESP -! 21-09-01 E COLON - equivalent level height index for RTMA -! -! USAGE: CALL CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & -! CAPE,CINS,LFC,ESRHL,ESRHH, & -! DCAPE,DGLD,ESP) -! -! INPUT ARGUMENT LIST: -! ITYPE - INTEGER FLAG SPECIFYING HOW PARCEL TO LIFT IS -! IDENTIFIED. SEE COMMENTS ABOVE. -! DPBND - DEPTH OVER WHICH ONE SEARCHES FOR MOST UNSTABLE PARCEL -! P1D - ARRAY OF PRESSURE OF PARCELS TO LIFT. -! T1D - ARRAY OF TEMPERATURE OF PARCELS TO LIFT. -! Q1D - ARRAY OF SPECIFIC HUMIDITY OF PARCELS TO LIFT. -! L1D - ARRAY OF MODEL LEVEL OF PARCELS TO LIFT. -! -! OUTPUT ARGUMENT LIST: -! CAPE - CONVECTIVE AVAILABLE POTENTIAL ENERGY (J/KG) -! CINS - CONVECTIVE INHIBITION (J/KG) -! LFC - LEVEL OF FREE CONVECTION (M) -! ESRHL - LOWER BOUND TO ACCOUNT FOR EFFECTIVE HELICITY CALCULATION -! ESRHH - UPPER BOUND TO ACCOUNT FOR EFFECTIVE HELICITY CALCULATION -! DCAPE - DOWNDRAFT CAPE (J/KG) -! DGLD - DENDRITIC GROWTH LAYER DEPTH (M) -! ESP - ENHANCED STRETCHING POTENTIAL -! -! OUTPUT FILES: -! STDOUT - RUN TIME STANDARD OUT. -! -! SUBPROGRAMS CALLED: -! UTILITIES: -! BOUND - BOUND (CLIP) DATA BETWEEN UPPER AND LOWER LIMTS. -! TTBLEX - LOOKUP TABLE ROUTINE TO GET T FROM THETAE AND P -! -! LIBRARY: -! COMMON - -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN 90 -! MACHINE : CRAY C-90 -!$$$ -! use vrbls3d, only: pmid, t, q, zint use vrbls2d, only: fis,ieql use gridspec_mod, only: gridtype diff --git a/sorc/ncep_post.fd/kinds_mod.F b/sorc/ncep_post.fd/kinds_mod.F index f89c57a95..46fd95908 100644 --- a/sorc/ncep_post.fd/kinds_mod.F +++ b/sorc/ncep_post.fd/kinds_mod.F @@ -1,39 +1,30 @@ !> @file -! . . . . -!> module: kinds -!! prgmmr: treadon org: np23 date: 2004-08-15 -!! -!! abstract: Module to hold specification kinds for variable declaration. -!! This module is based on (copied from) Paul vanDelst's -!! type_kinds module found in the community radiative transfer -!! model -!! -!! module history log: -!! 2004-08-15 treadon -!! -!! Subroutines Included: -!! -!! Functions Included: -!! -!! remarks: -!! The numerical data types defined in this module are: -!! i_byte - specification kind for byte (1-byte) integer variable -!! i_short - specification kind for short (2-byte) integer variable -!! i_long - specification kind for long (4-byte) integer variable -!! i_llong - specification kind for double long (8-byte) integer variable -!! r_single - specification kind for single precision (4-byte) real variable -!! r_double - specification kind for double precision (8-byte) real variable -!! r_quad - specification kind for quad precision (16-byte) real variable -!! -!! i_kind - generic specification kind for default integer -!! r_kind - generic specification kind for default floating point -!! -!! -!! attributes: -!! language: f90 -!! machine: ibm RS/6000 SP -!! -!! +!> +!> @brief This module is to hold specification kinds for variable declaration. +!> This module is based on (copied from) Paul vanDelst's +!> type_kinds module found in the community radiative transfer model. +!> +!> @note The numerical data types defined in this module are: +!> Variables name | Numerical data types +!> ---------------|------------ +!> i_byte | specification kind for byte (1-byte) integer variable +!> i_short | specification kind for short (2-byte) integer variable +!> i_long | specification kind for long (4-byte) integer variable +!> i_llong | specification kind for double long (8-byte) integer variable +!> r_single | specification kind for single precision (4-byte) real variable +!> r_double | specification kind for double precision (8-byte) real variable +!> r_quad | specification kind for quad precision (16-byte) real variable +!> i_kind | generic specification kind for default integer +!> r_kind | generic specification kind for default floating point +!> +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2004-08-15 | Russ Treadon | Initial +!> +!> @author Russ Treadon np23 @date 2004-08-15 + module kinds implicit none diff --git a/sorc/ncep_post.fd/native_endianness.f b/sorc/ncep_post.fd/native_endianness.f index acfadaacd..c0003e4fe 100644 --- a/sorc/ncep_post.fd/native_endianness.f +++ b/sorc/ncep_post.fd/native_endianness.f @@ -1,35 +1,26 @@ !> @file -! . . . . -!> module: native_endianness -!! prgmmr: parrish org: wx22 date: 2012-10-11 -!! -!! abstract: This module was written by Dusan Jovic and has been adapted to GSI for internal translation -!! of WRF ARW and NMM binary restart files as required to match the machine native -!! endian storage format. The original code only converted from big-endian to little-endian. -!! There are no restrictions in this version. -!! This is required for these two types of files, because they are read/written to using mpi-io, -!! which has no compiler option for automatic switching to machine native endian format -!! for fortran unformatted read/write. -!! -!! program history log: -!! 2012-10-11 parrish - copy/modify original module native_endianness provided by Dusan Jovic, NCEP/EMC 2012 -!! 2012-10-19 parrish - additional modifications to improve efficiency. Remove interface and make -!! to_native_endianness to work only with integer(4) arguments. -!! Put to_native_endianness_i4 outside module. -!! -!! subroutines included: -!! -!! functions included: -!! is_little_endian - no argument--returns true for little-endian machine, false for big-endian machine -!! -!! variables included: -!! byte_swap - false if machine and wrf binary file are same endian, true if different -!! -!! attributes: -!! language: f90 -!! machine: -!! -!! +!> +!> @brief This module, native_endianness, was written by Dusan Jovic and has been adapted to GSI for internal translation +!> of WRF ARW and NMM binary restart files as required to match the machine native +!> endian storage format. The original code only converted from big-endian to little-endian. +!> There are no restrictions in this version. +!> This is required for these two types of files, because they are read/written to using mpi-io, +!> which has no compiler option for automatic switching to machine native endian format +!> for fortran unformatted read/write. +!> +!> @author Parrish wx22 @date 2012-10-11 + +!> @note functions included: is_little_endian - no argument--returns true for little-endian machine, false for big-endian machine +!> +!> @note variables included: byte_swap - false if machine and wrf binary file are same endian, true if different +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2012-10-11 | Parrish | Initial. Copy/modify original module native_endianness provided by Dusan Jovic, NCEP/EMC 2012 +!> 2012-10-19 | parrish | Additional modifications to improve efficiency. Remove interface and make to_native_endianness to work only with integer(4) arguments. Put to_native_endianness_i4 outside module. +!> +!> @author Parrish wx22 @date 2012-10-11 module native_endianness @@ -46,26 +37,14 @@ module native_endianness contains logical function is_little_endian() -!$$$ subprogram documentation block -! . . . . -! subprogram: is_little_endian -! prgmmr: parrish org: wx22 date: 2012-10-11 -! -! abstract: test to see if machine is little-endian. Returns true for little-endian, false for big-endian. -! -! program history log: -! 2012-10-11 parrish - add doc block -! -! input argument list: -! -! output argument list: -! -! attributes: -! language: f90 -! machine: -! -!$$$ end documentation block - +!> is_little_endian() tests to see if machine is little-endian. Returns true for little-endian, false for big-endian. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2012-10-11 | Parrish | Add doc block +!> +!> @author Parrish wx22 @date 2012-10-11 implicit none integer(i_byte) :: i1 @@ -86,32 +65,19 @@ end module native_endianness !---------------------------------------------------------------------- subroutine to_native_endianness_i4(i4,num) -!$$$ subprogram documentation block -! . . . . -! subprogram: to_native_endianness_i4 -! prgmmr: parrish org: wx22 date: 2012-10-11 -! -! abstract: swap bytes of argument. -! -! program history log: -! 2012-10-11 parrish - add doc block -! 2012-10-19 parrish - additional modifications to improve efficiency. Remove interface and make -! to_native_endianness to work only with integer(4) arguments. -! Put to_native_endianness_i4 outside module. -! -! input argument list: -! i4 - input 4 byte integer array -! num - length of array i4 (NOTE: type of num must be i_llong (8 byte integer) ) -! -! output argument list: -! i4 - output 4 byte integer array with bytes in reverse order -! -! attributes: -! language: f90 -! machine: -! -!$$$ end documentation block - +!> to_native_endianness_i4() is to swap bytes of argument. +!> +!> @param[in] i4 Input 4 byte integer array. +!> @param[in] num Length of array i4. (NOTE: type of num must be i_llong (8 byte integer) ) +!> @param[out] i4 Output 4 byte integer array with bytes in reverse order. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2012-10-11 | Parrish | Add doc block +!> 2012-10-19 | Parrish | Additional modifications to improve efficiency. Remove interface and make to_native_endianness to work only with integer(4) arguments. Put to_native_endianness_i4 outside module. +!> +!> @author Parrish wx22 @date 2012-10-11 use kinds, only: i_byte,i_long,i_llong implicit none From 95f8383df35a3c5080bb05867cca25bf1052df6b Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Mon, 18 Apr 2022 13:25:14 -0400 Subject: [PATCH 050/107] Bug fix in UPP build script on Catcus (#481) --- tests/detect_machine.sh | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/tests/detect_machine.sh b/tests/detect_machine.sh index 79d8a0d2e..7620dc004 100755 --- a/tests/detect_machine.sh +++ b/tests/detect_machine.sh @@ -40,24 +40,24 @@ case $(hostname -f) in alogin02.acorn.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2_a ;; ### acorn adecflow01.acorn.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### acorn adecflow02.acorn.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### acorn - dlogin01.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - dlogin02.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - dlogin03.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - dlogin04.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - dlogin05.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - dlogin06.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - dlogin07.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cattus - dlogin08.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - dlogin09.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin01.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin02.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin03.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin04.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin05.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin06.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin07.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin08.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus - clogin09.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + dlogin01.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin02.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin03.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin04.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin05.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin06.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin07.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin08.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + dlogin09.dogwood.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### dodwood + clogin01.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin02.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin03.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin04.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin05.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin06.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin07.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin08.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus + clogin09.cactus.wcoss2.ncep.noaa.gov) MACHINE_ID=wcoss2 ;; ### cactus gaea9) MACHINE_ID=gaea ;; ### gaea9 gaea10) MACHINE_ID=gaea ;; ### gaea10 From 793ba3ead53582d12b8ebfb89b6f33ac24efc8b6 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Mon, 18 Apr 2022 16:38:14 -0600 Subject: [PATCH 051/107] Doxygen in SCLFLD.f SELECT_CHANNELS.f SET_OUTFLDS.f SETUP_SERVERS.f SMOOTH.f TRPAUS.f TRPAUS_NAM.f WETFRZLV.f WRFPOST.f and ZENSUN.f (#480) * This is part of Issue #392. Fixes the doxygen warnings in SCLFLD.f SELECT_CHANNELS.f SET_OUTFLDS.f SETUP_SERVERS.f SMOOTH.f TRPAUS.f TRPAUS_NAM.f WETFRZLV.f WRFPOST.f ZENSUN.f * Further enhancement from Ed's comment. --- sorc/ncep_post.fd/SCLFLD.f | 61 +++++-------- sorc/ncep_post.fd/SELECT_CHANNELS.f | 40 ++++---- sorc/ncep_post.fd/SETUP_SERVERS.f | 70 ++++---------- sorc/ncep_post.fd/SET_OUTFLDS.f | 58 ++++-------- sorc/ncep_post.fd/SMOOTH.f | 137 ++++++++++++---------------- sorc/ncep_post.fd/TRPAUS.f | 79 +++++++--------- sorc/ncep_post.fd/TRPAUS_NAM.f | 71 +++++++------- sorc/ncep_post.fd/WETFRZLVL.f | 76 ++++++--------- sorc/ncep_post.fd/WRFPOST.f | 97 ++++++-------------- sorc/ncep_post.fd/ZENSUN.f | 130 ++++++++++++-------------- 10 files changed, 318 insertions(+), 501 deletions(-) diff --git a/sorc/ncep_post.fd/SCLFLD.f b/sorc/ncep_post.fd/SCLFLD.f index fc4087ea8..21d4e41d6 100644 --- a/sorc/ncep_post.fd/SCLFLD.f +++ b/sorc/ncep_post.fd/SCLFLD.f @@ -1,42 +1,27 @@ !> @file -! -!> SUBPROGRAM: SCLFLD SCALE ARRAY ELEMENT BY CONSTANT -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-09-13 -!! -!! ABSTRACT: -!! THIS ROUTINE MULTIPLES (SCALES) THE FIRST IMO*JMO -!! ELEMENTS OF ARRAY FLD BY THE REAL SCALAR SCALE. -!! ARRAY ELEMENTS WHICH EQUAL A SPECIAL VALUE WILL -!! NOT BE SCALED BY SCALE. THEY WILL BE LEFT AS IS. -!! THE SPECIAL VALUE, SPVAL, IS PASSED THROUGH COMMON -!! BLOCK OPTIONS. IT IS SET IN INCLUDE FILE OPTIONS. -!! -!! PROGRAM HISTORY LOG: -!! 92-09-13 RUSS TREADON -!! 00-01-04 JIM TUCCILLO -!! -!! USAGE: CALL SCLFLD(FLD,SCALE,IMO,JMO) -!! INPUT ARGUMENT LIST: -!! FLD - ARRAY WHOSE ELEMENTS ARE TO BE SCALED. -!! SCALE - CONSTANT BY WHICH TO SCALE ELEMENTS OF FLD. -!! IMO,JMO - DIMENSION OF ARRAY FLD. -!! -!! OUTPUT ARGUMENT LIST: -!! FLD - ARRAY WHOSE ELEMENTS HAVE BEEN SCALED BY SCALE. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - OPTIONS -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief sclfld() scale array element by constant. +!> +!> @author Russ Treadon W/NP2 @date 1992-09-13 + +!> This routine multiples (scales) the first IMO*JMO +!> elements of array fld by the real scalar scale. +!> Array elements which equal a special value will +!> not be scaled by scale. They will be left as is. +!> The special value, spval, is passed through common +!> block options. It is set in include file options. +!> +!> @param[in] FLD Array whose elements are to be scaled. +!> @param[in] SCALE Constant by which to scale elements of fld. +!> @param[in] IMO,JMO Dimension of array fld. +!> @param[out] FLD Array whose elements have been scaled by scale. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-09-13 | Russ Treadon | Initial +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> +!> @author Russ Treadon W/NP2 @date 1992-09-13 SUBROUTINE SCLFLD(FLD,SCALE,IMO,JMO) ! diff --git a/sorc/ncep_post.fd/SELECT_CHANNELS.f b/sorc/ncep_post.fd/SELECT_CHANNELS.f index f78828044..8964566a0 100644 --- a/sorc/ncep_post.fd/SELECT_CHANNELS.f +++ b/sorc/ncep_post.fd/SELECT_CHANNELS.f @@ -1,27 +1,21 @@ !> @file -! -!> SELECT_CHANNEL -!! @author HWRF @date 20120927 -!! -!! Verify channel information and print error to output file if -!! detected, finally excuting a program STOP - which may cause -!! a hang condifition if run on multiple processors. -!! If data passed validation the channel indices passed in via -!! the "channels" array are stored in the structure defining -!! the channel object -!! -!! @param[inout] channelinfo - structure defining channel object -!! @param[in] nchannels - number of channels for sensor -!! @param[in] channels -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: NONE -!! -!! LIBRARY: NONE -!! +!> @brief select_channels() verifies channel information. +!> +!> @author HWRF @date 2012-09-27 + +!> This subroutine verifies channel information and print error to output file if +!> detected, finally excuting a program STOP - which may cause +!> a hang condifition if run on multiple processors. +!> +!> If data passed validation the channel indices passed in via +!> the "channels" array are stored in the structure defining +!> the channel object. +!> +!> @param[inout] channelinfo structure defining channel object. +!> @param[in] nchannels number of channels for sensor. +!> @param[in] channels. +!> +!> @author HWRF @date 2012-09-27 subroutine SELECT_CHANNELS(channelinfo,nchannels,channels) use crtm_channelinfo_define, only: crtm_channelinfo_type diff --git a/sorc/ncep_post.fd/SETUP_SERVERS.f b/sorc/ncep_post.fd/SETUP_SERVERS.f index 9f2a2b084..8acd4332b 100644 --- a/sorc/ncep_post.fd/SETUP_SERVERS.f +++ b/sorc/ncep_post.fd/SETUP_SERVERS.f @@ -1,56 +1,22 @@ !> @file -! . . . -!> SUBROUTINE: SETUP_SERVERS SETUP I/O SERVERS -!! PRGRMMR: TUCCILLO ORG: IBM DATE: 00-03-20 -!! -!! ABSTRACT: SETUP I/O SERVERS -!! -!! PROGRAM HISTORY LOG: -!! 00-03-11 TUCCILLO - ORIGINATOR -!! -!! USAGE: CALL SETUP_SERVERS(MYPE, -!! * NPES, -!! * INUMQ, -!! * MPI_COMM_COMP, -!! * MPI_COMM_INTER) -!! -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! MYPE - MY RANK -!! INUMQ - ARRAY THAT HOLDS THE NUMBER OF SERVERS IN EACH GROUP -!! NPES - NUMBER OF MPI TASKS FOR POSTING -!! MPI_COMM_COMP - THE NEW INTRACOMMUNICATOR FOR ALL TASKS -!! MPI_COMM_INTER - THE INTERCOMMUNICATOR FOR THE I/O SERVERS -!! -!! INPUT FILES: NONE -!! -!! OUTPUT FILES: -!! -!! SUBPROGRAMS CALLED: -!! UNIQUE: -!! PARA_RANGE -!! MPI_INIT -!! MPI_COMM_RANK -!! MPI_COMM_SIZE -!! MPI_COMM_DUP -!! MPI_COMM_SPLIT -!! MPI_COMM_GROUP -!! MPI_GROUP_EXCL -!! MPI_COMM_CREATE -!! MPI_GROUP_FREE -!! MPI_INTERCOMM_CREATE -!! MPI_BARRIER -!! -!! EXIT STATES: -!! COND = 0 - NORMAL EXIT -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM SP -!! -!! +!> @brief setup_servers() setups I/O servers. +!> +!> @author Jim Tuccillo IBM @date 2000-03-20 + +!> This subroutine is to setup I/O servers. +!> +!> @param[out] MYPE My rank. +!> @param[out] INUMQ Array that holds the number of servers in each group. +!> @param[out] NPES Number of MPI tasks for posting. +!> @param[out] MPI_COMM_COMP The new intracommunicator for all tasks. +!> @param[out] MPI_COMM_INTER The intercommunicator for the I/O servers. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2000-03-20 | Jim Tuccillo | Initial +!> +!> @author Jim Tuccillo IBM @date 2000-03-20 SUBROUTINE SETUP_SERVERS(MYPE, & & NPES, & & INUMQ, & diff --git a/sorc/ncep_post.fd/SET_OUTFLDS.f b/sorc/ncep_post.fd/SET_OUTFLDS.f index a12d60106..a21f98fa5 100644 --- a/sorc/ncep_post.fd/SET_OUTFLDS.f +++ b/sorc/ncep_post.fd/SET_OUTFLDS.f @@ -1,43 +1,25 @@ !> @file -! . . . -!> SUBPROGRAM: READCNTRLgrb2_xml READS POST xml CONTROL FILE -!! PRGRMMR: J. WANG ORG: NCEP/EMC DATE: 12-01-27 -!! -!! ABSTRACT: -!! THIS ROUTINE READS THE CONTROL FILE IN XML FORMAT SPECIFYING -!! FIELD(S) TO POST, AND SAVE ALL THE FIELD INFORMATION IN -!! A DATATYPE array PSET -!! -!! PROGRAM HISTORY LOG: -!! 01_27_2012 Jun Wang - INITIAL CODE -!! 03_10_2015 Lin Gan - Replace XML file with flat file implementation -!! 10_30_2019 Bo CUI - REMOVE "GOTO" STATEMENT +!> @ brief set_outflds() reads post xml control file. +!> +!> @author J. Wang NCEP/EMC @date 2012-01-27 -!! -!! USAGE: CALL READCNTRL_XML(kth,kpv,pv,th) -!! INPUT ARGUMENT LIST: -!! KTH -!! TH -!! KPV -!! PV -!! -!! OUTPUT ARGUMENT LIST: -!! NONE - -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! COMMON - RQSTFLDGRB2 -!! CTLBLK -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : IBM -!! +!> This routine reads the control file in xml format specifying +!> field(s) to post, and save all the field information in +!> a datatype array PSET. +!> +!> @param[in] KTH +!> @param[in] TH +!> @param[in] KPV +!> @param[in] PV +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2012-01-27 | Jun Wang | Initial +!> 2015-03-10 | Lin Gan | Replace XML file with flat file implementation +!> 2019-10-30 | Bo Cui | Removw "GOTO" Statement +!> +!> @author J. Wang NCEP/EMC @date 2012-01-27 SUBROUTINE SET_OUTFLDS(kth,th,kpv,pv) ! diff --git a/sorc/ncep_post.fd/SMOOTH.f b/sorc/ncep_post.fd/SMOOTH.f index 4165affe5..01eb910a6 100644 --- a/sorc/ncep_post.fd/SMOOTH.f +++ b/sorc/ncep_post.fd/SMOOTH.f @@ -1,42 +1,34 @@ !> @file -! . . . . -!> SUBPROGRAM: SMOOTH SMOOTH A METEOROLOGICAL FIELD -!! PRGMMR: STAN BENJAMIN ORG: FSL/PROFS DATE: 90-06-15 -!! -!! ABSTRACT: SHAPIRO SMOOTHER. -!! -!! PROGRAM HISTORY LOG: -!! 85-12-09 S. BENJAMIN ORIGINAL VERSION -!! 14-03-03 S. Moorthi Threading and slight cleanup -!! -!! USAGE: CALL SMOOTH (FIELD,HOLD,IX,IY,SMTH) -!! INPUT ARGUMENT LIST: -!! FIELD - REAL ARRAY FIELD(IX,IY) -!! METEOROLOGICAL FIELD -!! HOLD - REAL ARRAY HOLD(IX,2) -!! HOLDING THE VALUE FOR FIELD -!! IX - INTEGER X COORDINATES OF FIELD -!! IY - INTEGER Y COORDINATES OF FIELD -!! SMTH - REAL -!! -!! OUTPUT ARGUMENT LIST: -!! FIELD - REAL ARRAY FIELD(IX,IY) -!! SMOOTHED METEOROLOGICAL FIELD -!! -!! REMARKS: REFERENCE: SHAPIRO, 1970: "SMOOTHING, FILTERING, AND -!! BOUNDARY EFFECTS", REV. GEOPHYS. SP. PHYS., 359-387. -!! THIS FILTER IS OF THE TYPE -!! Z(I) = (1-S)Z(I) + S(Z(I+1)+Z(I-1))/2 -!! FOR A FILTER WHICH IS SUPPOSED TO DAMP 2DX WAVES COMPLETELY -!! BUT LEAVE 4DX AND LONGER WITH LITTLE DAMPING, -!! IT SHOULD BE RUN WITH 2 PASSES USING SMTH (OR S) OF 0.5 -!! AND -0.5. -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN-77 + EXTENSIONS -!! MACHINE: NAS-9000, VAX, UNIX -!! - +!> @brief smooth() smooths a meteorological field using Shapiro smoother. +!> +!> @author Stan Benjamin FSL/PROFS @date 1990-06-15 + +!> +!> @note Reference: Shapiro, 1970: "Smoothing, filtering, and +!> boundary effects", REV. GEOPHYS. SP. PHYS., 359-387. +!> This filter is of the type +!> @code +!> Z(I) = (1-S)Z(I) + S(Z(I+1)+Z(I-1))/2 +!> @endcode +!> For a filter which is supposed to damp 2DX waves completely +!> but leave 4DX and longer with little damping, +!> it should be run with 2 passes using SMTH (or s) of 0.5 +!> and -0.5. +!> +!> @param[in] FIELD Real array FIELD(IX,IY) Meteorological field. +!> @param[in] HOLD Real array HOLD(IX,2) Holding the value for field. +!> @param[in] IX Integer X Coordinates of field. +!> @param[in] IY Integer Y Coordinates of field. +!> @param[in] SMTH Real. +!> @param[out] FIELD Real array FIELD(IX,IY) Smoothed meteorological field. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1990-06-15 | S. Benjamin | Initial +!> 2014-03-03 | S. Moorthi | Threading and slight cleanup +!> +!> @author Stan Benjamin FSL/PROFS @date 1990-06-15 !********************************************************************** !********************************************************************** @@ -99,45 +91,36 @@ SUBROUTINE SMOOTH (FIELD,HOLD,IX,IY,SMTH) RETURN END -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . . -! SUBPROGRAM: SMOOTHC SMOOTH A METEOROLOGICAL FIELD -! PRGMMR: STAN BENJAMIN ORG: FSL/PROFS DATE: 90-06-15 -! -! ABSTRACT: SHAPIRO SMOOTHER. -! -! PROGRAM HISTORY LOG: -! 85-12-09 S. BENJAMIN ORIGINAL VERSION os SMOOTH -! 14-03-03 S. Moorthi Threading and slight cleanup -! 16-08-08 S. Moorthi modify for cyclic domain -! -! USAGE: CALL SMOOTH (FIELD,HOLD,IX,IY,SMTH) -! INPUT ARGUMENT LIST: -! FIELD - REAL ARRAY FIELD(IX,IY) -! METEOROLOGICAL FIELD -! HOLD - REAL ARRAY HOLD(IX,2) -! HOLDING THE VALUE FOR FIELD -! IX - INTEGER X COORDINATES OF FIELD -! IY - INTEGER Y COORDINATES OF FIELD -! SMTH - REAL -! -! OUTPUT ARGUMENT LIST: -! FIELD - REAL ARRAY FIELD(IX,IY) -! SMOOTHED METEOROLOGICAL FIELD -! -! REMARKS: REFERENCE: SHAPIRO, 1970: "SMOOTHING, FILTERING, AND -! BOUNDARY EFFECTS", REV. GEOPHYS. SP. PHYS., 359-387. -! THIS FILTER IS OF THE TYPE -! Z(I) = (1-S)Z(I) + S(Z(I+1)+Z(I-1))/2 -! FOR A FILTER WHICH IS SUPPOSED TO DAMP 2DX WAVES COMPLETELY -! BUT LEAVE 4DX AND LONGER WITH LITTLE DAMPING, -! IT SHOULD BE RUN WITH 2 PASSES USING SMTH (OR S) OF 0.5 -! AND -0.5. -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN-77 + EXTENSIONS -! MACHINE: NAS-9000, VAX, UNIX -!$$$ +!> @brief smoothc() smooths a meteorological field using Shapiro smoother. +!> +!> @author Stan Benjamin FSL/PROFS @date 1990-06-15 + +!> @note Reference: Shapiro, 1970: "Smoothing, filtering, and +!> boundary effects", REV. GEOPHYS. SP. PHYS., 359-387. +!> This filter is of the type +!> @code +!> Z(I) = (1-S)Z(I) + S(Z(I+1)+Z(I-1))/2 +!> @endcode +!> For a filter which is supposed to damp 2DX waves completely +!> but leave 4DX and longer with little damping, +!> it should be run with 2 passes using SMTH (or s) of 0.5 +!> and -0.5. +!> +!> @param[in] FIELD Real array FIELD(IX,IY) Meteorological field. +!> @param[in] HOLD Real array HOLD(IX,2) Holding the value for field. +!> @param[in] IX Integer X Coordinates of field. +!> @param[in] IY Integer Y Coordinates of field. +!> @param[in] SMTH Real. +!> @param[out] FIELD Real array FIELD(IX,IY) Smoothed meteorological field. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1985-12-09 | S. Benjamin | Original version os smooth +!> 2014-03-03 | S. Moorthi | Threading and slight cleanup +!> 2016-08-08 | S. Moorthi | Modify for cyclic domain +!> +!> @author Stan Benjamin FSL/PROFS @date 1990-06-15 !********************************************************************** !********************************************************************** diff --git a/sorc/ncep_post.fd/TRPAUS.f b/sorc/ncep_post.fd/TRPAUS.f index 2523717b5..9678afcf8 100644 --- a/sorc/ncep_post.fd/TRPAUS.f +++ b/sorc/ncep_post.fd/TRPAUS.f @@ -1,53 +1,36 @@ !> @file -! -!> SUBPROGRAM: TRPAUS COMPUTE TROPOPAUSE DATA. -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES TROPOPAUSE DATA. AT EACH MASS -!! POINT A SURFACE UP SEARCH IS MADE FOR THE FIRST -!! OCCURRENCE OF A THREE LAYER MEAN LAPSE RATE LESS THAN -!! OR EQUAL TO A CRITICAL LAPSE RATE. THIS CRITCAL LAPSE -!! RATE IS 2DEG/KM. THIS IS IN ACCORD WITH THE WMO -!! DEFINITION OF A TROPOPAUSE. A MAXIMUM TROPOPAUSE -!! PRESSURE OF 500MB IS ENFORCED. ONC THE TROPOPAUSE -!! IS LOCATED IN A COLUMN, PRESSURE, TEMPERATURE, U -!! AND V WINDS, AND VERTICAL WIND SHEAR ARE COMPUTED. -!! -!! PROGRAM HISTORY LOG: -!! 92-12-22 RUSS TREADON -!! 97-03-06 GEOFF MANIKIN - CHANGED CRITERIA FOR DETERMINING -!! THE TROPOPAUSE AND ADDED HEIGHT -!! 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-23 MIKE BALDWIN - WRF VERSION -!! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT +!> @brief trpaus() computes tropopause data. +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 -!! -!! USAGE: CALL TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! PTROP - TROPOPAUSE PRESSURE. -!! TTROP - TROPOPAUSE TEMPERATURE. -!! ZTROP - TROPOPAUSE HEIGHT -!! UTROP - TROPOPAUSE U WIND COMPONENT. -!! VTROP - TROPOPAUSE V WIND COMPONENT. -!! SHTROP - VERTICAL WIND SHEAR AT TROPOPAUSE. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! -!! LIBRARY: -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> This routine computes tropopause data. At each mass +!> point a surface up search is made for the first +!> occurrence of a three layer mean lapse rate less than +!> or equal to a critical lapse rate. This critcal lapse +!> rate is 2deg/km. This is in accord with the WMO +!> definition of a tropopause. A maximum tropopause +!> pressure of 500mb is enforced. Onc the tropopause +!> is located in a column, pressure, temperature, u +!> and v winds, and vertical wind shear are computed. +!> +!> @param[out] PTROP Tropopause pressure. +!> @param[out] TTROP Tropopause temperature. +!> @param[out] ZTROP Tropopause height. +!> @param[out] UTROP Tropopause u wind component. +!> @param[out] VTROP Tropopause v wind component. +!> @param[out] SHTROP Vertical wind shear at tropopause. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1997-03-06 | Geoff Manikin | Changed criteria for determining the tropopause and added height +!> 1998-06-15 | T Black | Conversion from 1-D TO 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-23 | Mike Baldwin | WRF Version +!> 2019-10-30 | Bo Cui | ReMOVE "GOTO" STATEMENT +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) ! diff --git a/sorc/ncep_post.fd/TRPAUS_NAM.f b/sorc/ncep_post.fd/TRPAUS_NAM.f index caf8785f4..5ccb2c9ad 100644 --- a/sorc/ncep_post.fd/TRPAUS_NAM.f +++ b/sorc/ncep_post.fd/TRPAUS_NAM.f @@ -1,43 +1,36 @@ !> @file -! -!> SUBPROGRAM: TRPAUS COMPUTE TROPOPAUSE DATA. -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES TROPOPAUSE DATA. AT EACH MASS -!! POINT A SURFACE UP SEARCH IS MADE FOR THE FIRST -!! OCCURRENCE OF A THREE LAYER MEAN LAPSE RATE LESS THAN -!! OR EQUAL TO A CRITICAL LAPSE RATE. THIS CRITCAL LAPSE -!! RATE IS 2DEG/KM. THIS IS IN ACCORD WITH THE WMO -!! DEFINITION OF A TROPOPAUSE. A MAXIMUM TROPOPAUSE -!! PRESSURE OF 500MB IS ENFORCED. ONC THE TROPOPAUSE -!! IS LOCATED IN A COLUMN, PRESSURE, TEMPERATURE, U -!! AND V WINDS, AND VERTICAL WIND SHEAR ARE COMPUTED. -!! -!! PROGRAM HISTORY LOG: -!! - 92-12-22 RUSS TREADON -!! - 97-03-06 GEOFF MANIKIN - CHANGED CRITERIA FOR DETERMINING -!! THE TROPOPAUSE AND ADDED HEIGHT -!! - 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D -!! - 00-01-04 JIM TUCCILLO - MPI VERSION -!! - 02-04-23 MIKE BALDWIN - WRF VERSION -!! - 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -!! -!! USAGE: CALL TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! PTROP - TROPOPAUSE PRESSURE. -!! TTROP - TROPOPAUSE TEMPERATURE. -!! ZTROP - TROPOPAUSE HEIGHT -!! UTROP - TROPOPAUSE U WIND COMPONENT. -!! VTROP - TROPOPAUSE V WIND COMPONENT. -!! SHTROP - VERTICAL WIND SHEAR AT TROPOPAUSE. -!! -!! OUTPUT FILES: -!! NONE -!! +!> @brief trpaus() computes tropopause data. +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 + +!> This routine computes tropopause data. At each mass +!> point a surface up search is made for the first +!> occurrence of a three layer mean lapse rate less than +!> or equal to a critical lapse rate. This critcal lapse +!> rate is 2deg/km. This is in accord with the WMO +!> definition of a tropopause. A maximum tropopause +!> pressure of 500mb is enforced. Onc the tropopause +!> is located in a column, pressure, temperature, u +!> and v winds, and vertical wind shear are computed. +!> +!> @param[out] PTROP Tropopause pressure. +!> @param[out] TTROP Tropopause temperature. +!> @param[out] ZTROP Tropopause height. +!> @param[out] UTROP Tropopause u wind component. +!> @param[out] VTROP Tropopause v wind component. +!> @param[out] SHTROP Vertical wind shear at tropopause. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1997-03-06 | Geoff Manikin | Changed criteria for determining the tropopause and added height +!> 1998-06-15 | T Black | Conversion from 1-D TO 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-23 | Mike Baldwin | WRF Version +!> 2019-10-30 | Bo Cui | ReMOVE "GOTO" STATEMENT +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) ! diff --git a/sorc/ncep_post.fd/WETFRZLVL.f b/sorc/ncep_post.fd/WETFRZLVL.f index a3aeeede5..f6a60daf2 100644 --- a/sorc/ncep_post.fd/WETFRZLVL.f +++ b/sorc/ncep_post.fd/WETFRZLVL.f @@ -1,52 +1,32 @@ !> @file -! . . . -!> SUBPROGRAM: WETFRZLVL COMPUTES LEVEL OF 0 WET BULB -!! PRGRMMR: MANIKIN ORG: W/NP2 DATE: 03-11-14 -!! -!! ABSTRACT: -!! THIS ROUTINE COMPUTES THE LOWEST HEIGHT WITH A WET BULB -!! TEMPERATURE OF FREEZING FOR EACH MASS POINT ON THE ETA GRID. -!! THE COMPUTED WET BULB ZERO HEIGHT IS THE MEAN SEA LEVEL -!! HEIGHT. AT EACH MASS POINT WE MOVE UP FROM THE SURFACE TO -!! FIND THE FIRST ETA LAYER WHERE THE TW IS LESS THAN -!! 273.16K. VERTICAL INTERPOLATION IN TEMPERATURE TO THE FREEZING -!! TEMPERATURE GIVES THE FREEZING LEVEL HEIGHT. PRESSURE AND -!! SPECIFIC HUMIDITY ARE INTERPOLATED TO THIS LEVEL AND ALONG WITH -!! THE TEMPERATURE PROVIDE THE FREEZING LEVEL RELATIVE HUMIDITY. -!! IF THE SURFACE (SKIN) TEMPERATURE IS BELOW FREEZING, THE ROUTINE -!! USES SURFACE BASED FIELDS TO COMPUTE THE RELATIVE HUMIDITY. -!! -!! PROGRAM HISTORY LOG: -!! 03-11-14 GEOFF MANIKIN - NEW PROGRAM -!! 04-12-06 G MANIKIN - CORRECTED COMPUTATION OF SFC TEMPERATURE -!! 05-03-11 H CHUANG - WRF VERSION -!! 21-07-26 W Meng - Restrict computation from undefined grids -!! -!! USAGE: CALL WETFRZLVL(TWET,ZWET) -!! INPUT ARGUMENT LIST: -!! TWET - WET BULB TEMPERATURES -!! -!! OUTPUT ARGUMENT LIST: -!! ZWET - ABOVE GROUND LEVEL HEIGHT OF LEVEL WITH 0 WET BULB. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! REL_HUM -!! LIBRARY: -!! COMMON - -!! LOOPS -!! PVRBLS -!! MASKS -!! MAPOT -!! POSTVAR -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief wetfrzlvl() computes level of 0 wet bulb. +!> +!> @author Geoff Manikin W/NP2 @date 2003-11-14 + +!> This routine computes the lowest height with a wet bulb +!> temperature of freezing for each mass point on the eta grid. +!> The computed wet bulb zero height is the mean sea level +!> height. At each mass point we move up from the surface to +!> find the first eta layer where the tw is less than +!> 273.16K. Vertical interpolation in temperature to the freezing +!> temperature gives the freezing level height. Pressure and +!> specific humidity are interpolated to this level and along with +!> the temperature provide the freezing level relative humidity. +!> If the surface (skin) temperature is below freezing, the routine +!> uses surface based fields to compute the relative humidity. +!> +!> @param[in] TWET Wet bulb temperatures. +!> @param[out] ZWET Above ground level height of level with 0 wet bulb. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2003-11-14 | Geoff Manikin | Initial +!> 2004-12-06 | Geoff Manikin | Corrected computation of SFC temperature +!> 2005-03-11 | H CHUANG | WRF Version +!> 2021-07-26 | W Meng | Restrict computation from undefined grids +!> +!> @author Geoff Manikin W/NP2 @date 2003-11-14 SUBROUTINE WETFRZLVL(TWET,ZWET) ! diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index dfce15ab0..3d895c5c0 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -1,71 +1,34 @@ !> @file -! . . . -!> MAIN PROGRAM: WRFPOST -!! PRGMMR: BALDWIN ORG: NSSL/SPC DATE: 2002-06-18 -!! -!! ABSTRACT: -!! THIS PROGRAM DRIVES THE EXTERNAL WRF POST PROCESSOR. -!! -!! PROGRAM HISTORY LOG: -!! 92-12-24 RUSS TREADON - CODED ETAPOST AS STAND ALONE CODE -!! 98-05-29 BLACK - CONVERSION OF POST CODE FROM 1-D TO 2-D -!! 00-02-04 JIM TUCCILLO - PARALLEL VERSION VIA MPI -!! 01-02-15 JIM TUCCILLO - MANY COMMON BLOCKS REPLACED WITH MODULES -!! TO SUPPORT FORTRAN "ALLOCATE"s FOR THE EXACT SIZE OF THE -!! ARRAYS NEEDED BASED ON THE NUMBER OF MPI TASKS. -!! THIS WAS DONE TO REDUCE THE ADDRESS SPACE THAT THE LOADER SEES. -!! THESE CHANGES WERE NECESSARY FOR RUNNING LARGER DOMAINS SUCH AS -!! 12 KMS -!! 01-06-15 JIM TUCCILLO - ADDED ASYNCRONOUS I/O CAPABILITY. IF THERE ARE MORE -!! THAN ONE MPI TASK, THE IO WILL BE DONE AYNCHRONOUSLY BY THE LAST -!! MPI TASK. -!! 02-06-17 MIKE BALDWIN - CONVERT ETAPOST TO WRFPOST. INCLUDE WRF I/O API -!! FOR INPUT OF MODEL DATA. MODIFY CODE TO DEAL WITH C-GRID -!! DATA. STREAMLINE OUTPUT TO A CALL OF ONE SUBROUTINE INSTEAD OF THREE. -!! REPLACE COMMON BLOCKS WITH A LIMITED NUMBER OF MODULES. -!! 04-01-01 H CHUANG - ADDED NMM IO MODULE AND BINARY OPTIONS -!! 05-07-08 Binbin Zhou: Aadded RSM model -!! 05-12-05 H CHUANG - ADDED CAPABILITY TO OUTPUT OFF-HOUR FORECAST WHICH HAS -!! NO IMPACTS ON ON-HOUR FORECAST -!! 06-02-20 CHUANG, BLACK, AND ROGERS - FINALIZED COMPLETE LIST OF NAM -!! OPERATIONAL PRODUCTS FROM WRF -!! 06-02-27 H CHUANG - MODIFIED TO POST MULTIPLE -!! FORECAST HOURS IN ONE EXECUTION -!! 06-03-03 H CHUANG - ADDED PARRISH'S MPI BINARY IO TO READ BINARY -!! WRF FILE AS RANDOM ASSCESS SO THAT VARIABLES IN WRF OUTPUT -!! DON'T HAVE TO BE READ IN IN SPECIFIC ORDER -!! 11-02-06 J WANG - ADD GRIB2 OPTION -!! 11-12-14 SARAH LU - ADD THE OPTION TO READ NGAC AER FILE -!! 12-01-28 J WANG - Use post available fields in xml file for grib2 -!! 13-06-25 S MOORTHI - add gocart_on logical option to save memory -!! 13-10-03 J WANG - add option for po to be pascal, and -!! add gocart_on,d3d_on and popascal to namelist -!! 20-03-25 J MENG - remove grib1 -!! 21-06-20 W Meng - remove reading grib1 and gfsio lib -!! 21-10-22 KaYee Wong - created formal fortran namelist for itag -!! 21-11-03 Tracy Hertneky - Removed SIGIO option -!! 22-01-14 W Meng - Remove interfaces INITPOST_GS_NEMS, INITPOST_NEMS_MPIIO -!! INITPOST_NMM and INITPOST_GFS_NETCDF. -!! 22-03-15 W Meng - Unify FV3 based interfaces. -!! -!! USAGE: WRFPOST -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! RQSTFLD -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : IBM RS/6000 SP -!! +!> @brief wrfpost() drives the external wrf post processor. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-24 | Russ Treadon | Coded etapost as stand alone code +!> 1998-05-29 | Black | Conversion of post code from 1-D to 2-D +!> 1900-02-04 | Jim Tuccillo | Parallel version via MPI +!> 2001-02-15 | Jim Tuccillo | Many common blocks replaced with modules to support fortran "allocate"s for the exact size of the arrays needed based on the number of mpi tasks. This was done to reduce the address space that the loader sees. These changes were necessary for running larger domains such as 12 kms +!> 2001-06-15 | JIM Tuccillo | Added asyncronous I/O capability. if there are more than one mpi task, the io will be done aynchronously by the last MPI task. +!> 2002-06-17 | Mike Baldwin | Convert etapost to wrfpost. Include wrf I/O api for input of model data. Modify code to deal with C-grid data. Streamline output to a call of one subroutine instead of three. Replace common blocks with a limited number of modules. +!> 2004-01-01 | H Chuang | Added nmm io module and binary options +!> 2005-07-08 | Binbin Zhou | Added RSM model +!> 2005-12-05 | H Chuang | Added capability to output off-hour forecast which has no impacts on on-hour forecast +!> 2006-02-20 | Chuang, Black, and Rogers | Finalized complete list of NAM operational products from WRF +!> 2006-02-27 | H Chuang | Modified to post multiple forecast hours in one execution +!> 2006-03-03 | H Chuang | Added parrish's mpi binary io to read binary WRF file as random asscess so that variables in WRF output don't have to be read in in specific order +!> 2011-02-06 | J Wang | Add grib2 option +!> 2011-12-14 | Sarah Lu | Add the option to read ngac aer file +!> 2012-01-28 | J WANG | Use post available fields in xml file for grib2 +!> 2013-06-25 | S Moorthi | Add gocart_on logical option to save memory +!> 2013-10-03 | J Wang |Add option for po to be pascal, and add gocart_on,d3d_on and popascal to namelist +!> 2020-03-25 | J Meng | Remove grib1 +!> 2021-06-20 | W Meng | Remove reading grib1 and gfsio lib +!> 2021-10-22 | KaYee Wong | Created formal fortran namelist for itag +!> 2021-11-03 | Tracy Hertneky | Removed SIGIO option +!> 2022-01-14 | W Meng | Remove interfaces INITPOST_GS_NEMS, INITPOST_NEMS_MPIIO, INITPOST_NMM and INITPOST_GFS_NETCDF +!> 2022-03-15 | W Meng | Unify FV3 based interfaces +!> +!> @author Mike Bladwin NSSL/SPC @date 2002-06-18 PROGRAM WRFPOST ! diff --git a/sorc/ncep_post.fd/ZENSUN.f b/sorc/ncep_post.fd/ZENSUN.f index a0c0412fb..4c46415b6 100644 --- a/sorc/ncep_post.fd/ZENSUN.f +++ b/sorc/ncep_post.fd/ZENSUN.f @@ -1,75 +1,63 @@ !> @file -! . . . . -!> subprogram: zensun make sun zenith and sun azimuth angle -!! -!! prgmmr: Paul Ricchiazzi org: Earth Space Research Group,UCSB date: 1992-10-23 -!! -!! abstract: -!! Compute solar position information as a function of -!! geographic coordinates, date and time. -!! -!! program history log: -!! 2005-10-21 kazumori - reformatted for GSI -!! -!! input argument list: -!! day - Julian day (positive scalar or vector) -!! (spring equinox = 80) -!! (summer solstice= 171) -!! (fall equinox = 266) -!! (winter solstice= 356) -!! time - Universal Time in hours (scalar or vector) -!! lat - geographic latitude of point on earth's surface (degrees) -!! lon - geographic longitude of point on earth's surface (degrees) -!! -!! output argument list: -!! sun_zenith - solar zenith angle -!! sun_azimuth - solar azimuth angle -!! -!! comments: -!! -!! -!! PROCEDURE: -!! -!! 1. Calculate the subsolar point latitude and longitude, based on -!! DAY and TIME. Since each year is 365.25 days long the exact -!! value of the declination angle changes from year to year. For -!! precise values consult THE AMERICAN EPHEMERIS AND NAUTICAL -!! ALMANAC published yearly by the U.S. govt. printing office. The -!! subsolar coordinates used in this code were provided by a -!! program written by Jeff Dozier. -!! -!! 2. Given the subsolar latitude and longitude, spherical geometry is -!! used to find the solar zenith, azimuth and flux multiplier. -!! -!! eqt = equation of time (minutes) ! solar longitude correction = -15*eqt -!! dec = declination angle (degrees) = solar latitude -!! -!! LOWTRAN v7 data (25 points) -!! The LOWTRAN solar position data is characterized by only 25 points. -!! This should predict the subsolar angles within one degree. For -!! increased accuracy add more data points. -!! -!!nday=[ 1., 9., 21., 32., 44., 60., 91., 121., 141., 152.,$ -!! 160., 172., 182., 190., 202., 213., 244., 274., 305., 309.,$ -!! 325., 335., 343., 355., 366.] -!! -!!eqt=[ -3.23, -6.83,-11.17,-13.57,-14.33,-12.63, -4.2, 2.83, 3.57, 2.45,$ -!! 1.10, -1.42, -3.52, -4.93, -6.25, -6.28,-0.25, 10.02, 16.35, 16.38,$ -!! 14.3, 11.27, 8.02, 2.32, -3.23] -!! -!!dec=[-23.07,-22.22,-20.08,-17.32,-13.62, -7.88, 4.23, 14.83, 20.03, 21.95,$ -!! 22.87, 23.45, 23.17, 22.47, 20.63, 18.23, 8.58, -2.88,-14.18,-15.45,$ -!! -19.75,-21.68,-22.75,-23.43,-23.07] -!! -!! Analemma information from Jeff Dozier -!! This data is characterized by 74 points -!! -!! -!! attributes: -!! language: f90 -!! machine: ibm RS/6000 SP -!! -!! +!> zensun() makes sun zenith and sun azimuth angle. +!> +!> @author Paul Ricchiazzi Earth Space Research Group,UCSB @date 1992-10-23 + +!> This subroutine computes solar position information as a function of +!> geographic coordinates, date and time. +!> +!> +!> @note Procedure: +!> +!> 1. Calculate the subsolar point latitude and longitude, based on +!> DAY and TIME. Since each year is 365.25 days long the exact +!> value of the declination angle changes from year to year. For +!> precise values consult THE AMERICAN EPHEMERIS AND NAUTICAL +!> ALMANAC published yearly by the U.S. govt. printing office. The +!> subsolar coordinates used in this code were provided by a +!> program written by Jeff Dozier. +!> +!> 2. Given the subsolar latitude and longitude, spherical geometry is +!> used to find the solar zenith, azimuth and flux multiplier. +!> +!> eqt = equation of time (minutes) ! solar longitude correction = -15*eqt +!> dec = declination angle (degrees) = solar latitude +!> +!> LOWTRAN v7 data (25 points) +!> The LOWTRAN solar position data is characterized by only 25 points. +!> This should predict the subsolar angles within one degree. For +!> increased accuracy add more data points. +!> +!> nday=[ 1., 9., 21., 32., 44., 60., 91., 121., 141., 152.,$ +!> 160., 172., 182., 190., 202., 213., 244., 274., 305., 309.,$ +!> 325., 335., 343., 355., 366.] +!> +!> eqt=[ -3.23, -6.83,-11.17,-13.57,-14.33,-12.63, -4.2, 2.83, 3.57, 2.45,$ +!> 1.10, -1.42, -3.52, -4.93, -6.25, -6.28,-0.25, 10.02, 16.35, 16.38,$ +!> 14.3, 11.27, 8.02, 2.32, -3.23] +!> +!> dec=[-23.07,-22.22,-20.08,-17.32,-13.62, -7.88, 4.23, 14.83, 20.03, 21.95,$ +!> 22.87, 23.45, 23.17, 22.47, 20.63, 18.23, 8.58, -2.88,-14.18,-15.45,$ +!> -19.75,-21.68,-22.75,-23.43,-23.07] +!> +!> Analemma information from Jeff Dozier +!> +!> This data is characterized by 74 points. +!> +!> +!> @param[in] day Julian day (positive scalar or vector), (spring equinox = 80), (summer solstice= 171), (fall equinox = 266), (winter solstice= 356). +!> @param[in] time Universal Time in hours (scalar or vector). +!> @param[in] lat Geographic latitude of point on earth's surface (degrees). +!> @param[in] lon Geographic longitude of point on earth's surface (degrees). +!> @param[out] sun_zenith - solar zenith angle. +!> @param[out] sun_azimuth - solar azimuth angle. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2005-10-21 | kazumori | Reformatted for GSI +!> +!> @author Paul Ricchiazzi Earth Space Research Group,UCSB @date 1992-10-23 subroutine zensun(day,time,lat,lon,pi,sun_zenith,sun_azimuth) ! From b49534502c61dbd153e69c42a429598931571c90 Mon Sep 17 00:00:00 2001 From: Kate Fossell Date: Tue, 26 Apr 2022 09:31:08 -0500 Subject: [PATCH 052/107] Update readme (#486) * Starting UPP version numbers with 10.0.0 for develop branch * Add codeowners file to develop * Update README * Formatting updates * update inline post supported applications * Additional updates to supported models Co-authored-by: Kate Fossell --- README.md | 69 ++++++++++++++++++++++++++----------------------------- 1 file changed, 33 insertions(+), 36 deletions(-) diff --git a/README.md b/README.md index 4d403a302..1592d58d4 100644 --- a/README.md +++ b/README.md @@ -8,9 +8,11 @@ output. The UPP is currently used in operations with the Global Forecast System (GFS), GFS Ensemble Forecast System (GEFS), North American Mesoscale (NAM), Rapid Refresh (RAP), High Resolution Rapid Refresh -(HRRR), Short Range Ensemble Forecast (SREF), Hurricane WRF (HWRF) -applications, and is also used in Unified Forecasting System (UFS) -applications. +(HRRR), Short Range Ensemble Forecast (SREF), and Hurricane WRF (HWRF) +applications. It is also used in the Unified Forecasting System (UFS), +including the Rapid Refresh Forecast System (RRFS), Hurricane Application +Forecasting System (HAFS), and the Medium Range Weather (MRW) and Short +Range Weather (SRW) Applications. The UPP provides the capability to compute a variety of diagnostic fields and interpolate to pressure levels or other vertical @@ -41,23 +43,29 @@ Examples of UPP products include: - Radar reflectivity products - Satellite look-alike products -Support for the UFS UPP is provided through the UFS Forum by the -Developmental Testbed Center (DTC) for FV3-based applications. -For full documentation see https://noaa-emc.github.io/UPP/. +## User Support +Support for the UFS UPP is provided through the [UFS Forum](https://forums.ufscommunity.org/) +by the Developmental Testbed Center (DTC). -The UPP uses some of the [NCEPLIBS](https://github.com/NOAA-EMC/NCEPLIBS) -project. +## Documentation +User Guide for latest public release: https://upp.readthedocs.io/en/latest/. + +Technical code-level documentation: https://noaa-emc.github.io/UPP/. + +## Developer Information +Please see review the [wiki](https://github.com/NOAA-EMC/UPP/wiki) ## Authors NCEP/EMC Developers -Code Manager: Wen Meng, Huiya Chuang, Kate Fossell +Code Managers: Wen Meng, Huiya Chuang, Kate Fossell ## Prerequisites -This package requires the following NCEPLIBS packages: +The UPP requires certain NCEPLIB packages to be installed via +the HPC-Stack project. - [NCEPLIBS-g2](https://github.com/NOAA-EMC/NCEPLIBS-g2) - [NCEPLIBS-g2tmpl](https://github.com/NOAA-EMC/NCEPLIBS-g2tmpl) @@ -71,9 +79,9 @@ This package requires the following NCEPLIBS packages: Also required to build NCEPpost executable (cmake option BUILD_POSTEXEC): -- [NCEPLIBS-sigio](https://github.com/NOAA-EMC/NCEPLIBS-sigio) - -- [NCEPLIBS-sfcio](https://github.com/NOAA-EMC/NCEPLIBS-sfcio) - -- [NCEPLIBS-nemsio](https://github.com/NOAA-EMC/NCEPLIBS-nemsio) - +- [NCEPLIBS-sigio](https://github.com/NOAA-EMC/NCEPLIBS-sigio) +- [NCEPLIBS-sfcio](https://github.com/NOAA-EMC/NCEPLIBS-sfcio) +- [NCEPLIBS-nemsio](https://github.com/NOAA-EMC/NCEPLIBS-nemsio) - [NCEPLIBS-gfsio](https://github.com/NOAA-EMC/NCEPLIBS-gfsio) The [NCEPLIBS-wrf_io](https://github.com/NOAA-EMC/NCEPLIBS-wrf_io) @@ -92,29 +100,18 @@ The following third-party libraries are required: Builds include: -- Operational use GNC build as Wen described for both library and - executable (library used for GFS only at this time) - -- MRW App uses UPP packaged with nceplibs and cmake to build/run with - executable (via release/public-v1 branch). - -- SRW App uses UPP repo branch/tag directly and uses cmake to - build/run with executable (via release/public-v2 branch). - -- Community standalone uses UPP repo branch/tag directly and uses - cmake to build/run with executable (via release/public-v2 - branch). For these procedures, we add a - -DCMAKE_PREFIX_PATH=${INSTALL_PREFIX} where INSTALL_PREFIX is the - location of the nceplibs installation as a dependency requirement. - -``` -mkdir build -cd build -cmake .. -DCMAKE_INSTALL_PREFIX=/path/to/install -(or cmake .. -DCMAKE_INSTALL_PREFIX=/path/to/install -DEMC_EXEC_DIR=ON) -make -j 4 -make install -``` +- Inline post (UPP library): Currently only supported for the GFS, RRFS, + HAFS, and the UFS-MRW Application. + +- Offline post (UPP executable): Supported for Regional applications + including SRW, RRFS, HAFS, and standalone applications of UPP. + + +CMake is used to manage all builds of the UPP. +The script `UPP/tests/compile_upp.sh` can be used to automatically +build UPP on fully supported platforms where HPC-stack is supported. +Details in this script can be used to build on new platforms. + ## Disclaimer From 80cc1dcdc13b189342f2c41990a322c10091e3bf Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Tue, 26 Apr 2022 12:27:09 -0600 Subject: [PATCH 053/107] Doxygen in GFSPOST.F (#476) * This is part of Issue #392. Fixes the doxygen warnings in GFSPOST.F and GFSPOSTSIG.F. * Testing:revert GFSPOST.F * Testing: Revert GFSPOSTSIG.F and test GFSPOST.F only. * Convert list to a table. * Add more document. * Add more document. * Add more document. * Fixed indentation. * Minor fixes. * Further refinement from Ed's comment. --- sorc/ncep_post.fd/GFSPOST.F | 691 +++++++++++++++--------------------- 1 file changed, 292 insertions(+), 399 deletions(-) diff --git a/sorc/ncep_post.fd/GFSPOST.F b/sorc/ncep_post.fd/GFSPOST.F index 9921a3228..c64d13b7d 100644 --- a/sorc/ncep_post.fd/GFSPOST.F +++ b/sorc/ncep_post.fd/GFSPOST.F @@ -1,57 +1,43 @@ !> @file -! -!> Subprogram: pvetc Compute potential vorticity, etc -!! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -!! -!! Abstract: This subprogram computes -!! the Montgomery streamfunction -!! hm=cp*t+g*z -!! the specific entropy -!! s=cp*log(t/t0)-r*log(p/p0) -!! the Brunt-Vaisala frequency squared -!! bvf2=g/cp*ds/dz -!! the potential vorticity defined as -!! pvn=(av*ds/dz-dv/dz*ds/dx+du/dz*ds/dy)/rho/cp -!! the potential temperature -!! theta=t0*exp(s/cp) -!! the static stability -!! sigma=t/g*bvf2 -!! and the potential vorticity in PV units -!! pvu=10**-6*theta*pvn -!! -!! Program history log: -!! 1999-10-18 Mark Iredell -!! -!! Usage: call pvetc(km,p,px,py,t,tx,ty,h,u,v,av,s,bvf2,pvn,theta,sigma,pvu) -!! Input argument list: -!! km integer number of levels -!! p real (km) pressure (Pa) -!! px real (km) pressure x-gradient (Pa/m) -!! py real (km) pressure y-gradient (Pa/m) -!! t real (km) (virtual) temperature (K) -!! tx real (km) (virtual) temperature x-gradient (K/m) -!! ty real (km) (virtual) temperature y-gradient (K/m) -!! h real (km) height (m) -!! u real (km) x-component wind (m/s) -!! v real (km) y-component wind (m/s) -!! av real (km) absolute vorticity (1/s) -!! Output argument list: -!! hm real (km) Montgomery streamfunction (m**2/s**2) -!! s real (km) specific entropy (J/K/kg) -!! bvf2 real (km) Brunt-Vaisala frequency squared (1/s**2) -!! pvn real (km) potential vorticity (m**2/kg/s) -!! theta real (km) (virtual) potential temperature (K) -!! sigma real (km) static stability (K/m) -!! pvu real (km) potential vorticity (10**-6*K*m**2/kg/s) -!! -!! Modules used: -!! physcons Physical constants -!! -!! Attributes: -!! Language: Fortran 90 -!! -!! - subroutine pvetc(km,p,px,py,t,tx,ty,h,u,v,av,hm,s,bvf2,pvn,theta,sigma,pvu) +!> pvetc() computes potential vorticity, etc. +!> +!> This subprogram computes +!> computation | equation +!> -----------------|------------ +!> Montgomery streamfunction | hm=cp*t+g*z +!> Specific entropy | s=cp*log(t/t0)-r*log(p/p0) +!> Brunt-Vaisala frequency squared | bvf2=g/cp*ds/dz +!> Potential vorticity | pvn=(av*ds/dz-dv/dz*ds/dx+du/dz*ds/dy)/rho/cp +!> Potential temperature | theta=t0*exp(s/cp) +!> Static stability | sigma=t/g*bvf2 +!> Potential vorticity in PV units | pvu=10**-6*theta*pvn +!> +!> @param[in] km integer number of levels. +!> @param[in] p real (km) pressure (Pa). +!> @param[in] px real (km) pressure x-gradient (Pa/m). +!> @param[in] py real (km) pressure y-gradient (Pa/m). +!> @param[in] t real (km) (virtual) temperature (K). +!> @param[in] tx real (km) (virtual) temperature x-gradient (K/m). +!> @param[in] ty real (km) (virtual) temperature y-gradient (K/m). +!> @param[in] h real (km) height (m). +!> @param[in] u real (km) x-component wind (m/s). +!> @param[in] v real (km) y-component wind (m/s). +!> @param[in] av real (km) absolute vorticity (1/s). +!> @param[out] hm real (km) Montgomery streamfunction (m**2/s**2). +!> @param[out] s real (km) specific entropy (J/K/kg). +!> @param[out] bvf2 real (km) Brunt-Vaisala frequency squared (1/s**2). +!> @param[out] pvn real (km) potential vorticity (m**2/kg/s). +!> @param[out] theta real (km) (virtual) potential temperature (K). +!> @param[out] sigma real (km) static stability (K/m). +!> @param[out] pvu real (km) potential vorticity (10**-6*K*m**2/kg/s). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> +!> @author Mark Iredell np23 @date 1999-10-18 + subroutine pvetc(km,p,px,py,t,tx,ty,h,u,v,av,hm,s,bvf2,pvn,theta,sigma,pvu) use physcons_post, only: con_cp, con_g, con_rd, con_rocp ! @@ -91,46 +77,37 @@ subroutine pvetc(km,p,px,py,t,tx,ty,h,u,v,av,hm,s,bvf2,pvn,theta,sigma,pvu) enddo end subroutine ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - subroutine p2th(km,theta,u,v,h,t,pvu,sigma,rh,omga,kth,th & +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +!> p2th() interpolates to isentropic level. +!> +!> This subprogram interpolates fields to given isentropic levels. +!> The interpolation is linear in entropy. +!> Outside the domain the bitmap is set to false. +!> +!> @param[in] km integer number of levels. +!> @param[in] theta real (km) potential temperature (K). +!> @param[in] u real (km) x-component wind (m/s). +!> @param[in] v real (km) y-component wind (m/s). +!> @param[in] h real (km) height (m). +!> @param[in] t real (km) temperature (K). +!> @param[in] pvu real (km) potential vorticity in PV units (10**-6*K*m**2/kg/s). +!> @param[in] kth integer number of isentropic levels. +!> @param[in] th real (kth) isentropic levels (K). +!> @param[out] lpv logical*1 (kth) bitmap. +!> @param[out] uth real (kth) x-component wind (m/s). +!> @param[out] vth real (kth) y-component wind (m/s). +!> @param[out] hth real (kth) height (m). +!> @param[out] tth real (kth) temperature (K). +!> @param[out] zth real (kth) potential vorticity in PV units (10**-6*K*m**2/kg/s). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> +!> @author Mark Iredell np23 @date 1999-10-18 + subroutine p2th(km,theta,u,v,h,t,pvu,sigma,rh,omga,kth,th & ,lth,uth,vth,hth,tth,zth,sigmath,rhth,oth) -!$$$ Subprogram documentation block -! -! Subprogram: p2th Interpolate to isentropic level -! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -! -! Abstract: This subprogram interpolates fields to given isentropic levels. -! The interpolation is linear in entropy. -! Outside the domain the bitmap is set to false. -! -! Program history log: -! 1999-10-18 Mark Iredell -! -! Usage: call p2th(km,theta,u,v,h,t,puv,kth,th,uth,vth,tth) -! Input argument list: -! km integer number of levels -! theta real (km) potential temperature (K) -! u real (km) x-component wind (m/s) -! v real (km) y-component wind (m/s) -! h real (km) height (m) -! t real (km) temperature (K) -! pvu real (km) potential vorticity in PV units (10**-6*K*m**2/kg/s) -! kth integer number of isentropic levels -! th real (kth) isentropic levels (K) -! Output argument list: -! lpv logical*1 (kth) bitmap -! uth real (kth) x-component wind (m/s) -! vth real (kth) y-component wind (m/s) -! hth real (kth) height (m) -! tth real (kth) temperature (K) -! zth real (kth) potential vorticity in PV units (10**-6*K*m**2/kg/s) -! -! Subprograms called: -! rsearch1 search for a surrounding real interval -! -! Attributes: -! Language: Fortran 90 -! -!$$$ implicit none integer,intent(in):: km,kth real,intent(in),dimension(km):: theta,u,v,h,t,pvu,sigma,rh,omga @@ -161,55 +138,42 @@ subroutine p2th(km,theta,u,v,h,t,pvu,sigma,rh,omga,kth,th & enddo end subroutine ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - subroutine p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,& +!> p2pv() interpolates to potential vorticity level. +!> +!> This subprogram interpolates fields to given potential vorticity +!> levels within given pressure limits. +!> The output level is the first encountered from the top pressure limit. +!> If the given potential vorticity level is not found, the outputs are zero +!> and the bitmap is false. The interpolation is linear in potential vorticity. +!> +!> @param[in] km integer number of levels. +!> @param[in] pvu real (km) potential vorticity in PV units (10**-6*K*m**2/kg/s). +!> @param[in] h real (km) height (m). +!> @param[in] t real (km) temperature (K). +!> @param[in] p real (km) pressure (Pa). +!> @param[in] u real (km) x-component wind (m/s). +!> @param[in] v real (km) y-component wind (m/s). +!> @param[in] kpv integer number of potential vorticity levels. +!> @param[in] pv real (kpv) potential vorticity levels (10**-6*K*m**2/kg/s). +!> @param[in] pvpt real (kpv) top pressures for PV search (Pa). +!> @param[in] pvpb real (kpv) bottom pressures for PV search (Pa). +!> @param[out] lpv logical*1 (kpv) bitmap. +!> @param[out] upv real (kpv) x-component wind (m/s). +!> @param[out] vpv real (kpv) y-component wind (m/s). +!> @param[out] hpv real (kpv) temperature (K). +!> @param[out] tpv real (kpv) temperature (K). +!> @param[out] ppv real (kpv) pressure (Pa). +!> @param[out] spv real (kpv) wind speed shear (1/s). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> 2021-08-31 | Hui-ya Chuang | Increase depth criteria for identifying PV layer from 25 to 50 to avoid finding shallow high level PV layer in high latitudes +!> +!> @author Mark Iredell np23 @date 1999-10-18 + subroutine p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,& lpv,upv,vpv,hpv,tpv,ppv,spv) -!$$$ Subprogram documentation block -! -! Subprogram: p2pv Interpolate to potential vorticity level -! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -! -! Abstract: This subprogram interpolates fields to given potential vorticity -! levels within given pressure limits. -! The output level is the first encountered from the top pressure limit. -! If the given potential vorticity level is not found, the outputs are zero -! and the bitmap is false. The interpolation is linear in potential vorticity. -! -! Program history log: -! 1999-10-18 Mark Iredell -! 2021-08-31 Hui-ya Chuang Increase depth criteria for identifying PV layer -! from 25 to 50 to avoid finding shallow high level -! PV layer in high latitudes -! -! Usage: call p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,& -! lpv,upv,vpv,hpv,tpv,ppv,spv) -! Input argument list: -! km integer number of levels -! pvu real (km) potential vorticity in PV units (10**-6*K*m**2/kg/s) -! h real (km) height (m) -! t real (km) temperature (K) -! p real (km) pressure (Pa) -! u real (km) x-component wind (m/s) -! v real (km) y-component wind (m/s) -! kpv integer number of potential vorticity levels -! pv real (kpv) potential vorticity levels (10**-6*K*m**2/kg/s) -! pvpt real (kpv) top pressures for PV search (Pa) -! pvpb real (kpv) bottom pressures for PV search (Pa) -! Output argument list: -! lpv logical*1 (kpv) bitmap -! upv real (kpv) x-component wind (m/s) -! vpv real (kpv) y-component wind (m/s) -! hpv real (kpv) temperature (K) -! tpv real (kpv) temperature (K) -! ppv real (kpv) pressure (Pa) -! spv real (kpv) wind speed shear (1/s) -! -! Subprograms called: -! rsearch1 search for a surrounding real interval -! -! Attributes: -! Language: Fortran 90 -! -!$$$ use physcons_post, only: con_rog implicit none integer,intent(in):: km,kpv @@ -276,58 +240,33 @@ subroutine p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,& !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- -subroutine rsearch1(km1,z1,km2,z2,l2) -!$$$ subprogram documentation block -! -! subprogram: rsearch1 search for a surrounding real interval -! prgmmr: iredell org: w/nmc23 date: 98-05-01 -! -! abstract: this subprogram searches a monotonic sequences of real numbers -! for intervals that surround a given search set of real numbers. -! the sequences may be monotonic in either direction; the real numbers -! may be single or double precision. -! -! program history log: -! 1999-01-05 mark iredell -! -! usage: call rsearch1(km1,z1,km2,z2,l2) -! input argument list: -! km1 integer number of points in the sequence -! z1 real (km1) sequence values to search -! (z1 must be monotonic in either direction) -! km2 integer number of points to search for -! z2 real (km2) set of values to search for -! (z2 need not be monotonic) -! -! output argument list: -! l2 integer (km2) interval locations from 0 to km1 -! (z2 will be between z1(l2) and z1(l2+1)) -! -! subprograms called: -! sbsrch essl binary search -! dbsrch essl binary search -! -! remarks: -! returned values of 0 or km1 indicate that the given search value -! is outside the range of the sequence. -! -! if a search value is identical to one of the sequence values -! then the location returned points to the identical value. -! if the sequence is not strictly monotonic and a search value is -! identical to more than one of the sequence values, then the -! location returned may point to any of the identical values. -! -! if l2(k)=0, then z2(k) is less than the start point z1(1) -! for ascending sequences (or greater than for descending sequences). -! if l2(k)=km1, then z2(k) is greater than or equal to the end point -! z1(km1) for ascending sequences (or less than or equal to for -! descending sequences). otherwise z2(k) is between the values -! z1(l2(k)) and z1(l2(k+1)) and may equal the former. -! -! attributes: -! language: fortran -! -!$$$ +!> rsearch1() searches for a surrounding real interval. +!> +!> This subprogram searches a monotonic sequences of real numbers +!> for intervals that surround a given search set of real numbers. +!> the sequences may be monotonic in either direction; the real numbers +!> may be single or double precision. +!> +!> @param[in] km1 integer number of points in the sequence. +!> @param[in] z1 real (km1) sequence values to search. (z1 must be monotonic in either direction) +!> @param[in] km2 integer number of points to search for. +!> @param[in] z2 real (km2) set of values to search for. (z2 need not be monotonic) +!> @param[out] l2 integer (km2) interval locations from 0 to km1. (z2 will be between z1(l2) and z1(l2+1)) +!> +!> @note +!> * Returned values of 0 or km1 indicate that the given search value is outside the range of the sequence. +!> * If a search value is identical to one of the sequence values then the location returned points to the identical value. +!> * If the sequence is not strictly monotonic and a search value is identical to more than one of the sequence values, then the location returned may point to any of the identical values. +!> * If l2(k)=0, then z2(k) is less than the start point z1(1) for ascending sequences (or greater than for descending sequences). +!> * If l2(k)=km1, then z2(k) is greater than or equal to the end point z1(km1) for ascending sequences (or less than or equal to for descending sequences). Otherwise z2(k) is between the values z1(l2(k)) and z1(l2(k+1)) and may equal the former. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1998-05-01 | Mark Iredell | Initial +!> +!> @author Mark Iredell w/nmc23 @date 1998-05-01 + subroutine rsearch1(km1,z1,km2,z2,l2) implicit none integer,intent(in):: km1,km2 real,intent(in):: z1(km1),z2(km2) @@ -371,51 +310,38 @@ subroutine rsearch1(km1,z1,km2,z2,l2) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - end subroutine ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - subroutine tpause(km,p,u,v,t,h,ptp,utp,vtp,ttp,htp,shrtp) -!$$$ Subprogram documentation block -! -! Subprogram: tpause Compute tropopause level fields -! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -! -! Abstract: This subprogram finds the tropopause level and computes fields -! at the tropopause level. The tropopause is defined as the lowest level -! above 500 mb which has a temperature lapse rate of less than 2 K/km. -! The lapse rate must average less than 2 K/km over a 2 km depth. -! If no such level is found below 50 mb, the tropopause is set to 50 mb. -! The tropopause fields are interpolated linearly in lapse rate. -! The tropopause pressure is found hydrostatically. -! The tropopause wind shear is computed as the partial derivative -! of wind speed with respect to height at the tropopause level. -! -! Program history log: -! 1999-10-18 Mark Iredell -! -! Usage: call tpause(km,p,u,v,t,h,ptp,utp,vtp,ttp,htp,shrtp) -! Input argument list: -! km integer number of levels -! p real (km) pressure (Pa) -! u real (km) x-component wind (m/s) -! v real (km) y-component wind (m/s) -! t real (km) temperature (K) -! h real (km) height (m) -! Output argument list: -! ptp real tropopause pressure (Pa) -! utp real tropopause x-component wind (m/s) -! vtp real tropopause y-component wind (m/s) -! ttp real tropopause temperature (K) -! htp real tropopause height (m) -! shrtp real tropopause wind shear (1/s) -! -! Files included: -! physcons.h Physical constants -! -! Subprograms called: -! rsearch1 search for a surrounding real interval -! -! Attributes: -! Language: Fortran 90 -! -!$$$ +!> tpause() computes tropopause level fields. +!> +!> This subprogram finds the tropopause level and computes fields +!> at the tropopause level. The tropopause is defined as the lowest level +!> above 500 mb which has a temperature lapse rate of less than 2 K/km. +!> The lapse rate must average less than 2 K/km over a 2 km depth. +!> If no such level is found below 50 mb, the tropopause is set to 50 mb. +!> The tropopause fields are interpolated linearly in lapse rate. +!> The tropopause pressure is found hydrostatically. +!> The tropopause wind shear is computed as the partial derivative +!> of wind speed with respect to height at the tropopause level. +!> +!> @param[in] km integer number of levels. +!> @param[in] p real (km) pressure (Pa). +!> @param[in] u real (km) x-component wind (m/s). +!> @param[in] v real (km) y-component wind (m/s). +!> @param[in] t real (km) temperature (K). +!> @param[in] h real (km) height (m). +!> @param[out] ptp real tropopause pressure (Pa). +!> @param[out] utp real tropopause x-component wind (m/s). +!> @param[out] vtp real tropopause y-component wind (m/s). +!> @param[out] ttp real tropopause temperature (K). +!> @param[out] htp real tropopause height (m). +!> @param[out] shrtp real tropopause wind shear (1/s). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> +!> @author Mark Iredell np23 @date 1999-10-18 + subroutine tpause(km,p,u,v,t,h,ptp,utp,vtp,ttp,htp,shrtp) use physcons_post, only: con_rog implicit none integer,intent(in):: km @@ -473,49 +399,36 @@ subroutine tpause(km,p,u,v,t,h,ptp,utp,vtp,ttp,htp,shrtp) shrtp=(spdu-spdd)/(h(ktp)-h(ktp+1)) end subroutine ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - subroutine mxwind(km,p,u,v,t,h,pmw,umw,vmw,tmw,hmw) -!$$$ Subprogram documentation block -! -! Subprogram: mxwind Compute maximum wind level fields -! Prgmmr: Iredell Org: np23 Date: 1999-10-18 -! -! Abstract: This subprogram finds the maximum wind level and computes fields -! at the maximum wind level. The maximum wind level is searched for -! between 500 mb and 100 mb. The height and wind speed at the maximum wind -! speed level is calculated by assuming the wind speed varies quadratically -! in height in the neighborhood of the maximum wind level. The other fields -! are interpolated linearly in height to the maximum wind level. -! The maximum wind level pressure is found hydrostatically. -! -! Program history log: -! 1999-10-18 Mark Iredell -! 2005-02-02 Mark Iredell changed upper limit to 100 mb -! -! Usage: call mxwind(km,p,u,v,t,h,pmw,umw,vmw,tmw,hmw) -! Input argument list: -! km integer number of levels -! p real (km) pressure (Pa) -! u real (km) x-component wind (m/s) -! v real (km) y-component wind (m/s) -! t real (km) temperature (K) -! h real (km) height (m) -! Output argument list: -! pmw real maximum wind level pressure (Pa) -! umw real maximum wind level x-component wind (m/s) -! vmw real maximum wind level y-component wind (m/s) -! tmw real maximum wind level temperature (K) -! hmw real maximum wind level height (m) -! -! Files included: -! physcons.h Physical constants -! -! Subprograms called: -! rsearch1 search for a surrounding real interval -! -! Attributes: -! Language: Fortran 90 -! -!$$$ +!> mxwind() computes maximum wind level fields. +!> +!> This subprogram finds the maximum wind level and computes fields +!> at the maximum wind level. The maximum wind level is searched for +!> between 500 mb and 100 mb. The height and wind speed at the maximum wind +!> speed level is calculated by assuming the wind speed varies quadratically +!> in height in the neighborhood of the maximum wind level. The other fields +!> are interpolated linearly in height to the maximum wind level. +!> The maximum wind level pressure is found hydrostatically. +!> +!> @param[in] km integer number of levels. +!> @param[in] p real (km) pressure (Pa). +!> @param[in] u real (km) x-component wind (m/s). +!> @param[in] v real (km) y-component wind (m/s). +!> @param[in] t real (km) temperature (K). +!> @param[in] h real (km) height (m). +!> @param[out] pmw real maximum wind level pressure (Pa). +!> @param[out] umw real maximum wind level x-component wind (m/s). +!> @param[out] vmw real maximum wind level y-component wind (m/s). +!> @param[out] tmw maximum wind level temperature (K). +!> @param[out] hmw real maximum wind level height (m). +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-10-18 | Mark Iredell | Initial +!> 2005-02-02 | Mark Iredell | Changed upper limit to 100 mb +!> +!> @author Mark Iredell np23 @date 1999-10-18 + subroutine mxwind(km,p,u,v,t,h,pmw,umw,vmw,tmw,hmw) use physcons_post, only: con_rog implicit none integer,intent(in):: km @@ -576,40 +489,34 @@ subroutine mxwind(km,p,u,v,t,h,pmw,umw,vmw,tmw,hmw) tmw=t(kmw)-wmw*(t(kmw)-t(kmw+1)) pmw=p(kmw)*exp((h(kmw)-hmw)*(1-0.5*(tmw/t(kmw)-1))/(con_rog*t(kmw))) end subroutine - -subroutine mptgen(mpirank,mpisize,nd,jt1,jt2,j1,j2,jx,jm,jn) -!$$$ Subprogram documentation block -! -! Subprogram: mptgen Generate grid decomposition dimensions -! Prgmmr: Iredell Org: W/NP23 Date: 1999-02-12 -! -! Abstract: This subprogram decomposes total dimensions of a problem -! into smaller domains to be managed on a distributed memory system. -! The last dimension given is decomposed first. If more decompositions -! are possible, the next to last dimension is decomposed next, and so on. -! The transpositions between decompositions should be done by mptran*. -! -! Program history log: -! 1999-02-12 Mark Iredell -! -! Usage: call mptgen(mpirank,mpisize,nd,jt1,jt2,j1,j2,jx,jm,jn) -! Input argument list: -! mpirank integer(kint_mpi) rank of the process (from mpi_comm_rank) -! mpisize integer(kint_mpi) size of the process (from mpi_comm_size) -! nd integer(kint_mpi) number of dimensions to decompose -! jt1 integer(kint_mpi) (nd) lower bounds of total dimensions -! jt2 integer(kint_mpi) (nd) upper bounds of total dimensions -! Output argument list: -! j1 integer(kint_mpi) (nd) lower bounds of local decompositions -! j2 integer(kint_mpi) (nd) upper bounds of local decompositions -! jx integer(kint_mpi) (nd) local size of decompositions -! jm integer(kint_mpi) (nd) maximum size of decompositions -! jn integer(kint_mpi) (nd) number of decompositions -! -! Attributes: -! Language: Fortran 90 -! -!$$$ + +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +!> mptgen() generates grid decomposition dimensions. +!> +!> This subprogram decomposes total dimensions of a problem +!> into smaller domains to be managed on a distributed memory system. +!> The last dimension given is decomposed first. If more decompositions +!> are possible, the next to last dimension is decomposed next, and so on. +!> The transpositions between decompositions should be done by mptran*. +!> +!> @param[in] mpirank integer(kint_mpi) rank of the process (from mpi_comm_rank). +!> @param[in] mpisize integer(kint_mpi) size of the process (from mpi_comm_size). +!> @param[in] nd integer(kint_mpi) number of dimensions to decompose. +!> @param[in] jt1 integer(kint_mpi) (nd) lower bounds of total dimensions. +!> @param[in] jt2 integer(kint_mpi) (nd) upper bounds of total dimensions. +!> @param[out] j1 integer(kint_mpi) (nd) lower bounds of local decompositions. +!> @param[out] j2 integer(kint_mpi) (nd) upper bounds of local decompositions. +!> @param[out] jx integer(kint_mpi) (nd) local size of decompositions. +!> @param[out] jm integer(kint_mpi) (nd) maximum size of decompositions. +!> @param[out] jn integer(kint_mpi) (nd) number of decompositions. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-02-12 | Mark Iredell | Initial +!> +!> @author Mark Iredell np23 @date 1999-02-12 + subroutine mptgen(mpirank,mpisize,nd,jt1,jt2,j1,j2,jx,jm,jn) use machine_post,only:kint_mpi implicit none integer(kint_mpi),intent(in):: mpirank,mpisize,nd,jt1(nd),jt2(nd) @@ -642,91 +549,77 @@ subroutine mptgen(mpirank,mpisize,nd,jt1,jt2,j1,j2,jx,jm,jn) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - end subroutine !------------------------------------------------------------------------------- -subroutine mptranr4(mpicomm,mpisize,im,ida,idb,& - jm,jma,jmb,jda,km,kma,kmb,kdb,a,b,ta,tb) -!$$$ Subprogram documentation block -! -! Subprogram: mptranr4 Transpose grid decompositions -! Prgmmr: Iredell Org: W/NP23 Date: 1999-02-12 -! -! Abstract: This subprogram transposes an array of data from one -! grid decomposition to another by using message passing. -! The grid decompositions should be generated by mptgen. -! -! Program history log: -! 1999-02-12 Mark Iredell -! -! Usage: call mptranr4(mpicomm,mpisize,im,ida,idb,& -! jm,jma,jmb,jda,km,kma,kmb,kdb,a,b) -! Input argument list: -! mpicomm integer(kint_mpi) mpi communicator -! mpisize integer(kint_mpi) size of the process (from mpi_comm_size) -! im integer(kint_mpi) undecomposed range -! ida integer(kint_mpi) undecomposed input dimension -! idb integer(kint_mpi) undecomposed output dimension -! jm integer(kint_mpi) output grid decomposition size -! jma integer(kint_mpi) input grid undecomposed range -! jmb integer(kint_mpi) output grid decomposed range -! jda integer(kint_mpi) input grid undecomposed dimension -! km integer(kint_mpi) input grid decomposition size -! kma integer(kint_mpi) input grid decomposed range -! kmb integer(kint_mpi) output grid undecomposed range -! kdb integer(kint_mpi) output grid undecomposed dimension -! a real(4) (ida,jda,kma) input array -! Output argument list: -! b real(4) (idb,kdb,jmb) output array -! ta,tb real(4) (im,jm,km,mpisize) work arrays -! -! Subprograms called: -! mpi_alltoall mpi exchange of data between every process pair -! -! Remarks: -! While this routine serves a wide variety of scalable transpose functions -! for multidimensional grids, -! (a) it does not work with nonrectanguloid grids; -! (b) it does not do any load balancing; -! (c) it does not do any communication hiding. -! -! This subprogram must be used rather than mpi_alltoall -! in any of the following cases: -! (a) The undecomposed range is less than the respective dimension -! (either im1 or jm>1) -! (c) The decomposed range is ever zero -! (either kma==0 or jmb==0 for any process) -! (d) The output grid range is not the full extent -! (either kmb mptranr4() transposes grid decompositions. +!> +!> This subprogram transposes an array of data from one +!> grid decomposition to another by using message passing. +!> The grid decompositions should be generated by mptgen. +!> +!> @param[in] mpicomm integer(kint_mpi) mpi communicator. +!> @param[in] mpisize integer(kint_mpi) size of the process (from mpi_comm_size). +!> @param[in] im integer(kint_mpi) undecomposed range. +!> @param[in] ida integer(kint_mpi) undecomposed input dimension. +!> @param[in] idb integer(kint_mpi) undecomposed output dimension. +!> @param[in] jm integer(kint_mpi) output grid decomposition size. +!> @param[in] jma integer(kint_mpi) input grid undecomposed range. +!> @param[in] jmb integer(kint_mpi) output grid decomposed range. +!> @param[in] jda integer(kint_mpi) input grid undecomposed dimension. +!> @param[in] km integer(kint_mpi) input grid decomposition size. +!> @param[in] kma integer(kint_mpi) input grid decomposed range. +!> @param[in] kmb integer(kint_mpi) output grid undecomposed range. +!> @param[in] kdb integer(kint_mpi) output grid undecomposed dimension. +!> @param[in] a real(4) (ida,jda,kma) input array. +!> @param[out] b real(4) (idb,kdb,jmb) output array. +!> @param[out] ta,tb real(4) (im,jm,km,mpisize) work arrays. +!> +!> @note +!> While this routine serves a wide variety of scalable transpose functions for multidimensional grids, +!> * It does not work with nonrectanguloid grids; +!> * It does not do any load balancing; +!> * It does not do any communication hiding. +!> +!> This subprogram must be used rather than mpi_alltoall in any of the following cases: +!> +!> * The undecomposed range is less than the respective dimension (either im * The decomposition size is greater than one (either km>1 or jm>1) +!> * The decomposed range is ever zero (either kma==0 or jmb==0 for any process) +!> * The output grid range is not the full extent (either kmb +!> If none of these conditions apply, mpi_alltoall could be used directly rather than this subprogram and would be more efficient. +!> @note +!> Example 1. Transpose a 1000 x 10000 matrix. +!> 
+!>  include 'mpif.h'                                     ! use mpi
+!>  parameter(jt=1000,kt=10000)                          ! set problem size
+!>  real,allocatable:: a(:,:),b(:,:)                     ! declare arrays
+!>  call mpi_init(ierr)                                  ! initialize mpi
+!>  call mpi_comm_rank(MPI_COMM_WORLD,mpirank,ierr)      ! get mpi rank
+!>  call mpi_comm_size(MPI_COMM_WORLD,mpisize,ierr)      ! get mpi size
+!>  call mptgen(mpirank,mpisize,1,1,jt,j1,j2,jx,jm,jn)   ! decompose output
+!>  call mptgen(mpirank,mpisize,1,1,kt,k1,k2,kx,km,kn)   ! decompose input
+!>  allocate(a(jt,k1:k2),b(kt,j1:j2))                    ! allocate arrays
+!>  a=reshape((/((j+k,j=1,jt),k=k1,k2)/),(/jt,k2-k1+1/)) ! initialize input
+!>  call mptranr4(MPI_COMM_WORLD,mpisize,1,1,1,          ! transpose arrays
+!>  &              jm,jt,j2-j1+1,jt,km,k2-k1+1,kt,kt,a,b)
+!>  print '(2i8,f16.1)',((k,j,b(k,j),k=2000,kt,2000),    ! print some values
+!>  &                    j=((j1-1)/200+1)*200,j2,200)
+!>  call mpi_finalize(ierr)                              ! finalize mpi
+!>  end
+!>
+!> This transpose took 0.6 seconds on 4 2-way winterhawk nodes. +!> @note +!> A 20000x10000 transpose took 3.4 seconds on 16 2-way winterhawk nodes. +!> @note +!> Thus a transpose may take about 1 second for every 16 Mb per node. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1999-02-12 | Mark Iredell | Initial +!> +!> @author Mark Iredell np23 @date 1999-02-12 + subroutine mptranr4(mpicomm,mpisize,im,ida,idb,& + jm,jma,jmb,jda,km,kma,kmb,kdb,a,b,ta,tb) use machine_post,only:kint_mpi implicit none include 'mpif.h' From 79b1dd4816dde3d476dd732d5761dc5fac59cbec Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Tue, 26 Apr 2022 16:11:05 -0600 Subject: [PATCH 054/107] Doxygen in INITPOST.F, INITPOST_GFS_NEMS_MPIIO, INITPOST_NEMS.f and INITPOST_NETCDF.f. (#473) * This is part of Issue #392. Fixes the doxygen warnings in INITPOST.F, INITPOST_GFS_NEMS_MPIIO, INITPOST_NEMS.f and INITPOST_NETCDF.f. * Minor fix. * Minor fix. * Further refinement from Ed's comments. * Minor bug fix. --- sorc/ncep_post.fd/INITPOST.F | 64 ++++++------------ sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 74 ++++++++------------- sorc/ncep_post.fd/INITPOST_NEMS.f | 53 +++++---------- sorc/ncep_post.fd/INITPOST_NETCDF.f | 56 +++++----------- 4 files changed, 85 insertions(+), 162 deletions(-) diff --git a/sorc/ncep_post.fd/INITPOST.F b/sorc/ncep_post.fd/INITPOST.F index 87cd31af5..5e74564ab 100644 --- a/sorc/ncep_post.fd/INITPOST.F +++ b/sorc/ncep_post.fd/INITPOST.F @@ -1,46 +1,26 @@ !> @file -! -!> SUBPROGRAM: INITPOST INITIALIZE POST FOR RUN -!! PRGRMMR: RUSS TREADON ORG: W/NP2 DATE: 93-11-10 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF AN ETA MODEL OR POST -!! PROCESSOR RUN. -!! -!! THIS ROUTINE ASSUMES THAT INTEGERS AND REALS ARE THE SAME SIZE -!! -!! PROGRAM HISTORY LOG: -!! 93-11-10 RUSS TREADON - ADDED DOCBLOC -!! 98-05-29 BLACK - CONVERSION OF POST CODE FROM 1-D TO 2-D -!! 99-01 20 TUCCILLO - MPI VERSION -!! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT -!! 02-06-19 MIKE BALDWIN - WRF VERSION -!! 02-08-15 H CHUANG - UNIT CORRECTION AND GENERALIZE PROJECTION OPTIONS -!! 21-03-11 Bo Cui - change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INIT -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief initpost() initializes post for run. +!> +!> @author Russ Treadon W/NP2 @date 1993-11-10 + +!> This routine initializes constants and +!> variables at the start of an ETA model or post +!> processor run. +!> +!> This routine assumes that integers and reals are the same size. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-11-10 | Russ Treadon | Initial. Added DOCBLOC +!> 1998-05-29 | T Black | Conversion from 1-D to 2-D +!> 1999-01-20 | Jim Tuccillo | MPI Version +!> 2001-10-25 | H CHuang | Modified to process hybrid model output +!> 2002-06-19 | Mike Baldwin | WRF Version +!> 2002-08-15 | H CHuang | Unit correction and generalize projection options +!> 2021-03-11 | Bo Cui | Change local arrays to dimension (im,jsta:jend) +!> +!> @author Russ Treadon W/NP2 @date 1993-11-10 SUBROUTINE INITPOST use vrbls4d, only: dust, smoke diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index 4714cfc3d..0d9b4da88 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f @@ -1,51 +1,31 @@ !> @file -! . . . -!> SUBPROGRAM: INITPOST_GFS_NEMS_MPIIO INITIALIZE POST FOR RUN -!! PRGRMMR: Hui-Ya Chuang DATE: 2016-03-04 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF GFS MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 2011-02-07 Jun Wang add grib2 option -!! 2011-12-14 Sarah Lu add aer option -!! 2012-01-07 Sarah Lu compute air density -!! 2012-12-22 Sarah Lu add aerosol zerout option -!! 2015-03-16 S. Moorthi adding gocart_on option -!! 2015-03-18 S. Moorthi Optimization including threading -!! 2015-08-17 S. Moorthi Add TKE for NEMS/GSM -!! 2016-03-04 H CHUANG Add MPI IO option to read GFS nems output -!! 2016-05-16 S. KAR Add computation of omega -!! 2016-07-21 S. Moorthi Convert input upper air data from reduced to full grid -!! and reduce memory in divergence calculatiom -!! 2016-07-21 Jun Wang change averaged field name with suffix -!! 2019-07-24 Li(Kate) Zhang - Merge and update NGAC UPP into FV3-Chem -!! 2021-03-11 Bo Cui change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INIT -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief initpost_gfs_nems_mpiio() initializes post for run. +!> +!> @author Hui-Ya Chuang @date 2007-03-04 + +!> This routine initializes constants and +!> variables at the start of GFS model or post +!> processor run. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2007-03-04 | Hui-Ya Chuang | Initial +!> 2011-02-07 | Jun Wang | Add grib2 option +!> 2011-12-14 | Sarah Lu | Add aer option +!> 2012-01-07 | Sarah Lu | Compute air density +!> 2012-12-22 | Sarah Lu | Add aerosol zerout option +!> 2015-03-16 | S. Moorthi | Adding gocart_on option +!> 2015-03-18 | S. Moorthi | Optimization including threading +!> 2015-08-17 | S. Moorthi | Add TKE for NEMS/GSM +!> 2016-03-04 | H Chuang | Add MPI IO option to read GFS nems output +!> 2016-05-16 | S. Kar | Add computation of omega +!> 2016-07-21 | S. Moorthi | Convert input upper air data from reduced to full grid and reduce memory in divergence calculatiom +!> 2016-07-21 | Jun Wang | Change averaged field name with suffix +!> 2019-07-24 | Li(Kate) Zhang | Merge and update NGAC UPP into FV3-Chem +!> 2021-03-11 | Bo Cui | Change local arrays to dimension (im,jsta:jend) +!> +!> @author Hui-Ya Chuang @date 2007-03-04 SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) diff --git a/sorc/ncep_post.fd/INITPOST_NEMS.f b/sorc/ncep_post.fd/INITPOST_NEMS.f index 39459701f..a88dfa3d6 100644 --- a/sorc/ncep_post.fd/INITPOST_NEMS.f +++ b/sorc/ncep_post.fd/INITPOST_NEMS.f @@ -1,39 +1,22 @@ !> @file -! . . . -!> SUBPROGRAM: INITPOST INITIALIZE POST FOR RUN -!! PRGRMMR: Hui-Ya Chuang DATE: 2008-03-26 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF AN NEMS MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 21-03-11 Bo Cui - change local arrays to dimension (im,jsta:jend) -!! -!! USAGE: CALL INITPOST_NEMS -!! INPUT ARGUMENT LIST: -!! NREC -!! NFILE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief initpost_nems() initializes post for run. +!> +!> @author Hui-Ya Chuang @date 2007-03-26 + +!> This routine initializes constants and +!> variables at the start of an NEMS model or post +!> processor run. +!> +!> @param[in] NREC. +!> @param[in] NFILE. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2007-03-01 | Hui-Ya Chuang | Initial +!> 2021-03-11 | Bo Cui | Change local arrays to dimension (im,jsta:jend) +!> +!> @author Hui-Ya Chuang @date 2007-03-26 SUBROUTINE INITPOST_NEMS(NREC,nfile) use vrbls3d, only: t, q, uh, vh, q2, cwm, f_ice, f_rain, f_rimef, cfr, pint,& diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index f6739999d..c7a7a2a3a 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -1,42 +1,22 @@ !> @file -! . . . -!> SUBPROGRAM: INITPOST_NETCDF INITIALIZE POST FOR RUN -!! PRGRMMR: Hui-Ya Chuang DATE: 2016-03-04 -!! -!! ABSTRACT: THIS ROUTINE INITIALIZES CONSTANTS AND -!! VARIABLES AT THE START OF GFS MODEL OR POST -!! PROCESSOR RUN. -!! -!! REVISION HISTORY -!! 2017-08-11 H Chuang start from INITPOST_GFS_NEMS_MPIIO.f -!! 2021-03-11 Bo Cui change local arrays to dimension (im,jsta:jend) -!! 2022-02-07 Wen Meng Changes for parallel netcdf read. -!! 2022-03-15 Wen Meng Unify regional and global interfaces. -!! 2022-03-22 Wen Meng Read PWAT from model. -!! -!! USAGE: CALL INITPOST_NETCDF -!! INPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT ARGUMENT LIST: -!! NONE -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! COMMON - CTLBLK -!! LOOKUP -!! SOILDEPTH -!! -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN -!! MACHINE : CRAY C-90 -!! +!> @brief initpost_netcdf() initializes post for run. +!> +!> @author Hui-Ya Chuang @date 2016-03-04 + +!> This routine initializes constants and +!> variables at the start of GFS model or post +!> processor run. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2007-03-01 | Hui-Ya Chuang | Initial. Start from INITPOST_GFS_NEMS_MPIIO.f +!> 2021-03-11 | Bo Cui | Change local arrays to dimension (im,jsta:jend) +!> 2022-02-07 | Wen Meng | Changes for parallel netcdf read +!> 2022-03-15 | Wen Meng | Unify regional and global interfaces +!> 2022-03-22 | Wen Meng | Read PWAT from model +!> +!> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) From 5f60e60fc84ec02e2f8b293e3b22cc1be8634373 Mon Sep 17 00:00:00 2001 From: kayeekayee Date: Wed, 27 Apr 2022 08:03:15 -0600 Subject: [PATCH 055/107] This is part of Issue #392. (#487) Fixes the doxygen warnings in BOUND.f. --- sorc/ncep_post.fd/BOUND.f | 65 +++++++++++++++------------------------ 1 file changed, 25 insertions(+), 40 deletions(-) diff --git a/sorc/ncep_post.fd/BOUND.f b/sorc/ncep_post.fd/BOUND.f index dc439336d..96c397f0c 100644 --- a/sorc/ncep_post.fd/BOUND.f +++ b/sorc/ncep_post.fd/BOUND.f @@ -1,45 +1,30 @@ !> @file -! +!> @brief bound() clips data in passed array. +!> +!> @author Russ Treadon W/NP2 @date 1993-01-18 + +!> This routine bounds data in the passed array +!> FLD (im x jm elements long) and clips data values such +!> that on exiting the routine +!> @code +!> FMIN <= FLD(I,J) <= FMAX +!> @endcode +!> for all points. +!> +!> @param[in] FMIN Lower (inclusive) bound for data. +!> @param[in] FMAX Upper (inclusive) bound for data. +!> @param[out] FLD Array whose elements are bounded by [FMIN,FMAX]. +!> +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-01-18 | Russ Treadon | Initial +!> 1993-05-07 | Russ Treadon | Added DOCBLOC +!> 1998-05-29 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-04-24 | Mike Baldwin | WRF Version !> -!! . . . -!! SUBPROGRAM: BOUND CLIPS DATA IN PASSED ARRAY -!! PRGRMMR: TREADON ORG: W/NP2 DATE: 93-01-18 -!! -!! ABSTRACT: THIS ROUTINE BOUNDS DATA IN THE PASSED ARRAY -!! FLD (IMxJM ELEMENTS LONG) AND CLIPS DATA VALUES SUCH -!! THAT ON EXITING THE ROUTINE -!! FMIN <= FLD(I,J) <= FMAX -!! FOR ALL POINTS. -!! -!! -!! PROGRAM HISTORY LOG: -!! 93-01-18 RUSS TREADON -!! 93-05-07 RUSS TREADON - ADDED DOCBLOC -!! 98-05-29 BLACK - CONVERSION FROM 1-D TO 2-D -!! 00-01-04 JIM TUCCILLO - MPI VERSION -!! 02-04-24 MIKE BALDWIN - WRF VERSION -!! -!! USAGE: CALL bound(fld,fmin,fmax) -!! INPUT ARGUMENT LIST: -!! FMIN - LOWER (INCLUSIVE) BOUND FOR DATA. -!! FMAX - UPPER (INCLUSIVE) BOUND FOR DATA. -!! -!! OUTPUT ARGUMENT LIST: -!! FLD - ARRAY WHOSE ELEMENTS ARE BOUNDED BY [FMIN,FMAX]. -!! -!! OUTPUT FILES: -!! NONE -!! -!! SUBPROGRAMS CALLED: -!! UTILITIES: -!! NONE -!! LIBRARY: -!! NONE -!! -!! ATTRIBUTES: -!! LANGUAGE: FORTRAN 90 -!! MACHINE : CRAY C-90 -!! +!> @author Russ Treadon W/NP2 @date 1993-01-18 SUBROUTINE BOUND(FLD,FMIN,FMAX) ! From 44edaf77fdb325a54bf276b53e2b1298df03c420 Mon Sep 17 00:00:00 2001 From: lipan-NOAA Date: Wed, 4 May 2022 09:46:43 -0400 Subject: [PATCH 056/107] fix a bug in AOD calculation (#489) * fixed a bug in AOD calculation * add mie aod and surface dust pm10 * remove enddo in line 5211 in CLDRAD.f * parm updates for dust pm10 --- parm/post_avblflds.xml | 7 +- parm/postcntrl_gefs_chem.xml | 6 + sorc/ncep_post.fd/ALLOCATE_ALL.f | 4 + sorc/ncep_post.fd/CALPW.f | 6 +- sorc/ncep_post.fd/CLDRAD.f | 56 +++++++- sorc/ncep_post.fd/DEALLOCATE.f | 2 + sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 142 +++++++++----------- sorc/ncep_post.fd/MPI_FIRST.f | 2 +- sorc/ncep_post.fd/VRBLS2D_mod.f | 2 +- 9 files changed, 139 insertions(+), 88 deletions(-) diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index ff6a16031..815183a6f 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -6219,16 +6219,17 @@ 685 - DU_CR_AER_SFC_MASS_CON + DUST10_SFC_MASS_CON AVE tmpl4_48 - MASSDEN + PMTC + surface dust_dry smaller_than_first_limit 6 10 surface - 9.0 + 9.0 diff --git a/parm/postcntrl_gefs_chem.xml b/parm/postcntrl_gefs_chem.xml index c4ce522cf..5abf7128b 100755 --- a/parm/postcntrl_gefs_chem.xml +++ b/parm/postcntrl_gefs_chem.xml @@ -225,6 +225,12 @@ 9.0 + + DUST10_SFC_MASS_CON + NCEP + 9.0 + + DUST25_SFC_MASS_CON NCEP diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index afe9c7eed..75d6bfc64 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -1260,7 +1260,9 @@ SUBROUTINE ALLOCATE_ALL() allocate(dustallcb(im,jsta_2l:jend_2u)) allocate(ssallcb(im,jsta_2l:jend_2u)) allocate(dustpm(im,jsta_2l:jend_2u)) + allocate(dustpm10(im,jsta_2l:jend_2u)) allocate(sspm(im,jsta_2l:jend_2u)) + allocate(maod(im,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u @@ -1295,7 +1297,9 @@ SUBROUTINE ALLOCATE_ALL() dustallcb(i,j)=spval ssallcb(i,j)=spval dustpm(i,j)=spval + dustpm10(i,j)=spval sspm(i,j)=spval + maod(i,j)=spval enddo enddo endif diff --git a/sorc/ncep_post.fd/CALPW.f b/sorc/ncep_post.fd/CALPW.f index 51aa4c457..b63e9ce1f 100644 --- a/sorc/ncep_post.fd/CALPW.f +++ b/sorc/ncep_post.fd/CALPW.f @@ -273,12 +273,10 @@ SUBROUTINE CALPW(PW,IDECID) DO I=1,IM if(PINT(I,J,L+1) 0) THEN + GRID1=SPVAL +!$omp parallel do private(i,j) + DO J = JSTA,JEND + DO I = 1,IM + IF(BCEM(I,J,1)0) THEN GRID1=SPVAL @@ -5179,6 +5199,21 @@ SUBROUTINE CLDRAD datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) endif ENDIF + + IF (IGET(699)>0) THEN + GRID1=SPVAL +!$omp parallel do private(i,j) + DO J = JSTA,JEND + DO I = 1,IM + GRID1(I,J) = MAOD(I,J) + END DO + END DO + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(699)) + datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + endif + ENDIF !! ADD DUST DRY DEPOSITION FLUXES (kg/m2/sec) ! ! IF (IGET(661)>0) THEN @@ -5217,6 +5252,20 @@ SUBROUTINE CLDRAD endif ENDIF + IF (IGET(685)>0 ) THEN +!$omp parallel do private(i,j) + DO J = JSTA,JEND + DO I = 1,IM + GRID1(I,J) = DUSTPM10(I,J) !ug/m3 + END DO + END DO + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(685)) + datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + endif + ENDIF + !! ADD DUST WET DEPOSITION FLUXES (kg/m2/sec) ! IF (IGET(662)>0) THEN ! DO J = JSTA,JEND @@ -5430,7 +5479,10 @@ SUBROUTINE CLDRAD IF (IGET(674)>0) call wrt_aero_diag(674,nbin_oc,ocwt) IF (IGET(682)>0) call wrt_aero_diag(682,nbin_oc,ocsv) ! print *,'aft wrt disg ocwt' - +!! wrt MIE AOD at 550nm + IF (IGET(699).GT.0) call wrt_aero_diag(699,1,maod) + print *,'aft wrt disg maod' + !! wrt SU diag field ! IF (IGET(675)>0) call wrt_aero_diag(675,nbin_su,suem) ! IF (IGET(676)>0) call wrt_aero_diag(676,nbin_su,susd) diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index 1bcfdd788..10fac93fa 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -532,7 +532,9 @@ SUBROUTINE DE_ALLOCATE deallocate(dustallcb) deallocate(ssallcb) deallocate(dustpm) + deallocate(dustpm10) deallocate(sspm) + deallocate(maod) endif ! ! HWRF RRTMG output diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index 0d9b4da88..e8fcdcc28 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f @@ -55,8 +55,8 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) avgedir,avgecan,avgetrans,avgesnow,avgprec_cont,avgcprate_cont, & avisbeamswin,avisdiffswin,airbeamswin,airdiffswin, & alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & - dustcb,bccb,occb,sulfcb,sscb,dustallcb,ssallcb,dustpm,sspm,pp25cb,pp10cb, & - ti + dustcb,bccb,occb,sulfcb,sscb,dustallcb,ssallcb,dustpm,dustpm10,sspm,pp25cb, & + pp10cb,maod,ti use soil, only: sldpth, sh2o, smc, stc use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice ! use kinds, only: i_llong @@ -1413,7 +1413,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) dustallcb(1:im,jsta_2l:jend_2u)=dustallcb(1:im,jsta_2l:jend_2u)+ & (dust(1:im,jsta_2l:jend_2u,ll,1)+dust(1:im,jsta_2l:jend_2u,ll,2)+ & - dust(1:im,jsta_2l:jend_2u,ll,3)+0.67*dust(1:im,jsta_2l:jend_2u,ll,4))* & + dust(1:im,jsta_2l:jend_2u,ll,3)+0.74*dust(1:im,jsta_2l:jend_2u,ll,4))* & dpres(1:im,jsta_2l:jend_2u,ll)/grav ! if(debugprint)print*,'sample l ',VarName,' = ',ll,dust(isa,jsa,ll,5) @@ -1470,7 +1470,8 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ,salt(1:im,jsta_2l:jend_2u,ll,3)) sscb(1:im,jsta_2l:jend_2u)=sscb(1:im,jsta_2l:jend_2u)+ & - (salt(1:im,jsta_2l:jend_2u,ll,2)+0.75*salt(1:im,jsta_2l:jend_2u,ll,3))* & + (salt(1:im,jsta_2l:jend_2u,ll,1)+ & + salt(1:im,jsta_2l:jend_2u,ll,2)+0.83*salt(1:im,jsta_2l:jend_2u,ll,3))* & dpres(1:im,jsta_2l:jend_2u,ll)/grav ! if(debugprint)print*,'sample l ',VarName,' = ',ll,salt(isa,jsa,ll,3) @@ -1501,7 +1502,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ssallcb(1:im,jsta_2l:jend_2u)=ssallcb(1:im,jsta_2l:jend_2u)+ & (salt(1:im,jsta_2l:jend_2u,ll,1)+salt(1:im,jsta_2l:jend_2u,ll,2)+ & salt(1:im,jsta_2l:jend_2u,ll,3)+ & - salt(1:im,jsta_2l:jend_2u,ll,4)*0.83)* & + salt(1:im,jsta_2l:jend_2u,ll,4))* & dpres(1:im,jsta_2l:jend_2u,ll)/grav ! if(debugprint)print*,'sample l ',VarName,' = ',ll,salt(isa,jsa,ll,5) @@ -1728,17 +1729,18 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) bccb(i,j) = MAX(bccb(i,j), 0.0) occb(i,j) = MAX(occb(i,j), 0.0) sulfcb(i,j) = MAX(sulfcb(i,j), 0.0) - pp25cb(i,j) = MAX(sulfcb(i,j), 0.0) - pp10cb(i,j) = MAX(sulfcb(i,j), 0.0) + pp25cb(i,j) = MAX(pp25cb(i,j), 0.0) + pp10cb(i,j) = MAX(pp10cb(i,j), 0.0) ! PM10 concentration dusmass(i,j)=(dust(i,j,l,1)+dust(i,j,l,2)+dust(i,j,l,3)+ & 0.74*dust(i,j,l,4)+salt(i,j,l,1)+salt(i,j,l,2)+salt(i,j,l,3)+ & - salt(i,j,l,4) + & - salt(i,j,l,5)+soot(i,j,l,1)+soot(i,j,l,2)+waso(i,j,l,1)+ & + salt(i,j,l,4) + soot(i,j,l,1)+soot(i,j,l,2)+waso(i,j,l,1)+ & waso(i,j,l,2) +suso(i,j,l,1)+pp25(i,j,l,1)+pp10(i,j,l,1)) & *RHOMID(i,j,l) !ug/m3 ! PM25 dust and seasalt dustpm(i,j)=(dust(i,j,l,1)+0.38*dust(i,j,l,2))*RHOMID(i,j,l) !ug/m3 + dustpm10(i,j)=(dust(i,j,l,1)+dust(i,j,l,2)+dust(i,j,l,3)+ & + 0.74*dust(i,j,l,4))*RHOMID(i,j,l) !ug/m3 sspm(i,j)=(salt(i,j,l,1)+salt(i,j,l,2)+ & 0.83*salt(i,j,l,3))*RHOMID(i,j,l) !ug/m3 ! PM25 concentration @@ -3673,43 +3675,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) enddo enddo -! done with flux file, close it for now - call nemsio_close(ffile,iret=status) - deallocate(tmp,recname,reclevtyp,reclev) - - -! Retrieve aer fields if it's listed (GOCART) - print *, 'iostatus for aer file=', iostatusAER - if(iostatusAER == 0) then ! start reading aer file - call nemsio_open(rfile,trim(fileNameAER),'read',mpi_comm_comp & - ,iret=status) - if ( Status /= 0 ) then - print*,'error opening ',fileNameAER, ' Status = ', Status - endif - call nemsio_getfilehead(rfile,iret=status,nrec=nrec) - print*,'nrec for aer file=',nrec - allocate(recname(nrec),reclevtyp(nrec),reclev(nrec)) - call nemsio_getfilehead(rfile,iret=iret,recname=recname & - ,reclevtyp=reclevtyp,reclev=reclev) - if(debugprint)then - if (me == 0)then - do i=1,nrec - print *,'recname,reclevtyp,reclev=',trim(recname(i)),' ', & - trim(reclevtyp(i)),reclev(i) - end do - end if - end if -! start reading nemsio aer files using parallel read - fldsize=(jend-jsta+1)*im - allocate(tmp(fldsize*nrec)) - print*,'allocate tmp successfully' - tmp=0. - call nemsio_denseread(rfile,1,im,jsta,jend,tmp,iret=iret) - if(iret/=0)then - print*,"fail to read aer file using mpi io read, stopping" - stop - end if - ! retrieve dust emission fluxes do K = 1, nbin_du if ( K == 1) VarName='duem001' @@ -3717,7 +3682,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='duem003' if ( K == 4) VarName='duem004' if ( K == 5) VarName='duem005' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3728,12 +3693,12 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! retrieve dust sedimentation fluxes do K = 1, nbin_du - if ( K == 1) VarName='dust1SD' - if ( K == 2) VarName='dust2SD' - if ( K == 3) VarName='dust3SD' - if ( K == 4) VarName='dust4SD' - if ( K == 5) VarName='dsut5SD' - VcoordName='atmos col' + if ( K == 1) VarName='dust1sd' + if ( K == 2) VarName='dust2sd' + if ( K == 3) VarName='dust3sd' + if ( K == 4) VarName='dust4sd' + if ( K == 5) VarName='dsut5sd' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3749,7 +3714,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='dust3dp' if ( K == 4) VarName='dust4dp' if ( K == 5) VarName='dust5dp' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3767,7 +3732,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='dust3wtl' if ( K == 4) VarName='dust4wtl' if ( K == 5) VarName='dust5wtl' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3781,7 +3746,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='dust3wtc' if ( K == 4) VarName='dust4wtc' if ( K == 5) VarName='dust5wtc' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3796,13 +3761,29 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='ssem003' if ( K == 4) VarName='ssem004' if ( K == 5) VarName='ssem005' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & ,recname,reclevtyp,reclev,VarName,VcoordName& ,ssem(1,jsta_2l,K)) enddo + +! retrieve seasalt emission fluxes + do K = 1, nbin_ss + if ( K == 1) VarName='seas1sd' + if ( K == 2) VarName='seas2sd' + if ( K == 3) VarName='seas3sd' + if ( K == 4) VarName='seas4sd' + if ( K == 5) VarName='seas5sd' + VcoordName='sfc' + l=1 + call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & + ,l,nrec,fldsize,spval,tmp & + ,recname,reclevtyp,reclev,VarName,VcoordName& + ,sssd(1,jsta_2l,K)) + enddo + ! retrieve seasalt dry deposition fluxes do K = 1, nbin_ss @@ -3811,7 +3792,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='seas3dp' if ( K == 4) VarName='seas4dp' if ( K == 5) VarName='seas5dp' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3826,7 +3807,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='seas3wtl' if ( K == 4) VarName='seas4wtl' if ( K == 5) VarName='seas5wtl' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3841,7 +3822,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) if ( K == 3) VarName='seas1wtc' if ( K == 4) VarName='seas1wtc' if ( K == 5) VarName='seas1wtc' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3853,7 +3834,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_bc if ( K == 1) VarName='bceman' if ( K == 2) VarName='bcembb' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3865,7 +3846,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_bc if ( K == 1) VarName='bc1sd' if ( K == 2) VarName='bc2sd' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3877,7 +3858,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_bc if ( K == 1) VarName='bc1dp' if ( K == 2) VarName='bc2dp' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3889,7 +3870,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_bc if ( K == 1) VarName='bc1wtl' if ( K == 2) VarName='bc2wtl' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3901,7 +3882,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_bc if ( K == 1) VarName='bc1wtc' if ( K == 2) VarName='bc2wtc' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3913,7 +3894,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_oc if ( K == 1) VarName='oceman' if ( K == 2) VarName='ocembb' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3925,7 +3906,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_oc if ( K == 1) VarName='oc1sd' if ( K == 2) VarName='oc2sd' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3935,9 +3916,9 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! retrieve oc dry deposition fluxes do K = 1, nbin_oc - if ( K == 1) VarName='c1dp' - if ( K == 2) VarName='c2dp' - VcoordName='atmos col' + if ( K == 1) VarName='oc1dp' + if ( K == 2) VarName='oc2dp' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3949,7 +3930,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_oc if ( K == 1) VarName='oc1wtl' if ( K == 2) VarName='oc2wtl' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3961,7 +3942,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) do K = 1, nbin_oc if ( K == 1) VarName='oc1wtc' if ( K == 2) VarName='oc2wtc' - VcoordName='atmos col' + VcoordName='atmos sfc' l=1 call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & ,l,nrec,fldsize,spval,tmp & @@ -3969,8 +3950,20 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ,ocsv(1,jsta_2l,K)) enddo +! retrieve MIE AOD + VarName='maod' + VcoordName='sfc' + l=1 + call assignnemsiovar(im,jsta,jend,jsta_2l,jend_2u & + ,l,nrec,fldsize,spval,tmp & + ,recname,reclevtyp,reclev,VarName,VcoordName& + ,maod(1,jsta_2l)) +! done with flux file, close it for now + call nemsio_close(ffile,iret=status) + deallocate(tmp,recname,reclevtyp,reclev) + !lzhang !! retrieve sfc mass concentration ! VarName='DUSMASS' @@ -4015,11 +4008,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! ,ducmass25) ! if(debugprint)print*,'sample ',VarName,' = ',ducmass25(isa,jsa) - if (me == 0) print *,'after aer files reading,mype=',me - call nemsio_close(rfile,iret=status) - deallocate(tmp,recname,reclevtyp,reclev) - end if ! end of aer file read - ! pos east call collect_loc(gdlat,dummy) if(me == 0)then diff --git a/sorc/ncep_post.fd/MPI_FIRST.f b/sorc/ncep_post.fd/MPI_FIRST.f index 920f78e18..f24dd90fe 100644 --- a/sorc/ncep_post.fd/MPI_FIRST.f +++ b/sorc/ncep_post.fd/MPI_FIRST.f @@ -79,7 +79,7 @@ SUBROUTINE MPI_FIRST() ocsmass25, occmass25, bcsmass, bccmass, bcsmass25, bccmass25, & sssmass, sscmass, sssmass25, sscmass25, ducmass25, & dustcb, sscb, bccb, occb, sulfcb, dustallcb, ssallcb,dustpm,sspm, pp25cb,& - pp10cb, ti + dustpm10, pp10cb, maod, ti use soil, only: smc, stc, sh2o, sldpth, rtdpth, sllevel use masks, only: htm, vtm, hbm2, sm, sice, lmh, gdlat, gdlon, dx, dy, lmv use ctlblk_mod, only: me, num_procs, jm, jsta, jend, jsta_m, jsta_m2, & diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index 134d014f1..569f34ea5 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -95,7 +95,7 @@ module vrbls2d ,SSSMASS(:,:),SSCMASS(:,:),SSSMASS25(:,:),SSCMASS25(:,:) & ,DUSTCB(:,:),SSCB(:,:),OCCB(:,:),BCCB(:,:),SULFCB(:,:) & ,DUSTALLCB(:,:),SSALLCB(:,:),DUSTPM(:,:),SSPM(:,:),PP25CB(:,:) & - ,PP10CB(:,:)!lzhang, add for FV3-Chem + ,DUSTPM10(:,:),PP10CB(:,:),maod(:,:)!lzhang, add for FV3-Chem ! end module vrbls2d From 7e483805d84c7700d3059efe3de1251271d7e7a3 Mon Sep 17 00:00:00 2001 From: Kate Fossell Date: Fri, 13 May 2022 15:11:53 -0500 Subject: [PATCH 057/107] increment version of develop (#502) Co-authored-by: Kate Fossell --- VERSION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/VERSION b/VERSION index 59a550906..2bd6f7e39 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -10.0.12 +10.2.0 From 2a91354463fee94397adc949c7face8cce6178c0 Mon Sep 17 00:00:00 2001 From: Kate Fossell Date: Mon, 16 May 2022 19:34:34 -0500 Subject: [PATCH 058/107] Add camshe to codeowners for public docs and run script (#506) Co-authored-by: Kate Fossell --- .github/CODEOWNERS | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/.github/CODEOWNERS b/.github/CODEOWNERS index 962217602..9db52d085 100644 --- a/.github/CODEOWNERS +++ b/.github/CODEOWNERS @@ -8,7 +8,7 @@ * @WenMeng-NOAA -# DTC support for public releases and documentation -docs/* @hertneky @fossell -scripts/run_upp @hertneky @fossell +# Support for public releases and documentation +docs/* @hertneky @fossell @camshe +scripts/run_upp @hertneky @fossell @camshe From fbd41a58fa301551fa3337be313abafec265374a Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 18 May 2022 16:43:57 -0400 Subject: [PATCH 059/107] Update gfs itag files for in-line post. (#508) --- parm/post_tag_gfs128 | 3 +++ parm/post_tag_gfs65 | 3 +++ 2 files changed, 6 insertions(+) diff --git a/parm/post_tag_gfs128 b/parm/post_tag_gfs128 index 9a9a3bdde..f9246e045 100644 --- a/parm/post_tag_gfs128 +++ b/parm/post_tag_gfs128 @@ -1,3 +1,6 @@ +&MODEL_INPUTS +MODELNAME='GFS' +/ &NAMPGB KPO=57,PO=1000.,975.,950.,925.,900.,875.,850.,825.,800.,775.,750.,725.,700.,675.,650.,625.,600.,575.,550.,525.,500.,475.,450.,425.,400.,375.,350.,325.,300.,275.,250.,225.,200.,175.,150.,125.,100.,70.,50.,40.,30.,20.,15.,10.,7.,5.,3.,2.,1.,0.7,0.4,0.2,0.1,0.07,0.04,0.02,0.01, / diff --git a/parm/post_tag_gfs65 b/parm/post_tag_gfs65 index 2653fea19..7643b75d7 100644 --- a/parm/post_tag_gfs65 +++ b/parm/post_tag_gfs65 @@ -1,3 +1,6 @@ +&MODEL_INPUTS +MODELNAME='GFS' +/ &NAMPGB KPO=50,PO=1000.,975.,950.,925.,900.,875.,850.,825.,800.,775.,750.,725.,700.,675.,650.,625.,600.,575.,550.,525.,500.,475.,450.,425.,400.,375.,350.,325.,300.,275.,250.,225.,200.,175.,150.,125.,100.,70.,50.,40.,30.,20.,15.,10.,7.,5.,3.,2.,1.,0.4, / From 6a146bca6f69549bb9deb93fcae279e8a566b64d Mon Sep 17 00:00:00 2001 From: Kate Fossell Date: Mon, 23 May 2022 13:14:11 -0500 Subject: [PATCH 060/107] Merge release/public-v3 (#509) * run_upp script got the following updates: -updated directory name -updated executable path -added error message for binarynemsiompiio option -added netcdfpara option * Further refinement from Tracy's comment. * Minor fix. * More minor change from Tracy. * Link update from Tracy. * Documentation updates for release * minor updates based on comments * minor revisions to documentation * Increment version for public release * update informat - only netcdfpara * Removed netcdf option and rename GFS input file names. * Minor change. Co-authored-by: kayee Co-authored-by: Tracy Co-authored-by: Kate Fossell --- VERSION | 2 +- docs/Acknowledgments.rst | 2 +- docs/AddNewVariable.rst | 14 +- docs/CodeOverview.rst | 37 ++-- docs/InputsOutputs.rst | 47 +++--- docs/Installation.rst | 72 ++++---- docs/Introduction.rst | 38 ++--- docs/Running.rst | 4 +- docs/UFS_unified_variables_table.csv | 244 +++++++++++++++++++++++++++ docs/UFS_unified_variables_table.rst | 13 ++ scripts/run_upp | 58 +++---- 11 files changed, 389 insertions(+), 142 deletions(-) create mode 100644 docs/UFS_unified_variables_table.csv create mode 100644 docs/UFS_unified_variables_table.rst diff --git a/VERSION b/VERSION index 2bd6f7e39..fe46e0dd3 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -10.2.0 +10.2.0 \ No newline at end of file diff --git a/docs/Acknowledgments.rst b/docs/Acknowledgments.rst index ec69df3a3..f5aa9c98d 100644 --- a/docs/Acknowledgments.rst +++ b/docs/Acknowledgments.rst @@ -18,4 +18,4 @@ acknowledge the Developmental Testbed Center UPP Team. For referencing this document please use: -UPP Users Guide V9.0.0, 24 pp. +UPP Users Guide V10.1.0, 24 pp. diff --git a/docs/AddNewVariable.rst b/docs/AddNewVariable.rst index 295c89da0..a502d4b9c 100644 --- a/docs/AddNewVariable.rst +++ b/docs/AddNewVariable.rst @@ -93,8 +93,7 @@ with examples in the sections below. The variable is declared in one of these modules defining files depending on its dimension. -5. Read model output if necessary: INITPOST_GFS_NETCDF_PARA.f (current operational netcdf output with GFS V16), - INITPOST_NETCDF.f (LAM FV3 netcdf) +5. Read model output if necessary: INITPOST_NETCDF.f Check first to see if all variables needed to derive your new variable are already available in UPP. If not, you will need to use one of these files for reading the model output files. The appropriate one will need to @@ -254,8 +253,8 @@ with examples in the sections below. tg3(:,:) -5. Read the field from the GFS model output file by adding the new variable into INITPOST_GFS_NETCDF_PARA.f. - This file is used for reading the GFS model FV3 output files in netcdf format. +5. Read the field from the GFS model output file by adding the new variable into INITPOST_NETCDF.f. + This file is used for reading the GFS model FV3 output files in parallel netcdf format. User procedure - Add to top section of the routine in ‘use vrbls2d’ to initiate the new variable as: @@ -317,12 +316,12 @@ with examples in the sections below. 7. Build or rebuild the code for changes to take effect before running your UPP run script. - User procedure IF you already have the code built. Otherwise, see the User's Guide for instructions on building. + User procedure for building on pre-configured machines. Otherwise, see the User's Guide for instructions on building. :: - >> cd UPP/build - >> make install + >> cd UPP/tests + >> ./compile_upp.sh Assuming the modified code built successfully and you were able to produce Grib2 output, you can check the Grib2 file for your new variable. @@ -343,4 +342,3 @@ with examples in the sections below. number of latitudes between pole-equator=96 #points=73728 lat 89.284225 to -89.284225 lon 0.000000 to 359.062500 by 0.937500 - diff --git a/docs/CodeOverview.rst b/docs/CodeOverview.rst index 5ca2284ce..b06efdb08 100644 --- a/docs/CodeOverview.rst +++ b/docs/CodeOverview.rst @@ -2,19 +2,32 @@ Code Overview ************* -The UPP can be used to post-process WRF-ARW, WRF-NMM, NMMB, GFS, CFS, and FV3 forecasts with current -support within UFS applications available for FV3 only. It can ingest FV3 write component files in -netCDF and binarynemsiompiio format. +The UPP is used to post-process model forecasts and provides the capability to compute a variety of +diagnostic fields and interpolate to pressure levels or other vertical coordinates. -UPP Functionalities: +The UPP also incorporates the Joint Center for Satellite Data Assimilation (JCSDA) Community Radiative +Transfer Model (CRTM) to compute model derived brightness temperature (TB) for various instruments and +channels. This additional feature enables the generation of a number of simulated satellite products +including GOES products. - - Interpolates the forecasts from the models native vertical coordinate to NWS standard output - levels (e.g., pressure, height) and computes mean sea level pressure. If the requested parameter - is on a models native level, then no vertical interpolation is performed. +Output from the UPP is in National Weather Service (NWS) and World Meteorological Organization (WMO) +`GRIB2 `_ format and can be used directly by +visualization, plotting, or verification packages, or for further downstream post-processing, e.g. +statistical post-processing techniques. - - Computes diagnostic output quantities (e.g., convective available potential energy, helicity, - relative humidity). A full list of fields that can be generated by the UPP is provided in - :doc:`UPP_GRIB2_Table`. +Examples of UPP products include: - - Outputs the results in NWS and WMO standard GRIB2 format (see - `Grib documentation `_). +- T, Z, humidity, wind, cloud water, cloud ice, rain, and snow on pressure levels +- SLP, shelter level T, humidity, and wind fields +- Precipitation-related fields +- PBL-related fields +- Severe weather products (e.g. CAPE, Vorticity, Wind shear) +- Radiative/Surface fluxes +- Cloud related fields +- Aviation products +- Radar reflectivity products +- Satellite look-alike products + +A full list of fields that can be generated by the UPP is provided in :doc:`UPP_GRIB2_Table`. + +Support for the community UPP is provided through the `UFS Forum `_. diff --git a/docs/InputsOutputs.rst b/docs/InputsOutputs.rst index 008cb5a05..ebc1626fc 100644 --- a/docs/InputsOutputs.rst +++ b/docs/InputsOutputs.rst @@ -14,10 +14,24 @@ Input files =========== The UPP requires the following input files: + - The model forecast file - The itag namelist file - The GRIB2 control file - Additional data files (e.g. lookup tables, coefficient files for satellite) +-------------- +Model Forecast +-------------- + +The UPP ingests FV3 write component files in parallel netCDF format. + +The table below is a list of the unified model variables available from the FV3 model core. Whether a +specific variable is able to be read by UPP relies on dependencies such as physics options and model. +This table does not include variables that are diagnosed when running the UPP. + +UFS Unified Model Variables + - :doc:`UFS_unified_variables_table` + ---- ITAG ---- @@ -28,9 +42,9 @@ generated automatically within the UFS application workflow or stand-alone run s user-defined options. It should not be necessary to edit this. For description purposes, the namelist &model_inputs (:bolditalic:`itag` file) contains 7 lines for FV3: -#. Name of the FV3 (pressure level) output file to be posted. +#. Name of the FV3 (pressure level) output file to be post-processed. -#. Format of FV3 model output (netcdf, binarynemsiompiio). +#. Format of FV3 model output (netcdfpara). #. Format of UPP output (GRIB2) @@ -54,22 +68,12 @@ which fields and levels to process. A default control file, :bolditalic:`postxconfig-NT.txt`, is provided and read by the UPP. For users wishing to customize the control file to add or remove fields and/or levels, they may do so by modifying the :bolditalic:`postcntrl.xml` and then remaking the text file as described in the later section -:ref:`Creating the Flat Text File`. +:ref:`create_txt_file`. .. Note:: The control file names :bolditalic:`postxconfig-NT.txt` and :bolditalic:`postcntrl.xml` are generic - names and are different depending on the application used. - -The tables below list all fields that are included in the control files for the various UFS -applications. All fields in the tables may not be present in your output depending on whether the field -dependencies are available in your model output. - -UFS MRW Table (GFS model) - - :doc:`MRW_GFSPRS_table` - -UFS SRW Tables (LAM - Limited Area Model) - - :doc:`SRW_BGDAWP_table` - - :doc:`SRW_BGRD3D_table` + names and are different depending on the application used. Control files for various operational + models are located in the :bolditalic:`UPP/parm` directory. Controlling which variables the UPP outputs ------------------------------------------- @@ -108,9 +112,11 @@ levels are currently available for output: - For PBL layer averages, the levels correspond to 6 layers with a thickness of 30 hPa each. - For flight level, the levels are 30 m, 50 m, 80 m, 100 m, 305 m, 457 m, 610 m, 914 m, 1524 m, 1829 m, 2134 m, 2743 m, 3658 m, 4572 m, 6000 m, 7010 m. -- For AGL radar reflectivity, the levels are 4000 and 1000 m (see Appendix A for details). +- For AGL radar reflectivity, the levels are 4000 and 1000 m. - For surface or shelter-level output, the is not necessary. +.. _create_txt_file: + Creating the Flat Text File --------------------------- @@ -131,14 +137,15 @@ run-time failures with UPP. To run the validation: xmllint --noout --schema EMC_POST_CTRL_Schema.xsd postcntrl.xml xmllint --noout --schema EMC_POST_Avblflds_Schema.xsd post_avblflds.xml -Once the xmls are validated, the user will need to generate the flat file. The makefile will call the -perl program :bolditalic:`parm/POSTXMLPreprocessor.pl` to regenerate any post flat files -:bolditalic:`postxconfig-NT.txt` where modifications were made since it was last run. Generate the flat +Once the xmls are validated, the user will need to generate the flat file. The below command will run the +perl program :bolditalic:`parm/POSTXMLPreprocessor.pl` to generate the post flat file. Generate the flat file: .. code-block:: console - make + /usr/bin/perl POSTXMLPreprocessor.pl your_user_defined_xml post_avblflds.xml your_user_defined_flat + +where *your_user_defined_xml* is your modified xml and *your_user_defined_flat* is the output text file. ============ Output Files diff --git a/docs/Installation.rst b/docs/Installation.rst index 76c76fc8d..8dbf731b6 100644 --- a/docs/Installation.rst +++ b/docs/Installation.rst @@ -7,47 +7,40 @@ Building Stand-Alone ******************** +The UPP uses a CMake-based build system to integrate all the required components for building the UPP. +Once built, the UPP can be run stand-alone (outside the UFS Applications) to post-process model output. + ===================== Software Requirements ===================== -Before installing the UPP code, it is necessary to ensure that you have the required libraries -available on your system. These libraries include: - - - The external NCEP libraries - https://github.com/NOAA-EMC/NCEPLIBS-external - - - The NCEP libraries - https://github.com/NOAA-EMC/NCEPLIBS - -An introduction of each can be found in their respective top level :bolditalic:`README.md` files. -Detailed instructions for building the libraries on various platforms can be found in the -**NCEPLIBS-external/doc** directory. +The UPP is tested on a variety of research platforms, including NOAA HPC systems (e.g. Hera, Orion) and +the NCAR HPC Cheyenne. These supported platforms are pre-configured for building and running the UPP and already +have the required libraries available via `HPC-Stack `_ in a centralized +location. The HPC-Stack is a script-based build system that builds the software stack required by UFS components. -Certain machines do have the NCEP libraries in a pre-installed location for use to build UPP. Paths to -these pre-installed libraries are available on the -`UFS-SRW wiki `_ -and include platform name and compiler version. +Users working on unsupported platforms will need to install the HPC-Stack on their system and can do so following +the instructions in the `HPC-Stack User's Guide `_. ============================ Obtaining and Installing UPP ============================ -Building and running UPP V9.0.0 has been tested on the following platforms using pre-configured libraries. +Building and running UPP V10.1.0 has been tested and is supported on the following pre-configured platforms. +---------------+----------------------+ | System | Compiler and Version | +===============+======================+ -| NCAR Cheyenne | Intel 19.1.1 | +| NCAR Cheyenne | Intel 2021.2 | | +----------------------+ -| | GNU 9.1.0 | | | GNU 10.1.0 | +---------------+----------------------+ | NOAA Hera | Intel 18.0.5.274 | +---------------+----------------------+ +| NOAA Orion | Intel 2018.4 | ++---------------+----------------------+ -Move to the directory where you want to clone and build UPP and clone the repository into the directory -UPP. +Move to the directory where you want to install UPP and clone the repository. .. code-block:: console @@ -55,41 +48,37 @@ UPP. where, ``branch-or-tag-name`` is the release branch or tag you wish to clone. -Move into the top level UPP directory and create and move into the build directory. Then build the UPP code -using the cmake utility. -The path ``INSTALL_PREFIX`` should point to the location of the pre-installed NCEP libraries. +Move to the directory with the build script and build the UPP. .. code-block:: console - cd UPP - mkdir build && cd build + cd UPP/tests - cmake .. -DCMAKE_INSTALL_PREFIX=.. -DCMAKE_PREFIX_PATH=${INSTALL_PREFIX} - make install + ./compile_upp.sh .. note:: - To build in debug mode, you can add :bolditalic:`-DCMAKE_BUILD_TYPE=Debug` to the cmake command. + To build in debug mode, you can add :bolditalic:`-DCMAKE_BUILD_TYPE=Debug` to the *cmake_opts* + parameter in the :bolditalic:`compile_upp.sh` script. This removes compiler optimization flags and adds -g to the fortran compilation. You can also use :bolditalic:`-DCMAKE_BUILD_TYPE=RELWITHDEBINFO`, which gives the -g, but keeps the -O2 optimization for the fortran compilation. Move back to the top level UPP directory and create a directory for the CRTM fix files to be unpacked in. Download the fix files from the Github `release page -`_ or use the wget command. Unpack the +`_ or use the wget command. Unpack the tar file. .. code-block:: console cd ../ mkdir crtm && cd crtm - wget https://github.com/NOAA-EMC/UPP/releases/download/upp_v9.0.0/fix.tar.gz + wget https://github.com/NOAA-EMC/UPP/releases/download/upp_v10.1.0/fix.tar.gz tar -xzf fix.tar.gz .. note:: - To make a clean build, simply remove both the **/build** directory and the - :bolditalic:`bin/upp.x` executable and then re-create the build from step #2. This is recommended if a - mistake is made during the installation process. If a simple change is made to the code, you can simply - type :bolditalic:`make install` again in the pre-existing build directory. + To make a clean build, simply remove both the **tests/build** and **tests/install** directories and the + :bolditalic:`exec/upp.x` executable and then rerun the :bolditalic:`compile_upp.sh script. This is + recommended if a mistake is made during the installation process. ======================= UPP Directory Structure @@ -98,13 +87,10 @@ UPP Directory Structure Under the main directory **UPP** reside the following relevant subdirectories (The * indicates a directory that exists only after the build is complete): - | **bin***: Contains the :bolditalic:`upp.x` executable after successful compilation - - | **build**: Contains the UPP build + | **exec***: Contains the :bolditalic:`upp.x` executable after successful compilation - | **include***: Contains include modules built/used during compilation of UPP - - | **lib***: Libraries built/used by UPP that are separate from NCEPlibs + | **modulefiles**: Contains modulefiles for specific platforms and compilers for building on + pre-configured machines. | **parm**: Contains parameter files, which can be modified by the user to control how the post processing is performed. @@ -114,3 +100,7 @@ directory that exists only after the build is complete): | **sorc**: Contains source codes for: | - **ncep_post.fd**: Source code for the UPP + + | **tests**: Contains the scripts used to install UPP + | - **build***: Contains the UPP build + | - **install***: Contains the installed executable (bin/upp.x), modules, and libraries diff --git a/docs/Introduction.rst b/docs/Introduction.rst index 4dc972b54..f5646c1b1 100644 --- a/docs/Introduction.rst +++ b/docs/Introduction.rst @@ -2,32 +2,16 @@ Introduction ************ -The Unified Post Processor (UPP) software package is a software package designed to generate useful -products from raw model output. The UPP is currently used in operations with the Global Forecast -System (GFS), GFS Ensemble Forecast System (GEFS), North American Mesoscale (NAM), Rapid Refresh (RAP), -High Resolution Rapid Refresh (HRRR), Short Range Ensemble Forecast (SREF), Hurricane WRF (HWRF) -applications, and is also used in Unified Forecasting System (UFS) applications. The UPP provides the -capability to compute a variety of diagnostic fields and interpolate to pressure levels or other -vertical coordinates. UPP also incorporates the Joint Center for Satellite Data Assimilation (JCSDA) -Community Radiative Transfer Model (CRTM) to compute model derived brightness temperature (TB) for -various instruments and channels. This additional feature enables the generation of a number of -simulated satellite products including GOES products. Output from the UPP is in National Weather -Service (NWS) and World Meteorological Organization (WMO) GRIB2 format and can be used directly by -visualization, plotting, or verification packages, or for further downstream post-processing, e.g. -statistical post-processing techniques. +The Unified Post Processor (UPP) is a software package designed to generate useful +products from raw model output. -Examples of UPP products include: +The UPP is currently used in operations with the Global Forecast System (GFS), GFS Ensemble Forecast +System (GEFS), North American Mesoscale (NAM), Rapid Refresh (RAP), High Resolution Rapid Refresh +(HRRR), Short Range Ensemble Forecast (SREF), and Hurricane WRF (HWRF) applications. It is also used +in the Unified Forecasting System (UFS), including the Rapid Refresh Forecast System (RRFS), Hurricane +Application Forecasting System (HAFS), and the Medium Range Weather (MRW) and Short Range Weather (SRW) +Applications. -- T, Z, humidity, wind, cloud water, cloud ice, rain, and snow on pressure levels -- SLP, shelter level T, humidity, and wind fields -- Precipitation-related fields -- PBL-related fields -- Severe weather products (e.g. CAPE, Vorticity, Wind shear) -- Radiative/Surface fluxes -- Cloud related fields -- Aviation products -- Radar reflectivity products -- Satellite look-alike products - -Support for the UFS UPP is provided through the UFS Forum by the Developmental Testbed Center (DTC) for -FV3-based applications. +This software package can be run inline, built as a library to be used by the model, and offline, +built stand-alone and run separate from the model. This documentation largely details the offline +procedures. diff --git a/docs/Running.rst b/docs/Running.rst index 1cbef0fbd..90501f570 100644 --- a/docs/Running.rst +++ b/docs/Running.rst @@ -64,7 +64,7 @@ Run Script Overview | **TOP_DIR**: Top level directory for building and running UPP | **DOMAINPATH**: Working directory for this run - | **UNIPOST_HOME**: Location of the **UPP** directory + | **UPP_HOME**: Location of the **UPP** directory | **POSTEXEC**: Location of the **UPP** executable | **modelDataPath**: Location of the model output data files to be processed | **txtCntrlFile**: Name and location of the flat text file that lists desired fields for @@ -82,7 +82,7 @@ Run Script Overview 3. Specify the format for the input model files and output UPP files - | **inFormat**: Format of the model data ("binarynemsiompiio": GFS only or "netcdf": GFS/LAM) + | **inFormat**: Format of the model data ("netcdfpara") | **outFormat**: Format of output from UPP ("grib2") 4. Specify the forecast cycles to be post-processed diff --git a/docs/UFS_unified_variables_table.csv b/docs/UFS_unified_variables_table.csv new file mode 100644 index 000000000..462775357 --- /dev/null +++ b/docs/UFS_unified_variables_table.csv @@ -0,0 +1,244 @@ +Field Description,Model Variable NetCDF Name,UPP Internal Name,Dimensions,dyn (atm) or phy (sfc),Notes +U-component of wind,ugrd,uh,3d,dyn, +V-component of wind,vgrd,vh,3d,dyn, +Specific humidity,spfh,q,3d,dyn, +Temperature,tmp,t,3d,dyn, +Ozone mixing ratio,o3mr,o3,3d,dyn, +Geometric vertical velocity,dzdt,wh,3d,dyn, +Cloud water mixing ratio,clwmr,qqw,3d,dyn, +Layer thickness in pressure on hybrid levels,dpres,dpres,3d,dyn, +Layer thickness in height,delz,na,3d,dyn, +Ice mixing ratio,icmr,qqi,3d,dyn, +Rain mixing ratio,rwmr,qqr,3d,dyn, +Snow mixing ratio,snmr,qqs,3d,dyn, +Graupel mixing ratio,grle,qqg,3d,dyn, +Instantaneous 3d cloud fraction,cld_amt,cfr,3d,dyn,imp_physics = 11 +Instantaneous 3d cloud fraction,cldfra,cfr,3d,phy,imp_physics ≠ 11 +Max hourly updraft velocity,upvvelmax,w_up_max,2d,dyn,regional FV3 +Max hourly downdraft velocity,dnvvelmax,w_dn_max,2d,dyn,regional FV3 +Max hourly updraft helicity,uhmax25,up_heli_max,2d,dyn,regional FV3 +Min hourly updraft helicity,uhmin25,up_heli_min,2d,dyn,regional FV3 +Max hourly 0-3km updraft helicity,uhmax03,up_heli_max03,2d,dyn,regional FV3 +Min hourly 0-3km updraft helicity,uhmin03,up_heli_min03,2d,dyn,regional FV3 +Max 0-1km relative vorticity max,maxvort01,rel_vort_max01,2d,dyn,regional FV3 +Max 0-2km relative vorticity max,maxvort02,rel_vort_max,2d,dyn,regional FV3 +Max hybrid level 1 relative vorticity max,maxvorthy1,rel_vort_maxhy1,2d,dyn,regional FV3 +Surface height,hgtsfc,zint(:,:,LM+1),2d,dyn, +Reflectivity,refl_10cm,REF_10CM,3d,phy, +Turbulence kinetic energy,qke,q2,3d,phy, +Ice-friendly aerosol number concentration,nifa,qqnwfa,3d,phy, +Water-friendly aerosol number concentration,nwfa,qqnwfa,3d,phy, +Land mask,land,sm,2d,phy, +Sea ice mask,icec,sice,2d,phy, +PBL height,hpbl,pblh,2d,phy, +Frictional velocity,fricv,ustar,2d,phy, +Roughness length,sfcr,z0,2d,phy, +Surface exchange coefficient,sfexc,SFCEXC,2d,phy, +Aerodynamic conductance,acond,acond,2d,phy, +Mid day avg albedo,albdo_ave,avgalbedo,2d,phy, +Surface potential temperature,tmpsfc,ths,2d,phy, +Foundation temperature,tref,fdnsst,2d,phy, +Convective precip in m per physics time step,cpratb_ave,avgcprate,2d,phy, +Convective precip - coninuous bucket,cprat_ave,avgcprate_cont,2d,phy, +Average precip rate in m per physics time step,prateb_ave,avgprec,2d,phy, +Average precip rate - continuous bucket,prate_ave,avgprec_cont,2d,phy, +Precip rate,tprcp,prec,2d,phy, +Convective precip rate,cnvprcp,cprate,2d,phy, +Max hourly surface precip rate,pratemax,prate_max,2d,phy, +Max hourly 1 km agl reflectivity,refdmax,refd_max,2d,phy, +Max hourly -10C reflectivity,refdmax263k,refdm10c_max,2d,phy, +Max hourly u comp of 10m agl wind,u10max,u10max,2d,phy, +Max hourly v comp of 10m agl wind,v10max,v10max,2d,phy, +Max hourly 10m agl wind speed,spd10max,wspd10max,2d,phy, +Instantaneous snow water equivalent,weasd,sno,2d,phy, +Average snow cover,snowc_ave,snoavg,2d,phy, +Snow depth in mm,snod,si,2d,phy, +2m temperature,tmp2m,tshltr,2d,phy, +2m specific humidity,spfh2m,qshltr,2d,phy, +Time-averaged column cloud fraction,tcdc_aveclm,avgtcdc,2d,phy, +Maximum snow albedo,snoalb,mxsnal,2d,phy, +Land fraction,lfrac,landfrac,2d,phy, +Average high cloud fraction,tcdc_avehcl,avgcfrach,2d,phy, +Average low cloud fraction,tcdc_avelcl,avgcfracl,2d,phy, +Average mid cloud fraction,tcdc_avemcl,avgcfracm,2d,phy, +Instantaneous convective cloud fraction,tcdccnvcl,cnvcfr,2d,phy, +Slope type,sltyp,islope,2d,phy, +Plant canopy sfc water in m,cnwat,cmc,2d,phy, +Frozen precip fraction,cpofp,sr,2d,phy, +Sea ice skin temperature,tisfc,ti,2d,phy, +Vegetation fraction,veg,vegfrc,2d,phy, +Liquid volumetric soil moisture,soill1/soill2/soill3/soill4,sh2o,2d>3d,phy,all soil levels read into array +Volumetric soil moisture,soilw1/soilw2/soilw3/soilw4.....,smc,2d>3d,phy,"all soil levels read into array, L5-9 RUC only" +Soil temperature,soilt1/soilt2/soilt3/soilt4.....,stc,2d>3d,phy,"all soil levels read into array, L5-9 RUC only" +Time averaged incoming surface longwave,dlwrf_ave,alwin,2d,phy, +Instantaneous incoming surface longwave,dlwrf,rlwin,2d,phy, +Time averaged outgoing surface longwave,ulwrf_ave,alwout,2d,phy, +Instataneous outgoing surface longwave,ulwrf,radot,2d,phy, +Time average outgoing model top longwave,ulwrf_avetoa,alwtoa,2d,phy, +Time averaged incoming surface shortwave,dswrf_ave,aswin,2d,phy, +Instantaneous incoming surface shortwave,dswrf,rswin,2d,phy, +Time averaged incoming sfc uv-b,duvb_ave,auvbin,2d,phy, +Time averaged incoming sfc clear sky uv-b,cduvb_ave,auvbinc,2d,phy, +Time averaged outgoing sfc shortwave,uswrf_ave,aswout,2d,phy, +Inst outgoing sfc shortwave,uswrf,rswout,2d,phy, +Time averaged model top incoming shortwave,dswrf_avetoa,aswintoa,2d,phy, +Time averaged model top outgoing shortwave,uswrf_avetoa,aswtoa,2d,phy, +Time averaged surface sensible heat flux,shtfl_ave,sfcshx,2d,phy, +Inst surface sensible heat flux,shtfl,twbs,2d,phy, +Time averaged surface latent heat flux,lhtfl_ave,sfclhx,2d,phy, +Inst surface latent heat flux,lhtfl,qwbs,2d,phy, +Time averaged ground heat flux,gflux_ave,subshx,2d,phy, +Instantaneous ground heat flux,gflux,grnflx,2d,phy, +Time averaged zonal momentum flux,uflx_ave,sfcux,2d,phy, +Time averaged meridional momentum flux,vflx_ave,sfcvx,2d,phy, +Instantaneous zonal momentum flux,uflx,sfcuxi,2d,phy, +Instantaneous meridional momentum flux,vflx,sfcvxi,2d,phy, +Time averaged zonal gravity wave stress,u-gwd_ave,gtaux,2d,phy, +Time averaged meridional gravity wave stress,v-gwd_ave,gtauy,2d,phy, +Time averaged accumulated potential evaporation,pevpr_ave,avgpotevp,2d,phy, +Instantaneous potential evaporation,pevpr,potevp,2d,phy, +10 m u-wind component,ugrd10m,u10,2d,phy, +10 m v-wind component,vgrd10m,v10,2d,phy, +Vegetation type,vtype,ivgtyp,2d,phy, +Soil type,sotyp,isltyp,2d,phy, +Instantaneous convective cloud top pressure,prescnvclt,ptop,2d,phy, +Instantaneous convective cloud bottom pressure,prescnvclb,pbot,2d,phy, +Time averaged low cloud top pressure,pres_avelct,ptopl,2d,phy, +Time averaged low cloud bottom pressure,pres_avelcb,pbotl,2d,phy, +Time averaged low cloud top temperature,tmp_avelct,Ttopl,2d,phy, +Time averaged middle cloud top pressure,pres_avemct,ptopm,2d,phy, +Time averaged middle cloud bottom pressure,pres_avemcb,pbotm,2d,phy, +Time averaged middle cloud top temperature,tmp_avemct,Ttopm,2d,phy, +Time averaged high cloud top pressure,pres_avehct,ptoph,2d,phy, +Time averaged high cloud bottom pressure,pres_avehcb,pboth,2d,phy, +Time averaged high cloud top temperature,tmp_avehct,Ttoph,2d,phy, +Boundary layer cloud cover,tcdc_avebndcl,pblcfr,2d,phy, +Cloud work function,cwork_aveclm,cldwork,2d,phy, +Accumulated total (base+surface) runoff,watr_acc,runoff,2d,phy, +Total water storage in aquifer,wa_acc,twa,2d,phy, +Accumulated evaporation of intercepted water,ecan_acc,tecan,2d,phy, +Accumulated plant transpiration,etran_acc,tetran,2d,phy, +Accumulated soil surface evaporation,edir_acc,tedir,2d,phy, +Shelter max temperature,t02max,maxtshltr,2d,phy,not GFS +Shelter max temperature,tmax_max2m,maxtshltr,2d,phy,GFS only +Shelter min temperature,t02min,mintshltr,2d,phy,not GFS +Shelter min temperature,tmin_min2m,mintshltr,2d,phy,GFS only +Shelter max rh,rh02max,maxrhshltr,2d,phy, +Shelter min rh,rh02min,minrhshltr,2d,phy, +Shelter max specific humidity,spfhmax_max2m,maxqshltr,2d,phy, +Shelter min specific humidity,spfhmin_min2m,minqshltr,2d,phy, +Ice thickness,icetk,dzice,2d,phy, +Wilting point,wilt,smcwlt,2d,phy, +Sunshine duration,sunsd_acc,suntime,2d,phy, +Field capacity,fldcp,fieldcapa,2d,phy, +Time averaged surface visible beam downward solar flux,vbdsf_ave,avisbeamswin,2d,phy, +Time averaged surface visible diffuse downward solar flux,vddsf_ave,avisdiffswin,2d,phy, +Time averaged surface near ir beam downward solar flux,nbdsf_ave,airbeamswin,2d,phy, +Time averaged surface near ir diffuse downward solar flux,nddsf_ave,airdiffswin,2d,phy, +Time averaged surface clear sky outgoing lw,csulf,alwoutc,2d,phy, +Time averaged toa clear sky outgoing lw,csulftoa,alwtoac,2d,phy, +Time averaged surface clear sky outgoing sw,csusf,aswoutc,2d,phy, +Time averaged toa clear sky outgoing sw,csusftoa,aswtoac,2d,phy, +Time averaged surface clear sky incoming lw,csdlf,alwinc,2d,phy, +Time averaged surface clear sky incoming sw,csdsf,aswinc,2d,phy, +Storm runoff,ssrun_acc,SSROFF,2d,phy, +Direct soil evaporation,evbs_ave,avgedir,2d,phy, +Canopy water evaporation,evcw_ave,avgecan,2d,phy, +Averaged precipitation advected heat flux,pah_ave,paha,2d,phy, +Instantaneous precipitation advected heat flux,pahi,pahi,2d,phy, +Plant transpiration,trans_ave,avgetrans,2d,phy, +Snow sublimation,sbsno_ave,avgesnow,2d,phy, +Total soil moisture,soilm,smstot,2d,phy, +Snow phase change heat flux,snohf,snopcx,2d,phy, +Precipitable water,pwat,pwat,2d,phy, +AQF chemical species,aalk1j,aalk1j,3d,dyn,aqfcmaq_on = True +,aalk2j,aalk2j,3d,dyn,aqfcmaq_on = True +,abnz1j,abnz1j,3d,dyn,aqfcmaq_on = True +,abnz2j,abnz2j,3d,dyn,aqfcmaq_on = True +,abnz3j,abnz3j,3d,dyn,aqfcmaq_on = True +,acaj,acaj,3d,dyn,aqfcmaq_on = True +,acet,acet,3d,dyn,aqfcmaq_on = True +,acli,acli,3d,dyn,aqfcmaq_on = True +,aclj,aclj,3d,dyn,aqfcmaq_on = True +,aclk,aclk,3d,dyn,aqfcmaq_on = True +,acors,acors,3d,dyn,aqfcmaq_on = True +,acro_primary,acro_primary,3d,dyn,aqfcmaq_on = True +,acrolein,acrolein,3d,dyn,aqfcmaq_on = True +,aeci,aeci,3d,dyn,aqfcmaq_on = True +,aecj,aecj,3d,dyn,aqfcmaq_on = True +,afej,afej,3d,dyn,aqfcmaq_on = True +,aglyj,aglyj,3d,dyn,aqfcmaq_on = True +,ah2oi,ah2oi,3d,dyn,aqfcmaq_on = True +,ah2oj,ah2oj,3d,dyn,aqfcmaq_on = True +,ah2ok,ah2ok,3d,dyn,aqfcmaq_on = True +,ah3opi,ah3opi,3d,dyn,aqfcmaq_on = True +,ah3opj,ah3opj,3d,dyn,aqfcmaq_on = True +,ah3opk,ah3opk,3d,dyn,aqfcmaq_on = True +,aiso1j,aiso1j,3d,dyn,aqfcmaq_on = True +,aiso2j,aiso2j,3d,dyn,aqfcmaq_on = True +,aiso3j,aiso3j,3d,dyn,aqfcmaq_on = True +,aivpo1j,aivpo1j,3d,dyn,aqfcmaq_on = True +,akj,akj,3d,dyn,aqfcmaq_on = True +,ald2,ald2,3d,dyn,aqfcmaq_on = True +,ald2_primary,ald2_primary,3d,dyn,aqfcmaq_on = True +,aldx,aldx,3d,dyn,aqfcmaq_on = True +,alvoo1i,alvoo1i,3d,dyn,aqfcmaq_on = True +,alvoo1j,alvoo1j,3d,dyn,aqfcmaq_on = True +,alvoo2i,alvoo2i,3d,dyn,aqfcmaq_on = True +,alvoo2j,alvoo2j,3d,dyn,aqfcmaq_on = True +,alvpo1i,alvpo1i,3d,dyn,aqfcmaq_on = True +,alvpo1j,alvpo1j,3d,dyn,aqfcmaq_on = True +,amgj,amgj,3d,dyn,aqfcmaq_on = True +,amnj,amnj,3d,dyn,aqfcmaq_on = True +,anai,anai,3d,dyn,aqfcmaq_on = True +,anaj,anaj,3d,dyn,aqfcmaq_on = True +,anh4i,anh4i,3d,dyn,aqfcmaq_on = True +,anh4j,anh4j,3d,dyn,aqfcmaq_on = True +,anh4k,anh4k,3d,dyn,aqfcmaq_on = True +,ano3i,ano3i,3d,dyn,aqfcmaq_on = True +,ano3j,ano3j,3d,dyn,aqfcmaq_on = True +,ano3k,ano3k,3d,dyn,aqfcmaq_on = True +,aolgaj,aolgaj,3d,dyn,aqfcmaq_on = True +,aolgbj,aolgbj,3d,dyn,aqfcmaq_on = True +,aorgcj,aorgcj,3d,dyn,aqfcmaq_on = True +,aothri,aothri,3d,dyn,aqfcmaq_on = True +,aothrj,aothrj,3d,dyn,aqfcmaq_on = True +,apah1j,apah1j,3d,dyn,aqfcmaq_on = True +,apah2j,apah2j,3d,dyn,aqfcmaq_on = True +,apah3j,apah3j,3d,dyn,aqfcmaq_on = True +,apcsoj,apcsoj,3d,dyn,aqfcmaq_on = True +,aseacat,aseacat,3d,dyn,aqfcmaq_on = True +,asij,asij,3d,dyn,aqfcmaq_on = True +,aso4i,aso4i,3d,dyn,aqfcmaq_on = True +,aso4j,aso4j,3d,dyn,aqfcmaq_on = True +,aso4k,aso4k,3d,dyn,aqfcmaq_on = True +,asoil,asoil,3d,dyn,aqfcmaq_on = True +,asqtj,asqtj,3d,dyn,aqfcmaq_on = True +,asvoo1i,asvoo1i,3d,dyn,aqfcmaq_on = True +,asvoo1j,asvoo1j,3d,dyn,aqfcmaq_on = True +,asvoo2i,asvoo2i,3d,dyn,aqfcmaq_on = True +,asvoo2j,asvoo2j,3d,dyn,aqfcmaq_on = True +,asvoo3j,asvoo3j,3d,dyn,aqfcmaq_on = True +,asvpo1i,asvpo1i,3d,dyn,aqfcmaq_on = True +,asvpo1j,asvpo1j,3d,dyn,aqfcmaq_on = True +,asvpo2i,asvpo2i,3d,dyn,aqfcmaq_on = True +,asvpo2j,asvpo2j,3d,dyn,aqfcmaq_on = True +,asvpo3j,asvpo3j,3d,dyn,aqfcmaq_on = True +,atij,atij,3d,dyn,aqfcmaq_on = True +,atol1j,atol1j,3d,dyn,aqfcmaq_on = True +,atol2j,atol2j,3d,dyn,aqfcmaq_on = True +,atol3j,atol3j,3d,dyn,aqfcmaq_on = True +,atrp1j,atrp1j,3d,dyn,aqfcmaq_on = True +,atrp2j,atrp2j,3d,dyn,aqfcmaq_on = True +,axyl1j,axyl1j,3d,dyn,aqfcmaq_on = True +,axyl2j,axyl2j,3d,dyn,aqfcmaq_on = True +,axyl3j,axyl3j,3d,dyn,aqfcmaq_on = True +,pm25ac,pm25ac,3d,dyn,aqfcmaq_on = True +,pm25at,pm25at,3d,dyn,aqfcmaq_on = True +,pm25co,pm25co,3d,dyn,aqfcmaq_on = True +Instantaneous aod550 optical depth,aod550,aod550,2d,phy,rdaod = True +,du_aod550,du_aod550,2d,phy,rdaod = True +,ss_aod550,ss_aod550,2d,phy,rdaod = True +,su_aod550,su_aod550,2d,phy,rdaod = True +,oc_aod550,oc_aod550,2d,phy,rdaod = True +,bc_aod550,bc_aod550,2d,phy,rdaod = True diff --git a/docs/UFS_unified_variables_table.rst b/docs/UFS_unified_variables_table.rst new file mode 100644 index 000000000..91294e36e --- /dev/null +++ b/docs/UFS_unified_variables_table.rst @@ -0,0 +1,13 @@ +******************************** +Unified Model Variables from UFS +******************************** + +Unified model variables read by UPP (column 1), the name of the variable in the model NetCDF file (column 2), +corresponding UPP internal name that the variable is read in as (column 3), variable dimension (column 4), +whether the variable resides in the dyn (atm) or phy (sfc) NetCDF file, and relevant notes such as +dependencies (column 5). + +.. csv-table:: + :file: UFS_unified_variables_table.csv + :widths: 25, 15, 15, 10, 15, 20 + :header-rows: 1 diff --git a/scripts/run_upp b/scripts/run_upp index ee2c04e37..39cc9a986 100755 --- a/scripts/run_upp +++ b/scripts/run_upp @@ -22,6 +22,10 @@ set -x # October 2020: Modified to remove WRF and grib1; Add FV3LAM # Updates for cmake build, Change exec name # +# May 2022: Modified to remove binarynemsiompiio; +# Added netcdfpara; Removed netcdf; +# Changed UPP directory name and path +# #-------------------------------------------------------- # # This script runs the stand-alone community version of UPP @@ -31,11 +35,11 @@ set -x #---------------------------------------------------------------------------------- #--- USER EDIT DESCIPTIONS -------------------------------------------------------- # See UPP User's Guide for more information -# https://upp.readthedocs.io/en/ufs-v2.0.0/ +# https://upp.readthedocs.io/en/latest/ #---------------------------------------------------------------------------------- # TOP_DIR : Top level directory for building and running UPP # DOMAINPATH : Working directory for this run. -# UNIPOST_HOME : Location of the EMC-post directory +# UPP_HOME : Location of the UPP directory # POSTEXEC : Location of the UPP executable # modelDataPath : Location of the model output data files to be post-processed # txtCntrlFile : Name and location of the flat text file that lists desired fields for output @@ -44,8 +48,8 @@ set -x # LAM (Limited Area Model): postxconfig-NT-fv3lam.txt # model : What model is used? GFS or LAM (Limited Area Model) # inFormat : Format of the model data -# GFS - "binarynemsiompiio" or "netcdf" -# LAM - "netcdf" +# GFS - "netcdfpara" +# LAM - "netcdfpara" # outFormat : Format of output from UPP # grib2 # startdate : Forecast start date (YYYYMMDDHH) @@ -64,8 +68,8 @@ set -x # as recommended in the users guide where UPP will output. export TOP_DIR=/home/username export DOMAINPATH=${TOP_DIR}/test_case -export UNIPOST_HOME=${TOP_DIR}/EMC_post -export POSTEXEC=${UNIPOST_HOME}/bin +export UPP_HOME=${TOP_DIR}/UPP +export POSTEXEC=${UPP_HOME}/tests/install/bin export modelDataPath=/path/to/model/data export txtCntrlFile=${DOMAINPATH}/parm/postxconfig-NT-GFS.txt @@ -73,7 +77,7 @@ export txtCntrlFile=${DOMAINPATH}/parm/postxconfig-NT-GFS.txt export model="GFS" # Set input format from model and ouput format from UPP -export inFormat="netcdf" +export inFormat="netcdfpara" export outFormat="grib2" # Set date/time information @@ -92,9 +96,6 @@ export RUN_COMMAND="mpirun -np 1 ${POSTEXEC}/upp.x " #export RUN_COMMAND="mpirun.lsf ${POSTEXEC}/upp.x " #export RUN_COMMAND="mpiexec_mpt ${POSTEXEC}/upp.x " -# DEBUG command example found further below, search "DEBUG" - - # Shouldn't need to edit these. # tmmark is an variable used as the file extention of the output # filename .GrbF is used if this variable is not set @@ -135,17 +136,17 @@ else fi if [ ${model} == "GFS" ]; then - if [[ ${inFormat} == "binarynemsiompiio" ]]; then - echo "Check: You are using 'model' 'inFormat'!" - elif [[ ${inFormat} == "netcdf" ]]; then + if [ ${inFormat} == "netcdfpara" ]; then echo "Check: You are using 'model' 'inFormat'!" else - echo "ERROR: 'inFormat' must be 'binarynemsiompiio' or 'netcdf' for GFS model output. Exiting... " + echo "ERROR: 'inFormat' must be 'netcdfpara' for GFS model output. Exiting... " exit 1 fi -elif [[ ${model} == "LAM" ]]; then - if [[ ${inFormat} != "netcdf" ]]; then - echo "ERROR: 'inFormat' must be 'netcdf' for LAM model output. Exiting... " +elif [ ${model} == "LAM" ]; then + if [ ${inFormat} == "netcdfpara" ]; then + echo "Check: You are using 'model' 'inFormat'!" + else + echo "ERROR: 'inFormat' must be 'netcdfpara' for LAM model output. Exiting... " exit 1 fi fi @@ -194,17 +195,17 @@ fi # file which defines the GRIB2 table values if [[ ${outFormat} == "grib2" ]]; then ln -fs ${txtCntrlFile} postxconfig-NT.txt - ln -fs ${UNIPOST_HOME}/parm/post_avblflds.xml post_avblflds.xml - ln -fs ${UNIPOST_HOME}/parm/params_grib2_tbl_new params_grib2_tbl_new + ln -fs ${UPP_HOME}/parm/post_avblflds.xml post_avblflds.xml + ln -fs ${UPP_HOME}/parm/params_grib2_tbl_new params_grib2_tbl_new fi # Link microphysics tables - code will use based on mp_physics option # found in data -ln -fs ${UNIPOST_HOME}/parm/nam_micro_lookup.dat . -ln -fs ${UNIPOST_HOME}/parm/hires_micro_lookup.dat . +ln -fs ${UPP_HOME}/parm/nam_micro_lookup.dat . +ln -fs ${UPP_HOME}/parm/hires_micro_lookup.dat . # link coefficients for crtm2 (simulated synthetic satellites) -CRTMDIR=${UNIPOST_HOME}/crtm/fix +CRTMDIR=${UPP_HOME}/crtm/fix ln -fs $CRTMDIR/EmisCoeff/IR_Water/Big_Endian/Nalli.IRwater.EmisCoeff.bin ./ ln -fs $CRTMDIR/EmisCoeff/MW_Water/Big_Endian/FASTEM4.MWwater.EmisCoeff.bin ./ ln -fs $CRTMDIR/EmisCoeff/MW_Water/Big_Endian/FASTEM5.MWwater.EmisCoeff.bin ./ @@ -289,17 +290,14 @@ echo 'YY' $YY # Create model file name (inFileName) if [ ${model} == "GFS" ]; then - if [[ ${inFormat} == "binarynemsiompiio" ]]; then - inFileName=${modelDataPath}/atmf${fhour}.nemsio - flxFileName=${modelDataPath}/sfcf${fhour}.nemsio - elif [ ${inFormat} == "netcdf" ]; then - inFileName=${modelDataPath}/atmf${fhour}.nc - flxFileName=${modelDataPath}/sfcf${fhour}.nc + if [ ${inFormat} == "netcdfpara" ]; then + inFileName=${modelDataPath}/gfs.t00z.atmf${fhour}.nc + flxFileName=${modelDataPath}/gfs.t00z.sfcf${fhour}.nc fi elif [ ${model} == "LAM" ]; then - if [ ${inFormat} == "netcdf" ]; then + if [ ${inFormat} == "netcdfpara" ]; then inFileName=${modelDataPath}/dynf${fhour}.nc - flxFileName=${modelDataPath}/dynf${fhour}.nc + flxFileName=${modelDataPath}/phyf${fhour}.nc fi fi From 9ede326b9a689ce3738ed15d59052051324fadcf Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Tue, 24 May 2022 08:51:14 -0600 Subject: [PATCH 061/107] Documentation changes (#511) * Remove mention of Guassian grid for FV3 * Fix latest change to table * Remove app-specific tables --- docs/MRW_GFSPRS_table.csv | 188 ------------------- docs/MRW_GFSPRS_table.rst | 11 -- docs/Running.rst | 4 - docs/SRW_BGDAWP_table.csv | 258 --------------------------- docs/SRW_BGDAWP_table.rst | 11 -- docs/SRW_BGRD3D_table.csv | 217 ---------------------- docs/SRW_BGRD3D_table.rst | 11 -- docs/UFS_unified_variables_table.csv | 2 +- 8 files changed, 1 insertion(+), 701 deletions(-) delete mode 100644 docs/MRW_GFSPRS_table.csv delete mode 100644 docs/MRW_GFSPRS_table.rst delete mode 100644 docs/SRW_BGDAWP_table.csv delete mode 100644 docs/SRW_BGDAWP_table.rst delete mode 100644 docs/SRW_BGRD3D_table.csv delete mode 100644 docs/SRW_BGRD3D_table.rst diff --git a/docs/MRW_GFSPRS_table.csv b/docs/MRW_GFSPRS_table.csv deleted file mode 100644 index db595d16d..000000000 --- a/docs/MRW_GFSPRS_table.csv +++ /dev/null @@ -1,188 +0,0 @@ -No.,Field Description,Level Type,Short Name,nlvl -1,Height on pressure surface,isobaric,HGT,57 -2,Temperature on pressure surface,isobaric,TMP,57 -3,Specific humidity on pressure surface,isobaric,SPFH,57 -4,Relative humidity on pressure surface,isobaric,RH,57 -5,U component of wind on pressure surface,isobaric,UGRD,57 -6,V component of wind on pressure surface,isobaric,VGRD,57 -7,Vertical velocity on pressure surface,isobaric,DZDT,45 -8,Omega on pressure surface,isobaric,VVEL,45 -9,Absolute vorticity on pressure surface,isobaric,ABSV,57 -10,Ozone on pressure surface,isobaric,O3MR,32 -11,Cloud water mixing ratio on pressure surface,isobaric,CLWMR,39 -12,Cloud ice mixing ratio on pressure surface,isobaric,ICMR,39 -13,Rain mixing ratio on pressure surface,isobaric,RWMR,39 -14,Snow mixing ratio on pressure surface,isobaric,SNMR,39 -15,Graupel mixing ratio on pressure surface,isobaric,GRLE,39 -16,Composite radar reflectivity,entire atmosphere,REFC,1 -17,Mesinger (Membrane) sea level pressure,mean sea level,MSLET,1 -18,Shuell sea level pressure,mean sea level,PRES,1 -19,Temperature at 2m,height agl,TMP,1 -20,Specific humidity at 2m,height agl,SPFH,1 -21,Dew point temperature at 2m,height agl,DPT,1 -22,Relative humidity at 2m,height agl,RH,1 -23,U component of wind at 10m,height agl,UGRD,1 -24,V component of wind at 10m,height agl,VGRD,1 -25,Surface Pressure,surface,PRES,1 -26,Terrain height,surface,HGT,1 -27,Skin temperature,surface,TMP,1 -28,Soil temperature in between each soil layer,depth below land surface,TSOIL,4 -29,Soil moisture in between each soil layer,depth below land surface,SOILW,4 -30,Liquid soil moisture in between each soil layer,depth below land surface,SOILL,4 -31,Plant canopy surface water,surface,CNWAT,1 -32,Snow water equivalent,surface,WEASD,1 -33,Potential evaporation,surface,PEVPR,1 -34,Ice thickness,surface,ICETK,1 -35,Snow depth,surface,SNOD,1 -36,Wilting point,surface,WILT,1 -37,Field Capacity,surface,FLDCP,1 -38,Surface lifted index,surface,LFTX,1 -39,Best lifted index (4 layer),surface,4LFTX,1 -40,Parcel lifted index,pressure above ground,PLI,1 -41,Convective available potential energy,surface,CAPE,1 -42,Best cape,pressure above ground,CAPE,1 -43,Unstable cape,pressure above ground,CAPE,1 -44,Convective inhibition,surface,CIN,1 -45,Best cin,pressure above ground,CIN,1 -46,Unstable cin,pressure above ground,CIN,1 -47,Column integrated precipitable water,entire atmosphere,PWAT,1 -48,Helicity,height agl,HLCY,1 -49,U component storm motion,height agl,USTM,1 -50,V component storm motion,height agl,VSTM,1 -51,Accumulated total precipitation,surface,APCP,1 -52,Accumulated convective precipitation,surface,ACPCP,1 -53,Accumulated grid-scale precipitation,surface,NCPCP,1 -54,Continuous accumulated total precipitation,surface,APCP,1 -55,Continuous accumulated convective precipitation,surface,ACPCP,1 -56,Continuous accumulated grid-scale precipitation,surface,NCPCP,1 -57,Categorical rain (instantaneous),surface,CRAIN,1 -58,Categorical snow (instantaneous),surface,CSNOW,1 -59,Categorical ice pellets (instantaneous),surface,CICEP,1 -60,Categorical freezing rain (instantaneous),surface,CFRZR,1 -61,Categorical rain (average),surface,CRAIN,1 -62,Categorical snow (average),surface,CSNOW,1 -63,Categorical ice pellets (average),surface,CICEP,1 -64,Categorical freezing rain (average),surface,CFRZR,1 -65,Average precipitation rate,surface,PRATE,1 -66,Average convective precipitation rate,surface,CPRAT,1 -67,Average low cloud fraction,low cloud layer,TCDC,1 -68,Average mid cloud fraction,mid cloud layer,TCDC,1 -69,Average high cloud fraction,high cloud layer,TCDC,1 -70,Average total cloud fraction,entire atmosphere,TCDC,1 -71,Visibility,surface,VIS,1 -72,Average incoming surface shortwave radiation,surface,DSWRF,1 -73,Average clear sky incoming UV-B shortwave,surface,CDUVB,1 -74,Average incoming UV-B shortwave,surface,DUVB,1 -75,Average incoming surface longwave radiation,surface,DLWRF,1 -76,Average outgoing surface shortwave radiation,surface,USWRF,1 -77,Average outgoing surface longwave radiation,surface,ULWRF,1 -78,Average outgoing model top shortwave radiation,top of atmosphere,USWRF,1 -79,Average outgoing model top longwave radiation,top of atmosphere,ULWRF,1 -80,Total spectrum brightness temperature,top of atmosphere,BRTMP,1 -81,Roughness length,surface,SFCR,1 -82,Friction velocity,surface,FRICV,1 -83,Average surface sensible heat flux,surface,SHTFL,1 -84,Average ground heat flux,surface,GFLUX,1 -85,Average surface latent heat flux,surface,LHTFL,1 -86,Average surface zonal momentum flux,surface,UFLX,1 -87,Average surface meridional momentum flux,surface,VFLX,1 -88,Land sea mask (land=1 sea=0),surface,LAND,1 -89,Sea ice mask,surface,ICEC,1 -90,Average albedo,surface,ALBDO,1 -91,Pressure at tropopause,tropopause,PRES,1 -92,Height at tropopause,tropopause,HGT,1 -93,Temperature at tropopause,tropopause,TMP,1 -94,U component of wind at tropopause,tropopause,UGRD,1 -95,V component of wind at tropopause,tropopause,VGRD,1 -96,Wind shear at tropopause,tropopause,VWSH,1 -97,Temperature at flight levels,height msl,TMP,8 -98,U component of wind at flight levels,height msl,UGRD,8 -99,V component of wind at flight levels,height msl,VGRD,8 -100,Temperature at flight levels,height agl,TMP,2 -101,U component of wind at flight levels,height agl,UGRD,6 -102,V component of wind at flight levels,height agl,VGRD,6 -103,Pressure at flight levels,height agl,PRES,1 -104,Specific humidity at flight levels,height agl,SPFH,1 -105,Freezing level height,0 degree isotherm,HGT,1 -106,Freezing level relative humidity,0 degree isotherm,RH,1 -107,Highest freezing level height,highest tropospheric frz lvl,HGT,1 -108,Highest freezing level relative humidity,highest tropospheric frz lvl,RH,1 -109,Temperature in layer between pressure levels,pressure layer agl,TMP,6 -110,Dew point temperature in layer between pressure levels,pressure layer agl,DPT,1 -111,Specific humidity in layer between pressure levels,pressure layer agl,SPFH,6 -112,Relative humidity in layer between pressure levels,pressure layer agl,RH,6 -113,Precipitable water in layer between pressure levels,pressure layer agl,PWAT,1 -114,U component of wind in layer between pressure levels,pressure layer agl,UGRD,6 -115,V component of wind in layer between pressure levels,pressure layer agl,VGRD,6 -116,Relative humidity on sigma level 0.33-1.0,sigma level,RH,1 -117,Relative humidity on sigma level 0.44-1.0,sigma level,RH,1 -118,Relative humidity on sigma level 0.72-0.94,sigma level,RH,1 -119,Relative humidity on sigma level 0.44-0.72,sigma level,RH,1 -120,Temperature on sigma level 0.9950,sigma level,TMP,1 -121,Potential temperature on sigma level 0.9950,sigma level,POT,1 -122,Relative humidity on sigma level 0.9950,sigma level,RH,1 -123,U component of wind on sigma level 0.9950,sigma level,UGRD,1 -124,V component of wind on sigma level 0.9950,sigma level,VGRD,1 -125,Omega on sigma level 0.9950,sigma level,VVEL,1 -126,Maximum wind pressure level,max wind,PRES,1 -127,Maximum wind height,max wind,HGT,1 -128,U component of maximum wind,max wind,UGRD,1 -129,V component of maximum wind,max wind,VGRD,1 -130,Temperature at maximum wind level,max wind,TMP,1 -131,Planetary boundary layer height,surface,HPBL,1 -132,Convective cloud bottom pressure,convective cloud bottom,PRES,1 -133,Convective cloud top pressure,convective cloud top,PRES,1 -134,Average low cloud bottom pressure,low cloud bottom,PRES,1 -135,Average mid cloud bottom pressure,mid cloud bottom,PRES,1 -136,Average high cloud bottom pressure,high cloud bottom,PRES,1 -137,Average low cloud top pressure,low cloud top,PRES,1 -138,Average mid cloud top pressure,mid cloud top,PRES,1 -139,Average high cloud top pressure,high cloud top,PRES,1 -140,Average low cloud top temperature,low cloud top,TMP,1 -141,Average mid cloud top temperature,mid cloud top,TMP,1 -142,Average high cloud top temperature,high cloud top,TMP,1 -143,Total cloud fraction on convective cloud layer,entire atmosphere,TCDC,1 -144,Column integrated cloud water,entire atmosphere,CWAT,1 -145,Total column relative humidity,entire atmosphere,RH,1 -146,Total column ozone,entire atmosphere,TOZNE,1 -147,Surface wind gust,surface,GUST,1 -148,LCL level pressure,pressure layer agl,PLPL,1 -149,Cloud fraction on pressure surface,isobaric,TCDC,39 -150,U component of wind on theta surface,isentropic,UGRD,1 -151,V component of wind on theta surface,isentropic,VGRD,1 -152,Temperature on theta surface,isentropic,TMP,1 -153,Potential vorticity on theta surface,isentropic,PVORT,1 -154,Montgomery stream function on theta surface,isentropic,MNTSF,1 -155,U component of wind on constant PV surface,potential vorticity surface,UGRD,8 -156,V component of wind on constant PV surface,potential vorticity surface,VGRD,8 -157,Temperature on constant PV surface,potential vorticity surface,TMP,8 -158,Height on constant PV surface,potential vorticity surface,HGT,8 -159,Pressure on constant PV surface,potential vorticity surface,PRES,8 -160,Wind shear on constant PV surface,potential vorticity surface,VWSH,8 -161,Average planetary boundary layer cloud fraction,boundary layer cloud layer,TCDC,1 -162,Cloud work function,entire atmosphere,CWORK,1 -163,Average zonal gravity wave stress,surface,U-GWD,1 -164,Average meridional gravity wave stress,surface,V-GWD,1 -165,Average water runoff,surface,WATR,1 -166,Maximum 2m temperature,height agl,TMAX,1 -167,Minimum 2m temperature,height agl,TMIN,1 -168,ICAO height at maximum wind level,max wind,ICAHT,1 -169,ICAO height at tropopause,tropopause,ICAHT,1 -170,Sunshine duration,surface,SUNSD,1 -171,Transport u component of wind,planetary boundary layer,UGRD,1 -172,Transport v component of wind,planetary boundary layer,VGRD,1 -173,Ventilation rate,planetary boundary layer,VRATE,1 -174,Haines index,surface,HINDEX,1 -175,Fraction of frozen precipitation,surface,CPOFP,1 -176,Apparent temperature at 2m,height agl,APTMP,1 -177,Instantaneous precipitation rate,surface,PRATE,1 -178,Convective precipitation rate,surface,CPRAT,1 -179,Snow mixing ratio on model surface,hybrid,SNMR,1 -180,Rain mixing ratio on model surface,hybrid,RWMR,1 -181,Cloud water mixing ratio on model surface,hybrid,CLWMR,1 -182,Cloud ice mixing ratio on model surface,hybrid,ICMR,1 -183,Graupel mixing ratio on model surface,hybrid,GRLE,1 -184,Ice growth rate,height msl,ICEG,1 -185,Soil type,surface,SOTYP,1 -186,Vegetation cover,surface,VEG,1 -187,Sea ice skin temperature,surface,ICETMP,1 diff --git a/docs/MRW_GFSPRS_table.rst b/docs/MRW_GFSPRS_table.rst deleted file mode 100644 index a667226bf..000000000 --- a/docs/MRW_GFSPRS_table.rst +++ /dev/null @@ -1,11 +0,0 @@ -*************************************************** -Fields Requested in the UPP Parameter Table for MRW -*************************************************** - -Field description (column 1), level type as defined by WMO (column 2), abbreviated names -as they appear in the Grib2 output file (column 3), and number of levels output (column 4). - -.. csv-table:: - :file: MRW_GFSPRS_table.csv - :widths: 5, 40, 30, 15, 10 - :header-rows: 1 diff --git a/docs/Running.rst b/docs/Running.rst index 90501f570..c52db193f 100644 --- a/docs/Running.rst +++ b/docs/Running.rst @@ -119,7 +119,3 @@ Upon a successful run, UPP will generate output files for each forecast hour in When executed with the provided run script, UPP provides log files in the post-processor working directory named :bolditalic:`upp.fHHH.out`, where :bolditalic:`HHH` is the forecast hour. These log files may be consulted for further run-time information in the event of an error. - -.. note:: - FV3 output is on a Guassian grid. To interpolate to a lat/lon or other projection, use wgrib2 (see - :ref:`Examples-of-wgrib2` section). diff --git a/docs/SRW_BGDAWP_table.csv b/docs/SRW_BGDAWP_table.csv deleted file mode 100644 index 6426ec95b..000000000 --- a/docs/SRW_BGDAWP_table.csv +++ /dev/null @@ -1,258 +0,0 @@ -No.,Field Description,Level Type,Short Name,nlvl -1,Pressure on model surface,hybrid,PRES,2 -2,Height on model surface,hybrid,HGT,2 -3,Temperature on model surface,hybrid,TMP,2 -4,Potential temperature on model surface,hybrid,POT,2 -5,Dew point temperature on model surface,hybrid,DPT,2 -6,Specific humidity on model surface,hybrid,SPFH,1 -7,Relative humidity on model surface,hybrid,RH,1 -8,U component of wind on model surface,hybrid,UGRD,2 -9,V component of wind on model surface,hybrid,VGRD,2 -10,Omega on model surface,hybrid,VVEL,1 -11,Vertical velocity on model surface,hybrid,DZDT,1 -12,Turbulent kinetic energy on model surface,hybrid,TKE,2 -13,Rain mixing ratio on model surface,hybrid,RWMR,2 -14,Snow mixing ratio on model surface,hybrid,SNMR,2 -15,Rimming factor for Ferrier scheme on model surface,hybrid,RIME,2 -16,Total condensate for Ferrier scheme on mode surface,hybrid,TCOND,2 -17,Radar reflectivity on model surface,hybrid,REFD,2 -18,Master length scale on model surface,hybrid,BMIXL,1 -19,Height on pressure surface,isobaric,HGT,46 -20,Temperature on pressure surface,isobaric,TMP,46 -21,Dew point temperature on pressure surface,isobaric,DPT,46 -22,Specific humidity on pressure surface,isobaric,SPFH,46 -23,Relative humidity on pressure surface,isobaric,RH,46 -24,Moisture convergence on pressure surface,isobaric,MCONV,2 -25,U component of wind on pressure surface,isobaric,UGRD,46 -26,V component of wind on pressure surface,isobaric,VGRD,46 -27,Vertical velocity on pressure surface,isobaric,DZDT,46 -28,Omega on pressure surface,isobaric,VVEL,46 -29,Absolute vorticity on pressure surface,isobaric,ABSV,10 -30,Geostrophic streamfunction on pressure surface,isobaric,STRM,2 -31,Turbulent kinetic energy on pressure surface,isobaric,TKE,46 -32,Cloud ice mixing ratio on pressure surface,isobaric,ICMR,46 -33,Cloud water mixing ratio on pressure surface,isobaric,CLWMR,46 -34,Rain mixing ratio on pressure surface,isobaric,RWMR,46 -35,Graupel mixing ratio on pressure surface,isobaric,GRLE,46 -36,Snow mixing ratio on pressure surface,isobaric,SNMR,46 -37,Rimming factor for Ferrier scheme on pressure surface,isobaric,RIME,46 -38,Mesinger (Membrane) sea level pressure,mean sea level,MSLET,1 -39,Shuell sea level pressure,mean sea level,PRES,1 -40,Temperature at 2m,height agl,TMP,1 -41,Specific humidity at 2m,height agl,SPFH,1 -42,Dew point temperature at 2m,height agl,DPT,1 -43,Relative humidity at 2m,height agl,RH,1 -44,U component of wind at 10m,height agl,UGRD,1 -45,V component of wind at 10m,height agl,VGRD,1 -46,Surface wind gust,surface,GUST,1 -47,LCL level pressure,pressure layer agl,PLPL,1 -48,Potential temperature at 10m,height agl,POT,1 -49,Specific humidity at 10m,height agl,SPFH,1 -50,Surface Pressure,surface,PRES,1 -51,Terrain height,surface,HGT,1 -52,Skin potential temperature,surface,POT,1 -53,Skin specific humidity,surface,SPFH,1 -54,Skin temperature,surface,TMP,1 -55,Soil temperature at 3m,depth below land surface,TSOIL,1 -56,Soil temperature in between each soil layer,depth below land surface,TSOIL,4 -57,Soil moisture in between each soil layer,depth below land surface,SOILW,4 -58,Liquid soil moisture in between each soil layer,depth below land surface,SOILL,4 -59,Total soil moisture,depth below land surface,SOILM,1 -60,Plant canopy surface water,surface,CNWAT,1 -61,Snow water equivalent,surface,WEASD,1 -62,Snow cover in percentage,surface,SNOWC,1 -63,Heat exchange coeff at surface,surface,SFEXC,1 -64,Vegetation cover,surface,VEG,1 -65,Vegetation type,surface,VGTYP,1 -66,Soil type,surface,SOTYP,1 -67,Snow free albedo,surface,SNFALB,1 -68,Maximum snow albedo,surface,MXSALB,1 -69,Canopy conductance,surface,CCOND,1 -70,Canopy conductance - solar component,surface,RCS,1 -71,Canopy conductance - temperature component,surface,RCT,1 -72,Canopy conductance - humidity component,surface,RCQ,1 -73,Canopy conductance - soil component,surface,RCSOL,1 -74,Soil moist reference,surface,SMREF,1 -75,Soil moist porosity,surface,POROS,1 -76,Number of root layers,surface,RLYRS,1 -77,Minimum stomatal resistance,surface,RSMIN,1 -78,Snow depth,surface,SNOD,1 -79,Air dry soil moisture,surface,SMDRY,1 -80,Soil moist wilting point,surface,WILT,1 -81,Soil moisture availability,depth below land surface,MSTAV,1 -82,Ground heat flux (instantaneous),surface,GFLUX,1 -83,Lifted index—surface based (500-1000 hPa),isobaric,LFTX,1 -84,Lifted index—best,pressure above ground,4LFTX,1 -85,Lifted index—parcel,pressure above ground,PLI,1 -86,Convective available potential energy,surface,CAPE,1 -87,Best cape,pressure above ground,CAPE,1 -88,Mixed layer cape,pressure above ground,CAPE,1 -89,Unstable cape,pressure above ground,CAPE,1 -90,Convective inhibition,surface,CIN,1 -91,Best cin,pressure above ground,CIN,1 -92,Mixed layer cin,pressure above ground,CIN,1 -93,Unstable cin,pressure above ground,CIN,1 -94,Column integrated precipitable water,entire atmosphere,PWAT,1 -95,Helicity,height agl,HLCY,2 -96,U component storm motion,height agl,USTM,1 -97,V component storm motion,height agl,VSTM,1 -98,Accumulated total precipitation,surface,APCP,1 -99,Accumulated grid-scale precipitation,surface,NCPCP,1 -100,Continuous accumulated total precipitation,surface,APCP,1 -101,Continuous accumulated grid-scale precipitation,surface,NCPCP,1 -102,Accumulated snowfall,surface,WEASD,1 -103,Accumulated total snow melt,surface,SNOM,1 -104,Accumulated storm surface runoff,surface,SSRUN,1 -105,Accumulated base flow runoff,surface,BGRUN,1 -106,Average water runoff,surface,WATR,1 -107,Categorical rain (instantaneous),surface,CRAIN,1 -108,Categorical snow (instantaneous),surface,CSNOW,1 -109,Categorical ice pellets (instantaneous),surface,CICEP,1 -110,Categorical freezing rain (instantaneous),surface,CFRZR,1 -111,Precipitation rate (instantaneous),surface,PRATE,1 -112,Fraction of frozen precipitation,surface,CPOFP,1 -113,Cloud water mixing ratio on model surface,hybrid,CLWMR,2 -114,Cloud ice mixing ratio on model surface,hybrid,ICMR,2 -115,Graupel mixing ratio on model surface,hybrid,GRLE,1 -116,Cloud fraction on model surface,hybrid,TCDC,2 -117,Low level cloud fraction,low cloud layer,LCDC,1 -118,Mid level cloud fraction,mid cloud layer,MCDC,1 -119,High level cloud fraction,high cloud layer,HCDC,1 -120,Total cloud fraction,entire atmosphere,TCDC,1 -121,Total cloud fraction (time-averaged),entire atmosphere,TCDC,1 -122,stratospheric cloud fraction (time-averaged),entire atmosphere,CDLYR,1 -123,Visibility,surface,VIS,1 -124,GSD visibility,cloud top,VIS,1 -125,Above-ground height of LCL,adiabatic condensation from surface,HGT,1 -126,Pressure of LCL,adiabatic condensation from surface,PRES,1 -127,Outgoing surface shortwave radiation (instantaneous),surface,USWRF,1 -128,Outgoing surface longwave radiation (instantaneous),surface,ULWRF,1 -129,Incoming surface shortwave radiation (time-averaged),surface,DSWRF,1 -130,Incoming surface longwave radiation (time-averaged),surface,DLWRF,1 -131,Outgoing surface shortwave radiation (time-averaged),surface,USWRF,1 -132,Outgoing surface longwave radiation (time-averaged),surface,ULWRF,1 -133,Outgoing model top shortwave radiation (time-averaged),top of atmosphere,USWRF,1 -134,Outgoing model top longwave radiation (time-averaged),top of atmosphere,ULWRF,1 -135,Outgoing longwave at top of atmosphere (instantaneous),top of atmosphere,ULWRF,1 -136,Total spectrum brightness temperature,top of atmosphere,BRTMP,1 -137,Incoming surface shortwave radiation (instantaneous),surface,DSWRF,1 -138,Incoming surface longwave radiation (instantaneous),surface,DLWRF,1 -139,Clear sky incoming surface shortwave (instantaneous),surface,CSDSF,1 -140,Roughness length,surface,SFCR,1 -141,Friction velocity,surface,FRICV,1 -142,Surface drag coefficient,surface,CD,1 -143,Surface u wind stress,surface,UFLX,1 -144,Surface v wind stress,surface,VFLX,1 -145,Surface sensible heat flux (time-averaged),surface,SHTFL,1 -146,Ground heat flux (time-averaged),surface,GFLUX,1 -147,Snow phase change heat flux (time-averaged),surface,SNOHF,1 -148,Surface latent heat flux (time-averaged),surface,LHTFL,1 -149,Accumulated surface evaporation,surface,EVP,1 -150,Accumulated potential evaporation,surface,PEVAP,1 -151,Surface sensible heat flux (instantaneous),surface,SHTFL,1 -152,Surface latent heat flux (instantaneous),surface,LHTFL,1 -153,Latitude,surface,NLAT,1 -154,Longitude,surface,ELON,1 -155,Land sea mask (land=1 sea=0),surface,LAND,1 -156,Sea ice mask,surface,ICEC,1 -157,Surface albedo,surface,ALBDO,1 -158,Sea surface temperature,surface,WTMP,1 -159,Pressure at tropopause,tropopause,PRES,1 -160,Height at tropopause,tropopause,HGT,1 -161,Temperature at tropopause,tropopause,TMP,1 -162,Potential temperature at tropopause,tropopause,POT,1 -163,U component of wind at tropopause,tropopause,UGRD,1 -164,V component of wind at tropopause,tropopause,VGRD,1 -165,Wind shear at tropopause,tropopause,VWSH,1 -166,U component of 0-6km level wind shear,height agl,VUCSH,1 -167,V-component of 0-6km level wind shear,height agl,VVCSH,1 -168,Temperature at flight levels,height msl,TMP,10 -169,Temperature at flight levels,height agl,TMP,4 -170,U component of wind at flight levels,height msl,UGRD,10 -171,U component of wind at flight levels,height agl,UGRD,4 -172,V component of wind at flight levels,height msl,VGRD,10 -173,V component of wind at flight levels,height agl,VGRD,4 -174,Specific humidity at flight levels,height msl,SPFH,1 -175,Specific humidity at flight levels,height agl,SPFH,4 -176,Pressure at flight levels,height agl,PRES,4 -177,Freezing level height,0 degree isotherm,HGT,1 -178,Freezing level relative humidity,0 degree isotherm,RH,1 -179,Highest freezing level height,highest tropospheric frz lvl,HGT,1 -180,Lowest wet bulb zero height,lowest lvl wet bulb zero,HGT,1 -181,Pressure in boundary layer (30 mb means),pressure agl,PRES,6 -182,Temperature in boundary layer (30 mb means),pressure agl,TMP,6 -183,Potential temperature in boundary layer (30 mb means),pressure agl,POT,1 -184,Dew point temperature in boundary layer (30 mb means),pressure agl,DPT,1 -185,Specific humidity in boundary layer (30 mb means),pressure agl,SPFH,6 -186,RH in boundary layer (30 mb means),pressure agl,RH,6 -187,Moisture convergence in boundary layer (30 mb means),pressure agl,MCONV,1 -188,Precipitable water in boundary layer (30 mb means),pressure agl,PWAT,1 -189,U wind in boundary layer (30 mb means),pressure agl,UGRD,6 -190,V wind in boundary layer (30 mb means),pressure agl,VGRD,6 -191,Omega in boundary layer (30 mb means),pressure agl,VVEL,3 -192,Cloud bottom pressure,cloud base,PRES,1 -193,Cloud top pressure,cloud top,PRES,1 -194,Cloud top temperature,cloud top,TMP,1 -195,Cloud bottom height (above MSL),cloud base,HGT,1 -196,Cloud top height (above MSL),cloud top,HGT,1 -197,Maximum wind pressure level,max wind,PRES,1 -198,Maximum wind height,max wind,HGT,1 -199,U-component of maximum wind,max wind,UGRD,1 -200,V-component of maximum wind,max wind,VGRD,1 -201,Composite radar reflectivity,entire atmosphere,REFC,1 -202,Composite rain radar reflectivity,entire atmosphere,REFZR,1 -203,Composite ice radar reflectivity,entire atmosphere,REFZI,1 -204,Radar reflectivity at certain above ground heights,height agl,REFD,2 -205,Radar reflectivity from rain,height agl,REFZR,2 -206,Radar reflectivity from ice,height agl,REFZI,2 -207,Planetary boundary layer height,surface,HPBL,1 -208,Grid scale cloud bottom pressure,grid scale cloud bottom,PRES,1 -209,Grid scale cloud top pressure,grid scale cloud top,PRES,1 -210,Column integrated cloud water,entire atmosphere,TCOLW,1 -211,Column integrated cloud ice,entire atmosphere,TCOLI,1 -212,Column integrated rain,entire atmosphere,TCOLR,1 -213,Column integrated snow,entire atmosphere,TCOLS,1 -214,Column integrated total condensate,entire atmosphere,TCOLC,1 -215,Column integrated graupel,entire atmosphere,TCOLG,1 -216,Column integrated super cool liquid water,entire atmosphere,TCLSW,1 -217,Column integrated melting ice,entire atmosphere,TCOLM,1 -218,Height of lowest level super cool liquid water,lwst bot lvl of supercooled liq wtr,HGT,1 -219,Height of highest level super cool liquid water,hghst top lvl of supercooled liq wtr,HGT,1 -220,Ceiling height,cloud ceiling,HGT,1 -221,Accumulated land surface model precipitation,surface,LSPA,1 -222,Model top pressure,top of atmosphere,PRES,1 -223,Total column shortwave temperature tendency,entire atmosphere,SWHR,1 -224,Total column longwave temperature tendency,entire atmosphere,LWHR,1 -225,Total column gridded temperature tendency,entire atmosphere,LRGHR,1 -226,Column integrated moisture convergence,entire atmosphere,MCONV,1 -227,Temperature on sigma levels,sigma level,TMP,5 -228,Planetary boundary layer regime,surface,PBLREG,1 -229,Transport wind u component,planetary boundary layer,UGRD,1 -230,Transport wind v component,planetary boundary layer,VGRD,1 -231,Richardson number planetary boundary layer height,planetary boundary layer,HGT,1 -232,Mixing height,surface,MIXHT,1 -233,Radar echo top,entire atmosphere,RETOP,1 -234,Ventilation rate,planetary boundary layer,VRATE,1 -235,Haines index,surface,HINDEX,1 -236,Maximum 2m temperature,height agl,TMAX,1 -237,Minimum 2m temperature,height agl,TMIN,1 -238,Maximum 2m RH,height agl,MAXRH,1 -239,Minimum 2m RH,height agl,MINRH,1 -240,Maximum U-component wind at 10m,height agl,MAXUW,1 -241,Maximum V-component wind at 10m,height agl,MAXVW,1 -242,Maximum wind speed at 10m,height agl,WIND,1 -243,Maximum 1km reflectivity,height agl,MAXREF,1 -244,Maximum updraft vertical velocity,isobaric layer,MAXUVV,1 -245,Maximum downdraft vertical velocity,isobaric layer,MAXDVV,1 -246,Lightning,surface,LTNG,1 -247,Radar derived vertically integrated liquid,entire atmosphere,VIL,1 -248,Updraft helicity (2-5 km),height agl,UPHL,1 -249,Maximum updraft helicity (2-5 km),height agl,MXUPHL,1 -250,Minimum updraft helicity (2-5 km),height agl,MNUPHL,1 -251,Minimum updraft helicity (0-3 km),height agl,MNUPHL,1 -252,Maximum updraft helicity (0-3 km),height agl,MXUPHL,1 -253,Maximum relative vertical vorticity (0-1 km),height agl,RELV,1 -254,Maximum relative vertical vorticity at hybrid level 1,hybrid,RELV,1 -255,Maximum relative vertical vorticity (0-2 km),height agl,RELV,1 -256,Maximum derived radar reflectivity at -10 C,isothermal,MAXREF,1 -257,Radar reflectivity at -10 C,isothermal,REFD,1 \ No newline at end of file diff --git a/docs/SRW_BGDAWP_table.rst b/docs/SRW_BGDAWP_table.rst deleted file mode 100644 index f578bd310..000000000 --- a/docs/SRW_BGDAWP_table.rst +++ /dev/null @@ -1,11 +0,0 @@ -********************************************************** -Fields Requested in the UPP Parameter Table for SRW BGDAWP -********************************************************** - -Field description (column 1), level type as defined by WMO (column 2), abbreviated names -as they appear in the Grib2 output file (column 3), and number of levels output (column 4). - -.. csv-table:: - :file: SRW_BGDAWP_table.csv - :widths: 5, 40, 30, 15, 10 - :header-rows: 1 diff --git a/docs/SRW_BGRD3D_table.csv b/docs/SRW_BGRD3D_table.csv deleted file mode 100644 index d9567b15d..000000000 --- a/docs/SRW_BGRD3D_table.csv +++ /dev/null @@ -1,217 +0,0 @@ -No.,Field Description,Level Type,Short Name,nlvl -1,Height on pressure surface,isobaric,HGT,4 -2,Temperature on pressure surface,isobaric,TMP,5 -3,Relative humidity on pressure surface,isobaric,RH,4 -4,U component of wind on pressure surface,isobaric,UGRD,4 -5,V component of wind on pressure surface,isobaric,VGRD,4 -6,Omega on pressure surface,isobaric,VVEL,4 -7,Specific humidity on pressure surface,isobaric,SPFH,4 -8,Absolute vorticity on pressure surface,isobaric,ABSV,4 -9,Pressure on model surface,hybrid,PRES,64 -10,Height on model surface,hybrid,HGT,64 -11,Temperature on model surface,hybrid,TMP,64 -12,Specific humidity on model surface,hybrid,SPFH,64 -13,U component of wind on model surface,hybrid,UGRD,64 -14,V component of wind on model surface,hybrid,VGRD,64 -15,Omega on model surface,hybrid,VVEL,64 -16,Vertical velocity on model surface,hybrid,DZDT,64 -17,Turbulent kinetic energy on model surface,hybrid,TKE,64 -18,Temperature tendency from grid scale latent heat release (time-averaged),hybrid,LRGHR,64 -19,Mesinger (Membrane) sea level pressure,mean sea level,MSLET,1 -20,Shuell sea level pressure,mean sea level,PRES,1 -21,Temperature at 2m,height agl,TMP,1 -22,Specific humidity at 2m,height agl,SPFH,1 -23,Dew point temperature at 2m,height agl,DPT,1 -24,Relative humidity at 2m,height agl,RH,1 -25,U component of wind at 10m,height agl,UGRD,1 -26,V component of wind at 10m,height agl,VGRD,1 -27,Potential temperature at 10m,height agl,POT,1 -28,Specific humidity at 10m,height agl,SPFH,1 -29,Surface Pressure,surface,PRES,1 -30,Terrain height,surface,HGT,1 -31,Skin potential temperature,surface,POT,1 -32,Skin specific humidity,surface,SPFH,1 -33,Skin temperature,surface,TMP,1 -34,Maximum updraft vertical velocity (10-100 hPa),isobaric,MAXUVV,1 -35,Maximum downdraft vertical velocity (10-100 hPa),isobaric,MAXDVV,1 -36,Maximum updraft helicity (0-3 km),height agl,MXUPHL,1 -37,Maximum updraft helicity (2-5 km),height agl,MXUPHL,1 -38,Minimum updraft helicity (2-5 km),height agl,MNUPHL,1 -39,Minimum updraft helicity (0-3 km),height agl,MNUPHL,1 -40,Maximum relative vertical vorticity (0-1 km),height agl,RELV,1 -41,Maximum relative vertical vorticity at hybrid level 1,hybrid,RELV,1 -42,Maximum relative vertical vorticity (0-2 km),height agl,RELV,1 -43,Maximum U-component wind at 10m,height agl,MAXUW,1 -44,Maximum V-component wind at 10m,height agl,MAXVW,1 -45,Maximum derived radar reflectivity at 1 km,height agl,MAXREF,1 -46,Maximum derived radar reflectivity at -10 C,isothermal,MAXREF,1 -47,Radar reflectivity at -10 C,isothermal,REFD,1 -48,Maximum 2m temperature,height agl,TMAX,1 -49,Minimum 2m temperature,height agl,TMIN,1 -50,Maximum 2m RH,height agl,MAXRH,1 -51,Minimum 2m RH,height agl,MINRH,1 -52,Soil temperature in between each soil layer,depth below land surface,TSOIL,4 -53,Soil moisture in between each soil layer,depth below land surface,SOILW,4 -54,Total soil moisture,depth below land surface,SOILM,1 -55,Heat exchange coeff at surface,surface,SFEXC,1 -56,Vegetation cover,surface,VEG,1 -57,Soil moisture availability,depth below land surface,MSTAV,1 -58,Soil temperature at 3m,depth below land surface,TSOIL,1 -59,Ground heat flux (instantaneous),surface,GFLUX,1 -60,Plant canopy surface water,surface,CNWAT,1 -61,Snow water equivalent,surface,WEASD,1 -62,Lifted index—best,pressure above ground,4LFTX,1 -63,Column integrated precipitable water,entire atmosphere,PWAT,1 -64,Accumulated total precipitation,surface,APCP,1 -65,Accumulated grid-scale precipitation,surface,NCPCP,1 -66,Continuous accumulated total precipitation,surface,APCP,1 -67,Continuous accumulated grid-scale precipitation,surface,NCPCP,1 -68,Accumulated snowfall,surface,WEASD,1 -69,Accumulated total snow melt,surface,SNOM,1 -70,Accumulated storm surface runoff,surface,SSRUN,1 -71,Accumulated base flow runoff,surface,BGRUN,1 -72,Categorical rain (instantaneous),surface,CRAIN,1 -73,Categorical snow (instantaneous),surface,CSNOW,1 -74,Categorical ice pellets (instantaneous),surface,CICEP,1 -75,Categorical freezing rain (instantaneous),surface,CFRZR,1 -76,Precipitation rate (instantaneous),surface,PRATE,1 -77,Fraction of frozen precipitation,surface,CPOFP,1 -78,Cloud water mixing ratio on model surface,hybrid,CLWMR,64 -79,Cloud ice mixing ratio on model surface,hybrid,ICMR,64 -80,Graupel mixing ratio on mmodel surface,hybrid,GRLE,64 -81,Cloud fraction on model surface,hybrid,TCDC,64 -82,Rain mixing ratio on model surface,hybrid,RWMR,64 -83,Snow mixing ratio on model surface,hybrid,SNMR,64 -84,Rimming factor for Ferrier scheme on model surface,hybrid,RIME,64 -85,Total condensate for Ferrier scheme on mode surface,hybrid,TCOND,64 -86,Model level fraction of rain for Ferrier scheme,hybrid,FRAIN,64 -87,Model level fraction of ice for Ferrier scheme,hybrid,FICE,64 -88,Low level cloud fraction,low cloud layer,LCDC,1 -89,Mid level cloud fraction,mid cloud layer,MCDC,1 -90,High level cloud fraction,high cloud layer,HCDC,1 -91,Total cloud fraction,entire atmosphere,TCDC,1 -92,Total cloud fraction (time-averaged),entire atmosphere,TCDC,1 -93,stratospheric cloud fraction (time-averaged),entire atmosphere,CDLYR,1 -94,Outgoing surface shortwave radiation (instantaneous),surface,USWRF,1 -95,Outgoing surface longwave radiation (instantaneous),surface,ULWRF,1 -96,Incoming surface shortwave radiation (time-averaged),surface,DSWRF,1 -97,Incoming surface longwave radiation (time-averaged),surface,DLWRF,1 -98,Outgoing surface shortwave radiation (time-averaged),surface,USWRF,1 -99,Outgoing surface longwave radiation (time-averaged),surface,ULWRF,1 -100,Outgoing model top shortwave radiation (time-averaged),top of atmosphere,USWRF,1 -101,Outgoing model top longwave radiation (time-averaged),top of atmosphere,ULWRF,1 -102,Incoming surface shortwave radiation (instantaneous),surface,DSWRF,1 -103,Incoming surface longwave radiation (instantaneous),surface,DLWRF,1 -104,Clear sky incoming surface shortwave (instantaneous),surface,CSDSF,1 -105,Roughness length,surface,SFCR,1 -106,Friction velocity,surface,FRICV,1 -107,Surface drag coefficient,surface,CD,1 -108,Surface u wind stress,surface,UFLX,1 -109,Surface v wind stress,surface,VFLX,1 -110,Surface sensible heat flux (time-averaged),surface,SHTFL,1 -111,Ground heat flux (time-averaged),surface,GFLUX,1 -112,Snow phase change heat flux (time-averaged),surface,SNOHF,1 -113,Surface latent heat flux (time-averaged),surface,LHTFL,1 -114,Accumulated surface evaporation,surface,EVP,1 -115,Accumulated potential evaporation,surface,PEVAP,1 -116,Surface sensible heat flux (instantaneous),surface,SHTFL,1 -117,Surface latent heat flux (instantaneous),surface,LHTFL,1 -118,Latitude,surface,NLAT,1 -119,Longitude,surface,ELON,1 -120,Land sea mask (land=1 sea=0),surface,LAND,1 -121,Sea ice mask,surface,ICEC,1 -122,Mass point at eta surface mask,surface,LMH,1 -123,Velocity point at eta surface mask,surface,LMV,1 -124,Surface albedo,surface,ALBDO,1 -125,Sea surface temperature,surface,WTMP,1 -126,Pressure in boundary layer (30 mb means),pressure agl,PRES,6 -127,Temperature in boundary layer (30 mb means),pressure agl,TMP,6 -128,Potential temperature in boundary layer (30 mb means),pressure agl,POT,1 -129,Dew point temperature in boundary layer (30 mb means),pressure agl,DPT,1 -130,Specific humidity in boundary layer (30 mb means),pressure agl,SPFH,6 -131,RH in boundary layer (30 mb means),pressure agl,RH,6 -132,Moisture convergence in boundary layer (30 mb means),pressure agl,MCONV,1 -133,Precipitable water in boundary layer (30 mb means),pressure agl,PWAT,1 -134,U wind in boundary layer (30 mb means),pressure agl,UGRD,6 -135,V wind in boundary layer (30 mb means),pressure agl,VGRD,6 -136,Accumulated land surface model precipitation,surface,LSPA,1 -137,Model top pressure,top of atmosphere,PRES,1 -138,Pressure thickness,hybrid,PRES,1 -139,Sigma pressure thickness,hybrid,PRES,1 -140,Plant canopy surface water,surface,CNWAT,1 -141,Ground heat flux (instantaneous),surface,GFLUX,1 -142,Lifted index—surface based (500-1000 hPa),isobaric,LFTX,1 -143,Convective available potential energy,surface,CAPE,1 -144,Best cape,pressure above ground,CAPE,1 -145,Mixed layer cape,pressure above ground,CAPE,1 -146,Unstable cape,pressure above ground,CAPE,1 -147,Convective inhibition,surface,CIN,1 -148,Best cin,pressure above ground,CIN,1 -149,Mixed layer cin,pressure above ground,CIN,1 -150,Unstable cin,pressure above ground,CIN,1 -151,LCL level pressure,pressure layer agl,PLPL,1 -152,Helicity,height agl,HLCY,2 -153,U component storm motion,height agl,USTM,1 -154,V component storm motion,height agl,VSTM,1 -155,Cloud bottom pressure,cloud base,PRES,1 -156,Cloud top pressure,cloud top,PRES,1 -157,Cloud top temperature,cloud top,TMP,1 -158,Pressure at tropopause,tropopause,PRES,1 -159,Height at tropopause,tropopause,HGT,1 -160,Temperature at tropopause,tropopause,TMP,1 -161,U component of wind at tropopause,tropopause,UGRD,1 -162,V component of wind at tropopause,tropopause,VGRD,1 -163,Wind shear at tropopause,tropopause,VWSH,1 -164,Temperature at flight levels,height msl,TMP,10 -165,U component of wind at flight levels,height msl,UGRD,10 -166,V component of wind at flight levels,height msl,VGRD,10 -167,Freezing level height,0 degree isotherm,HGT,1 -168,Freezing level relative humidity,0 degree isotherm,RH,1 -169,Highest freezing level height,highest tropospheric frz lvl,HGT,1 -170,Maximum wind pressure level,max wind,PRES,1 -171,Maximum wind height,max wind,HGT,1 -172,U-component of maximum wind,max wind,UGRD,1 -173,V-component of maximum wind,max wind,VGRD,1 -174,Maximum wind speed at 10m,height agl,WIND,1 -175,Cloud bottom height (above MSL),cloud base,HGT,1 -176,Cloud top height (above MSL),cloud top,HGT,1 -177,Visibility,surface,VIS,1 -178,Composite radar reflectivity,entire atmosphere,REFC,1 -179,Grid scale cloud bottom pressure,grid scale cloud bottom,PRES,1 -180,Grid scale cloud top pressure,grid scale cloud top,PRES,1 -181,Column integrated cloud water,entire atmosphere,TCOLW,1 -182,Column integrated cloud ice,entire atmosphere,TCOLI,1 -183,Column integrated rain,entire atmosphere,TCOLR,1 -184,Column integrated snow,entire atmosphere,TCOLS,1 -185,Column integrated total condensate,entire atmosphere,TCOLC,1 -186,Column integrated graupel,entire atmosphere,TCOLG,1 -187,Vegetation type,surface,VGTYP,1 -188,Soil type,surface,SOTYP,1 -189,Canopy conductance,surface,CCOND,1 -190,Planetary boundary layer height,surface,HPBL,1 -191,Snow depth,surface,SNOD,1 -192,Snow sublimation,surface,SBSNO,1 -193,Air dry soil moisture,surface,SMDRY,1 -194,Soil moist porosity,surface,POROS,1 -195,Minimum stomatal resistance,surface,RSMIN,1 -196,Number of root layers,surface,RLYRS,1 -197,Soil moist wilting point,surface,WILT,1 -198,Soil moist reference,surface,SMREF,1 -199,Canopy conductance - solar component,surface,RCS,1 -200,Canopy conductance - temperature component,surface,RCT,1 -201,Canopy conductance - humidity component,surface,RCQ,1 -202,Canopy conductance - soil component,surface,RCSOL,1 -203,Potential evaporation,surface,PEVPR,1 -204,Surface wind gust,surface,GUST,1 -205,Lowest wet bulb zero height,lowest lvl wet bulb zero,HGT,1 -206,Leaf area index,surface,LAI,1 -207,Clear sky incoming surface shortwave (instantaneous),surface,CSDSF,1 -208,Cloud fraction on sigma surface,sigma,TCDC,22 -209,Richardson number planetary boundary layer height,planetary boundary layer,HGT,1 -210,Mixing height,surface,MIXHT,1 -211,Temperature at 10m,height agl,TMP,1 -212,Time-averaged percentage snow cover,surface,SNOWC,1 -213,Time-averaged surface pressure,surface,PRES,1 -214,Time-averaged 10m temperature,height agl,TMP,1 -215,Time-averaged mass exchange coefficient,surface,AKHS,1 -216,Time-averaged wind exchange coefficient,surface,AKMS,1 \ No newline at end of file diff --git a/docs/SRW_BGRD3D_table.rst b/docs/SRW_BGRD3D_table.rst deleted file mode 100644 index 246c178a1..000000000 --- a/docs/SRW_BGRD3D_table.rst +++ /dev/null @@ -1,11 +0,0 @@ -********************************************************** -Fields Requested in the UPP Parameter Table for SRW BGRD3D -********************************************************** - -Field description (column 1), level type as defined by WMO (column 2), abbreviated names -as they appear in the Grib2 output file (column 3), and number of levels output (column 4). - -.. csv-table:: - :file: SRW_BGRD3D_table.csv - :widths: 5, 40, 30, 15, 10 - :header-rows: 1 diff --git a/docs/UFS_unified_variables_table.csv b/docs/UFS_unified_variables_table.csv index 462775357..e863c9295 100644 --- a/docs/UFS_unified_variables_table.csv +++ b/docs/UFS_unified_variables_table.csv @@ -23,7 +23,7 @@ Min hourly 0-3km updraft helicity,uhmin03,up_heli_min03,2d,dyn,regional FV3 Max 0-1km relative vorticity max,maxvort01,rel_vort_max01,2d,dyn,regional FV3 Max 0-2km relative vorticity max,maxvort02,rel_vort_max,2d,dyn,regional FV3 Max hybrid level 1 relative vorticity max,maxvorthy1,rel_vort_maxhy1,2d,dyn,regional FV3 -Surface height,hgtsfc,zint(:,:,LM+1),2d,dyn, +Surface height,hgtsfc,"zint(:,:,LM+1)",2d,dyn, Reflectivity,refl_10cm,REF_10CM,3d,phy, Turbulence kinetic energy,qke,q2,3d,phy, Ice-friendly aerosol number concentration,nifa,qqnwfa,3d,phy, From 6b4a79cac94f0b69654b60cfcc202cdca6e4f740 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 8 Jun 2022 13:24:40 -0400 Subject: [PATCH 062/107] 2D Decomposition (#339) * Changes to support 2D Decomposition shape changes. Full I dimension remains in all arrays bu t SURFCE is altered to use isx:iex bounds which are equivalent to IM which is equivalent to 1:IM * test of commit only added one comment to PROCESS.f * comment test 2 * Added more routines to 2D decomposition * Changed isx and iex to ISTA and IEND in listed routines. ISTA had prior use in MDL2P.f and that needed changing. IEND had prior use in PARA_CONFIG, changed to IENDJ in PARA_CONFIG2 where needed PARA_CONFIG did not need changing * test commit of new base into clone * repair of a bunch of changed routines somehow corrupted by a merge 5/3/2021 * fixed 5/25 problem * added ctlblk change to support ista and iend partial I dimensons * added para_range2 to PARA_RANGE.f to support 2D decomposition * Modified MPI_FIRST.f to support a 2D decomposition but the actual numbers used remain the 1D special case and the changes just add two more indices for start and end I domains and logic to convert scatter counts and displacements to the product of the I and J subdomain sizes rather than I full domain x J subdomain. * Added support for halo settings of 2D boundaries i.e ista_2l to match the 1D analogs long present in the source 6/1/2021 * Added definitions for ista_2u, and ista_2u in MPI_FIRST.f * Reshaped arrays in MDL2FLD.f to support 2D decomposition. Modified TWO (only) loops to try thie * Remove TIMEF.f. * 20210702 JesseMeng modify MPI_FIRST.f MDLFLD.f for 2D decomposition * 20210706 BoCui modify INITPOST_GFS_NETCDF_PARA.f * 20210707 JesseMeng modified grib2_module.f for 2d decomposition * test version INITPOST_GFS_NETCDF_PARA.f * test version INITPOST_GFS_NETCDF_PARA.f and MPI_FIRST.f * 20210713 BoCui test INITPOST_GFS_NETCDF_PARA.f, MPI_FIRST.f and ALLOCATE_ALL.f * 20210713 BoCui test INITPOST_GFS_NETCDF_PARA.f, MPI_FIRST.f and ALLOCATE_ALL.f * 20210719 BoCui Modified CLDRAD.f for 2d decomposition * 20210816 Jesse Meng commit George's EXCH update for 1 layer 2D halos transforming * 20210816 Jesse Meng remove ifcore in EXCH * 20210903 Bo Cui update ALLOCATE_ALL.f after new merge from 'upstream/develop' * 20210903 Bo Cui Added new routines to 2D decomposition * 20210903 Jesse Meng fixed the ieql allocation bug in ALLOCATE_ALL.f * 20210904 Bo Cui fixed CLDRAD.f * 20210913 Jesse Meng commit progress of 2D decomposition * 20210917 Bo Cui add new routines to 2D decomposition * 20210917 Jesse Meng remove 4 legacy files * 20210917 Jesse Meng remove legacy code SLP_NMM EXCH2 * 20210917 Jesse Meng remove legacy code INITPOST_GFS_SIGIO.f INITPOST_GFS_NEMS.f * 20210917 Jesse Meng add INITPOST_GFS_NEMS.f back to avoid compiling error. * 20210930 Jesse Meng add George's itag/numx entry and progress on 2D decompose * 20211015 Jesse Meng progress on 2D DECOMPOSITION * 20211017 Bo Cui add new subroutines to UPP 2D decomposition * 20211026 Jesse Meng commit progress in 2D DECOMPOSITION * 20211026 Jesse Meng fix INITPOST_GFS_NETCDF_PARA.f for 2D DECOMPOSITION * 20211026 Jesse Meng update SURFCE.f for 2D DECOMPOSITION * 20211103 Jesse Meng commit progress of 2D DECOMPOSITION * 20211106 Bo Cui commit progress of 2D decomposition * 20211109 Jesse Meng updates for 2D DECOMPOSITION * 20211110 Jesse Meng updates in 2D DECOMPOSITION * 20211112 Jesse Meng updates for 2D DECOMPOSITION * 20211115 Jesse Meng updates for 2D DECOMPOSITION * 20211119 Jesse Meng updates for 2D DECOMPOSITION * 20211201 Jesse Meng move CALVOR to UPP_PHYSICS module; implement fullpole in MPI_FIRST * 20211202 Jesse Meng minor update of MPI_FIRST using mpi_allgatherv * 20211203 Jesse Meng implement fullpole in MDL2THANDPV and CALDIV * 20211207 Jesse Meng update MISCLN.f SURFCE.f * 20211208 Jesse Meng add parm/hafs_nosat files * 20211213 Bo Cui updates for 2D decomposition * 20211213 Jesse Meng update the merged 'upstream/develop' and 'post_2d_decomp' branch to 2d_decomp style * 20211215 Jesse Meng use i=0:im+1 for GFS in MPI_FIRST and EXCH * 20211216 Jesse Meng minor update UPP_PHYSICS for i=0:im+1 expansion * 20220104 Jesse Meng add George's minor fix in EXHC.f * 20220118 Jesse Meng commit George's cleaned up code. * 20220203 Jesse Meng - update MAPSSLP.f to be consistent with develop branch. * 20220222 Jesse Meng add checkcoords flag in EXCH.f to move around George's debug code. * 20220302 Jesse Meng Restrict computation from undefined grids * 20220304 Bo Cui Add a reset of numx=1 if remainder of num_procs/numx is not 0 * 20220310 Jesse Meng Add a reset of numx=1 if(numx>num_procs/2) * 20220322 Jesse Meng mpi_allgatherv change communicator to MPI_COMM_COMP * 20220328 Jesse Meng bug fix for passing 2d subarrays between subroutines * 20220328 Jesse Meng minor fix for CLDRAD call BOUND variable array size * 20220330 Jesse Meng fix cloud cover variabes full field collection in 2d decomp * 20220401 Jesse Meng minor fix for CALMCVG.f and update CALUPDHEL.f with develop * 20220414 BoCui sync and merge UPP/develop into post_2d_decomp (#7) * Added lambert conformal projection for FV3SAR and handled composite reflectivity correctly (#14) (#2) * exec is selectable for executable directory (#448) * Doxygen for CALGUST (#451) * Doxygen for CALDRG.f * This is part of Issue #392 Fixes the doxygen warnings in CALGUST.f Please review this subroutine. Thank you. * The fix in CALUPDHEL.f (#458) * Modify CALUPDHEL.f for restricting undefined grids in computation. * Update VERSION to 10.0.12. * Bug fix for SLLEVEL bound issue when not RUC LSM (#463) Co-authored-by: Tracy * Doxygen caldrg caldwcp calgust refinement (#464) * Further refinement to the tables and logs. * Further refinement to the tables and logs. (#455) * This is part of Issue #392 (#460) Fixes the doxygen warnings in CALHEL.f CALHEL2.f CALHEL3.f Please review this subroutine. Thank you. * Unify global and regional FV3 read interfaces (#453) * Unify the interfaces for reading FV3 outputs in netcdf. * Remove interface INITPOST_GFS_NETCDF_PARA. * Remove INITPOST_GFS_NETCDF.f. * Remove the capability of serial netcdf reading FV3 outputs. * Correct reading rswinc. * Remove duplication in CLDRAD.f. * Remove duplicated avgalbedo reading * Add changes for reading pwat from model. * Clean up commented out code * Clean up duplicated lines * Add ability to compile script to use non-intel compilers; add Cheyenne modulefiles for gnu and intel (#468) * Add cheyenne modulefile * Intel 19 --> 2021 * Add ability to specify compiler; move all existing modulefiles to ${name}_intel since they are all for intel compilers; add "cheyenne_gnu" modulefile * Revert move of intel modulefiles; now the implicit default for a modulefile is intel, only gnu and other compilers will have the compiler name appended to the modulefile * Allow for lua modulefiles with ".lua" appended * This is part of Issue #392 (#465) Fixes the doxygen warnings in CALLCL.f CALMCVG.f CALMICT.f * This is part of Issue #392 (#466) Fixes the doxygen warnings in CALPBL.f CALPBLREGIME.f CALPOT.f CALPW.f. * Doxygen in CALRAD_WCLOUD_newcrtm.f CALRCH.f CALSTRM.f CALTAU.f CALTHTE.f CALUPDHEL.f. (#467) * This is part of Issue #392. Fixes the doxygen warnings in CALRAD_WCLOUD_newcrtm.f CALRCH.f CALSTRM.f CALTAU.f CALTHTE.f CALUPDHEL.f. * Fixed typo. * Update to PR #458. * Doxygen in CALVOR.f, CALWXT_BOURG.f, CLDRAD.f, COLLECT.f, COLLECT_LOC.f, DEALLOCATE.f, and DEALLOCATE.f (#469) * This is part of Issue #392. Fixes the doxygen warnings in CALVOR.f, CALWXT_BOURG.f, CLDRAD.f, COLLECT.f, COLLECT_LOC.f, DEALLOCATE.f, and DEALLOCATE.f. * Fixed minor bug in CALVOR.f. * Update to PR#453. * More updates. * 20220411 Bo Cui 2D decompositio CALVOR.f and INITPOST_NETCDF.f * 20220411 Bo Cui update doxgen and global and regional FV3 read interface * 20220414 Bo Cui: remove read_netcdf_2d_scatter and read_netcdf_3d_scatter from INITPOST_NETCDF.f * 20220415 Bo Cui delete CALVOR.f, add exch of gdlon in INITPOST_NETCDF.f * 20220421 Bo Cui Doxygen in UPP_PHYSICS.f,add restriction run 2D decomp only for GFS/FV3R in WRFPOST.f Co-authored-by: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Co-authored-by: Wen Meng Co-authored-by: Chan-Hoo.Jeon-NOAA <60152248+chan-hoo@users.noreply.github.com> Co-authored-by: kayeekayee Co-authored-by: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Co-authored-by: Tracy Co-authored-by: Michael Kavulich * 20220502 Bo Cui code cleanup * 20220512 Jesse Meng minor fix for INITPOST_GFS_NEMS_MPIIO.f calling EXCH * 20220525 Jesse Meng minor fix to 2d_decomp syntax * Update VERSION to 11.0.0 * 20220607 Jesse Meng add variable declaration block in PARA_RANGE.f * 20220608 Jesse Meng remove blank spaces in sorc/ncep_post.fd/AllGETHERV_GSD.f * Add 2D decomp overview documentation (#6) * Add 2D decomp overview documentation * Update 2D overview Co-authored-by: George Vandenberghe Co-authored-by: wx15gv Co-authored-by: wx22mj Co-authored-by: Bo Cui Co-authored-by: wx22mj Co-authored-by: wx22mj Co-authored-by: wx22mj Co-authored-by: wx22mj Co-authored-by: wx22mj Co-authored-by: wx22mj Co-authored-by: wx22mj Co-authored-by: Jesse.Meng Co-authored-by: BoCui-NOAA <53531984+BoCui-NOAA@users.noreply.github.com> Co-authored-by: Chan-Hoo.Jeon-NOAA <60152248+chan-hoo@users.noreply.github.com> Co-authored-by: kayeekayee Co-authored-by: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Co-authored-by: Tracy Co-authored-by: Michael Kavulich Co-authored-by: Jesse Meng Co-authored-by: Kate Fossell --- VERSION | 2 +- docs/2D-decomp.md | 21 + docs/Doxyfile.in | 1 + sorc/ncep_post.fd/ALLOCATE_ALL.f | 1028 +++++++------- sorc/ncep_post.fd/AVIATION.f | 103 +- sorc/ncep_post.fd/AllGETHERV_GSD.f | 9 +- sorc/ncep_post.fd/BNDLYR.f | 57 +- sorc/ncep_post.fd/BOUND.f | 5 +- sorc/ncep_post.fd/CALDRG.f | 14 +- sorc/ncep_post.fd/CALDWP.f | 12 +- sorc/ncep_post.fd/CALGUST.f | 21 +- sorc/ncep_post.fd/CALHEL.f | 30 +- sorc/ncep_post.fd/CALHEL2.f | 36 +- sorc/ncep_post.fd/CALHEL3.f | 34 +- sorc/ncep_post.fd/CALLCL.f | 15 +- sorc/ncep_post.fd/CALMCVG.f | 51 +- sorc/ncep_post.fd/CALMICT.f | 23 +- sorc/ncep_post.fd/CALPBL.f | 44 +- sorc/ncep_post.fd/CALPBLREGIME.f | 9 +- sorc/ncep_post.fd/CALPOT.f | 9 +- sorc/ncep_post.fd/CALPW.f | 57 +- sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f | 109 +- sorc/ncep_post.fd/CALRCH.f | 16 +- sorc/ncep_post.fd/CALSTRM.f | 9 +- sorc/ncep_post.fd/CALTAU.f | 17 +- sorc/ncep_post.fd/CALTHTE.f | 13 +- sorc/ncep_post.fd/CALUPDHEL.f | 16 +- sorc/ncep_post.fd/CALVESSEL.f | 14 +- sorc/ncep_post.fd/CALVIS.f | 10 +- sorc/ncep_post.fd/CALVIS_GSD.f | 11 +- sorc/ncep_post.fd/CALVOR.f | 877 ------------ sorc/ncep_post.fd/CALWXT.f | 34 +- sorc/ncep_post.fd/CALWXT_BOURG.f | 18 +- sorc/ncep_post.fd/CALWXT_DOMINANT.f | 18 +- sorc/ncep_post.fd/CALWXT_EXPLICIT.f | 15 +- sorc/ncep_post.fd/CALWXT_RAMER.f | 26 +- sorc/ncep_post.fd/CALWXT_REVISED.f | 27 +- sorc/ncep_post.fd/CLDRAD.f | 930 ++++++------ sorc/ncep_post.fd/CLMAX.f | 13 +- sorc/ncep_post.fd/CMakeLists.txt | 3 - sorc/ncep_post.fd/COLLECT_LOC.f | 124 +- sorc/ncep_post.fd/CTLBLK.f | 21 +- sorc/ncep_post.fd/DEALLOCATE.f | 1 + sorc/ncep_post.fd/DEWPOINT.f | 9 +- sorc/ncep_post.fd/ETAMP_Q2F.f | 9 +- sorc/ncep_post.fd/EXCH.f | 382 ++++- sorc/ncep_post.fd/EXCH2.f | 72 - sorc/ncep_post.fd/FDLVL.f | 61 +- sorc/ncep_post.fd/FIXED.f | 63 +- sorc/ncep_post.fd/FRZLVL.f | 7 +- sorc/ncep_post.fd/FRZLVL2.f | 7 +- sorc/ncep_post.fd/ICAOHEIGHT.f | 8 +- sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 5 +- sorc/ncep_post.fd/INITPOST_NETCDF.f | 1418 +++++++++---------- sorc/ncep_post.fd/LFMFLD.f | 9 +- sorc/ncep_post.fd/LFMFLD_GFS.f | 7 +- sorc/ncep_post.fd/MAPSSLP.f | 15 +- sorc/ncep_post.fd/MDL2AGL.f | 186 +-- sorc/ncep_post.fd/MDL2P.f | 764 +++++----- sorc/ncep_post.fd/MDL2SIGMA.f | 166 ++- sorc/ncep_post.fd/MDL2SIGMA2.f | 18 +- sorc/ncep_post.fd/MDL2STD_P.f | 124 +- sorc/ncep_post.fd/MDL2THANDPV.f | 376 +++-- sorc/ncep_post.fd/MDLFLD.f | 940 ++++++------ sorc/ncep_post.fd/MISCLN.f | 1368 ++++++++++-------- sorc/ncep_post.fd/MIXLEN.f | 24 +- sorc/ncep_post.fd/MPI_FIRST.f | 315 +++- sorc/ncep_post.fd/NGMFLD.f | 18 +- sorc/ncep_post.fd/NGMSLP.f | 5 +- sorc/ncep_post.fd/OTLFT.f | 11 +- sorc/ncep_post.fd/OTLIFT.f | 9 +- sorc/ncep_post.fd/PARA_RANGE.f | 44 + sorc/ncep_post.fd/PROCESS.f | 14 + sorc/ncep_post.fd/SCLFLD.f | 7 +- sorc/ncep_post.fd/SLP_NMM.f | 411 ------ sorc/ncep_post.fd/SLP_new.f | 51 +- sorc/ncep_post.fd/SURFCE.f | 1366 ++++++++++-------- sorc/ncep_post.fd/TRPAUS.f | 8 +- sorc/ncep_post.fd/TRPAUS_NAM.f | 9 +- sorc/ncep_post.fd/TTBLEX.f | 18 +- sorc/ncep_post.fd/UPP_MATH.f | 98 +- sorc/ncep_post.fd/UPP_PHYSICS.f | 1174 +++++++++++++-- sorc/ncep_post.fd/WETBULB.f | 26 +- sorc/ncep_post.fd/WETFRZLVL.f | 10 +- sorc/ncep_post.fd/WRFPOST.f | 54 +- sorc/ncep_post.fd/grib2_module.f | 36 +- ush/gfs_nceppost.sh | 2 +- 87 files changed, 7385 insertions(+), 6242 deletions(-) create mode 100644 docs/2D-decomp.md delete mode 100644 sorc/ncep_post.fd/CALVOR.f delete mode 100644 sorc/ncep_post.fd/EXCH2.f delete mode 100644 sorc/ncep_post.fd/SLP_NMM.f diff --git a/VERSION b/VERSION index fe46e0dd3..275283a18 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -10.2.0 \ No newline at end of file +11.0.0 diff --git a/docs/2D-decomp.md b/docs/2D-decomp.md new file mode 100644 index 000000000..105a28cf0 --- /dev/null +++ b/docs/2D-decomp.md @@ -0,0 +1,21 @@ +# 2-D Decomposition Overview + +**Author:** George Vandenberghe + +**Date:** June 2022 + +## Comparison of 1D vs. 2D Decomposition +The 1D decomposition can read state from a model forecast file, either by reading on rank 0 and scattering, or by doing MPI_IO on the model history file using either nemsio, sigio, or netcdf serial or parallel I/O. Very old post tags also implement the more primitive full state broadcast or (a performance bug rectified 10/17) read the entire state on all tasks. This is mentioned in case a very old tag is encountered. + +The 2D decomposition only supports MPI_IO, namely NetCDF Parallel I/O. But the code is backwards compatible and all I/O methods remain supported for the 1D decomposition cases and works for all cases currently supported by older 1D tags and branches. + +## 2D Decomposition Design + +The 2D decomposition operates on subdomains with some latitudes and some longitudes. The subdomains are lon-lat rectangles rather than strips. This means state must be chopped into pieces in any scatter operation and the pieces reassembled in any gather operation that requires a continuous in memory state. I/O and halo exchanges both require significantly more bookkeeping. + +The structural changes needed for the 2D decomposition are implemented in MPI_FIRST.f and CTLBLK.f. The CTLBLK.f routine contains numerous additional variables describing left and right domain boundaries. Many additional changes are also implemented in EXCH.f to support 2D halos. Many additional routines required addition of the longitude subdomain limits but changes to the layouts are handled in CTLBLK.f and the "many additional routines" do not require additional changes when subdomain shapes are changed and have not been a trouble point. + +Both MPI_FIRST.f and EXCH.f contain significant additional test code to exchange arrays containing grid coordinates and ensure EXACT matches for all exchanges before the domain exchanges are performed. This is intended to trap errors in the larger variety of 2D decomposition layouts that are possible and most of it can eventually be removed or made conditional at build and run time. + +Indices and variables to facilitate the 2D decomposition are found in CTLBLK.f and shared in the rest of UPP through use of CTLBLK.mod. + diff --git a/docs/Doxyfile.in b/docs/Doxyfile.in index 85459abdc..f46163210 100644 --- a/docs/Doxyfile.in +++ b/docs/Doxyfile.in @@ -855,6 +855,7 @@ WARN_LOGFILE = # Note: If this tag is empty the current directory is searched. INPUT = @abs_top_srcdir@/docs/user_guide.md \ + = @abs_top_srcdir@/docs/2D-decomp.md \ @abs_top_srcdir@/sorc/ncep_post.fd \ @config_srcdir@ diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 75d6bfc64..a93741328 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -47,40 +47,40 @@ SUBROUTINE ALLOCATE_ALL() integer ierr,jsx,jex integer i,j,l,k ! Allocate arrays - allocate(u(im+1,jsta_2l:jend_2u,lm)) - allocate(v(im,jsta_2l:jvend_2u,lm)) - allocate(t(im,jsta_2l:jend_2u,lm)) + allocate(u(ista_2l:iend_2u+1,jsta_2l:jend_2u,lm)) + allocate(v(ista_2l:iend_2u,jsta_2l:jvend_2u,lm)) + allocate(t(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) ! CHUANG ADD POTENTIAL TEMP BECAUSE WRF OUTPUT THETA -! allocate(th(im,jsta_2l:jend_2u,lm)) - allocate(q(im,jsta_2l:jend_2u,lm)) -! allocate(w(im,jsta_2l:jend_2u,lp1)) - allocate(uh(im,jsta_2l:jend_2u,lm)) - allocate(vh(im,jsta_2l:jend_2u,lm)) - allocate(wh(im,jsta_2l:jend_2u,lm)) - allocate(pmid(im,jsta_2l:jend_2u,lm)) - allocate(pmidv(im,jsta_2l:jend_2u,lm)) - allocate(pint(im,jsta_2l:jend_2u,lp1)) - allocate(alpint(im,jsta_2l:jend_2u,lp1)) - allocate(zmid(im,jsta_2l:jend_2u,lm)) - allocate(zint(im,jsta_2l:jend_2u,lp1)) -! allocate(rainw(im,jsta_2l:jend_2u,lm)) - allocate(q2(im,jsta_2l:jend_2u,lm)) - allocate(omga(im,jsta_2l:jend_2u,lm)) - allocate(dpres(im,jsta_2l:jend_2u,lm)) - allocate(T_ADJ(im,jsta_2l:jend_2u,lm)) - allocate(ttnd(im,jsta_2l:jend_2u,lm)) - allocate(rswtt(im,jsta_2l:jend_2u,lm)) - allocate(rlwtt(im,jsta_2l:jend_2u,lm)) - allocate(exch_h(im,jsta_2l:jend_2u,lm)) - allocate(train(im,jsta_2l:jend_2u,lm)) - allocate(tcucn(im,jsta_2l:jend_2u,lm)) - allocate(EL_PBL(im,jsta_2l:jend_2u,lm)) +! allocate(th(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(q(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) +! allocate(w(ista_2l:iend_2u,jsta_2l:jend_2u,lp1)) + allocate(uh(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(vh(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(wh(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(pmid(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(pmidv(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(pint(ista_2l:iend_2u,jsta_2l:jend_2u,lp1)) + allocate(alpint(ista_2l:iend_2u,jsta_2l:jend_2u,lp1)) + allocate(zmid(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(zint(ista_2l:iend_2u,jsta_2l:jend_2u,lp1)) +! allocate(rainw(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(q2(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(omga(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(dpres(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(T_ADJ(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ttnd(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(rswtt(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(rlwtt(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(exch_h(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(train(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(tcucn(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(EL_PBL(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im+1 + do i=ista_2l,iend_2u+1 u(i,j,l)=0. enddo enddo @@ -88,7 +88,7 @@ SUBROUTINE ALLOCATE_ALL() !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jvend_2u - do i=1,im + do i=ista_2l,iend_2u v(i,j,l)=0. enddo enddo @@ -96,7 +96,7 @@ SUBROUTINE ALLOCATE_ALL() !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u t(i,j,l)=spval q(i,j,l)=spval uh(i,j,l)=spval @@ -122,7 +122,7 @@ SUBROUTINE ALLOCATE_ALL() !$omp parallel do private(i,j,l) do l=1,lp1 do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u pint(i,j,l)=spval alpint(i,j,l)=spval zint(i,j,l)=spval @@ -131,38 +131,38 @@ SUBROUTINE ALLOCATE_ALL() enddo ! MP FIELD - allocate(cwm(im,jsta_2l:jend_2u,lm)) - allocate(F_ice(im,jsta_2l:jend_2u,lm)) - allocate(F_rain(im,jsta_2l:jend_2u,lm)) - allocate(F_RimeF(im,jsta_2l:jend_2u,lm)) - allocate(QQW(im,jsta_2l:jend_2u,lm)) - allocate(QRIMEF(im,jsta_2l:jend_2u,lm)) - allocate(QQI(im,jsta_2l:jend_2u,lm)) - allocate(QQR(im,jsta_2l:jend_2u,lm)) - allocate(QQS(im,jsta_2l:jend_2u,lm)) - allocate(QQG(im,jsta_2l:jend_2u,lm)) - allocate(QQNW(im,jsta_2l:jend_2u,lm)) - allocate(QQNI(im,jsta_2l:jend_2u,lm)) - allocate(QQNR(im,jsta_2l:jend_2u,lm)) - allocate(QQNWFA(im,jsta_2l:jend_2u,lm)) - allocate(QQNIFA(im,jsta_2l:jend_2u,lm)) - allocate(TAOD5503D(im,jsta_2l:jend_2u,lm)) - allocate(AEXTC55(im,jsta_2l:jend_2u,lm)) - allocate(EXTCOF55(im,jsta_2l:jend_2u,lm)) - allocate(QC_BL(im,jsta_2l:jend_2u,lm)) - allocate(CFR(im,jsta_2l:jend_2u,lm)) - allocate(CFR_RAW(im,jsta_2l:jend_2u,lm)) - allocate(DBZ(im,jsta_2l:jend_2u,lm)) - allocate(DBZR(im,jsta_2l:jend_2u,lm)) - allocate(DBZI(im,jsta_2l:jend_2u,lm)) - allocate(DBZC(im,jsta_2l:jend_2u,lm)) - allocate(mcvg(im,jsta_2l:jend_2u,lm)) - allocate(NLICE(im,jsta_2l:jend_2u,lm)) + allocate(cwm(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(F_ice(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(F_rain(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(F_RimeF(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQW(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QRIMEF(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQI(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQR(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQS(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQG(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQNW(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQNI(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQNR(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQNWFA(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QQNIFA(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(TAOD5503D(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(AEXTC55(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(EXTCOF55(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(QC_BL(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(CFR(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(CFR_RAW(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(DBZ(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(DBZR(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(DBZI(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(DBZC(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(mcvg(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(NLICE(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u cwm(i,j,l)=spval F_ice(i,j,l)=spval F_rain(i,j,l)=spval @@ -194,23 +194,23 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo ! Wm Lewis: added - allocate(NRAIN(im,jsta_2l:jend_2u,lm)) - allocate(radius_cloud(im,jsta_2l:jend_2u,lm)) - allocate(radius_ice(im,jsta_2l:jend_2u,lm)) - allocate(radius_snow(im,jsta_2l:jend_2u,lm)) + allocate(NRAIN(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(radius_cloud(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(radius_ice(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(radius_snow(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) ! KRS: HWRF Addition for thompson reflectivity ! or non-ferrier physics. wrf-derived - allocate(REFL_10CM(im,jsta_2l:jend_2u,lm)) + allocate(REFL_10CM(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !GFS FIELD - allocate(o3(im,jsta_2l:jend_2u,lm)) - allocate(o(im,jsta_2l:jend_2u,lm)) - allocate(o2(im,jsta_2l:jend_2u,lm)) - allocate(tcucns(im,jsta_2l:jend_2u,lm)) + allocate(o3(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(o(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(o2(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(tcucns(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u NRAIN(i,j,l)=spval radius_cloud(i,j,l)=spval radius_ice(i,j,l)=spval @@ -226,34 +226,34 @@ SUBROUTINE ALLOCATE_ALL() ! Add GFS d3d fields if (me == 0) print *,' d3d_on=',d3d_on if (d3d_on) then - allocate(vdifftt(im,jsta_2l:jend_2u,lm)) -! allocate(tcucns(im,jsta_2l:jend_2u,lm)) - allocate(vdiffmois(im,jsta_2l:jend_2u,lm)) - allocate(dconvmois(im,jsta_2l:jend_2u,lm)) - allocate(sconvmois(im,jsta_2l:jend_2u,lm)) - allocate(nradtt(im,jsta_2l:jend_2u,lm)) - allocate(o3vdiff(im,jsta_2l:jend_2u,lm)) - allocate(o3prod(im,jsta_2l:jend_2u,lm)) - allocate(o3tndy(im,jsta_2l:jend_2u,lm)) - allocate(mwpv(im,jsta_2l:jend_2u,lm)) - allocate(unknown(im,jsta_2l:jend_2u,lm)) - allocate(vdiffzacce(im,jsta_2l:jend_2u,lm)) - allocate(zgdrag(im,jsta_2l:jend_2u,lm)) - allocate(cnvctummixing(im,jsta_2l:jend_2u,lm)) - allocate(vdiffmacce(im,jsta_2l:jend_2u,lm)) - allocate(mgdrag(im,jsta_2l:jend_2u,lm)) - allocate(cnvctvmmixing(im,jsta_2l:jend_2u,lm)) - allocate(ncnvctcfrac(im,jsta_2l:jend_2u,lm)) - allocate(cnvctumflx(im,jsta_2l:jend_2u,lm)) - allocate(cnvctdmflx(im,jsta_2l:jend_2u,lm)) - allocate(cnvctdetmflx(im,jsta_2l:jend_2u,lm)) - allocate(cnvctzgdrag(im,jsta_2l:jend_2u,lm)) - allocate(cnvctmgdrag(im,jsta_2l:jend_2u,lm)) + allocate(vdifftt(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) +! allocate(tcucns(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(vdiffmois(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(dconvmois(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(sconvmois(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(nradtt(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(o3vdiff(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(o3prod(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(o3tndy(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(mwpv(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(unknown(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(vdiffzacce(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(zgdrag(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(cnvctummixing(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(vdiffmacce(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(mgdrag(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(cnvctvmmixing(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ncnvctcfrac(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(cnvctumflx(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(cnvctdmflx(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(cnvctdetmflx(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(cnvctzgdrag(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(cnvctmgdrag(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u vdifftt(i,j,l)=spval vdiffmois(i,j,l)=spval dconvmois(i,j,l)=spval @@ -281,21 +281,21 @@ SUBROUTINE ALLOCATE_ALL() enddo endif ! - allocate(htm(im,jsta_2l:jend_2u,lm)) - allocate(vtm(im,jsta_2l:jend_2u,lm)) + allocate(htm(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(vtm(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) ! add GFIP ICING - allocate(icing_gfip(im,jsta_2l:jend_2u,lm)) - allocate(icing_gfis(im,jsta_2l:jend_2u,lm)) + allocate(icing_gfip(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(icing_gfis(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) ! ! add GTG turbulence - allocate(catedr(im,jsta_2l:jend_2u,lm)) - allocate(mwt(im,jsta_2l:jend_2u,lm)) - allocate(gtg(im,jsta_2l:jend_2u,lm)) + allocate(catedr(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(mwt(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(gtg(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u htm(i,j,l)=spval vtm(i,j,l)=spval icing_gfip(i,j,l)=spval @@ -309,9 +309,9 @@ SUBROUTINE ALLOCATE_ALL() ! ! FROM SOIL ! - allocate(smc(im,jsta_2l:jend_2u,nsoil)) - allocate(stc(im,jsta_2l:jend_2u,nsoil)) - allocate(sh2o(im,jsta_2l:jend_2u,nsoil)) + allocate(smc(ista_2l:iend_2u,jsta_2l:jend_2u,nsoil)) + allocate(stc(ista_2l:iend_2u,jsta_2l:jend_2u,nsoil)) + allocate(sh2o(ista_2l:iend_2u,jsta_2l:jend_2u,nsoil)) allocate(SLDPTH(NSOIL)) allocate(RTDPTH(NSOIL)) allocate(SLLEVEL(NSOIL)) @@ -319,7 +319,7 @@ SUBROUTINE ALLOCATE_ALL() !$omp parallel do private(i,j,l) do l=1,nsoil do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u smc(i,j,l)=spval stc(i,j,l)=spval sh2o(i,j,l)=spval @@ -336,25 +336,25 @@ SUBROUTINE ALLOCATE_ALL() ! FROM VRBLS2D ! ! SRD - allocate(wspd10max(im,jsta_2l:jend_2u)) - allocate(w_up_max(im,jsta_2l:jend_2u)) - allocate(w_dn_max(im,jsta_2l:jend_2u)) - allocate(w_mean(im,jsta_2l:jend_2u)) - allocate(refd_max(im,jsta_2l:jend_2u)) - allocate(prate_max(im,jsta_2l:jend_2u)) - allocate(fprate_max(im,jsta_2l:jend_2u)) - allocate(up_heli_max(im,jsta_2l:jend_2u)) - allocate(up_heli_max16(im,jsta_2l:jend_2u)) - allocate(up_heli_min(im,jsta_2l:jend_2u)) - allocate(up_heli_min16(im,jsta_2l:jend_2u)) - allocate(up_heli_max02(im,jsta_2l:jend_2u)) - allocate(up_heli_min02(im,jsta_2l:jend_2u)) - allocate(up_heli_max03(im,jsta_2l:jend_2u)) - allocate(up_heli_min03(im,jsta_2l:jend_2u)) + allocate(wspd10max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(w_up_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(w_dn_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(w_mean(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(refd_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(prate_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(fprate_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_max16(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_min(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_min16(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_max02(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_min02(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_max03(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli_min03(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u wspd10max(i,j)=spval w_up_max(i,j)=spval w_dn_max(i,j)=spval @@ -372,31 +372,31 @@ SUBROUTINE ALLOCATE_ALL() up_heli_min03(i,j)=spval enddo enddo - allocate(rel_vort_max(im,jsta_2l:jend_2u)) - allocate(rel_vort_max01(im,jsta_2l:jend_2u)) - allocate(rel_vort_maxhy1(im,jsta_2l:jend_2u)) - allocate(wspd10umax(im,jsta_2l:jend_2u)) - allocate(wspd10vmax(im,jsta_2l:jend_2u)) - allocate(refdm10c_max(im,jsta_2l:jend_2u)) - allocate(hail_max2d(im,jsta_2l:jend_2u)) - allocate(hail_maxk1(im,jsta_2l:jend_2u)) - allocate(hail_maxhailcast(im,jsta_2l:jend_2u)) - allocate(grpl_max(im,jsta_2l:jend_2u)) - allocate(up_heli(im,jsta_2l:jend_2u)) - allocate(up_heli16(im,jsta_2l:jend_2u)) - allocate(ltg1_max(im,jsta_2l:jend_2u)) - allocate(ltg2_max(im,jsta_2l:jend_2u)) - allocate(ltg3_max(im,jsta_2l:jend_2u)) - allocate(nci_ltg(im,jsta_2l:jend_2u)) - allocate(nca_ltg(im,jsta_2l:jend_2u)) - allocate(nci_wq(im,jsta_2l:jend_2u)) - allocate(nca_wq(im,jsta_2l:jend_2u)) - allocate(nci_refd(im,jsta_2l:jend_2u)) - allocate(nca_refd(im,jsta_2l:jend_2u)) + allocate(rel_vort_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rel_vort_max01(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rel_vort_maxhy1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(wspd10umax(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(wspd10vmax(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(refdm10c_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(hail_max2d(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(hail_maxk1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(hail_maxhailcast(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(grpl_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(up_heli16(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ltg1_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ltg2_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ltg3_max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(nci_ltg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(nca_ltg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(nci_wq(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(nca_wq(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(nci_refd(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(nca_refd(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u rel_vort_max(i,j)=spval rel_vort_max01(i,j)=spval rel_vort_maxhy1(i,j)=spval @@ -422,60 +422,60 @@ SUBROUTINE ALLOCATE_ALL() enddo ! SRD ! CRA - allocate(REF_10CM(im,jsta_2l:jend_2u,lm)) + allocate(REF_10CM(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u REF_10CM(i,j,l)=spval enddo enddo enddo - allocate(REFC_10CM(im,jsta_2l:jend_2u)) - allocate(REF1KM_10CM(im,jsta_2l:jend_2u)) - allocate(REF4KM_10CM(im,jsta_2l:jend_2u)) + allocate(REFC_10CM(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(REF1KM_10CM(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(REF4KM_10CM(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u REFC_10CM(i,j)=spval REF1KM_10CM(i,j)=spval REF4KM_10CM(i,j)=spval enddo enddo ! CRA - allocate(u10(im,jsta_2l:jend_2u)) - allocate(v10(im,jsta_2l:jend_2u)) - allocate(tshltr(im,jsta_2l:jend_2u)) - allocate(qshltr(im,jsta_2l:jend_2u)) - allocate(mrshltr(im,jsta_2l:jend_2u)) - allocate(smstav(im,jsta_2l:jend_2u)) - allocate(ssroff(im,jsta_2l:jend_2u)) - allocate(bgroff(im,jsta_2l:jend_2u)) - allocate(vegfrc(im,jsta_2l:jend_2u)) - allocate(shdmin(im,jsta_2l:jend_2u)) - allocate(shdmax(im,jsta_2l:jend_2u)) - allocate(lai(im,jsta_2l:jend_2u)) - allocate(acsnow(im,jsta_2l:jend_2u)) - allocate(acgraup(im,jsta_2l:jend_2u)) - allocate(acfrain(im,jsta_2l:jend_2u)) - allocate(acsnom(im,jsta_2l:jend_2u)) - allocate(cmc(im,jsta_2l:jend_2u)) - allocate(sst(im,jsta_2l:jend_2u)) - allocate(qz0(im,jsta_2l:jend_2u)) - allocate(thz0(im,jsta_2l:jend_2u)) - allocate(uz0(im,jsta_2l:jend_2u)) - allocate(vz0(im,jsta_2l:jend_2u)) - allocate(qs(im,jsta_2l:jend_2u)) - allocate(ths(im,jsta_2l:jend_2u)) - allocate(sno(im,jsta_2l:jend_2u)) - allocate(snonc(im,jsta_2l:jend_2u)) - allocate(ti(im,jsta_2l:jend_2u)) + allocate(u10(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(v10(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(tshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(mrshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(smstav(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ssroff(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(bgroff(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(vegfrc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(shdmin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(shdmax(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(lai(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acsnow(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acgraup(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acfrain(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acsnom(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cmc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sst(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qz0(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(thz0(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(uz0(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(vz0(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qs(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ths(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sno(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snonc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ti(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u u10(i,j)=spval v10(i,j)=spval tshltr(i,j)=spval @@ -506,15 +506,15 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo ! Time-averaged fileds - allocate(u10mean(im,jsta_2l:jend_2u)) - allocate(v10mean(im,jsta_2l:jend_2u)) - allocate(spduv10mean(im,jsta_2l:jend_2u)) - allocate(swradmean(im,jsta_2l:jend_2u)) - allocate(swnormmean(im,jsta_2l:jend_2u)) + allocate(u10mean(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(v10mean(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(spduv10mean(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swradmean(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swnormmean(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u u10mean(i,j)=spval v10mean(i,j)=spval spduv10mean(i,j)=spval @@ -523,20 +523,20 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo !NAMstart - allocate(snoavg(im,jsta_2l:jend_2u)) - allocate(psfcavg(im,jsta_2l:jend_2u)) - allocate(t10m(im,jsta_2l:jend_2u)) - allocate(t10avg(im,jsta_2l:jend_2u)) - allocate(akmsavg(im,jsta_2l:jend_2u)) - allocate(akhsavg(im,jsta_2l:jend_2u)) - allocate(u10max(im,jsta_2l:jend_2u)) - allocate(v10max(im,jsta_2l:jend_2u)) - allocate(u10h(im,jsta_2l:jend_2u)) - allocate(v10h(im,jsta_2l:jend_2u)) + allocate(snoavg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(psfcavg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(t10m(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(t10avg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(akmsavg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(akhsavg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(u10max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(v10max(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(u10h(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(v10h(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u snoavg(i,j)=spval psfcavg(i,j)=spval t10m(i,j)=spval @@ -550,16 +550,16 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo !NAMend - allocate(akms(im,jsta_2l:jend_2u)) - allocate(akhs(im,jsta_2l:jend_2u)) - allocate(cuprec(im,jsta_2l:jend_2u)) - allocate(acprec(im,jsta_2l:jend_2u)) - allocate(ancprc(im,jsta_2l:jend_2u)) - allocate(cuppt(im,jsta_2l:jend_2u)) + allocate(akms(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(akhs(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cuprec(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acprec(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ancprc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cuppt(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u akms(i,j)=spval akhs(i,j)=spval cuprec(i,j)=spval @@ -569,33 +569,33 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo ! GSDstart - allocate(rainc_bucket(im,jsta_2l:jend_2u)) - allocate(rainc_bucket1(im,jsta_2l:jend_2u)) - allocate(rainnc_bucket(im,jsta_2l:jend_2u)) - allocate(rainnc_bucket1(im,jsta_2l:jend_2u)) - allocate(pcp_bucket(im,jsta_2l:jend_2u)) - allocate(pcp_bucket1(im,jsta_2l:jend_2u)) - allocate(snow_bucket(im,jsta_2l:jend_2u)) - allocate(snow_bucket1(im,jsta_2l:jend_2u)) - allocate(graup_bucket(im,jsta_2l:jend_2u)) - allocate(graup_bucket1(im,jsta_2l:jend_2u)) - allocate(qrmax(im,jsta_2l:jend_2u)) - allocate(tmax(im,jsta_2l:jend_2u)) - allocate(snownc(im,jsta_2l:jend_2u)) - allocate(graupelnc(im,jsta_2l:jend_2u)) - allocate(tsnow(im,jsta_2l:jend_2u)) - allocate(qvg(im,jsta_2l:jend_2u)) - allocate(qv2m(im,jsta_2l:jend_2u)) - allocate(qvl1(im,jsta_2l:jend_2u)) - allocate(snfden(im,jsta_2l:jend_2u)) - allocate(sndepac(im,jsta_2l:jend_2u)) - allocate(int_smoke(im,jsta_2l:jend_2u)) - allocate(mean_frp(im,jsta_2l:jend_2u)) - allocate(int_aod(im,jsta_2l:jend_2u)) + allocate(rainc_bucket(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rainc_bucket1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rainnc_bucket(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rainnc_bucket1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pcp_bucket(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pcp_bucket1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snow_bucket(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snow_bucket1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(graup_bucket(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(graup_bucket1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qrmax(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(tmax(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snownc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(graupelnc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(tsnow(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qvg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qv2m(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qvl1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snfden(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sndepac(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(int_smoke(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(mean_frp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(int_aod(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u rainc_bucket(i,j)=spval rainc_bucket1(i,j)=spval rainnc_bucket(i,j)=spval @@ -621,40 +621,40 @@ SUBROUTINE ALLOCATE_ALL() int_aod(i,j)=spval enddo enddo - allocate(smoke(im,jsta_2l:jend_2u,lm,nbin_sm)) + allocate(smoke(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_sm)) !$omp parallel do private(i,j,l,k) do k=1,nbin_sm do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u smoke(i,j,l,k)=spval enddo enddo enddo enddo ! GSDend - allocate(rswin(im,jsta_2l:jend_2u)) - allocate(swddni(im,jsta_2l:jend_2u)) - allocate(swddif(im,jsta_2l:jend_2u)) - allocate(swdnbc(im,jsta_2l:jend_2u)) - allocate(swddnic(im,jsta_2l:jend_2u)) - allocate(swddifc(im,jsta_2l:jend_2u)) - allocate(swupbc(im,jsta_2l:jend_2u)) - allocate(swupt(im,jsta_2l:jend_2u)) - allocate(taod5502d(im,jsta_2l:jend_2u)) - allocate(aerasy2d(im,jsta_2l:jend_2u)) - allocate(aerssa2d(im,jsta_2l:jend_2u)) - allocate(lwp(im,jsta_2l:jend_2u)) - allocate(iwp(im,jsta_2l:jend_2u)) - allocate(rlwin(im,jsta_2l:jend_2u)) - allocate(lwdnbc(im,jsta_2l:jend_2u)) - allocate(lwupbc(im,jsta_2l:jend_2u)) - allocate(rlwtoa(im,jsta_2l:jend_2u)) - allocate(rswtoa(im,jsta_2l:jend_2u)) + allocate(rswin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swddni(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swddif(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swdnbc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swddnic(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swddifc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swupbc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swupt(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(taod5502d(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aerasy2d(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aerssa2d(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(lwp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(iwp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rlwin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(lwdnbc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(lwupbc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rlwtoa(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rswtoa(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u rswin(i,j)=spval swddni(i,j)=spval swddif(i,j)=spval @@ -675,33 +675,33 @@ SUBROUTINE ALLOCATE_ALL() rswtoa(i,j)=spval enddo enddo - allocate(tg(im,jsta_2l:jend_2u)) - allocate(sfcshx(im,jsta_2l:jend_2u)) - allocate(sfclhx(im,jsta_2l:jend_2u)) - allocate(fis(im,jsta_2l:jend_2u)) - allocate(t500(im,jsta_2l:jend_2u)) - allocate(t700(im,jsta_2l:jend_2u)) - allocate(z500(im,jsta_2l:jend_2u)) - allocate(z700(im,jsta_2l:jend_2u)) - allocate(teql(im,jsta_2l:jend_2u)) - allocate(ieql(im,jsta_2l:jend_2u)) - allocate(cfracl(im,jsta_2l:jend_2u)) - allocate(cfracm(im,jsta_2l:jend_2u)) - allocate(cfrach(im,jsta_2l:jend_2u)) - allocate(acfrst(im,jsta_2l:jend_2u)) - allocate(acfrcv(im,jsta_2l:jend_2u)) - allocate(hbot(im,jsta_2l:jend_2u)) - allocate(htop(im,jsta_2l:jend_2u)) - allocate(aswin(im,jsta_2l:jend_2u)) - allocate(alwin(im,jsta_2l:jend_2u)) - allocate(aswout(im,jsta_2l:jend_2u)) - allocate(alwout(im,jsta_2l:jend_2u)) - allocate(aswtoa(im,jsta_2l:jend_2u)) - allocate(alwtoa(im,jsta_2l:jend_2u)) + allocate(tg(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcshx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfclhx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(fis(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(t500(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(t700(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(z500(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(z700(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(teql(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ieql(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cfracl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cfracm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cfrach(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acfrst(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acfrcv(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(hbot(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(htop(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aswin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(alwin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aswout(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(alwout(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aswtoa(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(alwtoa(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u tg(i,j)=spval sfcshx(i,j)=spval sfclhx(i,j)=spval @@ -726,36 +726,36 @@ SUBROUTINE ALLOCATE_ALL() alwtoa(i,j)=spval enddo enddo - allocate(czen(im,jsta_2l:jend_2u)) - allocate(czmean(im,jsta_2l:jend_2u)) - allocate(sigt4(im,jsta_2l:jend_2u)) - allocate(rswout(im,jsta_2l:jend_2u)) - allocate(radot(im,jsta_2l:jend_2u)) - allocate(ncfrst(im,jsta_2l:jend_2u)) ! real - allocate(ncfrcv(im,jsta_2l:jend_2u)) ! real - allocate(smstot(im,jsta_2l:jend_2u)) - allocate(pctsno(im,jsta_2l:jend_2u)) - allocate(pshltr(im,jsta_2l:jend_2u)) - allocate(th10(im,jsta_2l:jend_2u)) - allocate(q10(im,jsta_2l:jend_2u)) - allocate(sr(im,jsta_2l:jend_2u)) - allocate(prec(im,jsta_2l:jend_2u)) - allocate(subshx(im,jsta_2l:jend_2u)) - allocate(snopcx(im,jsta_2l:jend_2u)) - allocate(sfcuvx(im,jsta_2l:jend_2u)) - allocate(sfcevp(im,jsta_2l:jend_2u)) - allocate(potevp(im,jsta_2l:jend_2u)) - allocate(z0(im,jsta_2l:jend_2u)) - allocate(ustar(im,jsta_2l:jend_2u)) - allocate(pblh(im,jsta_2l:jend_2u)) - allocate(pblhgust(im,jsta_2l:jend_2u)) - allocate(mixht(im,jsta_2l:jend_2u)) - allocate(twbs(im,jsta_2l:jend_2u)) - allocate(qwbs(im,jsta_2l:jend_2u)) + allocate(czen(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(czmean(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sigt4(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rswout(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(radot(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ncfrst(ista_2l:iend_2u,jsta_2l:jend_2u)) ! real + allocate(ncfrcv(ista_2l:iend_2u,jsta_2l:jend_2u)) ! real + allocate(smstot(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pctsno(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(th10(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(q10(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(prec(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(subshx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snopcx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcuvx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcevp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(potevp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(z0(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ustar(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pblh(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pblhgust(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(mixht(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(twbs(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(qwbs(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u czen(i,j)=spval czmean(i,j)=spval sigt4(i,j)=spval @@ -784,37 +784,37 @@ SUBROUTINE ALLOCATE_ALL() qwbs(i,j)=spval enddo enddo - allocate(sfcexc(im,jsta_2l:jend_2u)) - allocate(grnflx(im,jsta_2l:jend_2u)) - allocate(soiltb(im,jsta_2l:jend_2u)) - allocate(z1000(im,jsta_2l:jend_2u)) - allocate(slp(im,jsta_2l:jend_2u)) - allocate(pslp(im,jsta_2l:jend_2u)) - allocate(f(im,jsta_2l:jend_2u)) - allocate(albedo(im,jsta_2l:jend_2u)) - allocate(albase(im,jsta_2l:jend_2u)) - allocate(cldfra(im,jsta_2l:jend_2u)) - allocate(cprate(im,jsta_2l:jend_2u)) - allocate(cnvcfr(im,jsta_2l:jend_2u)) - allocate(ivgtyp(im,jsta_2l:jend_2u)) - allocate(isltyp(im,jsta_2l:jend_2u)) - allocate(hbotd(im,jsta_2l:jend_2u)) - allocate(htopd(im,jsta_2l:jend_2u)) - allocate(hbots(im,jsta_2l:jend_2u)) - allocate(htops(im,jsta_2l:jend_2u)) - allocate(cldefi(im,jsta_2l:jend_2u)) - allocate(islope(im,jsta_2l:jend_2u)) - allocate(si(im,jsta_2l:jend_2u)) - allocate(lspa(im,jsta_2l:jend_2u)) - allocate(rswinc(im,jsta_2l:jend_2u)) - allocate(vis(im,jsta_2l:jend_2u)) - allocate(pd(im,jsta_2l:jend_2u)) - allocate(mxsnal(im,jsta_2l:jend_2u)) - allocate(epsr(im,jsta_2l:jend_2u)) + allocate(sfcexc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(grnflx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(soiltb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(z1000(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(slp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pslp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(f(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(albedo(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(albase(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cldfra(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cprate(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cnvcfr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ivgtyp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(isltyp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(hbotd(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(htopd(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(hbots(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(htops(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cldefi(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(islope(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(si(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(lspa(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rswinc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(vis(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pd(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(mxsnal(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(epsr(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u sfcexc(i,j)=spval grnflx(i,j)=spval soiltb(i,j)=spval @@ -845,47 +845,47 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo ! add GFS fields - allocate(sfcux(im,jsta_2l:jend_2u)) - allocate(sfcvx(im,jsta_2l:jend_2u)) - allocate(sfcuxi(im,jsta_2l:jend_2u)) - allocate(sfcvxi(im,jsta_2l:jend_2u)) - allocate(avgalbedo(im,jsta_2l:jend_2u)) - allocate(avgcprate(im,jsta_2l:jend_2u)) - allocate(avgprec(im,jsta_2l:jend_2u)) - allocate(avgprec_cont(im,jsta_2l:jend_2u)) - allocate(avgcprate_cont(im,jsta_2l:jend_2u)) - allocate(ptop(im,jsta_2l:jend_2u)) - allocate(pbot(im,jsta_2l:jend_2u)) - allocate(avgcfrach(im,jsta_2l:jend_2u)) - allocate(avgcfracm(im,jsta_2l:jend_2u)) - allocate(avgcfracl(im,jsta_2l:jend_2u)) - allocate(avgtcdc(im,jsta_2l:jend_2u)) - allocate(auvbin(im,jsta_2l:jend_2u)) - allocate(auvbinc(im,jsta_2l:jend_2u)) - allocate(ptopl(im,jsta_2l:jend_2u)) - allocate(pbotl(im,jsta_2l:jend_2u)) - allocate(Ttopl(im,jsta_2l:jend_2u)) - allocate(ptopm(im,jsta_2l:jend_2u)) - allocate(pbotm(im,jsta_2l:jend_2u)) - allocate(Ttopm(im,jsta_2l:jend_2u)) - allocate(ptoph(im,jsta_2l:jend_2u)) - allocate(pboth(im,jsta_2l:jend_2u)) - allocate(Ttoph(im,jsta_2l:jend_2u)) - allocate(sfcugs(im,jsta_2l:jend_2u)) - allocate(sfcvgs(im,jsta_2l:jend_2u)) - allocate(pblcfr(im,jsta_2l:jend_2u)) - allocate(cldwork(im,jsta_2l:jend_2u)) - allocate(gtaux(im,jsta_2l:jend_2u)) - allocate(gtauy(im,jsta_2l:jend_2u)) - allocate(cd10(im,jsta_2l:jend_2u)) - allocate(ch10(im,jsta_2l:jend_2u)) - allocate(mdltaux(im,jsta_2l:jend_2u)) - allocate(mdltauy(im,jsta_2l:jend_2u)) - allocate(runoff(im,jsta_2l:jend_2u)) + allocate(sfcux(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcvx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcuxi(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcvxi(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgalbedo(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgcprate(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgprec(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgprec_cont(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgcprate_cont(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ptop(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pbot(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgcfrach(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgcfracm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgcfracl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgtcdc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(auvbin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(auvbinc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ptopl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pbotl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(Ttopl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ptopm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pbotm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(Ttopm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ptoph(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pboth(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(Ttoph(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcugs(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sfcvgs(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pblcfr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cldwork(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(gtaux(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(gtauy(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(cd10(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ch10(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(mdltaux(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(mdltauy(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(runoff(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u sfcux(i,j)=spval sfcvx(i,j)=spval sfcuxi(i,j)=spval @@ -925,57 +925,57 @@ SUBROUTINE ALLOCATE_ALL() runoff(i,j)=spval enddo enddo - allocate(maxtshltr(im,jsta_2l:jend_2u)) - allocate(mintshltr(im,jsta_2l:jend_2u)) - allocate(maxrhshltr(im,jsta_2l:jend_2u)) - allocate(minrhshltr(im,jsta_2l:jend_2u)) - allocate(maxqshltr(im,jsta_2l:jend_2u)) - allocate(minqshltr(im,jsta_2l:jend_2u)) - allocate(dzice(im,jsta_2l:jend_2u)) - allocate(alwinc(im,jsta_2l:jend_2u)) - allocate(alwoutc(im,jsta_2l:jend_2u)) - allocate(alwtoac(im,jsta_2l:jend_2u)) - allocate(aswinc(im,jsta_2l:jend_2u)) - allocate(aswoutc(im,jsta_2l:jend_2u)) - allocate(aswtoac(im,jsta_2l:jend_2u)) - allocate(aswintoa(im,jsta_2l:jend_2u)) - allocate(smcwlt(im,jsta_2l:jend_2u)) - allocate(suntime(im,jsta_2l:jend_2u)) - allocate(fieldcapa(im,jsta_2l:jend_2u)) - allocate(avisbeamswin(im,jsta_2l:jend_2u)) - allocate(avisdiffswin(im,jsta_2l:jend_2u)) - allocate(airbeamswin(im,jsta_2l:jend_2u)) - allocate(airdiffswin(im,jsta_2l:jend_2u)) - allocate(snowfall(im,jsta_2l:jend_2u)) - allocate(acond(im,jsta_2l:jend_2u)) - allocate(edir(im,jsta_2l:jend_2u)) - allocate(ecan(im,jsta_2l:jend_2u)) - allocate(etrans(im,jsta_2l:jend_2u)) - allocate(esnow(im,jsta_2l:jend_2u)) - allocate(avgedir(im,jsta_2l:jend_2u)) - allocate(avgecan(im,jsta_2l:jend_2u)) - allocate(avgetrans(im,jsta_2l:jend_2u)) - allocate(avgesnow(im,jsta_2l:jend_2u)) - allocate(avgpotevp(im,jsta_2l:jend_2u)) - allocate(aod550(im,jsta_2l:jend_2u)) - allocate(du_aod550(im,jsta_2l:jend_2u)) - allocate(ss_aod550(im,jsta_2l:jend_2u)) - allocate(su_aod550(im,jsta_2l:jend_2u)) - allocate(oc_aod550(im,jsta_2l:jend_2u)) - allocate(bc_aod550(im,jsta_2l:jend_2u)) - allocate(landfrac(im,jsta_2l:jend_2u)) - allocate(paha(im,jsta_2l:jend_2u)) - allocate(pahi(im,jsta_2l:jend_2u)) - allocate(tecan(im,jsta_2l:jend_2u)) - allocate(tetran(im,jsta_2l:jend_2u)) - allocate(tedir(im,jsta_2l:jend_2u)) - allocate(twa(im,jsta_2l:jend_2u)) - allocate(fdnsst(im,jsta_2l:jend_2u)) - allocate(pwat(im,jsta_2l:jend_2u)) + allocate(maxtshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(mintshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(maxrhshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(minrhshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(maxqshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(minqshltr(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dzice(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(alwinc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(alwoutc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(alwtoac(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aswinc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aswoutc(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aswtoac(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aswintoa(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(smcwlt(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(suntime(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(fieldcapa(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avisbeamswin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avisdiffswin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(airbeamswin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(airdiffswin(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snowfall(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acond(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(edir(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ecan(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(etrans(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(esnow(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgedir(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgecan(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgetrans(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgesnow(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(avgpotevp(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(aod550(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(du_aod550(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ss_aod550(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(su_aod550(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(oc_aod550(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(bc_aod550(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(landfrac(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(paha(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pahi(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(tecan(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(tetran(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(tedir(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(twa(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(fdnsst(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pwat(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u maxtshltr(i,j)=spval mintshltr(i,j)=spval maxrhshltr(i,j)=spval @@ -1028,19 +1028,19 @@ SUBROUTINE ALLOCATE_ALL() ! ! FROM MASKS ! - allocate(hbm2(im,jsta_2l:jend_2u)) - allocate(sm(im,jsta_2l:jend_2u)) - allocate(sice(im,jsta_2l:jend_2u)) - allocate(lmh(im,jsta_2l:jend_2u)) ! real - allocate(lmv(im,jsta_2l:jend_2u)) ! real - allocate(gdlat(im,jsta_2l:jend_2u)) - allocate(gdlon(im,jsta_2l:jend_2u)) - allocate(dx(im,jsta_2l:jend_2u)) - allocate(dy(im,jsta_2l:jend_2u)) + allocate(hbm2(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sice(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(lmh(ista_2l:iend_2u,jsta_2l:jend_2u)) ! real + allocate(lmv(ista_2l:iend_2u,jsta_2l:jend_2u)) ! real + allocate(gdlat(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(gdlon(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dy(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u hbm2(i,j)=spval sm(i,j)=spval sice(i,j)=spval @@ -1058,19 +1058,19 @@ SUBROUTINE ALLOCATE_ALL() ! ! Add GOCART fields ! vrbls4d - allocate(dust(im,jsta_2l:jend_2u,lm,nbin_du)) - allocate(salt(im,jsta_2l:jend_2u,lm,nbin_ss)) - allocate(soot(im,jsta_2l:jend_2u,lm,nbin_bc)) - allocate(waso(im,jsta_2l:jend_2u,lm,nbin_oc)) - allocate(suso(im,jsta_2l:jend_2u,lm,nbin_su)) - allocate(pp25(im,jsta_2l:jend_2u,lm,nbin_su)) - allocate(pp10(im,jsta_2l:jend_2u,lm,nbin_su)) + allocate(dust(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_du)) + allocate(salt(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_ss)) + allocate(soot(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_bc)) + allocate(waso(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_oc)) + allocate(suso(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_su)) + allocate(pp25(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_su)) + allocate(pp10(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_su)) !Initialization !$omp parallel do private(i,j,l,k) do k=1,nbin_du do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u dust(i,j,l,k)=spval enddo enddo @@ -1080,7 +1080,7 @@ SUBROUTINE ALLOCATE_ALL() do k=1,nbin_ss do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u salt(i,j,l,k)=spval enddo enddo @@ -1090,7 +1090,7 @@ SUBROUTINE ALLOCATE_ALL() do k=1,nbin_bc do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u soot(i,j,l,k)=spval enddo enddo @@ -1100,7 +1100,7 @@ SUBROUTINE ALLOCATE_ALL() do k=1,nbin_oc do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u waso(i,j,l,k)=spval enddo enddo @@ -1110,7 +1110,7 @@ SUBROUTINE ALLOCATE_ALL() do k=1,nbin_su do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u suso(i,j,l,k)=spval pp25(i,j,l,k)=spval pp10(i,j,l,k)=spval @@ -1119,15 +1119,15 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo ! vrbls3d - allocate(ext(im,jsta_2l:jend_2u,lm)) - allocate(asy(im,jsta_2l:jend_2u,lm)) - allocate(ssa(im,jsta_2l:jend_2u,lm)) - allocate(sca(im,jsta_2l:jend_2u,lm)) + allocate(ext(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asy(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ssa(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(sca(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u ext(i,j,l)=spval asy(i,j,l)=spval ssa(i,j,l)=spval @@ -1135,35 +1135,35 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo enddo - allocate(duem(im,jsta_2l:jend_2u,nbin_du)) - allocate(dusd(im,jsta_2l:jend_2u,nbin_du)) - allocate(dudp(im,jsta_2l:jend_2u,nbin_du)) - allocate(duwt(im,jsta_2l:jend_2u,nbin_du)) - allocate(dusv(im,jsta_2l:jend_2u,nbin_du)) - allocate(suem(im,jsta_2l:jend_2u,nbin_su)) - allocate(susd(im,jsta_2l:jend_2u,nbin_su)) - allocate(sudp(im,jsta_2l:jend_2u,nbin_su)) - allocate(suwt(im,jsta_2l:jend_2u,nbin_su)) - allocate(ocem(im,jsta_2l:jend_2u,nbin_oc)) - allocate(ocsd(im,jsta_2l:jend_2u,nbin_oc)) - allocate(ocdp(im,jsta_2l:jend_2u,nbin_oc)) - allocate(ocwt(im,jsta_2l:jend_2u,nbin_oc)) - allocate(ocsv(im,jsta_2l:jend_2u,nbin_oc)) - allocate(bcem(im,jsta_2l:jend_2u,nbin_bc)) - allocate(bcsd(im,jsta_2l:jend_2u,nbin_bc)) - allocate(bcdp(im,jsta_2l:jend_2u,nbin_bc)) - allocate(bcwt(im,jsta_2l:jend_2u,nbin_bc)) - allocate(bcsv(im,jsta_2l:jend_2u,nbin_bc)) - allocate(ssem(im,jsta_2l:jend_2u,nbin_ss)) - allocate(sssd(im,jsta_2l:jend_2u,nbin_ss)) - allocate(ssdp(im,jsta_2l:jend_2u,nbin_ss)) - allocate(sswt(im,jsta_2l:jend_2u,nbin_ss)) - allocate(sssv(im,jsta_2l:jend_2u,nbin_ss)) + allocate(duem(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_du)) + allocate(dusd(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_du)) + allocate(dudp(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_du)) + allocate(duwt(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_du)) + allocate(dusv(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_du)) + allocate(suem(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_su)) + allocate(susd(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_su)) + allocate(sudp(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_su)) + allocate(suwt(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_su)) + allocate(ocem(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_oc)) + allocate(ocsd(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_oc)) + allocate(ocdp(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_oc)) + allocate(ocwt(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_oc)) + allocate(ocsv(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_oc)) + allocate(bcem(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_bc)) + allocate(bcsd(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_bc)) + allocate(bcdp(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_bc)) + allocate(bcwt(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_bc)) + allocate(bcsv(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_bc)) + allocate(ssem(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_ss)) + allocate(sssd(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_ss)) + allocate(ssdp(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_ss)) + allocate(sswt(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_ss)) + allocate(sssv(ista_2l:iend_2u,jsta_2l:jend_2u,nbin_ss)) !Initialization !$omp parallel do private(i,j,l) do l=1,nbin_du do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u duem(i,j,l)=spval dusd(i,j,l)=spval dudp(i,j,l)=spval @@ -1175,7 +1175,7 @@ SUBROUTINE ALLOCATE_ALL() do l=1,nbin_su do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u suem(i,j,l)=spval susd(i,j,l)=spval sudp(i,j,l)=spval @@ -1186,7 +1186,7 @@ SUBROUTINE ALLOCATE_ALL() do l=1,nbin_oc do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u ocem(i,j,l)=spval ocsd(i,j,l)=spval ocdp(i,j,l)=spval @@ -1198,7 +1198,7 @@ SUBROUTINE ALLOCATE_ALL() do l=1,nbin_bc do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u bcem(i,j,l)=spval bcsd(i,j,l)=spval bcdp(i,j,l)=spval @@ -1210,7 +1210,7 @@ SUBROUTINE ALLOCATE_ALL() do l=1,nbin_ss do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u ssem(i,j,l)=spval sssd(i,j,l)=spval ssdp(i,j,l)=spval @@ -1219,54 +1219,54 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo enddo - allocate(rhomid(im,jsta_2l:jend_2u,lm)) + allocate(rhomid(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u rhomid(i,j,l)=spval enddo enddo enddo ! vrbls2d - allocate(dusmass(im,jsta_2l:jend_2u)) - allocate(ducmass(im,jsta_2l:jend_2u)) - allocate(dusmass25(im,jsta_2l:jend_2u)) - allocate(ducmass25(im,jsta_2l:jend_2u)) - allocate(susmass(im,jsta_2l:jend_2u)) - allocate(sucmass(im,jsta_2l:jend_2u)) - allocate(susmass25(im,jsta_2l:jend_2u)) - allocate(sucmass25(im,jsta_2l:jend_2u)) - allocate(ocsmass(im,jsta_2l:jend_2u)) - allocate(occmass(im,jsta_2l:jend_2u)) - allocate(ocsmass25(im,jsta_2l:jend_2u)) - allocate(occmass25(im,jsta_2l:jend_2u)) - allocate(bcsmass(im,jsta_2l:jend_2u)) - allocate(bccmass(im,jsta_2l:jend_2u)) - allocate(bcsmass25(im,jsta_2l:jend_2u)) - allocate(bccmass25(im,jsta_2l:jend_2u)) - allocate(sssmass(im,jsta_2l:jend_2u)) - allocate(sscmass(im,jsta_2l:jend_2u)) - allocate(sssmass25(im,jsta_2l:jend_2u)) - allocate(sscmass25(im,jsta_2l:jend_2u)) - allocate(dustcb(im,jsta_2l:jend_2u)) - allocate(occb(im,jsta_2l:jend_2u)) - allocate(bccb(im,jsta_2l:jend_2u)) - allocate(sulfcb(im,jsta_2l:jend_2u)) - allocate(pp25cb(im,jsta_2l:jend_2u)) - allocate(pp10cb(im,jsta_2l:jend_2u)) - allocate(sscb(im,jsta_2l:jend_2u)) - allocate(dustallcb(im,jsta_2l:jend_2u)) - allocate(ssallcb(im,jsta_2l:jend_2u)) - allocate(dustpm(im,jsta_2l:jend_2u)) - allocate(dustpm10(im,jsta_2l:jend_2u)) - allocate(sspm(im,jsta_2l:jend_2u)) - allocate(maod(im,jsta_2l:jend_2u)) + allocate(dusmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ducmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dusmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ducmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(susmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sucmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(susmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sucmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ocsmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(occmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ocsmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(occmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(bcsmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(bccmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(bcsmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(bccmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sssmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sscmass(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sssmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sscmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dustcb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(occb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(bccb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sulfcb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pp25cb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(pp10cb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sscb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dustallcb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ssallcb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dustpm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(dustpm10(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(sspm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(maod(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u dusmass(i,j)=spval ducmass(i,j)=spval dusmass25(i,j)=spval @@ -1304,13 +1304,13 @@ SUBROUTINE ALLOCATE_ALL() enddo endif ! HWRF RRTMG output - allocate(acswupt(im,jsta_2l:jend_2u)) - allocate(swdnt(im,jsta_2l:jend_2u)) - allocate(acswdnt(im,jsta_2l:jend_2u)) + allocate(acswupt(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(swdnt(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(acswdnt(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u acswupt(i,j)=spval swdnt(i,j)=spval acswdnt(i,j)=spval @@ -1318,13 +1318,13 @@ SUBROUTINE ALLOCATE_ALL() enddo ! UPP_MATH MODULE DIFFERENTIAL EQUATIONS - allocate(ddvdx(im,jsta_2l:jend_2u)) - allocate(ddudy(im,jsta_2l:jend_2u)) - allocate(uuavg(im,jsta_2l:jend_2u)) + allocate(ddvdx(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ddudy(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(uuavg(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u ddvdx(i,j)=spval ddudy(i,j)=spval uuavg(i,j)=spval @@ -1335,14 +1335,14 @@ SUBROUTINE ALLOCATE_ALL() if (me == 0) print *,'aqfcmaq_on= ', aqfcmaq_on if (aqfcmaq_on) then - allocate(ozcon(im,jsta_2l:jend_2u,lm)) - allocate(pmtf(im,jsta_2l:jend_2u,lm)) + allocate(ozcon(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(pmtf(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u - do i=1,im + do i=ista_2l,iend_2u ozcon(i,j,l)=0. pmtf(i,j,l)=0. enddo diff --git a/sorc/ncep_post.fd/AVIATION.f b/sorc/ncep_post.fd/AVIATION.f index fe22243ec..010e5c8bd 100644 --- a/sorc/ncep_post.fd/AVIATION.f +++ b/sorc/ncep_post.fd/AVIATION.f @@ -67,7 +67,7 @@ SUBROUTINE CALLLWS(U,V,H,LLWS) ! USE vrbls2d, only: fis, u10, v10 use params_mod, only: gi - use ctlblk_mod, only: jsta, jend, im, jm, lsm, spval + use ctlblk_mod, only: jsta, jend, im, jm, lsm, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -84,7 +84,7 @@ SUBROUTINE CALLLWS(U,V,H,LLWS) ! DO 100 J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Z1 = 10.0 + FIS(I,J)*GI !Height of 10m levels geographic height (from sea level) @@ -158,20 +158,65 @@ SUBROUTINE CALLLWS(U,V,H,LLWS) !> !> @author Binbin Zhou NCEP/EMC @date 2005-08-16 SUBROUTINE CALICING (T1,RH,OMGA, ICING) - use ctlblk_mod, only: jsta, jend, im, spval +!$$$ SUBPROGRAM DOCUMENTATION BLOCK +! . . . +! SUBPROGRAM: CALICING COMPUTES In-Flight Icing +! PRGRMMR: Binbin Zhou /NCEP/EMC DATE: 2005-08-16 +! +! ABSTRACT: +! This program computes the in-flight icing condition +! with the T-RH-OMGA algorithm provided by S. Silberberg of +! NCEP/AWC (improved new version) +! +! According to S. Silberberg, Icing happens in following +! situation: +! (1) -22C < T < 0C to +! (2) RH > 70 % +! (3) Ascent air, OMGA < 0 +! (4) Equivalent Potential Vorticity (EPV) < 0 +! (5) Cloud water if SLD (supercooled large droplet) +! +! Current version dosn't consider SLD, so cloud water +! is not used. EPV computation is not available for current +! NCEP/EMC models(NAM, WRF, RSM), so EPV is also not +! used +! +! USAGE: CALL CALICING(T1,RH,OMGA,ICING) +! INPUT ARGUMENT LIST: +! T1 - TEMPERATURE (K) +! RH - RELATIVE HUMIDITY (DECIMAL FORM) +! OMGA - Vertical velocity (Pa/sec) +! +! OUTPUT ARGUMENT LIST: +! ICING - ICING CONDITION (1 or 0) +! +! OUTPUT FILES: +! NONE +! +! SUBPROGRAMS CALLED: +! UTILITIES: +! LIBRARY: +! NONE +! +! ATTRIBUTES: +! LANGUAGE: FORTRAN 90/77 +! MACHINE : BLUE AT NCEP +!$$$ +! + use ctlblk_mod, only: jsta, jend, im, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - REAL, DIMENSION(IM,jsta:jend), INTENT(IN) :: T1,RH,OMGA - REAL, DIMENSION(IM,jsta:jend), INTENT(INOUT) :: ICING + REAL, DIMENSION(ista:iend,jsta:jend), INTENT(IN) :: T1,RH,OMGA + REAL, DIMENSION(ista:iend,jsta:jend), INTENT(INOUT) :: ICING integer I,J !*************************************************************** ! ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(OMGA(I,J)= 251.0) & @@ -219,7 +264,7 @@ SUBROUTINE CALICING (T1,RH,OMGA, ICING) SUBROUTINE CALCAT(U,V,H,U_OLD,V_OLD,H_OLD,CAT) use masks, only: dx, dy use ctlblk_mod, only: spval, jsta_2l, jend_2u, jsta_m, jend_m, & - im, jm + im, jm, ista_2l, iend_2u, ista_m, iend_m, ista, iend use gridspec_mod, only: gridtype ! !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -228,10 +273,10 @@ SUBROUTINE CALCAT(U,V,H,U_OLD,V_OLD,H_OLD,CAT) ! ! DECLARE VARIABLES. ! - REAL,DIMENSION(IM,jsta_2l:jend_2u),INTENT(IN) :: U,V,H, & + REAL,DIMENSION(ista_2l:iend_2u,jsta_2l:jend_2u),INTENT(IN) :: U,V,H, & U_OLD,V_OLD,H_OLD ! INTEGER,INTENT(IN) :: L - REAL,DIMENSION(IM,jsta_2l:jend_2u),INTENT(INOUT) :: CAT + REAL,DIMENSION(ista_2l:iend_2u,jsta_2l:jend_2u),INTENT(INOUT) :: CAT REAL DSH, DST, DEF, CVG, VWS, TRBINDX INTEGER IHE(JM),IHW(JM) @@ -247,22 +292,22 @@ SUBROUTINE CALCAT(U,V,H,U_OLD,V_OLD,H_OLD,CAT) IF(GRIDTYPE == 'A')THEN IHW(J)=-1 IHE(J)=1 - ISTART=2 - ISTOP=IM-1 + ISTART=ISTA_M + ISTOP=IEND_M JSTART=JSTA_M JSTOP=JEND_M ELSE IF(GRIDTYPE=='E')THEN IHW(J)=-MOD(J,2) IHE(J)=IHW(J)+1 - ISTART=2 - ISTOP=IM-1 + ISTART=ISTA_M + ISTOP=IEND_M JSTART=JSTA_M JSTOP=JEND_M ELSE IF(GRIDTYPE=='B')THEN IHW(J)=-1 IHE(J)=0 - ISTART=2 - ISTOP=IM-1 + ISTART=ISTA_M + ISTOP=IEND_M JSTART=JSTA_M JSTOP=JEND_M ELSE @@ -271,12 +316,12 @@ SUBROUTINE CALCAT(U,V,H,U_OLD,V_OLD,H_OLD,CAT) END IF ENDDO - call exch_f(U) - call exch_f(V) - call exch_f(U_OLD) - call exch_f(V_OLD) - call exch_f(H) - call exch_f(H_OLD) + call exch(U) + call exch(V) + call exch(U_OLD) + call exch(V_OLD) + call exch(H) + call exch(H_OLD) DO 100 J=JSTART,JSTOP DO I=ISTART,ISTOP @@ -451,20 +496,20 @@ SUBROUTINE CALCAT(U,V,H,U_OLD,V_OLD,H_OLD,CAT) SUBROUTINE CALCEILING (CLDZ,TCLD,CEILING) USE vrbls2d, only: fis use params_mod, only: small, gi - use ctlblk_mod, only: jsta, jend, spval, im, modelname + use ctlblk_mod, only: jsta, jend, spval, im, modelname, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - REAL, DIMENSION(IM,jsta:jend), INTENT(IN) :: CLDZ, TCLD - REAL, DIMENSION(IM,jsta:jend), INTENT(INOUT) :: CEILING + REAL, DIMENSION(ista:iend,jsta:jend), INTENT(IN) :: CLDZ, TCLD + REAL, DIMENSION(ista:iend,jsta:jend), INTENT(INOUT) :: CEILING integer I,J !*************************************************************** ! ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(TCLD(I,J)-SPVAL) <= SMALL) THEN CEILING(I,J)=SPVAL ELSE IF(TCLD(I,J) >= 50.) THEN @@ -504,14 +549,14 @@ SUBROUTINE CALCEILING (CLDZ,TCLD,CEILING) !> @author Binbin Zhou NCEP/EMC @date 2005-08-18 SUBROUTINE CALFLTCND (CEILING,FLTCND) use vrbls2d, only: vis - use ctlblk_mod, only: jsta, jend, im, spval + use ctlblk_mod, only: jsta, jend, im, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - REAL, DIMENSION(IM,jsta:jend), INTENT(IN) :: CEILING - REAL, DIMENSION(IM,jsta:jend), INTENT(INOUT) :: FLTCND + REAL, DIMENSION(ista:iend,jsta:jend), INTENT(IN) :: CEILING + REAL, DIMENSION(ista:iend,jsta:jend), INTENT(INOUT) :: FLTCND REAL CEIL,VISI integer I,J ! @@ -519,7 +564,7 @@ SUBROUTINE CALFLTCND (CEILING,FLTCND) ! ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CEILING(I,J) feet diff --git a/sorc/ncep_post.fd/AllGETHERV_GSD.f b/sorc/ncep_post.fd/AllGETHERV_GSD.f index ae7e64021..63aef1f8d 100644 --- a/sorc/ncep_post.fd/AllGETHERV_GSD.f +++ b/sorc/ncep_post.fd/AllGETHERV_GSD.f @@ -9,8 +9,9 @@ SUBROUTINE AllGETHERV(GRID1) ! ! PROGRAM HISTORY LOG: ! +! 21-09-02 Bo Cui - Decompose UPP in X direction - use ctlblk_mod, only : im,jm,num_procs,me,jsta,jend,mpi_comm_comp + use ctlblk_mod, only : im,jm,num_procs,me,jsta,jend,ista,iend,mpi_comm_comp implicit none @@ -22,11 +23,11 @@ SUBROUTINE AllGETHERV(GRID1) REAL GRID1(IM,JM) REAL ibufrecv(IM*JM) - REAL ibufsend(im*(jend-jsta+1)) + REAL ibufsend((iend-ista+1)*(jend-jsta+1)) integer SENDCOUNT,RECVCOUNTS(num_procs),DISPLS(num_procs) ! ! write(*,*) 'check mpi', im,jm,num_procs,me,jsta,jend - SENDCOUNT=im*(jend-jsta+1) + SENDCOUNT=(iend-ista+1)*(jend-jsta+1) call MPI_ALLGATHER(SENDCOUNT, 1, MPI_INTEGER, RECVCOUNTS,1 , & MPI_INTEGER, mpi_comm_comp, ierr) DISPLS(1)=0 @@ -40,7 +41,7 @@ SUBROUTINE AllGETHERV(GRID1) ij=0 ibufsend=0.0 do j=jsta,jend - do i=1,IM + do i=ista,iend ij=ij+1 ibufsend(ij)=GRID1(i,j) enddo diff --git a/sorc/ncep_post.fd/BNDLYR.f b/sorc/ncep_post.fd/BNDLYR.f index 4d0564a8f..72e4cb950 100644 --- a/sorc/ncep_post.fd/BNDLYR.f +++ b/sorc/ncep_post.fd/BNDLYR.f @@ -42,6 +42,7 @@ !> - 02-01-15 MIKE BALDWIN - WRF VERSION !> - 20-11-10 JESSE MENG - USE UPP_PHYSICS MODULE !> - 21-08-20 Wen Meng - Retrict computation fro undefined points. +!> - 21-09-02 Bo Cui - Decompose UPP in X direction. !> !> @author Russ Treadon W/NP2 @date 1993-01-29 SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & @@ -53,7 +54,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & use masks, only: lmh use params_mod, only: d00, gi, pq0, a2, a3, a4 use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, modelname, & - jsta_m, jend_m, im, nbnd, spval + jsta_m, jend_m, im, nbnd, spval, ista_2l, iend_2u, ista_m, iend_m, ista, iend use physcons_post, only: con_rd, con_rv, con_eps, con_epsm1 use gridspec_mod, only: gridtype use upp_physics, only: FPVSNEW @@ -63,12 +64,12 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & ! DECLARE VARIABLES. ! real,PARAMETER :: DPBND=30.E2 - integer, dimension(IM,jsta:jend,NBND),intent(inout) :: LVLBND - real, dimension(IM,jsta:jend,NBND),intent(inout) :: PBND,TBND, & + integer, dimension(ista:iend,jsta:jend,NBND),intent(inout) :: LVLBND + real, dimension(ista:iend,jsta:jend,NBND),intent(inout) :: PBND,TBND, & QBND,RHBND,UBND,VBND,WBND,OMGBND,PWTBND,QCNVBND - REAL Q1D(IM,JSTA_2L:JEND_2U),V1D(IM,JSTA_2L:JEND_2U), & - U1D(IM,JSTA_2L:JEND_2U),QCNV1D(IM,JSTA_2L:JEND_2U) + REAL Q1D(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),V1D(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U), & + U1D(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),QCNV1D(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U) ! REAL, ALLOCATABLE :: PBINT(:,:,:),QSBND(:,:,:) REAL, ALLOCATABLE :: PSUM(:,:,:), QCNVG(:,:,:) @@ -81,19 +82,19 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & !***************************************************************************** ! START BNDLYR HERE ! - ALLOCATE (PBINT(IM,JSTA_2L:JEND_2U,NBND+1)) - ALLOCATE (QSBND(IM,JSTA_2L:JEND_2U,NBND)) - ALLOCATE (PSUM(IM,JSTA_2L:JEND_2U,NBND)) - ALLOCATE (QCNVG(IM,JSTA_2L:JEND_2U,LM)) - ALLOCATE (PVSUM(IM,JSTA_2L:JEND_2U,NBND)) - ALLOCATE (NSUM(IM,JSTA_2L:JEND_2U,NBND)) + ALLOCATE (PBINT(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NBND+1)) + ALLOCATE (QSBND(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NBND)) + ALLOCATE (PSUM(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NBND)) + ALLOCATE (QCNVG(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM)) + ALLOCATE (PVSUM(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NBND)) + ALLOCATE (NSUM(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NBND)) ! ! LOOP OVER HORIZONTAL GRID. AT EACH MASS POINT COMPUTE ! PRESSURE AT THE INTERFACE OF EACH BOUNDARY LAYER. ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PBINT(I,J,1) = PINT(I,J,NINT(LMH(I,J))+1) ENDDO ENDDO @@ -101,7 +102,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & DO LBND=2,NBND+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PBINT(I,J,LBND) = PBINT(I,J,LBND-1) - DPBND ENDDO ENDDO @@ -111,7 +112,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & DO L=1,LM !$omp parallel do private(i,j) DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U Q1D(I,J) = Q(I,J,L) U1D(I,J) = UH(I,J,L) V1D(I,J) = VH(I,J,L) @@ -120,7 +121,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & CALL CALMCVG(Q1D,U1D,V1D,QCNV1D) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND QCNVG(I,J,L)=QCNV1D(I,J) ENDDO ENDDO @@ -136,7 +137,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & DO LBND=1,NBND !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PBND(I,J,LBND) = D00 TBND(I,J,LBND) = D00 QBND(I,J,LBND) = D00 @@ -159,7 +160,7 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & DO L=1,LM !$omp parallel do private(i,j,dp,pm,es,qsat) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! PM = PMID(I,J,L) IF(PM 1998-05-29 | T Black | Conversion from 1-D to 2-D !> 2000-01-04 | Jim Tuccillo | MPI Version !> 2002-04-24 | Mike Baldwin | WRF Version +!> 2021-09002 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1993-01-18 SUBROUTINE BOUND(FLD,FMIN,FMAX) ! - use ctlblk_mod, only: jsta, jend, spval, im, jm + use ctlblk_mod, only: jsta, jend, spval, im, jm, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -44,7 +45,7 @@ SUBROUTINE BOUND(FLD,FMIN,FMAX) ! BOUND ARRAY. !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(fld(i,j) /= spval) then FLD(I,J) = min(FMAX, MAX(FMIN,FLD(I,J))) end if diff --git a/sorc/ncep_post.fd/CALDRG.f b/sorc/ncep_post.fd/CALDRG.f index c06db3e7a..352d6cf59 100644 --- a/sorc/ncep_post.fd/CALDRG.f +++ b/sorc/ncep_post.fd/CALDRG.f @@ -27,7 +27,7 @@ SUBROUTINE CALDRG(DRAGCO) use masks, only: lmh use params_mod, only: d00, d50, d25 use ctlblk_mod, only: jsta, jend, jsta_m, jend_m, modelname, spval, im, jm, & - jsta_2l, jend_2u + jsta_2l, jend_2u, ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -35,7 +35,7 @@ SUBROUTINE CALDRG(DRAGCO) ! INCLUDE/SET PARAMETERS. ! ! DECLARE VARIABLES. - REAL,intent(inout) :: DRAGCO(IM,jsta_2l:jend_2u) + REAL,intent(inout) :: DRAGCO(ista_2l:iend_2u,jsta_2l:jend_2u) INTEGER IHE(JM),IHW(JM) integer I,J,LHMK,IE,IW,LMHK real UBAR,VBAR,WSPDSQ,USTRSQ,SUMU,SUMV,ULMH,VLMH,UZ0H,VZ0H @@ -47,7 +47,7 @@ SUBROUTINE CALDRG(DRAGCO) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! DRAGCO(I,J) = D00 DRAGCO(I,J) = 0.0 @@ -57,7 +57,7 @@ SUBROUTINE CALDRG(DRAGCO) IF(gridtype=='A')THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! IF (USTAR(I,J) /= SPVAL) THEN @@ -91,7 +91,7 @@ SUBROUTINE CALDRG(DRAGCO) ENDDO DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M ! ! COMPUTE A MEAN MASS POINT WIND IN THE ! FIRST ATMOSPHERIC ETA LAYER. @@ -128,7 +128,7 @@ SUBROUTINE CALDRG(DRAGCO) END DO ELSE IF(gridtype=='B')THEN DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M ! ! COMPUTE A MEAN MASS POINT WIND IN THE ! FIRST ATMOSPHERIC ETA LAYER. @@ -174,7 +174,7 @@ SUBROUTINE CALDRG(DRAGCO) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DRAGCO(I,J) = SPVAL ENDDO ENDDO diff --git a/sorc/ncep_post.fd/CALDWP.f b/sorc/ncep_post.fd/CALDWP.f index be3876bd0..02f309a94 100644 --- a/sorc/ncep_post.fd/CALDWP.f +++ b/sorc/ncep_post.fd/CALDWP.f @@ -24,16 +24,16 @@ SUBROUTINE CALDWP(P1D,Q1D,TDWP,T1D) ! ! SET PARAMETERS. use params_mod, only: eps, oneps, d001, h1m12 - use ctlblk_mod, only: jsta, jend, im, spval + use ctlblk_mod, only: jsta, jend, im, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - REAL,dimension(IM,jsta:jend),intent(in) :: P1D,Q1D,T1D - REAL,dimension(IM,jsta:jend),intent(inout) :: TDWP + REAL,dimension(ista:iend,jsta:jend),intent(in) :: P1D,Q1D,T1D + REAL,dimension(ista:iend,jsta:jend),intent(inout) :: TDWP - REAL EVP(IM,jsta:jend) + REAL EVP(ista:iend,jsta:jend) integer I,J ! !**************************************************************************** @@ -43,7 +43,7 @@ SUBROUTINE CALDWP(P1D,Q1D,TDWP,T1D) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(P1D(I,j) 2005-03-09 | H Chuang | WRF Version !> 2005-07-07 | Binbin Zhou | Add RSM !> 2015-03-11 | S Moorthi | Set sfcwind to spval if u10 and v10 are spvals for A grid and set gust to just wind (in GSM with nemsio, it appears u10 & v10 have spval) +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Geoff Manikin W/NP2 @date 1997-03-04 @@ -24,7 +25,7 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) use vrbls2d , only: u10h, v10h, u10,v10, fis use params_mod, only: d25, gi use ctlblk_mod, only: jsta, jend, spval, jsta_m, jend_m, num_procs, mpi_comm_comp, lm,& - modelname, im, jm, jsta_2l, jend_2u + modelname, im, jm, jsta_2l, jend_2u, ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype implicit none @@ -35,9 +36,9 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) ! ! DECLARE VARIABLES. ! - INTEGER,intent(in) :: LPBL(IM,jsta_2l:jend_2u) - REAL,intent(in) :: ZPBL(IM,jsta_2l:jend_2u) - REAL,intent(inout) :: GUST(IM,jsta_2l:jend_2u) + INTEGER,intent(in) :: LPBL(ista_2l:iend_2u,jsta_2l:jend_2u) + REAL,intent(in) :: ZPBL(ista_2l:iend_2u,jsta_2l:jend_2u) + REAL,intent(inout) :: GUST(ista_2l:iend_2u,jsta_2l:jend_2u) integer I,J,IE,IW, L, K, ISTART, ISTOP, JSTART, JSTOP integer LMIN,LXXX,IERR @@ -51,25 +52,25 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GUST(I,J) = SPVAL ENDDO ENDDO IF(gridtype == 'A') THEN - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND ELSE - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M if ( num_procs > 1 ) then !CALL EXCH(U10(1,jsta_2l)) !CALL EXCH(V10(1,jsta_2l)) - LMIN = max(1, minval(lpbl(1:im,jsta:jend))) + LMIN = max(1, minval(lpbl(ista:iend,jsta:jend))) CALL MPI_ALLREDUCE(LMIN,LXXX,1,MPI_INTEGER,MPI_MIN,MPI_COMM_COMP,IERR) DO L=LXXX,LM CALL EXCH(UH(1,jsta_2l,L)) diff --git a/sorc/ncep_post.fd/CALHEL.f b/sorc/ncep_post.fd/CALHEL.f index 110e5b049..a69c4260b 100644 --- a/sorc/ncep_post.fd/CALHEL.f +++ b/sorc/ncep_post.fd/CALHEL.f @@ -36,6 +36,7 @@ !> 2005-02-25 | H Chuang | Add computation for ARW A grid !> 2005-07-07 | Binbin Zhou | Add RSM for A grid !> 2019-10-30 | Bo Cui | Remove "goto" statement +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) @@ -47,7 +48,8 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) use params_mod, only: g use lookup_mod, only: ITB,JTB,ITBQ,JTBQ use ctlblk_mod, only: jsta, jend, jsta_m, jend_m, jsta_2l, jend_2u, & - lm, im, jm, me, spval + lm, im, jm, me, spval, & + ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -65,10 +67,10 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) ! DECLARE VARIABLES ! real,intent(in) :: DEPTH(2) - REAL,dimension(IM,jsta_2l:jend_2u), intent(out) :: UST,VST - REAL,dimension(IM,jsta_2l:jend_2u,2),intent(out) :: HELI + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(out) :: UST,VST + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,2),intent(out) :: HELI ! - real, dimension(im,jsta_2l:jend_2u) :: HTSFC, UST6, VST6, UST5, VST5, & + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: HTSFC, UST6, VST6, UST5, VST5, & UST1, VST1, USHR1, VSHR1, & USHR6, VSHR6, U1, V1, U2, V2, & HGT1, HGT2, UMEAN, VMEAN @@ -83,7 +85,7 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) ! REAL HGT1(IM,JM),HGT2(IM,JM),UMEAN(IM,JM),VMEAN(IM,JM) ! CRA - integer, dimension(im,jsta_2l:jend_2u) :: COUNT6, COUNT5, COUNT1, L1, L2 + integer, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: COUNT6, COUNT5, COUNT1, L1, L2 ! INTEGER COUNT6(IM,JM),COUNT5(IM,JM),COUNT1(IM,JM) ! CRA ! INTEGER L1(IM,JM),L2(IM,JM) @@ -103,7 +105,7 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND UST(I,J) = 0.0 VST(I,J) = 0.0 HELI(I,J,1) = 0.0 @@ -143,8 +145,8 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) IVE(J) = MOD(J,2) IVW(J) = IVE(J)-1 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE IF(gridtype == 'B')THEN @@ -154,8 +156,8 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) IVE(J)=1 IVW(J)=0 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE @@ -165,8 +167,8 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) IVE(J) = 0 IVW(J) = 0 enddo - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF @@ -181,9 +183,9 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) ! END DO ! !!$omp parallel do private(htsfc,ie,iw) - IF(gridtype /= 'A') CALL EXCH(FIS(1:IM,JSTA_2L:JEND_2U)) + IF(gridtype /= 'A') CALL EXCH(FIS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) DO L = 1,LM - IF(gridtype /= 'A') CALL EXCH(ZMID(1:IM,JSTA_2L:JEND_2U,L)) + IF(gridtype /= 'A') CALL EXCH(ZMID(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) DO J=JSTART,JSTOP DO I=ISTART,ISTOP IE = I+IVE(J) diff --git a/sorc/ncep_post.fd/CALHEL2.f b/sorc/ncep_post.fd/CALHEL2.f index 2cddefbb4..2c1bb8460 100644 --- a/sorc/ncep_post.fd/CALHEL2.f +++ b/sorc/ncep_post.fd/CALHEL2.f @@ -39,6 +39,7 @@ !> 2005-02-25 | H Chuang | Add computation for ARW A grid !> 2005-07-07 | Binbin Zhou | Add RSM for A grid !> 2019-09-03 | J Meng | Modified to compute effective helicity and critical angle +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) @@ -50,7 +51,8 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) use params_mod, only: g use lookup_mod, only: ITB,JTB,ITBQ,JTBQ use ctlblk_mod, only: jsta, jend, jsta_m, jend_m, jsta_2l, jend_2u, & - lm, im, jm, me, spval + lm, im, jm, me, spval, & + ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -68,17 +70,17 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) ! ! DECLARE VARIABLES ! - integer,dimension(IM,jsta_2l:jend_2u),intent(in) :: LLOW, LUPP + integer,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(in) :: LLOW, LUPP real,intent(in) :: DEPTH(2) - REAL,dimension(IM,jsta_2l:jend_2u), intent(out) :: UST,VST - REAL,dimension(IM,jsta_2l:jend_2u,2),intent(out) :: HELI - REAL,dimension(IM,jsta_2l:jend_2u), intent(out) :: CANGLE + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(out) :: UST,VST + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,2),intent(out) :: HELI + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(out) :: CANGLE ! - real, dimension(im,jsta_2l:jend_2u) :: HTSFC, UST6, VST6, UST5, VST5, & + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: HTSFC, UST6, VST6, UST5, VST5, & UST1, VST1, USHR1, VSHR1, & USHR6, VSHR6, U1, V1, U2, V2, & HGT1, HGT2, UMEAN, VMEAN - real, dimension(im,jsta_2l:jend_2u) :: USHR05,VSHR05 + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: USHR05,VSHR05 ! REAL HTSFC(IM,JM) ! @@ -91,7 +93,7 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) ! REAL HGT1(IM,JM),HGT2(IM,JM),UMEAN(IM,JM),VMEAN(IM,JM) ! CRA - integer, dimension(im,jsta_2l:jend_2u) :: COUNT6, COUNT5, COUNT1, L1, L2 + integer, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: COUNT6, COUNT5, COUNT1, L1, L2 ! INTEGER COUNT6(IM,JM),COUNT5(IM,JM),COUNT1(IM,JM) ! CRA ! INTEGER L1(IM,JM),L2(IM,JM) @@ -110,7 +112,7 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND UST(I,J) = 0.0 VST(I,J) = 0.0 HELI(I,J,1) = 0.0 @@ -153,8 +155,8 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) IVE(J) = MOD(J,2) IVW(J) = IVE(J)-1 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE IF(gridtype == 'B')THEN @@ -164,8 +166,8 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) IVE(J)=1 IVW(J)=0 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE @@ -175,8 +177,8 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) IVE(J) = 0 IVW(J) = 0 enddo - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF @@ -191,9 +193,9 @@ SUBROUTINE CALHEL2(LLOW,LUPP,DEPTH,UST,VST,HELI,CANGLE) ! END DO ! !!$omp parallel do private(htsfc,ie,iw) - IF(gridtype /= 'A') CALL EXCH(FIS(1:IM,JSTA_2L:JEND_2U)) + IF(gridtype /= 'A') CALL EXCH(FIS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) DO L = 1,LM - IF(gridtype /= 'A') CALL EXCH(ZMID(1:IM,JSTA_2L:JEND_2U,L)) + IF(gridtype /= 'A') CALL EXCH(ZMID(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) DO J=JSTART,JSTOP DO I=ISTART,ISTOP IE = I+IVE(J) diff --git a/sorc/ncep_post.fd/CALHEL3.f b/sorc/ncep_post.fd/CALHEL3.f index 839082b2e..156911f17 100644 --- a/sorc/ncep_post.fd/CALHEL3.f +++ b/sorc/ncep_post.fd/CALHEL3.f @@ -39,6 +39,7 @@ !> 2005-07-07 | Binbin Zhou | Add RSM for A grid !> 2019-09-03 | J Meng | Modified to compute effective helicity and critical angle !> 2021-03-15 | E Colon | CALHEL2 modified to compute effective rather than fixed layer helicity +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) @@ -50,7 +51,8 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) use params_mod, only: g use lookup_mod, only: ITB,JTB,ITBQ,JTBQ use ctlblk_mod, only: jsta, jend, jsta_m, jend_m, jsta_2l, jend_2u, & - lm, im, jm, me, spval + lm, im, jm, me, spval, & + ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -68,15 +70,15 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) ! ! DECLARE VARIABLES ! - integer,dimension(IM,jsta_2l:jend_2u),intent(in) :: LLOW, LUPP - REAL,dimension(IM,jsta_2l:jend_2u), intent(out) :: UST,VST - REAL,dimension(IM,jsta_2l:jend_2u),intent(out) :: HELI + integer,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(in) :: LLOW, LUPP + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(out) :: UST,VST + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(out) :: HELI ! - real, dimension(im,jsta_2l:jend_2u) :: HTSFC, UST6, VST6, UST5, VST5, & + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: HTSFC, UST6, VST6, UST5, VST5, & UST1, VST1, USHR1, VSHR1, & USHR6, VSHR6, U1, V1, U2, V2, & HGT1, HGT2, UMEAN, VMEAN - real, dimension(im,jsta_2l:jend_2u) :: USHR05,VSHR05,ELT,ELB + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: USHR05,VSHR05,ELT,ELB ! REAL HTSFC(IM,JM) ! @@ -89,7 +91,7 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) ! REAL HGT1(IM,JM),HGT2(IM,JM),UMEAN(IM,JM),VMEAN(IM,JM) ! CRA - integer, dimension(im,jsta_2l:jend_2u) :: COUNT6, COUNT5, COUNT1, L1, L2 + integer, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: COUNT6, COUNT5, COUNT1, L1, L2 ! INTEGER COUNT6(IM,JM),COUNT5(IM,JM),COUNT1(IM,JM) ! CRA ! INTEGER L1(IM,JM),L2(IM,JM) @@ -108,7 +110,7 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND UST(I,J) = 0.0 VST(I,J) = 0.0 HELI(I,J) = 0.0 @@ -149,8 +151,8 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) IVE(J) = MOD(J,2) IVW(J) = IVE(J)-1 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE IF(gridtype == 'B')THEN @@ -160,8 +162,8 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) IVE(J)=1 IVW(J)=0 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE @@ -171,8 +173,8 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) IVE(J) = 0 IVW(J) = 0 enddo - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF @@ -187,9 +189,9 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) ! END DO ! !!$omp parallel do private(htsfc,ie,iw) - IF(gridtype /= 'A') CALL EXCH(FIS(1:IM,JSTA_2L:JEND_2U)) + IF(gridtype /= 'A') CALL EXCH(FIS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) DO L = 1,LM - IF(gridtype /= 'A') CALL EXCH(ZMID(1:IM,JSTA_2L:JEND_2U,L)) + IF(gridtype /= 'A') CALL EXCH(ZMID(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) DO J=JSTART,JSTOP DO I=ISTART,ISTOP IE = I+IVE(J) diff --git a/sorc/ncep_post.fd/CALLCL.f b/sorc/ncep_post.fd/CALLCL.f index 8a3fbfb75..6cc377511 100644 --- a/sorc/ncep_post.fd/CALLCL.f +++ b/sorc/ncep_post.fd/CALLCL.f @@ -25,6 +25,7 @@ !> 2002-04-24 | Mike Baldwin | WRF Version !> 2019-10-30 | Bo Cui | Remove "GOTO" Statement !> 2021-07-28 | W Meng | Restriction compuatation from undefined grids +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1993-03-15 SUBROUTINE CALLCL(P1D,T1D,Q1D,PLCL,ZLCL) @@ -35,7 +36,8 @@ SUBROUTINE CALLCL(P1D,T1D,Q1D,PLCL,ZLCL) use vrbls2d, only: fis use masks, only: lmh use params_mod, only: eps, oneps, d01, h1m12, gi, d00 - use ctlblk_mod, only: jsta, jend, spval, jsta_m, jend_m, im + use ctlblk_mod, only: jsta, jend, spval, jsta_m, jend_m, im, & + ista, iend, ista_m, iend_m !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -44,9 +46,9 @@ SUBROUTINE CALLCL(P1D,T1D,Q1D,PLCL,ZLCL) ! ! DECLARE VARIABLES. ! - REAL,dimension(IM,jsta:jend), intent(in) :: P1D,T1D,Q1D - REAL,dimension(IM,jsta:jend), intent(inout) :: PLCL,ZLCL - REAL TLCL(IM,jsta:jend) + REAL,dimension(ista:iend,jsta:jend), intent(in) :: P1D,T1D,Q1D + REAL,dimension(ista:iend,jsta:jend), intent(inout) :: PLCL,ZLCL + REAL TLCL(ista:iend,jsta:jend) integer I,J,L,LLMH real DLPLCL,ZSFC,DZ,DALP,ALPLCL,RMX,EVP,ARG,RKAPA ! @@ -57,7 +59,7 @@ SUBROUTINE CALLCL(P1D,T1D,Q1D,PLCL,ZLCL) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PLCL(I,J) = SPVAL TLCL(I,J) = SPVAL ZLCL(I,J) = SPVAL @@ -69,8 +71,7 @@ SUBROUTINE CALLCL(P1D,T1D,Q1D,PLCL,ZLCL) ! Bo Cui 10/30/2019, remove "GOTO" statement DO 30 J=JSTA_M,JEND_M - DO 30 I=2,IM-1 -! DO 30 I=1,IM + DO 30 I=ISTA_M,IEND_M IF(P1D(I,J) 2005-07-07 | Binbin Zhou | Add RSM A Grid !> 2006-04-25 | H Chuang | Bug fixes to correctly compute MC at boundaries !> 2021-04-01 | J Meng | Computation on defined points only +!> 2021-09-02 | B CUI | REPLACE EXCH_F to EXCH +!> 2021-09-30 | J MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1993-01-22 SUBROUTINE CALMCVG(Q1D,U1D,V1D,QCNVG) @@ -38,20 +40,21 @@ SUBROUTINE CALMCVG(Q1D,U1D,V1D,QCNVG) use masks, only: dx, dy, hbm2 use params_mod, only: d00, d25 use ctlblk_mod, only: jsta_2l, jend_2u, spval, jsta_m, jend_m, & - jsta_m2, jend_m2, im, jm + jsta_m2, jend_m2, im, jm, & + ista_2l, iend_2u, ista_m, iend_m, ista_m2, iend_m2 use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - REAL,dimension(IM,jsta_2l:jend_2u),intent(in) :: Q1D, U1D, V1D - REAL,dimension(IM,jsta_2l:jend_2u),intent(inout) :: QCNVG + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(in) :: Q1D, U1D, V1D + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(inout) :: QCNVG REAL R2DY, R2DX - REAL, dimension(im,jsta_2l:jend_2u) :: UWND, VWND, QV + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: UWND, VWND, QV INTEGER IHE(JM),IHW(JM),IVE(JM),IVW(JM) - integer I,J,ISTA,IEND + integer I,J,ISTA2,IEND2 real QVDY,QUDX ! !*************************************************************************** @@ -60,9 +63,14 @@ SUBROUTINE CALMCVG(Q1D,U1D,V1D,QCNVG) ! ! INITIALIZE MOISTURE CONVERGENCE ARRAY. LOAD TEMPORARY WIND ARRAYS. ! + CALL EXCH(Q1D) + CALL EXCH(U1D) + CALL EXCH(V1D) + !$omp parallel do private(i,j) DO J=JSTA_2L,JEND_2U - DO I=1,IM +! DO I=1,IM + DO I=ISTA_2L,IEND_2U IF(U1D(I,J) 2004-11-10 | Brad Ferrier | Removed cloud fraction algorithm !> 2004-11-17 | H Chuang | WRF VERSION !> 2014-03-11 | Brad Ferrier | Created new & old versions of this subroutine to process new & old versions of the microphysics +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Yi Jin W/NP2 @date 2001-08-14 SUBROUTINE CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & @@ -37,7 +38,8 @@ SUBROUTINE CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & ! use params_mod, only: dbzmin, epsq, tfrz, eps, rd, d608 - use ctlblk_mod, only: jsta, jend, jsta_2l,jend_2u,im + use ctlblk_mod, only: jsta, jend, jsta_2l, jend_2u,im, & + ista, iend, ista_2l, iend_2u use cmassi_mod, only: t_ice, rqr_drmin, n0rmin, cn0r_dmrmin, & mdrmin, rqr_drmax, cn0r_dmrmax, mdrmax, n0r0, xmrmin, & xmrmax, massi, cn0r0, mdimin, xmimax, mdimax @@ -49,9 +51,9 @@ SUBROUTINE CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & REAL, PARAMETER :: Cice=1.634e13, Cwet=1./.189, Cboth=Cice/.224, & & NLI_min=1.E3, RFmax=45.259, RQmix=0.1E-3,NSI_max=250.E3 !aligo - real,dimension(IM,jsta_2l:jend_2u),intent(in) :: P1D,T1D,Q1D,C1D,FI1D,FR1D, & + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(in) :: P1D,T1D,Q1D,C1D,FI1D,FR1D, & FS1D,CUREFL - real,dimension(IM,jsta_2l:jend_2u),intent(inout) :: QW1,QI1,QR1,QS1,DBZ1,DBZR1,& + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(inout) :: QW1,QI1,QR1,QS1,DBZ1,DBZR1,& DBZI1,DBZC1,NLICE1,NRAIN1 integer I,J @@ -67,7 +69,7 @@ SUBROUTINE CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & ! Zmin=10.**(0.1*DBZmin) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND QW1(I,J)=0. QI1(I,J)=0. QR1(I,J)=0. @@ -81,7 +83,7 @@ SUBROUTINE CALMICT_new(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & ENDDO ENDDO DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Ztot=0. !--- Total radar reflectivity Zrain=0. !--- Radar reflectivity from rain Zice=0. !--- Radar reflectivity from ice @@ -333,7 +335,8 @@ SUBROUTINE CALMICT_old(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & !> !> @author Yi Jin W/NP2 @date 2001-08-14 use params_mod, only: dbzmin, epsq, tfrz, eps, rd, d608, oneps, nlimin - use ctlblk_mod, only: jsta, jend, jsta_2l, jend_2u, im + use ctlblk_mod, only: jsta, jend, jsta_2l, jend_2u, im, & + ista, iend, ista_2l, iend_2u use rhgrd_mod, only: rhgrd use cmassi_mod, only: t_ice, rqr_drmin, n0rmin, cn0r_dmrmin, mdrmin, & rqr_drmax,cn0r_dmrmax, mdrmax, n0r0, xmrmin, xmrmax,flarge2, & @@ -344,9 +347,9 @@ SUBROUTINE CALMICT_old(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & INTEGER INDEXS, INDEXR REAL, PARAMETER :: Cice=1.634e13 - real,dimension(IM,jsta_2l:jend_2u),intent(in) :: P1D,T1D,Q1D,C1D,FI1D,FR1D, & + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(in) :: P1D,T1D,Q1D,C1D,FI1D,FR1D, & FS1D,CUREFL - real,dimension(IM,jsta_2l:jend_2u),intent(inout) :: QW1,QI1,QR1,QS1,DBZ1,DBZR1,& + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(inout) :: QW1,QI1,QR1,QS1,DBZ1,DBZR1,& DBZI1,DBZC1,NLICE1,NRAIN1 REAL N0r,Ztot,Zrain,Zice,Zconv,Zmin @@ -361,7 +364,7 @@ SUBROUTINE CALMICT_old(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & ! Zmin=10.**(0.1*DBZmin) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND QW1(I,J)=0. QI1(I,J)=0. QR1(I,J)=0. @@ -375,7 +378,7 @@ SUBROUTINE CALMICT_old(P1D,T1D,Q1D,C1D,FI1D,FR1D,FS1D,CUREFL, & ENDDO ENDDO DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Zrain=0. !--- Radar reflectivity from rain Zice=0. !--- Radar reflectivity from ice Zconv=CUREFL(I,J) !--- Radar reflectivity from convection diff --git a/sorc/ncep_post.fd/CALPBL.f b/sorc/ncep_post.fd/CALPBL.f index 1b18e6f54..015f4cd10 100644 --- a/sorc/ncep_post.fd/CALPBL.f +++ b/sorc/ncep_post.fd/CALPBL.f @@ -10,6 +10,7 @@ !> Date | Programmer | Comments !> -----|------------|--------- !> 2006-05-04 | M Tsidulko | Initial +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author M Tsidulko @date 2006-05-04 SUBROUTINE CALPBL(PBLRI) @@ -19,22 +20,23 @@ SUBROUTINE CALPBL(PBLRI) use vrbls2d, only: fis use masks, only: vtm use params_mod, only: h10e5, capa, d608, h1, g, gi - use ctlblk_mod, only: lm, im, jsta, jend, spval, jsta_m, jsta_2l, jend_2u, jend_m + use ctlblk_mod, only: lm, im, jsta, jend, spval, jsta_m, jsta_2l, jend_2u, jend_m, & + ista, iend, ista_m, ista_2l, iend_2u, iend_m use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - real,dimension(IM,jsta_2l:jend_2u),intent(inout) :: PBLRI + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(inout) :: PBLRI REAL, ALLOCATABLE :: THV(:,:,:) - INTEGER IFRSTLEV(IM,jsta_2l:jend_2u),ICALPBL(IM,jsta_2l:jend_2u) & - ,LVLP(IM,jsta_2l:jend_2u) - REAL RIF(IM,jsta_2l:jend_2u) & - ,RIBP(IM,jsta_2l:jend_2u),UBOT1(IM,jsta_2l:jend_2u) & - ,VBOT1(IM,jsta_2l:jend_2u),ZBOT1(IM,jsta_2l:jend_2u) & - ,THVBOT1(IM,jsta_2l:jend_2u) + INTEGER IFRSTLEV(ista_2l:iend_2u,jsta_2l:jend_2u),ICALPBL(ista_2l:iend_2u,jsta_2l:jend_2u) & + ,LVLP(ista_2l:iend_2u,jsta_2l:jend_2u) + REAL RIF(ista_2l:iend_2u,jsta_2l:jend_2u) & + ,RIBP(ista_2l:iend_2u,jsta_2l:jend_2u),UBOT1(ista_2l:iend_2u,jsta_2l:jend_2u) & + ,VBOT1(ista_2l:iend_2u,jsta_2l:jend_2u),ZBOT1(ista_2l:iend_2u,jsta_2l:jend_2u) & + ,THVBOT1(ista_2l:iend_2u,jsta_2l:jend_2u) integer I,J,L,IE,IW real APE,BETTA,RICR,USTARR,WMIN,UHKL,ULKL,VHKL,VLKL,WNDSL,WNDSLP, & UBOT,VBOT,VTOP,UTOP,THVTOP,ZTOP,WDL2,RIB @@ -42,13 +44,13 @@ SUBROUTINE CALPBL(PBLRI) !************************************************************************* ! START CALRCHB HERE. ! - ALLOCATE ( THV(IM,JSTA_2L:JEND_2U,LM) ) + ALLOCATE ( THV(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM) ) ! INITIALIZE ARRAYS. ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PBLRI(I,J) = SPVAL ENDDO ENDDO @@ -58,7 +60,7 @@ SUBROUTINE CALPBL(PBLRI) !$omp parallel do private(i,j,l,ape) DO L=LM,1,-1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if( PMID(I,J,L) Date | Programmer | Comments !> -----|------------|--------- !> 2007-04-27 | H Chuang | Initial +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author H Chuang @date 2007-04-27 SUBROUTINE CALPBLREGIME(PBLREGIME) @@ -32,7 +33,7 @@ SUBROUTINE CALPBLREGIME(PBLREGIME) use masks, only: dx use params_mod, only: p1000, capa, d608, h1, g, rd, cp use ctlblk_mod, only: jsta, jend, spval, lm, jsta_m, jend_m, im, & - jsta_2l, jend_2u + jsta_2l, jend_2u, ista, iend, ista_m, iend_m,ista_2l,iend_2u use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -43,7 +44,7 @@ SUBROUTINE CALPBLREGIME(PBLREGIME) ! ! DECLARE VARIABLES. ! - REAL,dimension(IM,jsta_2l:jend_2u),intent(inout) :: PBLREGIME + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(inout) :: PBLREGIME ! integer I,J,IE,IW,ii,jj real APE,THV,THVX,GOVRTH,UMASS,VMASS,WSPD,TSKV,DTHV,RHOX,fluxc,tsfc, & @@ -57,7 +58,7 @@ SUBROUTINE CALPBLREGIME(PBLREGIME) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PBLREGIME(I,J) = SPVAL ENDDO ENDDO @@ -84,7 +85,7 @@ SUBROUTINE CALPBLREGIME(PBLREGIME) END IF DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M ! IF(PMID(I,J,LM) 1998-06-15 | T Black | Convesion from 1-D to 2-D !> 2000-01-04 | Jim Tuccillo | MPI Version !> 2002-04-24 | Mike Baldwin | WRF Version +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1992-12-24 SUBROUTINE CALPOT(P1D,T1D,THETA) ! - use ctlblk_mod, only: jsta, jend, spval, im + use ctlblk_mod, only: jsta, jend, spval, im, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -29,8 +30,8 @@ SUBROUTINE CALPOT(P1D,T1D,THETA) ! ! DECLARE VARIABLES. ! - real,dimension(IM,jsta:jend),intent(in) :: P1D,T1D - real,dimension(IM,jsta:jend),intent(inout) :: THETA + real,dimension(ista:iend,jsta:jend),intent(in) :: P1D,T1D + real,dimension(ista:iend,jsta:jend),intent(inout) :: THETA integer I,J ! @@ -41,7 +42,7 @@ SUBROUTINE CALPOT(P1D,T1D,THETA) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < SPVAL) THEN ! IF(ABS(P1D(I,J)) > 1.0) THEN IF(P1D(I,J) > 1.0) THEN diff --git a/sorc/ncep_post.fd/CALPW.f b/sorc/ncep_post.fd/CALPW.f index b63e9ce1f..dced136ca 100644 --- a/sorc/ncep_post.fd/CALPW.f +++ b/sorc/ncep_post.fd/CALPW.f @@ -35,6 +35,7 @@ !> 2015-07-10 | Sarah Lu | Update to calculate asymetry parameter !> 2019-07-25 | Li(Kate) Zhang | Merge Sarah Lu's update for FV3-Chem !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1992-12-24 SUBROUTINE CALPW(PW,IDECID) @@ -46,7 +47,7 @@ SUBROUTINE CALPW(PW,IDECID) use vrbls4d, only: smoke use masks, only: htm use params_mod, only: tfrz, gi - use ctlblk_mod, only: lm, jsta, jend, im, spval + use ctlblk_mod, only: lm, jsta, jend, im, spval, ista, iend use upp_physics, only: FPVSNEW !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -63,10 +64,10 @@ SUBROUTINE CALPW(PW,IDECID) ! DECLARE VARIABLES. ! integer,intent(in) :: IDECID - real,dimension(IM,jsta:jend),intent(inout) :: PW + real,dimension(ista:iend,jsta:jend),intent(inout) :: PW INTEGER LLMH,I,J,L REAL ALPM,DZ,PM,PWSUM,RHOAIR,DP,ES - REAL QDUM(IM,jsta:jend), PWS(IM,jsta:jend),QS(IM,jsta:jend) + REAL QDUM(ista:iend,jsta:jend), PWS(ista:iend,jsta:jend),QS(ista:iend,jsta:jend) ! !*************************************************************** ! START CALPW HERE. @@ -75,7 +76,7 @@ SUBROUTINE CALPW(PW,IDECID) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PW(i,j) = 0. PWS(i,j) = 0. ENDDO @@ -89,42 +90,42 @@ SUBROUTINE CALPW(PW,IDECID) IF (IDECID <= 1) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = Q(I,J,L) ENDDO ENDDO ELSE IF (IDECID == 2) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = QQW(I,J,L) ENDDO ENDDO ELSE IF (IDECID == 3) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = QQI(I,J,L) ENDDO ENDDO ELSE IF (IDECID == 4) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = QQR(I,J,L) ENDDO ENDDO ELSE IF (IDECID == 5) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = QQS(I,J,L) ENDDO ENDDO ELSE IF (IDECID == 6) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = CWM(I,J,L) ENDDO ENDDO @@ -132,7 +133,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 16) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = QQG(I,J,L) ENDDO ENDDO @@ -141,7 +142,7 @@ SUBROUTINE CALPW(PW,IDECID) !-- Total supercooled liquid !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (T(I,J,L) >= TFRZ) THEN Qdum(I,J) = 0. ELSE @@ -153,7 +154,7 @@ SUBROUTINE CALPW(PW,IDECID) !-- Total melting ice !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (T(I,J,L) <= TFRZ) THEN Qdum(I,J) = 0. ELSE @@ -165,7 +166,7 @@ SUBROUTINE CALPW(PW,IDECID) ! SHORT WAVE T TENDENCY !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = RSWTT(I,J,L) ENDDO ENDDO @@ -173,7 +174,7 @@ SUBROUTINE CALPW(PW,IDECID) ! LONG WAVE T TENDENCY !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = RLWTT(I,J,L) ENDDO ENDDO @@ -181,7 +182,7 @@ SUBROUTINE CALPW(PW,IDECID) ! LATENT HEATING FROM GRID SCALE RAIN/EVAP !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = TRAIN(I,J,L) ENDDO ENDDO @@ -189,7 +190,7 @@ SUBROUTINE CALPW(PW,IDECID) ! LATENT HEATING FROM CONVECTION !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = TCUCN(I,J,L) ENDDO ENDDO @@ -197,7 +198,7 @@ SUBROUTINE CALPW(PW,IDECID) ! MOISTURE CONVERGENCE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = MCVG(I,J,L) ENDDO ENDDO @@ -205,7 +206,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 14) THEN !$omp parallel do private(i,j,es) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = Q(I,J,L) ES = min(FPVSNEW(T(I,J,L)),PMID(I,J,L)) QS(I,J) = CON_EPS*ES/(PMID(I,J,L)+CON_EPSM1*ES) @@ -215,7 +216,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 15) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = O3(I,J,L) ENDDO END DO @@ -224,7 +225,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 17) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = EXT(I,J,L) ENDDO END DO @@ -234,7 +235,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 18) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = SMOKE(I,J,L,1)/1000000000. ENDDO END DO @@ -244,7 +245,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 19) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = TAOD5503D(I,J,L) ENDDO END DO @@ -253,7 +254,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 20) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = SCA(I,J,L) ENDDO END DO @@ -262,7 +263,7 @@ SUBROUTINE CALPW(PW,IDECID) ELSE IF (IDECID == 21) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Qdum(I,J) = ASY(I,J,L) ENDDO END DO @@ -270,7 +271,7 @@ SUBROUTINE CALPW(PW,IDECID) ! !$omp parallel do private(i,j,dp) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(PINT(I,J,L+1) 2021-01-10 | Wen Meng | Added checking points for skiping grids with filling value spval !> 2021-03-11 | Bo Cui | improve local arrays memory !> 2021-08-31 | Lin Zhu | added ssmis-f17 channels 15-18 grib2 output +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Chuang @date 2007-01-17 SUBROUTINE CALRAD_WCLOUD @@ -50,7 +51,7 @@ SUBROUTINE CALRAD_WCLOUD use params_mod, only: pi, rtd, p1000, capa, h1000, h1, g, rd, d608, qconv, small use rqstfld_mod, only: iget, id, lvls, iavblfld use ctlblk_mod, only: modelname, ivegsrc, novegtype, imp_physics, lm, spval, icu_physics,& - grib, cfld, fld_info, datapd, idat, im, jsta, jend, jm, me + grib, cfld, fld_info, datapd, idat, im, jsta, jend, jm, me, ista, iend ! implicit none @@ -175,7 +176,7 @@ SUBROUTINE CALRAD_WCLOUD real(r_kind) snodepth,vegcover real snoeqv real snofrac - real(r_kind),dimension(im,jsta:jend):: tb1,tb2,tb3,tb4 + real(r_kind),dimension(ista:iend,jsta:jend):: tb1,tb2,tb3,tb4 real(r_kind),allocatable :: tb(:,:,:) real,dimension(im,jm):: grid1 real sun_zenith,sun_azimuth, dpovg, sun_zenith_rad @@ -352,7 +353,7 @@ SUBROUTINE CALRAD_WCLOUD ! if (MODELNAME == 'GFS')then jdn=iw3jdn(idat(3),idat(1),idat(2)) do j=jsta,jend - do i=1,im + do i=ista,iend call zensun(jdn,float(idat(4)),gdlat(i,j),gdlon(i,j) & ,pi,sun_zenith,sun_azimuth) sun_zenith_rad=sun_zenith/rtd @@ -616,7 +617,7 @@ SUBROUTINE CALRAD_WCLOUD if(isis=='abi_gr')channelinfo(sensorindex)%WMO_Sensor_Id=617 allocate(rtsolution (channelinfo(sensorindex)%n_channels,1)) - allocate(tb(im,jsta:jend,channelinfo(sensorindex)%n_channels)) + allocate(tb(ista:iend,jsta:jend,channelinfo(sensorindex)%n_channels)) err1=0; err2=0; err3=0; err4=0 if(lm > max_n_layers)then write(6,*) 'CALRAD: lm > max_n_layers - '// & @@ -699,7 +700,7 @@ SUBROUTINE CALRAD_WCLOUD (isis=='abi_gr' .and. post_abigr) )then do j=jsta,jend - loopi1:do i=1,im + loopi1:do i=ista,iend ! Skiping the grids with filling value spval do k=1,lm @@ -1137,14 +1138,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(482+ixchan) if(igot>0) then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1155,14 +1156,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(487+ixchan) if(igot>0) then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j) = tb(i,j,ichan) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1174,14 +1175,14 @@ SUBROUTINE CALRAD_WCLOUD igot=445+ixchan if(igot>0) then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j) = tb(i,j,ichan) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif ! IGOT enddo @@ -1193,14 +1194,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(326+ixchan) if(igot>0) then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1212,14 +1213,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(957+ixchan) if(igot>0)then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo ! channel loop @@ -1253,7 +1254,7 @@ SUBROUTINE CALRAD_WCLOUD iget(461)>0 .or. iget(462)>0 .or. iget(463)>0)))then do j=jsta,jend - loopi2:do i=1,im + loopi2:do i=ista,iend ! Skiping the grids with filling value spval do k=1,lm @@ -1713,14 +1714,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -1735,14 +1736,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -1757,14 +1758,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -1780,14 +1781,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -1799,14 +1800,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(824+ixchan) if(igot>0)then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1820,14 +1821,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -1842,14 +1843,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -1864,14 +1865,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -1884,14 +1885,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ichan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1903,14 +1904,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ichan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1922,14 +1923,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ichan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1940,14 +1941,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(459+ixchan) if(igot>0) then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1958,14 +1959,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(455+ixchan) if(igot>0) then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo @@ -1979,14 +1980,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -2001,14 +2002,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -2023,14 +2024,14 @@ SUBROUTINE CALRAD_WCLOUD if(lvls(ixchan,igot)==1)then nc=nc+1 do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,nc) enddo enddo if (grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif endif @@ -2043,14 +2044,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(926+ixchan) if(igot>0)then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo ! channel loop @@ -2062,14 +2063,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(936+ixchan) if(igot>0)then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo ! channel loop @@ -2079,14 +2080,14 @@ SUBROUTINE CALRAD_WCLOUD igot=iget(968+ichan) if(igot>0)then do j=jsta,jend - do i=1,im + do i=ista,iend grid1(i,j)=tb(i,j,ichan) enddo enddo if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(igot) - datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=grid1(ista:iend,jsta:jend) endif endif enddo diff --git a/sorc/ncep_post.fd/CALRCH.f b/sorc/ncep_post.fd/CALRCH.f index e923fa53a..b1b520aed 100644 --- a/sorc/ncep_post.fd/CALRCH.f +++ b/sorc/ncep_post.fd/CALRCH.f @@ -18,6 +18,7 @@ !> 2002-01-15 | Mike Baldwin | WRF Version !> 2005-02-25 | H Chuang | Add computation for NMM E grid !> 2005-07-07 | Binbin Zhou | Add RSM for A Grid +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1993-10-11 SUBROUTINE CALRCH(EL,RICHNO) @@ -27,15 +28,16 @@ SUBROUTINE CALRCH(EL,RICHNO) use masks, only: vtm use params_mod, only: h10e5, capa, d608,h1, epsq2, g, beta use ctlblk_mod, only: jsta, jend, spval, lm1, jsta_m, jend_m, im, & - jsta_2l, jend_2u, lm + jsta_2l, jend_2u, lm, & + ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - REAL,intent(in) :: EL(IM,jsta_2l:jend_2u,LM) - REAL,intent(inout) :: RICHNO(IM,jsta_2l:jend_2u,LM) + REAL,intent(in) :: EL(ista_2l:iend_2u,jsta_2l:jend_2u,LM) + REAL,intent(inout) :: RICHNO(ista_2l:iend_2u,jsta_2l:jend_2u,LM) ! REAL, ALLOCATABLE :: THV(:,:,:) integer I,J,L,IW,IE @@ -48,13 +50,13 @@ SUBROUTINE CALRCH(EL,RICHNO) !************************************************************************* ! START CALRCH HERE. ! - ALLOCATE ( THV(IM,JSTA_2L:JEND_2U,LM) ) + ALLOCATE ( THV(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM) ) ! INITIALIZE ARRAYS. ! !$omp parallel do DO L = 1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND RICHNO(I,J,L)=SPVAL ENDDO ENDDO @@ -65,7 +67,7 @@ SUBROUTINE CALRCH(EL,RICHNO) !$omp parallel do private(i,j,ape) DO L=LM,1,-1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND APE = (H10E5/PMID(I,J,L))**CAPA THV(I,J,L) = (Q(I,J,L)*D608+H1)*T(I,J,L)*APE ENDDO @@ -90,7 +92,7 @@ SUBROUTINE CALRCH(EL,RICHNO) end if DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M ! IF(GRIDTYPE == 'A')THEN UHKL = UH(I,J,L) diff --git a/sorc/ncep_post.fd/CALSTRM.f b/sorc/ncep_post.fd/CALSTRM.f index 311f6fbc4..adf7ac43e 100644 --- a/sorc/ncep_post.fd/CALSTRM.f +++ b/sorc/ncep_post.fd/CALSTRM.f @@ -19,6 +19,7 @@ !> 1998-06-08 | T Black | Conversion from 1-D TO 2-D !> 2000-01-05 | Jim Tuccillo | MPI Version !> 2002-06-13 | Mike Baldwin | WRF Version +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALSTRM(Z1D,STRM) @@ -31,7 +32,7 @@ SUBROUTINE CALSTRM(Z1D,STRM) ! ! use vrbls2d, only: use params_mod, only: g - use ctlblk_mod, only: jsta, jend, im + use ctlblk_mod, only: jsta, jend, im, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -40,8 +41,8 @@ SUBROUTINE CALSTRM(Z1D,STRM) ! DECLARE VARIABLES. ! ! LOGICAL FIRST,OLDRD,RESTRT,RUN,SIGMA,STRD - REAL, dimension(im,jsta:jend), intent(in) :: Z1D - REAL, dimension(im,jsta:jend), intent(inout) :: STRM + REAL, dimension(ista:iend,jsta:jend), intent(in) :: Z1D + REAL, dimension(ista:iend,jsta:jend), intent(inout) :: STRM ! LOGICAL OLDRD,STRD integer IMID,I,J @@ -59,7 +60,7 @@ SUBROUTINE CALSTRM(Z1D,STRM) ! COMPUTE GEOSTROPHIC STREAMFUNCTION. !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND STRM(I,J) = GOF0*Z1D(I,J) ENDDO ENDDO diff --git a/sorc/ncep_post.fd/CALTAU.f b/sorc/ncep_post.fd/CALTAU.f index 1d351a3c0..08338039d 100644 --- a/sorc/ncep_post.fd/CALTAU.f +++ b/sorc/ncep_post.fd/CALTAU.f @@ -21,6 +21,7 @@ !> 2005-02-23 | H Chuang | Compute stress for NMM on wind points !> 2005-07-07 | Binbin Zhou | Add RSM stress for A Grid !> 2021-07-26 | W Meng | Restrict computation from undefined grids +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1993-09-01 @@ -33,7 +34,7 @@ SUBROUTINE CALTAU(TAUX,TAUY) use masks, only: lmh use params_mod, only: d00, d50, h1, d608, rd, d25 use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, spval, jsta_m,& - jm, im, jend_m + jm, im, jend_m, ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype implicit none @@ -41,9 +42,9 @@ SUBROUTINE CALTAU(TAUX,TAUY) ! DECLARE VARIABLES. INTEGER, dimension(4) :: KK(4) INTEGER, dimension(jm) :: ive, ivw - REAL, dimension(im,jsta:jend), intent(inout) :: TAUX, TAUY + REAL, dimension(ista:iend,jsta:jend), intent(inout) :: TAUX, TAUY REAL, ALLOCATABLE :: EL(:,:,:) - REAL, dimension(im,jsta:jend) :: EGRIDU,EGRIDV,EGRID4,EGRID5, EL0 + REAL, dimension(ista:iend,jsta:jend) :: EGRIDU,EGRIDV,EGRID4,EGRID5, EL0 REAL UZ0V,VZ0V CHARACTER*1 AGRID integer I,J,LMHK,IE,IW,ii,jj @@ -53,7 +54,7 @@ SUBROUTINE CALTAU(TAUX,TAUY) !******************************************************************** ! START CALTAU HERE. ! - ALLOCATE (EL(IM,JSTA_2L:JEND_2U,LM)) + ALLOCATE (EL(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM)) ! ! COMPUTE MASTER LENGTH SCALE. ! @@ -63,7 +64,7 @@ SUBROUTINE CALTAU(TAUX,TAUY) ! INITIALIZE OUTPUT AND WORK ARRAY TO ZERO. ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRIDU(I,J) = D00 EGRIDV(I,J) = D00 TAUX(I,J) = SPVAL @@ -80,7 +81,7 @@ SUBROUTINE CALTAU(TAUX,TAUY) CALL MIXLEN(EL0,EL) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! LMHK = NINT(LMH(I,J)) IF(EL(I,J,LMHK-1) 1998-06-16 | T Black | Convesion from 1-D to 2-D !> 2000-01-04 | Jim Tuccillo | MPI Version !> 2021-07-28 | W Meng | Restrict computation from undefined grids +!> 2021-09-02 | Bo Cui | Decompose UPP in X direction !> !> @author Russ Treadon W/NP2 @date 1993-06-18 @@ -25,7 +26,7 @@ SUBROUTINE CALTHTE(P1D,T1D,Q1D,THTE) ! ! use params_mod, only: d00, eps, oneps, d01, h1m12, p1000, h1 - use ctlblk_mod, only: jsta, jend, im, spval + use ctlblk_mod, only: jsta, jend, im, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -37,8 +38,8 @@ SUBROUTINE CALTHTE(P1D,T1D,Q1D,THTE) ! ! DECLARE VARIABLES. ! - REAL,dimension(IM,jsta:jend),intent(in) :: P1D,T1D,Q1D - REAL,dimension(IM,jsta:jend),intent(inout) :: THTE + REAL,dimension(ista:iend,jsta:jend),intent(in) :: P1D,T1D,Q1D + REAL,dimension(ista:iend,jsta:jend),intent(inout) :: THTE integer I,J real P,T,Q,EVP,RMX,CKAPA,RKAPA,ARG,DENOM,TLCL,PLCL,FAC, & @@ -50,7 +51,7 @@ SUBROUTINE CALTHTE(P1D,T1D,Q1D,THTE) ! ZERO THETA-E ARRAY !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND THTE(I,J) = D00 ENDDO ENDDO @@ -58,10 +59,10 @@ SUBROUTINE CALTHTE(P1D,T1D,Q1D,THTE) ! COMPUTE THETA-E. ! ! DO J=JSTA_M,JEND_M -! DO I=2,IM-1 +! DO I=ISTA_M,IEND_M !$omp parallel do private(i,j,p,t,q,evp,rmx,ckapa,rkapa,arg,denom,tlcl,plcl,fac,eterm,thetae) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(P1D(I,J) 2011-01-11 | M Pyle | converted to F90 for unified post !> 2011-04-05 | H Chuang | added B grid option !> 2020-11-06 | J Meng | Use UPP_MATH Module +!> 2021-10-31 | J Meng | 2D DECOMPOSITION !> !> @author M Pyle W/NP2 @date 2007-10-22 SUBROUTINE CALUPDHEL(UPDHEL) @@ -22,7 +23,8 @@ SUBROUTINE CALUPDHEL(UPDHEL) use masks, only: lmh, dx, dy use params_mod, only: d00 use ctlblk_mod, only: lm, jsta_2l, jend_2u, jsta_m, jend_m, & - global, spval, im, jm + global, spval, im, jm, & + ista_2l, iend_2u, ista_m, iend_m use gridspec_mod, only: gridtype use upp_math, only: DVDXDUDY, DDVDX, DDUDY @@ -34,7 +36,7 @@ SUBROUTINE CALUPDHEL(UPDHEL) REAL, PARAMETER:: HLOWER=2000., HUPPER=5000. REAL ZMIDLOC real :: r2dx, r2dy, dz, dcdx, dudy, dvdx - REAL :: HTSFC(IM,jsta_2l:jend_2u),UPDHEL(IM,jsta_2l:jend_2u) + REAL :: HTSFC(ista_2l:iend_2u,jsta_2l:jend_2u),UPDHEL(ista_2l:iend_2u,jsta_2l:jend_2u) integer :: l, j, i INTEGER, dimension(jm) :: IHE,IHW ! INTEGER DXVAL,DYVAL,CENLAT,CENLON,TRUELAT1,TRUELAT2 @@ -47,16 +49,16 @@ SUBROUTINE CALUPDHEL(UPDHEL) ! maxval(WH(:,:,20)) DO L=1,LM - CALL EXCH(UH(1,jsta_2l,L)) + CALL EXCH(UH(ista_2l,jsta_2l,L)) END DO IF (GRIDTYPE == 'B')THEN DO L=1,LM - CALL EXCH(VH(1,jsta_2l,L)) + CALL EXCH(VH(ista_2l,jsta_2l,L)) END DO END IF !$omp parallel do private(i,j) DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U UPDHEL(I,J) = D00 ENDDO ENDDO @@ -73,13 +75,13 @@ SUBROUTINE CALUPDHEL(UPDHEL) !$omp parallel do private(i,j) DO J=JSTA_M,JEND_M - DO I=1,IM + DO I=ISTA_M,IEND_M HTSFC(I,J) = ZINT(I,J,NINT(LMH(I,J))+1) ENDDO ENDDO DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M IF (HTSFC(I,J) < spval) THEN diff --git a/sorc/ncep_post.fd/CALVESSEL.f b/sorc/ncep_post.fd/CALVESSEL.f index 9dae6d633..09d329ed1 100644 --- a/sorc/ncep_post.fd/CALVESSEL.f +++ b/sorc/ncep_post.fd/CALVESSEL.f @@ -1,20 +1,24 @@ SUBROUTINE CALVESSEL(ICEG) ! Algorithm for calculating ice growth rate +! +! PROGRAM HISTORY LOG: +! 21-10-31 JESSE MENG - 2D DECOMPOSITION + use vrbls2d, only: sst, u10h, v10h, tshltr use masks, only: sm, sice - use ctlblk_mod, only: jsta, jend, im, spval + use ctlblk_mod, only: jsta, jend, im, spval, ista, iend !------------------------------------------- implicit none integer I, J real TSFC_C,TSHLTR_C,SST_C real, parameter :: C2K=273.15 - real, dimension(im,jsta:jend) :: pr, spd10 - real,intent(out) :: ICEG(im,jsta:jend) + real, dimension(ista:iend,jsta:jend) :: pr, spd10 + real,intent(out) :: ICEG(ista:iend,jsta:jend) -! allocate (thsfc(im,jsta:jend),tsfc(im,jsta:jend)) +! allocate (thsfc(ista:iend,jsta:jend),tsfc(ista:iend,jsta:jend)) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! CALCULATE SPEED SPD10(i,j)=SQRT(U10H(I,J)**2+V10H(I,J)**2) if (SPD10(i,j)>50) then diff --git a/sorc/ncep_post.fd/CALVIS.f b/sorc/ncep_post.fd/CALVIS.f index 6bcf0ee25..a7bf26fe2 100644 --- a/sorc/ncep_post.fd/CALVIS.f +++ b/sorc/ncep_post.fd/CALVIS.f @@ -57,15 +57,17 @@ SUBROUTINE CALVIS(QV,QC,QR,QI,QS,TT,PP,VIS) ! ! 2021-05 Wen Meng -Add checking for undfined points invloved in ! computation. +! 2021-10-31 Jesse Meng - 2D DECOMPOSITION !------------------------------------------------------------------ use params_mod, only: h1, d608, rd - use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, spval + use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, spval, & + ista, iend, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! - real,dimension(IM,jsta_2l:jend_2u),intent(in) :: QV,QC,QR,QI,QS,TT,PP - real,dimension(IM,jsta_2l:jend_2u),intent(inout) :: VIS + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(in) :: QV,QC,QR,QI,QS,TT,PP + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(inout) :: VIS CHARACTER METH*1 real CELKEL,TICE,COEFLC,COEFLP,COEFFC,COEFFP,EXPONLC, & @@ -90,7 +92,7 @@ SUBROUTINE CALVIS(QV,QC,QR,QI,QS,TT,PP,VIS) RHOWAT=1000. ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND VIS(I,J)=SPVAL ! IF(IICE==0)THEN ! QPRC=QR diff --git a/sorc/ncep_post.fd/CALVIS_GSD.f b/sorc/ncep_post.fd/CALVIS_GSD.f index ecd5d36b4..d5fabfe72 100644 --- a/sorc/ncep_post.fd/CALVIS_GSD.f +++ b/sorc/ncep_post.fd/CALVIS_GSD.f @@ -90,21 +90,24 @@ SUBROUTINE CALVIS_GSD(CZEN,VIS) ! 2021-05 Wen Meng Unify CONST1 and VISRH. ! 2021-05 Wen Meng - Add checking for undefined points invloved in computation ! 2021-08 Wen Meng - Restrict divided by 0. +! 2021-10 Jesse Meng - 2D DECOMPOSITION ! !------------------------------------------------------------------ ! use vrbls3d, only: qqw, qqi, qqs, qqr, qqg, t, pmid, q, u, v, extcof55, aextc55 use params_mod, only: h1, d608, rd - use ctlblk_mod, only: jm, im, jsta_2l, jend_2u, lm, modelname, spval + use ctlblk_mod, only: jm, im, jsta_2l, jend_2u, lm, modelname, spval,& + ista_2l, iend_2u implicit none integer :: j, i, k, ll integer :: method real :: tx, pol, esx, es, e - REAL VIS(IM,jsta_2l:jend_2u) ,RHB(IM,jsta_2l:jend_2u,LM), CZEN(IM,jsta_2l:jend_2u) - + REAL VIS(ista_2l:iend_2u,jsta_2l:jend_2u) + REAL RHB(ista_2l:iend_2u,jsta_2l:jend_2u,LM) + REAL CZEN(ista_2l:iend_2u,jsta_2l:jend_2u) real celkel,tice,coeflc,coeflp,coeffc,coeffp,coeffg real exponlc,exponlp,exponfc,exponfp,exponfg,const1 @@ -203,7 +206,7 @@ SUBROUTINE CALVIS_GSD(CZEN,VIS) visrh_min = 1.e6 DO J=jsta_2l,jend_2u - DO I=1,IM + DO I=ista_2l,iend_2u VIS(I,J)=spval ! -checking undedined points if(T(I,J,LM) @file -!> @brief Subroutine that computes absolute vorticity. -!> -!> This routine computes the absolute vorticity. -!> -!> @param[in] UWND U wind (m/s) mass-points. -!> @param[in] VWND V wind (m/s) mass-points. -!> @param[out] ABSV absolute vorticity (1/s) mass-points. -!> -!> ### Program history log: -!> Date | Programmer | Comments -!> -----|------------|--------- -!> 1992-12-22 | Russ Treadon | Initial -!> 1998-06-08 | T Black | Convesion from 1-D to 2-D -!> 2000-01-04 | Jim Tuccillo | MPI Version -!> 2002-01-15 | Mike Baldwin | WRF Version C-grid -!> 2005-03-01 | H Chuang | Add NMM E grid -!> 2005-05-17 | H Chuang | Add Potential vorticity calculation -!> 2005-07-07 | B Zhou | Add RSM in computing DVDX, DUDY and UAVG -!> 2013-08-09 | S Moorthi | Optimize the vorticity loop including threading -!> 2016-08-05 | S Moorthi | add zonal filetering -!> 2019-10-17 | Y Mao | Skip calculation when U/V is SPVAL -!> 2020-11-06 | J Meng | Use UPP_MATH Module -!> -!> @author Russ Treadon W/NP2 @date 1992-12-22 - SUBROUTINE CALVOR(UWND,VWND,ABSV) - -! -! - use vrbls2d, only: f - use masks, only: gdlat, gdlon, dx, dy - use params_mod, only: d00, dtr, small, erad - use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & - jsta, jend, im, jm, jsta_m, jend_m, gdsdegr - use gridspec_mod, only: gridtype, dyval - use upp_math, only: DVDXDUDY, DDVDX, DDUDY, UUAVG - - implicit none -! -! DECLARE VARIABLES. -! - REAL, dimension(im,jsta_2l:jend_2u), intent(in) :: UWND, VWND - REAL, dimension(im,jsta_2l:jend_2u), intent(inout) :: ABSV -! - real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), cosl(:,:) - INTEGER, allocatable :: IHE(:),IHW(:), IE(:),IW(:) -! - integer, parameter :: npass2=2, npass3=3 - integer I,J,ip1,im1,ii,iir,iil,jj,JMT2,imb2, npass, nn, jtem - real R2DX,R2DY,DVDX,DUDY,UAVG,TPH1,TPHI, tx1(im+2), tx2(im+2) -! -!*************************************************************************** -! START CALVOR HERE. -! -! LOOP TO COMPUTE ABSOLUTE VORTICITY FROM WINDS. -! - IF(MODELNAME == 'RAPR') then -!$omp parallel do private(i,j) - DO J=JSTA_2L,JEND_2U - DO I=1,IM - ABSV(I,J) = D00 - ENDDO - ENDDO - else -!$omp parallel do private(i,j) - DO J=JSTA_2L,JEND_2U - DO I=1,IM - ABSV(I,J) = SPVAL - ENDDO - ENDDO - endif - -! print*,'dyval in CALVOR= ',DYVAL - - CALL EXCH_F(UWND) -! - IF (MODELNAME == 'GFS' .or. global) THEN - CALL EXCH(GDLAT(1,JSTA_2L)) - - allocate (wrk1(im,jsta:jend), wrk2(im,jsta:jend), & - & wrk3(im,jsta:jend), cosl(im,jsta_2l:jend_2u)) - allocate(iw(im),ie(im)) - - imb2 = im/2 -!$omp parallel do private(i) - do i=1,im - ie(i) = i+1 - iw(i) = i-1 - enddo - iw(1) = im - ie(im) = 1 - -! if(1>=jsta .and. 1<=jend)then -! if(cos(gdlat(1,1)*dtr)= SMALL) then - wrk1(i,j) = 1.0 / (ERAD*cosl(i,j)) - else - wrk1(i,j) = 0. - end if - if(i == im .or. i == 1) then - wrk2(i,j) = 1.0 / ((360.+GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam - else - wrk2(i,j) = 1.0 / ((GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam - end if - enddo - enddo -! CALL EXCH(cosl(1,JSTA_2L)) - CALL EXCH(cosl) - -!$omp parallel do private(i,j,ii) - DO J=JSTA,JEND - if (j == 1) then - if(gdlat(1,j) > 0.) then ! count from north to south - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi - enddo - else ! count from south to north - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GDLAT(II,J))*DTR) !1/dphi -! - enddo - end if - elseif (j == JM) then - if(gdlat(1,j) < 0.) then ! count from north to south - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) - enddo - else ! count from south to north - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GDLAT(II,J))*DTR) - enddo - end if - else - do i=1,im - wrk3(i,j) = 1.0 / ((GDLAT(I,J-1)-GDLAT(I,J+1))*DTR) !1/dphi - enddo - endif - enddo - - npass = 0 - - jtem = jm / 18 + 1 -!$omp parallel do private(i,j,ip1,im1,ii,jj,tx1,tx2) - DO J=JSTA,JEND -! npass = npass2 -! if (j > jm-jtem+1 .or. j < jtem) npass = npass3 - IF(J == 1) then ! Near North or South pole - if(gdlat(1,j) > 0.) then ! count from north to south - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & - UWND(II,J)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & - & + (UWND(II,J)*COSL(II,J) & - & + UWND(I,J+1)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) & - & + F(I,J) - enddo - ELSE !pole point, compute at j=2 - jj = 2 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & - UWND(I,J)==SPVAL .or. UWND(I,jj+1)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & - & - (UWND(I,J)*COSL(I,J) & - - UWND(I,jj+1)*COSL(I,Jj+1))*wrk3(i,jj)) * wrk1(i,jj) & - & + F(I,Jj) - enddo - ENDIF - else - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & - UWND(II,J)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & - & - (UWND(II,J)*COSL(II,J) & - & + UWND(I,J+1)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) & - & + F(I,J) - enddo - ELSE !pole point, compute at j=2 - jj = 2 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & - UWND(I,J)==SPVAL .or. UWND(I,jj+1)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & - & + (UWND(I,J)*COSL(I,J) & - - UWND(I,jj+1)*COSL(I,Jj+1))*wrk3(i,jj)) * wrk1(i,jj) & - & + F(I,Jj) - enddo - ENDIF - endif - ELSE IF(J == JM) THEN ! Near North or South Pole - if(gdlat(1,j) < 0.) then ! count from north to south - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & - UWND(I,J-1)==SPVAL .or. UWND(II,J)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & - & - (UWND(I,J-1)*COSL(I,J-1) & - & + UWND(II,J)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) & - & + F(I,J) - enddo - ELSE !pole point,compute at jm-1 - jj = jm-1 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & - UWND(I,jj-1)==SPVAL .or. UWND(I,J)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & - & - (UWND(I,jj-1)*COSL(I,Jj-1) & - & - UWND(I,J)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) & - & + F(I,Jj) - enddo - ENDIF - else - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & - UWND(I,J-1)==SPVAL .or. UWND(II,J)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & - & + (UWND(I,J-1)*COSL(I,J-1) & - & + UWND(II,J)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) & - & + F(I,J) - enddo - ELSE !pole point,compute at jm-1 - jj = jm-1 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & - UWND(I,jj-1)==SPVAL .or. UWND(I,J)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & - & + (UWND(I,jj-1)*COSL(I,Jj-1) & - & - UWND(I,J)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) & - & + F(I,Jj) - enddo - ENDIF - endif - ELSE - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & - UWND(I,J-1)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle - ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & - & - (UWND(I,J-1)*COSL(I,J-1) & - - UWND(I,J+1)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) & - + F(I,J) - ENDDO - END IF -! if(ABSV(I,J)>1.0)print*,'Debug CALVOR',i,j,VWND(ip1,J),VWND(im1,J), & -! wrk2(i,j),UWND(I,J-1),COSL(I,J-1),UWND(I,J+1),COSL(I,J+1),wrk3(i,j),cosl(i,j),F(I,J),ABSV(I,J) - if (npass > 0) then - do i=1,im - tx1(i) = absv(i,j) - enddo - do nn=1,npass - do i=1,im - tx2(i+1) = tx1(i) - enddo - tx2(1) = tx2(im+1) - tx2(im+2) = tx2(2) - do i=2,im+1 - tx1(i-1) = 0.25 * (tx2(i-1) + tx2(i+1)) + 0.5*tx2(i) - enddo - enddo - do i=1,im - absv(i,j) = tx1(i) - enddo - endif - END DO ! end of J loop - -! deallocate (wrk1, wrk2, wrk3, cosl) -! GFS use lon avg as one scaler value for pole point - - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1,jsta),SPVAL,ABSV(1,jsta)) - deallocate (wrk1, wrk2, wrk3, cosl, iw, ie) - - ELSE !(MODELNAME == 'GFS' .or. global) - - IF (GRIDTYPE == 'B')THEN - CALL EXCH_F(VWND) - ENDIF - - CALL DVDXDUDY(UWND,VWND) - - IF(GRIDTYPE == 'A')THEN -!$omp parallel do private(i,j,jmt2,tphi,r2dx,r2dy,dvdx,dudy,uavg) - DO J=JSTA_M,JEND_M - JMT2 = JM/2+1 - TPHI = (J-JMT2)*(DYVAL/gdsdegr)*DTR - DO I=2,IM-1 - IF(VWND(I+1,J) CALDIV computes divergence. -!> -!> For GFS, this routine copmutes the horizontal divergence -!> using 2nd-order centered scheme on a lat-lon grid -!> -!> @param[in] UWND U wind (m/s) mass-points. -!> @param[in] VWND V wind (m/s) mass-points. -!> @param[out] DIV divergence (1/s) mass-points. -!> -!> ### Program history log: -!> Date | Programmer | Comments -!> -----|------------|--------- -!> 2016-05-05 | Sajal Kar | Modified CALVORT to compute divergence from wind components -!> 2016-07-22 | S Moorthi | Modified polar divergence calculation -!> -!> @author Sajal Kar W/NP2 @date 2016-05-05 - SUBROUTINE CALDIV(UWND,VWND,DIV) - use masks, only: gdlat, gdlon - use params_mod, only: d00, dtr, small, erad - use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & - jsta, jend, im, jm, jsta_m, jend_m, lm - use gridspec_mod, only: gridtype - - implicit none -! -! DECLARE VARIABLES. -! - REAL, dimension(im,jsta_2l:jend_2u,lm), intent(in) :: UWND,VWND - REAL, dimension(im,jsta:jend,lm), intent(inout) :: DIV -! - real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), cosl(:,:) - INTEGER, allocatable :: IHE(:),IHW(:), IE(:),IW(:) -! - real :: dnpole, dspole, tem - integer I,J,ip1,im1,ii,iir,iil,jj,imb2, l -! -!*************************************************************************** -! START CALDIV HERE. -! -! LOOP TO COMPUTE DIVERGENCE FROM WINDS. -! - CALL EXCH(GDLAT(1,JSTA_2L)) - - allocate (wrk1(im,jsta:jend), wrk2(im,jsta:jend), & - & wrk3(im,jsta:jend), cosl(im,jsta_2l:jend_2u)) - allocate(iw(im),ie(im)) - - imb2 = im/2 -!$omp parallel do private(i) - do i=1,im - ie(i) = i+1 - iw(i) = i-1 - enddo - iw(1) = im - ie(im) = 1 - - -!$omp parallel do private(i,j,ip1,im1) - DO J=JSTA,JEND - do i=1,im - ip1 = ie(i) - im1 = iw(i) - cosl(i,j) = cos(gdlat(i,j)*dtr) - IF(cosl(i,j) >= SMALL) then - wrk1(i,j) = 1.0 / (ERAD*cosl(i,j)) - else - wrk1(i,j) = 0. - end if - if(i == im .or. i == 1) then - wrk2(i,j) = 1.0 / ((360.+GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam - else - wrk2(i,j) = 1.0 / ((GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam - end if - enddo - ENDDO - - CALL EXCH(cosl) - -!$omp parallel do private(i,j,ii) - DO J=JSTA,JEND - if (j == 1) then - if(gdlat(1,j) > 0.) then ! count from north to south - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi - enddo - else ! count from south to north - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GDLAT(II,J))*DTR) !1/dphi - enddo - end if - elseif (j == JM) then - if(gdlat(1,j) < 0.) then ! count from north to south - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) - enddo - else ! count from south to north - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GDLAT(II,J))*DTR) - enddo - end if - else - do i=1,im - wrk3(i,j) = 1.0 / ((GDLAT(I,J-1)-GDLAT(I,J+1))*DTR) !1/dphi - enddo - endif - enddo - - do l=1,lm -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=1,IM - DIV(I,J,l) = SPVAL - ENDDO - ENDDO - - CALL EXCH_F(VWND(1,jsta_2l,l)) - -!$omp parallel do private(i,j,ip1,im1,ii,jj) - DO J=JSTA,JEND - IF(J == 1) then ! Near North pole - if(gdlat(1,j) > 0.) then ! count from north to south - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & - & - (VWND(II,J,l)*COSL(II,J) & - & + VWND(I,J+1,l)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) - enddo -!-- - ELSE !North pole point, compute at j=2 - jj = 2 - do i=1,im - ip1 = ie(i) - im1 = iw(i) - DIV(I,J,l) = ((UWND(ip1,jj,l)-UWND(im1,jj,l))*wrk2(i,jj) & - & + (VWND(I,J,l)*COSL(I,J) & - - VWND(I,jj+1,l)*COSL(I,jj+1))*wrk3(i,jj)) * wrk1(i,jj) - enddo -!-- - ENDIF - else - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & - & + (VWND(II,J,l)*COSL(II,J) & - & + VWND(I,J+1,l)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) - enddo -!-- - ELSE !North pole point, compute at j=2 - jj = 2 - do i=1,im - ip1 = ie(i) - im1 = iw(i) - DIV(I,J,l) = ((UWND(ip1,jj,l)-UWND(im1,jj,l))*wrk2(i,jj) & - & - (VWND(I,J,l)*COSL(I,J) & - - VWND(I,jj+1,l)*COSL(I,jj+1))*wrk3(i,jj)) * wrk1(i,jj) - enddo - ENDIF - endif - ELSE IF(J == JM) THEN ! Near South pole - if(gdlat(1,j) < 0.) then ! count from north to south - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & - & + (VWND(I,J-1,l)*COSL(I,J-1) & - & + VWND(II,J,l)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) - enddo -!-- - ELSE !South pole point,compute at jm-1 - jj = jm-1 - do i=1,im - ip1 = ie(i) - im1 = iw(i) - DIV(I,J,l) = ((UWND(ip1,JJ,l)-UWND(im1,JJ,l))*wrk2(i,jj) & - & + (VWND(I,jj-1,l)*COSL(I,Jj-1) & - & - VWND(I,J,l)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) - - enddo - ENDIF - else - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & - & - (VWND(I,J-1,l)*COSL(I,J-1) & - & + VWND(II,J,l)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) - enddo -!-- - ELSE !South pole point,compute at jm-1 - jj = jm-1 - do i=1,im - ip1 = ie(i) - im1 = iw(i) - DIV(I,J,l) = ((UWND(ip1,JJ,l)-UWND(im1,JJ,l))*wrk2(i,jj) & - & - (VWND(I,jj-1,l)*COSL(I,Jj-1) & - & - VWND(I,J,l)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) - - enddo - ENDIF - endif - ELSE - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & - & + (VWND(I,J-1,l)*COSL(I,J-1) & - - VWND(I,J+1,l)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) -!sk06132016 - if(DIV(I,J,l)>1.0)print*,'Debug in CALDIV',i,j,UWND(ip1,J,l),UWND(im1,J,l), & - & wrk2(i,j),VWND(I,J-1,l),COSL(I,J-1),VWND(I,J+1,l),COSL(I,J+1), & - & wrk3(i,j),wrk1(i,j),DIV(I,J,l) -!-- - ENDDO - ENDIF - ENDDO ! end of J loop - -! GFS use lon avg as one scaler value for pole point - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1,jsta),SPVAL,DIV(1,jsta,l)) -!sk06142016e - if(DIV(1,jsta,l)>1.0)print*,'Debug in CALDIV',jsta,DIV(1,jsta,l) -! print*,'Debug in CALDIV',' jsta= ',jsta,DIV(1,jsta,l) - - enddo ! end of l looop -!-- - deallocate (wrk1, wrk2, wrk3, cosl, iw, ie) - - - END SUBROUTINE CALDIV - - SUBROUTINE CALGRADPS(PS,PSX,PSY) -!> CALGRADPS computes gardients of a scalar field PS or LNPS. -!> -!> For GFS, this routine computes horizontal gradients of PS or LNPS. -!> Using 2nd-order centered scheme on a lat-lon grid. -!> -!> @param[in] PS Surface pressure (Pa) mass-points. -!> @param[out] PSX Zonal gradient of PS at mass-points. -!> @param[out] PSY Meridional gradient of PS at mass-points. -!> -!> ### Program history log: -!> Date | Programmer | Comments -!> -----|------------|--------- -!> 2016-05-05 | Sajal Kar | Reduced from CALVORT to zonal and meridional gradients of given surface pressure PS, or LNPS -!> -!> @author Sajal Kar W/NP2 @date 2016-05-05 - use masks, only: gdlat, gdlon - use params_mod, only: dtr, d00, small, erad - use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & - jsta, jend, im, jm, jsta_m, jend_m - use gridspec_mod, only: gridtype - - implicit none -! -! DECLARE VARIABLES. -! - REAL, dimension(im,jsta_2l:jend_2u), intent(in) :: PS - REAL, dimension(im,jsta_2l:jend_2u), intent(inout) :: PSX,PSY -! - real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), cosl(:,:) - INTEGER, allocatable :: IHE(:),IHW(:), IE(:),IW(:) -! - integer I,J,ip1,im1,ii,iir,iil,jj,imb2 -! -!*************************************************************************** -! START CALGRADPS HERE. -! -! LOOP TO COMPUTE ZONAL AND MERIDIONAL GRADIENTS OF PS OR LNPS -! -!sk06162016 DO J=JSTA_2L,JEND_2U -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=1,IM - PSX(I,J) = SPVAL - PSY(I,J) = SPVAL -!sk PSX(I,J) = D00 -!sk PSY(I,J) = D00 - ENDDO - ENDDO - - CALL EXCH_F(PS) - -! IF (MODELNAME == 'GFS' .or. global) THEN - CALL EXCH(GDLAT(1,JSTA_2L)) - - allocate (wrk1(im,jsta:jend), wrk2(im,jsta:jend), & - & wrk3(im,jsta:jend), cosl(im,jsta_2l:jend_2u)) - allocate(iw(im),ie(im)) - - imb2 = im/2 -!$omp parallel do private(i) - do i=1,im - ie(i) = i+1 - iw(i) = i-1 - enddo - iw(1) = im - ie(im) = 1 - - -!$omp parallel do private(i,j,ip1,im1) - DO J=JSTA,JEND - do i=1,im - ip1 = ie(i) - im1 = iw(i) - cosl(i,j) = cos(gdlat(i,j)*dtr) - if(cosl(i,j) >= SMALL) then - wrk1(i,j) = 1.0 / (ERAD*cosl(i,j)) - else - wrk1(i,j) = 0. - end if - if(i == im .or. i == 1) then - wrk2(i,j) = 1.0 / ((360.+GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam - else - wrk2(i,j) = 1.0 / ((GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam - end if - enddo - ENDDO - - CALL EXCH(cosl) - -!$omp parallel do private(i,j,ii) - DO J=JSTA,JEND - if (j == 1) then - if(gdlat(1,j) > 0.) then ! count from north to south - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi - enddo - else ! count from south to north - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GDLAT(II,J))*DTR) !1/dphi - enddo - end if - elseif (j == JM) then - if(gdlat(1,j) < 0.) then ! count from north to south - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) - enddo - else ! count from south to north - do i=1,im - ii = i + imb2 - if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GDLAT(II,J))*DTR) - enddo - end if - else - do i=1,im - wrk3(i,j) = 1.0 / ((GDLAT(I,J-1)-GDLAT(I,J+1))*DTR) !1/dphi - enddo - endif - ENDDO - -!$omp parallel do private(i,j,ip1,im1,ii,jj) - DO J=JSTA,JEND - IF(J == 1) then ! Near North pole - if(gdlat(1,j) > 0.) then ! count from north to south - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) - PSY(I,J) = (PS(II,J)-PS(I,J+1))*wrk3(i,j)/ERAD - enddo - ELSE !North pole point, compute at j=2 - jj = 2 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - PSX(I,J) = (PS(ip1,jj)-PS(im1,jj))*wrk2(i,jj)*wrk1(i,jj) - PSY(I,J) = (PS(I,J)-PS(I,jj+1))*wrk3(i,jj)/ERAD - enddo - ENDIF - else - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) - PSY(I,J) = - (PS(II,J)-PS(I,J+1))*wrk3(i,j)/ERAD - enddo - ELSE !North pole point, compute at j=2 - jj = 2 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - PSX(I,J) = (PS(ip1,jj)-PS(im1,jj))*wrk2(i,jj)*wrk1(i,jj) - PSY(I,J) = - (PS(I,J)-PS(I,jj+1))*wrk3(i,jj)/ERAD - enddo - ENDIF - endif - ELSE IF(J == JM) THEN ! Near South pole - if(gdlat(1,j) < 0.) then ! count from north to south - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) - PSY(I,J) = (PS(I,J-1)-PS(II,J))*wrk3(i,j)/ERAD - enddo - ELSE !South pole point,compute at jm-1 - jj = jm-1 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - PSX(I,J) = (PS(ip1,JJ)-PS(im1,JJ))*wrk2(i,jj)*wrk1(i,jj) - PSY(I,J) = (PS(I,jj-1)-PS(I,J))*wrk3(i,jj)/ERAD - enddo - ENDIF - else - IF(cosl(1,j) >= SMALL) THEN !not a pole point - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - ii = i + imb2 - if (ii > im) ii = ii - im - PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) - PSY(I,J) = - (PS(I,J-1)-PS(II,J))*wrk3(i,j)/ERAD - enddo - ELSE !South pole point,compute at jm-1 - jj = jm-1 - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - PSX(I,J) = (PS(ip1,JJ)-PS(im1,JJ))*wrk2(i,jj)*wrk1(i,jj) - PSY(I,J) = - (PS(I,jj-1)-PS(I,J))*wrk3(i,jj)/ERAD - enddo - ENDIF - endif - ELSE - DO I=1,IM - ip1 = ie(i) - im1 = iw(i) - PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) - PSY(I,J) = (PS(I,J-1)-PS(I,J+1))*wrk3(i,j)/ERAD -!sk06142016A - if(PSX(I,J)>100.0)print*,'Debug in CALGRADPS: PSX',i,j,PS(ip1,J),PS(im1,J), & -! print*,'Debug in CALGRADPS',i,j,PS(ip1,J),PS(im1,J), & - & wrk2(i,j),wrk1(i,j),PSX(I,J) - if(PSY(I,J)>100.0)print*,'Debug in CALGRADPS: PSY',i,j,PS(i,J-1),PS(i,J+1), & -! print*,'Debug in CALGRADPS',i,j,PS(i,J-1),PS(i,J+1), & - & wrk3(i,j),ERAD,PSY(I,J) -!-- - ENDDO - END IF -! - ENDDO ! end of J loop - - deallocate (wrk1, wrk2, wrk3, cosl, iw, ie) - -! END IF - - END SUBROUTINE CALGRADPS diff --git a/sorc/ncep_post.fd/CALWXT.f b/sorc/ncep_post.fd/CALWXT.f index a50a6065c..48aac1332 100644 --- a/sorc/ncep_post.fd/CALWXT.f +++ b/sorc/ncep_post.fd/CALWXT.f @@ -10,6 +10,7 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! 05-07-07 BINBIN ZHOU - ADD PREC FOR RSM ! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT ! 21-07-26 Wen Meng - Restrict computation from undefined grids +! 21-10-31 JESSE MENG - 2D DECOMPOSITION ! ! ! ROUTINE TO COMPUTE PRECIPITATION TYPE USING A DECISION TREE @@ -22,19 +23,20 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! use params_mod, only: h1m12, d00, d608, h1, rog use ctlblk_mod, only: jsta, jend, spval, modelname,pthresh, im, & - jsta_2l, jend_2u, lm, lp1 + jsta_2l, jend_2u, lm, lp1, & + ista, iend, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! INPUT: ! T,Q,PMID,HTM,LMH,PREC,ZINT ! - real,dimension(IM,jsta_2l:jend_2u),intent(in) :: LMH - real,dimension(IM,jsta_2l:jend_2u,LM),intent(in) :: T,Q,PMID,HTM - real,dimension(IM,jsta_2l:jend_2u,LP1),intent(in) :: ZINT,PINT - integer,DIMENSION(IM,jsta:jend),intent(inout) :: IWX - real,dimension(IM,jsta_2l:jend_2u),intent(inout) :: PREC - real,DIMENSION(IM,jsta:jend),intent(inout) :: ZWET + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(in) :: LMH + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,LM),intent(in) :: T,Q,PMID,HTM + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,LP1),intent(in) :: ZINT,PINT + integer,DIMENSION(ista:iend,jsta:jend),intent(inout) :: IWX + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(inout) :: PREC + real,DIMENSION(ista:iend,jsta:jend),intent(inout) :: ZWET ! OUTPUT: @@ -49,8 +51,8 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! INTERNAL: ! REAL, ALLOCATABLE :: TWET(:,:,:) - integer,DIMENSION(IM,jsta:jend) :: KARR,LICEE - real, DIMENSION(IM,jsta:jend) :: TCOLD,TWARM + integer,DIMENSION(ista:iend,jsta:jend) :: KARR,LICEE + real, DIMENSION(ista:iend,jsta:jend) :: TCOLD,TWARM logical :: jcontinue=.true. ! SUBROUTINES CALLED: @@ -69,12 +71,12 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) real PSFCK,TDCHK,A,TDKL,TDPRE,TLMHK,TWRMK,AREAS8,AREAP4, & SURFW,SURFC,DZKL,AREA1,PINTK1,PINTK2,PM150,PKL,TKL,QKL - ALLOCATE ( TWET(IM,JSTA_2L:JEND_2U,LM) ) + ALLOCATE ( TWET(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM) ) ! !!$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX(I,J) = 0 ZWET(I,J) = SPVAL ! if (I == 324 .and. J == 390) then @@ -88,7 +90,7 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) IF(MODELNAME=='RSM') THEN !add by Binbin because of different unit DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PREC(I,J) = PREC(I,J)*3*3600.0 ENDDO ENDDO @@ -98,7 +100,7 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! !!$omp parallel do private(a,lmhk,pkl,psfck,qkl,tdchk,tdkl,tdpre,tkl) DO 800 J=JSTA,JEND - DO 800 I=1,IM + DO 800 I=ISTA,IEND LMHK=NINT(LMH(I,J)) ! ! SKIP THIS POINT IF NO PRECIP THIS TIME STEP @@ -155,7 +157,7 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! LOWEST LAYER T ! DO 850 J=JSTA,JEND - DO 850 I=1,IM + DO 850 I=ISTA,IEND KARR(I,J)=0 IF (PREC(I,J)<=PTHRESH) cycle LMHK=NINT(LMH(I,J)) @@ -195,7 +197,7 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) ! & lmhk,pintk1,pintk2,pm150,psfck,surfc,surfw, & ! & tlmhk,twrmk) DO 1900 J=JSTA,JEND - DO 1900 I=1,IM + DO 1900 I=ISTA,IEND ! IF (I == 324 .AND. J == 390) THEN ! LMHK=NINT(LMH(I,J)) ! DO L=LMHK,1,-1 @@ -318,7 +320,7 @@ SUBROUTINE CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX,ZWET) IF(MODELNAME == 'RSM') THEN !add by Binbin, change back !!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PREC(I,J) = PREC(I,J)/(3*3600.0) ENDDO ENDDO diff --git a/sorc/ncep_post.fd/CALWXT_BOURG.f b/sorc/ncep_post.fd/CALWXT_BOURG.f index fa584b8b5..51fb0a3d0 100644 --- a/sorc/ncep_post.fd/CALWXT_BOURG.f +++ b/sorc/ncep_post.fd/CALWXT_BOURG.f @@ -44,27 +44,29 @@ !> 2005-08-24 | G Manikin | added to wrf post !> 2007-06-19 | M Iredell | mersenne twister, best practices !> 2015-??-?? | S Moorthi | changed random number call and optimization and cleanup +!> 2021-10-31 | J Meng | 2D DECOMPOSITION !> !> Remarks: vertical order of arrays must be layer 1 = top !> and layer lmh = bottom !> !> @author M Baldwin np22 @date 1999-07-06 - subroutine calwxt_bourg_post(im,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1, & + subroutine calwxt_bourg_post(im,ista_2l,iend_2u,ista,iend,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1, & & iseed,g,pthresh, & & t,q,pmid,pint,lmh,prec,zint,ptype,me) implicit none ! ! input: - integer,intent(in):: im,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1,iseed,me + integer,intent(in):: im,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1,iseed,me,& + ista_2l,iend_2u,ista,iend real,intent(in):: g,pthresh - real,intent(in), dimension(im,jsta_2l:jend_2u,lm) :: t, q, pmid - real,intent(in), dimension(im,jsta_2l:jend_2u,lp1) :: pint, zint - real,intent(in), dimension(im,jsta_2l:jend_2u) :: lmh, prec + real,intent(in), dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lm) :: t, q, pmid + real,intent(in), dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lp1) :: pint, zint + real,intent(in), dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: lmh, prec ! ! output: ! real,intent(out) :: ptype(im,jm) - integer,intent(out) :: ptype(im,jsta:jend) + integer,intent(out) :: ptype(ista:iend,jsta:jend) ! integer i,j,ifrzl,iwrml,l,lhiwrm,lmhk,jlen real pintk1,areane,tlmhk,areape,pintk2,surfw,area1,dzkl,psfck,r1,r2 @@ -83,7 +85,7 @@ subroutine calwxt_bourg_post(im,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1, & ! !$omp parallel do do j=jsta,jend - do i=1,im + do i=ista,iend ptype(i,j) = 0 enddo enddo @@ -103,7 +105,7 @@ subroutine calwxt_bourg_post(im,jm,jsta_2l,jend_2u,jsta,jend,lm,lp1, & do j=jsta,jend ! if(me==1)print *,'incalwxtbg, j=',j - do i=1,im + do i=ista,iend lmhk = min(nint(lmh(i,j)),lm) psfck = pint(i,j,lmhk+1) ! diff --git a/sorc/ncep_post.fd/CALWXT_DOMINANT.f b/sorc/ncep_post.fd/CALWXT_DOMINANT.f index 6d397be45..7912d80fd 100644 --- a/sorc/ncep_post.fd/CALWXT_DOMINANT.f +++ b/sorc/ncep_post.fd/CALWXT_DOMINANT.f @@ -1,28 +1,32 @@ SUBROUTINE CALWXT_DOMINANT_POST(PREC,RAIN,FREEZR,SLEET,SNOW, & & DOMR,DOMZR,DOMIP,DOMS) ! -! WRITTEN: 24 AUGUST 2005, G MANIKIN +! WRITTEN: 24 AUGUST 2005, G MANIKIN +! +! PROGRAM HISTORY LOG: +! 21-10-31 JESSE MENG - 2D DECOMPOSITION ! ! THIS ROUTINE TAKES THE PRECIP TYPE SOLUTIONS FROM DIFFERENT ! ALGORITHMS AND SUMS THEM UP TO GIVE A DOMINANT TYPE ! ! use params_mod - use ctlblk_mod, only: jsta, jend, pthresh, im, jsta_2l, jend_2u + use ctlblk_mod, only: jsta, jend, pthresh, im, jsta_2l, jend_2u, & + ista, iend, ista_2l, iend_2u ! use ctlblk_mod !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! integer,PARAMETER :: NALG=5 ! INPUT: - REAL PREC(IM,jsta_2l:jend_2u) - real,DIMENSION(IM,jsta:jend), intent(inout) :: DOMS,DOMR,DOMZR,DOMIP - real,DIMENSION(IM,jsta:jend,NALG),intent(in) :: RAIN,SNOW,SLEET,FREEZR + REAL PREC(ista_2l:iend_2u,jsta_2l:jend_2u) + real,DIMENSION(ista:iend,jsta:jend), intent(inout) :: DOMS,DOMR,DOMZR,DOMIP + real,DIMENSION(ista:iend,jsta:jend,NALG),intent(in) :: RAIN,SNOW,SLEET,FREEZR integer I,J,L real TOTSN,TOTIP,TOTR,TOTZR !-------------------------------------------------------------------------- !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DOMR(I,J) = 0. DOMS(I,J) = 0. DOMZR(I,J) = 0. @@ -32,7 +36,7 @@ SUBROUTINE CALWXT_DOMINANT_POST(PREC,RAIN,FREEZR,SLEET,SNOW, & ! !$omp parallel do private(i,j,totsn,totip,totr,totzr) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! SKIP THIS POINT IF NO PRECIP THIS TIME STEP IF (PREC(I,J) <= PTHRESH) cycle TOTSN = 0 diff --git a/sorc/ncep_post.fd/CALWXT_EXPLICIT.f b/sorc/ncep_post.fd/CALWXT_EXPLICIT.f index 36fb23d17..1b8b78367 100644 --- a/sorc/ncep_post.fd/CALWXT_EXPLICIT.f +++ b/sorc/ncep_post.fd/CALWXT_EXPLICIT.f @@ -5,10 +5,13 @@ SUBROUTINE CALWXT_EXPLICIT_POST(LMH,THS,PMID,PREC,SR,F_RIMEF,IWX) ! ! ROUTINE TO COMPUTE PRECIPITATION TYPE USING EXPLICIT FIELDS ! FROM THE MODEL MICROPHYSICS +! +! PROGRAM HISTORY LOG: +! 21-10-31 JESSE MENG - 2D DECOMPOSITION use params_mod, only: p1000, capa use ctlblk_mod, only: jsta, jend, modelname, pthresh, im, jsta_2l, & - jend_2u, lm + jend_2u, lm, ista, iend, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -16,9 +19,9 @@ SUBROUTINE CALWXT_EXPLICIT_POST(LMH,THS,PMID,PREC,SR,F_RIMEF,IWX) ! PARAMETERS: ! ! INPUT: - real,dimension(im,jsta_2l:jend_2u,lm),intent(in) :: F_RimeF, pmid - REAL,dimension(im,jsta_2l:jend_2u), intent(in) :: LMH, PREC, THS, SR - integer,dimension(im,jsta:jend), intent(inout) :: IWX + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lm),intent(in) :: F_RimeF, pmid + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: LMH, PREC, THS, SR + integer,dimension(ista:iend,jsta:jend), intent(inout) :: IWX integer I,J,LMHK real PSFC,TSKIN,SNOW ! @@ -26,7 +29,7 @@ SUBROUTINE CALWXT_EXPLICIT_POST(LMH,THS,PMID,PREC,SR,F_RIMEF,IWX) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX(I,J) = 0 ENDDO ENDDO @@ -34,7 +37,7 @@ SUBROUTINE CALWXT_EXPLICIT_POST(LMH,THS,PMID,PREC,SR,F_RIMEF,IWX) ! !$omp parallel do private(j,i,lmhk,psfc,tskin) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LMHK=LMH(I,J) ! ! SKIP THIS POINT IF NO PRECIP THIS TIME STEP diff --git a/sorc/ncep_post.fd/CALWXT_RAMER.f b/sorc/ncep_post.fd/CALWXT_RAMER.f index b05f64922..5c573db20 100644 --- a/sorc/ncep_post.fd/CALWXT_RAMER.f +++ b/sorc/ncep_post.fd/CALWXT_RAMER.f @@ -7,9 +7,10 @@ ! Weather Systems, Vienna, VA, Amer. Meteor. Soc., 227-230. ! ! CODE ADAPTED FOR WRF POST 24 AUGUST 2005 G MANIKIN - +! ! PROGRAM HISTORY LOG: ! 10-30-19 Bo CUI - Remove "GOTO" statement +! 21-10-31 JESSE MENG - 2D DECOMPOSITION !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! SUBROUTINE CALWXT_RAMER_POST(T,Q,PMID,PINT,LMH,PREC,PTYP) @@ -24,7 +25,8 @@ SUBROUTINE CALWXT_RAMER_POST(T,Q,PMID,PINT,LMH,PREC,PTYP) ! + ptyp) ! output(2) phase 2=Rain, 3=Frzg, 4=Solid, ! 6=IP JC 9/16/99 use params_mod, only: pq0, a2, a3, a4 - use CTLBLK_mod, only: me, im, jsta_2l, jend_2u, lm, lp1, jsta, jend, pthresh + use CTLBLK_mod, only: me, im, jsta_2l, jend_2u, lm, lp1, jsta, jend, pthresh,& + ista, iend, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -37,13 +39,13 @@ SUBROUTINE CALWXT_RAMER_POST(T,Q,PMID,PINT,LMH,PREC,PTYP) INTEGER*4 i, k1, lll, k2, toodry, iflag, nq ! REAL xxx ,mye, icefrac,flg,flag - real,DIMENSION(IM,jsta_2l:jend_2u,LM), intent(in) :: T,Q,PMID - real,DIMENSION(IM,jsta_2l:jend_2u,LP1),intent(in) :: PINT - real,DIMENSION(IM,jsta_2l:jend_2u), intent(in) :: LMH,PREC - integer,DIMENSION(IM,jsta:jend), intent(inout) :: PTYP + real,DIMENSION(ista_2l:iend_2u,jsta_2l:jend_2u,LM), intent(in) :: T,Q,PMID + real,DIMENSION(ista_2l:iend_2u,jsta_2l:jend_2u,LP1),intent(in) :: PINT + real,DIMENSION(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: LMH,PREC + integer,DIMENSION(ista:iend,jsta:jend), intent(inout) :: PTYP ! - real,DIMENSION(IM,jsta_2l:jend_2u,LM) :: P,TQ,PQ,RHQ - real,DIMENSION(IM,jsta:jend,LM) :: TWQ + real,DIMENSION(ista_2l:iend_2u,jsta_2l:jend_2u,LM) :: P,TQ,PQ,RHQ + real,DIMENSION(ista:iend,jsta:jend,LM) :: TWQ ! REAL, ALLOCATABLE :: TWET(:,:,:) ! integer J,L,LEV,LNQ,LMHK,ii @@ -61,7 +63,7 @@ SUBROUTINE CALWXT_RAMER_POST(T,Q,PMID,PINT,LMH,PREC,PTYP) icefrac = flag ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PTYP(I,J) = 0 NQ=LMH(I,J) DO L = 1,NQ @@ -77,7 +79,7 @@ SUBROUTINE CALWXT_RAMER_POST(T,Q,PMID,PINT,LMH,PREC,PTYP) ! BIG LOOP DO 800 J=JSTA,JEND - DO 800 I=1,IM + DO 800 I=ISTA,IEND ! ! SKIP THIS POINT IF NO PRECIP THIS TIME STEP ! @@ -372,9 +374,7 @@ SUBROUTINE CALWXT_RAMER_POST(T,Q,PMID,PINT,LMH,PREC,PTYP) IF (trace) WRITE (*,*) "Returned ptyp is:ptyp,lll ", ptyp, lll,'me=',me IF (trace) WRITE (*,*) "Returned icefrac is: ", icefrac,'me=',me 800 CONTINUE - DO 900 J=JSTA,JEND - DO 900 I=1,IM - 900 CONTINUE + RETURN ! END diff --git a/sorc/ncep_post.fd/CALWXT_REVISED.f b/sorc/ncep_post.fd/CALWXT_REVISED.f index c19134def..792680d09 100644 --- a/sorc/ncep_post.fd/CALWXT_REVISED.f +++ b/sorc/ncep_post.fd/CALWXT_REVISED.f @@ -11,6 +11,7 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) ! 05-08-24 GEOFF MANIKIN - MODIFIED THE AREA REQUIREMENTS ! TO MAKE AN ALTERNATE ALGORITHM ! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT +! 21-10-31 JESSE MENG - 2D DECOMPOSITION ! ! ! ROUTINE TO COMPUTE PRECIPITATION TYPE USING A DECISION TREE @@ -27,7 +28,7 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) ! use params_mod, only: h1m12, d00, d608, h1, rog use ctlblk_mod, only: jsta, jend, modelname, pthresh, im, jsta_2l, jend_2u, lm,& - lp1, spval + lp1, spval, ista, iend, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -38,10 +39,10 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) ! ! INPUT: ! T,Q,PMID,HTM,LMH,PREC,ZINT - REAL,dimension(IM,jsta_2l:jend_2u,LM), intent(in) :: T,Q,PMID,HTM - REAL,dimension(IM,jsta_2l:jend_2u,LP1),intent(in) :: PINT,ZINT - REAL,dimension(IM,jsta_2l:jend_2u), intent(in) :: LMH - REAL,dimension(IM,jsta_2l:jend_2u), intent(in) :: PREC + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,LM), intent(in) :: T,Q,PMID,HTM + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,LP1),intent(in) :: PINT,ZINT + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: LMH + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: PREC ! OUTPUT: ! IWX - INSTANTANEOUS WEATHER TYPE. ! ACTS LIKE A 4 BIT BINARY @@ -50,12 +51,12 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) ! THE TWO'S DIGIT IS FOR ICE PELLETS ! THE FOUR'S DIGIT IS FOR FREEZING RAIN ! AND THE EIGHT'S DIGIT IS FOR RAIN - integer, DIMENSION(IM,jsta:jend),intent(inout) :: IWX + integer, DIMENSION(ista:iend,jsta:jend),intent(inout) :: IWX ! INTERNAL: ! REAL, ALLOCATABLE :: TWET(:,:,:) - integer,DIMENSION(IM,jsta:jend) :: KARR,LICEE - real, dimension(IM,jsta:jend) :: TCOLD,TWARM + integer,DIMENSION(ista:iend,jsta:jend) :: KARR,LICEE + real, dimension(ista:iend,jsta:jend) :: TCOLD,TWARM ! integer I,J,L,LMHK,LICE,IFREL,IWRML,IFRZL real PSFCK,TDCHK,A,TDKL,TDPRE,TLMHK,TWRMK,AREAS8,AREAP4,AREA1, & @@ -75,11 +76,11 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) ! ! ALLOCATE LOCAL STORAGE ! - ALLOCATE ( TWET(IM,JSTA_2L:JEND_2U,LM) ) + ALLOCATE ( TWET(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM) ) ! !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX(I,J) = 0 ENDDO ENDDO @@ -88,7 +89,7 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) !!$omp parallel do !!$omp& private(a,lmhk,pkl,psfck,qkl,tdchk,tdkl,tdpre,tkl) DO 800 J=JSTA,JEND - DO 800 I=1,IM + DO 800 I=ISTA,IEND LMHK=NINT(LMH(I,J)) ! ! SKIP THIS POINT IF NO PRECIP THIS TIME STEP @@ -145,7 +146,7 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) ! LOWEST LAYER T ! DO 850 J=JSTA,JEND - DO 850 I=1,IM + DO 850 I=ISTA,IEND KARR(I,J)=0 IF (PREC(I,J)<=PTHRESH) cycle LMHK=NINT(LMH(I,J)) @@ -184,7 +185,7 @@ SUBROUTINE CALWXT_REVISED_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX) !!$omp& lmhk,pintk1,pintk2,pm150,psfck,surfc,surfw, !!$omp& tlmhk,twrmk) DO 1900 J=JSTA,JEND - DO 1900 I=1,IM + DO 1900 I=ISTA,IEND IF(KARR(I,J)>0)THEN LMHK=NINT(LMH(I,J)) LICE=LICEE(I,J) diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index 26c375205..fb03d8752 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -99,7 +99,7 @@ SUBROUTINE CLDRAD FLD_INFO, AVRAIN, THEAT, IFHR, IFMIN, AVCNVC, & TCLOD, ARDSW, TRDSW, ARDLW, NBIN_DU, TRDLW, IM, & NBIN_SS, NBIN_OC, NBIN_BC, NBIN_SU, DTQ2, & - JM, LM, gocart_on, me, rdaod + JM, LM, gocart_on, me, rdaod,ISTA, IEND use rqstfld_mod, only: IGET, ID, LVLS, IAVBLFLD use gridspec_mod, only: dyval, gridtype use cmassi_mod, only: TRAD_ice @@ -116,10 +116,10 @@ SUBROUTINE CLDRAD ! ! LOGICAL,dimension(im,jm) :: NEED INTEGER :: lcbot,lctop,jc,ic !bsf - INTEGER,dimension(im,jsta:jend) :: IBOTT, IBOTCu, IBOTDCu, IBOTSCu, IBOTGr, & + INTEGER,dimension(ista:iend,jsta:jend) :: IBOTT, IBOTCu, IBOTDCu, IBOTSCu, IBOTGr, & ITOPT, ITOPCu, ITOPDCu, ITOPSCu, ITOPGr REAL,dimension(im,jm) :: GRID1 - REAL,dimension(im,jsta:jend) :: GRID2, EGRID1, EGRID2, EGRID3, & + REAL,dimension(ista:iend,jsta:jend) :: GRID2, EGRID1, EGRID2, EGRID3, & CLDP, CLDZ, CLDT, CLDZCu REAL,dimension(lm) :: RHB, watericetotal, pabovesfc REAL :: watericemax, wimin, zcldbase, zcldtop, zpbltop, & @@ -136,7 +136,7 @@ SUBROUTINE CLDRAD real,dimension(im,jm) :: ceil ! B ZHOU: For aviation: - REAL, dimension(im,jsta:jend) :: TCLD, CEILING + REAL, dimension(ista:iend,jsta:jend) :: TCLD, CEILING real CU_ir(LM), q_conv !bsf !jw integer I,J,L,K,IBOT,ITCLOD,LBOT,LTOP,ITRDSW,ITRDLW, & @@ -147,8 +147,9 @@ SUBROUTINE CLDRAD real FULL_CLD(IM,JM) !-- Must be dimensioned for the full domain real, allocatable :: full_ceil(:,:), full_fis(:,:) ! - real dummy(IM,jsta:jend) - integer idummy(IM,jsta:jend) + real dummy(ista:iend,jsta:jend) + integer idummy(ista:iend,jsta:jend) + real full_dummy(im,jm) ! ! --- Revision added for GOCART --- @@ -193,7 +194,7 @@ SUBROUTINE CLDRAD ! - relative humidity dependent aerosol optical properties: oc, bc, su, ss001-005 real (kind=kind_phys) :: extrhd(KRHLEV,KCM2,NBDSW) ! extinction coefficient ! - REAL,dimension(im,jsta:jend) :: P1D,T1D,Q1D,EGRID4 + REAL,dimension(ista:iend,jsta:jend) :: P1D,T1D,Q1D,EGRID4 ! REAL, allocatable :: RH3D(:,:,:) ! RELATIVE HUMIDITY real, allocatable:: rdrh(:,:,:) integer, allocatable :: ihh(:,:,:) @@ -201,10 +202,10 @@ SUBROUTINE CLDRAD INTEGER :: IH1, IH2 INTEGER :: IOS, INDX, ISSAM, ISSCM, ISUSO, IWASO, ISOOT, NBIN REAL :: CCDRY, CCWET, SSAM, SSCM - REAL,dimension(im,jsta:jend) :: AOD_DU, AOD_SS, AOD_SU, AOD_OC, AOD_BC, AOD - REAL,dimension(im,jsta:jend) :: SCA_DU, SCA_SS, SCA_SU, SCA_OC,SCA_BC, SCA2D - REAL,dimension(im,jsta:jend) :: ASY_DU, ASY_SS, ASY_SU, ASY_OC, ASY_BC,ASY2D - REAL,dimension(im,jsta:jend) :: ANGST, AOD_440, AOD_860 ! FORANGSTROM EXPONENT + REAL,dimension(ista:iend,jsta:jend) :: AOD_DU, AOD_SS, AOD_SU, AOD_OC, AOD_BC, AOD + REAL,dimension(ista:iend,jsta:jend) :: SCA_DU, SCA_SS, SCA_SU, SCA_OC,SCA_BC, SCA2D + REAL,dimension(ista:iend,jsta:jend) :: ASY_DU, ASY_SS, ASY_SU, ASY_OC, ASY_BC,ASY2D + REAL,dimension(ista:iend,jsta:jend) :: ANGST, AOD_440, AOD_860 ! FORANGSTROM EXPONENT REAL :: ANG1, ANG2 INTEGER :: INDX_EXT(nAero), INDX_SCA(nAero) LOGICAL :: LAEROPT, LEXT, LSCA, LASY @@ -245,7 +246,7 @@ SUBROUTINE CLDRAD IF (IGET(030)>0.OR.IGET(572)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID1(I,J) = SPVAL ENDDO ENDDO @@ -255,14 +256,14 @@ SUBROUTINE CLDRAD IF(MODELNAME == 'RAPR') THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(EGRID1(I,J) < SPVAL) GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(EGRID1(I,J) < SPVAL) GRID1(I,J) = EGRID1(I,J) + TFRZ ENDDO ENDDO @@ -272,11 +273,12 @@ SUBROUTINE CLDRAD if(grib == "grib2" )then cfld = cfld+1 fld_info(cfld)%ifld = IAVBLFLD(IGET(030)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -287,12 +289,13 @@ SUBROUTINE CLDRAD cfld = cfld+1 fld_info(cfld)%ifld = IAVBLFLD(IGET(572)) ! where(GRID1 /= SPVAL) GRID1 = GRID1-TFRZ -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - if (grid1(i,jj) /= spval) grid1(i,jj) = grid1(i,jj) - tfrz - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + if (grid1(ii,jj) /= spval) grid1(ii,jj) = grid1(ii,jj) - tfrz + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -316,7 +319,7 @@ SUBROUTINE CLDRAD EGRID3,dummy,dummy) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FIS(I,J) < SPVAL) GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO @@ -324,11 +327,12 @@ SUBROUTINE CLDRAD if(grib == "grib2" )then cfld = cfld+1 fld_info(cfld)%ifld = IAVBLFLD(IGET(032)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -344,7 +348,7 @@ SUBROUTINE CLDRAD IF ( (LVLS(1,IGET(032)) > 0) )THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FIS(I,J) < SPVAL) GRID1(I,J) = - EGRID2(I,J) ENDDO ENDDO @@ -358,7 +362,7 @@ SUBROUTINE CLDRAD EGRID3,dummy,dummy) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FIS(I,J) < SPVAL) GRID1(I,J) = - EGRID2(I,J) ENDDO ENDDO @@ -366,18 +370,19 @@ SUBROUTINE CLDRAD CALL BOUND(GRID1,D00,H99999) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FIS(I,J) < SPVAL) GRID1(I,J) = - GRID1(I,J) ENDDO ENDDO if(grib == "grib2" )then cfld = cfld+1 fld_info(cfld)%ifld = IAVBLFLD(IGET(107)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -392,7 +397,7 @@ SUBROUTINE CLDRAD GRID1 = spval Model_Pwat = .false. DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(PWAT(I,J)-SPVAL)>SMALL) THEN Model_Pwat = .true. exit @@ -401,14 +406,14 @@ SUBROUTINE CLDRAD END DO IF (Model_Pwat) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PWAT(I,J) END DO END DO ELSE - CALL CALPW(GRID1(1,jsta),1) + CALL CALPW(GRID1(ista:iend,jsta:jend),1) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FIS(I,J) >= SPVAL) GRID1(I,J)=spval END DO END DO @@ -417,11 +422,12 @@ SUBROUTINE CLDRAD if(grib == "grib2" )then cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(080)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -431,16 +437,17 @@ SUBROUTINE CLDRAD ! TOTAL COLUMN AOD (TAOD553D FROM HRRR-SMOKE) ! IF (IGET(735) > 0) THEN - CALL CALPW(GRID1(1,jsta),19) + CALL CALPW(GRID1(ista:iend,jsta:jend),19) CALL BOUND(GRID1,D00,H99999) if(grib == "grib2" )then cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(735)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -450,16 +457,17 @@ SUBROUTINE CLDRAD ! TOTAL COLUMN FIRE SMOKE (tracer_1a FROM HRRR-SMOKE) ! IF (IGET(736) > 0) THEN - CALL CALPW(GRID1(1,jsta),18) + CALL CALPW(GRID1(ista:iend,jsta:iend),18) CALL BOUND(GRID1,D00,H99999) if(grib == "grib2" )then cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(736)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -471,18 +479,18 @@ SUBROUTINE CLDRAD GRID2 = spval IF (MODELNAME == 'RAPR') THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(LWP(I,J) < SPVAL) GRID1(I,J) = LWP(I,J)/1000.0 ! use WRF-diagnosed value ENDDO ENDDO ELSE - CALL CALPW(GRID1(1,jsta),2) + CALL CALPW(GRID1(ista:iend,jsta:jend),2) IF(MODELNAME == 'GFS')then ! GFS combines cloud water and cloud ice, hoping to seperate them next implementation - CALL CALPW(GRID2(1,jsta),3) + CALL CALPW(GRID2(ista:iend,jsta:jend),3) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(GRID1(I,J) 0) THEN - CALL CALPW(GRID1(1,jsta),4) + CALL CALPW(GRID1(ista:iend,jsta:jend),4) CALL BOUND(GRID1,D00,H99999) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(202)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -568,16 +580,17 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN SNOW IF (IGET(203) > 0) THEN - CALL CALPW(GRID1(1,jsta),5) + CALL CALPW(GRID1(ista:iend,jsta:jend),5) CALL BOUND(GRID1,D00,H99999) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(203)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -586,16 +599,17 @@ SUBROUTINE CLDRAD ! SRD ! TOTAL COLUMN GRAUPEL IF (IGET(428) > 0) THEN - CALL CALPW(GRID1(1,jsta),16) + CALL CALPW(GRID1(ista:iend,jsta:jend),16) CALL BOUND(GRID1,D00,H99999) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(428)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -604,16 +618,17 @@ SUBROUTINE CLDRAD ! TOTAL COLUMN CONDENSATE IF (IGET(204) > 0) THEN - CALL CALPW(GRID1(1,jsta),6) + CALL CALPW(GRID1(ista:iend,jsta:jend),6) CALL BOUND(GRID1,D00,H99999) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(204)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -621,16 +636,17 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN SUPERCOOLED (<0C) LIQUID WATER IF (IGET(285) > 0) THEN - CALL CALPW(GRID1(1,jsta),7) + CALL CALPW(GRID1(ista:iend,jsta:jend),7) CALL BOUND(GRID1,D00,H99999) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(285)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -638,16 +654,17 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN MELTING (>0C) ICE IF (IGET(286) > 0) THEN - CALL CALPW(GRID1(1,jsta),8) + CALL CALPW(GRID1(ista:iend,jsta:jend),8) CALL BOUND(GRID1,D00,H99999) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(286)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -655,15 +672,16 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN SHORT WAVE T TENDENCY IF (IGET(290) > 0) THEN - CALL CALPW(GRID1(1,jsta),9) + CALL CALPW(GRID1(ista:iend,jsta:jend),9) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(290)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -671,15 +689,16 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN LONG WAVE T TENDENCY IF (IGET(291) > 0) THEN - CALL CALPW(GRID1(1,jsta),10) + CALL CALPW(GRID1(ista:iend,jsta:jend),10) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(291)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -687,15 +706,15 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN GRID SCALE LATENT HEATING (TIME AVE) IF (IGET(292) > 0) THEN - CALL CALPW(GRID1(1,jsta),11) + CALL CALPW(GRID1(ista:iend,jsta:jend),11) IF(AVRAIN > 0.)THEN RRNUM = 1./AVRAIN ELSE RRNUM = 0. ENDIF -!$omp parallel do +!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(GRID1(I,J) < SPVAL) GRID1(I,J) = GRID1(I,J)*RRNUM ENDDO ENDDO @@ -725,11 +744,12 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -737,15 +757,15 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN CONVECTIVE LATENT HEATING (TIME AVE) IF (IGET(293) > 0) THEN - CALL CALPW(GRID1(1,jsta),12) + CALL CALPW(GRID1(ista:iend,jsta:jend),12) IF(AVRAIN > 0.)THEN RRNUM = 1./AVCNVC ELSE RRNUM = 0. ENDIF -!$omp parallel do +!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(GRID1(I,J) < SPVAL) GRID1(I,J) = GRID1(I,J)*RRNUM ENDDO ENDDO @@ -775,11 +795,12 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -787,35 +808,36 @@ SUBROUTINE CLDRAD ! ! TOTAL COLUMN moisture convergence IF (IGET(295)>0) THEN - CALL CALPW(GRID1(1,jsta),13) + CALL CALPW(GRID1(ista:iend,jsta:jend),13) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(295)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TOTAL COLUMN RH IF (IGET(312)>0) THEN - CALL CALPW(GRID1(1,jsta),14) + CALL CALPW(GRID1(ista:iend,jsta:jend),14) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(312)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TOTAL COLUMN OZONE IF (IGET(299) > 0) THEN - CALL CALPW(GRID1(1,jsta),15) + CALL CALPW(GRID1(ista:iend,jsta:jend),15) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(299)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -824,7 +846,7 @@ SUBROUTINE CLDRAD ! BOTTOM AND/OR TOP OF SUPERCOOLED (<0C) LIQUID WATER LAYER IF (IGET(287)>0 .OR. IGET(288)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=-5000. GRID2(I,J)=-5000. !-- Search for the base first, then look for the top if supercooled liquid exists @@ -858,24 +880,25 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(287)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(288)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=GRID2(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(288)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -887,14 +910,14 @@ SUBROUTINE CLDRAD ! from 0.2 (EFIMN in cuparm in model) to 1.0 (Ferrier, Feb '02) IF (IGET(197)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDEFI(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(197)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -906,7 +929,7 @@ SUBROUTINE CLDRAD ! also a method for cloud ceiling height ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND CFRACL(I,J)=0. CFRACM(I,J)=0. CFRACH(I,J)=0. @@ -923,10 +946,10 @@ SUBROUTINE CLDRAD endif DELY=14259./DY_m numr=NINT(DELY) - ! write (0,*) 'numr,dyval,DY_m=',numr,dyval,DY_m + write (0,*) 'numr,dyval,DY_m=',numr,dyval,DY_m DO L=LM,1,-1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(CFR(I,J,L)=PTOP_LOW) THEN @@ -1009,9 +1035,9 @@ SUBROUTINE CLDRAD ! GSD maximum cloud fraction in (PBL + 1 km) (J. Kenyon, 8 Aug 2019) IF (IGET(799)>0) THEN -!$omp parallel do private(i,j) +!$omp parallel do private(i,j,k) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=0.0 DO K = 1,LM IF (ZMID(I,J,LM-K+1) <= PBLH(I,J)+1000.0) THEN @@ -1023,7 +1049,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(799)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -1031,7 +1057,7 @@ SUBROUTINE CLDRAD IF (IGET(037) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CFRACL(I,J) < SPVAL) then GRID1(I,J) = CFRACL(I,J)*100. else @@ -1042,11 +1068,12 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(037)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1056,7 +1083,7 @@ SUBROUTINE CLDRAD IF (IGET(300) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGCFRACL(I,J) < SPVAL) then GRID1(I,J) = AVGCFRACL(I,J)*100. else @@ -1092,11 +1119,12 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1107,7 +1135,7 @@ SUBROUTINE CLDRAD ! GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CFRACM(I,J) < SPVAL) then GRID1(I,J) = CFRACM(I,J)*100. else @@ -1118,11 +1146,12 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(038)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1132,7 +1161,7 @@ SUBROUTINE CLDRAD IF (IGET(301) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(AVGCFRACM(I,J)-SPVAL)>SMALL)THEN GRID1(I,J) = AVGCFRACM(I,J)*100. ELSE @@ -1168,11 +1197,12 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1183,7 +1213,7 @@ SUBROUTINE CLDRAD ! GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CFRACH(I,J) < SPVAL) then GRID1(I,J) = CFRACH(I,J)*100. else @@ -1194,11 +1224,12 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(039)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1209,7 +1240,7 @@ SUBROUTINE CLDRAD ! GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGCFRACH(I,J) < SPVAL) then GRID1(I,J) = AVGCFRACH(I,J)*100. else @@ -1245,11 +1276,12 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1261,7 +1293,7 @@ SUBROUTINE CLDRAD IF(MODELNAME=='NCAR' .OR. MODELNAME=='RAPR')THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(i,j) = SPVAL egrid1(i,j)=0. do l = 1,LM @@ -1273,7 +1305,7 @@ SUBROUTINE CLDRAD ELSE IF (MODELNAME=='NMM'.OR.MODELNAME=='FV3R' & .OR. MODELNAME=='GFS')THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! EGRID1(I,J)=AMAX1(CFRACL(I,J), ! 1 AMAX1(CFRACM(I,J),CFRACH(I,J))) ! EGRID1(I,J)=1.-(1.-CFRACL(I,J))*(1.-CFRACM(I,J))* & @@ -1285,7 +1317,7 @@ SUBROUTINE CLDRAD END IF !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(EGRID1(I,J)-SPVAL) > SMALL) THEN GRID1(I,J) = EGRID1(I,J)*100. TCLD(I,J) = EGRID1(I,J)*100. !B ZHOU, PASSED to CALCEILING @@ -1296,11 +1328,12 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(161)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1313,7 +1346,7 @@ SUBROUTINE CLDRAD IF(MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R')THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(AVGTCDC(I,J)-SPVAL) > SMALL) then GRID1(I,J) = AVGTCDC(I,J)*100. else @@ -1324,7 +1357,7 @@ SUBROUTINE CLDRAD ELSE IF(MODELNAME == 'NMM')THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! RSUM = NCFRST(I,J)+NCFRCV(I,J) ! IF (RSUM>0.0) THEN ! EGRID1(I,J)=(ACFRST(I,J)+ACFRCV(I,J))/RSUM @@ -1375,11 +1408,12 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1391,7 +1425,7 @@ SUBROUTINE CLDRAD GRID1=SPVAL ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (NCFRST(I,J)0.0) THEN GRID1(I,J) = ACFRST(I,J)/NCFRST(I,J)*100. @@ -1433,7 +1467,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -1443,7 +1477,7 @@ SUBROUTINE CLDRAD GRID1=SPVAL ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (NCFRCV(I,J)0.0) THEN GRID1(I,J) = ACFRCV(I,J)/NCFRCV(I,J)*100. @@ -1485,7 +1519,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -1503,7 +1537,7 @@ SUBROUTINE CLDRAD !--- Rain is not part of cloud, only cloud water + cloud ice + snow ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! !--- Various convective cloud base & cloud top levels ! @@ -1634,14 +1668,14 @@ SUBROUTINE CLDRAD IF (IGET(758)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDZCu(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(758)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -1653,7 +1687,7 @@ SUBROUTINE CLDRAD ! IF ((IGET(148)>0) .OR. (IGET(178)>0) .OR.(IGET(260)>0) ) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IBOT=IBOTT(I,J) !-- Cloud base ("bottoms") IF(MODELNAME == 'RAPR') then IF (IBOT <= 0) THEN @@ -1684,28 +1718,28 @@ SUBROUTINE CLDRAD ! CLOUD BOTTOM PRESSURE IF (IGET(148)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDP(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(148)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! CLOUD BOTTOM HEIGHT IF (IGET(178)>0) THEN !--- Parameter was set to 148 in operational code (Ferrier, Feb '02) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDZ(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(178)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1734,7 +1768,8 @@ SUBROUTINE CLDRAD Cloud_def_p = 0.0000001 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND +! !- imported from RUC post CLDZ(I,J) = SPVAL pcldbase = SPVAL @@ -1919,7 +1954,7 @@ SUBROUTINE CLDRAD nlifr = 0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND zcld = CLDZ(i,j) - FIS(I,J)*GI if (CLDZ(i,j)>=0..and.zcld<160.) nlifr = nlifr+1 end do @@ -1930,14 +1965,14 @@ SUBROUTINE CLDRAD IF (IGET(408)>0) THEN !!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDZ(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(408)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF !End of GSD algorithm @@ -1955,7 +1990,7 @@ SUBROUTINE CLDRAD ceiling_thresh_cldfra = 0.5 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ceil(I,J) = SPVAL zceil = SPVAL cldfra_max = 0. @@ -2021,14 +2056,14 @@ SUBROUTINE CLDRAD ! Parameter 487: experimental ceiling diagnostic #1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ceil(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(487)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! end of parameter-487 conditional code ! END OF EXPERIMENTAL GSD CEILING DIAGNOSTIC 1 @@ -2052,7 +2087,7 @@ SUBROUTINE CLDRAD const1 = 3.912 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ceil(I,J) = SPVAL zceil = SPVAL zceil1 = SPVAL @@ -2170,16 +2205,23 @@ SUBROUTINE CLDRAD ! layer. allocate(full_ceil(IM,JM),full_fis(IM,JM)) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND full_ceil(i,j)=ceil(i,j) full_fis(i,j)=fis(i,j) ENDDO ENDDO - CALL AllGETHERV(full_ceil) - CALL AllGETHERV(full_fis) +! CALL AllGETHERV(full_ceil) + full_dummy=spval + CALL COLLECT_ALL(full_ceil(ISTA:IEND,JSTA:JEND),full_dummy) + full_ceil=full_dummy +! CALL AllGETHERV(full_fis) + full_dummy=spval + CALL COLLECT_ALL(full_fis(ISTA:IEND,JSTA:JEND),full_dummy) + full_fis=full_dummy + numr = 1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ceil_min = max( ceil(I,J)-FIS(I,J)*GI , 5.0) ! ceil_min in AGL do jc = max(1,J-numr),min(JM,J+numr) do ic = max(1,I-numr),min(IM,I+numr) @@ -2207,14 +2249,14 @@ SUBROUTINE CLDRAD IF (IGET(711)>0) THEN !!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDZ(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(711)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -2222,14 +2264,14 @@ SUBROUTINE CLDRAD IF (IGET(798)>0) THEN !!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDP(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(798)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF ! end of parameter-711 and -798 conditional code @@ -2240,32 +2282,33 @@ SUBROUTINE CLDRAD IF (IGET(260)>0) THEN CALL CALCEILING(CLDZ,TCLD,CEILING) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CEILING(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(260)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! B. ZHOU: FLIGHT CONDITION RESTRICTION IF (IGET(261) > 0) THEN CALL CALFLTCND(CEILING,GRID1(1,jsta)) ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! GRID1(I,J) = FLTCND(I,J) ! ENDDO ! ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(261)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2277,13 +2320,13 @@ SUBROUTINE CLDRAD IF(MODELNAME == 'GFS')THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PBOT(I,J) ENDDO ENDDO ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IBOT=IBOTCu(I,J) IF (IBOT>0 .AND. IBOT<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,IBOT) @@ -2296,11 +2339,12 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(188)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2310,7 +2354,7 @@ SUBROUTINE CLDRAD ! IF (IGET(192) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IBOT=IBOTDCu(I,J) IF (IBOT>0 .AND. IBOT<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,IBOT) @@ -2322,14 +2366,14 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(192)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- Shallow convective cloud base pressures (Ferrier, Feb '02) ! IF (IGET(190) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IBOT=IBOTSCu(I,J) IF (IBOT>0 .AND. IBOT<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,IBOT) @@ -2341,14 +2385,14 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(190)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- Base of grid-scale cloudiness (Ferrier, Feb '02) ! IF (IGET(194) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IBOT=IBOTGr(I,J) IF (IBOT>0 .AND. IBOT<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,IBOT) @@ -2360,7 +2404,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(194)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -2368,7 +2412,7 @@ SUBROUTINE CLDRAD ! IF (IGET(303) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! IF(PBOTL(I,J) > SMALL)THEN GRID1(I,J) = PBOTL(I,J) ! ELSE @@ -2404,14 +2448,14 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- Base of middle cloud ! IF (IGET(306) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(PBOTM(I,J) > SMALL)THEN GRID1(I,J) = PBOTM(I,J) ELSE @@ -2447,14 +2491,14 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- Base of high cloud ! IF (IGET(309) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(PBOTH(I,J) > SMALL)THEN GRID1(I,J) = PBOTH(I,J) ELSE @@ -2490,7 +2534,7 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -2503,7 +2547,7 @@ SUBROUTINE CLDRAD IF ((IGET(149)>0) .OR. (IGET(179)>0) .OR. & (IGET(168)>0) .OR. (IGET(275)>0)) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ITOP=ITOPT(I,J) IF (ITOP>0 .AND. ITOP<=NINT(LMH(I,J))) THEN IF(T(I,J,ITOP)0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDP(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(149)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! CLOUD TOP HEIGHT ! IF (IGET(179)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDZ(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(179)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -2571,7 +2615,7 @@ SUBROUTINE CLDRAD Cloud_def_p = 0.0000001 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! imported from RUC post ! Cloud top zcldtop = -5000. @@ -2635,28 +2679,28 @@ SUBROUTINE CLDRAD ! IF (IGET(406)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDP(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(406)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! GSD CLOUD TOP HEIGHT ! IF (IGET(409)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDZ(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(409)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF ! end of GSD algorithm @@ -2665,14 +2709,14 @@ SUBROUTINE CLDRAD ! IF (IGET(168)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = CLDT(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(168)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -2681,7 +2725,7 @@ SUBROUTINE CLDRAD num_thick=0 ! for debug GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND opdepth=0. llmh=nint(lmh(i,j)) !bsf - start @@ -2773,7 +2817,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(275)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -2784,13 +2828,13 @@ SUBROUTINE CLDRAD IF(MODELNAME == 'GFS')THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PTOP(I,J) ENDDO ENDDO ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ITOP=ITOPCu(I,J) IF (ITOP>0 .AND. ITOP<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,ITOP) @@ -2803,11 +2847,12 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(189)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2817,7 +2862,7 @@ SUBROUTINE CLDRAD ! IF (IGET(193) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ITOP=ITOPDCu(I,J) IF (ITOP>0 .AND. ITOP<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,ITOP) @@ -2829,14 +2874,14 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(193)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Shallow convective cloud top pressures (Ferrier, Feb '02) ! IF (IGET(191) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ITOP=ITOPSCu(I,J) IF (ITOP>0 .AND. ITOP<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,ITOP) @@ -2848,7 +2893,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(191)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF ! @@ -2856,7 +2901,7 @@ SUBROUTINE CLDRAD ! IF (IGET(195) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ITOP=ITOPGr(I,J) IF (ITOP>0 .AND. ITOP<=NINT(LMH(I,J))) THEN GRID1(I,J) = PMID(I,J,ITOP) @@ -2868,7 +2913,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(195)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF @@ -2876,7 +2921,7 @@ SUBROUTINE CLDRAD ! IF (IGET(304) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(PTOPL(I,J) > SMALL)THEN GRID1(I,J) = PTOPL(I,J) ELSE @@ -2912,14 +2957,14 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- top of middle cloud ! IF (IGET(307) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PTOPM(I,J) ENDDO ENDDO @@ -2951,14 +2996,14 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- top of high cloud ! IF (IGET(310) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PTOPH(I,J) ENDDO ENDDO @@ -2990,7 +3035,7 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -2998,7 +3043,7 @@ SUBROUTINE CLDRAD ! IF (IGET(305) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TTOPL(I,J) ENDDO ENDDO @@ -3030,14 +3075,14 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- Base of middle cloud ! IF (IGET(308) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TTOPM(I,J) ENDDO ENDDO @@ -3069,14 +3114,14 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- Base of high cloud ! IF (IGET(311) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TTOPH(I,J) ENDDO ENDDO @@ -3107,7 +3152,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=1 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3116,7 +3161,7 @@ SUBROUTINE CLDRAD IF (IGET(196) > 0.or.IGET(570)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(CNVCFR(I,J)/=SPVAL)GRID1(I,J)=100.*CNVCFR(I,J) !-- convert to percent ENDDO ENDDO @@ -3124,13 +3169,13 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(196)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif elseif(IGET(570)>0) then if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(570)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif endif END IF @@ -3140,7 +3185,7 @@ SUBROUTINE CLDRAD IF (IGET(342) > 0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(PBLCFR(I,J)/=SPVAL)GRID1(I,J)=100.*PBLCFR(I,J) !-- convert to percent ENDDO ENDDO @@ -3172,7 +3217,7 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF ! @@ -3180,7 +3225,7 @@ SUBROUTINE CLDRAD ! IF (IGET(313) > 0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=cldwork(I,J) ENDDO ENDDO @@ -3212,7 +3257,7 @@ SUBROUTINE CLDRAD endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF ! @@ -3232,7 +3277,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ASWIN(I,J)/=SPVAL)THEN GRID1(I,J) = ASWIN(I,J)*RRNUM ELSE @@ -3268,7 +3313,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3285,7 +3330,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AUVBIN(I,J)/=SPVAL)THEN GRID1(I,J) = AUVBIN(I,J)*RRNUM ELSE @@ -3322,7 +3367,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3339,7 +3384,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AUVBINC(I,J)/=SPVAL)THEN GRID1(I,J) = AUVBINC(I,J)*RRNUM ELSE @@ -3376,7 +3421,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3392,7 +3437,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ALWIN(I,J)/=SPVAL)THEN GRID1(I,J) = ALWIN(I,J)*RRNUM ELSE @@ -3428,7 +3473,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3444,7 +3489,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ASWOUT(I,J)/=SPVAL)THEN GRID1(I,J) = -1.0*ASWOUT(I,J)*RRNUM ELSE @@ -3480,7 +3525,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3496,7 +3541,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ALWOUT(I,J)/=SPVAL)THEN GRID1(I,J) = -1.0*ALWOUT(I,J)*RRNUM ELSE @@ -3532,7 +3577,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3548,7 +3593,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ASWTOA(I,J)/=SPVAL)THEN GRID1(I,J) = ASWTOA(I,J)*RRNUM ELSE @@ -3584,7 +3629,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3600,7 +3645,7 @@ SUBROUTINE CLDRAD RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ALWTOA(I,J)/=SPVAL)THEN GRID1(I,J) = ALWTOA(I,J)*RRNUM ELSE @@ -3636,7 +3681,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3646,7 +3691,7 @@ SUBROUTINE CLDRAD GRID1=SPVAL ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RLWTOA(I,J) ENDDO ENDDO @@ -3654,7 +3699,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(274)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3665,7 +3710,7 @@ SUBROUTINE CLDRAD GRID1=SPVAL ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RLWTOA(I,J) < SPVAL) & & GRID1(I,J) = (RLWTOA(I,J)*STBOL)**0.25 ENDDO @@ -3674,7 +3719,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(265)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3682,7 +3727,7 @@ SUBROUTINE CLDRAD IF (IGET(156)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RSWIN(I,J)1.E-6) THEN FACTRS=CZEN(I,J)/CZMEAN(I,J) @@ -3697,7 +3742,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(156)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3706,7 +3751,7 @@ SUBROUTINE CLDRAD ! dong add missing value to DLWRF GRID1 = spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(MODELNAME=='RSM' .OR. MODELNAME == 'RAPR') THEN !add by Binbin: RSM has direct RLWIN output GRID1(I,J)=RLWIN(I,J) ELSE @@ -3727,7 +3772,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(157)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3736,7 +3781,7 @@ SUBROUTINE CLDRAD GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RSWOUT(I,J)1.E-6) THEN FACTRS=CZEN(I,J)/CZMEAN(I,J) @@ -3751,21 +3796,21 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(141)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous clear-sky upwelling SW at the surface IF (IGET(743)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWUPBC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(743)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3773,42 +3818,42 @@ SUBROUTINE CLDRAD IF (IGET(142)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RADOT(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(142)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous clear-sky downwelling LW at the surface IF (IGET(744)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = LWDNBC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(744)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous clear-sky upwelling LW at the surface IF (IGET(745)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = LWUPBC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(745)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3816,7 +3861,7 @@ SUBROUTINE CLDRAD IF (IGET(740)>0) THEN ! print *,"GETTING INTO MEAN_FRP PART" DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = MEAN_FRP(I,J) ENDDO ENDDO @@ -3824,7 +3869,7 @@ SUBROUTINE CLDRAD ! print *,"GETTING INTO MEAN_FRP GRIB2 PART" cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(740)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3833,7 +3878,7 @@ SUBROUTINE CLDRAD GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RSWINC(I,J)1.E-6) THEN FACTRS=CZEN(I,J)/CZMEAN(I,J) @@ -3847,21 +3892,21 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(262)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous clear-sky downwelling SW at surface (GSD version) IF (IGET(742)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWDNBC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(742)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3869,28 +3914,28 @@ SUBROUTINE CLDRAD IF (IGET(772)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWDDNI(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(772)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous clear-sky SWDDNI IF (IGET(796)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWDDNIC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(796)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3898,35 +3943,35 @@ SUBROUTINE CLDRAD IF (IGET(773)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWDDIF(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(773)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous clear-sky SWDDIF IF (IGET(797)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWDDIFC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(797)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! TIME AVERAGED INCOMING CLEARSKY SW RADIATION AT THE SURFACE. IF (IGET(383)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ASWINC(I,J) ENDDO ENDDO @@ -3957,14 +4002,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED OUTGOING CLEARSKY SW RADIATION AT THE SURFACE. IF (IGET(386)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ASWOUTC(I,J) ENDDO ENDDO @@ -3995,28 +4040,28 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous all-sky outgoing SW flux at the model top IF (IGET(719)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWUPT(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(719)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! TIME AVERAGED OUTGOING CLEARSKY SW RADIATION AT THE MODEL TOP IF (IGET(387)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ASWTOAC(I,J) ENDDO ENDDO @@ -4047,14 +4092,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED INCOMING SW RADIATION AT THE MODEL TOP IF (IGET(388)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ASWINTOA(I,J) ENDDO ENDDO @@ -4085,14 +4130,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED INCOMING CLEARSKY LW RADIATION AT THE SURFACE IF (IGET(382)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ALWINC(I,J) ENDDO ENDDO @@ -4123,14 +4168,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED OUTGOING CLEARSKY LW RADIATION AT THE SURFACE IF (IGET(384)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ALWOUTC(I,J) ENDDO ENDDO @@ -4161,14 +4206,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED OUTGOING CLEARSKY LW RADIATION AT THE MODEL TOP IF (IGET(385)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ALWTOAC(I,J) ENDDO ENDDO @@ -4199,14 +4244,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED SURFACE VISIBLE BEAM DOWNWARD SOLAR FLUX IF (IGET(401)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = AVISBEAMSWIN(I,J) ENDDO ENDDO @@ -4239,14 +4284,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED SURFACE VISIBLE DIFFUSE DOWNWARD SOLAR FLUX IF (IGET(402)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = AVISDIFFSWIN(I,J) ENDDO ENDDO @@ -4278,14 +4323,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED SURFACE VISIBLE BEAM DOWNWARD SOLAR FLUX IF (IGET(403)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = AIRBEAMSWIN(I,J) ENDDO ENDDO @@ -4317,14 +4362,14 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! TIME AVERAGED SURFACE VISIBLE DIFFUSE DOWNWARD SOLAR FLUX IF (IGET(404)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = AIRDIFFSWIN(I,J) ENDDO ENDDO @@ -4356,7 +4401,7 @@ SUBROUTINE CLDRAD fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -4364,80 +4409,80 @@ SUBROUTINE CLDRAD IF(rdaod) then IF (IGET(609).GT.0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=aod550(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(609)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(610).GT.0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=du_aod550(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(610)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(611).GT.0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=ss_aod550(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(611)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(612).GT.0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=su_aod550(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(612)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(613).GT.0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=oc_aod550(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(613)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(614).GT.0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=bc_aod550(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(614)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF END IF !rdaod @@ -4445,42 +4490,42 @@ SUBROUTINE CLDRAD !2D AEROSOL OPTICAL DEPTH AT 550 NM IF (IGET(715)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=taod5502d(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(715)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !AEROSOL ASYMMETRY FACTOR IF (IGET(716)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=aerasy2d(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(716)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !AEROSOL SINGLE-SCATTERING ALBEDO IF (IGET(717)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND grid1(i,j)=aerssa2d(i,j) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(717)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -4666,14 +4711,14 @@ SUBROUTINE CLDRAD CLOSE(UNIT=NOAER) !!! COMPUTES RELATIVE HUMIDITY AND RDRH -! allocate (RH3D(im,jsta:jend,lm)) - allocate (rdrh(im,jsta:jend,lm)) - allocate (ihh(im,jsta:jend,lm)) +! allocate (RH3D(ista:iend,jsta:jend,lm)) + allocate (rdrh(ista:iend,jsta:jend,lm)) + allocate (ihh(ista:iend,jsta:jend,lm)) DO L=1,LM ! L FROM TOA TO SFC LL=LM-L+1 ! LL FROM SFC TO TOA !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND P1D(I,J) = PMID(I,J,LL) T1D(I,J) = T(I,J,LL) Q1D(I,J) = Q(I,J,LL) @@ -4681,7 +4726,7 @@ SUBROUTINE CLDRAD ENDDO CALL CALRH(P1D,T1D,Q1D,EGRID4) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! RH3D(I,J,LL) = EGRID4(I,J) RH3D = EGRID4(I,J) ! DETERMINE RDRH (wgt for IH2) and IHH (index for IH2) @@ -4769,7 +4814,7 @@ SUBROUTINE CLDRAD SCA=0.0 ASY=0.0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DO L=1,LM DO N=1, NBIN_DU EXT01 = EXTRHD_DU(1,N,IB) @@ -4796,7 +4841,7 @@ SUBROUTINE CLDRAD SCA=0.0 ASY=0.0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DO L=1,LM ih1 = ihh(I,J,L) ih2 = ih1 + 1 @@ -4830,7 +4875,7 @@ SUBROUTINE CLDRAD SCA=0.0 ASY=0.0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DO L=1,LM ih1 = ihh (I,J,L) ih2 = ih1 + 1 @@ -4863,7 +4908,7 @@ SUBROUTINE CLDRAD SCA=0.0 ASY=0.0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DO L=1,LM ih1 = ihh (I,J,L) ih2 = ih1 + 1 @@ -4895,7 +4940,7 @@ SUBROUTINE CLDRAD SCA=0.0 ASY=0.0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DO L=1,LM ih1 = ihh (I,J,L) ih2 = ih1 + 1 @@ -4925,7 +4970,7 @@ SUBROUTINE CLDRAD SCA=SPVAL ASY=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND AOD_DU(I,J) = MAX (AOD_DU(I,J), 0.0) AOD_BC(I,J) = MAX (AOD_BC(I,J), 0.0) AOD_OC(I,J) = MAX (AOD_OC(I,J), 0.0) @@ -4957,7 +5002,7 @@ SUBROUTINE CLDRAD IF (IB == 2 ) THEN !! AOD AT 440 NM !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND AOD_440(I,J) = AOD(I,J) ENDDO ! I-loop ENDDO ! J-loop @@ -4966,7 +5011,7 @@ SUBROUTINE CLDRAD IF (IB == 5 ) THEN !! AOD AT 860 NM !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND AOD_860(I,J) = AOD(I,J) ENDDO ! I-loop ENDDO ! J-loop @@ -4977,7 +5022,7 @@ SUBROUTINE CLDRAD IF ( IGET(INDX) > 0) THEN !$omp parallel do private(i,j) do j=jsta,jend - do i=1,im + do i=ista,iend GRID1(i,j) = AOD(i,j) enddo enddo @@ -4985,7 +5030,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(INDX)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -4997,7 +5042,7 @@ SUBROUTINE CLDRAD GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(SCA2D(I,J) 0.0 ) THEN ASY2D(I,J) = ASY2D(I,J) / SCA2D(I,J) @@ -5012,7 +5057,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(649)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! IGET(649) @@ -5021,7 +5066,7 @@ SUBROUTINE CLDRAD GRID1 = SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AOD(I,J) 0.0 ) THEN SCA2D(I,J) = SCA2D(I,J) / AOD(I,J) @@ -5036,7 +5081,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(648)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! IGET(648) ! print *,'aft compute sca340' @@ -5052,7 +5097,7 @@ SUBROUTINE CLDRAD IF ( IGET(650) > 0 ) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=SCA2D(I,J) ENDDO ENDDO @@ -5060,7 +5105,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(650)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! LOOP THROUGH EACH SPECIES @@ -5071,7 +5116,7 @@ SUBROUTINE CLDRAD IF ( IGET(JJ) > 0) THEN ! EXT AOD !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF ( II == 1 ) GRID1(I,J) = AOD_DU(I,J) IF ( II == 2 ) GRID1(I,J) = AOD_SS(I,J) IF ( II == 3 ) GRID1(I,J) = AOD_SU(I,J) @@ -5083,7 +5128,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(JJ)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -5092,7 +5137,7 @@ SUBROUTINE CLDRAD IF ( IGET(JJ) > 0) THEN ! SCA AOD !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF ( II == 1 ) GRID1(I,J) = SCA_DU(I,J) IF ( II == 2 ) GRID1(I,J) = SCA_SS(I,J) IF ( II == 3 ) GRID1(I,J) = SCA_SU(I,J) @@ -5104,7 +5149,7 @@ SUBROUTINE CLDRAD if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(JJ)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -5119,9 +5164,9 @@ SUBROUTINE CLDRAD ANGST=SPVAL ! ANG2 = LOG ( 0.860 / 0.440 ) ANG2 = LOG ( 860. / 440. ) -!$omp parallel do private(i,j) +!$omp parallel do private(i,j,ang1) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (AOD_860(I,J) > 0.) THEN ANG1 = LOG( AOD_440(I,J)/AOD_860(I,J) ) ANGST(I,J) = ANG1 / ANG2 @@ -5129,13 +5174,13 @@ SUBROUTINE CLDRAD GRID1(I,J)=ANGST(I,J) ENDDO ENDDO - if(debugprint)print *,'output angstrom exp,angst=',maxval(angst(1:im,jsta:jend)), & - minval(angst(1:im,jsta:jend)) + if(debugprint)print *,'output angstrom exp,angst=',maxval(angst(ista:iend,jsta:jend)), & + minval(angst(ista:iend,jsta:jend)) CALL BOUND(GRID1,D00,H99999) if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(656)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ANGSTROM EXPONENT @@ -5146,7 +5191,7 @@ SUBROUTINE CLDRAD GRID1=SPVAL !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND IF(DUEM(I,J,1)0) THEN ! DO J = JSTA,JEND -! DO I = 1,IM +! DO I = ISTA,IEND ! GRID1(I,J) = DUDP(I,J,1)*1.E-6 ! DO K=2,NBIN_DU ! GRID1(I,J) = GRID1(I,J)+ DUDP(I,J,K)*1.E-6 @@ -5232,7 +5277,7 @@ SUBROUTINE CLDRAD ! elseif(grib=='grib2') then ! cfld=cfld+1 ! fld_info(cfld)%ifld=IAVBLFLD(IGET(661)) -! datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) +! datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) ! endif ! ENDIF @@ -5240,7 +5285,7 @@ SUBROUTINE CLDRAD IF (IGET(686)>0 ) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND !GRID1(I,J) = DUSMASS(I,J) * 1.E-6 GRID1(I,J) = DUSTPM(I,J) !ug/m3 END DO @@ -5248,28 +5293,28 @@ SUBROUTINE CLDRAD if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(686)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(685)>0 ) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND GRID1(I,J) = DUSTPM10(I,J) !ug/m3 END DO END DO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(685)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !! ADD DUST WET DEPOSITION FLUXES (kg/m2/sec) ! IF (IGET(662)>0) THEN ! DO J = JSTA,JEND -! DO I = 1,IM +! DO I = ISTA,IEND ! GRID1(I,J) = DUWT(I,J,1)*1.E-6 ! DO K=2,NBIN_DU ! GRID1(I,J) = GRID1(I,J)+ DUWT(I,J,K)*1.E-6 @@ -5283,7 +5328,7 @@ SUBROUTINE CLDRAD ! elseif(grib=='grib2') then ! cfld=cfld+1 ! fld_info(cfld)%ifld=IAVBLFLD(IGET(662)) -! datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) +! datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) ! endif ! ENDIF @@ -5291,7 +5336,7 @@ SUBROUTINE CLDRAD IF (IGET(684)>0 ) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND !GRID1(I,J) = DUSMASS(I,J) * 1.E-6 GRID1(I,J) = SSPM(I,J) !ug/m3 END DO @@ -5299,14 +5344,14 @@ SUBROUTINE CLDRAD if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(684)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !! ADD AEROSOL SURFACE PM10 MASS CONCENTRATION (ug/m3) IF (IGET(619)>0 ) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND !GRID1(I,J) = DUSMASS(I,J) * 1.E-6 GRID1(I,J) = DUSMASS(I,J) !ug/m3 END DO @@ -5314,7 +5359,7 @@ SUBROUTINE CLDRAD if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(619)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -5322,7 +5367,7 @@ SUBROUTINE CLDRAD IF (IGET(620)>0 ) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND !GRID1(I,J) = DUSMASS25(I,J) * 1.E-6 GRID1(I,J) = DUSMASS25(I,J) ! ug/m3 END DO @@ -5330,7 +5375,7 @@ SUBROUTINE CLDRAD if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(620)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !! ADD TOTAL AEROSOL PM10 COLUMN DENSITY (kg/m2) ! @@ -5338,7 +5383,7 @@ SUBROUTINE CLDRAD GRID1=SPVAL !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND !GRID1(I,J) = DUCMASS(I,J) * 1.E-6 IF(DUCMASS(I,J) 300.*100) then @@ -5577,17 +5622,18 @@ SUBROUTINE CLDRAD IF(IGET(473) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(473)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo END IF @@ -5595,17 +5641,18 @@ SUBROUTINE CLDRAD IF(IGET(474) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = EGRID2(I,J) ENDDO ENDDO cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(474)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo END IF @@ -5613,17 +5660,18 @@ SUBROUTINE CLDRAD IF(IGET(475) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = EGRID3(I,J) ENDDO ENDDO cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(475)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo END IF @@ -5639,9 +5687,9 @@ subroutine cb_cover(cbcov) !> Calculate CB coverage by using fuzzy logic !> Evaluate membership of val in a fuzzy set fuzzy. !> Assume f is in x-log scale - use ctlblk_mod, only: SPVAL,JSTA,JEND,IM + use ctlblk_mod, only: SPVAL,JSTA,JEND,IM,ISTA,IEND implicit none - real, intent(inout) :: cbcov(IM,JSTA:JEND) + real, intent(inout) :: cbcov(ISTA:IEND,JSTA:JEND) ! x - convective precipitation [1.0e6*kg/(m2s)] ! y - cloud cover fraction, between 0 and 1 @@ -5661,7 +5709,7 @@ subroutine cb_cover(cbcov) x = log(x) do j = jsta, jend - do i = 1, IM + do i = ista, iend if(cbcov(i,j) == SPVAL) cycle if(cbcov(i,j) <= 0.) then cbcov(i,j) = 0. @@ -5692,20 +5740,20 @@ end subroutine cb_cover subroutine wrt_aero_diag(igetfld,nbin,data) use ctlblk_mod, only: jsta, jend, SPVAL, im, jm, grib, & - cfld, datapd, fld_info, jsta_2l, jend_2u + cfld, datapd, fld_info, jsta_2l, jend_2u,ista_2l,iend_2u,ista,iend use rqstfld_mod, only: IGET, ID, LVLS, IAVBLFLD implicit none ! integer igetfld,nbin - real, dimension(1:im,jsta_2l:jend_2u,nbin) :: data + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u,nbin) :: data ! integer i,j,k REAL,dimension(im,jm) :: GRID1 ! GRID1=SPVAL -!$omp parallel do private(i,j) +!$omp parallel do private(i,j,k) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND if(data(I,J,1) Gather "A" from all MPI tasks onto task 0. !> !> ### Program history log: -!> Date | Programmer | Comments -!> -----|------------|--------- -!> 2000-01-06 | Jim Tuccillo | Initial +!> Date | Programmer | Comments +!> -----------|---------------------|---------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> 2021-06-01 | George Vandenberghe | 2D Decomposition !> !> @author Jim Tuccillo IBM @date 2000-01-06 SUBROUTINE COLLECT_LOC ( A, B ) use CTLBLK_mod, only: num_procs, jsta, icnt, idsp, mpi_comm_comp, im,& - jsta_2l, jend_2u, jm, me + jsta_2l, jend_2u, jm, me, & + buff,ista_2l,iend_2u,jexa,iexa,jsxa,isxa,ista,iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! include 'mpif.h' - real, dimension(im,jsta_2l:jend_2u), intent(in) :: a + integer ii,jj,isum + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: a real, dimension(im,jm), intent(out) :: b - integer ierr + integer ierr,n + real, allocatable :: rbufs(:) + allocate(buff(im*jm)) + jj=( jexa(me)-jsxa(me)+1) * (iexa(me)-isxa(me)+1) + allocate( rbufs(( jexa(me)-jsxa(me)+1) * (iexa(me)-isxa(me)+1)) ) ! if ( num_procs <= 1 ) then b = a else - call mpi_gatherv(a(1,jsta),icnt(me),MPI_REAL, & - & b,icnt,idsp,MPI_REAL,0,MPI_COMM_COMP, ierr ) - - end if + +!GWV reshape the receive subdomain + + isum=1 + do jj=jsxa(me),jexa(me) + do ii=isxa(me),iexa(me) + if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj.lt. 1) & + write(0,901)' BOUNDS2 FAIL in reshape ',isum,ii,jj,im*jm,im,im*jm + rbufs(isum)=a(ii,jj) + isum=isum+1 + end do + end do + +!GWV end reshape + + call mpi_gatherv(rbufs,icnt(me),MPI_REAL, buff,icnt,idsp,MPI_REAL,0,MPI_COMM_WORLD, ierr ) + +!GWV reshape the gathered array + + if(me .eq. 0) then + isum=1 + do n=0,num_procs-1 + do jj=jsxa(n),jexa(n) + do ii=isxa(n),iexa(n) + if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj .lt. 1) & + write(0,901)' BOUNDS FAIL in reshape ',isum,ii,jj,im*jm,im,im*jm + b(ii,jj)=buff(isum) + isum=isum+1 + end do + end do + end do + end if + + endif ! num_procs <= 1 + + 901 format(a30,10i10) + + deallocate(buff) + deallocate(rbufs) end +! +!----------------------------------------------------------------------- +! + SUBROUTINE COLLECT_ALL ( A, B ) + + use CTLBLK_mod, only: num_procs, jsta, icnt, idsp, mpi_comm_comp, im,& + jsta_2l, jend_2u, jm, me, & + buff,ista_2l,iend_2u,jexa,iexa,jsxa,isxa,ista,iend,jend +!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + implicit none +! + include 'mpif.h' + integer ii,jj,isum + real, dimension(ista:iend,jsta:jend), intent(in) :: a + real, dimension(im,jm), intent(out) :: b + integer ierr,n + real, allocatable :: rbufs(:) + allocate(buff(im*jm)) + jj=( jexa(me)-jsxa(me)+1) * (iexa(me)-isxa(me)+1) + allocate( rbufs(( jexa(me)-jsxa(me)+1) * (iexa(me)-isxa(me)+1)) ) +! + if ( num_procs <= 1 ) then + b = a + else + +!GWV reshape the receive subdomain + isum=1 + do jj=jsxa(me),jexa(me) + do ii=isxa(me),iexa(me) + if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj.lt. 1) & + write(0,901)' BOUNDS2 FAIL in reshape',isum,ii,jj,im*jm,im,im*jm + rbufs(isum)=a(ii,jj) + isum=isum+1 + end do + end do +!GWV end reshape + + call mpi_allgatherv(rbufs,icnt(me),MPI_REAL,buff,icnt,idsp,MPI_REAL, mpi_comm_comp, ierr ) + call mpi_barrier(mpi_comm_comp,ierr) + +!GWV reshape the gathered array and collect in all procs + isum=1 + do n=0,num_procs-1 + do jj=jsxa(n),jexa(n) + do ii=isxa(n),iexa(n) + if(isum .gt. im*jm .or. ii .gt. im .or. ii .lt. 1 .or. jj .gt. jm .or. jj .lt. 1) & + write(0,901)' BOUNDS FAIL in reshape',isum,ii,jj,im*jm,im,im*jm + b(ii,jj)=buff(isum) + isum=isum+1 + end do + end do + end do + + endif ! num_procs <= 1 + + 901 format(a30,10i10) + + deallocate(buff) + deallocate(rbufs) + + end + diff --git a/sorc/ncep_post.fd/CTLBLK.f b/sorc/ncep_post.fd/CTLBLK.f index df647f1dd..5ca6a0f60 100644 --- a/sorc/ncep_post.fd/CTLBLK.f +++ b/sorc/ncep_post.fd/CTLBLK.f @@ -9,6 +9,7 @@ module CTLBLK_mod ! 2011-02 Jun Wang - ADD variables for grib2 ! 2011-12-14 SARAH LU - ADD AER FILENAME ! 2011-12-23 SARAH LU - ADD NBIN FOR DU, SS, OC, BC, SU +! 2021-09-30 JESSE MENG- 2D DECOMPOSITION !----------------------------------------------------------------------- ! implicit none @@ -54,11 +55,25 @@ module CTLBLK_mod SPL(komax),ALSL(komax),PREC_ACC_DT,PT_TBL,PREC_ACC_DT1,spval ! real :: SPVAL=9.9e10 ! Moorthi ! - integer :: NUM_PROCS,ME,JSTA,JEND,JSTA_M,JEND_M, & - JSTA_M2,JEND_M2,IUP,IDN,ICNT(0:1023),IDSP(0:1023), & - JSTA_2L, JEND_2U,JVEND_2u,NUM_SERVERS, MPI_COMM_INTER, & + integer :: NUM_PROCS,ME,JSTA,JEND,ISTA,IEND, & + JSTA_M,JEND_M, JSTA_M2,JEND_M2, & + ISTA_M,IEND_M,ISTA_M2,IEND_M2, & + IUP,IDN,ICNT(0:1023),IDSP(0:1023), ICNT2(0:1023),IDSP2(0:1023), & + JSTA_2L, JEND_2U,JVEND_2U, & + ISTA_2L, IEND_2U,IVEND_2U, & + NUM_SERVERS, MPI_COMM_INTER, & MPI_COMM_COMP, IM,JM,LM,NSOIL,LP1,LM1,IM_JM, & + ileft,iright, & + ileftb,irightb , & + ibsize,ibsum, & lsm,lsmp1 !comm mpi + integer, allocatable :: icoords(:,:),ibcoords(:,:) + real , allocatable :: rcoords(:,:),rbcoords(:,:) + real, allocatable :: bufs(:),buff(:) + integer , allocatable :: isxa(:),iexa(:),jsxa(:),jexa(:) + integer numx + integer, allocatable :: ibufs(:) + real, allocatable :: rbufs(:) ! real :: ARDSW, ARDLW, ASRFC, TSRFC,TRDLW,TRDSW,TCLOD,THEAT, & TPREC,TMAXMIN,TD3D !comm rad diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index 10fac93fa..ac9d5c648 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -187,6 +187,7 @@ SUBROUTINE DE_ALLOCATE deallocate(tsnow) deallocate(qvg) deallocate(qv2m) + deallocate(qvl1) deallocate(rswin) deallocate(swddni) deallocate(swddif) diff --git a/sorc/ncep_post.fd/DEWPOINT.f b/sorc/ncep_post.fd/DEWPOINT.f index 4284ecdbf..1b962871d 100644 --- a/sorc/ncep_post.fd/DEWPOINT.f +++ b/sorc/ncep_post.fd/DEWPOINT.f @@ -38,11 +38,12 @@ !> 1998-06-12 | T Black | Conversion from 1-D to 2-D !> 2000-01-04 | Jim Tuccillo | MPI Version !> 2021-07-26 | W Meng | Restrict computation from undefined grids +!> 2021-10-31 | J Meng | 2D Decomposition !> !> @author Jim Tuccillo W/NP2 @date 1990-05-19 SUBROUTINE DEWPOINT( VP, TD) - use ctlblk_mod, only: jsta, jend, im, spval + use ctlblk_mod, only: jsta, jend, im, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -50,8 +51,8 @@ SUBROUTINE DEWPOINT( VP, TD) integer,PARAMETER :: NT=2000 !...TRANSLATED BY FPP 3.00Z36 11/09/90 14:48:53 !...SWITCHES: OPTON=I47,OPTOFF=VAE0 - real,intent(out) :: TD(IM,jsta:jend) - real,intent(in) :: VP(IM,jsta:jend) + real,intent(out) :: TD(ista:iend,jsta:jend) + real,intent(in) :: VP(ista:iend,jsta:jend) real TDP(NT) !jw integer NN,I,J,JNT @@ -127,7 +128,7 @@ SUBROUTINE DEWPOINT( VP, TD) ! !$omp parallel do private(i,j,w1,w2,jnt) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(VP(I,J) @param[out] A Array with halos exchanged. !> !> ### Program history log: -!> Date | Programmer | Comments -!> -----|------------|--------- -!> 2000-01-06 | Jim Tuccillo | Initial +!> Date | Programmer | Comments +!> -----------|---------------------|---------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> 2021-06-01 | George Vandenberghe | 2D decomposition !> !> @note The 1st line is an inlined compiler directive that turns off -qcheck !> during compilation, even if it's specified as a compiler option in the @@ -19,40 +20,391 @@ SUBROUTINE EXCH(A) use ctlblk_mod, only: num_procs, jend, iup, jsta, idn, mpi_comm_comp, im,& - jsta_2l, jend_2u + icoords,ibcoords,bufs,ibufs,me,numx, & + jsta_2l, jend_2u,ileft,iright,ista_2l,iend_2u,ista,iend,jm,modelname !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! include 'mpif.h' ! - real,intent(inout) :: a ( im,jsta_2l:jend_2u ) + real,intent(inout) :: a ( ista_2l:iend_2u,jsta_2l:jend_2u ) + real, allocatable :: coll(:), colr(:) + integer, allocatable :: icoll(:), icolr(:) integer status(MPI_STATUS_SIZE) - integer ierr, jstam1, jendp1 + integer ierr, jstam1, jendp1,j + integer size,ubound,lbound + integer msglenl, msglenr + integer i,ii,jj, ibl,ibu,jbl,jbu,icc,jcc + integer iwest,ieast + integer ifirst + + logical, parameter :: checkcoords = .false. + + data ifirst/0/ + allocate(coll(jm)) + allocate(colr(jm)) + allocate(icolr(jm)) + allocate(icoll(jm)) + ibl=max(ista-1,1) + ibu=min(im,iend+1) + jbu=min(jm,jend+1) + jbl=max(jsta-1,1) ! + ! write(0,*) 'mype=',me,'num_procs=',num_procs,'im=',im,'jsta_2l=', & ! jsta_2l,'jend_2u=',jend_2u,'jend=',jend,'iup=',iup,'jsta=', & ! jsta,'idn=',idn if ( num_procs <= 1 ) return ! +! for global model apply cyclic boundary condition + + IF(MODELNAME == 'GFS') then + if(ifirst .le. 0 .and. me .eq. 0) print *,' CYCLIC BC APPLIED' + if(ileft .eq. MPI_PROC_NULL) iwest=1 ! get eastern bc from western boundary of full domain + if(iright .eq. MPI_PROC_NULL) ieast=1 ! get western bc from eastern boundary of full domain + if(ileft .eq. MPI_PROC_NULL) ileft=me+(numx-1) + if(iright .eq. MPI_PROC_NULL) iright=(me-numx) +1 + endif + jstam1 = max(jsta_2l,jsta-1) ! Moorthi - call mpi_sendrecv(a(1,jend),im,MPI_REAL,iup,1, & - & a(1,jstam1),im,MPI_REAL,idn,1, & + +! send last row to iup's first row+ and receive first row- from idn's last row + + call mpi_sendrecv(a(ista,jend),iend-ista+1,MPI_REAL,iup,1, & + & a(ista,jstam1),iend-ista+1,MPI_REAL,idn,1, & & MPI_COMM_COMP,status,ierr) -! print *,'mype=',me,'in EXCH, after first mpi_sendrecv' + if ( ierr /= 0 ) then - print *, ' problem with first sendrecv in exch, ierr = ',ierr - stop + print *, ' problem with first sendrecv in exch, ierr = ',ierr + stop 6661 + endif + + if (checkcoords) then + if(ifirst .le. 0) then !IFIRST ONLY + call mpi_sendrecv(ibcoords(ista,jend),iend-ista+1,MPI_INTEGER,iup,1, & + & ibcoords(ista,jstam1),iend-ista+1,MPI_INTEGER,idn,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with second sendrecv in exch, ierr = ',ierr + stop 7661 + endif + do i=ista,iend + ii=ibcoords(i,jstam1)/10000 + jj=ibcoords(i,jstam1)-(ii*10000) + if(ii .ne. i .or. jj .ne. jstam1 ) print *,' GWVX JEXCH CHECK FAIL ',ii,jj,ibcoords(i,jstam1),i + end do + endif !IFIRST + endif !checkcoords + +! build the I columns to send and receive + + msglenl=jend-jsta+1 + msglenr=jend-jsta+1 + if(iright .lt. 0) msglenr=1 + if(ileft .lt. 0) msglenl=1 + + do j=jsta,jend + coll(j)=a(ista,j) + end do + + call mpi_barrier(mpi_comm_comp,ierr) + +! send first col to ileft last col+ and receive last col+ from ileft first col + + call mpi_sendrecv(coll(jsta),msglenl ,MPI_REAL,ileft,1, & + & colr(jsta),msglenr ,MPI_REAL,iright,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with third sendrecv in exch, ierr = ',ierr + stop 6662 + endif + + if(ifirst .le. 0) then ! IFIRST ONLY + call mpi_sendrecv(icoll(jsta),msglenl ,MPI_INTEGER,ileft,1, & + & icolr(jsta),msglenr ,MPI_INTEGER,iright,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with fourth sendrecv in exch, ierr = ',ierr + stop 7662 + endif + endif !IFIRST + + if(iright .ge. 0) then + do j=jsta,jend + a(iend+1,j)=colr(j) + if(checkcoords) then + if(ifirst .le. 0) then !IFIRST ONLY + ibcoords(iend+1,j)=icolr(j) + ii=ibcoords(iend+1,j)/10000 + jj=ibcoords( iend+1,j)-(ii*10000) + if( j .ne. jj .or. ii .ne. iend+1 .and. ii .ne. im .and. ii .ne. 1) & + write(0,921) j,iend+1,ii,jj,ibcoords(iend+1,j),'IEXCH COORD FAIL j,iend+1,ii,jj,ibcoord ' + endif !IFIRST + endif !checkcoords + end do + endif ! for iright + + 921 format(5i10,a50) + +! print *,'mype=',me,'in EXCH, after first mpi_sendrecv' + + if ( ierr /= 0 ) then + print *, ' problem with fifth sendrecv in exch, ierr = ',ierr + stop 6663 end if jendp1 = min(jend+1,jend_2u) ! Moorthi - call mpi_sendrecv(a(1,jsta),im,MPI_REAL,idn,1, & - & a(1,jendp1),im,MPI_REAL,iup,1, & + +!GWV. change from full im row exchange to iend-ista+1 subrow exchange, + + do j=jsta,jend + colr(j)=a(iend,j) + end do + +! send first row to idown's last row+ and receive last row+ from iup's first row + + call mpi_sendrecv(a(ista,jsta),iend-ista+1,MPI_REAL,idn,1, & + & a(ista,jendp1),iend-ista+1,MPI_REAL,iup,1, & & MPI_COMM_COMP,status,ierr) -! print *,'mype=',me,'in EXCH, after second mpi_sendrecv' + if ( ierr /= 0 ) then + print *, ' problem with sixth sendrecv in exch, ierr = ',ierr + stop 6664 + endif + + if (checkcoords) then + if (ifirst .le. 0) then + call mpi_sendrecv(ibcoords(ista,jsta),iend-ista+1,MPI_INTEGER,idn,1, & + & ibcoords(ista,jendp1),iend-ista+1,MPI_INTEGER,iup,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with seventh sendrecv in exch, ierr = ',ierr + stop 7664 + endif + endif ! IFIRST + endif ! checkcoords + +! send last col to iright first col- and receive first col- from ileft last col + + call mpi_sendrecv(colr(jsta),msglenr ,MPI_REAL,iright,1 , & + & coll(jsta),msglenl ,MPI_REAL,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with eighth sendrecv in exch, ierr = ',ierr + stop 6665 + endif + + if (ifirst .le. 0) then + call mpi_sendrecv(icolr(jsta),msglenr ,MPI_integer,iright,1 , & + & icoll(jsta),msglenl ,MPI_integer,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with ninth sendrecv in exch, ierr = ',ierr + stop 7665 + endif + endif !IFIRST + + if(ileft .ge. 0) then + do j=jsta,jend + a(ista-1,j)=coll(j) + if(checkcoords) then + if(ifirst .le. 0) then + ibcoords(ista-1,j)=icoll(j) + ii=ibcoords(ista-1,j)/10000 + jj=ibcoords( ista-1,j)-(ii*10000) + if( j .ne. jj .or. ii .ne. ista-1 .and. ii .ne. im .and. ii .ne. 1) & + write(0,921) j,ista-1,ii,jj,ibcoords(ista-1,j),'EXCH COORD FAIL j,ista-1,ii,jj,ibcoord ' + endif !IFIRST + endif !checkcoords + end do + endif + +! interior check + + if(checkcoords) then + if(ifirst .le. 0) then + do j=jsta,jend + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'INFAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + end do + endif !IFIRST + endif !checkcoords + +!! corner points. After the exchanges above, corner points are replicated in +! neighbour halos so we can get them from the neighbors rather than +! calculating more corner neighbor numbers +! A(ista-1,jsta-1) is in the ileft a(iend,jsta-1) location +! A(ista-1,jend+1) is in the ileft a(iend,jend+1) location +! A(iend+1,jsta-1) is in the iright a(ista,jsta-1) location +! A(iend+1,jend+1) is in the iright a(ista,jend+1) location +!GWVx ibl=max(ista-1,1) +!GWVx ibu=min(im,iend+1) + + ibl=max(ista-1,1) + ibu=min(im,iend+1) + if(modelname == 'GFS') then + ibl=max(ista-1,0) + ibu=min(im+1,iend+1) + endif + + jbu=min(jm,jend+1) + jbl=max(jsta-1,1) + + call mpi_sendrecv(a(iend,jbl ),1, MPI_REAL,iright,1 , & + & a(ibl ,jbl ),1, MPI_REAL,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with tenth sendrecv in exch, ierr = ',ierr + stop 6771 + endif + + call mpi_sendrecv(a(iend,jbu ),1, MPI_REAL,iright,1 , & + & a(ibl ,jbu ),1, MPI_REAL,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with eleventh sendrecv in exch, ierr = ',ierr + stop 6772 + endif + + call mpi_sendrecv(a(ista,jbl ),1, MPI_REAL,ileft ,1, & + & a(ibu ,jbl ),1, MPI_REAL,iright,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with twelft sendrecv in exch, ierr = ',ierr + stop 6773 + endif + + call mpi_sendrecv(a(ista,jbu ),1, MPI_REAL,ileft ,1 , & + & a(ibu ,jbu ),1, MPI_REAL,iright,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with thirteenth sendrecv in exch, ierr = ',ierr + stop 6774 + endif + + 139 format(a20,5(i10,i6,i6,'<>')) + + if(checkcoords) then + if(ifirst .le. 0) then + call mpi_sendrecv(ibcoords(iend,jbl ),1 ,MPI_INTEGER,iright,1 , & + & ibcoords(ibl ,jbl ),1 ,MPI_INTEGER,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + + call mpi_sendrecv(ibcoords(iend,jbu ),1 ,MPI_INTEGER,iright,1, & + & ibcoords(ibl ,jbu ),1 ,MPI_INTEGER,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + call mpi_sendrecv(ibcoords(ista,jbl ),1 ,MPI_INTEGER,ileft ,1, & + & ibcoords(ibu ,jbl ),1 ,MPI_INTEGER,iright,1, & + & MPI_COMM_COMP,status,ierr) + call mpi_sendrecv(ibcoords(ista,jbu ),1 ,MPI_INTEGER,ileft ,1 , & + & ibcoords(ibu ,jbu ),1 ,MPI_INTEGER,iright,1, & + MPI_COMM_COMP,status,ierr) + +! corner check for coordnates + + icc=ibl + jcc=jbl + ii=ibcoords(icc,jcc)/10000 + jj=ibcoords(icc,jcc)-(ii*10000) + + if(ii .ne. icc .and. icc .ne. 0) write(0,151) ' CORNER FAILI ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc) write(0,151) ' CORNER FAILJ ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj + + icc=ibu + jcc=jbl + ii=ibcoords(icc,jcc)/10000 + jj=ibcoords(icc,jcc)-(ii*10000) + if(ii .ne. icc .and. icc .ne. im+1 ) write(0,151) ' CORNER FAILI ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + + icc=ibu + jcc=jbu + ii=ibcoords(icc,jcc)/10000 + jj=ibcoords(icc,jcc)-(ii*10000) + if(ii .ne. icc .and. icc .ne. im+1) write(0,151) ' CORNER FAILI ilb uu ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + + icc=ibl + jcc=jbu + ii=ibcoords(icc,jcc)/10000. + jj=ibcoords(icc,jcc)-(ii*10000) + if(ii .ne. icc .and. icc .ne. 0 ) write(0,151) ' CORNER FAILI ilb lu ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + +! if(ileft .ge. 0) then +!119 format(' GWX LEFT EXCHANGE ileft,me,ibcoords(ista-1,jend+1),ibcoords(ista-1,jend-1),ista-1,jend-1,jend+1', & +! 10i10) +! endif + +! if(iright .ge. 0) then +!! write(0,129) iright,me,ibcoords(ista+1,jend+1),ibcoords(ista+1,jend-1),ista-1,jend-1,jend+1 !GWVX +!129 format(' GWX RIGHT EXCHANGE iright,me,ibcoords(ista+1,jend+1),ibcoords(ista-1,jend+1),ista-1,jend-1,jend+1', & +! 10i10) +! endif + +! interior check + + do j=jsta,jend + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + end do + + 151 format(a70,10i10) + +! bounds check +! first check top and bottom halo rows + + j=jbu + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBU IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + + j=jbl + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBL IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + +! second and last, check left and right halo columns + + i=ibl + do j=jsta,jend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .and. ii .ne. im .or. jj .ne. j) write(0,151) 'GWVX FAILED IBL IJ ',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + + i=ibu + do j=jsta,jend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .and. ii .ne. 1 .or. jj .ne. j) write(0,151) 'GWVX FAILED IBU ii i j ibcoords ibl,jbl,ibu,jbu',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + + if(me .eq. 0) write(0,*) ' IFIRST CHECK' + + endif ! IFIRST + endif !checkcoords + +! end halo checks if ( ierr /= 0 ) then print *, ' problem with second sendrecv in exch, ierr = ',ierr stop end if -! + call mpi_barrier(mpi_comm_comp,ierr) + ifirst=ifirst+1 end !!@PROCESS NOCHECK diff --git a/sorc/ncep_post.fd/EXCH2.f b/sorc/ncep_post.fd/EXCH2.f deleted file mode 100644 index d5bce4036..000000000 --- a/sorc/ncep_post.fd/EXCH2.f +++ /dev/null @@ -1,72 +0,0 @@ -!!@PROCESS NOCHECK -! -!--- The 1st line is an inlined compiler directive that turns off -qcheck -! during compilation, even if it's specified as a compiler option in the -! makefile (Tuccillo, personal communication; Ferrier, Feb '02). -! - SUBROUTINE EXCH2(A) -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBPROGRAM: EXCH EXCHANGE ONE HALO ROW -! PRGRMMR: TUCCILLO ORG: IBM -! -! ABSTRACT: -! EXCHANGE ONE HALO ROW -! . -! -! PROGRAM HISTORY LOG: -! 00-01-06 TUCCILLO - ORIGINAL -! -! USAGE: CALL EXCH(A) -! INPUT ARGUMENT LIST: -! A - ARRAY TO HAVE HALOS EXCHANGED -! -! OUTPUT ARGUMENT LIST: -! A - ARRAY WITH HALOS EXCHANGED -! -! OUTPUT FILES: -! STDOUT - RUN TIME STANDARD OUT. -! -! SUBPROGRAMS CALLED: -! MPI_SENDRECV -! UTILITIES: -! NONE -! LIBRARY: -! COMMON - CTLBLK.comm -! -! ATTRIBUTES: -! LANGUAGE: FORTRAN -! MACHINE : IBM RS/6000 SP -!$$$ - use ctlblk_mod, only: num_procs, jend, iup, jsta, idn, mpi_comm_comp, im,& - jsta_2l, jend_2u -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none -! - include 'mpif.h' -! - real,intent(inout) :: a ( im,jsta_2l:jend_2u ) - integer status(MPI_STATUS_SIZE) - integer ierr, jstam2, jendp1 -! - if ( num_procs <= 1 ) return -! - jstam2 = max(jsta_2l,jsta-2) - call mpi_sendrecv(a(1,jend-1),2*im,MPI_REAL,iup,1, & - & a(1,jstam2),2*im,MPI_REAL,idn,1, & - & MPI_COMM_COMP,status,ierr) - if ( ierr /= 0 ) then - print *, ' problem with first sendrecv in exch2, ierr = ',ierr - stop - end if - jendp1 = min(jend+1,jend_2u) - call mpi_sendrecv(a(1,jsta),2*im,MPI_REAL,idn,1, & - & a(1,jendp1),2*im,MPI_REAL,iup,1, & - & MPI_COMM_COMP,status,ierr) - if ( ierr /= 0 ) then - print *, ' problem with second sendrecv in exch2, ierr = ',ierr - stop - end if -! - end - diff --git a/sorc/ncep_post.fd/FDLVL.f b/sorc/ncep_post.fd/FDLVL.f index e69a17a04..fbe110473 100644 --- a/sorc/ncep_post.fd/FDLVL.f +++ b/sorc/ncep_post.fd/FDLVL.f @@ -38,6 +38,7 @@ !> 2000-01-04 | Jim Tuccillo | MPI version !> 2002-01-15 | Mike Baldwin | WRF version !> 2011-12-14 | Sarah Lu | Add GOCART aerosol AERFD +!> 2021-10-15 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) @@ -51,7 +52,7 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) use params_mod, only: GI, G use ctlblk_mod, only: JSTA, JEND, SPVAL, JSTA_2L, JEND_2U, LM, JSTA_M, & JEND_M, HTFD, NFD, IM, JM, NBIN_DU, gocart_on, & - MODELNAME + MODELNAME, ISTA, IEND, ISTA_2L, IEND_2U, ISTA_M, IEND_M use gridspec_mod, only: GRIDTYPE !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -63,8 +64,8 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) ! integer,intent(in) :: ITYPE(NFD) !jw real,intent(in) :: HTFD(NFD) - real,dimension(IM,JSTA:JEND,NFD),intent(out) :: TFD,QFD,UFD,VFD,PFD,ICINGFD - real,dimension(IM,JSTA:JEND,NFD,NBIN_DU),intent(out) :: AERFD + real,dimension(ISTA:IEND,JSTA:JEND,NFD),intent(out) :: TFD,QFD,UFD,VFD,PFD,ICINGFD + real,dimension(ISTA:IEND,JSTA:JEND,NFD,NBIN_DU),intent(out) :: AERFD ! INTEGER LVL(NFD),LHL(NFD) INTEGER IVE(JM),IVW(JM) @@ -87,7 +88,7 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) !$omp parallel do DO IFD = 1,NFD DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND TFD(I,J,IFD) = SPVAL QFD(I,J,IFD) = SPVAL UFD(I,J,IFD) = SPVAL @@ -101,7 +102,7 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) DO N = 1, NBIN_DU DO IFD = 1,NFD DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND AERFD(I,J,IFD,N) = SPVAL ENDDO ENDDO @@ -119,17 +120,17 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) END IF IF(gridtype /= 'A')THEN - CALL EXCH(FIS(1:IM,JSTA_2L:JEND_2U)) + CALL EXCH(FIS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) DO L=1,LM - CALL EXCH(ZMID(1:IM,JSTA_2L:JEND_2U,L)) + CALL EXCH(ZMID(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) END DO - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF @@ -430,7 +431,7 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) IF(MODELNAME=='RAPR' .OR. MODELNAME=='NCAR' .OR. MODELNAME=='NMM') THEN ! DO 420 IFD = 1,NFD DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(QFD(I,J,IFD) < 1.0e-8) QFD(I,J,IFD)=0.0 ENDDO ENDDO @@ -491,7 +492,8 @@ SUBROUTINE FDLVL_UV(ITYPE,NFD,HTFD,UFD,VFD) use masks, only: LMH use params_mod, only: GI, G use ctlblk_mod, only: JSTA, JEND, SPVAL, JSTA_2L, JEND_2U, LM, JSTA_M, & - JEND_M, IM, JM, MODELNAME + JEND_M, IM, JM, MODELNAME, & + ISTA, IEND, ISTA_2L, IEND_2U, ISTA_M, IEND_M use gridspec_mod, only: GRIDTYPE !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -501,7 +503,7 @@ SUBROUTINE FDLVL_UV(ITYPE,NFD,HTFD,UFD,VFD) integer,intent(in) :: ITYPE(NFD) integer,intent(in) :: NFD ! coming from calling subroutine real,intent(in) :: HTFD(NFD) - real,dimension(IM,JSTA_2L:JEND_2U,NFD),intent(out) :: UFD,VFD + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NFD),intent(out) :: UFD,VFD ! INTEGER LVL(NFD) INTEGER IVE(JM),IVW(JM) @@ -519,7 +521,7 @@ SUBROUTINE FDLVL_UV(ITYPE,NFD,HTFD,UFD,VFD) !$omp parallel do DO IFD = 1,NFD DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND UFD(I,J,IFD) = SPVAL VFD(I,J,IFD) = SPVAL ENDDO @@ -536,17 +538,17 @@ SUBROUTINE FDLVL_UV(ITYPE,NFD,HTFD,UFD,VFD) END IF IF(gridtype /= 'A')THEN - CALL EXCH(FIS(1:IM,JSTA_2L:JEND_2U)) + CALL EXCH(FIS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) DO L=1,LM - CALL EXCH(ZMID(1:IM,JSTA_2L:JEND_2U,L)) + CALL EXCH(ZMID(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) END DO - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF @@ -818,7 +820,8 @@ SUBROUTINE FDLVL_MASS(ITYPE,NFD,PTFD,HTFD,NIN,QIN,QTYPE,QFD) use masks, only: LMH use params_mod, only: GI, G, GAMMA,PQ0, A2, A3, A4, RHMIN,RGAMOG use ctlblk_mod, only: JSTA, JEND, SPVAL, JSTA_2L, JEND_2U, LM, JSTA_M, & - JEND_M, IM, JM,global,MODELNAME + JEND_M, IM, JM,global,MODELNAME, & + ISTA, IEND, ISTA_2L, IEND_2U, ISTA_M, IEND_M use gridspec_mod, only: GRIDTYPE use physcons_post,only: CON_FVIRT, CON_ROG, CON_EPS, CON_EPSM1 use upp_physics, only: FPVSNEW @@ -836,9 +839,9 @@ SUBROUTINE FDLVL_MASS(ITYPE,NFD,PTFD,HTFD,NIN,QIN,QTYPE,QFD) real, intent(in) :: PTFD(NFD) real,intent(in) :: HTFD(NFD) integer,intent(in) :: NIN - real,intent(in) :: QIN(IM,JSTA:JEND,LM,NIN) + real,intent(in) :: QIN(ISTA:IEND,JSTA:JEND,LM,NIN) character, intent(in) :: QTYPE(NIN) - real,intent(out) :: QFD(IM,JSTA:JEND,NFD,NIN) + real,intent(out) :: QFD(ISTA:IEND,JSTA:JEND,NFD,NIN) ! INTEGER LHL(NFD) @@ -860,7 +863,7 @@ SUBROUTINE FDLVL_MASS(ITYPE,NFD,PTFD,HTFD,NIN,QIN,QTYPE,QFD) DO N=1,NIN DO IFD = 1,NFD DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND QFD(I,J,IFD,N) = SPVAL ENDDO ENDDO @@ -868,13 +871,13 @@ SUBROUTINE FDLVL_MASS(ITYPE,NFD,PTFD,HTFD,NIN,QIN,QTYPE,QFD) ENDDO IF(gridtype /= 'A')THEN - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF diff --git a/sorc/ncep_post.fd/FIXED.f b/sorc/ncep_post.fd/FIXED.f index 356a7f403..80a9d2fde 100644 --- a/sorc/ncep_post.fd/FIXED.f +++ b/sorc/ncep_post.fd/FIXED.f @@ -16,6 +16,7 @@ !! 11-02-06 JUN WANG - grib2 option !! 20-03-25 JESSE MENG - remove grib1 !! 21-04-01 JESSE MENG - computation on defined points only +!! 21-10-15 JESSE MENG - 2D DECOMPOSITION !! !! USAGE: CALL FIXED !! INPUT ARGUMENT LIST: @@ -51,7 +52,7 @@ SUBROUTINE FIXED use params_mod, only: small, p1000, capa use lookup_mod, only: ITB,JTB,ITBQ,JTBQ use ctlblk_mod, only: jsta, jend, modelname, grib, cfld, fld_info, datapd, spval, tsrfc,& - ifhr, ifmin, lm, im, jm + ifhr, ifmin, lm, im, jm, ista, iend use rqstfld_mod, only: iget, lvls, iavblfld, id !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -72,21 +73,21 @@ SUBROUTINE FIXED IF (IGET(048)>0) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND GRID1(I,J) = GDLAT(I,J) END DO END DO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(048)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! LONGITUDE (OUTPUT GRID). CONVERT TO EAST IF (IGET(049)>0) THEN DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND IF (GDLON(I,J) < 0.)THEN GRID1(I,J) = 360. + GDLON(I,J) ELSE @@ -99,7 +100,7 @@ SUBROUTINE FIXED if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(049)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -107,7 +108,7 @@ SUBROUTINE FIXED IF (IGET(050)>0) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND GRID1(I,J) = SPVAL IF(SM(I,J) /= SPVAL) GRID1(I,J) = 1. - SM(I,J) If(MODELNAME == 'GFS' .or. MODELNAME == 'FV3R')then @@ -121,7 +122,7 @@ SUBROUTINE FIXED if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(050)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -129,14 +130,14 @@ SUBROUTINE FIXED IF (IGET(051)>0) THEN !$omp parallel do private(i,j) DO J = JSTA,JEND - DO I = 1,IM + DO I = ISTA,IEND GRID1(I,J) = SICE(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(051)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -144,14 +145,14 @@ SUBROUTINE FIXED IF (IGET(052)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = LMH(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(052)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -159,14 +160,14 @@ SUBROUTINE FIXED IF (IGET(053)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = LMV(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(053)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -177,7 +178,7 @@ SUBROUTINE FIXED IF (IGET(150)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! SNOK = AMAX1(SNO(I,J),0.0) ! SNOFAC = AMIN1(SNOK*50.0,1.0) ! EGRID1(I,J)=ALB(I,J)+(1.-VEGFRC(I,J))*SNOFAC @@ -190,11 +191,11 @@ SUBROUTINE FIXED ENDDO ENDDO ! CALL E2OUT(150,000,GRID1,GRID2,GRID1,GRID2,IM,JM) - CALL SCLFLD(GRID1,100.,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),100.,IM,JM) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(150)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -220,7 +221,7 @@ SUBROUTINE FIXED IF (ID(18)<0) ID(18) = 0 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(AVGALBEDO(I,J)-SPVAL)>SMALL) THEN GRID1(I,J) = AVGALBEDO(I,J)*100. ELSE @@ -238,14 +239,14 @@ SUBROUTINE FIXED fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! IF (IGET(226)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(ALBASE(I,J)-SPVAL)>SMALL) THEN GRID1(I,J) = ALBASE(I,J)*100. ELSE @@ -256,14 +257,14 @@ SUBROUTINE FIXED if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(226)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Max snow albedo IF (IGET(227)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (ABS(MXSNAL(I,J)-SPVAL)>SMALL) THEN ! sea point, albedo=0.06 same as snow free albedo IF( (abs(SM(I,J)-1.) < 1.0E-5) ) THEN @@ -281,7 +282,7 @@ SUBROUTINE FIXED !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(MXSNAL(I,J)-SPVAL)>SMALL) THEN GRID1(I,J) = MXSNAL(I,J)*100. ELSE @@ -292,7 +293,7 @@ SUBROUTINE FIXED if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(227)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -300,7 +301,7 @@ SUBROUTINE FIXED IF (IGET(151)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SPVAL IF (MODELNAME == 'NMM') THEN IF( (abs(SM(I,J)-1.) < 1.0E-5) ) THEN @@ -317,7 +318,7 @@ SUBROUTINE FIXED if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(151)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -326,14 +327,14 @@ SUBROUTINE FIXED IF (IGET(968)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TI(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(968)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -341,14 +342,14 @@ SUBROUTINE FIXED IF (IGET(549)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = FDNSST(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(549)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -356,14 +357,14 @@ SUBROUTINE FIXED IF (IGET(248)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = EPSR(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(248)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF diff --git a/sorc/ncep_post.fd/FRZLVL.f b/sorc/ncep_post.fd/FRZLVL.f index 2ef1fe7be..507e1d086 100644 --- a/sorc/ncep_post.fd/FRZLVL.f +++ b/sorc/ncep_post.fd/FRZLVL.f @@ -35,6 +35,7 @@ !> 2010-08-27 | T. Smirnova | Added PFRZL to the output !> 2019-10-30 | Bo Cui | Remove "GOTO" statement !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS module +!> 2021-10-15 |JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE FRZLVL(ZFRZ,RHFRZ,PFRZL) @@ -45,7 +46,7 @@ SUBROUTINE FRZLVL(ZFRZ,RHFRZ,PFRZL) use vrbls2d, only: fis, tshltr, pshltr, qshltr use masks, only: lmh use params_mod, only: gi, d00, capa, d0065, tfrz, pq0, a2, a3, a4 - use ctlblk_mod, only: jsta, jend, spval, lm, modelname, im + use ctlblk_mod, only: jsta, jend, spval, lm, modelname, im, ista, iend use physcons_post, only: con_rd, con_rv, con_eps, con_epsm1 use upp_physics, only: FPVSNEW @@ -53,7 +54,7 @@ SUBROUTINE FRZLVL(ZFRZ,RHFRZ,PFRZL) ! ! DECLARE VARIABLES. ! - REAL,dimension(im,jsta:jend) :: RHFRZ, ZFRZ, PFRZL + REAL,dimension(ista:iend,jsta:jend) :: RHFRZ, ZFRZ, PFRZL integer I,J,LLMH,L real HTSFC,PSFC,TSFC,QSFC,QSAT,RHSFC,DELZ,DELT,DELQ,DELALP, & DELZP,ZL,DZABV,QFRZ,ALPL,ALPH,ALPFRZ,PFRZ,QSFRZ,RHZ,ZU, & @@ -73,7 +74,7 @@ SUBROUTINE FRZLVL(ZFRZ,RHFRZ,PFRZL) ! & zl,zu) DO 20 J=JSTA,JEND - DO 20 I=1,IM + DO 20 I=ISTA,IEND HTSFC = FIS(I,J)*GI LLMH = NINT(LMH(I,J)) RHFRZ(I,J) = D00 diff --git a/sorc/ncep_post.fd/FRZLVL2.f b/sorc/ncep_post.fd/FRZLVL2.f index 177e0cc2d..93e367513 100644 --- a/sorc/ncep_post.fd/FRZLVL2.f +++ b/sorc/ncep_post.fd/FRZLVL2.f @@ -39,6 +39,7 @@ !> 2016-01-21 | C. Alexander | Generalized function for any isotherm !> 2019-10-30 | Bo Cui | Remove "GOTO" statement !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS module +!> 2021-10-15 | JESSE MENG | 2D DECOMPOSITION !> 2021-07-28 | W. Meng | Restrict compuatation from undefined grids !> !> @author Russ Treadon W/NP2 @date 1992-12-22 @@ -49,7 +50,7 @@ SUBROUTINE FRZLVL2(ISOTHERM,ZFRZ,RHFRZ,PFRZL) use vrbls2d, only: fis, tshltr, pshltr, qz0, qs, qshltr use masks, only: lmh, sm use params_mod, only: gi, d00, capa, d0065, tfrz, pq0, a2, a3, a4, d50 - use ctlblk_mod, only: jsta, jend, spval, lm, modelname, im + use ctlblk_mod, only: jsta, jend, spval, lm, modelname, im, ista, iend use physcons_post, only: con_rd, con_rv, con_eps, con_epsm1 use upp_physics, only: FPVSNEW @@ -62,7 +63,7 @@ SUBROUTINE FRZLVL2(ISOTHERM,ZFRZ,RHFRZ,PFRZL) ! REAL,PARAMETER::PUCAP=300.0E2 real,intent(in) :: ISOTHERM - REAL,dimension(im,jsta:jend),intent(out) :: RHFRZ, ZFRZ, PFRZL + REAL,dimension(ista:iend,jsta:jend),intent(out) :: RHFRZ, ZFRZ, PFRZL !jw integer I,J,L,LICE,LLMH real HTSFC,PSFC,QSFC,RHSFC,QW,QSAT,DELZ,DELT,DELQ,DELALP,DELZP, & @@ -76,7 +77,7 @@ SUBROUTINE FRZLVL2(ISOTHERM,ZFRZ,RHFRZ,PFRZL) ! DO 20 J=JSTA,JEND - DO 20 I=1,IM + DO 20 I=ISTA,IEND IF(FIS(I,J)= 0.) ) THEN pressure = 1000. diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index e8fcdcc28..cca50d7b2 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f @@ -76,7 +76,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat use nemsio_module_mpi - use upp_physics, only: fpvsnew + use upp_physics, only: fpvsnew, caldiv, calgradps !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -355,7 +355,8 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) print *,me,'max(gdlat)=', maxval(gdlat), & 'max(gdlon)=', maxval(gdlon) - CALL EXCH(gdlat(1,JSTA_2L)) + CALL EXCH(gdlat) + CALL EXCH(gdlon) print *,'after call EXCH,me=',me !$omp parallel do private(i,j,ip1) diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index c7a7a2a3a..5a3018395 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -12,9 +12,11 @@ !> -----|------------|--------- !> 2007-03-01 | Hui-Ya Chuang | Initial. Start from INITPOST_GFS_NEMS_MPIIO.f !> 2021-03-11 | Bo Cui | Change local arrays to dimension (im,jsta:jend) +!> 2021-10-26 | Jesse Meng | 2D DECOMPOSITION !> 2022-02-07 | Wen Meng | Changes for parallel netcdf read !> 2022-03-15 | Wen Meng | Unify regional and global interfaces !> 2022-03-22 | Wen Meng | Read PWAT from model +!> 2022-04-08 | Bo Cui | 2D decomposition for unified fv3 read interfaces !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) @@ -64,7 +66,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ardsw, asrfc, avrain, avcnvc, theat, gdsdegr, spl, lsm, alsl, im, jm, im_jm, lm, & jsta_2l, jend_2u, nsoil, lp1, icu_physics, ivegsrc, novegtype, nbin_ss, nbin_bc, & nbin_oc, nbin_su, gocart_on, pt_tbl, hyb_sigp, filenameFlux, fileNameAER, & - iSF_SURFACE_PHYSICS,rdaod, aqfcmaq_on, modelname + iSF_SURFACE_PHYSICS,rdaod, aqfcmaq_on, modelname, & + ista, iend, ista_2l, iend_2u,iend_m use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r, STANDLON @@ -147,11 +150,11 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) real, dimension(lm+1) :: ak5, bk5 real*8, allocatable :: pm2d(:,:), pi2d(:,:) real, allocatable :: tmp(:) - real :: buf(im,jsta_2l:jend_2u) - real :: buf3d(im,jsta_2l:jend_2u,lm) + real :: buf(ista_2l:iend_2u,jsta_2l:jend_2u) + real :: buf3d(ista_2l:iend_2u,jsta_2l:jend_2u,lm) -! real buf(im,jsta_2l:jend_2u),bufsoil(im,nsoil,jsta_2l:jend_2u) & -! ,buf3d(im,jsta_2l:jend_2u,lm),buf3d2(im,lp1,jsta_2l:jend_2u) +! real buf(ista_2l:iend_2u,jsta_2l:jend_2u),bufsoil(im,nsoil,jsta_2l:jend_2u) & +! ,buf3d(ista_2l:iend_2u,jsta_2l:jend_2u,lm),buf3d2(im,lp1,jsta_2l:jend_2u) real LAT integer isa, jsa, latghf, jtem, idvc, idsl, nvcoord, ip1, nn, npass @@ -218,137 +221,137 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if (aqfcmaq_on) then - allocate(aacd(im,jsta_2l:jend_2u,lm)) - allocate(aalj(im,jsta_2l:jend_2u,lm)) - allocate(aalk1j(im,jsta_2l:jend_2u,lm)) - allocate(aalk2j(im,jsta_2l:jend_2u,lm)) + allocate(aacd(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aalj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aalk1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aalk2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(abnz1j(im,jsta_2l:jend_2u,lm)) - allocate(abnz2j(im,jsta_2l:jend_2u,lm)) - allocate(abnz3j(im,jsta_2l:jend_2u,lm)) + allocate(abnz1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(abnz2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(abnz3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(acaj(im,jsta_2l:jend_2u,lm)) - allocate(acet(im,jsta_2l:jend_2u,lm)) + allocate(acaj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(acet(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(acli(im,jsta_2l:jend_2u,lm)) - allocate(aclj(im,jsta_2l:jend_2u,lm)) - allocate(aclk(im,jsta_2l:jend_2u,lm)) + allocate(acli(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aclj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aclk(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(acors(im,jsta_2l:jend_2u,lm)) - allocate(acro_primary(im,jsta_2l:jend_2u,lm)) - allocate(acrolein(im,jsta_2l:jend_2u,lm)) - allocate(aeci(im,jsta_2l:jend_2u,lm)) - allocate(aecj(im,jsta_2l:jend_2u,lm)) - allocate(afej(im,jsta_2l:jend_2u,lm)) - allocate(aglyj(im,jsta_2l:jend_2u,lm)) + allocate(acors(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(acro_primary(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(acrolein(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aeci(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aecj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(afej(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aglyj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ah2oi(im,jsta_2l:jend_2u,lm)) - allocate(ah2oj(im,jsta_2l:jend_2u,lm)) - allocate(ah2ok(im,jsta_2l:jend_2u,lm)) + allocate(ah2oi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ah2oj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ah2ok(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ah3opi(im,jsta_2l:jend_2u,lm)) - allocate(ah3opj(im,jsta_2l:jend_2u,lm)) - allocate(ah3opk(im,jsta_2l:jend_2u,lm)) + allocate(ah3opi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ah3opj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ah3opk(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aiso1j(im,jsta_2l:jend_2u,lm)) - allocate(aiso2j(im,jsta_2l:jend_2u,lm)) - allocate(aiso3j(im,jsta_2l:jend_2u,lm)) + allocate(aiso1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aiso2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aiso3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aivpo1j(im,jsta_2l:jend_2u,lm)) - allocate(akj(im,jsta_2l:jend_2u,lm)) + allocate(aivpo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(akj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ald2(im,jsta_2l:jend_2u,lm)) - allocate(ald2_primary(im,jsta_2l:jend_2u,lm)) + allocate(ald2(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ald2_primary(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aldx(im,jsta_2l:jend_2u,lm)) + allocate(aldx(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(alvoo1i(im,jsta_2l:jend_2u,lm)) - allocate(alvoo1j(im,jsta_2l:jend_2u,lm)) - allocate(alvoo2i(im,jsta_2l:jend_2u,lm)) - allocate(alvoo2j(im,jsta_2l:jend_2u,lm)) - allocate(alvpo1i(im,jsta_2l:jend_2u,lm)) - allocate(alvpo1j(im,jsta_2l:jend_2u,lm)) + allocate(alvoo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(alvoo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(alvoo2i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(alvoo2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(alvpo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(alvpo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(amgj(im,jsta_2l:jend_2u,lm)) - allocate(amnj(im,jsta_2l:jend_2u,lm)) + allocate(amgj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(amnj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(anai(im,jsta_2l:jend_2u,lm)) - allocate(anaj(im,jsta_2l:jend_2u,lm)) - allocate(anak(im,jsta_2l:jend_2u,lm)) + allocate(anai(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(anaj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(anak(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(anh4i(im,jsta_2l:jend_2u,lm)) - allocate(anh4j(im,jsta_2l:jend_2u,lm)) - allocate(anh4k(im,jsta_2l:jend_2u,lm)) + allocate(anh4i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(anh4j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(anh4k(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ano3i(im,jsta_2l:jend_2u,lm)) - allocate(ano3j(im,jsta_2l:jend_2u,lm)) - allocate(ano3k(im,jsta_2l:jend_2u,lm)) + allocate(ano3i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ano3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(ano3k(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aolgaj(im,jsta_2l:jend_2u,lm)) - allocate(aolgbj(im,jsta_2l:jend_2u,lm)) + allocate(aolgaj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aolgbj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aomi(im,jsta_2l:jend_2u,lm)) - allocate(aomj(im,jsta_2l:jend_2u,lm)) + allocate(aomi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aomj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aorgcj(im,jsta_2l:jend_2u,lm)) + allocate(aorgcj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aothri(im,jsta_2l:jend_2u,lm)) - allocate(aothrj(im,jsta_2l:jend_2u,lm)) + allocate(aothri(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aothrj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(apah1j(im,jsta_2l:jend_2u,lm)) - allocate(apah2j(im,jsta_2l:jend_2u,lm)) - allocate(apah3j(im,jsta_2l:jend_2u,lm)) + allocate(apah1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(apah2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(apah3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(apcsoj(im,jsta_2l:jend_2u,lm)) + allocate(apcsoj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(apomi(im,jsta_2l:jend_2u,lm)) - allocate(apomj(im,jsta_2l:jend_2u,lm)) + allocate(apomi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(apomj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aseacat(im,jsta_2l:jend_2u,lm)) - allocate(asij(im,jsta_2l:jend_2u,lm)) + allocate(aseacat(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asij(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aso4i(im,jsta_2l:jend_2u,lm)) - allocate(aso4j(im,jsta_2l:jend_2u,lm)) - allocate(aso4k(im,jsta_2l:jend_2u,lm)) - allocate(asoil(im,jsta_2l:jend_2u,lm)) + allocate(aso4i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aso4j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aso4k(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asoil(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asomi(im,jsta_2l:jend_2u,lm)) - allocate(asomj(im,jsta_2l:jend_2u,lm)) + allocate(asomi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asomj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asqtj(im,jsta_2l:jend_2u,lm)) + allocate(asqtj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvoo1i(im,jsta_2l:jend_2u,lm)) - allocate(asvoo1j(im,jsta_2l:jend_2u,lm)) - allocate(asvoo2i(im,jsta_2l:jend_2u,lm)) - allocate(asvoo2j(im,jsta_2l:jend_2u,lm)) - allocate(asvoo3j(im,jsta_2l:jend_2u,lm)) + allocate(asvoo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvoo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvoo2i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvoo2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvoo3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvpo1i(im,jsta_2l:jend_2u,lm)) - allocate(asvpo1j(im,jsta_2l:jend_2u,lm)) - allocate(asvpo2i(im,jsta_2l:jend_2u,lm)) - allocate(asvpo2j(im,jsta_2l:jend_2u,lm)) - allocate(asvpo3j(im,jsta_2l:jend_2u,lm)) + allocate(asvpo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvpo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvpo2i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvpo2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(asvpo3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atij(im,jsta_2l:jend_2u,lm)) + allocate(atij(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atol1j(im,jsta_2l:jend_2u,lm)) - allocate(atol2j(im,jsta_2l:jend_2u,lm)) - allocate(atol3j(im,jsta_2l:jend_2u,lm)) + allocate(atol1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(atol2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(atol3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atoti(im,jsta_2l:jend_2u,lm)) - allocate(atotj(im,jsta_2l:jend_2u,lm)) - allocate(atotk(im,jsta_2l:jend_2u,lm)) + allocate(atoti(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(atotj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(atotk(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atrp1j(im,jsta_2l:jend_2u,lm)) - allocate(atrp2j(im,jsta_2l:jend_2u,lm)) + allocate(atrp1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(atrp2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(axyl1j(im,jsta_2l:jend_2u,lm)) - allocate(axyl2j(im,jsta_2l:jend_2u,lm)) - allocate(axyl3j(im,jsta_2l:jend_2u,lm)) + allocate(axyl1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(axyl2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(axyl3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(pm25ac(im,jsta_2l:jend_2u,lm)) - allocate(pm25at(im,jsta_2l:jend_2u,lm)) - allocate(pm25co(im,jsta_2l:jend_2u,lm)) + allocate(pm25ac(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(pm25at(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(pm25co(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) endif @@ -358,14 +361,17 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) WRITE(6,*)'INITPOST: ENTER INITPOST_NETCDF' WRITE(6,*)'me=',me, & 'jsta_2l=',jsta_2l,'jend_2u=', & - jend_2u,'im=',im + jend_2u,'im=',im, & + 'ista_2l=',ista_2l,'iend_2u=',iend_2u, & + 'ista=',ista,'iend=',iend, & + 'iend_m=',iend_m ! - isa = im / 2 + isa = (ista+iend) / 2 jsa = (jsta+jend) / 2 !$omp parallel do private(i,j) do j = jsta_2l, jend_2u - do i= 1, im + do i= ista_2l, iend_2u buf(i,j) = spval enddo enddo @@ -623,7 +629,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) !$omp parallel do private(i,j) do j = jsta_2l, jend_2u - do i = 1, im + do i = ista_2l, iend_2u LMV(i,j) = lm LMH(i,j) = lm end do @@ -634,7 +640,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) !$omp parallel do private(i,j,l) do l = 1, lm do j = jsta_2l, jend_2u - do i = 1, im + do i = ista_2l, iend_2u HTM (i,j,l) = 1.0 VTM (i,j,l) = 1.0 end do @@ -719,7 +725,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(numDims==1)then Status=nf90_get_var(ncid3d,varid,glon1d) do j=jsta,jend - do i=1,im + do i=ista,iend gdlon(i,j) = real(glon1d(i),kind=4) end do end do @@ -742,13 +748,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(maxval(abs(dummy))<2.0*pi)convert_rad_to_deg=.true. if(convert_rad_to_deg)then do j=jsta,jend - do i=1,im + do i=ista,iend gdlon(i,j) = real(dummy(i,j),kind=4)*180./pi end do end do else do j=jsta,jend - do i=1,im + do i=ista,iend gdlon(i,j) = real(dummy(i,j),kind=4) end do end do @@ -788,7 +794,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(numDims==1)then Status=nf90_get_var(ncid3d,varid,glat1d) do j=jsta,jend - do i=1,im + do i=ista,iend gdlat(i,j) = real(glat1d(j),kind=4) end do end do @@ -799,13 +805,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(maxval(abs(dummy))1.0E6 .or. pint(1,jsta_2l,lp1)<50000.) & + do i=ista,iend +! if(pint(i,j,lp1)>1.0E6 .or. pint(ista_2l,jsta_2l,lp1)<50000.) & ! print*,'bad psfc ',i,j,pint(i,j,lp1) end do end do @@ -1569,14 +1576,14 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) pt = ak5(1) do j=jsta,jend - do i=1,im + do i=ista,iend pint(i,j,1)= pt end do end do do l=2,lp1 do j=jsta,jend - do i=1,im + do i=ista,iend if (dpres(i,j,l-1) 2002-04-24 | Mike Baldwin | WRF Version !> 2019-10-30 | Bo Cui | Remove "GOTO" statement !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> 2021-10-14 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE LFMFLD(RH3310,RH6610,RH3366,PW3310) @@ -47,7 +48,7 @@ SUBROUTINE LFMFLD(RH3310,RH6610,RH3366,PW3310) use vrbls3d, only: pint, alpint, zint, t, q, cwm use masks, only: lmh use params_mod, only: d00, d50, pq0, a2, a3, a4, h1, d01, gi - use ctlblk_mod, only: jsta, jend, modelname, spval, im + use ctlblk_mod, only: jsta, jend, modelname, spval, im, ista, iend use physcons_post, only: con_rd, con_rv, con_eps, con_epsm1 use upp_physics, only: FPVSNEW @@ -60,8 +61,8 @@ SUBROUTINE LFMFLD(RH3310,RH6610,RH3366,PW3310) ! DECLARE VARIABLES. ! REAL ALPM, DZ, ES, PM, PWSUM, QM, QS, TM, DP, RH - REAL,dimension(IM,jsta:jend),intent(inout) :: RH3310, RH6610, RH3366 - REAL,dimension(IM,jsta:jend),intent(inout) :: PW3310 + REAL,dimension(ista:iend,jsta:jend),intent(inout) :: RH3310, RH6610, RH3366 + REAL,dimension(ista:iend,jsta:jend),intent(inout) :: PW3310 real Z3310,Z6610,Z3366,P10,P33,P66 integer I,J,L,LLMH ! @@ -72,7 +73,7 @@ SUBROUTINE LFMFLD(RH3310,RH6610,RH3366,PW3310) ! LOOP OVER HORIZONTAL GRID. ! DO 30 J=JSTA,JEND - DO 30 I=1,IM + DO 30 I=ISTA,IEND ! ! ZERO VARIABLES. RH3310(I,J) = D00 diff --git a/sorc/ncep_post.fd/LFMFLD_GFS.f b/sorc/ncep_post.fd/LFMFLD_GFS.f index 54f68fb9c..70ee6e438 100644 --- a/sorc/ncep_post.fd/LFMFLD_GFS.f +++ b/sorc/ncep_post.fd/LFMFLD_GFS.f @@ -39,6 +39,7 @@ !> 2006-11-06 | H CHUANG | Modify to output GFS LFM fields which have different thickness as MESO and use DP rather than DZ !> 2019-10-30 | Bo Cui | Remove "GOTO" statement !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> 2021-10-14 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE LFMFLD_GFS(RH4410,RH7294,RH4472,RH3310) @@ -48,7 +49,7 @@ SUBROUTINE LFMFLD_GFS(RH4410,RH7294,RH4472,RH3310) use vrbls3d, only: pint, q, t, pmid use masks, only: lmh use params_mod, only: d00 - use ctlblk_mod, only: jsta, jend, spval, im + use ctlblk_mod, only: jsta, jend, spval, im, ista, iend use upp_physics, only: FPVSNEW ! implicit none @@ -64,7 +65,7 @@ SUBROUTINE LFMFLD_GFS(RH4410,RH7294,RH4472,RH3310) ! DECLARE VARIABLES. ! REAL ALPM, DZ, ES, PM, PWSUM, QM, QS - REAL,dimension(IM,jsta:jend),intent(out) :: RH4410, RH7294, RH4472 & + REAL,dimension(ista:iend,jsta:jend),intent(out) :: RH4410, RH7294, RH4472 & ,RH3310 ! integer I,J,L,LLMH @@ -78,7 +79,7 @@ SUBROUTINE LFMFLD_GFS(RH4410,RH7294,RH4472,RH3310) ! LOOP OVER HORIZONTAL GRID. ! DO 30 J=JSTA,JEND - DO 30 I=1,IM + DO 30 I=ISTA,IEND ! ! ZERO VARIABLES. RH4410(I,J) = D00 diff --git a/sorc/ncep_post.fd/MAPSSLP.f b/sorc/ncep_post.fd/MAPSSLP.f index f2fdd6ea5..5d1ca0125 100644 --- a/sorc/ncep_post.fd/MAPSSLP.f +++ b/sorc/ncep_post.fd/MAPSSLP.f @@ -10,7 +10,8 @@ SUBROUTINE MAPSSLP(TPRES) ! !----------------------------------------------------------------------- use ctlblk_mod, only: jsta, jend, spl, smflag, lm, im, jsta_2l, jend_2u, & - lsm, jm, grib, spval + lsm, jm, grib, spval, & + ista, iend, ista_2l, iend_2u use gridspec_mod, only: maptype, dxval use vrbls3d, only: pmid, t, pint use vrbls2d, only: pslp, fis @@ -21,11 +22,11 @@ SUBROUTINE MAPSSLP(TPRES) ! INCLUDE "mpif.h" ! - REAL TPRES(IM,JSTA_2L:JEND_2U,LSM) + REAL TPRES(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM) real LAPSES, EXPo,EXPINV,TSFCNEW - REAL,dimension(im, jsta_2l:jend_2u) :: T700 + REAL,dimension(ista_2l:iend_2u, jsta_2l:jend_2u) :: T700 real,dimension(im,2) :: sdummy REAL,dimension(im,jm) :: GRID1, TH700 INTEGER NSMOOTH @@ -42,7 +43,7 @@ SUBROUTINE MAPSSLP(TPRES) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(SPL(L) == 70000.)THEN if(TPRES(I,J,L) 100.) THEN @@ -112,7 +113,7 @@ SUBROUTINE MAPSSLP(TPRES) CALL SMOOTH(GRID1,SDUMMY,IM,JM,0.5) end do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PSLP(I,J)=GRID1(I,J) ENDDO ENDDO diff --git a/sorc/ncep_post.fd/MDL2AGL.f b/sorc/ncep_post.fd/MDL2AGL.f index b1f5254fa..55d97b07c 100644 --- a/sorc/ncep_post.fd/MDL2AGL.f +++ b/sorc/ncep_post.fd/MDL2AGL.f @@ -16,6 +16,7 @@ !! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) !! 21-04-01 J MENG - computation on defined points only !! 21-07-26 W Meng - Restrict computation from undefined grids +!! 21-10-14 J MENG - 2D DECOMPOSITION !! !! USAGE: CALL MDL2P !! INPUT ARGUMENT LIST: @@ -61,7 +62,8 @@ SUBROUTINE MDL2AGL use params_mod, only: dbzmin, small, eps, rd use ctlblk_mod, only: spval, lm, modelname, grib, cfld, fld_info, datapd,& ifhr, global, jsta_m, jend_m, mpi_comm_comp, & - jsta_2l, jend_2u, im, jm, jsta, jend, imp_physics + jsta_2l, jend_2u, im, jm, jsta, jend, imp_physics, & + ista, iend, ista_2l, iend_2u, ista_m, iend_m use rqstfld_mod, only: iget, lvls, iavblfld, lvlsxml, id use gridspec_mod, only: gridtype !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -77,10 +79,10 @@ SUBROUTINE MDL2AGL ! DECLARE VARIABLES. ! LOGICAL IOOMG,IOALL - REAL,dimension(im,jsta_2l:jend_2u) :: grid1 - REAL,dimension(im,jsta_2l:jend_2u) :: UAGL, VAGL, tagl, pagl, qagl + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: grid1 + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: UAGL, VAGL, tagl, pagl, qagl ! - INTEGER,dimension(im,jsta_2l:jend_2u) :: NL1X + INTEGER,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: NL1X integer,dimension(jm) :: IHE, IHW INTEGER LXXX,IERR, maxll, minll INTEGER ISTART,ISTOP,JSTART,JSTOP @@ -100,7 +102,7 @@ SUBROUTINE MDL2AGL ! ! REAL C1D(IM,JM),QW1(IM,JM),QI1(IM,JM),QR1(IM,JM) ! &, QS1(IM,JM) ,DBZ1(IM,JM) - REAL,dimension(im,jsta:jend) :: DBZ1, DBZR1, DBZI1, DBZC1, dbz1log + REAL,dimension(ista:iend,jsta:jend) :: DBZ1, DBZR1, DBZI1, DBZC1, dbz1log real,dimension(lagl) :: ZAGL real,dimension(lagl2) :: ZAGL2, ZAGL3 real PAGLU,PAGLL,TAGLU,TAGLL,QAGLU,QAGLL, pv, rho @@ -149,10 +151,10 @@ SUBROUTINE MDL2AGL IF (iget1 > 0 .or. iget2 > 0 .or. iget3 > 0 .or. iget4 > 0) then ! jj=float(jsta+jend)/2.0 - ii=float(im)/3.0 + ii=float(ista+iend)/3.0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DBZ1(I,J) = SPVAL DBZR1(I,J) = SPVAL DBZI1(I,J) = SPVAL @@ -195,7 +197,7 @@ SUBROUTINE MDL2AGL ! DO 220 J=JSTA,JEND DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LL = NL1X(I,J) !--------------------------------------------------------------------- !*** VERTICAL INTERPOLATION OF GEOPOTENTIAL, TEMPERATURE, SPECIFIC @@ -281,13 +283,13 @@ SUBROUTINE MDL2AGL IF((IGET(253)>0) )THEN if(MODELNAME=='RAPR') then DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=DBZ1LOG(I,J) ENDDO ENDDO else DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=DBZ1(I,J) ENDDO ENDDO @@ -296,13 +298,13 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(253)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(253)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Radar reflectivity from rain IF((IGET(279)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=DBZR1(I,J) ENDDO ENDDO @@ -310,13 +312,13 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(279)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(279)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Radar reflectivity from all ice habits (snow + graupel + sleet, etc.) IF((IGET(280)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=DBZI1(I,J) ENDDO ENDDO @@ -324,13 +326,13 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(280)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(280)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Radar reflectivity from parameterized convection IF((IGET(281)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=DBZC1(I,J) ENDDO ENDDO @@ -338,7 +340,7 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(281)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(281)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF ! @@ -355,7 +357,7 @@ SUBROUTINE MDL2AGL !--- Max Derived Radar Reflectivity IF((IGET(421)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=REFD_MAX(I,J) ENDDO ENDDO @@ -370,14 +372,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat=0 endif fld_info(cfld)%ntrange=1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Max Derived Radar Reflectivity at -10C IF((IGET(785)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=REFDM10C_MAX(I,J) ENDDO ENDDO @@ -391,14 +393,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat=0 endif fld_info(cfld)%ntrange=1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Max Updraft Helicity IF((IGET(420)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MAX(I,J) ENDDO ENDDO @@ -412,14 +414,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 0 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Updraft Helicity 1-6 km IF((IGET(700)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MAX16(I,J) ENDDO ENDDO @@ -433,14 +435,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Min Updraft Helicity IF((IGET(786)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MIN(I,J) ENDDO ENDDO @@ -454,14 +456,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 0 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Min Updraft Helicity 1-6 km IF((IGET(787)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MIN16(I,J) ENDDO ENDDO @@ -475,14 +477,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Updraft Helicity 0-2 km IF((IGET(788)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MAX02(I,J) ENDDO ENDDO @@ -496,13 +498,13 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 0 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Min Updraft Helicity 0-2 km IF((IGET(789)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MIN02(I,J) ENDDO ENDDO @@ -516,14 +518,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Updraft Helicity 0-3 km IF((IGET(790)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MAX03(I,J) ENDDO ENDDO @@ -537,14 +539,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 0 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Min Updraft Helicity 0-3 km IF((IGET(791)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI_MIN03(I,J) ENDDO ENDDO @@ -558,14 +560,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Relative Vertical Vorticity 0-2 km IF((IGET(792)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=REL_VORT_MAX(I,J) ENDDO ENDDO @@ -579,14 +581,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 0 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Relative Vertical Vorticity 0-1 km IF((IGET(793)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=REL_VORT_MAX01(I,J) ENDDO ENDDO @@ -600,13 +602,13 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 0 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Relative Vertical Vorticity @ hybrid level 1 IF((IGET(890)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=REL_VORT_MAXHY1(I,J) ENDDO ENDDO @@ -620,14 +622,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 0 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Hail Diameter in Column IF((IGET(794)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=HAIL_MAX2D(I,J) ENDDO ENDDO @@ -641,14 +643,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Hail Diameter at k=1 IF((IGET(795)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=HAIL_MAXK1(I,J) ENDDO ENDDO @@ -662,7 +664,7 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF @@ -671,7 +673,7 @@ SUBROUTINE MDL2AGL ! (J. Kenyon/GSD, added 1 May 2019) IF((IGET(728)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=HAIL_MAXHAILCAST(I,J)/1000.0 ! convert mm to m ENDDO ENDDO @@ -685,14 +687,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Column Integrated Graupel IF((IGET(429)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=GRPL_MAX(I,J) ENDDO ENDDO @@ -706,14 +708,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Lightning Threat 1 IF((IGET(702)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=LTG1_MAX(I,J) ENDDO ENDDO @@ -727,14 +729,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Lightning Threat 2 IF((IGET(703)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=LTG2_MAX(I,J) ENDDO ENDDO @@ -748,14 +750,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif END IF !--- Max Lightning Threat 3 IF((IGET(704)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=LTG3_MAX(I,J) ENDDO ENDDO @@ -769,14 +771,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- GSD Updraft Helicity IF((IGET(727)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI(I,J) ENDDO ENDDO @@ -784,14 +786,14 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(727)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(727)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Updraft Helicity 1-6 km layer IF((IGET(701)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UP_HELI16(I,J) ENDDO ENDDO @@ -799,14 +801,14 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(701)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(701)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Convective Initiation Lightning IF((IGET(705)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=NCI_LTG(I,J)/60.0 ENDDO ENDDO @@ -820,14 +822,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Convective Activity Lightning IF((IGET(706)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=NCA_LTG(I,J)/60.0 ENDDO ENDDO @@ -841,14 +843,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Convective Initiation Vertical Hydrometeor Flux IF((IGET(707)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=NCI_WQ(I,J)/60.0 ENDDO ENDDO @@ -862,14 +864,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Convective Activity Vertical Hydrometeor Flux IF((IGET(708)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=NCA_WQ(I,J)/60.0 ENDDO ENDDO @@ -883,14 +885,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Convective Initiation Reflectivity IF((IGET(709)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=NCI_REFD(I,J)/60.0 ENDDO ENDDO @@ -904,14 +906,14 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF !--- Convective Activity Reflectivity IF((IGET(710)>0) )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=NCA_REFD(I,J)/60.0 ENDDO ENDDO @@ -925,7 +927,7 @@ SUBROUTINE MDL2AGL fld_info(cfld)%tinvstat = 1 endif fld_info(cfld)%ntrange = 1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF ! @@ -949,9 +951,9 @@ SUBROUTINE MDL2AGL IF(iget1 > 0 .or. iget2 > 0) THEN ! jj=(jsta+jend)/2 - ii=(im)/2 + ii=(ista+iend)/2 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND UAGL(I,J) = SPVAL VAGL(I,J) = SPVAL ! @@ -1000,13 +1002,13 @@ SUBROUTINE MDL2AGL END IF ENDDO IF(global)then - ISTART=1 - ISTOP=IM + ISTART=ISTA + ISTOP=IEND JSTART=JSTA JSTOP=JEND ELSE - ISTART=2 - ISTOP=IM-1 + ISTART=ISTA_M + ISTOP=IEND_M JSTART=JSTA_M JSTOP=JEND_M END IF @@ -1018,8 +1020,8 @@ SUBROUTINE MDL2AGL MINLL=LXXX ! print*,'exchange wind in MDL2AGL from ',MINLL DO LL=MINLL,LM - call exch(UH(1:IM,JSTA_2L:JEND_2U,LL)) - call exch(VH(1:IM,JSTA_2L:JEND_2U,LL)) + call exch(UH(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LL)) + call exch(VH(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LL)) END DO END IF DO 230 J=JSTART,JSTOP @@ -1128,7 +1130,7 @@ SUBROUTINE MDL2AGL !--- Wind Shear (wind speed difference in knots between sfc and 2000 ft) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ABS(UAGL(I,J)-SPVAL)>SMALL .AND. & ABS(VAGL(I,J)-SPVAL)>SMALL)THEN IF(GRIDTYPE=='B' .OR. GRIDTYPE=='E')THEN @@ -1149,7 +1151,7 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(259)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(259)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ! ENDIF ! FOR LEVEL @@ -1178,9 +1180,9 @@ SUBROUTINE MDL2AGL ! jj = float(jsta+jend)/2.0 - ii = float(im)/3.0 + ii = float(ista+iend)/3.0 DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U ! PAGL(I,J) = SPVAL TAGL(I,J) = SPVAL @@ -1224,7 +1226,7 @@ SUBROUTINE MDL2AGL !chc J=JHOLD(NN) ! DO 220 J=JSTA,JEND DO 240 J=JSTA_2L,JEND_2U - DO 240 I=1,IM + DO 240 I=ISTA_2L,IEND_2U LL = NL1X(I,J) !--------------------------------------------------------------------- !*** VERTICAL INTERPOLATION OF GEOPOTENTIAL, TEMPERATURE, SPECIFIC @@ -1295,7 +1297,7 @@ SUBROUTINE MDL2AGL !--- Wind Energy Potential -- 0.5 * moist air density * wind speed^3 IF((IGET(411)>0) ) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(QAGL(I,J)0) ) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=UAGL(I,J) ENDDO ENDDO @@ -1325,13 +1327,13 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(412)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(412)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- V Component of wind IF((IGET(413)>0) ) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=VAGL(I,J) ENDDO ENDDO @@ -1339,7 +1341,7 @@ SUBROUTINE MDL2AGL cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(413)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(413)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f index 8aab37ba9..ccb2b5c43 100644 --- a/sorc/ncep_post.fd/MDL2P.f +++ b/sorc/ncep_post.fd/MDL2P.f @@ -29,6 +29,7 @@ !> 2020-11-10 | J Meng | Use UPP_PHYSICS module !> 2021-03-11 | B Cui | Change local arrays to dimension (im,jsta:jend) !> 2021-04-01 | J Meng | Computation on defined points only +!> 2021-07-07 | J MENG | 2D DECOMPOSITION !> !> @author T Black W/NP2 @date 1999-09-23 SUBROUTINE MDL2P(iostatusD3D) @@ -56,10 +57,10 @@ SUBROUTINE MDL2P(iostatusD3D) ALSL, JEND_M, SMFLAG, GRIB, CFLD, FLD_INFO, DATAPD,& TD3D, IFHR, IFMIN, IM, JM, NBIN_DU, JSTA_2L, & JEND_2U, LSM, d3d_on, gocart_on, ioform, NBIN_SM, & - imp_physics + imp_physics, ISTA, IEND, ISTA_M, IEND_M, ISTA_2L, IEND_2U use rqstfld_mod, only: IGET, LVLS, ID, IAVBLFLD, LVLSXML use gridspec_mod, only: GRIDTYPE, MAPTYPE, DXVAL - use upp_physics, only: FPVSNEW, CALRH + use upp_physics, only: FPVSNEW, CALRH, CALVOR !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! implicit none @@ -76,7 +77,7 @@ SUBROUTINE MDL2P(iostatusD3D) real,PARAMETER :: CAPA=0.28589641,P1000=1000.E2 LOGICAL IOOMG,IOALL real, dimension(im,jm) :: GRID1, GRID2 - real, dimension(im,jsta_2l:jend_2u) :: FSL, TSL, QSL, OSL, USL, VSL & + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: FSL, TSL, QSL, OSL, USL, VSL & &, Q2SL, WSL, CFRSL, O3SL, TDSL & &, EGRID1, EGRID2 & &, FSL_OLD, USL_OLD, VSL_OLD & @@ -85,8 +86,8 @@ SUBROUTINE MDL2P(iostatusD3D) REAL, allocatable :: D3DSL(:,:,:), DUSTSL(:,:,:), SMOKESL(:,:,:) ! integer,intent(in) :: iostatusD3D - INTEGER, dimension(im,jsta_2l:jend_2u) :: NL1X, NL1XF - real, dimension(IM,JSTA_2L:JEND_2U,LSM) :: TPRS, QPRS, FPRS + INTEGER, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: NL1X, NL1XF + real, dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM) :: TPRS, QPRS, FPRS ! INTEGER K, NSMOOTH ! @@ -100,15 +101,15 @@ SUBROUTINE MDL2P(iostatusD3D) ! QG1 - graupel mixing ratio ! DBZ1 - radar reflectivity ! - REAL, dimension(im,jsta_2l:jend_2u) :: C1D, QW1, QI1, QR1, QS1, QG1, DBZ1 & + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: C1D, QW1, QI1, QR1, QS1, QG1, DBZ1 & , FRIME, RAD, HAINES REAL SDUMMY(IM,2) ! SAVE RH, U,V, for Icing, CAT, LLWS computation - REAL SAVRH(IM,jsta:jend) + REAL SAVRH(ista:iend,jsta:jend) !jw - integer I,J,L,LP,LL,LLMH,JJB,JJE,II,JJ,LI,IFINCR,ITD3D,ista,imois,luhi,la + integer I,J,L,LP,LL,LLMH,JJB,JJE,II,JJ,LI,IFINCR,ITD3D,istaa,imois,luhi,la real fact,ALPSL,PSFC,QBLO,PNL1,TBLO,TVRL,TVRBLO,FAC,PSLPIJ, & ALPTH,AHF,PDV,QL,TVU,TVD,GAMMAS,QSAT,RHL,ZL,TL,PL,ES,part,dum1 logical log1 @@ -118,6 +119,8 @@ SUBROUTINE MDL2P(iostatusD3D) ! ! START MDL2P. ! + if(me==0) print*, 'MDL2P SMFLAG=',SMFLAG + if (modelname == 'GFS') then zero = 0.0 else @@ -211,7 +214,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! print*,'LSM= ',lsm if(gridtype == 'B' .or. gridtype == 'E') & - call exch(PINT(1:IM,JSTA_2L:JEND_2U,LP1)) + call exch(PINT(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LP1)) DO LP=1,LSM @@ -223,7 +226,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! !$omp parallel do private(i,j,l) DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U TSL(I,J) = SPVAL QSL(I,J) = SPVAL FSL(I,J) = SPVAL @@ -284,12 +287,12 @@ SUBROUTINE MDL2P(iostatusD3D) !hc J=JHOLD(NN) ! DO 220 J=JSTA,JEND - ii = im/2 + ii = (ista+iend)/2 jj = (jsta+jend)/2 !$omp parallel do private(i,j,k,l,ll,llmh,la,tvd,tvu,fact,fac,ahf,rhl,tl,pl,ql,zl,es,qsat,part,tvrl,tvrblo,tblo,qblo,gammas,pnl1) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND !--------------------------------------------------------------------- !*** VERTICAL INTERPOLATION OF GEOPOTENTIAL, TEMPERATURE, SPECIFIC !*** HUMIDITY, CLOUD WATER/ICE, OMEGA, WINDS, AND TKE. @@ -757,7 +760,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND TPRS(I,J,LP) = TSL(I,J) QPRS(I,J,LP) = QSL(I,J) FPRS(I,J,LP) = FSL(I,J) @@ -768,7 +771,8 @@ SUBROUTINE MDL2P(iostatusD3D) ! IF(gridtype == 'E')THEN DO J=JSTA,JEND - DO I=2,IM-MOD(J,2) +! DO I=2,IM-MOD(J,2) + DO I=ISTA_M,IEND-MOD(J,2) ! IF(i == im/2 .and. j == (jsta+jend)/2)then ! do l=1,lm ! print*,'PMIDV=',PMIDV(i,j,l) @@ -818,13 +822,13 @@ SUBROUTINE MDL2P(iostatusD3D) ! ! IF(NL1X(I,J) == LMP1.AND.PINT(I,J,LMP1) > SPL(LP))THEN IF(NL1X(I,J) == LP1)THEN - IF(J == 1 .AND. I < IM)THEN !SOUTHERN BC + IF(J == JSTA .AND. I < IEND)THEN !SOUTHERN BC PDV = 0.5*(PINT(I,J,LP1)+PINT(I+1,J,LP1)) - ELSE IF(J == JM .AND. I < IM)THEN !NORTHERN BC + ELSE IF(J == JEND .AND. I < IEND)THEN !NORTHERN BC PDV = 0.5*(PINT(I,J,LP1)+PINT(I+1,J,LP1)) - ELSE IF(I == 1 .AND. MOD(J,2) == 0) THEN !WESTERN EVEN BC + ELSE IF(I == ISTA .AND. MOD(J,2) == 0) THEN !WESTERN EVEN BC PDV = 0.5*(PINT(I,J-1,LP1)+PINT(I,J+1,LP1)) - ELSE IF(I == IM .AND. MOD(J,2) == 0) THEN !EASTERN EVEN BC + ELSE IF(I == IEND .AND. MOD(J,2) == 0) THEN !EASTERN EVEN BC PDV = 0.5*(PINT(I,J-1,LP1)+PINT(I,J+1,LP1)) ELSE IF (MOD(J,2) < 1) THEN PDV = 0.25*(PINT(I,J,LP1)+PINT(I-1,J,LP1) & @@ -842,8 +846,8 @@ SUBROUTINE MDL2P(iostatusD3D) ENDDO ! DO J=JSTA,JEND - DO I=1,IM-MOD(j,2) - +! DO I=1,IM-MOD(j,2) + DO I=ISTA,IEND-MOD(j,2) LL = NL1X(I,J) !--------------------------------------------------------------------- !*** VERTICAL INTERPOLATION OF WINDS FOR A-E GRID @@ -892,12 +896,13 @@ SUBROUTINE MDL2P(iostatusD3D) JJE = JEND IF(MOD(JEND,2) == 0) JJE = JEND-1 DO J=JJB,JJE,2 !chc - USL(IM,J) = USL(IM-1,J) - VSL(IM,J) = VSL(IM-1,J) + USL(IEND,J) = USL(IEND-1,J) + VSL(IEND,J) = VSL(IEND-1,J) END DO ELSE IF(gridtype=='B')THEN ! B grid wind interpolation DO J=JSTA,JEND_m - DO I=1,IM-1 +! DO I=1,IM-1 + DO I=ISTA,IEND_m !*** LOCATE VERTICAL INDEX OF MODEL MIDLAYER FOR V POINT JUST BELOW !*** THE PRESSURE LEVEL TO WHICH WE ARE INTERPOLATING. ! @@ -927,8 +932,8 @@ SUBROUTINE MDL2P(iostatusD3D) ENDDO ! DO J=JSTA,JEND_m - DO I=1,IM-1 - +! DO I=1,IM-1 + DO I=ISTA,IEND_m LL = NL1X(I,J) !--------------------------------------------------------------------- !*** VERTICAL INTERPOLATION OF WINDS FOR A-E GRID @@ -985,7 +990,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(NINT(SPL(LP)) == 50000)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND T500(I,J) = TSL(I,J) Z500(I,J) = FSL(I,J)*GI ENDDO @@ -998,7 +1003,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(NINT(SPL(LP)) == 70000)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND T700(I,J) = TSL(I,J) Z700(I,J) = FSL(I,J)*GI ENDDO @@ -1070,7 +1075,7 @@ SUBROUTINE MDL2P(iostatusD3D) ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FSL(I,J) < SPVAL) THEN GRID1(I,J) = FSL(I,J)*GI ELSE @@ -1102,11 +1107,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(012)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(012)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1121,7 +1127,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(013)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TSL(I,J) ENDDO ENDDO @@ -1138,11 +1144,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(013)) fld_info(cfld)%lvl = LVLSXML(LP,IGET(013)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1155,7 +1162,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(910))>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(TSL(I,J) < SPVAL .AND. QSL(I,J) < SPVAL) THEN GRID1(I,J) = TSL(I,J)*(1.+0.608*QSL(I,J)) ELSE @@ -1176,11 +1183,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld=cfld+1 fld_info(cfld)%ifld = IAVBLFLD(IGET(910)) fld_info(cfld)%lvl = LVLSXML(LP,IGET(910)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1196,7 +1204,7 @@ SUBROUTINE MDL2P(iostatusD3D) tem = (P1000/spl(lp)) ** capa !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(TSL(I,J) < SPVAL) THEN grid1(I,J) = TSL(I,J) * tem ELSE @@ -1223,11 +1231,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(014)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(014)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1250,16 +1259,16 @@ SUBROUTINE MDL2P(iostatusD3D) if ( log1 ) then !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID2(I,J) = SPL(LP) ENDDO ENDDO ! - CALL CALRH(EGRID2(1,jsta),TSL(1,jsta),QSL(1,jsta),EGRID1(1,jsta)) + CALL CALRH(EGRID2(ista:iend,jsta:jend),TSL(ista:iend,jsta:jend),QSL(ista:iend,jsta:jend),EGRID1(ista:iend,jsta:jend)) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(EGRID1(I,J) < SPVAL) THEN GRID1(I,J) = EGRID1(I,J)*100. ELSE @@ -1279,18 +1288,19 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(017)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(017)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND SAVRH(I,J) = GRID1(I,J) ENDDO ENDDO @@ -1304,7 +1314,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(331)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SPVAL CFRSL(I,J) = MIN(MAX(0.0,CFRSL(I,J)),1.0) IF(abs(CFRSL(I,J)-SPVAL) > SMALL) & @@ -1315,11 +1325,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(331)) fld_info(cfld)%lvl = LVLSXML(LP,IGET(331)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1332,15 +1343,15 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(015)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID2(I,J) = SPL(LP) ENDDO ENDDO ! - CALL CALDWP(EGRID2(1,jsta),QSL(1,jsta),EGRID1(1,jsta),TSL(1,jsta)) + CALL CALDWP(EGRID2(ista:iend,jsta:jend),QSL(ista:iend,jsta:jend),EGRID1(ista:iend,jsta:jend),TSL(ista:iend,jsta:jend)) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(TSL(I,J) < SPVAL) THEN GRID1(I,J) = EGRID1(I,J) ELSE @@ -1352,11 +1363,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(015)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(015)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1369,7 +1381,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(016)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QSL(I,J) ENDDO ENDDO @@ -1378,11 +1390,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(016)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(016)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1395,7 +1408,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(020)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = OSL(I,J) ENDDO ENDDO @@ -1421,11 +1434,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(020)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(020)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1438,7 +1452,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(284)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = WSL(I,J) ENDDO ENDDO @@ -1446,11 +1460,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(284)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(284)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1461,28 +1476,29 @@ SUBROUTINE MDL2P(iostatusD3D) ! IF(IGET(085) > 0)THEN IF(LVLS(LP,IGET(085)) > 0)THEN - CALL CALMCVG(QSL(1,jsta_2l),USL(1,jsta_2l),VSL(1,jsta_2l),EGRID1(1,jsta_2l)) + CALL CALMCVG(QSL(ista_2l,jsta_2l),USL(ista_2l,jsta_2l),VSL(ista_2l,jsta_2l),EGRID1(ista_2l,jsta_2l)) ! if(me == 0) print *,'after calmcvgme=',me,'USL=',USL(1:10,JSTA) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO !MEB NOT SURE IF I STILL NEED THIS ! CONVERT TO DIVERGENCE FOR GRIB UNITS ! -! CALL SCLFLD(GRID1,-1.0,IM,JM) +! CALL SCLFLD(GRID1(ista:iend,jsta:jend),-1.0,IM,JM) !MEB NOT SURE IF I STILL NEED THIS if(grib == 'grib2')then cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(085)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(085)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo ! if(me==0) print *,'in mdl2p,mconv, lp=',fld_info(cfld)%lvl,'lp=',lp @@ -1503,7 +1519,7 @@ SUBROUTINE MDL2P(iostatusD3D) if ( log1 ) then !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = USL(I,J) GRID2(I,J) = VSL(I,J) ENDDO @@ -1526,22 +1542,24 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(018)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(018)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(019)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(019)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -1556,7 +1574,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! print *,'me=',me,'EGRID1=',EGRID1(1:10,JSTA) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO @@ -1582,11 +1600,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(021)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(021)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1598,16 +1617,16 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(086)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FSL(I,J) 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = Q2SL(I,J) ENDDO ENDDO @@ -1644,11 +1664,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(022)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(022)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1663,7 +1684,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! GFS does not seperate cloud water from ice, hoping to do that in Feb 08 implementation !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(QW1(I,J) < SPVAL .AND. QI1(I,J) < SPVAL) THEN GRID1(I,J) = QW1(I,J) + QI1(I,J) QI1(I,J) = spval @@ -1675,7 +1696,7 @@ SUBROUTINE MDL2P(iostatusD3D) ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QW1(I,J) ENDDO ENDDO @@ -1684,11 +1705,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(153)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(153)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1701,7 +1723,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(166)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QI1(I,J) ENDDO ENDDO @@ -1709,11 +1731,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(166)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(166)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1725,7 +1748,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(183)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QR1(I,J) ENDDO ENDDO @@ -1733,11 +1756,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(183)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(183)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1749,7 +1773,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(184)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QS1(I,J) ENDDO ENDDO @@ -1757,11 +1781,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(184)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(184)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1773,7 +1798,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(416)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QG1(I,J) ENDDO ENDDO @@ -1781,11 +1806,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(416)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(416)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1798,7 +1824,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(198)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = C1D(I,J) ENDDO ENDDO @@ -1806,11 +1832,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(198)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(198)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1822,7 +1849,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(263)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = FRIME(I,J) ENDDO ENDDO @@ -1830,11 +1857,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(263)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(263)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1846,7 +1874,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(294)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RAD(I,J) ENDDO ENDDO @@ -1854,11 +1882,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(294)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(294)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1870,7 +1899,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(251)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DBZ1(I,J) ENDDO ENDDO @@ -1878,11 +1907,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(251)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(251)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1892,11 +1922,11 @@ SUBROUTINE MDL2P(iostatusD3D) !--- IN-FLIGHT ICING CONDITION: ADD BY B. ZHOU IF(IGET(257) > 0)THEN IF(LVLS(LP,IGET(257)) > 0)THEN - CALL CALICING(TSL(1,jsta), SAVRH, OSL(1,jsta), EGRID1(1,jsta)) + CALL CALICING(TSL(ista:iend,jsta:jend), SAVRH, OSL(ista:iend,jsta:jend), EGRID1(ista:iend,jsta:jend)) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO @@ -1904,11 +1934,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(257)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(257)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1923,7 +1954,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(LVLS(LP,IGET(258)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FSL(I,J) 3. .OR. GRID1(I,J) < 0.) ! + print*,'bad CAT',i,j,GRID1(I,J) @@ -1947,11 +1978,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(258)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(258)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1962,7 +1994,7 @@ SUBROUTINE MDL2P(iostatusD3D) !$omp parallel do private(i,j) DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U USL_OLD(I,J) = USL(I,J) VSL_OLD(I,J) = VSL(I,J) IF(FSL(I,J) 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = O3SL(I,J) ENDDO ENDDO @@ -1988,11 +2020,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(268)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(268)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2004,7 +2037,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(738)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(SMOKESL(I,J,1) 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DUSTSL(I,J,1) ENDDO ENDDO @@ -2040,11 +2074,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(438)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(438)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2055,7 +2090,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(439)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DUSTSL(I,J,2) ENDDO ENDDO @@ -2063,11 +2098,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(439)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(439)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2078,7 +2114,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(440)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DUSTSL(I,J,3) ENDDO ENDDO @@ -2086,11 +2122,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(440)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(440)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2101,7 +2138,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(441)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DUSTSL(I,J,4) ENDDO ENDDO @@ -2109,11 +2146,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(441)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(441)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2124,7 +2162,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(442)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DUSTSL(I,J,5) ENDDO ENDDO @@ -2132,11 +2170,12 @@ SUBROUTINE MDL2P(iostatusD3D) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(442)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(442)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2151,7 +2190,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(355)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,1) ENDDO ENDDO @@ -2183,11 +2222,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2198,7 +2238,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(354)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,2) ENDDO ENDDO @@ -2230,11 +2270,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2245,7 +2286,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(356)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,3) ENDDO ENDDO @@ -2277,11 +2318,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2292,7 +2334,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(357)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,4) ENDDO ENDDO @@ -2324,11 +2366,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2339,7 +2382,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(358)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,5) ENDDO ENDDO @@ -2371,11 +2414,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2386,7 +2430,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(359)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,6) ENDDO ENDDO @@ -2418,11 +2462,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2433,7 +2478,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(360)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,7) ENDDO ENDDO @@ -2465,11 +2510,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2480,7 +2526,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(361)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,8) ENDDO ENDDO @@ -2512,11 +2558,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2527,7 +2574,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(362)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,9) ENDDO ENDDO @@ -2559,11 +2606,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2574,7 +2622,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(363)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,10) ENDDO ENDDO @@ -2607,11 +2655,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2622,7 +2671,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(364)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,11) ENDDO ENDDO @@ -2655,11 +2704,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2670,7 +2720,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(365)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,12) ENDDO ENDDO @@ -2703,11 +2753,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2718,7 +2769,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(366)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,13) ENDDO ENDDO @@ -2751,11 +2802,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2766,7 +2818,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(367)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,14) ENDDO ENDDO @@ -2799,11 +2851,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2814,7 +2867,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(368)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,15) ENDDO ENDDO @@ -2847,11 +2900,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2862,7 +2916,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(369)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,16) ENDDO ENDDO @@ -2894,11 +2948,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2909,7 +2964,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(370)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,17) ENDDO ENDDO @@ -2942,11 +2997,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2957,7 +3013,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(371)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,18) ENDDO ENDDO @@ -2990,11 +3046,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3005,7 +3062,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(372)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,19) ENDDO ENDDO @@ -3037,11 +3094,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3052,7 +3110,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(373)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,20) ENDDO ENDDO @@ -3085,11 +3143,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3100,7 +3159,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(374)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,21) ENDDO ENDDO @@ -3133,11 +3192,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3148,7 +3208,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(375)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,22) ENDDO ENDDO @@ -3180,11 +3240,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3195,7 +3256,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(379)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(D3DSL(i,j,1)/=SPVAL)THEN GRID1(I,J) = D3DSL(i,j,1) + D3DSL(i,j,2) & + D3DSL(i,j,3) + D3DSL(i,j,4) & @@ -3233,11 +3294,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3248,7 +3310,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(391)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,23) ENDDO ENDDO @@ -3281,11 +3343,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3296,7 +3359,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(392)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,24) ENDDO ENDDO @@ -3329,11 +3392,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3344,7 +3408,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(393)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,25) ENDDO ENDDO @@ -3377,11 +3441,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3392,7 +3457,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(394)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,26) ENDDO ENDDO @@ -3425,11 +3490,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3440,7 +3506,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF (LVLS(LP,IGET(395)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = D3DSL(i,j,27) ENDDO ENDDO @@ -3473,11 +3539,12 @@ SUBROUTINE MDL2P(iostatusD3D) fld_info(cfld)%ntrange=(IFHR-ID(18))/ITD3D endif fld_info(cfld)%tinvstat=ITD3D -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3487,7 +3554,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! CHUANG: COMPUTE HAINES INDEX IF (IGET(455) > 0) THEN - ii=im/2+100 + ii=(ista+iend)/2+100 jj=(jsta+jend)/2-100 IF(ABS(SPL(LP)-50000.) 17. .AND. DUM1 <= 21.) THEN - ISTA = 2 + ISTAA = 2 ELSE - ISTA = 3 + ISTAA = 3 END IF DUM1 = TSL(I,J)-TDSL(I,J) IF(DUM1 <= 14.) THEN @@ -3523,7 +3590,7 @@ SUBROUTINE MDL2P(iostatusD3D) IMOIS = 3 END IF IF(TSL(I,J) 5. .AND. DUM1 <= 10.) THEN - ISTA = 2 + ISTAA = 2 ELSE - ISTA = 3 + ISTAA = 3 END IF DUM1 = TSL(I,J)-TDSL(I,J) IF(DUM1 <= 5.) THEN @@ -3569,7 +3636,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! if(i==570 .and. j==574)print*,'mid haines index:',i,j,luhi,tsl(i,j) & ! ,tprs(i,j,luhi),tdsl(i,j),ista,imois,spl(luhi),spl(lp),haines(i,j) IF(TSL(I,J) 3. .AND. DUM1 <=7. ) THEN - ISTA = 2 + ISTAA = 2 ELSE - ISTA = 3 + ISTAA = 3 END IF DUM1 = TSL(I,J)-TDSL(I,J) IF(DUM1 <=5. ) THEN @@ -3613,7 +3680,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! if(i==570 .and. j==574)print*,'low haines index:',i,j,luhi,tsl(i,j) & ! ,tprs(i,j,luhi),tdsl(i,j),ista,imois,spl(luhi),spl(lp),haines(i,j) IF(TSL(I,J) WONT DERIVE MESINGER SLP' END IF !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PSLP(I,J) ENDDO ENDDO @@ -3767,11 +3838,12 @@ SUBROUTINE MDL2P(iostatusD3D) if(grib == 'grib2')then cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(023)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3783,18 +3855,19 @@ SUBROUTINE MDL2P(iostatusD3D) CALL MAPSSLP(TPRS) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PSLP(I,J) ENDDO ENDDO if(grib == 'grib2') then cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(445)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3815,7 +3888,7 @@ SUBROUTINE MDL2P(iostatusD3D) ! because MOS can't adjust to the much lower H !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FSL(I,J)0) THEN !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FSL1(I,J)0) THEN !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AKH(I,J) ENDDO ENDDO if(grib=="grib2" )then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(243)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif if(me==0)print*,'output Heat Diffusivity' @@ -353,7 +354,7 @@ SUBROUTINE MDL2SIGMA NHOLD=0 ! DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U ! TSL(I,J)=SPVAL @@ -407,7 +408,7 @@ SUBROUTINE MDL2SIGMA !hc J=JHOLD(NN) DO 220 J=JSTA,JEND ! Moorthi on Nov 26 2014 ! DO 220 J=JSTA_2L,JEND_2U - DO 220 I=1,IM + DO 220 I=ISTA,IEND LL=NL1X(I,J) !--------------------------------------------------------------------- !*** VERTICAL INTERPOLATION OF GEOPOTENTIAL, TEMPERATURE, SPECIFIC @@ -555,7 +556,7 @@ SUBROUTINE MDL2SIGMA ! ! OBTAIN GEOPOTENTIAL AND KH ON INTERFACES DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U FSL(I,J)=SPVAL AKH(I,J)=SPVAL NL1XF(I,J)=LP1 @@ -571,7 +572,7 @@ SUBROUTINE MDL2SIGMA ! ! DO J=JSTA_2L,JEND_2U DO J=JSTA,JEND ! Moorthi on 26 Nov 2014 - DO I=1,IM + DO I=ISTA,IEND DONEFSL1=.FALSE. TSLDONE=.FALSE. LLMH = NINT(LMH(I,J)) @@ -721,22 +722,41 @@ SUBROUTINE MDL2SIGMA ! VERTICAL INTERPOLATION FOR WIND FOR E and B GRIDS ! if(gridtype=='B' .or. gridtype=='E') & - call exch(PINT(1:IM,JSTA_2L:JEND_2U,LP1)) + call exch(PINT(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LP1)) IF(gridtype=='E')THEN DO J=JSTA,JEND - DO I=1,IM-MOD(J,2) +! DO I=1,IM-MOD(J,2) + DO I=ISTA,IEND-MOD(J,2) !Jesse 20211014 ! !*** LOCATE VERTICAL INDEX OF MODEL MIDLAYER FOR V POINT JUST BELOW !*** THE PRESSURE LEVEL TO WHICH WE ARE INTERPOLATING. ! LLMH = NINT(LMH(I,J)) - IF(J == 1 .AND. I < IM)THEN !SOUTHERN BC + +!Jesse 20211014 +! IF(J == 1 .AND. I < IM)THEN !SOUTHERN BC +! PDV=0.5*(PINT(I,J,LLMH+1)+PINT(I+1,J,LLMH+1)) +! ELSE IF(J==JM .AND. I0)THEN !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FSL(I,J)0) THEN !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AKH(I,J) IF(LP==(LSIG+1))GRID1(I,J)=0.0 !! NO SLIP ASSUMTION FOR CMAQ ENDDO @@ -962,7 +1004,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(243)) fld_info(cfld)%lvl=LVLSXML(LP+1,IGET(243)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif if(me==0)print*,'output Heat Diffusivity' ENDIF @@ -973,7 +1015,7 @@ SUBROUTINE MDL2SIGMA IF(IGET(206)>0) THEN IF(LVLS(LP,IGET(206))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=TSL(I,J) ENDDO ENDDO @@ -981,7 +1023,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(206)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(206)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -992,7 +1034,7 @@ SUBROUTINE MDL2SIGMA IF(LVLS(LP,IGET(216))>0)THEN !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LLMH = NINT(LMH(I,J)) GRID1(I,J)=PTSIGO+ASIGO(LP)*(PINT(I,J,LLMH+1)-PTSIGO) ENDDO @@ -1001,7 +1043,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(216)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(216)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1011,7 +1053,7 @@ SUBROUTINE MDL2SIGMA IF(IGET(207)>0)THEN IF(LVLS(LP,IGET(207))>0)THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QSL(I,J) ENDDO ENDDO @@ -1020,7 +1062,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(207)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(207)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1030,7 +1072,7 @@ SUBROUTINE MDL2SIGMA IF(IGET(210)>0)THEN IF(LVLS(LP,IGET(210))>0)THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=OSL(I,J) ENDDO ENDDO @@ -1038,7 +1080,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(210)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(210)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1048,7 +1090,7 @@ SUBROUTINE MDL2SIGMA IF(IGET(208)>0.OR.IGET(209)>0)THEN IF(LVLS(LP,IGET(208))>0.OR.LVLS(LP,IGET(209))>0) then DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=USL(I,J) GRID2(I,J)=VSL(I,J) ENDDO @@ -1057,11 +1099,11 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(208)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(208)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(209)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(209)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID2(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1071,7 +1113,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(217)>0) THEN IF (LVLS(LP,IGET(217))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=Q2SL(I,J) ENDDO ENDDO @@ -1079,7 +1121,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(217)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(217)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1089,7 +1131,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(211)>0) THEN IF (LVLS(LP,IGET(211))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QW1(I,J) ENDDO ENDDO @@ -1097,7 +1139,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(211)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(211)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1107,7 +1149,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(212)>0) THEN IF (LVLS(LP,IGET(212))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QI1(I,J) ENDDO ENDDO @@ -1115,7 +1157,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(212)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(212)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1124,7 +1166,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(213)>0) THEN IF (LVLS(LP,IGET(213))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QR1(I,J) ENDDO ENDDO @@ -1132,7 +1174,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(213)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(213)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1141,7 +1183,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(214)>0) THEN IF (LVLS(LP,IGET(214))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QS1(I,J) ENDDO ENDDO @@ -1149,7 +1191,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(214)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(214)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1158,7 +1200,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(255)>0) THEN IF (LVLS(LP,IGET(255))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QG1(I,J) ENDDO ENDDO @@ -1166,7 +1208,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(255)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(255)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1175,7 +1217,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(215)>0) THEN IF (LVLS(LP,IGET(215))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=C1D(I,J) ENDDO ENDDO @@ -1183,7 +1225,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(215)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(215)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1192,7 +1234,7 @@ SUBROUTINE MDL2SIGMA IF (IGET(222)>0) THEN IF (LVLS(LP,IGET(222))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=CFRSIG(I,J) ENDDO ENDDO @@ -1200,7 +1242,7 @@ SUBROUTINE MDL2SIGMA cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(222)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(222)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF diff --git a/sorc/ncep_post.fd/MDL2SIGMA2.f b/sorc/ncep_post.fd/MDL2SIGMA2.f index 1efa8da73..a02107e10 100644 --- a/sorc/ncep_post.fd/MDL2SIGMA2.f +++ b/sorc/ncep_post.fd/MDL2SIGMA2.f @@ -20,6 +20,7 @@ !! 20-03-25 J MENG - remove grib1 !! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) !! 21-07-26 W Meng - Restrict compuatation from undefined grids +!! 21-10-14 J MENG - 2D DECOMPOSITION !! !! USAGE: CALL MDL2P !! INPUT ARGUMENT LIST: @@ -50,7 +51,8 @@ SUBROUTINE MDL2SIGMA2 use masks, only: lmh use params_mod, only: pq0, a2, a3, a4, rgamog use ctlblk_mod, only: pt, jsta_2l, jend_2u, spval, lp1, lm, jsta, jend,& - grib, cfld, datapd, fld_info, im, jm, im_jm + grib, cfld, datapd, fld_info, im, jm, im_jm, & + ista, iend, ista_2l, iend_2u use rqstfld_mod, only: iget, lvls, id, iavblfld, lvlsxml ! implicit none @@ -61,12 +63,12 @@ SUBROUTINE MDL2SIGMA2 ! LOGICAL READTHK ! REAL,dimension(im,jm) :: FSL, TSL, QSL, osl, usl, vsl, q2sl, fsl1, & - REAL,dimension(im,jsta_2l:jend_2u) :: TSL - REAL,dimension(im,jsta_2l:jend_2u) :: grid1 + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: TSL + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: grid1 REAL SIGO(LSIG+1),DSIGO(LSIG),ASIGO(LSIG) ! ! INTEGER,dimension(im,jm) :: IHOLD,JHOLD,NL1X,NL1XF - INTEGER,dimension(im,jsta_2l:jend_2u) :: NL1X + INTEGER,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: NL1X ! ! !--- Definition of the following 2D (horizontal) dummy variables @@ -134,7 +136,7 @@ SUBROUTINE MDL2SIGMA2 NHOLD=0 ! DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U ! TSL(I,J)=SPVAL @@ -175,7 +177,7 @@ SUBROUTINE MDL2SIGMA2 ! DO 220 J=JSTA,JEND ! DO 220 J=JSTA_2L,JEND_2U DO 220 J=JSTA,JEND ! Moorthi on Nov 26, 2014 - DO 220 I=1,IM + DO 220 I=ISTA,IEND LL=NL1X(I,J) !--------------------------------------------------------------------- !*** VERTICAL INTERPOLATION OF GEOPOTENTIAL, TEMPERATURE, SPECIFIC @@ -264,7 +266,7 @@ SUBROUTINE MDL2SIGMA2 IF(IGET(296)>0) THEN IF(LVLS(LP,IGET(296))>0)THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=TSL(I,J) ENDDO ENDDO @@ -272,7 +274,7 @@ SUBROUTINE MDL2SIGMA2 cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(296)) fld_info(cfld)%lvl=LVLSXML(LP,IGET(296)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF diff --git a/sorc/ncep_post.fd/MDL2STD_P.f b/sorc/ncep_post.fd/MDL2STD_P.f index 3dc0edb62..ee5ff8a94 100644 --- a/sorc/ncep_post.fd/MDL2STD_P.f +++ b/sorc/ncep_post.fd/MDL2STD_P.f @@ -11,6 +11,7 @@ !> 2020-05-20 | J Meng | CALRH unification with NAM scheme !> 2020-11-10 | J Meng | Use UPP_PHYSICS Module !> 2021-03-11 | B Cui | Change local arrays to dimension (im,jsta:jend) +!> 2021-10-14 | J MENG | 2D DECOMPOSITION !> !> @author Y Mao W/NP22 @date 2019-09-24 SUBROUTINE MDL2STD_P() @@ -22,10 +23,11 @@ SUBROUTINE MDL2STD_P() use vrbls3d, only: ICING_GFIP, ICING_GFIS, catedr, mwt, gtg use ctlblk_mod, only: grib, cfld, fld_info, datapd, im, jsta, jend, jm, & lm, htfd, spval, nfd, me,& - jsta_2l, jend_2u, MODELNAME + jsta_2l, jend_2u, MODELNAME,& + ista, iend, ista_2l, iend_2u use rqstfld_mod, only: iget, lvls, iavblfld, lvlsxml use grib2_module, only: pset - use upp_physics, only: CALRH + use upp_physics, only: CALRH, CALVOR !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! @@ -33,11 +35,11 @@ SUBROUTINE MDL2STD_P() real, external :: P2H, relabel - real,dimension(im,jsta_2l:jend_2u) :: grid1 - real,dimension(im,jsta_2l:jend_2u) :: EGRID1,EGRID2,EGRID3,EGRID4 + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: grid1 + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: EGRID1,EGRID2,EGRID3,EGRID4 ! - integer I,J,jj,L,ITYPE,IFD,ITYPEFDLVL(NFD) + integer I,J,ii,jj,L,ITYPE,IFD,ITYPEFDLVL(NFD) ! Variables introduced to allow FD levels from control file - Y Mao integer :: N,NFDCTL @@ -97,8 +99,8 @@ SUBROUTINE MDL2STD_P() ENDDO if(allocated(VAR3D1)) deallocate(VAR3D1) if(allocated(VAR3D2)) deallocate(VAR3D2) - allocate(VAR3D1(IM,JSTA_2L:JEND_2U,NFDCTL)) - allocate(VAR3D2(IM,JSTA_2L:JEND_2U,NFDCTL)) + allocate(VAR3D1(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NFDCTL)) + allocate(VAR3D2(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,NFDCTL)) VAR3D1=SPVAL VAR3D2=SPVAL @@ -109,7 +111,7 @@ SUBROUTINE MDL2STD_P() IF (LVLS(IFD,IGET(520)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=VAR3D1(I,J,IFD) ENDDO ENDDO @@ -117,11 +119,12 @@ SUBROUTINE MDL2STD_P() cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(520)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(520)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -130,7 +133,7 @@ SUBROUTINE MDL2STD_P() IF (LVLS(IFD,IGET(521)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=VAR3D2(I,J,IFD) ENDDO ENDDO @@ -138,23 +141,24 @@ SUBROUTINE MDL2STD_P() cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(521)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(521)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif ENDIF ! ABSV IF (LVLS(IFD,IGET(524)) > 0) THEN - EGRID1=VAR3D1(1:IM,JSTA_2L:JEND_2U,IFD) - EGRID2=VAR3D2(1:IM,JSTA_2L:JEND_2U,IFD) + EGRID1=VAR3D1(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,IFD) + EGRID2=VAR3D2(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,IFD) call CALVOR(EGRID1,EGRID2,EGRID3) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=EGRID3(I,J) ENDDO ENDDO @@ -162,11 +166,12 @@ SUBROUTINE MDL2STD_P() cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(524)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(524)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -184,7 +189,7 @@ SUBROUTINE MDL2STD_P() if(allocated(QIN)) deallocate(QIN) if(allocated(QTYPE)) deallocate(QTYPE) - ALLOCATE(QIN(IM,JSTA:JEND,LM,NFDMAX)) + ALLOCATE(QIN(ISTA:IEND,JSTA:JEND,LM,NFDMAX)) ALLOCATE(QTYPE(NFDMAX)) ! INITIALIZE INPUTS @@ -192,53 +197,53 @@ SUBROUTINE MDL2STD_P() IF(IGET(450) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 450 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=icing_gfip(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=icing_gfip(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="O" end if IF(IGET(480) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 480 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=icing_gfis(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=icing_gfis(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="O" end if IF(IGET(464) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 464 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=gtg(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=gtg(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="O" end if IF(IGET(465) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 465 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=catedr(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=catedr(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="O" end if IF(IGET(466) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 466 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=mwt(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=mwt(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="O" end if IF(IGET(519) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 519 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=T(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=T(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="T" end if IF(IGET(523) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 523 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=OMGA(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=OMGA(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="W" end if IF(IGET(525) > 0) THEN nFDS = nFDS + 1 IDS(nFDS) = 525 - QIN(1:IM,JSTA:JEND,1:LM,nFDS)=QQW(1:IM,JSTA:JEND,1:LM)+ & - QQR(1:IM,JSTA:JEND,1:LM)+ & - QQS(1:IM,JSTA:JEND,1:LM)+ & - QQG(1:IM,JSTA:JEND,1:LM)+ & - QQI(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,nFDS)=QQW(ISTA:IEND,JSTA:JEND,1:LM)+ & + QQR(ISTA:IEND,JSTA:JEND,1:LM)+ & + QQS(ISTA:IEND,JSTA:JEND,1:LM)+ & + QQG(ISTA:IEND,JSTA:JEND,1:LM)+ & + QQI(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(nFDS)="C" end if @@ -259,7 +264,7 @@ SUBROUTINE MDL2STD_P() ENDDO if(allocated(QFD)) deallocate(QFD) - ALLOCATE(QFD(IM,JSTA:JEND,NFDCTL,nFDS)) + ALLOCATE(QFD(ISTA:IEND,JSTA:JEND,NFDCTL,nFDS)) QFD=SPVAL call FDLVL_MASS(ITYPEFDLVLCTL,NFDCTL,pset%param(N)%level,HTFDCTL,nFDS,QIN,QTYPE,QFD) @@ -274,7 +279,7 @@ SUBROUTINE MDL2STD_P() N1=N DO IFD = 1,NFDCTL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(QFD(I,J,IFD,N) < SPVAL) then QFD(I,J,IFD,N)=max(0.0,QFD(I,J,IFD,N)) QFD(I,J,IFD,N)=min(1.0,QFD(I,J,IFD,N)) @@ -289,7 +294,7 @@ SUBROUTINE MDL2STD_P() N1=N DO IFD = 1,NFDCTL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(QFD(I,J,IFD,N) < SPVAL) then QFD(I,J,IFD,N)=max(0.0,QFD(I,J,IFD,N)) endif @@ -308,7 +313,7 @@ SUBROUTINE MDL2STD_P() if(iID==480) then DO IFD = 1,NFDCTL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(N1 > 0) then ! Icing severity is 0 when icing potential is too small if(QFD(I,J,IFD,N1) < 0.001) QFD(I,J,IFD,N)=0. @@ -334,7 +339,7 @@ SUBROUTINE MDL2STD_P() if(iID==464 .or. iID==465 .or. iID==466) then DO IFD = 1,NFDCTL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(QFD(I,J,IFD,N) < SPVAL) then QFD(I,J,IFD,N)=max(0.0,QFD(I,J,IFD,N)) QFD(I,J,IFD,N)=min(1.0,QFD(I,J,IFD,N)) @@ -353,7 +358,7 @@ SUBROUTINE MDL2STD_P() IF (LVLS(IFD,IGET(iID)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QFD(I,J,IFD,N) ENDDO ENDDO @@ -361,11 +366,12 @@ SUBROUTINE MDL2STD_P() cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(iID)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(iID)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -395,7 +401,7 @@ SUBROUTINE MDL2STD_P() IF (LVLS(IFD,IGET(iID)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=HTFDCTL(IFD) ENDDO ENDDO @@ -403,11 +409,12 @@ SUBROUTINE MDL2STD_P() cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(iID)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(iID)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -434,15 +441,15 @@ SUBROUTINE MDL2STD_P() if(allocated(QIN)) deallocate(QIN) if(allocated(QTYPE)) deallocate(QTYPE) - ALLOCATE(QIN(IM,JSTA:JEND,LM,2)) + ALLOCATE(QIN(ISTA:IEND,JSTA:JEND,LM,2)) ALLOCATE(QTYPE(2)) - QIN(1:IM,JSTA:JEND,1:LM,1)=T(1:IM,JSTA:JEND,1:LM) - QIN(1:IM,JSTA:JEND,1:LM,2)=Q(1:IM,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,1)=T(ISTA:IEND,JSTA:JEND,1:LM) + QIN(ISTA:IEND,JSTA:JEND,1:LM,2)=Q(ISTA:IEND,JSTA:JEND,1:LM) QTYPE(1)="T" QTYPE(2)="Q" if(allocated(QFD)) deallocate(QFD) - ALLOCATE(QFD(IM,JSTA:JEND,NFDCTL,2)) + ALLOCATE(QFD(ISTA:IEND,JSTA:JEND,NFDCTL,2)) QFD=SPVAL print *, "wafs levels",pset%param(N)%level @@ -454,20 +461,20 @@ SUBROUTINE MDL2STD_P() IF (LVLS(IFD,IGET(iID)) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID2(I,J) = HTFDCTL(IFD) ! P ENDDO ENDDO - EGRID3(1:IM,JSTA:JEND)=QFD(1:IM,JSTA:JEND,IFD,1) ! T - EGRID4(1:IM,JSTA:JEND)=QFD(1:IM,JSTA:JEND,IFD,2) ! Q + EGRID3(ISTA:IEND,JSTA:JEND)=QFD(ISTA:IEND,JSTA:JEND,IFD,1) ! T + EGRID4(ISTA:IEND,JSTA:JEND)=QFD(ISTA:IEND,JSTA:JEND,IFD,2) ! Q EGRID1 = SPVAL - CALL CALRH(EGRID2(1,jsta),EGRID3(1,jsta),EGRID4(1,jsta),EGRID1(1,jsta)) + CALL CALRH(EGRID2(ista:iend,jsta:jend),EGRID3(ista:iend,jsta:jend),EGRID4(ista:iend,jsta:jend),EGRID1(ista:iend,jsta:jend)) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(EGRID1(I,J) < SPVAL) THEN GRID1(I,J) = EGRID1(I,J)*100. ELSE @@ -480,10 +487,11 @@ SUBROUTINE MDL2STD_P() cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(iID)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(iID)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im + do i=1,iend-ista+1 + ii = ista+i-1 datapd(i,j,cfld) = GRID1(i,jj) enddo enddo diff --git a/sorc/ncep_post.fd/MDL2THANDPV.f b/sorc/ncep_post.fd/MDL2THANDPV.f index 686139561..8d70c2ee4 100644 --- a/sorc/ncep_post.fd/MDL2THANDPV.f +++ b/sorc/ncep_post.fd/MDL2THANDPV.f @@ -16,6 +16,7 @@ !> 2020-03-25 | J Meng | Remove grib1 !> 2020-11-10 | J Meng | Use UPP_MATH and UPP_PHYSICS Modules !> 2021-03-11 | B Cui | Change local arrays to dimension (im,jsta:jend) +!> 2021-10-26 | J MENG | 2D DECOMPOSITION !> !> @author Chuang W/NP22 @date 2007-03-26 SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) @@ -27,8 +28,9 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) use masks, only: gdlat, gdlon, dx, dy use physcons_post, only: con_eps, con_epsm1 use params_mod, only: dtr, small, erad, d608, rhmin - use CTLBLK_mod, only: spval, lm, jsta_2l, jend_2u, jsta_2l, grib, cfld, datapd, fld_info,& - im, jm, jsta, jend, jsta_m, jend_m, modelname, global,gdsdegr,me + use CTLBLK_mod, only: spval, lm, jsta_2l, jend_2u, grib, cfld, datapd, fld_info,& + im, jm, jsta, jend, jsta_m, jend_m, modelname, global,gdsdegr,me,& + ista, iend, ista_m, iend_m, ista_2l, iend_2u use RQSTFLD_mod, only: iget, lvls, id, iavblfld, lvlsxml use gridspec_mod, only: gridtype,dyval use upp_physics, only: FPVSNEW @@ -40,7 +42,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ! integer,intent(in) :: kth, kpv real, intent(in) :: th(kth), pv(kpv) - real, dimension(im,jsta:jend) :: grid1, grid2 + real, dimension(ista:iend,jsta:jend) :: grid1, grid2 real, dimension(kpv) :: pvpt, pvpb LOGICAL IOOMG,IOALL @@ -51,11 +53,14 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) , DUM1D9(:), DUM1D10(:),DUM1D11(:) & , DUM1D12(:),DUM1D13(:),DUM1D14(:) ! - real, dimension(IM,JSTA:JEND,KTH) :: UTH, VTH, HMTH, TTH, PVTH, & + real, dimension(ISTA:IEND,JSTA:JEND,KTH) :: UTH, VTH, HMTH, TTH, PVTH, & SIGMATH, RHTH, OTH - real, dimension(IM,JSTA:JEND,KPV) :: UPV, VPV, HPV, TPV, PPV, SPV + real, dimension(ISTA:IEND,JSTA:JEND,KPV) :: UPV, VPV, HPV, TPV, PPV, SPV + real, dimension(IM,2) :: GLATPOLES, COSLPOLES, PVPOLES + real, dimension(IM,2,LM) :: UPOLES, TPOLES, PPOLES + real, dimension(IM,JSTA:JEND) :: COSLTEMP, PVTEMP ! - real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), wrk4(:,:), cosl(:,:) + real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), wrk4(:,:), cosl(:,:), dum2d(:,:) real, allocatable :: tuv(:,:,:),pmiduv(:,:,:) ! integer, dimension(im) :: iw, ie @@ -67,7 +72,9 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) !****************************************************************************** ! ! START MDL2TH. -! +! + if(me==0) write(0,*) 'MDL2THANDPV starts' +! ! SET TOTAL NUMBER OF POINTS ON OUTPUT GRID. ! !--------------------------------------------------------------- @@ -98,7 +105,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) do k=1,kth !$omp parallel do private(i,j) do j=jsta,jend - do i=1,im + do i=ista,iend UTH(i,j,k) = SPVAL VTH(i,j,k) = SPVAL HMTH(i,j,k) = SPVAL @@ -113,7 +120,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) do k=1,kpv !$omp parallel do private(i,j) do j=jsta,jend - do i=1,im + do i=ista,iend UPV(i,j,k) = SPVAL VPV(i,j,k) = SPVAL HPV(i,j,k) = SPVAL @@ -130,20 +137,24 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ALLOCATE(DUM1D14(LM)) ! DO L=1,LM - CALL EXCH(PMID(1:IM,JSTA_2L:JEND_2U,L)) - CALL EXCH(T(1:IM,JSTA_2L:JEND_2U,L)) - CALL EXCH(UH(1:IM,JSTA_2L:JEND_2U,L)) + CALL EXCH(PMID(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) + CALL EXCH(T(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) + CALL EXCH(UH(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) + CALL EXCH(VH(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) END DO - CALL EXCH(GDLAT(1,JSTA_2L)) + CALL EXCH(GDLAT(ISTA_2L,JSTA_2L)) + CALL EXCH(GDLON(ISTA_2L,JSTA_2L)) ! print *,' JSTA_2L=',JSTA_2L,' JSTA=',JSTA_2L,' JEND_2U=', & ! &JEND_2U,' JEND=',JEND,' IM=',IM ! print *,' GDLATa=',gdlat(1,:) ! print *,' GDLATb=',gdlat(im,:) ! - allocate (wrk1(im,jsta:jend), wrk2(im,jsta:jend), & - & wrk3(im,jsta:jend), cosl(im,jsta_2l:jend_2u)) - allocate (wrk4(im,jsta:jend)) + allocate (wrk1(ista:iend,jsta:jend), wrk2(ista:iend,jsta:jend), & + & wrk3(ista:iend,jsta:jend), cosl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate (dum2d(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate (wrk4(ista:iend,jsta:jend)) + imb2 = im /2 eradi = 1.0 / erad @@ -154,12 +165,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ie(i) = i + 1 iw(i) = i - 1 enddo - iw(1) = im - ie(im) = 1 +! iw(1) = im +! ie(im) = 1 ! !$omp parallel do private(i,j,ip1,im1) DO J=JSTA,JEND - do i=1,im + do i=ISTA,IEND ip1 = ie(i) im1 = iw(i) cosl(i,j) = cos(gdlat(i,j)*dtr) @@ -176,27 +187,31 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) wrk4(i,j) = wrk1(i,j) * wrk2(i,j) ! 1/dx enddo enddo -! CALL EXCH(cosl(1,JSTA_2L)) CALL EXCH(cosl) + + call fullpole(cosl,coslpoles) + call fullpole(gdlat(ista_2l:iend_2u,jsta_2l:jend_2u),glatpoles) !$omp parallel do private(i,j,ii,tem) DO J=JSTA,JEND if (j == 1) then - do i=1,im + do i=ISTA,IEND ii = i + imb2 if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi + ! wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi + wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GLATPOLES(II,1))*DTR) !1/dphi enddo elseif (j == JM) then - do i=1,im + do i=ISTA,IEND ii = i + imb2 if (ii > im) ii = ii - im - wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) !1/dphi + ! wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) !1/dphi + wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GLATPOLES(II,2))*DTR) !1/dphi enddo else !print *,' j=',j,' GDLATJm1=',gdlat(:,j-1) !print *,' j=',j,' GDLATJp1=',gdlat(:,j+1) - do i=1,im + do i=ISTA,IEND tem = GDLAT(I,J-1) - GDLAT(I,J+1) if (abs(tem) > small) then wrk3(i,j) = 1.0 / (tem*DTR) !1/dphi @@ -211,7 +226,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) else !!global? !$omp parallel do private(i,j) DO J=JSTA_m,Jend_m - DO I=2,im-1 + DO I=ISTA_M,IEND_M wrk2(i,j) = 0.5 / DX(I,J) wrk3(i,j) = 0.5 / DY(I,J) END DO @@ -220,20 +235,26 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ! need to put T and P on V points for computing dp/dx for e grid IF(GRIDTYPE == 'E')THEN - allocate(tuv(1:im,jsta_2l:jend_2u,lm)) - allocate(pmiduv(1:im,jsta_2l:jend_2u,lm)) + allocate(tuv(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(pmiduv(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) do l=1,lm - call h2u(t(1:im,jsta_2l:jend_2u,l),tuv(1:im,jsta_2l:jend_2u,l)) - call h2u(pmid(1:im,jsta_2l:jend_2u,l),pmiduv(1:im,jsta_2l:jend_2u,l)) + call h2u(t(ista_2l:iend_2u,jsta_2l:jend_2u,l),tuv(ista_2l:iend_2u,jsta_2l:jend_2u,l)) + call h2u(pmid(ista_2l:iend_2u,jsta_2l:jend_2u,l),pmiduv(ista_2l:iend_2u,jsta_2l:jend_2u,l)) end do end if !add A-grid regional models IF(GRIDTYPE == 'A')THEN IF(MODELNAME == 'GFS' .or. global) THEN + + DO L=1,LM + CALL FULLPOLE(PMID(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L),PPOLES(:,:,L)) + CALL FULLPOLE( T(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L),TPOLES(:,:,L)) + CALL FULLPOLE( UH(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L),UPOLES(:,:,L)) + ENDDO !!$omp parallel do private(i,j,ip1,im1,ii,jj,l,es,dum1d1,dum1d2,dum1d3,dum1d4,dum1d5,dum1d6,dum1d14,tem) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ip1 = ie(i) im1 = iw(i) ii = i + imb2 @@ -249,10 +270,13 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) DUM1D14(L) = Q(I,J,L) * (PMID(I,J,L)+CON_EPSM1*ES)/(CON_EPS*ES) ! RH DUM1D1(L) = (PMID(ip1,J,L)- PMID(im1,J,L)) * wrk4(i,j) !dp/dx DUM1D3(L) = (T(ip1,J,L) - T(im1,J,L)) * wrk4(i,j) !dt/dx - DUM1D2(L) = (PMID(II,J,L) - PMID(I,J+1,L)) * tem !dp/dy - DUM1D4(L) = (T(II,J,L) - T(I,J+1,L)) * tem !dt/dy + ! DUM1D2(L) = (PMID(II,J,L) - PMID(I,J+1,L)) * tem !dp/dy + DUM1D2(L) = (PPOLES(II,1,L) - PMID(I,J+1,L)) * tem !dp/dy + ! DUM1D4(L) = (T(II,J,L) - T(I,J+1,L)) * tem !dt/dy + DUM1D4(L) = (TPOLES(II,1,L) - T(I,J+1,L)) * tem !dt/dy DUM1D6(L) = ((VH(ip1,J,L)-VH(im1,J,L))*wrk2(i,j) & - & + (UH(II,J,L)*COSL(II,J) & + !& ! + (UH(II,J,L)*COSL(II,J) & + & + (UPOLES(II,1,L)*COSLPOLES(II,1) & & + UH(I,J+1,L)*COSL(I,J+1))*wrk3(i,j))*wrk1(i,j) & & + F(I,J) END DO @@ -284,11 +308,14 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) DUM1D14(L) = Q(I,J,L) * (PMID(I,J,L)+CON_EPSM1*ES)/(CON_EPS*ES) ! RH DUM1D1(L) = (PMID(ip1,J,L)- PMID(im1,J,L)) * wrk4(i,j) !dp/dx DUM1D3(L) = (T(ip1,J,L) - T(im1,J,L)) * wrk4(i,j) !dt/dx - DUM1D2(L) = (PMID(I,J-1,L)-PMID(II,J,L)) * tem !dp/dy - DUM1D4(L) = (T(I,J-1,L)-T(II,J,L)) * tem !dt/dy + ! DUM1D2(L) = (PMID(I,J-1,L)-PMID(II,J,L)) * tem !dp/dy + DUM1D2(L) = (PMID(I,J-1,L)-PPOLES(II,2,L)) * tem !dp/dy + ! DUM1D4(L) = (T(I,J-1,L)-T(II,J,L)) * tem !dt/dy + DUM1D4(L) = (T(I,J-1,L)-TPOLES(II,2,L)) * tem !dt/dy DUM1D6(L) = ((VH(ip1,J,L)-VH(im1,J,L))* wrk2(i,j) & & + (UH(I,J-1,L)*COSL(I,J-1) & - & + UH(II,J,L)*COSL(II,J))*wrk3(i,j))*wrk1(i,j) & + !& ! + UH(II,J,L)*COSL(II,J))*wrk3(i,j))*wrk1(i,j) & + & + UPOLES(II,2,L)*COSLPOLES(II,2))*wrk3(i,j))*wrk1(i,j) & & + F(I,J) END DO ELSE !pole point, compute at j=jm-1 @@ -336,7 +363,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) DO L=1,LM print*,pmid(i,j,l),dum1d1(l),dum1d2(l),dum1d5(l) & ,dum1d3(l),dum1d4(l),zmid(i,j,l),uh(i,j,l),vh(i,j,l) & - ,dum1d6(l) + ,dum1d6(l),L end do end if @@ -350,7 +377,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ,'hm,s,bvf2,pvn,theta,sigma,pvu= ' DO L=1,LM print*,dum1d7(l),dum1d8(l),dum1d9(l),dum1d10(l),dum1d11(l) & - ,dum1d12(l),dum1d13(l) + ,dum1d12(l),dum1d13(l),L end do end if @@ -389,7 +416,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) DO J=JSTA_m,Jend_m JMT2=JM/2+1 TPHI=(J-JMT2)*(DYVAL/gdsdegr)*DTR - DO I=2,im-1 + DO I=ISTA_M,IEND_M ip1 = i + 1 im1 = i - 1 tem = wrk3(i,j) * eradi @@ -429,7 +456,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ,'hm,s,bvf2,pvn,theta,sigma,pvu,pvort= ' DO L=1,LM print*,dum1d7(l),dum1d8(l),dum1d9(l),dum1d10(l),dum1d11(l) & - ,dum1d12(l),dum1d13(l),DUM1D6(l) + ,dum1d12(l),dum1d13(l),DUM1D6(l),L end do end if @@ -465,14 +492,15 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ENDIF !regional models and A-grid end here !----------------------------------------------------------------- ELSE IF (GRIDTYPE == 'B')THEN - allocate(DVDXL(1:im,jsta_m:jend_m,lm)) - allocate(DUDYL(1:im,jsta_m:jend_m,lm)) - allocate(UAVGL(1:im,jsta_m:jend_m,lm)) + allocate(DVDXL(ista_m:iend_m,jsta_m:jend_m,lm)) + allocate(DUDYL(ista_m:iend_m,jsta_m:jend_m,lm)) + allocate(UAVGL(ista_m:iend_m,jsta_m:jend_m,lm)) DO L=1,LM - CALL EXCH(VH(1:IM,JSTA_2L:JEND_2U,L)) + CALL EXCH(VH(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) + CALL EXCH(UH(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,L)) CALL DVDXDUDY(UH(:,:,L),VH(:,:,L)) DO J=JSTA_m,Jend_m - DO I=2,im-1 + DO I=ISTA_M,IEND_M DVDXL(I,J,L) = DDVDX(I,J) DUDYL(I,J,L) = DDUDY(I,J) UAVGL(I,J,L) = UUAVG(I,J) @@ -482,7 +510,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) DO J=JSTA_m,Jend_m JMT2=JM/2+1 TPHI=(J-JMT2)*(DYVAL/gdsdegr)*DTR - DO I=2,im-1 + DO I=ISTA_M,IEND_M ip1 = i + 1 im1 = i - 1 DO L=1,LM @@ -559,7 +587,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) TPHI = (J-JMT2)*(DYVAL/gdsdegr)*DTR IHW= - MOD(J,2) IHE = IHW + 1 - DO I=2,im-1 + DO I=ISTA_M,IEND_M ip1 = i + 1 im1 = i - 1 DO L=1,LM @@ -652,7 +680,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(LVLS(LP,IGET(332)) > 0 .OR. LVLS(LP,IGET(333)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = UTH(I,J,LP) GRID2(I,J) = VTH(I,J,LP) ENDDO @@ -661,21 +689,23 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(332)) fld_info(cfld)%lvl = LVLSXML(lp,IGET(332)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET(333)) fld_info(cfld)%lvl = LVLSXML(lp,IGET(333)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -710,7 +740,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ! END IF !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TTH(I,J,LP) ENDDO ENDDO @@ -718,11 +748,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(334)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(334)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -733,14 +764,30 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) ! IF(IGET(335) > 0) THEN IF(LVLS(LP,IGET(335)) > 0)THEN - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & - ,SPVAL,PVTH(1:IM,JSTA:JEND,LP)) - IF(1>=jsta .and. 1<=jend)print*,'PVTH at N POLE= ' & - ,pvth(1,1,lp),pvth(im/2,1,lp) & - ,pvth(10,10,lp),pvth(im/2,10,lp),SPVAL,grib,LP + ! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & + ! ,SPVAL,PVTH(1:IM,JSTA:JEND,LP)) + ! IF(1>=jsta .and. 1<=jend)print*,'PVTH at N POLE= ' & + ! ,pvth(1,1,lp),pvth(im/2,1,lp) & + ! ,pvth(10,10,lp),pvth(im/2,10,lp),SPVAL,grib,LP + DUM2D(ISTA:IEND,JSTA:JEND)=PVTH(ISTA:IEND,JSTA:JEND,LP) + CALL EXCH(DUM2D) + CALL FULLPOLE(DUM2D,PVPOLES) + COSLTEMP=SPVAL + IF(JSTA== 1) COSLTEMP(1:IM, 1)=COSLPOLES(1:IM,1) + IF(JEND==JM) COSLTEMP(1:IM,JM)=COSLPOLES(1:IM,2) + PVTEMP=SPVAL + IF(JSTA== 1) PVTEMP(1:IM, 1)=PVPOLES(1:IM,1) + IF(JEND==JM) PVTEMP(1:IM,JM)=PVPOLES(1:IM,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,COSLTEMP(1:IM,JSTA:JEND) & + ,SPVAL,PVTEMP(1:IM,JSTA:JEND)) + + IF(JSTA== 1) PVTH(ISTA:IEND, 1,LP)=PVTEMP(ISTA:IEND, 1) + IF(JEND==JM) PVTH(ISTA:IEND,JM,LP)=PVTEMP(ISTA:IEND,JM) + !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(PVTH(I,J,LP) /= SPVAL)THEN GRID1(I,J) = PVTH(I,J,LP)*1.0E-6 ELSE @@ -752,11 +799,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(335)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(335)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -769,7 +817,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(LVLS(LP,IGET(353)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = HMTH(I,J,LP) ENDDO ENDDO @@ -777,11 +825,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(353)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(353)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -794,7 +843,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(LVLS(LP,IGET(351)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SIGMATH(I,J,LP) ENDDO ENDDO @@ -802,11 +851,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(351)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(351)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -819,7 +869,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(LVLS(LP,IGET(352)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RHTH(I,J,LP) /= SPVAL) THEN GRID1(I,J) = 100.0 * MIN(1.,MAX(RHmin,RHTH(I,J,LP))) ELSE @@ -831,11 +881,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(352)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(352)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -848,7 +899,7 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(LVLS(LP,IGET(378)) > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = OTH(I,J,LP) ENDDO ENDDO @@ -856,11 +907,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(378)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(378)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -874,11 +926,27 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(IGET(336) > 0.OR.IGET(337) > 0)THEN IF(LVLS(LP,IGET(336)) > 0.OR.LVLS(LP,IGET(337)) > 0)THEN ! GFS use lon avg as one scaler value for pole point - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & - ,SPVAL,VPV(1:IM,JSTA:JEND,LP)) + ! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & + ! ,SPVAL,VPV(1:IM,JSTA:JEND,LP)) + DUM2D(ISTA:IEND,JSTA:JEND)=VPV(ISTA:IEND,JSTA:JEND,LP) + CALL EXCH(DUM2D) + CALL FULLPOLE(DUM2D,PVPOLES) + COSLTEMP=SPVAL + IF(JSTA== 1) COSLTEMP(1:IM, 1)=COSLPOLES(1:IM,1) + IF(JEND==JM) COSLTEMP(1:IM,JM)=COSLPOLES(1:IM,2) + PVTEMP=SPVAL + IF(JSTA== 1) PVTEMP(1:IM, 1)=PVPOLES(1:IM,1) + IF(JEND==JM) PVTEMP(1:IM,JM)=PVPOLES(1:IM,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,COSLTEMP(1:IM,JSTA:JEND) & + ,SPVAL,PVTEMP(1:IM,JSTA:JEND)) + + IF(JSTA== 1) VPV(ISTA:IEND, 1,LP)=PVTEMP(ISTA:IEND, 1) + IF(JEND==JM) VPV(ISTA:IEND,JM,LP)=PVTEMP(ISTA:IEND,JM) + !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = UPV(I,J,LP) GRID2(I,J) = VPV(I,J,LP) ENDDO @@ -887,21 +955,23 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(336)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(336)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(337)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(337)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -914,11 +984,27 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(IGET(338) > 0)THEN IF(LVLS(LP,IGET(338)) > 0)THEN ! GFS use lon avg as one scaler value for pole point - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & - ,SPVAL,TPV(1:IM,JSTA:JEND,LP)) + ! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & + ! ,SPVAL,TPV(1:IM,JSTA:JEND,LP)) + DUM2D(ISTA:IEND,JSTA:JEND)=TPV(ISTA:IEND,JSTA:JEND,LP) + CALL EXCH(DUM2D) + CALL FULLPOLE(DUM2D,PVPOLES) + COSLTEMP=SPVAL + IF(JSTA== 1) COSLTEMP(1:IM, 1)=COSLPOLES(1:IM,1) + IF(JEND==JM) COSLTEMP(1:IM,JM)=COSLPOLES(1:IM,2) + PVTEMP=SPVAL + IF(JSTA== 1) PVTEMP(1:IM, 1)=PVPOLES(1:IM,1) + IF(JEND==JM) PVTEMP(1:IM,JM)=PVPOLES(1:IM,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,COSLTEMP(1:IM,JSTA:JEND) & + ,SPVAL,PVTEMP(1:IM,JSTA:JEND)) + + IF(JSTA== 1) TPV(ISTA:IEND, 1,LP)=PVTEMP(ISTA:IEND, 1) + IF(JEND==JM) TPV(ISTA:IEND,JM,LP)=PVTEMP(ISTA:IEND,JM) + !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TPV(I,J,LP) ENDDO ENDDO @@ -926,11 +1012,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(338)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(338)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -942,11 +1029,27 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(IGET(339) > 0) THEN IF(LVLS(LP,IGET(339)) > 0)THEN ! GFS use lon avg as one scaler value for pole point - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & - ,SPVAL,HPV(1:IM,JSTA:JEND,LP)) + ! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & + ! ,SPVAL,HPV(1:IM,JSTA:JEND,LP)) + DUM2D(ISTA:IEND,JSTA:JEND)=HPV(ISTA:IEND,JSTA:JEND,LP) + CALL EXCH(DUM2D) + CALL FULLPOLE(DUM2D,PVPOLES) + COSLTEMP=SPVAL + IF(JSTA== 1) COSLTEMP(1:IM, 1)=COSLPOLES(1:IM,1) + IF(JEND==JM) COSLTEMP(1:IM,JM)=COSLPOLES(1:IM,2) + PVTEMP=SPVAL + IF(JSTA== 1) PVTEMP(1:IM, 1)=PVPOLES(1:IM,1) + IF(JEND==JM) PVTEMP(1:IM,JM)=PVPOLES(1:IM,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,COSLTEMP(1:IM,JSTA:JEND) & + ,SPVAL,PVTEMP(1:IM,JSTA:JEND)) + + IF(JSTA== 1) HPV(ISTA:IEND, 1,LP)=PVTEMP(ISTA:IEND, 1) + IF(JEND==JM) HPV(ISTA:IEND,JM,LP)=PVTEMP(ISTA:IEND,JM) + !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = HPV(I,J,LP) ENDDO ENDDO @@ -954,11 +1057,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(339)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(339)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -970,11 +1074,27 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(IGET(340) > 0) THEN IF(LVLS(LP,IGET(340)) > 0)THEN ! GFS use lon avg as one scaler value for pole point - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & - ,SPVAL,PPV(1:IM,JSTA:JEND,LP)) + ! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & + ! ,SPVAL,PPV(1:IM,JSTA:JEND,LP)) + DUM2D(ISTA:IEND,JSTA:JEND)=PPV(ISTA:IEND,JSTA:JEND,LP) + CALL EXCH(DUM2D) + CALL FULLPOLE(DUM2D,PVPOLES) + COSLTEMP=SPVAL + IF(JSTA== 1) COSLTEMP(1:IM, 1)=COSLPOLES(1:IM,1) + IF(JEND==JM) COSLTEMP(1:IM,JM)=COSLPOLES(1:IM,2) + PVTEMP=SPVAL + IF(JSTA== 1) PVTEMP(1:IM, 1)=PVPOLES(1:IM,1) + IF(JEND==JM) PVTEMP(1:IM,JM)=PVPOLES(1:IM,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,COSLTEMP(1:IM,JSTA:JEND) & + ,SPVAL,PVTEMP(1:IM,JSTA:JEND)) + + IF(JSTA== 1) PPV(ISTA:IEND, 1,LP)=PVTEMP(ISTA:IEND, 1) + IF(JEND==JM) PPV(ISTA:IEND,JM,LP)=PVTEMP(ISTA:IEND,JM) + !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PPV(I,J,LP) ENDDO ENDDO @@ -982,11 +1102,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(340)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(340)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -998,11 +1119,27 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) IF(IGET(341) > 0) THEN IF(LVLS(LP,IGET(341)) > 0)THEN ! GFS use lon avg as one scaler value for pole point - call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & - ,SPVAL,SPV(1:IM,JSTA:JEND,LP)) + ! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1:IM,JSTA:JEND) & + ! ,SPVAL,SPV(1:IM,JSTA:JEND,LP)) + DUM2D(ISTA:IEND,JSTA:JEND)=SPV(ISTA:IEND,JSTA:JEND,LP) + CALL EXCH(DUM2D) + CALL FULLPOLE(DUM2D,PVPOLES) + COSLTEMP=SPVAL + IF(JSTA== 1) COSLTEMP(1:IM, 1)=COSLPOLES(1:IM,1) + IF(JEND==JM) COSLTEMP(1:IM,JM)=COSLPOLES(1:IM,2) + PVTEMP=SPVAL + IF(JSTA== 1) PVTEMP(1:IM, 1)=PVPOLES(1:IM,1) + IF(JEND==JM) PVTEMP(1:IM,JM)=PVPOLES(1:IM,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,COSLTEMP(1:IM,JSTA:JEND) & + ,SPVAL,PVTEMP(1:IM,JSTA:JEND)) + + IF(JSTA== 1) SPV(ISTA:IEND, 1,LP)=PVTEMP(ISTA:IEND, 1) + IF(JEND==JM) SPV(ISTA:IEND,JM,LP)=PVTEMP(ISTA:IEND,JM) + !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SPV(I,J,LP) ENDDO ENDDO @@ -1010,11 +1147,12 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(341)) fld_info(cfld)%lvl=LVLSXML(lp,IGET(341)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1025,10 +1163,10 @@ SUBROUTINE MDL2THANDPV(kth,kpv,th,pv) DEALLOCATE(DUM1D1,DUM1D2,DUM1D3,DUM1D4,DUM1D5,DUM1D6,DUM1D7, & DUM1D8,DUM1D9,DUM1D10,DUM1D11,DUM1D12,DUM1D13, & - DUM1D14,wrk1, wrk2, wrk3, wrk4, cosl) + DUM1D14,wrk1, wrk2, wrk3, wrk4, cosl, dum2d) END IF ! end of selection for isentropic and constant PV fields - if(me==0)print *,'end of MDL2THandpv' + if(me==0) write(0,*) 'MDL2THANDPV ends' ! ! ! END OF ROUTINE. diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index e1beeefc3..b3dbe03f3 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -43,6 +43,7 @@ !! 20-11-10 J MENG - USE UPP_MATH MODULE !! 20-11-10 J MENG - USE UPP_PHYSICS MODULE !! 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY +!! 21-07-07 J MENG - 2D DECOMPOSITION !! !! USAGE: CALL MDLFLD !! INPUT ARGUMENT LIST: @@ -97,10 +98,11 @@ SUBROUTINE MDLFLD tops, dsnow, drain,const_ng1, const_ng2, gon, topg, dgraupel use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, grib, cfld, datapd,& fld_info, modelname, imp_physics, dtq2, spval, icount_calmict,& - me, dt, avrain, theat, ifhr, ifmin, avcnvc, lp1, im, jm, aqfcmaq_on + me, dt, avrain, theat, ifhr, ifmin, avcnvc, lp1, im, jm, & + ista, iend, ista_2l, iend_2u, aqfcmaq_on use rqstfld_mod, only: iget, id, lvls, iavblfld, lvlsxml use gridspec_mod, only: gridtype,maptype,dxval - use upp_physics, only: CALRH, CALCAPE + use upp_physics, only: CALRH, CALCAPE, CALVOR use upp_math, only: H2U, H2V, U2H, V2H ! @@ -120,7 +122,7 @@ SUBROUTINE MDLFLD REAL CC(10), PPT(10) DATA CC / 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0 / DATA PPT/ 0., .14, .31, .70, 1.6, 3.4, 7.7, 17., 38., 85. / - INTEGER, dimension(im,jsta_2l:jend_2u) :: ICBOT, ICTOP, LPBL + INTEGER, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: ICBOT, ICTOP, LPBL ! ! DECLARE VARIABLES. @@ -129,7 +131,7 @@ SUBROUTINE MDLFLD LOGICAL NMM_GFSmicro LOGiCAL Model_Radar real, dimension(im,jm) :: GRID1, GRID2 - real, dimension(im,jsta_2l:jend_2u) :: EGRID1, EGRID2, EGRID3, EGRID4, EGRID5,& + real, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: EGRID1, EGRID2, EGRID3, EGRID4, EGRID5,& EL0, P1D, T1D, Q1D, C1D, & FI1D, FR1D, FS1D, QW1, QI1, & QR1, QS1, CUREFL_S, & @@ -160,8 +162,8 @@ SUBROUTINE MDLFLD integer ks,nsmooth REAL SDUMMY(IM,2),dxm ! added to calculate cape and cin for icing - real, dimension(im,jsta:jend) :: dummy, cape, cin - integer idummy(IM,jsta:jend) + real, dimension(ista:iend,jsta:jend) :: dummy, cape, cin + integer idummy(ista:iend,jsta:jend) real, PARAMETER :: ZSL=0.0, TAUCR=RD*GI*290.66, CONST=0.005*G/RD, GORD=G/RD logical, parameter :: debugprint = .false. @@ -186,7 +188,7 @@ SUBROUTINE MDLFLD ! IF (ABS(MAXVAL(REF_10CM)-SPVAL)>SMALL)Model_Radar=.True. check_ref: DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(ABS(REF_10CM(I,J,L)-SPVAL)>SMALL) THEN Model_Radar=.True. exit check_ref @@ -196,9 +198,9 @@ SUBROUTINE MDLFLD ENDDO check_ref if(debugprint .and. me==0)print*,'Did post read in model derived radar ref ',Model_Radar, & 'MODELNAME=',trim(MODELNAME),' imp_physics=',imp_physics - ALLOCATE(EL (IM,JSTA_2L:JEND_2U,LM)) - ALLOCATE(RICHNO (IM,JSTA_2L:JEND_2U,LM)) - ALLOCATE(PBLRI (IM,JSTA_2L:JEND_2U)) + ALLOCATE(EL (ista_2l:iend_2u,JSTA_2L:JEND_2U,LM)) + ALLOCATE(RICHNO (ista_2l:iend_2u,JSTA_2L:JEND_2U,LM)) + ALLOCATE(PBLRI (ista_2l:iend_2u,JSTA_2L:JEND_2U)) ! ! SECOND, STANDARD NGM SEA LEVEL PRESSURE. IF (IGET(105) > 0 .OR. IGET(445) > 0) THEN @@ -207,18 +209,19 @@ SUBROUTINE MDLFLD IF (IGET(105) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = SLP(I,J) ENDDO ENDDO if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(105)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -233,7 +236,7 @@ SUBROUTINE MDLFLD ! print*,'DTQ2 in MDLFLD= ',DTQ2 RDTPHS=24.*3.6E6/DTQ2 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF ((HBOT(I,J)-HTOP(I,J)) <= 1.0) THEN ICBOT(I,J)=0 ICTOP(I,J)=0 @@ -261,7 +264,7 @@ SUBROUTINE MDLFLD ! CNVCFR(I,J)=100.*CFRdum CNVCFR(I,J)=CFRdum ENDIF !--- End IF (HBOT(I,J)-HTOP(I,J) <= 1.0) ... - ENDDO !--- DO I=1,IM + ENDDO !--- DO I=ista,iend ENDDO !--- DO J=JSTA,JEND ENDIF !-- IF (MODELNAME=='NMM' .OR. imp_physics==5) THEN ! @@ -279,7 +282,7 @@ SUBROUTINE MDLFLD .or. NMM_GFSmicro)THEN RDTPHS=3.6E6/DTQ2 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend CUPRATE=RDTPHS*CPRATE(I,J) !--- Cu precip rate, R (mm/h) ! CUPRATE=CUPPT(I,J)*1000./TRDLW !--- mm/h Zfrz(I,J)=ZMID(I,J,NINT(LMH(I,J))) !-- Initialize to lowest model level @@ -315,7 +318,7 @@ SUBROUTINE MDLFLD if(icount_calmict==0)then !only call calmict once in multiple grid processing DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend P1D(I,J)=PMID(I,J,L) T1D(I,J)=T(I,J,L) Q1D(I,J)=Q(I,J,L) @@ -368,7 +371,7 @@ SUBROUTINE MDLFLD refl_miss: IF (Model_Radar) THEN ! - Model output DBZ is present - proceed with calc DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(P1D(I,J) LLMH) THEN QQW(I,J,L) = D00 @@ -495,7 +498,7 @@ SUBROUTINE MDLFLD ELSE IF(MODELNAME == 'NMM' .and. GRIDTYPE=='B' .and. imp_physics==99)THEN !NMMB+Zhao DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend LLMH = NINT(LMH(I,J)) IF (L > LLMH) THEN QQW(I,J,L) = D00 @@ -523,7 +526,7 @@ SUBROUTINE MDLFLD ELSE IF(MODELNAME == 'NMM' .and. GRIDTYPE=='B' .and. imp_physics==6)THEN !NMMB+WSM6 DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend LLMH = NINT(LMH(I,J)) IF (L > LLMH) THEN QQW(I,J,L)=D00 @@ -562,7 +565,7 @@ SUBROUTINE MDLFLD .and. imp_physics==8)THEN !NMMB or FV3R +THOMPSON DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend DBZ(I,J,L)=REF_10CM(I,J,L) ENDDO ENDDO @@ -570,7 +573,7 @@ SUBROUTINE MDLFLD ELSE IF(imp_physics==99 .or. imp_physics==98)THEN ! Zhao MP DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend DBZ(I,J,L)=SPVAL ENDDO ENDDO @@ -588,7 +591,7 @@ SUBROUTINE MDLFLD ! Chuang: add convective contribution for all MP schemes RDTPHS=3.6E6/DTQ2 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend CUPRATE=RDTPHS*CPRATE(I,J) !--- Cu precip rate, R (mm/h) Zfrz(I,J)=ZMID(I,J,NINT(LMH(I,J))) !-- Initialize to lowest model level DO L=1,NINT(LMH(I,J)) !-- Start from the top, work down @@ -620,7 +623,7 @@ SUBROUTINE MDLFLD !$omp parallel do private(i,j,l,curefl,fctr,dens,llmh,lctop,delz,ze_nc) DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend !--- Estimate radar reflectivity factor from convection at level L ! CUREFL(I,J)=0. @@ -737,7 +740,7 @@ SUBROUTINE MDLFLD ze_gmax = -1.E30 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend refl(i,j) = -10. ze_max = -10. @@ -885,7 +888,7 @@ SUBROUTINE MDLFLD ! ABSOLUTE VORTICITY ON MDL SURFACES. ! ! - allocate (RH3D(im,jsta_2l:jend_2u,lm)) + allocate (RH3D(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) IF ( (IGET(001)>0).OR.(IGET(077)>0).OR. & (IGET(002)>0).OR.(IGET(003)>0).OR. & (IGET(004)>0).OR.(IGET(005)>0).OR. & @@ -921,7 +924,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = PMID(I,J,LL) ENDDO ENDDO @@ -929,11 +932,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(001)) fld_info(cfld)%lvl=LVLSXML(L,IGET(001)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -948,7 +952,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = QQW(I,J,LL) if(GRID1(I,J)<1e-20) GRID1(I,J) = 0.0 ENDDO @@ -957,11 +961,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(124)) fld_info(cfld)%lvl=LVLSXML(L,IGET(124)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -973,9 +978,9 @@ SUBROUTINE MDLFLD IF (IGET(125) > 0) THEN IF (LVLS(L,IGET(125)) > 0) THEN LL=LM-L+1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = QQI(I,J,LL) if(GRID1(I,J)<1e-20) GRID1(I,J) = 0.0 ENDDO @@ -984,11 +989,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(125)) fld_info(cfld)%lvl=LVLSXML(L,IGET(125)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1002,7 +1008,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = QQR(I,J,LL) if(GRID1(I,J)<1e-20) GRID1(I,J) = 0.0 ENDDO @@ -1011,11 +1017,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(181)) fld_info(cfld)%lvl=LVLSXML(L,IGET(181)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1029,7 +1036,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = QQS(I,J,LL) if(GRID1(I,J)<1e-20) GRID1(I,J) = 0.0 ENDDO @@ -1038,11 +1045,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(182)) fld_info(cfld)%lvl=LVLSXML(L,IGET(182)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1056,7 +1064,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if(QQG(I,J,LL) < 1.e-12) QQG(I,J,LL) = 0. !tgs GRID1(I,J) = QQG(I,J,LL) ENDDO @@ -1065,11 +1073,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(415)) fld_info(cfld)%lvl=LVLSXML(L,IGET(415)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1083,7 +1092,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if(QQNW(I,J,LL) < 1.e-8) QQNW(I,J,LL) = 0. !tgs GRID1(I,J) = QQNW(I,J,LL) ENDDO @@ -1092,11 +1101,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(747)) fld_info(cfld)%lvl=LVLSXML(L,IGET(747)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1110,7 +1120,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if(QQNI(I,J,LL) < 1.e-8) QQNI(I,J,LL) = 0. !tgs GRID1(I,J) = QQNI(I,J,LL) ENDDO @@ -1119,11 +1129,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(752)) fld_info(cfld)%lvl=LVLSXML(L,IGET(752)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1137,7 +1148,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if(QQNR(I,J,LL) < 1.e-8) QQNR(I,J,LL) = 0. !tgs GRID1(I,J) = QQNR(I,J,LL) ENDDO @@ -1146,11 +1157,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(754)) fld_info(cfld)%lvl=LVLSXML(L,IGET(754)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1162,7 +1174,7 @@ SUBROUTINE MDLFLD IF (LVLS(L,IGET(766)) > 0)THEN LL=LM-L+1 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if(QQNWFA(I,J,LL)<1.e-8)QQNWFA(I,J,LL)=0. !tgs GRID1(I,J)=QQNWFA(I,J,LL) ENDDO @@ -1171,7 +1183,7 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(766)) fld_info(cfld)%lvl=LVLSXML(L,IGET(766)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1182,7 +1194,7 @@ SUBROUTINE MDLFLD IF (LVLS(L,IGET(767)) > 0)THEN LL=LM-L+1 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if(QQNIFA(I,J,LL)<1.e-8)QQNIFA(I,J,LL)=0. !tgs GRID1(I,J)=QQNIFA(I,J,LL) ENDDO @@ -1191,7 +1203,7 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(767)) fld_info(cfld)%lvl=LVLSXML(L,IGET(767)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1203,7 +1215,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(abs(CFR(I,J,LL)-SPVAL) > SMALL) & & GRID1(I,J) = CFR(I,J,LL)*H100 ENDDO @@ -1213,11 +1225,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(145)) fld_info(cfld)%lvl=LVLSXML(L,IGET(145)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1231,7 +1244,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(MODELNAME == 'RAPR') THEN GRID1(I,J) = CFR(I,J,LL) ELSE @@ -1243,11 +1256,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(774)) fld_info(cfld)%lvl=LVLSXML(L,IGET(774)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1270,14 +1284,14 @@ SUBROUTINE MDLFLD IF(IMP_PHYSICS == 8 .or. IMP_PHYSICS == 28) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = REF_10CM(I,J,LL) ENDDO ENDDO ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = DBZ(I,J,LL) ENDDO ENDDO @@ -1288,11 +1302,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(250)) fld_info(cfld)%lvl=LVLSXML(L,IGET(250)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1307,7 +1322,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = CWM(I,J,LL) ENDDO ENDDO @@ -1315,11 +1330,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(199)) fld_info(cfld)%lvl=LVLSXML(L,IGET(199)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1333,7 +1349,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = F_rain(I,J,LL) ENDDO ENDDO @@ -1341,11 +1357,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(185)) fld_info(cfld)%lvl=LVLSXML(L,IGET(185)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1359,7 +1376,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = F_ice(I,J,LL) ENDDO ENDDO @@ -1367,11 +1384,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(186)) fld_info(cfld)%lvl=LVLSXML(L,IGET(186)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1386,7 +1404,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = F_RimeF(I,J,LL) ENDDO ENDDO @@ -1394,11 +1412,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(187)) fld_info(cfld)%lvl=LVLSXML(L,IGET(187)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1412,7 +1431,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = ZMID(I,J,LL) ENDDO ENDDO @@ -1420,11 +1439,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(077)) fld_info(cfld)%lvl=LVLSXML(L,IGET(077)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1438,7 +1458,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = T(I,J,LL) ENDDO ENDDO @@ -1446,11 +1466,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(002)) fld_info(cfld)%lvl=LVLSXML(L,IGET(002)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1464,7 +1485,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(T(I,J,LL)0) THEN !HC IF (LVLS(L,IGET(124))>0) THEN !HC DO J=JSTA,JEND -!HC DO I=1,IM +!HC DO I=ista,iend !HC IF(CWM(I,J,L)<0..AND.CWM(I,J,L)>-1.E-10) !HC 1 CWM(I,J,L)=0. !HC GRID1(I,J)=CWM(I,J,L) !HC ENDDO !HC ENDDO !HC ID(1:25) = 0 -!HC CALL GRIBIT(IGET(124),L,GRID1,IM,JM) +!HC CALL GRIBIT(IGET(124),L,GRIDista,iend,JM) !HC ENDIF !HC ENDIF ! @@ -1943,12 +1978,12 @@ SUBROUTINE MDLFLD ! IF (IGET(125)>0) THEN ! IF (LVLS(L,IGET(125))>0) THEN ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ista,iend ! GRID1(I,J)=QICE(I,J,L) ! ENDDO ! ENDDO ! ID(1:25) = 0 -! CALL GRIBIT(IGET(125),L,GRID1,IM,JM) +! CALL GRIBIT(IGET(125),L,GRIDista,iend,JM) ! ENDIF ! ENDIF ! @@ -1958,12 +1993,12 @@ SUBROUTINE MDLFLD ! IF (IGET(145)>0) THEN ! IF (LVLS(L,IGET(145))>0) THEN ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ista,iend ! GRID1(I,J)=CFRC(I,J,L) ! ENDDO ! ENDDO ! ID(1:25) = 0 -! CALL GRIBIT(IGET(145),L,GRID1,IM,JM) +! CALL GRIBIT(IGET(145),L,GRIDista,iend,JM) ! ENDIF ! ENDIF ! @@ -1974,7 +2009,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = TTND(I,J,LL) ENDDO ENDDO @@ -1982,11 +2017,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(140)) fld_info(cfld)%lvl=LVLSXML(L,IGET(140)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2000,7 +2036,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = RSWTT(I,J,LL) ENDDO ENDDO @@ -2008,11 +2044,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(040)) fld_info(cfld)%lvl=LVLSXML(L,IGET(040)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2026,7 +2063,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = RLWTT(I,J,LL) ENDDO ENDDO @@ -2034,11 +2071,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(041)) fld_info(cfld)%lvl=LVLSXML(L,IGET(041)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2057,9 +2095,9 @@ SUBROUTINE MDLFLD ELSE RRNUM=0. ENDIF -!$omp parallel do +!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(TRAIN(I,J,LL)ug/m3 ENDDO @@ -2234,11 +2276,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(995)) fld_info(cfld)%lvl=LVLSXML(L,IGET(995)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2257,7 +2300,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(PMID(I,J,LL)ug/m3 @@ -2299,11 +2343,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(629)) fld_info(cfld)%lvl=LVLSXML(L,IGET(629)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2316,7 +2361,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(DUST(I,J,LL,2)ug/m3 @@ -2329,11 +2374,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(630)) fld_info(cfld)%lvl=LVLSXML(L,IGET(630)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2346,7 +2392,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(DUST(I,J,LL,3)ug/m3 @@ -2359,11 +2405,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(631)) fld_info(cfld)%lvl=LVLSXML(L,IGET(631)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2376,7 +2423,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(DUST(I,J,LL,4)ug/m3 @@ -2389,11 +2436,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(632)) fld_info(cfld)%lvl=LVLSXML(L,IGET(632)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2406,7 +2454,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(DUST(I,J,LL,5)ug/m3 @@ -2419,11 +2467,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(633)) fld_info(cfld)%lvl=LVLSXML(L,IGET(633)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2436,7 +2485,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(SALT(I,J,LL,1)ug/m3 ELSE @@ -2448,11 +2497,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(634)) fld_info(cfld)%lvl=LVLSXML(L,IGET(634)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2465,7 +2515,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(SALT(I,J,LL,2)ug/m3 ELSE @@ -2477,11 +2527,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(635)) fld_info(cfld)%lvl=LVLSXML(L,IGET(635)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2494,7 +2545,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(SALT(I,J,LL,3)ug/m3 ELSE @@ -2506,11 +2557,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(636)) fld_info(cfld)%lvl=LVLSXML(L,IGET(636)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2523,7 +2575,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(SALT(I,J,LL,4)ug/m3 ELSE @@ -2535,11 +2587,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(637)) fld_info(cfld)%lvl=LVLSXML(L,IGET(637)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2552,7 +2605,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(SALT(I,J,LL,5)ug/m3 ELSE @@ -2564,11 +2617,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(638)) fld_info(cfld)%lvl=LVLSXML(L,IGET(638)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2581,7 +2635,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(SUSO(I,J,LL,1)ug/m3 @@ -2594,11 +2648,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(639)) fld_info(cfld)%lvl=LVLSXML(L,IGET(639)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2611,7 +2666,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(WASO(I,J,LL,1)0) THEN ! RDTPHS=1000./DTQ2 ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ista,iend ! GRID1(I,J)=CPRATE(I,J)*RDTPHS ! GRID1(I,J)=SPVAL ! ENDDO ! ENDDO ! ID(1:25) = 0 -! CALL GRIBIT(IGET(249),LM,GRID1,IM,JM) +! CALL GRIBIT(IGET(249),LM,GRIDista,iend,JM) ! ENDIF ! ! COMPOSITE RADAR REFLECTIVITY (maximum dBZ in each column) @@ -2853,7 +2914,7 @@ SUBROUTINE MDLFLD IF(IMP_PHYSICS /= 8 .and. IMP_PHYSICS /= 28) THEN !$omp parallel do private(i,j,l) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = DBZmin DO L=1,NINT(LMH(I,J)) GRID1(I,J) = MAX( GRID1(I,J), DBZ(I,J,L) ) @@ -2873,7 +2934,7 @@ SUBROUTINE MDLFLD MODELNAME=='NMM' .and. gridtype=='E')THEN !$omp parallel do private(i,j,l) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = DBZmin DO L=1,NINT(LMH(I,J)) GRID1(I,J) = MAX( GRID1(I,J), REF_10CM(I,J,L) ) @@ -2883,7 +2944,7 @@ SUBROUTINE MDLFLD ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = REFC_10CM(I,J) ENDDO ENDDO @@ -2892,7 +2953,7 @@ SUBROUTINE MDLFLD ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = refl(i,j) ENDDO ENDDO @@ -2902,11 +2963,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(252)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2917,7 +2979,7 @@ SUBROUTINE MDLFLD ! on emprical conversion factors (0.00344) IF (IGET(581)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=0.0 DO L=1,NINT(LMH(I,J)) if(zint(i,j,l) < spval .and.zint(i,j,l+1)0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=DBZmin DO L=1,NINT(LMH(I,J)) GRID1(I,J)=MAX( GRID1(I,J), DBZR(I,J,L) ) @@ -2954,11 +3017,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(276)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2969,7 +3033,7 @@ SUBROUTINE MDLFLD ! IF (IGET(277)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=DBZmin DO L=1,NINT(LMH(I,J)) GRID1(I,J)=MAX( GRID1(I,J), DBZI(I,J,L) ) @@ -2979,11 +3043,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(277)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2996,7 +3061,7 @@ SUBROUTINE MDLFLD ! IF (IGET(278)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=DBZmin DO L=1,NINT(LMH(I,J)) GRID1(I,J)=MAX( GRID1(I,J), DBZC(I,J,L) ) @@ -3006,11 +3071,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(278)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3022,7 +3088,7 @@ SUBROUTINE MDLFLD IF (IGET(426)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=0.0 DO L=1,NINT(LMH(I,J)) IF (DBZ(I,J,L)>=18.0) THEN @@ -3035,11 +3101,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(426)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3057,7 +3124,7 @@ SUBROUTINE MDLFLD IF (IGET(768) > 0) THEN IF(MODELNAME == 'RAPR' .AND. (IMP_PHYSICS == 8 .or. IMP_PHYSICS == 28)) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = -999. DO L=1,NINT(LMH(I,J)) IF (REF_10CM(I,J,L)>=18.0) THEN @@ -3086,7 +3153,7 @@ SUBROUTINE MDLFLD ENDDO ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = -999. DO L=1,NINT(LMH(I,J)) IF (DBZ(I,J,L) >= 18.0) THEN @@ -3100,11 +3167,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(768)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3114,7 +3182,7 @@ SUBROUTINE MDLFLD ! IF (IGET(769)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=0.0 DO L=1,NINT(LMH(I,J)) IF(QQR(I,J,L) 0) THEN IF(MODELNAME == 'RAPR' .AND. (IMP_PHYSICS == 8 .or. IMP_PHYSICS == 28)) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = 0.0 DO L=1,NINT(LMH(I,J)) IF (REF_10CM(I,J,L) > -10.0 ) THEN @@ -3163,7 +3232,7 @@ SUBROUTINE MDLFLD ENDDO ELSE DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = 0.0 DO L=1,NINT(LMH(I,J)) GRID1(I,J) = GRID1(I,J) + 0.00344 * & @@ -3176,11 +3245,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(770)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3196,7 +3266,7 @@ SUBROUTINE MDLFLD !--- Needed values at 1st level above ground (Jin, '01; Ferrier, Feb '02) ! DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend LLMH=NINT(LMH(I,J)) Q1D(I,J)=Q(I,J,LLMH) if(Q1D(I,J)<=0.) Q1D(I,J)=0. !tgs @@ -3264,7 +3334,7 @@ SUBROUTINE MDLFLD ! !-- Visibility using Warner-Stoelinga algorithm (Jin, '01) ! - ii=im/2 + ii=(ista+iend)/2 jj=(jsta+jend)/2 ! print*,'Debug: Visbility ',Q1D(ii,jj),QW1(ii,jj),QR1(ii,jj) ! +,QI1(ii,jj) ,QS1(ii,jj),T1D(ii,jj),P1D(ii,jj) @@ -3276,7 +3346,7 @@ SUBROUTINE MDLFLD ! DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(vis(i,j)/=spval.and.abs(vis(i,j))>24135.1)print*,'bad visbility' & , i,j,Q1D(i,j),QW1(i,j),QR1(i,j),QI1(i,j) & , QS1(i,j),T1D(i,j),P1D(i,j),vis(i,j) @@ -3288,7 +3358,7 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(180)) fld_info(cfld)%lvl=LVLSXML(1,IGET(180)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3298,7 +3368,7 @@ SUBROUTINE MDLFLD IF (IGET(410)>0) THEN CALL CALVIS_GSD(CZEN,VIS) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=VIS(I,J) END DO END DO @@ -3306,7 +3376,7 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(410)) fld_info(cfld)%lvl=LVLSXML(1,IGET(410)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3321,7 +3391,7 @@ SUBROUTINE MDLFLD GRID1 = -20.0 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = REF1KM_10CM(I,J) END DO END DO @@ -3329,7 +3399,7 @@ SUBROUTINE MDLFLD ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = refl1km(I,J) END DO END DO @@ -3340,7 +3410,7 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(748)) fld_info(cfld)%lvl=LVLSXML(1,IGET(748)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3355,7 +3425,7 @@ SUBROUTINE MDLFLD IF(MODELNAME == 'RAPR' .AND. (IMP_PHYSICS == 8 .or. IMP_PHYSICS == 28)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = REF4KM_10CM(I,J) END DO END DO @@ -3363,7 +3433,7 @@ SUBROUTINE MDLFLD ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = refl4km(I,J) END DO END DO @@ -3374,7 +3444,7 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(757)) fld_info(cfld)%lvl=LVLSXML(1,IGET(757)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -3382,7 +3452,7 @@ SUBROUTINE MDLFLD IF (IGET(912)>0) THEN Zm10c=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend ! dong handle missing value if (slp(i,j) < spval) then Zm10c(I,J)=ZMID(I,J,NINT(LMH(I,J))) @@ -3406,7 +3476,7 @@ SUBROUTINE MDLFLD IF(IMP_PHYSICS==8 .or. IMP_PHYSICS==28) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=spval ! dong handle missing value if (slp(i,j) < spval) then @@ -3417,7 +3487,7 @@ SUBROUTINE MDLFLD ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=spval ! dong handle missing value if (slp(i,j) < spval) then @@ -3433,7 +3503,7 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(912)) fld_info(cfld)%lvl=LVLSXML(L,IGET(912)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3450,14 +3520,14 @@ SUBROUTINE MDLFLD IF (IGET(147)>0) THEN ! DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = EL0(I,J) ENDDO ENDDO if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(147)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -3470,7 +3540,7 @@ SUBROUTINE MDLFLD !$omp parallel do private(i,j,l) DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend EL(I,J,L) = D00 ENDDO ENDDO @@ -3481,7 +3551,7 @@ SUBROUTINE MDLFLD ELSE IF(MODELNAME == 'NMM')THEN DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend EL(I,J,L)=EL_PBL(I,J,L) !NOW EL COMES OUT OF WRF NMM ENDDO ENDDO @@ -3504,7 +3574,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = EL(I,J,LL) ENDDO ENDDO @@ -3512,11 +3582,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(146)) fld_info(cfld)%lvl=LVLSXML(L,IGET(146)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3531,7 +3602,7 @@ SUBROUTINE MDLFLD LL=LM-L+1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = RICHNO(I,J,LL) ENDDO ENDDO @@ -3539,11 +3610,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(111)) fld_info(cfld)%lvl=LVLSXML(L,IGET(111)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3575,7 +3647,7 @@ SUBROUTINE MDLFLD IF (IGET(289) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = PBLRI(I,J) ! PBLH(I,J) = PBLRI(I,J) ENDDO @@ -3583,11 +3655,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then Cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(289)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3600,7 +3673,7 @@ SUBROUTINE MDLFLD IF ( (IGET(389) > 0) .OR. (IGET(454) > 0) ) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF(PBLRI(I,J) 0.)THEN GRID1(I,J) = EGRID1(I,J)/EGRID2(I,J) ELSE @@ -3654,10 +3727,10 @@ SUBROUTINE MDLFLD END DO END DO ! compute v component now - CALL H2V(EGRID3(1:im,JSTA_2L:JEND_2U),EGRID4) + CALL H2V(EGRID3(ista_2l:iend_2u,JSTA_2L:JEND_2U),EGRID4) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend EGRID1(i,j) = 0. EGRID2(i,j) = 0. EGRID5(i,j) = 0. @@ -3666,12 +3739,12 @@ SUBROUTINE MDLFLD END DO END DO vert_loopv: DO L=LM,1,-1 - CALL H2V(ZMID(1:IM,JSTA_2L:JEND_2U,L), EGRID5) - CALL H2V(PINT(1:IM,JSTA_2L:JEND_2U,L+1),EGRID6) - CALL H2V(PINT(1:IM,JSTA_2L:JEND_2U,L), EGRID7) + CALL H2V(ZMID(ista_2l:iend_2u,JSTA_2L:JEND_2U,L), EGRID5) + CALL H2V(PINT(ista_2l:iend_2u,JSTA_2L:JEND_2U,L+1),EGRID6) + CALL H2V(PINT(ista_2l:iend_2u,JSTA_2L:JEND_2U,L), EGRID7) HCOUNT=0 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if (EGRID4(I,J) 0.)THEN GRID2(I,J) = EGRID1(I,J)/EGRID2(I,J) ELSE @@ -3700,11 +3773,11 @@ SUBROUTINE MDLFLD END DO - CALL U2H(GRID1(1,JSTA_2L),EGRID1) - CALL V2H(GRID2(1,JSTA_2L),EGRID2) + CALL U2H(GRID1(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),EGRID1) + CALL V2H(GRID2(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),EGRID2) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend ! EGRID1 is transport wind speed ! prevent floating overflow if either component is undefined @@ -3726,20 +3799,22 @@ SUBROUTINE MDLFLD if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(389)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(390)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -3756,7 +3831,7 @@ SUBROUTINE MDLFLD ! write(0,*) 'IM is: ', IM !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend IF (PBLRI(I,J) /= SPVAL .and. EGRID3(I,J)/=SPVAL) then GRID1(I,J) = EGRID3(I,J)*PBLRI(I,J) @@ -3776,11 +3851,12 @@ SUBROUTINE MDLFLD if(grib=='grib2') then Cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(454)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3805,7 +3881,7 @@ SUBROUTINE MDLFLD ! if(me==0)print *,'dxm=',dxm NSMOOTH = nint(5.*(13500./dxm)) do j = jsta_2l, jend_2u - do i = 1, im + do i = ista_2l, iend_2u GRID1(i,j)=PBLHGUST(i,j) enddo enddo @@ -3814,14 +3890,14 @@ SUBROUTINE MDLFLD CALL SMOOTH(GRID1,SDUMMY,IM,JM,0.5) end do do j = jsta_2l, jend_2u - do i = 1, im + do i = ista_2l, iend_2u PBLHGUST(i,j)=GRID1(i,j) enddo enddo ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend LPBL(I,J)=LM if(ZINT(I,J,NINT(LMH(I,J))+1) 0) THEN -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend ! if(GUST(I,J) > 200. .and. gust(i,j)0) THEN - allocate(PBLREGIME(im,jsta_2l:jend_2u)) + allocate(PBLREGIME(ista_2l:iend_2u,jsta_2l:jend_2u)) CALL CALPBLREGIME(PBLREGIME) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J) = PBLREGIME(I,J) ENDDO ENDDO if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(344)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3906,7 +3984,7 @@ SUBROUTINE MDLFLD ! IF(IGET(400)>0)THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend !Initialed as 'undetected'. Nov. 17, 2014, B. ZHOU: !changed from SPVAL to -5000. to distinguish missing grids and undetected ! GRID1(I,J) = SPVAL @@ -3934,11 +4012,12 @@ SUBROUTINE MDLFLD if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(400)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3947,7 +4026,7 @@ SUBROUTINE MDLFLD ! ! COMPUTE NCAR GTG turbulence IF(IGET(464)>0 .or. IGET(467)>0 .or. IGET(470)>0)THEN - i=IM/2 + i=(ista+iend)/2 j=(jsta+jend)/2 ! if(me == 0) print*,'sending input to GTG i,j,hgt,gust',i,j,ZINT(i,j,LP1),gust(i,j) @@ -3957,10 +4036,10 @@ SUBROUTINE MDLFLD call gtg_algo(im,jm,lm,jsta,jend,jsta_2L,jend_2U,& uh,vh,wh,zmid,pmid,t,q,qqw,qqr,qqs,qqg,qqi,& - ZINT(1:IM,JSTA_2L:JEND_2U,LP1),pblh,sfcshx,sfclhx,ustar,& + ZINT(ista_2l:iend_2u,JSTA_2L:JEND_2U,LP1),pblh,sfcshx,sfclhx,ustar,& z0,gdlat,gdlon,dx,dy,u10,v10,GUST,avgprec,sm,sice,catedr,mwt,EL,gtg,RICHNO,item) - i=IM/2 + i=iend j=jend ! 321,541 ! print*,'GTG output: l,cat,mwt,gtg at',i,j ! do l=1,lm @@ -3973,7 +4052,7 @@ SUBROUTINE MDLFLD IF (LVLS(L,IGET(470))>0) THEN LL=LM-L+1 DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=gtg(i,j,LL) ENDDO ENDDO @@ -3981,18 +4060,19 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(470)) fld_info(cfld)%lvl=LVLSXML(L,IGET(470)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=catedr(i,j,LL) ENDDO ENDDO @@ -4000,17 +4080,18 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(471)) fld_info(cfld)%lvl=LVLSXML(L,IGET(471)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend GRID1(I,J)=mwt(i,j,LL) ENDDO ENDDO @@ -4018,11 +4099,12 @@ SUBROUTINE MDLFLD cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(472)) fld_info(cfld)%lvl=LVLSXML(L,IGET(472)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4045,7 +4127,7 @@ SUBROUTINE MDLFLD icing_gfip = spval icing_gfis = spval DO J=JSTA,JEND - DO I=1,IM + DO I=ista,iend if(debugprint .and. i==50 .and. j==jsta .and. me == 0) then print*,'sending input to FIP ',i,j,lm,gdlat(i,j),gdlon(i,j), & zint(i,j,lp1),cprate(i,j),prec(i,j),avgcprate(i,j),cape(i,j),cin(i,j) @@ -4079,12 +4161,12 @@ SUBROUTINE MDLFLD ! do l=1,lm ! if(LVLS(L,IGET(450))>0 .or. LVLS(L,IGET(480))>0)then ! do j=jsta,jend -! do i=1,im +! do i=ista,iend ! grid1(i,j)=icing_gfip(i,j,l) ! end do ! end do ! ID(1:25) = 0 -! CALL GRIBIT(IGET(450),L,GRID1,IM,JM) +! CALL GRIBIT(IGET(450),L,GRIDista,iend,JM) ! end if ! end do ENDIF diff --git a/sorc/ncep_post.fd/MISCLN.f b/sorc/ncep_post.fd/MISCLN.f index c333ad586..84417aaf2 100644 --- a/sorc/ncep_post.fd/MISCLN.f +++ b/sorc/ncep_post.fd/MISCLN.f @@ -48,6 +48,7 @@ !! 21-09-01 E Colon - Correction to the effective layer top and !! bottoma calculation which is only employed !! for RTMA usage. +!! 21-10-14 J MENG - 2D DECOMPOSITION !! !! USAGE: CALL MISCLN !! INPUT ARGUMENT LIST: @@ -95,7 +96,8 @@ SUBROUTINE MISCLN rhmin, rgamog, tfrz, small, g use ctlblk_mod, only: grib, cfld, fld_info, datapd, im, jsta, jend, jm, jsta_m, jend_m, & nbnd, nbin_du, lm, htfd, spval, pthresh, nfd, petabnd, me,& - jsta_2l, jend_2u, MODELNAME, SUBMODELNAME + jsta_2l, jend_2u, MODELNAME, SUBMODELNAME, & + ista, iend, ista_m, iend_M, ista_2l, iend_2u use rqstfld_mod, only: iget, lvls, id, iavblfld, lvlsxml use grib2_module, only: pset use upp_physics, only: FPVSNEW,CALRH_PW,CALCAPE,CALCAPE2,TVIRTUAL @@ -123,18 +125,18 @@ SUBROUTINE MISCLN ! DECLARE VARIABLES. ! LOGICAL NORTH, FIELD1,FIELD2 - LOGICAL, dimension(IM,JSTA:JEND) :: DONE, DONE1 + LOGICAL, dimension(ISTA:IEND,JSTA:JEND) :: DONE, DONE1 INTEGER, allocatable :: LVLBND(:,:,:),LB2(:,:) ! INTEGER LVLBND(IM,JM,NBND),LB2(IM,JM),LPBL(IM,JM) real,dimension(im,jm) :: GRID1, GRID2 - real,dimension(im,jsta:jend) :: P1D, T1D, Q1D, U1D, V1D, SHR1D, Z1D, & + real,dimension(ista:iend,jsta:jend) :: P1D, T1D, Q1D, U1D, V1D, SHR1D, Z1D, & RH1D, EGRID1, EGRID2, EGRID3, EGRID4, & EGRID5, EGRID6, EGRID7, EGRID8, & MLCAPE,MLCIN,MLLCL,MUCAPE,MUCIN,MUMIXR, & FREEZELVL,MUQ1D,SLCL,THE,MAXTHE - integer,dimension(im,jsta:jend) :: MAXTHEPOS + integer,dimension(ista:iend,jsta:jend) :: MAXTHEPOS real, dimension(:,:,:),allocatable :: OMGBND, PWTBND, QCNVBND, & PBND, TBND, QBND, & UBND, VBND, RHBND, & @@ -159,7 +161,7 @@ SUBROUTINE MISCLN EFFUST,EFFVST,FSHR,HTSFC,& ESRH ! - integer I,J,jj,L,ITYPE,ISVALUE,LBND,ILVL,IFD,ITYPEFDLVL(NFD), & + integer I,J,ii,jj,L,ITYPE,ISVALUE,LBND,ILVL,IFD,ITYPEFDLVL(NFD), & iget1, iget2, iget3, LLMH,imax,jmax,lmax real DPBND,PKL1,PKU1,FAC1,FAC2,PL,TL,QL,QSAT,RHL,TVRL,TVRBLO, & ES1,ES2,QS1,QS2,RH1,RH2,ZSF,DEPTH(2),work1,work2,work3, & @@ -172,8 +174,8 @@ SUBROUTINE MISCLN integer, allocatable :: ITYPEFDLVLCTL(:) integer IE,IW,JN,JS,IVE(JM),IVW(JM),JVN,JVS integer ISTART,ISTOP,JSTART,JSTOP,MIDCAL - real dummy(IM,jsta:jend) - integer idummy(IM,jsta:jend) + real dummy(ista:iend,jsta:jend) + integer idummy(ista:iend,jsta:jend) ! NEW VARIABLES USED FOR EFFECTIVE LAYER INTEGER,dimension(:,:),allocatable :: EL_BASE, EL_TOPS LOGICAL,dimension(:,:),allocatable :: FOUND_BASE, FOUND_TOPS @@ -201,10 +203,10 @@ SUBROUTINE MISCLN debugprint = .FALSE. - allocate(USHR1(IM,jsta_2l:jend_2u),VSHR1(IM,jsta_2l:jend_2u), & - USHR6(IM,jsta_2l:jend_2u),VSHR6(IM,jsta_2l:jend_2u)) - allocate(UST(IM,jsta_2l:jend_2u),VST(IM,jsta_2l:jend_2u), & - HELI(IM,jsta_2l:jend_2u,2),FSHR(IM,jsta_2l:jend_2u)) + allocate(USHR1(ista_2l:iend_2u,jsta_2l:jend_2u),VSHR1(ista_2l:iend_2u,jsta_2l:jend_2u), & + USHR6(ista_2l:iend_2u,jsta_2l:jend_2u),VSHR6(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(UST(ista_2l:iend_2u,jsta_2l:jend_2u),VST(ista_2l:iend_2u,jsta_2l:jend_2u), & + HELI(ista_2l:iend_2u,jsta_2l:jend_2u,2),FSHR(ista_2l:iend_2u,jsta_2l:jend_2u)) ! ! HELICITY AND STORM MOTION. iget1 = IGET(162) @@ -221,7 +223,7 @@ SUBROUTINE MISCLN IF (iget2 > 0) then !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = HELI(I,J,1) ENDDO ENDDO @@ -229,11 +231,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(iget1) fld_info(cfld)%lvl=LVLSXML(1,iget1) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -242,7 +245,7 @@ SUBROUTINE MISCLN IF (iget3 > 0) then !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = HELI(I,J,2) ENDDO ENDDO @@ -250,11 +253,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(iget1) fld_info(cfld)%lvl=LVLSXML(2,iget1) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -263,18 +267,19 @@ SUBROUTINE MISCLN IF (IGET(163) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = UST(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(163)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -282,18 +287,19 @@ SUBROUTINE MISCLN IF (IGET(164) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = VST(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(164)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -303,15 +309,16 @@ SUBROUTINE MISCLN ! UPDRAFT HELICITY if (IGET(427) > 0) THEN - CALL CALUPDHEL(GRID1(1,jsta_2l)) + CALL CALUPDHEL(GRID1(ista_2l:iend_2u,jsta_2l:jend_2u)) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(427)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -328,25 +335,26 @@ SUBROUTINE MISCLN ! 0-6 km shear magnitude !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND FSHR(I,J) = SQRT(USHR6(I,J)**2+VSHR6(I,J)**2) ENDDO ENDDO IF(IGET(430) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = USHR1(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(430)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -354,18 +362,19 @@ SUBROUTINE MISCLN IF(IGET(431) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = VSHR1(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(431)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -373,18 +382,19 @@ SUBROUTINE MISCLN IF(IGET(432) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = USHR6(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(432)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -392,18 +402,19 @@ SUBROUTINE MISCLN IF(IGET(433) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = VSHR6(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(433)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -429,7 +440,7 @@ SUBROUTINE MISCLN ! Chuang: Use GFS algorithm per Iredell's and DiMego's decision on unification !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(PMID(I,J,1) 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = P1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(054)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -475,16 +487,17 @@ SUBROUTINE MISCLN ! ICAO HEIGHT OF TROPOPAUSE IF (IGET(399)>0) THEN - CALL ICAOHEIGHT(P1D, GRID1(1,jsta)) + CALL ICAOHEIGHT(P1D, GRID1(ista:iend,jsta:jend)) ! print*,'sample TROPOPAUSE ICAO HEIGHTS',GRID1(im/2,(jsta+jend)/2) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(399)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -494,18 +507,19 @@ SUBROUTINE MISCLN IF (IGET(177) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = Z1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(177)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -515,18 +529,19 @@ SUBROUTINE MISCLN IF (IGET(055) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = T1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(055)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -534,15 +549,16 @@ SUBROUTINE MISCLN ! ! TROPOPAUSE POTENTIAL TEMPERATURE. IF (IGET(108) > 0) THEN - CALL CALPOT(P1D,T1D,GRID1(1,jsta)) + CALL CALPOT(P1D,T1D,GRID1(ista:iend,jsta:jend)) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(108)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -552,7 +568,7 @@ SUBROUTINE MISCLN IF ((IGET(056) > 0).OR.(IGET(057) > 0)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=U1D(I,J) GRID2(I,J)=V1D(I,J) ENDDO @@ -561,22 +577,24 @@ SUBROUTINE MISCLN if(IGET(056)>0) then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(056)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif if(IGET(057)>0) then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(057)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -587,18 +605,19 @@ SUBROUTINE MISCLN IF (IGET(058) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SHR1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(058)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -612,11 +631,11 @@ SUBROUTINE MISCLN IF ((IGET(173)>0) .OR. (IGET(174)>0) .OR. & (IGET(175)>0) .OR. (IGET(176)>0)) THEN - allocate(MAXWP(IM,jsta:jend), MAXWZ(IM,jsta:jend), & - MAXWU(IM,jsta:jend), MAXWV(IM,jsta:jend),MAXWT(IM,jsta:jend)) + allocate(MAXWP(ista:iend,jsta:jend), MAXWZ(ista:iend,jsta:jend), & + MAXWU(ista:iend,jsta:jend), MAXWV(ista:iend,jsta:jend),MAXWT(ista:iend,jsta:jend)) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND MAXWP(I,J)=SPVAL MAXWZ(I,J)=SPVAL MAXWU(I,J)=SPVAL @@ -628,7 +647,7 @@ SUBROUTINE MISCLN ! Chuang: Use GFS algorithm per Iredell's and DiMego's decision on unification !$omp parallel do private(i,j) DO J=JSTA,JEND - loopI:DO I=1,IM + loopI:DO I=ISTA,IEND DO L=1,LM IF (ABS(PMID(I,J,L)-SPVAL)<=SMALL .OR. & ABS(UH(I,J,L)-SPVAL)<=SMALL .OR. & @@ -651,34 +670,36 @@ SUBROUTINE MISCLN IF (IGET(173) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = MAXWP(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(173)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif ENDIF ! ICAO HEIGHT OF MAX WIND LEVEL IF (IGET(398)>0) THEN - CALL ICAOHEIGHT(MAXWP, GRID1(1,jsta)) + CALL ICAOHEIGHT(MAXWP, GRID1(ista:iend,jsta:jend)) ! print*,'sample MAX WIND ICAO HEIGHTS',GRID1(im/2,(jsta+jend)/2) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(398)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -687,18 +708,19 @@ SUBROUTINE MISCLN IF (IGET(174) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = MAXWZ(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(174)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -708,7 +730,7 @@ SUBROUTINE MISCLN IF ((IGET(175) > 0).OR.(IGET(176) > 0)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = MAXWU(I,J) GRID2(I,J) = MAXWV(I,J) ENDDO @@ -716,20 +738,22 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(175)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(176)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -738,18 +762,19 @@ SUBROUTINE MISCLN IF (IGET(314) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=MAXWT(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(314)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -767,10 +792,10 @@ SUBROUTINE MISCLN (IGET(604)>0.or.IGET(605)>0).OR. & (IGET(451)>0.or.IGET(578)>0).OR.IGET(580)>0 ) THEN - ALLOCATE(T7D(IM,JSTA:JEND,NFD), Q7D(IM,JSTA:JEND,NFD), & - U7D(IM,JSTA:JEND,NFD), V6D(IM,JSTA:JEND,NFD), & - P7D(IM,JSTA:JEND,NFD), ICINGFD(IM,JSTA:JEND,NFD) & - ,AERFD(IM,JSTA:JEND,NFD,NBIN_DU)) + ALLOCATE(T7D(ISTA:IEND,JSTA:JEND,NFD), Q7D(ISTA:IEND,JSTA:JEND,NFD), & + U7D(ISTA:IEND,JSTA:JEND,NFD), V6D(ISTA:IEND,JSTA:JEND,NFD), & + P7D(ISTA:IEND,JSTA:JEND,NFD), ICINGFD(ISTA:IEND,JSTA:JEND,NFD),& + AERFD(ISTA:IEND,JSTA:JEND,NFD,NBIN_DU)) ! ! DETERMINE WHETHER TO DO MSL OR AGL FD LEVELS @@ -855,7 +880,7 @@ SUBROUTINE MISCLN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = T7D(I,J,IFD) ENDDO ENDDO @@ -864,11 +889,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET1) fld_info(cfld)%lvl = LVLSXML(IFD,IGET1) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -878,11 +904,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET2) fld_info(cfld)%lvl = LVLSXML(IFD,IGET2) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -894,7 +921,7 @@ SUBROUTINE MISCLN IF (IGET(911)>0) THEN IF (LVLS(IFD,IGET(911))>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if ( T7D(I,J,IFD) > 600 ) then GRID1(I,J)=SPVAL else @@ -908,7 +935,7 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(911)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(911)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -932,7 +959,7 @@ SUBROUTINE MISCLN IF (work1 > 0 .or. work2 > 0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = Q7D(I,J,IFD) ENDDO ENDDO @@ -941,11 +968,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET1) fld_info(cfld)%lvl = LVLSXML(IFD,IGET1) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -955,11 +983,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET2) fld_info(cfld)%lvl = LVLSXML(IFD,IGET2) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -984,7 +1013,7 @@ SUBROUTINE MISCLN IF (work1 > 0 .or. work2 > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = P7D(I,J,IFD) ENDDO ENDDO @@ -993,11 +1022,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET1) fld_info(cfld)%lvl = LVLSXML(IFD,IGET1) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1007,11 +1037,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET2) fld_info(cfld)%lvl = LVLSXML(IFD,IGET2) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1036,7 +1067,7 @@ SUBROUTINE MISCLN IF (work1 > 0 .or. work2 > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ICINGFD(I,J,IFD) ENDDO ENDDO @@ -1045,11 +1076,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET1) fld_info(cfld)%lvl = LVLSXML(IFD,IGET1) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1059,11 +1091,12 @@ SUBROUTINE MISCLN cfld = cfld + 1 fld_info(cfld)%ifld = IAVBLFLD(IGET2) fld_info(cfld)%lvl = LVLSXML(IFD,IGET2) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1077,7 +1110,7 @@ SUBROUTINE MISCLN IF (LVLS(IFD,IGET(601))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AERFD(I,J,IFD,1) ENDDO ENDDO @@ -1086,11 +1119,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(601)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(601)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1102,7 +1136,7 @@ SUBROUTINE MISCLN IF (LVLS(IFD,IGET(602))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AERFD(I,J,IFD,2) ENDDO ENDDO @@ -1111,11 +1145,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(602)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(602)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1127,7 +1162,7 @@ SUBROUTINE MISCLN IF (LVLS(IFD,IGET(603))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AERFD(I,J,IFD,3) ENDDO ENDDO @@ -1136,11 +1171,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(603)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(603)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1152,7 +1188,7 @@ SUBROUTINE MISCLN IF (LVLS(IFD,IGET(604))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AERFD(I,J,IFD,4) ENDDO ENDDO @@ -1161,11 +1197,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(604)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(604)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1177,7 +1214,7 @@ SUBROUTINE MISCLN IF (LVLS(IFD,IGET(605))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AERFD(I,J,IFD,5) ENDDO ENDDO @@ -1186,11 +1223,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(605)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(605)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1204,7 +1242,7 @@ SUBROUTINE MISCLN IF ((IGET(060)>0).OR.(IGET(061)>0)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=U7D(I,J,IFD) GRID2(I,J)=V6D(I,J,IFD) ENDDO @@ -1215,11 +1253,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(060)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(060)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1231,11 +1270,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(061)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(061)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -1247,7 +1287,7 @@ SUBROUTINE MISCLN IF ((IGET(576)>0).OR.(IGET(577)>0)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = U7D(I,J,IFD) GRID2(I,J) = V6D(I,J,IFD) ENDDO @@ -1258,11 +1298,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(576)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(576)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1274,11 +1315,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(577)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(577)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -1306,14 +1348,14 @@ SUBROUTINE MISCLN allocate(HTFDCTL(NFDCTL)) HTFDCTL=pset%param(N)%level ! print *, "GTG 467 levels=",pset%param(N)%level - allocate(GTGFD(IM,JSTA:JEND,NFDCTL)) + allocate(GTGFD(ISTA:IEND,JSTA:JEND,NFDCTL)) call FDLVL_MASS(ITYPEFDLVLCTL,NFDCTL,HTFDCTL,GTG,GTGFD) ! print *, "GTG 467 Done GTGFD=",me,GTGFD(IM/2,jend,1:NFDCTL) DO IFD = 1,NFDCTL IF (LVLS(IFD,IGET(467))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=GTGFD(I,J,IFD) ENDDO ENDDO @@ -1321,11 +1363,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(467)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(467)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1344,13 +1387,13 @@ SUBROUTINE MISCLN if(allocated(HTFDCTL)) deallocate(HTFDCTL) allocate(HTFDCTL(NFDCTL)) HTFDCTL=pset%param(N)%level - allocate(CATFD(IM,JSTA:JEND,NFDCTL)) + allocate(CATFD(ISTA:IEND,JSTA:JEND,NFDCTL)) call FDLVL_MASS(ITYPEFDLVLCTL,NFDCTL,HTFDCTL,catedr,CATFD) DO IFD = 1,NFDCTL IF (LVLS(IFD,IGET(468))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=CATFD(I,J,IFD) ENDDO ENDDO @@ -1358,11 +1401,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(468)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(468)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1381,13 +1425,13 @@ SUBROUTINE MISCLN if(allocated(HTFDCTL)) deallocate(HTFDCTL) allocate(HTFDCTL(NFDCTL)) HTFDCTL=pset%param(N)%level - allocate(MWTFD(IM,JSTA:JEND,NFDCTL)) + allocate(MWTFD(ISTA:IEND,JSTA:JEND,NFDCTL)) call FDLVL_MASS(ITYPEFDLVLCTL,NFDCTL,HTFDCTL,MWT,MWTFD) DO IFD = 1,NFDCTL IF (LVLS(IFD,IGET(469))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=MWTFD(I,J,IFD) ENDDO ENDDO @@ -1395,11 +1439,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(469)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(469)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1426,7 +1471,7 @@ SUBROUTINE MISCLN IF (IGET(062)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=Z1D(I,J) IF (SUBMODELNAME == 'RTMA') THEN FREEZELVL(I,J)=GRID1(I,J) @@ -1437,11 +1482,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(062)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1451,20 +1497,21 @@ SUBROUTINE MISCLN IF (IGET(063)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH1D(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(063)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1474,18 +1521,19 @@ SUBROUTINE MISCLN IF (IGET(753)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = P1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(753)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1500,7 +1548,7 @@ SUBROUTINE MISCLN IF (IGET(165)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=Z1D(I,J) ENDDO ENDDO @@ -1508,11 +1556,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(165)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1523,7 +1572,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RH1D(I,J) < spval) GRID1(I,J)=RH1D(I,J)*100. ENDDO ENDDO @@ -1531,11 +1580,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(350)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1545,18 +1595,19 @@ SUBROUTINE MISCLN IF (IGET(756)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = P1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(756)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1573,7 +1624,7 @@ SUBROUTINE MISCLN IF (IGET(776)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=Z1D(I,J) ENDDO ENDDO @@ -1581,11 +1632,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(776)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1596,7 +1648,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RH1D(I,J) < spval) GRID1(I,J)=RH1D(I,J)*100. ENDDO ENDDO @@ -1604,11 +1656,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(777)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1618,18 +1671,19 @@ SUBROUTINE MISCLN IF (IGET(778)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=P1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(778)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1646,7 +1700,7 @@ SUBROUTINE MISCLN IF (IGET(779)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=Z1D(I,J) ENDDO ENDDO @@ -1654,11 +1708,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(779)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1669,7 +1724,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RH1D(I,J) < spval) GRID1(I,J)=RH1D(I,J)*100. ENDDO ENDDO @@ -1677,11 +1732,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(780)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1691,18 +1747,19 @@ SUBROUTINE MISCLN IF (IGET(781)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=P1D(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(781)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1710,10 +1767,10 @@ SUBROUTINE MISCLN ENDIF ! - allocate(PBND(IM,jsta:jend,NBND), TBND(IM,jsta:jend,NBND), & - QBND(IM,jsta:jend,NBND), UBND(IM,jsta:jend,NBND), & - VBND(IM,jsta:jend,NBND), RHBND(IM,jsta:jend,NBND), & - WBND(IM,jsta:jend,NBND)) + allocate(PBND(ista:iend,jsta:jend,NBND), TBND(ista:iend,jsta:jend,NBND), & + QBND(ista:iend,jsta:jend,NBND), UBND(ista:iend,jsta:jend,NBND), & + VBND(ista:iend,jsta:jend,NBND), RHBND(ista:iend,jsta:jend,NBND), & + WBND(ista:iend,jsta:jend,NBND)) ! ! ***BLOCK 5: BOUNDARY LAYER FIELDS. @@ -1733,9 +1790,9 @@ SUBROUTINE MISCLN (IGET(096)>0).OR.(IGET(097)>0).OR. & (IGET(098)>0).OR.(IGET(221)>0) ) THEN ! - allocate(OMGBND(IM,jsta:jend,NBND),PWTBND(IM,jsta:jend,NBND), & - QCNVBND(IM,jsta:jend,NBND),LVLBND(IM,jsta:jend,NBND), & - LB2(IM,jsta:jend)) + allocate(OMGBND(ista:iend,jsta:jend,NBND),PWTBND(ista:iend,jsta:jend,NBND), & + QCNVBND(ista:iend,jsta:jend,NBND),LVLBND(ista:iend,jsta:jend,NBND), & + LB2(ista:iend,jsta:jend)) ! COMPUTE ETA BOUNDARY LAYER FIELDS. CALL BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & @@ -1743,7 +1800,7 @@ SUBROUTINE MISCLN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID2(i,j) = SPVAL ENDDO ENDDO @@ -1757,7 +1814,7 @@ SUBROUTINE MISCLN IF (LVLS(LBND,IGET(067))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PBND(I,J,LBND) ENDDO ENDDO @@ -1765,11 +1822,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(067)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(067)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1781,7 +1839,7 @@ SUBROUTINE MISCLN IF (LVLS(LBND,IGET(068))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=TBND(I,J,LBND) ENDDO ENDDO @@ -1789,11 +1847,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(068)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(068)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1803,16 +1862,17 @@ SUBROUTINE MISCLN ! BOUNDARY LAYER POTENTIAL TEMPERATURE. IF (IGET(069)>0) THEN IF (LVLS(LBND,IGET(069))>0) THEN - CALL CALPOT(PBND(1,jsta,LBND),TBND(1,jsta,LBND),GRID1(1,jsta)) + CALL CALPOT(PBND(ista,jsta,LBND),TBND(ista,jsta,LBND),GRID1(ista:iend,jsta:jend)) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(069)) fld_info(cfld)%lvl=LVLSXML(IFD,IGET(069)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1824,21 +1884,22 @@ SUBROUTINE MISCLN IF (LVLS(LBND,IGET(072))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=RHBND(I,J,LBND) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%lvl=LVLSXML(LBND,IGET(072)) fld_info(cfld)%ifld=IAVBLFLD(IGET(072)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1848,17 +1909,18 @@ SUBROUTINE MISCLN ! BOUNDARY LAYER DEWPOINT TEMPERATURE. IF (IGET(070)>0) THEN IF (LVLS(LBND,IGET(070))>0) THEN - CALL CALDWP(PBND(1,jsta,LBND), QBND(1,jsta,LBND), & - GRID1(1,jsta), TBND(1,jsta,LBND)) + CALL CALDWP(PBND(ista:iend,jsta:jend,LBND), QBND(ista:iend,jsta:jend,LBND), & + GRID1(ista:iend,jsta:jend), TBND(ista:iend,jsta:jend,LBND)) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(070)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(070)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1870,7 +1932,7 @@ SUBROUTINE MISCLN IF (LVLS(LBND,IGET(071))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=QBND(I,J,LBND) ENDDO ENDDO @@ -1879,11 +1941,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(071)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(071)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1895,7 +1958,7 @@ SUBROUTINE MISCLN IF (LVLS(LBND,IGET(088))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QCNVBND(I,J,LBND) ENDDO ENDDO @@ -1903,11 +1966,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(088)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(088)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1929,7 +1993,7 @@ SUBROUTINE MISCLN IF(FIELD1.OR.FIELD2)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = UBND(I,J,LBND) GRID2(I,J) = VBND(I,J,LBND) ENDDO @@ -1941,11 +2005,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(073)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(073)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1957,11 +2022,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(074)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(074)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -1974,7 +2040,7 @@ SUBROUTINE MISCLN IF (LVLS(LBND,IGET(090))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = OMGBND(I,J,LBND) ENDDO ENDDO @@ -1982,11 +2048,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(090)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(090)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endiF @@ -1998,7 +2065,7 @@ SUBROUTINE MISCLN IF (LVLS(LBND,IGET(089))>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PWTBND(I,J,LBND) ENDDO ENDDO @@ -2007,11 +2074,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(089)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(089)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2020,19 +2088,20 @@ SUBROUTINE MISCLN ! ! BOUNDARY LAYER LIFTED INDEX. IF (IGET(075)>0 .OR. IGET(031)>0 .OR. IGET(573)>0) THEN - CALL OTLFT(PBND(1,jsta,LBND),TBND(1,jsta,LBND), & - QBND(1,jsta,LBND),GRID1(1,jsta)) + CALL OTLFT(PBND(ista,jsta,LBND),TBND(ista,jsta,LBND), & + QBND(ista,jsta,LBND),GRID1(ista:iend,jsta:jend)) IF(IGET(075)>0)THEN IF (LVLS(LBND,IGET(075))>0) THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(075)) fld_info(cfld)%lvl=LVLSXML(LBND,IGET(075)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2041,7 +2110,7 @@ SUBROUTINE MISCLN IF(IGET(031)>0 .or. IGET(573)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID2(I,J) = MIN(EGRID2(I,J),GRID1(I,J)) END DO END DO @@ -2073,7 +2142,7 @@ SUBROUTINE MISCLN ! 50 CONTINUE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=EGRID2(I,J) ENDDO ENDDO @@ -2083,7 +2152,7 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(031)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif endif @@ -2091,11 +2160,12 @@ SUBROUTINE MISCLN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(573)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2132,18 +2202,18 @@ SUBROUTINE MISCLN ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID1(I,J) = -H99999 EGRID2(I,J) = -H99999 ENDDO ENDDO ! DO 80 LBND = 1,NBND - CALL CALTHTE(PBND(1,jsta,LBND),TBND(1,jsta,LBND), & - QBND(1,jsta,LBND),EGRID1) + CALL CALTHTE(PBND(ista,jsta,LBND),TBND(ista,jsta,LBND), & + QBND(ista,jsta,LBND),EGRID1) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (EGRID1(I,J) > EGRID2(I,J)) THEN EGRID2(I,J) = EGRID1(I,J) LB2(I,J) = LVLBND(I,J,LBND) @@ -2164,7 +2234,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO @@ -2173,11 +2243,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(566)) fld_info(cfld)%lvl=LVLSXML(1,IGET(566)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2188,7 +2259,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = - EGRID2(I,J) ENDDO ENDDO @@ -2197,7 +2268,7 @@ SUBROUTINE MISCLN ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = - GRID1(I,J) ENDDO ENDDO @@ -2206,11 +2277,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(567)) fld_info(cfld)%lvl=LVLSXML(1,IGET(567)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2222,18 +2294,19 @@ SUBROUTINE MISCLN IF(IGET(221) > 0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PBLH(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(221)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2242,24 +2315,25 @@ SUBROUTINE MISCLN ! EGRID1 IS LCL PRESSURE. EGRID2 IS LCL HEIGHT. ! IF ( (IGET(109)>0).OR.(IGET(110)>0) ) THEN - CALL CALLCL(PBND(1,jsta,1),TBND(1,jsta,1), & - QBND(1,jsta,1),EGRID1,EGRID2) + CALL CALLCL(PBND(ista,jsta,1),TBND(ista,jsta,1), & + QBND(ista,jsta,1),EGRID1,EGRID2) IF (IGET(109)>0) THEN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(TBND(I,J,1) < spval) GRID1(I,J) = EGRID2(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(109)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2268,18 +2342,19 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(TBND(I,J,1) < spval) GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(110)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2294,15 +2369,15 @@ SUBROUTINE MISCLN (IGET(096)>0).OR.(IGET(097)>0).OR. & (IGET(098)>0) ) THEN - allocate(T78483(im,jsta:jend), T89671(im,jsta:jend), & - P78483(im,jsta:jend), P89671(im,jsta:jend)) + allocate(T78483(ista:iend,jsta:jend), T89671(ista:iend,jsta:jend), & + P78483(ista:iend,jsta:jend), P89671(ista:iend,jsta:jend)) ! ! COMPUTE SIGMA 0.89671 AND 0.78483 TEMPERATURES ! INTERPOLATE LINEAR IN LOG P IF (IGET(097)>0.OR.IGET(098)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND P78483(I,J) = LOG(PINT(I,J,NINT(LMH(I,J)))*0.78483) P89671(I,J) = LOG(PINT(I,J,NINT(LMH(I,J)))*0.89671) ENDDO @@ -2312,7 +2387,7 @@ SUBROUTINE MISCLN !!$omp parallel do private(fac1,fac2,pkl1,pku1,t78483,t89671) DO L=2,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PKL1=0.5*(ALPINT(I,J,L)+ALPINT(I,J,L+1)) PKU1=0.5*(ALPINT(I,J,L)+ALPINT(I,J,L-1)) ! IF(I==1 .AND. J==1)PRINT*,'L,P89671,PKL1,PKU1= ', & @@ -2336,7 +2411,7 @@ SUBROUTINE MISCLN ! print*,'done(1,1)= ',done(1,1) !$omp parallel do private(i,j,pl,tl,ql,qsat,rhl) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(.NOT. DONE(I,J)) THEN PL = PINT(I,J,LM-1) TL = 0.5*(T(I,J,LM-2)+T(I,J,LM-1)) @@ -2406,7 +2481,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T(I,J,LM) < spval) GRID1(I,J) = T89671(I,J) ! IF(T89671(I,J)>350.)PRINT*,'LARGE T89671 ', & ! I,J,T89671(I,J) @@ -2416,11 +2491,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(097)) fld_info(cfld)%lvl=LVLSXML(1,IGET(097)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2431,7 +2507,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T(I,J,LM) < spval) GRID1(I,J) = T78483(I,J) ENDDO ENDDO @@ -2439,11 +2515,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(098)) fld_info(cfld)%lvl=LVLSXML(1,IGET(098)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2465,18 +2542,19 @@ SUBROUTINE MISCLN IF (IGET(091)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PBND(I,J,1) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(091)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2486,7 +2564,7 @@ SUBROUTINE MISCLN IF (IGET(092)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TBND(I,J,1) ENDDO ENDDO @@ -2494,11 +2572,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(092)) fld_info(cfld)%lvl=LVLSXML(1,IGET(092)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2508,7 +2587,7 @@ SUBROUTINE MISCLN IF (IGET(093)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QBND(I,J,1) ENDDO ENDDO @@ -2517,11 +2596,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(093)) fld_info(cfld)%lvl=LVLSXML(1,IGET(093)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2531,21 +2611,22 @@ SUBROUTINE MISCLN IF (IGET(094)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RHBND(I,J,1) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(094)) fld_info(cfld)%lvl=LVLSXML(1,IGET(094)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2555,7 +2636,7 @@ SUBROUTINE MISCLN IF ((IGET(095)>0).OR.(IGET(096)>0)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = UBND(I,J,1) GRID2(I,J) = VBND(I,J,1) ENDDO @@ -2565,11 +2646,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(095)) fld_info(cfld)%lvl=LVLSXML(1,IGET(095)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2579,11 +2661,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(096)) fld_info(cfld)%lvl=LVLSXML(1,IGET(096)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -2609,29 +2692,30 @@ SUBROUTINE MISCLN ! IF ( (IGET(066)>0).OR.(IGET(081)>0).OR. & (IGET(082)>0).OR.(IGET(104)>0) ) THEN - allocate(RH3310(IM,jsta:jend),RH6610(IM,jsta:jend), & - RH3366(IM,jsta:jend),PW3310(IM,jsta:jend)) + allocate(RH3310(ista:iend,jsta:jend),RH6610(ista:iend,jsta:jend), & + RH3366(ista:iend,jsta:jend),PW3310(ista:iend,jsta:jend)) CALL LFMFLD(RH3310,RH6610,RH3366,PW3310) ! ! SIGMA 0.33-1.00 MEAN RELATIVE HUMIIDITY. IF (IGET(066)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH3310(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(066)) fld_info(cfld)%lvl=LVLSXML(1,IGET(066)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo ! print *,'in miscln,RH0.33-1.0,cfld=',cfld,'fld=', & @@ -2643,21 +2727,22 @@ SUBROUTINE MISCLN IF (IGET(081)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH6610(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(081)) fld_info(cfld)%lvl=LVLSXML(1,IGET(081)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2667,21 +2752,22 @@ SUBROUTINE MISCLN IF (IGET(082)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH3366(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(082)) fld_info(cfld)%lvl=LVLSXML(1,IGET(082)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2691,7 +2777,7 @@ SUBROUTINE MISCLN IF (IGET(104)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PW3310(I,J) ENDDO ENDDO @@ -2700,11 +2786,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(104)) fld_info(cfld)%lvl=LVLSXML(1,IGET(104)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2717,9 +2804,9 @@ SUBROUTINE MISCLN IF ( (IGET(099)>0).OR.(IGET(100)>0).OR. & (IGET(101)>0).OR.(IGET(102)>0).OR. & (IGET(103)>0) ) THEN - allocate(RH4710(IM,jsta_2l:jend_2u),RH4796(IM,jsta_2l:jend_2u), & - RH1847(IM,jsta_2l:jend_2u)) - allocate(RH8498(IM,jsta_2l:jend_2u),QM8510(IM,jsta_2l:jend_2u)) + allocate(RH4710(ista_2l:iend_2u,jsta_2l:jend_2u),RH4796(ista_2l:iend_2u,jsta_2l:jend_2u), & + RH1847(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(RH8498(ista_2l:iend_2u,jsta_2l:jend_2u),QM8510(ista_2l:iend_2u,jsta_2l:jend_2u)) CALL NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) ! @@ -2727,21 +2814,22 @@ SUBROUTINE MISCLN IF (IGET(099)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH4710(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(099)) fld_info(cfld)%lvl=LVLSXML(1,IGET(099)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2751,21 +2839,22 @@ SUBROUTINE MISCLN IF (IGET(100)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH4796(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(100)) fld_info(cfld)%lvl=LVLSXML(1,IGET(100)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2775,21 +2864,22 @@ SUBROUTINE MISCLN IF (IGET(101)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH1847(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(101)) fld_info(cfld)%lvl=LVLSXML(1,IGET(101)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2799,21 +2889,22 @@ SUBROUTINE MISCLN IF (IGET(102)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RH8498(I,J) ENDDO ENDDO - CALL SCLFLD(GRID1,H100,IM,JM) + CALL SCLFLD(GRID1(ista:iend,jsta:jend),H100,IM,JM) CALL BOUND(GRID1,H1,H100) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(102)) fld_info(cfld)%lvl=LVLSXML(1,IGET(102)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2825,7 +2916,7 @@ SUBROUTINE MISCLN ! CONVERT TO DIVERGENCE FOR GRIB !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(QM8510(I,J) < spval) GRID1(I,J) = -1.0*QM8510(I,J) ENDDO ENDDO @@ -2833,11 +2924,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(103)) fld_info(cfld)%lvl=LVLSXML(1,IGET(103)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2849,8 +2941,8 @@ SUBROUTINE MISCLN IF ( (IGET(318)>0).OR.(IGET(319)>0).OR. & (IGET(320)>0))THEN - allocate(RH4410(IM,jsta:jend),RH7294(IM,jsta:jend), & - RH4472(IM,jsta:jend),RH3310(IM,jsta:jend)) + allocate(RH4410(ista:iend,jsta:jend),RH7294(ista:iend,jsta:jend), & + RH4472(ista:iend,jsta:jend),RH3310(ista:iend,jsta:jend)) CALL LFMFLD_GFS(RH4410,RH7294,RH4472,RH3310) ! ! SIGMA 0.44-1.00 MEAN RELATIVE HUMIIDITY. @@ -2858,7 +2950,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RH4410(I,J) < spval) GRID1(I,J) = RH4410(I,J)*100. ENDDO ENDDO @@ -2867,11 +2959,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(318)) fld_info(cfld)%lvl=LVLSXML(1,IGET(318)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2882,7 +2975,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RH7294(I,J) < spval) GRID1(I,J) = RH7294(I,J)*100. ENDDO ENDDO @@ -2891,11 +2984,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(319)) fld_info(cfld)%lvl=LVLSXML(1,IGET(319)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2906,7 +3000,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(RH4472(I,J) < spval) GRID1(I,J)=RH4472(I,J)*100. ENDDO ENDDO @@ -2915,11 +3009,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(320)) fld_info(cfld)%lvl=LVLSXML(1,IGET(320)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2933,7 +3028,7 @@ SUBROUTINE MISCLN (IGET(325)>0).OR.(IGET(326)>0)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID2(I,J) = 0.995*PINT(I,J,LM+1) EGRID1(I,J) = LOG(PMID(I,J,LM)/EGRID2(I,J)) & / LOG(PMID(I,J,LM)/PMID(I,J,LM-1)) @@ -2954,7 +3049,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T(I,J,LM)0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J)=EGRID2(I,J) IF (SUBMODELNAME == 'RTMA') MLLCL(I,J) = GRID1(I,J) ENDDO @@ -3267,7 +3370,7 @@ SUBROUTINE MISCLN ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID1(I,J) = -H99999 EGRID2(I,J) = -H99999 ENDDO @@ -3282,7 +3385,7 @@ SUBROUTINE MISCLN GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) THEN GRID1(I,J) = EGRID1(I,J) IF (SUBMODELNAME == 'RTMA') MUCAPE(I,J)=GRID1(I,J) @@ -3297,11 +3400,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(584)) fld_info(cfld)%lvl=LVLSXML(1,IGET(584)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3313,13 +3417,13 @@ SUBROUTINE MISCLN GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = - EGRID2(I,J) ENDDO ENDDO CALL BOUND(GRID1,D00,H99999) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) THEN GRID1(I,J) = - GRID1(I,J) IF (SUBMODELNAME == 'RTMA')THEN @@ -3333,11 +3437,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(585)) fld_info(cfld)%lvl=LVLSXML(1,IGET(585)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3349,7 +3454,7 @@ SUBROUTINE MISCLN GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = EGRID4(I,J) ENDDO ENDDO @@ -3357,11 +3462,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(443)) fld_info(cfld)%lvl=LVLSXML(1,IGET(443)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3369,7 +3475,7 @@ SUBROUTINE MISCLN !Equilibrium Temperature IF (IGET(982)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TEQL(I,J) ENDDO ENDDO @@ -3377,11 +3483,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(982)) fld_info(cfld)%lvl=LVLSXML(1,IGET(982)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3394,7 +3501,7 @@ SUBROUTINE MISCLN GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = EGRID3(I,J) ENDDO ENDDO @@ -3405,11 +3512,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(246)) fld_info(cfld)%lvl=LVLSXML(1,IGET(246)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3420,7 +3528,7 @@ SUBROUTINE MISCLN GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CPRATE(I,J) < spval) THEN IF (CPRATE(I,J) > PTHRESH) THEN GRID1(I,J) = EGRID5(I,J) @@ -3435,11 +3543,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(444)) fld_info(cfld)%lvl=LVLSXML(1,IGET(444)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3453,13 +3562,13 @@ SUBROUTINE MISCLN ! --- Effective (inflow) Layer (EL) ! - ALLOCATE(EL_BASE(IM,JSTA_2L:JEND_2U)) - ALLOCATE(EL_TOPS(IM,JSTA_2L:JEND_2U)) - ALLOCATE(FOUND_BASE(IM,JSTA_2L:JEND_2U)) - ALLOCATE(FOUND_TOPS(IM,JSTA_2L:JEND_2U)) + ALLOCATE(EL_BASE(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) + ALLOCATE(EL_TOPS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) + ALLOCATE(FOUND_BASE(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) + ALLOCATE(FOUND_TOPS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EL_BASE(I,J) = LM EL_TOPS(I,J) = LM FOUND_BASE(I,J) = .FALSE. @@ -3477,7 +3586,7 @@ SUBROUTINE MISCLN ! SET AIR PARCELS FOR LEVEL L !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID1(I,J) = -H99999 EGRID2(I,J) = -H99999 IDUMMY(I,J) = 0 @@ -3496,7 +3605,7 @@ SUBROUTINE MISCLN !--- CHECK CAPE/CIN OF EACH AIR PARCELS WITH EL CRITERIA !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF ( .NOT. FOUND_BASE(I,J) ) THEN IF ( EGRID1(I,J) >= 100. .AND. EGRID2(I,J) >= -250. ) THEN EL_BASE(I,J) = L @@ -3541,7 +3650,7 @@ SUBROUTINE MISCLN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IREC = IREC + 1 IREC2 = IREC2 + 1 WRITE(IUNIT,'(1x,I6,2x,I6,2(2x,I6,2x,F12.3))') I, J, & @@ -3587,7 +3696,7 @@ SUBROUTINE MISCLN ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID1(I,J) = -H99999 EGRID2(I,J) = -H99999 EGRID3(I,J) = -H99999 @@ -3621,7 +3730,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO @@ -3630,11 +3739,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(950)) fld_info(cfld)%lvl=LVLSXML(1,IGET(950)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3645,7 +3755,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = - EGRID2(I,J) ENDDO ENDDO @@ -3654,7 +3764,7 @@ SUBROUTINE MISCLN ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = - GRID1(I,J) ENDDO ENDDO @@ -3663,11 +3773,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(951)) fld_info(cfld)%lvl=LVLSXML(1,IGET(951)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3679,7 +3790,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = EGRID3(I,J) ENDDO ENDDO @@ -3688,11 +3799,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(952)) fld_info(cfld)%lvl=LVLSXML(1,IGET(952)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3701,10 +3813,10 @@ SUBROUTINE MISCLN ! EFFECTIVE STORM RELATIVE HELICITY AND STORM MOTION. - allocate(UST(IM,jsta_2l:jend_2u),VST(IM,jsta_2l:jend_2u), & - HELI(IM,jsta_2l:jend_2u,2)) - allocate(LLOW(IM,jsta_2l:jend_2u),LUPP(IM,jsta_2l:jend_2u), & - CANGLE(IM,jsta_2l:jend_2u)) + allocate(UST(ista_2l:iend_2u,jsta_2l:jend_2u),VST(ista_2l:iend_2u,jsta_2l:jend_2u), & + HELI(ista_2l:iend_2u,jsta_2l:jend_2u,2)) + allocate(LLOW(ista_2l:iend_2u,jsta_2l:jend_2u),LUPP(ista_2l:iend_2u,jsta_2l:jend_2u), & + CANGLE(ista_2l:iend_2u,jsta_2l:jend_2u)) iget1 = IGET(953) iget2 = -1 @@ -3722,7 +3834,7 @@ SUBROUTINE MISCLN !RELATED VARIABLES !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LLOW(I,J) = EL_BASE(I,J) LUPP(I,J) = EL_TOPS(I,J) ENDDO @@ -3730,7 +3842,7 @@ SUBROUTINE MISCLN ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LLOW(I,J) = INT(EGRID4(I,J)) LUPP(I,J) = INT(EGRID5(I,J)) ENDDO @@ -3747,7 +3859,7 @@ SUBROUTINE MISCLN IREC=0 OPEN(IUNIT,FILE=TRIM(ADJUSTL(EFFL_FNAME)),FORM='FORMATTED') DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IREC = IREC + 1 ! WRITE(IUNIT,'(1x,I6,2x,I6,2x,I6,2x,I6)')I,J,LLOW(I,J),LUPP(I,J) WRITE(IUNIT,'(1x,I6,2x,I6,2(2x,I6,2x,F12.3))') I, J, & @@ -3765,7 +3877,7 @@ SUBROUTINE MISCLN IF (iget2 > 0) then !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = HELI(I,J,1) ! GRID1(I,J) = HELI(I,J,2) ENDDO @@ -3774,11 +3886,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(iget1) fld_info(cfld)%lvl=LVLSXML(1,iget1) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3791,14 +3904,14 @@ SUBROUTINE MISCLN !EL field allocation - allocate(ESHR(IM,jsta_2l:jend_2u),UVECT(IM,jsta_2l:jend_2u),& - VVECT(IM,jsta_2l:jend_2u),HTSFC(IM,jsta_2l:jend_2u)) - allocate(EFFUST(IM,jsta_2l:jend_2u),EFFVST(IM,jsta_2l:jend_2u),& - ESRH(IM,jsta_2l:jend_2u)) + allocate(ESHR(ista_2l:iend_2u,jsta_2l:jend_2u),UVECT(ista_2l:iend_2u,jsta_2l:jend_2u),& + VVECT(ista_2l:iend_2u,jsta_2l:jend_2u),HTSFC(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(EFFUST(ista_2l:iend_2u,jsta_2l:jend_2u),EFFVST(ista_2l:iend_2u,jsta_2l:jend_2u),& + ESRH(ista_2l:iend_2u,jsta_2l:jend_2u)) ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND MAXTHE(I,J)=-H99999 THE(I,J)=-H99999 MAXTHEPOS(I,J)=0 @@ -3808,7 +3921,7 @@ SUBROUTINE MISCLN DO L=LM,1,-1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID1(I,J) = -H99999 P1D(I,J)=PMID(I,J,L) T1D(I,J)=T(I,J,L) @@ -3817,7 +3930,7 @@ SUBROUTINE MISCLN ENDDO CALL CALTHTE(P1D,T1D,Q1D,EGRID1) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND THE(I,J)=EGRID1(I,J) IF(THE(I,J)>=MAXTHE(I,J))THEN MAXTHE(I,J)=THE(I,J) @@ -3838,8 +3951,8 @@ SUBROUTINE MISCLN IVE(J) = MOD(J,2) IVW(J) = IVE(J)-1 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE IF(gridtype == 'B')THEN @@ -3849,8 +3962,8 @@ SUBROUTINE MISCLN IVE(J)=1 IVW(J)=0 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE @@ -3860,13 +3973,13 @@ SUBROUTINE MISCLN IVE(J) = 0 IVW(J) = 0 enddo - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF - IF(gridtype /= 'A') CALL EXCH(FIS(1:IM,JSTA:JEND)) + IF(gridtype /= 'A') CALL EXCH(FIS(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U)) DO J=JSTART,JSTOP DO I=ISTART,ISTOP IE = I+IVE(J) @@ -3885,7 +3998,7 @@ SUBROUTINE MISCLN IF (IGET(979)>0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ZINT(I,J,LLOW(I,J))0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ZINT(I,J,LUPP(I,J))0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(LLOW(I,J)0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(LLOW(I,J)0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(UVECT(I,J)0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(LLOW(I,J)0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(LLOW(I,J)0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(LLOW(I,J)0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (MLLCL(I,J)>D2000) THEN MLLCLtmp=D00 ELSEIF (MLLCL(I,J)0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LLMH = NINT(LMH(I,J)) P1D(I,J) = PMID(I,J,LLMH) T1D(I,J) = T(I,J,LLMH) @@ -4151,7 +4273,7 @@ SUBROUTINE MISCLN ENDDO CALL CALLCL(P1D,T1D,Q1D,EGRID1,EGRID2) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND SLCL(I,J)=EGRID2(I,J) ENDDO ENDDO @@ -4164,7 +4286,7 @@ SUBROUTINE MISCLN EGRID3,dummy,dummy) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (SLCL(I,J)>D2000) THEN SLCLtmp=D00 ELSEIF (SLCL(I,J)<=D1000) THEN @@ -4202,11 +4324,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(990)) fld_info(cfld)%lvl=LVLSXML(1,IGET(990)) -! $omp parallel do private(i,j,jj) +! $omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4215,7 +4338,7 @@ SUBROUTINE MISCLN !Effective Layer Supercell Parameter IF (IGET(991)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (ESHR(I,J)<10.) THEN ESHRtmp=D00 ELSEIF (ESHR(I,J)>20.0) THEN @@ -4244,11 +4367,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(991)) fld_info(cfld)%lvl=LVLSXML(1,IGET(991)) -! $omp parallel do private(i,j,jj) +! $omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4259,7 +4383,7 @@ SUBROUTINE MISCLN IF (IGET(992)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EGRID1(I,J) = -H99999 EGRID2(I,J) = -H99999 EGRID3(I,J) = -H99999 @@ -4287,7 +4411,7 @@ SUBROUTINE MISCLN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = EGRID3(I,J) ENDDO ENDDO @@ -4296,11 +4420,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(992)) fld_info(cfld)%lvl=LVLSXML(1,IGET(992)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4311,7 +4436,7 @@ SUBROUTINE MISCLN !$omp parallel do private(i,j) ! EGRID3 is Virtual LFC DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = Q1D(I,J) ENDDO ENDDO @@ -4319,11 +4444,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(763)) fld_info(cfld)%lvl=LVLSXML(1,IGET(763)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4333,7 +4459,7 @@ SUBROUTINE MISCLN IF (IGET(993)>0) THEN GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LAPSE=-((T700(I,J)-T500(I,J))/((Z700(I,J)-Z500(I,J)))) SHIP=(MUCAPE(I,J)*D1000*MUQ1D(I,J)*LAPSE*(T500(I,J)-K2C)*FSHR(I,J))/HCONST IF (MUCAPE(I,J)<1300.)THEN @@ -4352,11 +4478,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(993)) fld_info(cfld)%lvl=LVLSXML(1,IGET(993)) -! $omp parallel do private(i,j,jj) +! $omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4371,7 +4498,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval ) GRID1(I,J) = CANGLE(I,J) ! IF(EGRID1(I,J)<100. .OR. EGRID2(I,J)>-250.) THEN ! GRID1(I,J) = 0. @@ -4382,11 +4509,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(957)) fld_info(cfld)%lvl=LVLSXML(1,IGET(957)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4398,7 +4526,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval ) GRID1(I,J) = EGRID7(I,J) ENDDO ENDDO @@ -4407,11 +4535,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(955)) fld_info(cfld)%lvl=LVLSXML(1,IGET(955)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4423,7 +4552,7 @@ SUBROUTINE MISCLN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval ) GRID1(I,J) = EGRID8(I,J) ENDDO ENDDO @@ -4432,11 +4561,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(956)) fld_info(cfld)%lvl=LVLSXML(1,IGET(956)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4464,7 +4594,7 @@ SUBROUTINE MISCLN GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = -EGRID6(I,J) ENDDO ENDDO @@ -4473,11 +4603,12 @@ SUBROUTINE MISCLN cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(954)) fld_info(cfld)%lvl=LVLSXML(1,IGET(954)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4517,15 +4648,16 @@ SUBROUTINE MISCLN ! ! RELATIVE HUMIDITY WITH RESPECT TO PRECIPITABLE WATER IF (IGET(749)>0) THEN - CALL CALRH_PW(GRID1(1,jsta)) + CALL CALRH_PW(GRID1(ista:iend,jsta:jend)) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(749)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif diff --git a/sorc/ncep_post.fd/MIXLEN.f b/sorc/ncep_post.fd/MIXLEN.f index 33c02dd7e..767bcad0e 100644 --- a/sorc/ncep_post.fd/MIXLEN.f +++ b/sorc/ncep_post.fd/MIXLEN.f @@ -10,6 +10,7 @@ SUBROUTINE MIXLEN(EL0,EL) ! 01-10-25 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT ! 02-06-19 MIKE BALDWIN - WRF VERSION ! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) +! 21-09-30 J MENG - 2D DECOMPOSITION ! ! ! INPUT: @@ -42,7 +43,8 @@ SUBROUTINE MIXLEN(EL0,EL) use masks, only: lmh, htm use params_mod, only: EPSQ2, CAPA use ctlblk_mod, only: jsta, jend, jsta_m, jend_m, im, jm, jsta_2l, jend_2u,& - lm, lm1, spval + lm, lm1, spval,& + ista, iend, ista_m, iend_m, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -54,9 +56,9 @@ SUBROUTINE MIXLEN(EL0,EL) ! ! ------------------------------------------------------------------ ! - real,intent(in) :: el0(im,jsta_2l:jend_2u) - real,intent(out) :: EL(IM,jsta_2l:jend_2u,LM) - real HGT(IM,JSTA:JEND),APE(IM,JSTA_M:JEND_M,2) + real,intent(in) :: el0(ista_2l:iend_2u,jsta_2l:jend_2u) + real,intent(out) :: EL(ista_2l:iend_2u,jsta_2l:jend_2u,LM) + real HGT(ISTA:IEND,JSTA:JEND),APE(ISTA_M:IEND_M,JSTA_M:JEND_M,2) ! integer I,J,L real ZL,VKRMZ,ENSQ,Q2KL,ELST,ZIAG,ELVGD @@ -66,13 +68,13 @@ SUBROUTINE MIXLEN(EL0,EL) !$omp parallel do DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EL(I,J,L)=0. ENDDO ENDDO ENDDO DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND HGT(I,J)=ZINT(I,J,NINT(LMH(I,J))+1) ENDDO ENDDO @@ -83,7 +85,7 @@ SUBROUTINE MIXLEN(EL0,EL) !$omp parallel do private(i,j,l,vkrmz,zl) DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(HGT(I,J)=(num_procs-numx))then + jend_m=jm-1 + jend_m2=jm-2 + end if + + if(mod(me+1,numx)==0)then + iend_m=im-1 + iend_m2=im-2 + end if + + 102 format(6i10,a20) + +! if ( me == 0 ) then - idn = MPI_PROC_NULL + idn = MPI_PROC_NULL end if if ( me == num_procs - 1 ) then - iup = MPI_PROC_NULL + iup = MPI_PROC_NULL end if ! -! print *, ' ME, NUM_PROCS = ',me,num_procs -! print *, ' ME, JSTA, JSTA_M, JSTA_M2 = ',me,jsta,jsta_m,jsta_m2 -! print *, ' ME, JEND, JEND_M, JEND_M2 = ',me,jend,jend_m,jend_m2 -! print *, ' ME, IUP, IDN = ',me,iup,idn -! -! counts, disps for gatherv and scatterv -! - do i = 0, num_procs - 1 - call para_range(1,jm,num_procs,i,jsx,jex) - icnt(i) = (jex-jsx+1)*im - idsp(i) = (jsx-1)*im - if ( me == 0 ) then - print *, ' i, icnt(i),idsp(i) = ',i,icnt(i), & - idsp(i) - end if +! GWV. Array of i/j coordinates for bookkeeping tests. Not used in +! calculations but to check if scatter,gather, and exchanges are doing as +! expected. Both real and integer arrays are sent. Integer will be needed +! for very large domains because real mantissas overflow and both coordinates' +! information can't be packed into a real mantisa. Real is easier to use +! because the datatype is the same as for actual data + + allocate(icoords(im,jm)) + allocate(rcoords(im,jm)) + allocate(ibuff(im*jm)) + allocate(rbuff(im*jm)) + do j=1,jm + do i=1,im + icoords(i,j)=10000*I+j ! both I and J information is in each element + rcoords(i,j)=4000*i+j ! both I and J information is in each element but it overflows for large I I to 3600 is safe + end do end do + +! end COORDS test + +! counts, disps for gatherv and scatterv + + isum=1 + allocate(isxa(0:num_procs-1) ) + allocate(jsxa(0:num_procs-1) ) + allocate(iexa(0:num_procs-1) ) + allocate(jexa(0:num_procs-1) ) + do i = 0, num_procs - 1 + call para_range2(im,jm,numx,num_procs/numx,i,isx,iex,jsx,jex) + icnt(i) = ((jex-jsx)+1)*((iex-isx)+1) + isxa(i)=isx + iexa(i)=iex + jsxa(i)=jsx + jexa(i)=jex + + idsp(i)=isumm + isumm=isumm+icnt(i) + if(jsx .eq. 1 .or. jex .eq. jm) then + icnt2(i) = (iex-isx+1) + else + icnt2(i)=0 + endif + idsp2(i)=isumm2 + if(jsx .eq. 1 .or. jex .eq. jm) isumm2=isumm2+(iex-isx+1) + +! GWV Create send buffer for scatter. This is now needed because we are no +! longer sending contiguous slices of the im,jm full state arrays to the +! processors with scatter. Instead we are sending a slice of I and a slice of J +! and so have to reshape the send buffer below to make it contiguous groups of +! isx:iex,jsx:jex arrays + + do jj=jsx,jex + do ii=isx,iex + ibuff(isum)=icoords(ii,jj) + rbuff(isum)=rcoords(ii,jj) + isum=isum+1 + end do + end do + + end do ! enddo of num_procs ! ! extraction limits -- set to two rows ! jsta_2l = max(jsta - 2, 1 ) jend_2u = min(jend + 2, jm ) + if(modelname=='GFS') then + ista_2l=max(ista-2,0) + iend_2u=min(iend+2,im+1) + else + ista_2l=max(ista-2,1) + iend_2u=min(iend+2,im) + endif + ! special for c-grid v jvend_2u = min(jend + 2, jm+1 ) -! special for c-grid v -! print *, ' me, jvend_2u = ',me,jvend_2u ! +! NEW neighbors + + ileft = me - 1 + iright = me + 1 + iup=MPI_PROC_NULL + idn=MPI_PROC_NULL + + if(mod(me,numx) .eq. 0) print *,' LEFT POINT',me + if(mod(me+1,numx) .eq. 0) print *,' RIGHT POINT',me + if(mod(me,numx) .eq. 0) ileft=MPI_PROC_NULL + if(mod(me,numx) .eq. 0) ileftb=me+numx-1 + if(mod(me+1,numx) .eq. 0 .or. me .eq. num_procs-1) iright=MPI_PROC_NULL + if(mod(me+1,numx) .eq. 0 .or. me .eq. num_procs-1) irightb=me-numx+1 + if(me .ge. numx) idn=me-numx + if(me+1 .le. num_procs-numx) iup=me+numx + + print 102,me,ileft,iright,iup,idn,num_procs,'GWVX BOUNDS' + ! allocate arrays + + ibsize = ( (iend-ista) +1) * ( (jend-jsta)+1) + allocate(ibcoords(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(rbcoords(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ibufs(ibsize)) + allocate(rbufs(ibsize)) + call mpi_scatterv(ibuff,icnt,idsp,mpi_integer & + ,ibufs,icnt(me),mpi_integer ,0,MPI_COMM_WORLD,j) + call mpi_scatterv(rbuff,icnt,idsp,mpi_real & + ,rbufs,icnt(me),mpi_real ,0,MPI_COMM_WORLD,j) + ! -! -! FROM VRBLS3D +!GWV reshape the receive subdomain + + isum=1 + do j=jsta,jend + do i=ista,iend + ibcoords(i,j)=ibufs(isum) + rbcoords(i,j)=rbufs(isum) + isum=isum+1 + end do + end do + +!GWV end reshape + do j=jsta,jend + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) then + print *,i,j,ii,jj,ibcoords(i,j),' GWVX FAIL ' + else + continue + endif + end do + end do + + allocate(ipoles(im,2),ipole(ista:iend)) + allocate(rpoles(im,2),rpole(ista:iend)) + ipole=9900000 + ipoles=-999999999 + + do i=ista,iend + if(me .lt. num_procs/2. .and. jsta_2l .le. 1 .and. icnt2(me) .gt. 0) ipole(i)=ibcoords(i,1) + if(me .lt. num_procs/2. .and. jsta_2l .le. 1 .and. icnt2(me) .gt. 0) rpole(i)=rbcoords(i,1) + if(me .gt. num_procs/2. .and. jend_2u .ge. jm .and. icnt2(me) .gt. 0) ipole(i)=ibcoords(i,jm) + if(me .gt. num_procs/2. .and. jend_2u .ge. jm .and. icnt2(me) .gt. 0) rpole(i)=rbcoords(i,jm) + +! check code to be removed upon debugging + if(me .lt. num_procs/2. .and. jsx .eq. 1) then + continue + endif + if(me .gt. num_procs/2. .and. jend_2u .ge. jm) then + continue + endif + end do ! end check code + +! test pole gather + print 105,' GWVX GATHER DISP ',icnt2(me),idsp2(me),me + 105 format(a30,3i12) + + call mpi_gatherv(ipole(ista),icnt2(me),MPI_INTEGER, ipoles,icnt2,idsp2,MPI_INTEGER,0,MPI_COMM_WORLD, ierr ) + call mpi_gatherv(rpole(ista),icnt2(me),MPI_REAL , rpoles,icnt2,idsp2,MPI_REAL ,0,MPI_COMM_WORLD, ierr ) + + if(me .eq. 0) then + do j=1,2 + do i=1,im + ii=rpoles(i,j)/4000 + jj=rpoles(i,j) -ii*4000 + if(ii .ne. i .or. jj .ne. 1 .and. jj .ne. jm ) then + write(0,169)' IPOLES BAD POINT',rpoles(i,j),ii,i,jj,' jm= ',jm + else + continue +! write(0,169)' IPOLES GOOD POINT',rpoles(i,j),ii,i,jj,' jm= ',jm + endif + end do + end do + endif + + 107 format(a20,10i10) + 169 format(a25,f20.1,3i10,a10,4i10) ! print *, ' me, jsta_2l, jend_2u = ',me,jsta_2l, jend_2u, & 'jvend_2u=',jvend_2u,'im=',im,'jm=',jm,'lm=',lm, & 'lp1=',lp1 + write(0,'(A,5I10)') 'MPI_FIRST me,jsta,jend,ista,iend,=',me,jsta,jend,ista,iend + + end + +! subroutine sub(a) +! return +! end + + + + subroutine fullpole(a,rpoles) + + use ctlblk_mod, only: num_procs, jend, iup, jsta, idn, mpi_comm_comp, im,MODELNAME,numx,& + icoords,ibcoords,rbcoords,bufs,ibufs,me, & + jsta_2l,jend_2u,ileft,iright,ista_2l,iend_2u,ista,iend,jm,icnt2,idsp2 +!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + implicit none +! + include 'mpif.h' +! + real,intent(inout) :: a ( ista_2l:iend_2u,jsta_2l:jend_2u ),rpoles(im,2) + real, allocatable :: rpole(:) + + integer status(MPI_STATUS_SIZE) + integer ierr + integer size,ubound,lbound + integer i,ii,jj, ibl,ibu,jbl,jbu,icc,jcc + integer ifirst + data ifirst/0/ + integer iwest,ieast + data iwest,ieast/0,0/ + allocate(rpole(ista:iend)) + + do i=ista,iend + if(me .lt. num_procs/2. .and. jsta_2l .le. 1 .and. icnt2(me) .gt. 0) rpole(i)=a(i,1) + if(me .ge. num_procs/2. .and. jend_2u .ge. jm .and. icnt2(me) .gt. 0) rpole(i)=a(i,jm) + end do + + call mpi_allgatherv(rpole(ista),icnt2(me),MPI_REAL,rpoles,icnt2,idsp2,MPI_REAL, MPI_COMM_COMP,ierr) + + call mpi_barrier(mpi_comm_comp,ierr) + ifirst=1 end + diff --git a/sorc/ncep_post.fd/NGMFLD.f b/sorc/ncep_post.fd/NGMFLD.f index 39ae45cb1..2d7052e35 100644 --- a/sorc/ncep_post.fd/NGMFLD.f +++ b/sorc/ncep_post.fd/NGMFLD.f @@ -40,6 +40,7 @@ !> 1998-12-22 | Mike Baldwin | Back out RH over ice !> 2000-01-04 | Jim Tuccillo | MPI Version !> 2002-04-24 | Mike Baldwin | WRF Version +!> 2021-09-30 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) @@ -51,7 +52,8 @@ SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) use masks, only: lmh use params_mod, only: d00, d50, h1m12, pq0, a2, a3, a4, h1, d01, small use ctlblk_mod, only: jsta, jend, lm, jsta_2l, jend_2u, jsta_m2, jend_m2,& - spval, im + spval, im, & + ista, iend, ista_2l, iend_2u, ista_m2, iend_m2, ista_m, iend_m ! !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -62,10 +64,10 @@ SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) ! ! DECLARE VARIABLES. LOGICAL GOT8510,GOT4710,GOT4796,GOT1847,GOT8498 - REAL,dimension(IM,jsta_2l:jend_2u),intent(out) :: QM8510,RH4710,RH8498, & + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u),intent(out) :: QM8510,RH4710,RH8498, & RH4796,RH1847 - REAL,dimension(im,jsta_2l:jend_2u) :: Z8510,Z4710,Z8498,Z4796,Z1847 - real,dimension(im,jsta_2l:jend_2u) :: Q1D, U1D, V1D, QCNVG + REAL,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: Z8510,Z4710,Z8498,Z4796,Z1847 + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: Q1D, U1D, V1D, QCNVG ! integer I,J,L real P100,P85,P98,P96,P84,P47,P18,ALPM,DE,PM,TM,QM, & @@ -76,7 +78,7 @@ SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) ! INITIALIZE ARRAYS. !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND QM8510(I,J) = D00 RH4710(I,J) = D00 RH8498(I,J) = D00 @@ -103,7 +105,7 @@ SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) ! COMPUTE MOISTURE CONVERGENCE !$omp parallel do private(i,j) DO J=JSTA_2L,JEND_2U - DO I=1,IM + DO I=ISTA_2L,IEND_2U Q1D(I,J) = Q(I,J,L) U1D(I,J) = UH(I,J,L) V1D(I,J) = VH(I,J,L) @@ -112,7 +114,7 @@ SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) CALL CALMCVG(Q1D,U1D,V1D,QCNVG) ! COMPUTE MOISTURE CONVERGENCE DO J=JSTA_M2,JEND_M2 - DO I=2,IM-1 + DO I=ISTA_M,IEND_M ! ! SET TARGET PRESSURES. @@ -186,7 +188,7 @@ SUBROUTINE NGMFLD(RH4710,RH4796,RH1847,RH8498,QM8510) ENDDO ! DO J=JSTA_M2,JEND_M2 - DO I=2,IM-1 + DO I=ISTA_M,IEND_M ! NORMALIZE TO GET LAYER MEAN VALUES. IF (Z8510(I,J)>0) THEN QM8510(I,J) = QM8510(I,J)/Z8510(I,J) diff --git a/sorc/ncep_post.fd/NGMSLP.f b/sorc/ncep_post.fd/NGMSLP.f index 56fdda56c..40f8bdb1c 100644 --- a/sorc/ncep_post.fd/NGMSLP.f +++ b/sorc/ncep_post.fd/NGMSLP.f @@ -65,6 +65,7 @@ !! CONSISTENT WITH MESINGER SLP !! 02-06-13 MIKE BALDWIN - WRF VERSION !! 06-12-18 H CHUANG - BUG FIX TO CORRECT TAU AT SFC +!! 21-09-30 J MENG - 2D DECOMPOSITION !! !! USAGE: CALL NGMSLP !! INPUT ARGUMENT LIST: @@ -93,7 +94,7 @@ SUBROUTINE NGMSLP use vrbls2d, only: slp, fis, z1000 use masks, only: lmh use params_mod, only: rd, gi, g, h1, d608, gamma, d50, p1000 - use ctlblk_mod, only: jsta, jend, im, jm, spval + use ctlblk_mod, only: jsta, jend, im, jm, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -117,7 +118,7 @@ SUBROUTINE NGMSLP !!$omp& tau,tauavg,tausfc,tausl,tavg,tvrbar,tvrsfc,tvrsl, !!$omp& tvrt,tvrtal,zbar,zl,zsfc) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LLMH = NINT(LMH(I,J)) if( PINT(I,J,LLMH+1) 2002-06-17 | Mike Baldwin | WRF Version !> 2011-04-12 | Geoff Manikin | Use virtual temperature !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> 2021-09-30 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1993-03-10 SUBROUTINE OTLFT(PBND,TBND,QBND,SLINDX) @@ -31,7 +32,7 @@ SUBROUTINE OTLFT(PBND,TBND,QBND,SLINDX) use vrbls2d, only: T500 use lookup_mod, only: THL, RDTH, JTB, QS0, SQS, RDQ, ITB, PTBL, & PL, RDP, THE0, STHE, RDTHE, TTBL - use ctlblk_mod, only: JSTA, JEND, IM, spval + use ctlblk_mod, only: JSTA, JEND, IM, spval, ISTA, IEND use params_mod, only: D00, H10E5, CAPA, ELOCP, EPS, ONEPS use upp_physics, only: FPVSNEW !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -42,8 +43,8 @@ SUBROUTINE OTLFT(PBND,TBND,QBND,SLINDX) ! ! DECLARE VARIABLES. - real,dimension(IM,jsta:jend),intent(in) :: PBND,TBND,QBND - real,dimension(IM,jsta:jend),intent(out) :: SLINDX + real,dimension(ista:iend,jsta:jend),intent(in) :: PBND,TBND,QBND + real,dimension(ista:iend,jsta:jend),intent(out) :: SLINDX REAL :: TVP, ESATP, QSATP REAL :: BQS00, SQS00, BQS10, SQS10, P00, P10, P01, P11, BQ, SQ, TQ REAL :: BTHE00, STHE00, BTHE10, STHE10, BTH, STH, TTH @@ -60,7 +61,7 @@ SUBROUTINE OTLFT(PBND,TBND,QBND,SLINDX) ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND SLINDX(I,J) = D00 ENDDO ENDDO @@ -68,7 +69,7 @@ SUBROUTINE OTLFT(PBND,TBND,QBND,SLINDX) !--------------FIND EXNER IN BOUNDARY LAYER----------------------------- ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND TBT = TBND(I,J) QBT = QBND(I,J) ! diff --git a/sorc/ncep_post.fd/OTLIFT.f b/sorc/ncep_post.fd/OTLIFT.f index f74992a0b..2270113da 100644 --- a/sorc/ncep_post.fd/OTLIFT.f +++ b/sorc/ncep_post.fd/OTLIFT.f @@ -20,6 +20,7 @@ !> 2002-06-11 | Mike Baldwin | WRF Version !> 2011-04-12 | Geoff Manikin | Use virtual temperature !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module +!> 2021-09-30 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1993-03-10 SUBROUTINE OTLIFT(SLINDX) @@ -30,7 +31,7 @@ SUBROUTINE OTLIFT(SLINDX) use masks, only: LMH use lookup_mod, only: THL, RDTH, JTB, QS0, SQS, RDQ,ITB, PTBL, PL, & RDP, THE0, STHE, RDTHE, TTBL - use ctlblk_mod, only: JSTA, JEND, IM, SPVAL + use ctlblk_mod, only: JSTA, JEND, IM, SPVAL, ISTA, IEND use params_mod, only: D00,H10E5, CAPA, ELOCP, EPS, ONEPS use upp_physics, only: FPVSNEW ! @@ -43,7 +44,7 @@ SUBROUTINE OTLIFT(SLINDX) ! ! DECLARE VARIABLES. - real,intent(out) :: SLINDX(IM,jsta:jend) + real,intent(out) :: SLINDX(ista:iend,jsta:jend) REAL :: TVP, ESATP, QSATP REAL :: TTH, TP, APESP, PARTMP, THESP, TPSP REAL :: BQS00, SQS00, BQS10, SQS10, BQ, SQ, TQ @@ -60,13 +61,13 @@ SUBROUTINE OTLIFT(SLINDX) ! INTIALIZE LIFTED INDEX ARRAY TO ZERO. !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND SLINDX(I,J) = D00 ENDDO ENDDO !--------------FIND EXNER AT LOWEST LEVEL------------------------------- DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LBTM=NINT(LMH(I,J)) IF(T(I,J,LBTM) irank ) iend = iend + 1 return end +!! +!! USAGE: CALL PARA_RANGE2(N1,N2,NX,NY,NRANK,ISTA,IEND,JSTA,JEND)(A) +!! INPUT ARGUMENT LIST: +!! N1 - LAAT INTERATE VALUE I dimension +!! N2 - LAST INTERATE VALUE J dimension +!! NX NUMBER OF subdomains in Z dimension +!! NY NUMBER OF subdomains in Y dimension +!! NX * NY should be the total number of MPI procs +!! NRANK - MY TAKS ID +!! +!! OUTPUT ARGUMENT LIST: +!! ISTA - FIRST LOOP VALUE I +!! IEND - LAST LOOP VALUE I +!! JSTA - FIRST LOOP VALUE J +!! JEND - LAST LOOP VALUE J +!! +!! OUTPUT FILES: +!! STDOUT - RUN TIME STANDARD OUT. +!! +!! SUBPROGRAMS CALLED: +!! UTILITIES: +!! NONE +!! LIBRARY: +!! +!! ATTRIBUTES: +!! LANGUAGE: FORTRAN +!! MACHINE : IBM RS/6000 SP +!! + subroutine para_range2(im,jm,nx,ny,nrank,ista,iend,jsta,jend) + + implicit none + integer,intent(in) :: im,jm,nx,ny,nrank + integer,intent(out) :: ista,iend,jsta,jend + integer :: ix,jx + + jx=nrank/nx + ix=nrank-(jx*nx) + call para_range(1,im,nx,ix,ista,iend) + call para_range(1,jm,ny,jx,jsta,jend) +! print 101,n,ix,jx,ista,iend,jsta,jend +! 101 format(16i8) + return + end + diff --git a/sorc/ncep_post.fd/PROCESS.f b/sorc/ncep_post.fd/PROCESS.f index 8facc7d80..64c9c35de 100644 --- a/sorc/ncep_post.fd/PROCESS.f +++ b/sorc/ncep_post.fd/PROCESS.f @@ -53,37 +53,45 @@ SUBROUTINE PROCESS(kth,kpv,th,pv,iostatusD3D) ! START SUBROUTINE PROCESS. ! cfld=0 + if(me==0) write(0,*) "PROCESS starts" ! ! COMPUTE/POST FIELDS ON MDL SURFACES. ! btim = mpi_wtime() CALL MDLFLD + if(me==0) write(0,*) "PROCESS MDLFLD done" ETAFLD2_tim = ETAFLD2_tim +(mpi_wtime() - btim) ! ! COMPUTE/POST FIELDS ON PRESSURE SURFACES. btim = mpi_wtime() CALL MDL2P(iostatusD3D) + if(me==0) write(0,*) "PROCESS MDL2P done" ETA2P_tim = ETA2P_tim +(mpi_wtime() - btim) ! ! COMPUTE/POST FIELDS ON SIGMA SURFACES. btim = mpi_wtime() CALL MDL2SIGMA + if(me==0) write(0,*) "PROCESS MDL2SIGMA done" CALL MDL2SIGMA2 + if(me==0) write(0,*) "PROCESS MDL2SIGMA2 done" MDL2SIGMA_tim = MDL2SIGMA_tim +(mpi_wtime() - btim) ! ! COMPUTE/POST FIELDS ON AGL SURFCES. btim = mpi_wtime() CALL MDL2AGL + if(me==0) write(0,*) "PROCESS MDL2AGL done" MDL2AGL_tim = MDL2AGL_tim +(mpi_wtime() - btim) ! ! COMPUTE/POST SURFACE RELATED FIELDS. btim = mpi_wtime() CALL SURFCE + if(me==0) write(0,*) "PROCESS SURFCE done" SURFCE2_tim = SURFCE2_tim +(mpi_wtime() - btim) ! ! COMPUTE/POST SOUNDING AND CLOUD RELATED FIELDS. btim = mpi_wtime() CALL CLDRAD + if(me==0) write(0,*) "PROCESS CLDRAD done" CLDRAD_tim = CLDRAD_tim +(mpi_wtime() - btim) ! ! COMPUTE/POST TROPOPAUSE DATA, FD LEVEL FIELDS, @@ -91,6 +99,7 @@ SUBROUTINE PROCESS(kth,kpv,th,pv,iostatusD3D) ! AND LFM-NGM LOOK-ALIKE FIELDS. btim = mpi_wtime() CALL MISCLN + if(me==0) write(0,*) "PROCESS MISCLN done" MISCLN_tim = MISCLN_tim +(mpi_wtime() - btim) ! COMPUTE/POST TROPOPAUSE DATA, FD LEVEL FIELDS, @@ -98,27 +107,32 @@ SUBROUTINE PROCESS(kth,kpv,th,pv,iostatusD3D) ! AND LFM-NGM LOOK-ALIKE FIELDS. btim = mpi_wtime() CALL MDL2STD_P + if(me==0) write(0,*) "PROCESS MDL2STD_P done" MDL2STD_tim = MDL2STD_tim +(mpi_wtime() - btim) ! ! POST FIXED FIELDS. btim = mpi_wtime() CALL FIXED + if(me==0) write(0,*) "PROCESS FIXED done" FIXED_tim = FIXED_tim +(mpi_wtime() - btim) ! ! COMPUTE/POST FIELDS ON SIGMA SURFACES. btim = mpi_wtime() CALL MDL2THANDPV(kth,kpv,th,pv) + if(me==0) write(0,*) "PROCESS MDL2THANDPV done" MDL2THANDPV_tim = MDL2THANDPV_tim +(mpi_wtime() - btim) ! ! POST RADIANCE AND BRIGHTNESS FIELDS. btim = mpi_wtime() CALL CALRAD_WCLOUD + if(me==0) write(0,*) "PROCESS CALRAD_WCLOUD done" CALRAD_WCLOUD_tim = CALRAD_WCLOUD_tim +(mpi_wtime() - btim) ! ! END OF ROUTINE. ! NTLFLD=cfld if(me==0)print *,'nTLFLD=',NTLFLD + if(me==0) write(0,*) "PROCESS done" ! RETURN END diff --git a/sorc/ncep_post.fd/SCLFLD.f b/sorc/ncep_post.fd/SCLFLD.f index 21d4e41d6..4450bb9f4 100644 --- a/sorc/ncep_post.fd/SCLFLD.f +++ b/sorc/ncep_post.fd/SCLFLD.f @@ -20,6 +20,7 @@ !> -----|------------|--------- !> 1992-09-13 | Russ Treadon | Initial !> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2021-09-29 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-09-13 SUBROUTINE SCLFLD(FLD,SCALE,IMO,JMO) @@ -27,7 +28,7 @@ SUBROUTINE SCLFLD(FLD,SCALE,IMO,JMO) ! use params_mod, only: small - use ctlblk_mod, only: jsta, jend, spval + use ctlblk_mod, only: jsta, jend, spval, ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -35,7 +36,7 @@ SUBROUTINE SCLFLD(FLD,SCALE,IMO,JMO) ! integer,intent(in) :: IMO,JMO REAL,intent(in) :: SCALE - REAL,dimension(imo,jmo),intent(inout) :: FLD + REAL,dimension(ista:iend,jsta:jend),intent(inout) :: FLD integer I,J ! ! @@ -46,7 +47,7 @@ SUBROUTINE SCLFLD(FLD,SCALE,IMO,JMO) ! !$omp parallel do DO J=JSTA,JEND - DO I=1,IMO + DO I=ISTA,IEND IF(ABS(FLD(I,J)-SPVAL)>SMALL) FLD(I,J)=SCALE*FLD(I,J) ENDDO ENDDO diff --git a/sorc/ncep_post.fd/SLP_NMM.f b/sorc/ncep_post.fd/SLP_NMM.f deleted file mode 100644 index 9c8a3669e..000000000 --- a/sorc/ncep_post.fd/SLP_NMM.f +++ /dev/null @@ -1,411 +0,0 @@ - SUBROUTINE MEMSLP_NMM(TPRES,QPRES,FIPRES) -! -!$$$ SUBPROGRAM DOCUMENTATION BLOCK -! . . . -! SUBROUTINE: MEMSLP MEMBRANE SLP REDUCTION -! -! ABSTRACT: THIS ROUTINE COMPUTES THE SEA LEVEL PRESSURE -! REDUCTION USING THE MESINGER RELAXATION -! METHOD FOR SIGMA COORDINATES. -! A BY-PRODUCT IS THE -! SET OF VALUES FOR THE UNDERGROUND TEMPERATURES -! ON THE SPECIFIED PRESSURE LEVELS -! -! PROGRAM HISTORY LOG: -! 99-09-23 T BLACK - REWRITTEN FROM ROUTINE SLP (ETA -! COORDINATES) -! 02-07-26 H CHUANG - PARALLIZE AND MODIFIED FOR WRF A/C GRIDS -! ALSO REDUCE S.O.R. COEFF FROM 1.75 to 1.25 -! BECAUSE THERE WAS NUMERICAL INSTABILITY -! 02-08-21 H CHUANG - MODIFIED TO ALWAYS USE OLD TTV FOR RELAXATION -! SO THAT THERE WAS BIT REPRODUCIBILITY BETWEEN -! USING ONE AND MULTIPLE TASKS -! 13-12-06 H CHUANG - REMOVE EXTRA SMOOTHING OF SLP AT THE END -! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT -! -! USAGE: CALL SLPSIG FROM SUBROUITNE ETA2P -! -! INPUT ARGUMENT LIST: -! PD - SFC PRESSURE MINUS PTOP -! FIS - SURFACE GEOPOTENTIAL -! T - TEMPERATURE -! Q - SPECIFIC HUMIDITY -! FI - GEOPOTENTIAL -! PT - TOP PRESSURE OF DOMAIN -! -! OUTPUT ARGUMENT LIST: -! PSLP - THE FINAL REDUCED SEA LEVEL PRESSURE ARRAY -! -! SUBPROGRAMS CALLED: -! UNIQUE: -! NONE -! -!----------------------------------------------------------------------- - use vrbls3d, only: pint, zint, t, q - use vrbls2d, only: pslp, fis - use masks, only: lmh - use params_mod, only: overrc, ad05, cft0, g, rd, d608, h1, kslpd - use ctlblk_mod, only: jsta, jend, spl, num_procs, mpi_comm_comp, lsmp1, jsta_m2, jend_m2,& - lm, jsta_m, jend_m, im, jsta_2l, jend_2u, im_jm, lsm, jm -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none -! - INCLUDE "mpif.h" -!----------------------------------------------------------------------- - integer, PARAMETER :: NFILL=0,NRLX1=500,NRLX2=100 -!----------------------------------------------------------------------- - real,dimension(IM,JSTA_2L:JEND_2U,LSM),intent(in) :: QPRES - real,dimension(IM,JSTA_2L:JEND_2U,LSM),intent(inout) :: TPRES,FIPRES - REAL :: TTV(IM,JSTA_2L:JEND_2U),TNEW(IM,JSTA_2L:JEND_2U) & - ,SLPX(IM,JSTA_2L:JEND_2U) & - ,P1(IM,JSTA_2L:JEND_2U),HTM2D(IM,JSTA_2L:JEND_2U) - REAL :: HTMO(IM,JSTA_2L:JEND_2U,LSM) - real P2,GZ1,GZ2,TLYR,SPLL,PCHK,PSFC,SLOPE,TVRT,DIS,TINIT -!----------------------------------------------------------------------- -!----------------------------------------------------------------------- - INTEGER :: KMNTM(LSM),IMNT(IM_JM,LSM),JMNT(IM_JM,LSM) & - ,LMHO(IM,JSTA_2L:JEND_2U) - INTEGER :: IHE(JM),IHW(JM),IVE(JM),IVW(JM),IHS(JM),IHN(JM) - integer ii,jj,I,J,L,N,KM,KS,KP,KMN,KMM,KOUNT,LP,LLMH,LHMNT & - ,LMHIJ,LMAP1,LXXX,IERR,NRLX,IHH2 -!----------------------------------------------------------------------- - LOGICAL :: DONE(IM,JSTA_2L:JEND_2U) - logical, parameter :: debugprint = .false. -!----------------------------------------------------------------------- -!----------------------------------------------------------------------- -!*** -!*** CALCULATE THE I-INDEX EAST-WEST INCREMENTS -!*** -! - ii=279 - jj=314 - DO J=1,JM - IHE(J)=MOD(J+1,2) - IHW(J)=IHE(J)-1 - ENDDO -! print*,'relaxation coeff= ',OVERRC -!----------------------------------------------------------------------- -!*** -!*** INITIALIZE ARRAYS. LOAD SLP ARRAY WITH SURFACE PRESSURE. -!*** -!$omp parallel do - DO J=JSTA,JEND - DO I=1,IM - LLMH=NINT(LMH(I,J)) - PSLP(I,J)=PINT(I,J,LLMH+1) - if(debugprint .and. i==ii .and. j==jj)print*,'Debug: FIS,IC for PSLP=' & - ,FIS(i,j),PSLP(I,J) - TTV(I,J)=0. - LMHO(I,J)=0 - DONE(I,J)=.FALSE. - ENDDO - ENDDO -! -!*** CALCULATE SEA LEVEL PRESSURE FOR PROFILES (AND POSSIBLY -!*** FOR POSTING BY POST PROCESSOR). -! -!-------------------------------------------------------------------- -!*** -!*** CREATE A 3-D "HEIGHT MASK" FOR THE SPECIFIED PRESSURE LEVELS -!*** (1 => ABOVE GROUND) AND A 2-D INDICATOR ARRAY THAT SAYS -!*** WHICH PRESSURE LEVEL IS THE LOWEST ONE ABOVE THE GROUND -!*** - DO 100 L=1,LSM - SPLL=SPL(L) -! - DO J=JSTA,JEND - DO I=1,IM - PSFC=PSLP(I,J) - PCHK=PSFC - IF(NFILL>0)THEN - PCHK=PINT(I,J,NINT(LMH(I,J))+1-NFILL) - ENDIF -! IF(SM(I,J)>0.5.AND.FIS(I,J)<1.)PCHK=PSLP(I,J) - IF(FIS(I,J)<1.)PCHK=PSLP(I,J) -! -! IF(SPLL1.AND.HTMO(I,J,L-1)>0.5)LMHO(I,J)=L-1 - ENDIF -! - IF(L==LSM.AND.HTMO(I,J,L)>0.5)LMHO(I,J)=LSM - if(debugprint .and. i==ii .and. j==jj)print*,'Debug: HTMO= ',HTMO(I,J,L) - ENDDO - ENDDO -! - 100 CONTINUE -! if(jj>=jsta.and.jj<=jend) -! +print*,'Debug: LMHO=',LMHO(ii,jj) -!-------------------------------------------------------------------- -!*** -!*** WE REACH THIS LINE IF WE WANT THE MESINGER ETA SLP REDUCTION -!*** BASED ON RELAXATION TEMPERATURES. THE FIRST STEP IS TO -!*** FIND THE HIGHEST LAYER CONTAINING MOUNTAINS. -!*** - loop210: DO L=LSM,1,-1 -! - DO J=JSTA,JEND - DO I=1,IM - IF(HTMO(I,J,L)<0.5) cycle loop210 - ENDDO - ENDDO -! - LHMNT=L+1 - exit loop210 - enddo loop210 - - if(debugprint)print*,'Debug in SLP: LHMNT=',LHMNT - if ( num_procs > 1 ) then - CALL MPI_ALLREDUCE & - (LHMNT,LXXX,1,MPI_INTEGER,MPI_MIN,MPI_COMM_COMP,IERR) - LHMNT = LXXX - end if - - IF(LHMNT==LSMP1)THEN - GO TO 325 - ENDIF - if(debugprint)print*,'Debug in SLP: LHMNT A ALLREDUCE=',LHMNT -!*** -!*** NOW GATHER THE ADDRESSES OF ALL THE UNDERGROUND POINTS. -!*** -!$omp parallel do private(kmn,kount) - DO 250 L=LHMNT,LSM - KMN=0 - KMNTM(L)=0 - KOUNT=0 - DO 240 J=JSTA_M2,JEND_M2 -! DO 240 J=JSTA_M,JEND_M - DO 240 I=2,IM-1 - KOUNT=KOUNT+1 - IMNT(KOUNT,L)=0 - JMNT(KOUNT,L)=0 - IF(HTMO(I,J,L)>0.5) CYCLE - KMN=KMN+1 - IMNT(KMN,L)=I - JMNT(KMN,L)=J - 240 CONTINUE - KMNTM(L)=KMN - 250 CONTINUE -! -! -!*** CREATE A TEMPORARY TV ARRAY, AND FOLLOW BY SEQUENTIAL -!*** OVERRELAXATION, DOING NRLX PASSES. -! -! IF(NTSD==1)THEN - NRLX=NRLX1 -! ELSE -! NRLX=NRLX2 -! ENDIF -! -!!$omp parallel do private(i,j,tinit,ttv) - DO 300 L=LHMNT,LSM -! - DO 270 J=JSTA,JEND - DO 270 I=1,IM - TTV(I,J)=TPRES(I,J,L) - IF(TTV(I,J)<150. .and. TTV(I,J)>325.0)print* & - ,'abnormal IC for T relaxation',i,j,TTV(I,J) - HTM2D(I,J)=HTMO(I,J,L) - 270 CONTINUE -! -!*** FOR GRID BOXES NEXT TO MOUNTAINS, COMPUTE TV TO USE AS -!*** BOUNDARY CONDITIONS FOR THE RELAXATION UNDERGROUND -! - CALL EXCH2(HTM2D(1,JSTA_2L)) !NEED TO EXCHANGE TWO ROW FOR E GRID - DO J=JSTA_M2,JEND_M2 - DO I=2,IM-1 - IF(HTM2D(I,J)>0.5.AND.HTM2D(I+IHW(J),J-1)*HTM2D(I+IHE(J),J-1) & - *HTM2D(I+IHW(J),J+1)*HTM2D(I+IHE(J),J+1) & - *HTM2D(I-1 ,J )*HTM2D(I+1 ,J ) & - *HTM2D(I ,J-2)*HTM2D(I ,J+2)<0.5)THEN -!HC MODIFICATION FOR C AND A GRIDS -!HC IF(HTM2D(I,J)>0.5.AND. -!HC 1 HTM2D(I-1,J)*HTM2D(I+1,J) -!HC 2 *HTM2D(I,J-1)*HTM2D(I,J+1) -!HC 3 *HTM2D(I-1,J-1)*HTM2D(I+1,J-1) -!HC 4 *HTM2D(I-1,J+1)*HTM2D(I+1,J+1)<0.5)THEN -! - TTV(I,J)=TPRES(I,J,L)*(1.+0.608*QPRES(I,J,L)) - ENDIF -! if(i==ii.and.j==jj)print*,'Debug:L,TTV B SMOO= ',l,TTV(I,J) - ENDDO - ENDDO -! - KMM=KMNTM(L) -! - DO 285 N=1,NRLX - CALL EXCH2(TTV(1,JSTA_2L)) -! print*,'Debug:L,KMM=',L,KMM - DO 280 KM=1,KMM - I=IMNT(KM,L) - J=JMNT(KM,L) - TINIT=TTV(I,J) - TNEW(I,J)=AD05*(4.*(TTV(I+IHW(J),J-1)+TTV(I+IHE(J),J-1) & - +TTV(I+IHW(J),J+1)+TTV(I+IHE(J),J+1)) & - +TTV(I-1,J) +TTV(I+1,J) & - +TTV(I,J-2) +TTV(I,J+2)) & - -CFT0*TTV(I,J) -!HC MODIFICATION FOR C AND A GRIDS -! eight point relaxation using old TTV -!HC TNEW(I,J)=AD05*(4.*(TTV(I-1,J)+TTV(I+1,J) -!HC 1 +TTV(I,J-1)+TTV(I,J+1)) -!HC 2 +TTV(I-1,J-1)+TTV(I+1,J-1) -!HC 3 +TTV(I-1,J+1)+TTV(I+1,J+1)) -!HC 4 -CFT0*TTV(I,J) -! -! if(i==ii.and.j==jj)print*,'Debug: L,TTV A S' -! 1,l,TTV(I,J),N -! 1,l,TNEW(I,J),N - 280 CONTINUE -! - DO KM=1,KMM - I=IMNT(KM,L) - J=JMNT(KM,L) - TTV(I,J)=TNEW(I,J) - END DO - 285 CONTINUE -! - DO 290 KM=1,KMM - I=IMNT(KM,L) - J=JMNT(KM,L) - TPRES(I,J,L)=TTV(I,J) - 290 CONTINUE - 300 CONTINUE -!---------------------------------------------------------------- -!*** -!*** CALCULATE THE SEA LEVEL PRESSURE AS PER THE NEW SCHEME. -!*** INTEGRATE THE HYDROSTATIC EQUATION DOWNWARD FROM THE -!*** GROUND THROUGH EACH OUTPUT PRESSURE LEVEL (WHERE TV -!*** IS NOW KNOWN) TO FIND GZ AT THE NEXT MIDPOINT BETWEEN -!*** PRESSURE LEVELS. WHEN GZ=0 IS REACHED, SOLVE FOR THE -!*** PRESSURE. -!*** -! -!*** COUNT THE POINTS WHERE SLP IS DONE BELOW EACH OUTPUT LEVEL -! - KOUNT=0 - DO J=JSTA,JEND - DO I=1,IM -! P1(I,J)=SPL(NINT(LMH(I,J))) -! DONE(I,J)=.FALSE. - IF(abs(FIS(I,J))<1.)THEN - PSLP(I,J)=PINT(I,J,NINT(LMH(I,J))+1) - DONE(I,J)=.TRUE. - KOUNT=KOUNT+1 - if(i==ii.and.j==jj)print*,'Debug:DONE,PSLP A S1=' & - ,done(i,j),PSLP(I,J) - ELSE IF(FIS(I,J)<-1.0) THEN - DO L=LM,1,-1 - IF(ZINT(I,J,L)>0.)THEN - PSLP(I,J)=PINT(I,J,L)/EXP(-ZINT(I,J,L)*G & - /(RD*T(I,J,L)*(Q(I,J,L)*D608+1.0))) - DONE(I,J)=.TRUE. - if(debugprint .and. i==ii.and.j==jj)print* & - ,'Debug:DONE,PINT,PSLP A S1=' & - ,done(i,j),PINT(I,J,L),PSLP(I,J) - EXIT - END IF - END DO - ENDIF - ENDDO - ENDDO -! - KMM=KMNTM(LSM) -!$omp parallel do private(gz1,gz2,i,j,lmap1,p1,p2),shared(pslp) - -LOOP320: DO KM=1,KMM - I=IMNT(KM,LSM) - J=JMNT(KM,LSM) - IF(DONE(I,J)) CYCLE - LMHIJ=LMHO(I,J) - GZ1=FIPRES(I,J,LMHIJ) - P1(I,J)=SPL(LMHIJ) -! - LMAP1=LMHIJ+1 - DO L=LMAP1,LSM - P2=SPL(L) - TLYR=0.5*(TPRES(I,J,L)+TPRES(I,J,L-1)) - GZ2=GZ1+RD*TLYR*ALOG(P1(I,J)/P2) - FIPRES(I,J,L)=GZ2 -! if(i==ii.and.j==jj)print*,'Debug:L,FI A S2=',L,GZ2 - IF(GZ2<=0.)THEN - PSLP(I,J)=P1(I,J)/EXP(-GZ1/(RD*TPRES(I,J,L-1))) -! if(i==ii.and.j==jj)print*,'Debug:PSLP A S2=',PSLP(I,J) - DONE(I,J)=.TRUE. - KOUNT=KOUNT+1 - CYCLE LOOP320 - ENDIF - P1(I,J)=P2 - GZ1=GZ2 - ENDDO -!HC EXPERIMENT - LP=LSM - SLOPE=-6.6E-4 - TLYR=TPRES(I,J,LP)-0.5*FIPRES(I,J,LP)*SLOPE - PSLP(I,J)=spl(lp)/EXP(-FIPRES(I,J,LP)/(RD*TLYR)) - DONE(I,J)=.TRUE. -! if(i==ii.and.j==jj)print*,'Debug:spl,FI,TLYR,PSLPA3=' & -! ,spl(lp),FIPRES(I,J,LP),TLYR,PSLP(I,J) -!HC EXPERIMENT -ENDDO LOOP320 -! -!*** WHEN SEA LEVEL IS BELOW THE LOWEST OUTPUT PRESSURE LEVEL, -!*** SOLVE THE HYDROSTATIC EQUATION BY CHOOSING A TEMPERATURE -!*** AT THE MIDPOINT OF THE LAYER BETWEEN THAT LOWEST PRESSURE -!*** LEVEL AND THE GROUND BY EXTRAPOLATING DOWNWARD FROM T ON -!*** THE LOWEST PRESSURE LEVEL USING THE DT/DFI BETWEEN THE -!*** LOWEST PRESSURE LEVEL AND THE ONE ABOVE IT. -! -! TOTAL=(IM-2)*(JM-4) -! -!HC DO 340 LP=LSM,1,-1 -! IF(KOUNT==TOTAL)GO TO 350 -!HC MODIFICATION FOR SMALL HILL HIGH PRESSURE SITUATION -!HC IF SURFACE PRESSURE IS CLOSER TO SEA LEVEL THAN LWOEST -!HC OUTPUT PRESSURE LEVEL, USE SURFACE PRESSURE TO DO EXTRAPOLATION - 325 CONTINUE - LP=LSM - DO 330 J=JSTA,JEND - DO 330 I=1,IM - if(debugprint .and. i==ii.and.j==jj)print*,'Debug: with 330 loop' - IF(DONE(I,J)) cycle - if(debugprint .and. i==ii.and.j==jj)print*,'Debug: still within 330 loop' -!HC Comment out the following line for situation with terrain -!HC at boundary (ie FIPRES<0) -!HC because they were not counted as undergound point for 8 pt -!HC relaxation -!HC IF(FIPRES(I,J,LP)<0.)GO TO 330 -! IF(FIPRES(I,J,LP)<0.)THEN -! DO LP=LSM,1,-1 -! IF (FIPRES(I,J) <= 0) - -! IF(FIPRES(I,J,LP)<0..OR.DONE(I,J))GO TO 330 -! SLOPE=(TPRES(I,J,LP)-TPRES(I,J,LP-1)) -! & /(FIPRES(I,J,LP)-FIPRES(I,J,LP-1)) - SLOPE=-6.6E-4 - IF(PINT(I,J,NINT(LMH(I,J))+1)>SPL(LP))THEN - LLMH=NINT(LMH(I,J)) - TVRT=T(I,J,LLMH)*(H1+D608*Q(I,J,LLMH)) - DIS=ZINT(I,J,LLMH+1)-ZINT(I,J,LLMH)+0.5*ZINT(I,J,LLMH+1) - TLYR=TVRT-DIS*G*SLOPE - PSLP(I,J)=PINT(I,J,LLMH+1)*EXP(ZINT(I,J,LLMH+1)*G/(RD*TLYR)) -! if(i==ii.and.j==jj)print*,'Debug:PSFC,zsfc,TLYR,PSLPA3=' -! 1,PINT(I,J,LLMH+1),ZINT(I,J,LLMH+1),TLYR,PSLP(I,J) - ELSE - TLYR=TPRES(I,J,LP)-0.5*FIPRES(I,J,LP)*SLOPE - PSLP(I,J)=spl(lp)/EXP(-FIPRES(I,J,LP)/(RD*TLYR)) - if(debugprint .and. i==ii.and.j==jj)print*,'Debug:spl,FI,TLYR,PSLPA3=' & - ,spl(lp),FIPRES(I,J,LP),TLYR,PSLP(I,J) - END IF - DONE(I,J)=.TRUE. - KOUNT=KOUNT+1 - 330 CONTINUE -!HC 340 CONTINUE -! - 350 CONTINUE -!---------------------------------------------------------------- - RETURN - END diff --git a/sorc/ncep_post.fd/SLP_new.f b/sorc/ncep_post.fd/SLP_new.f index e2aa20c0c..ef7a31d75 100644 --- a/sorc/ncep_post.fd/SLP_new.f +++ b/sorc/ncep_post.fd/SLP_new.f @@ -27,6 +27,7 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) ! ARE COMMENTED OUT FOR NOW ! 19-10-30 Bo CUI - REMOVE "GOTO" STATEMENT ! 21-07-26 W Meng - Restrict computation from undefined grids +! 21-07-07 J Meng - 2D DECOMPOSITION ! 21-09-25 W Meng - Further modification for restricting computation ! from undefined grids. ! @@ -54,7 +55,7 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) use params_mod, only: overrc, ad05, cft0, g, rd, d608, h1, kslpd use ctlblk_mod, only: jend, jsta, spval, spl, num_procs, mpi_comm_comp, lsmp1, & jsta_m, jend_m, lm, im, jsta_2l, jend_2u, lsm, jm,& - im_jm + im_jm, iend, ista, ista_m, iend_m, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -63,29 +64,29 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) integer,PARAMETER :: NFILL=0,NRLX1=500,NRLX2=100 real,parameter:: def_of_mountain=2.0 !----------------------------------------------------------------------- - real,dimension(IM,JSTA_2L:JEND_2U,LSM),intent(in) :: QPRES - real,dimension(IM,JSTA_2L:JEND_2U,LSM),intent(inout) :: TPRES,FIPRES - REAL :: TTV(IM,JSTA_2L:JEND_2U),TNEW(IM,JSTA_2L:JEND_2U) & - , P1(IM,JSTA_2L:JEND_2U),HTM2D(IM,JSTA_2L:JEND_2U) - REAL :: HTMO(IM,JSTA_2L:JEND_2U,LSM) + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM),intent(in) :: QPRES + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM),intent(inout) :: TPRES,FIPRES + REAL :: TTV(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),TNEW(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U) & + , P1(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),HTM2D(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U) + REAL :: HTMO(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM) real :: P2,TLYR,GZ1,GZ2,SPLL,PSFC,PCHK,SLOPE,TVRTC,DIS,TVRT,tem !----------------------------------------------------------------------- !----------------------------------------------------------------------- INTEGER :: KMNTM(LSM),IMNT(IM_JM,LSM),JMNT(IM_JM,LSM) & - , LMHO(IM,JSTA_2L:JEND_2U) + , LMHO(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U) INTEGER :: IHE(JM),IHW(JM),IVE(JM),IVW(JM),IHS(JM),IHN(JM) integer ii,jj,I,J,L,N,LLMH,KM,KS,IHH2,KOUNT,KMN,NRLX,LHMNT, & LMHIJ,LMAP1,KMM,LP,LXXX,IERR ! dong real a1,a2,a3,a4,a5,a6,a7,a8 !----------------------------------------------------------------------- - LOGICAL :: DONE(IM,JSTA_2L:JEND_2U) + LOGICAL :: DONE(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U) !----------------------------------------------------------------------- !*** !*** CALCULATE THE I-INDEX EAST-WEST INCREMENTS !*** ! - ii = IM/2 + ii = (IEND-ISTA)/2 jj = (JEND-JSTA)/2 DO J=1,JM IHE(J) = 1 @@ -102,7 +103,7 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) !*** !$omp parallel do private(i,j,llmh) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LLMH = NINT(LMH(I,J)) PSLP(I,J) = PINT(I,J,LLMH+1) ! dong @@ -127,7 +128,7 @@ SUBROUTINE MEMSLP(TPRES,QPRES,FIPRES) ! !$omp parallel do private(j,i,psfc,pchk) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND HTMO(I,J,L)=1. if(PSLP(I,J)0) THEN - allocate(dwpsfc(im,jsta:jend)) + allocate(dwpsfc(ista:iend,jsta:jend)) CALL DEWPOINT(EVP,DWPSFC) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(029)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = DWPSFC(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = DWPSFC(ii,jj) enddo enddo endif @@ -350,11 +358,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(076)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = RHSFC(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = RHSFC(ii,jj) enddo enddo endif @@ -370,11 +379,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(762)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = QVG(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = QVG(ii,jj) enddo enddo endif @@ -386,11 +396,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(760)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = QV2M(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = QV2M(ii,jj) enddo enddo endif @@ -401,11 +412,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(761)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = TSNOW(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = TSNOW(ii,jj) enddo enddo endif @@ -416,11 +428,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(724)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SNFDEN(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SNFDEN(ii,jj) enddo enddo endif @@ -454,11 +467,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(725)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SNDEPAC(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SNDEPAC(ii,jj) enddo enddo endif @@ -480,11 +494,12 @@ SUBROUTINE SURFCE cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(116)) fld_info(cfld)%lvl=LVLSXML(L,IGET(116)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = STC(i,jj,l) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = STC(ii,jj,l) enddo enddo endif @@ -500,11 +515,12 @@ SUBROUTINE SURFCE cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(116)) fld_info(cfld)%lvl=LVLSXML(L,IGET(116)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = STC(i,jj,l) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = STC(ii,jj,l) enddo enddo endif @@ -521,11 +537,12 @@ SUBROUTINE SURFCE cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(117)) fld_info(cfld)%lvl=LVLSXML(L,IGET(117)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SMC(i,jj,l) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SMC(ii,jj,l) enddo enddo endif @@ -539,11 +556,12 @@ SUBROUTINE SURFCE cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(117)) fld_info(cfld)%lvl=LVLSXML(L,IGET(117)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SMC(i,jj,l) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SMC(ii,jj,l) enddo enddo endif @@ -558,11 +576,12 @@ SUBROUTINE SURFCE cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(225)) fld_info(cfld)%lvl=LVLSXML(L,IGET(225)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SH2O(i,jj,l) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SH2O(ii,jj,l) enddo enddo endif @@ -576,11 +595,12 @@ SUBROUTINE SURFCE cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(225)) fld_info(cfld)%lvl=LVLSXML(L,IGET(225)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SH2O(i,jj,l) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SH2O(ii,jj,l) enddo enddo endif @@ -596,11 +616,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(115)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = TG(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = TG(ii,jj) enddo enddo endif @@ -608,11 +629,12 @@ SUBROUTINE SURFCE if(iget(571)>0.and.grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(571)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = TG(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = TG(ii,jj) enddo enddo endif @@ -622,7 +644,7 @@ SUBROUTINE SURFCE IF (IGET(171)>0) THEN !!$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(SMSTAV(I,J) /= SPVAL)THEN GRID1(I,J) = SMSTAV(I,J)*100. ELSE @@ -633,11 +655,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(171)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -647,7 +670,7 @@ SUBROUTINE SURFCE IF (IGET(036)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(SMSTOT(I,J)/=SPVAL) THEN IF(SM(I,J) > SMALL .AND. SICE(I,J) < SMALL) THEN GRID1(I,J) = 1000.0 ! TEMPORY FIX TO MAKE SURE SMSTOT=1 FOR WATER @@ -662,11 +685,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(036)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -677,7 +701,7 @@ SUBROUTINE SURFCE IF(MODELNAME == 'RAPR') THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CMC(I,J) /= SPVAL) then GRID1(I,J) = CMC(I,J) else @@ -688,7 +712,7 @@ SUBROUTINE SURFCE else !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CMC(I,J) /= SPVAL) then GRID1(I,J) = CMC(I,J)*1000. else @@ -700,11 +724,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(118)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -716,11 +741,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(119)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SNO(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SNO(ii,jj) enddo enddo endiF @@ -731,7 +757,7 @@ SUBROUTINE SURFCE ! GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! GRID1(I,J) = 100.*SNOAVG(I,J) GRID1(I,J) = SNOAVG(I,J) if (SNOAVG(I,J) /= spval) GRID1(I,J) = 100.*SNOAVG(I,J) @@ -767,11 +793,12 @@ SUBROUTINE SURFCE fld_info(cfld)%tinvstat=IFHR-ID(18) ! fld_info(cfld)%ntrange=IFHR-ID(18) ! fld_info(cfld)%tinvstat=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -793,11 +820,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(501)) fld_info(cfld)%ntrange=IFHR-ID(18) fld_info(cfld)%tinvstat=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = PSFCAVG(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = PSFCAVG(ii,jj) enddo enddo endif @@ -822,11 +850,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(502)) fld_info(cfld)%ntrange=IFHR-ID(18) fld_info(cfld)%tinvstat=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = T10AVG(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = T10AVG(ii,jj) enddo enddo endif @@ -836,7 +865,7 @@ SUBROUTINE SURFCE IF ( IGET(244)>0 ) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SNONC(I,J) ENDDO ENDDO @@ -865,7 +894,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(244)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -873,7 +902,7 @@ SUBROUTINE SURFCE IF ( IGET(120)>0 ) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! GRID1(I,J)=PCTSNO(I,J) IF ( SNO(I,J) /= SPVAL ) THEN SNEQV = SNO(I,J) @@ -888,23 +917,24 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(120)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif ENDIF ! ADD SNOW DEPTH IF ( IGET(224)>0 ) THEN - ii = im/2 + ii = (ista+iend)/2 jj = (jsta+jend)/2 ! GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SPVAL IF(SI(I,J) /= SPVAL) GRID1(I,J) = SI(I,J)*0.001 ! SI comes out of WRF in mm ENDDO @@ -913,11 +943,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(224)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -927,11 +958,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(242)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = POTEVP(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = POTEVP(ii,jj) enddo enddo endif @@ -941,11 +973,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(349)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = DZICE(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = DZICE(ii,jj) enddo enddo endif @@ -967,10 +1000,10 @@ SUBROUTINE SURFCE .OR.IGET(230)>0 .OR. IGET(231)>0 & .OR.IGET(232)>0 .OR. IGET(233)>0) THEN - allocate(smcdry(im,jsta:jend), & - smcmax(im,jsta:jend)) + allocate(smcdry(ista:iend,jsta:jend), & + smcmax(ista:iend,jsta:jend)) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! ---------------------------------------------------------------------- ! IF(QWBS(I,J)>0.001)print*,'NONZERO QWBS',i,j,QWBS(I,J) ! IF(abs(SM(I,J)-0.)<1.0E-5)THEN @@ -996,11 +1029,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(228)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = ECAN(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = ECAN(ii,jj) enddo enddo endiF @@ -1010,11 +1044,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(229)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = EDIR(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = EDIR(ii,jj) enddo enddo endif @@ -1024,7 +1059,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(230)) - datapd(1:im,1:jend-jsta+1,cfld) = ETRANS(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = ETRANS(ista:iend,jsta:jend) endif ENDIF @@ -1032,7 +1067,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(231)) - datapd(1:im,1:jend-jsta+1,cfld) = ESNOW(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = ESNOW(ista:iend,jsta:jend) endif ENDIF @@ -1040,11 +1075,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(232)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SMCDRY(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SMCDRY(ii,jj) enddo enddo endif @@ -1054,11 +1090,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(233)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = SMCMAX(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = SMCMAX(ii,jj) enddo enddo endif @@ -1078,11 +1115,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(512)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = acond(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = acond(ii,jj) enddo enddo endiF @@ -1116,11 +1154,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = avgECAN(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = avgECAN(ii,jj) enddo enddo endiF @@ -1154,11 +1193,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = avgEDIR(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = avgEDIR(ii,jj) enddo enddo endif @@ -1192,7 +1232,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld) = avgETRANS(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = avgETRANS(ista:iend,jsta:jend) endif ENDIF @@ -1224,7 +1264,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld) = avgESNOW(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = avgESNOW(ista:iend,jsta:jend) endif ENDIF @@ -1232,11 +1272,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(996)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = LANDFRAC(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = LANDFRAC(ii,jj) enddo enddo endif @@ -1246,11 +1287,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(997)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = PAHI(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = PAHI(ii,jj) enddo enddo endif @@ -1260,11 +1302,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(998)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = TWA(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = TWA(ii,jj) enddo enddo endif @@ -1273,7 +1316,7 @@ SUBROUTINE SURFCE IF ( IGET(999)>0 )THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TECAN(I,J) ENDDO ENDDO @@ -1301,11 +1344,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(999)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1314,7 +1358,7 @@ SUBROUTINE SURFCE IF ( IGET(1000)>0 )THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TETRAN(I,J) ENDDO ENDDO @@ -1342,11 +1386,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(1000)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1355,7 +1400,7 @@ SUBROUTINE SURFCE IF ( IGET(1001)>0 )THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TEDIR(I,J) ENDDO ENDDO @@ -1383,11 +1428,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(1001)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1401,7 +1447,7 @@ SUBROUTINE SURFCE RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(PAHA(I,J)/=SPVAL)THEN GRID1(I,J)=-1.*PAHA(I,J)*RRNUM !change the sign to conform with Grib ELSE @@ -1436,7 +1482,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -1453,12 +1499,12 @@ SUBROUTINE SURFCE (IGET(548)>0).OR.(IGET(739)>0).OR. & (IGET(771)>0)) THEN - if (.not. allocated(psfc)) allocate(psfc(im,jsta:jend)) + if (.not. allocated(psfc)) allocate(psfc(ista:iend,jsta:jend)) ! !HC COMPUTE SHELTER PRESSURE BECAUSE IT WAS NOT OUTPUT FROM WRF IF(MODELNAME == 'NCAR' .OR. MODELNAME=='RSM'.OR. MODELNAME=='RAPR')THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND TLOW = T(I,J,NINT(LMH(I,J))) PSFC(I,J) = PINT(I,J,NINT(LMH(I,J))+1) !May not have been set above PSHLTR(I,J) = PSFC(I,J)*EXP(-0.068283/TLOW) @@ -1475,7 +1521,7 @@ SUBROUTINE SURFCE IF (IGET(106)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! GRID1(I,J)=TSHLTR(I,J) !HC CONVERT FROM THETA TO T if(tshltr(i,j)/=spval)GRID1(I,J)=TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA @@ -1484,12 +1530,12 @@ SUBROUTINE SURFCE ! TSHLTR(I,J)=GRID1(I,J) ENDDO ENDDO -! print *,'2m tmp=',maxval(TSHLTR(1:im,jsta:jend)), & -! minval(TSHLTR(1:im,jsta:jend)),TSHLTR(1:3,jsta),'grd=',grid1(1:3,jsta) +! print *,'2m tmp=',maxval(TSHLTR(ista:iend,jsta:jend)), & +! minval(TSHLTR(ista:iend,jsta:jend)),TSHLTR(1:3,jsta),'grd=',grid1(1:3,jsta) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(106)) - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -1497,21 +1543,21 @@ SUBROUTINE SURFCE IF (IGET(546)>0) THEN ! GRID1=spval ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! GRID1(I,J)=TSHLTR(I,J) ! ENDDO ! ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(546)) - datapd(1:im,1:jend-jsta+1,cfld) = TSHLTR(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = TSHLTR(ista:iend,jsta:jend) endif ENDIF ! ! SHELTER LEVEL SPECIFIC HUMIDITY. IF (IGET(112)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QSHLTR(I,J) ENDDO ENDDO @@ -1519,30 +1565,30 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(112)) - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif ENDIF ! GRID1 ! SHELTER MIXING RATIO. IF (IGET(414)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = MRSHLTR(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(414)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! SHELTER LEVEL DEWPOINT, DEWPOINT DEPRESSION AND SFC EQUIV POT TEMP. - allocate(p1d(im,jsta:jend), t1d(im,jsta:jend)) + allocate(p1d(ista:iend,jsta:jend), t1d(ista:iend,jsta:jend)) IF ((IGET(113)>0) .OR.(IGET(547)>0).OR.(IGET(548)>0)) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND !tgs The next 4 lines are GSD algorithm for Dew Point computation !tgs Results are very close to dew point computed in DEWPOINT subroutine @@ -1564,14 +1610,14 @@ SUBROUTINE SURFCE ENDIF ENDDO ENDDO - CALL DEWPOINT(EVP,EGRID1(1,jsta)) + CALL DEWPOINT(EVP,EGRID1(ista:iend,jsta:jend)) ! print *,' MAX DEWPOINT',maxval(egrid1) ! DEWPOINT IF (IGET(113)>0) THEN GRID1=spval if(MODELNAME=='RAPR')THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! DEWPOINT can't be higher than T2 t2=TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA if(qshltr(i,j)/=spval)GRID1(I,J)=min(EGRID1(I,J),T2) @@ -1579,7 +1625,7 @@ SUBROUTINE SURFCE ENDDO else DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(qshltr(i,j)/=spval) GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO @@ -1587,7 +1633,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(113)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -1596,16 +1642,16 @@ SUBROUTINE SURFCE ! DEWPOINT at level 1 ------ p1d and t1d are undefined !! -- Moorthi IF (IGET(771)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND EVP(I,J)=P1D(I,J)*QVl1(I,J)/(EPS+ONEPS*QVl1(I,J)) EVP(I,J)=EVP(I,J)*D001 ENDDO ENDDO - CALL DEWPOINT(EVP,EGRID1(1,jsta)) + CALL DEWPOINT(EVP,EGRID1(ista:iend,jsta:jend)) ! print *,' MAX DEWPOINT at level 1',maxval(egrid1) GRID1=spval DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND !tgs 30 dec 2013 - 1st leel dewpoint can't be higher than 1-st level temperature if(qvl1(i,j)/=spval)GRID1(I,J) = min(EGRID1(I,J),T1D(I,J)) ENDDO @@ -1613,7 +1659,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(771)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !------------------------------------------------------------------------- @@ -1623,7 +1669,7 @@ SUBROUTINE SURFCE GRID1=SPVAL GRID2=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(TSHLTR(I,J)/=spval.and.PSHLTR(I,J)/=spval.and.QSHLTR(I,J)/=spval) then ! DEWPOINT DEPRESSION in GRID1 GRID1(i,j)=max(0.,TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA-EGRID1(i,j)) @@ -1643,7 +1689,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(547)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -1651,7 +1697,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(548)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID2(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID2(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -1661,10 +1707,10 @@ SUBROUTINE SURFCE ! ! SHELTER LEVEL RELATIVE HUMIDITY AND APPARENT TEMPERATURE IF (IGET(114) > 0 .OR. IGET(808) > 0) THEN - allocate(q1d(im,jsta:jend)) + allocate(q1d(ista:iend,jsta:jend)) !$omp parallel do private(i,j,llmh) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(MODELNAME=='RAPR')THEN LLMH = NINT(LMH(I,J)) ! P1D(I,J)=PINT(I,J,LLMH+1) @@ -1678,12 +1724,12 @@ SUBROUTINE SURFCE ENDDO ENDDO - CALL CALRH(P1D,T1D,Q1D,EGRID1(1,jsta)) + CALL CALRH(P1D,T1D,Q1D,EGRID1(ista:iend,jsta:jend)) if (allocated(q1d)) deallocate(q1d) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(qshltr(i,j) /= spval)then GRID1(I,J) = EGRID1(I,J)*100. else @@ -1696,11 +1742,12 @@ SUBROUTINE SURFCE if(grib == 'grib2') then cfld = cfld+1 fld_info(cfld)%ifld = IAVBLFLD(IGET(114)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1710,7 +1757,7 @@ SUBROUTINE SURFCE GRID2=SPVAL !$omp parallel do private(i,j,dum1,dum2,dum3,dum216,dum1s,dum3s) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(T1D(I,J)/=spval.and.U10H(I,J)/=spval.and.V10H(I,J)0) THEN ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! GRID1(I,J)=PSHLTR(I,J) ! ENDDO ! ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(138)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = PSHLTR(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = PSHLTR(ii,jj) enddo enddo endif @@ -1787,7 +1836,7 @@ SUBROUTINE SURFCE ! SHELTER LEVEL MAX TEMPERATURE. IF (IGET(345)>0) THEN ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! GRID1(I,J)=MAXTSHLTR(I,J) ! ENDDO ! ENDDO @@ -1821,11 +1870,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%tinvstat=IFHR-ID(18) if(IFHR==0) fld_info(cfld)%tinvstat=0 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = MAXTSHLTR(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = MAXTSHLTR(ii,jj) enddo enddo endif @@ -1835,7 +1885,7 @@ SUBROUTINE SURFCE IF (IGET(346)>0) THEN !!$omp parallel do private(i,j) ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! GRID1(I,J) = MINTSHLTR(I,J) ! ENDDO ! ENDDO @@ -1867,11 +1917,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%tinvstat=IFHR-ID(18) if(IFHR==0) fld_info(cfld)%tinvstat=0 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = MINTSHLTR(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = MINTSHLTR(ii,jj) enddo enddo endif @@ -1881,7 +1932,7 @@ SUBROUTINE SURFCE IF (IGET(347)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(MAXRHSHLTR(I,J)/=spval) GRID1(I,J)=MAXRHSHLTR(I,J)*100. ENDDO ENDDO @@ -1919,11 +1970,12 @@ SUBROUTINE SURFCE if(IFHR==0) fld_info(cfld)%tinvstat=0 ! print*,'id(18),tinvstat,IFHR,ITMAXMIN in rhmax= ',ID(18),fld_info(cfld)%tinvstat, & ! IFHR, ITMAXMIN -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -1933,7 +1985,7 @@ SUBROUTINE SURFCE IF (IGET(348)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(MINRHSHLTR(I,J)/=spval) GRID1(I,J)=MINRHSHLTR(I,J)*100. ENDDO ENDDO @@ -1969,11 +2021,12 @@ SUBROUTINE SURFCE ! fld_info(cfld)%tinvstat=ITMAXMIN fld_info(cfld)%tinvstat=IFHR-ID(18) if(IFHR==0) fld_info(cfld)%tinvstat=0 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2009,11 +2062,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=1 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = maxqshltr(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = maxqshltr(ii,jj) enddo enddo endif @@ -2048,11 +2102,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=1 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = minqshltr(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = minqshltr(ii,jj) enddo enddo endif @@ -2063,7 +2118,7 @@ SUBROUTINE SURFCE IF (IGET(739)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(T(I,J,LM)/=spval.and.PMID(I,J,LM)/=spval.and.SMOKE(I,J,LM,1)/=spval)& GRID1(I,J) = (1./RD)*(PMID(I,J,LM)/T(I,J,LM))*SMOKE(I,J,LM,1) ENDDO @@ -2071,7 +2126,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(739)) - datapd(1:im,1:jend-jsta+1,cfld) = GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -2084,7 +2139,7 @@ SUBROUTINE SURFCE IF ((IGET(064)>0).OR.(IGET(065)>0)) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = U10(I,J) GRID2(I,J) = V10(I,J) ENDDO @@ -2092,20 +2147,22 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(064)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(065)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -2114,7 +2171,7 @@ SUBROUTINE SURFCE IF (IGET(730)>0) THEN IFINCR = 5 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=SPDUV10MEAN(I,J) ENDDO ENDDO @@ -2130,7 +2187,7 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF !--- @@ -2138,7 +2195,7 @@ SUBROUTINE SURFCE IF (IGET(731)>0) THEN IFINCR = 5 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=U10MEAN(I,J) ENDDO ENDDO @@ -2153,14 +2210,14 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! GSD - Time-averaged V wind speed (forecast time labels will all be in minutes) IF (IGET(732)>0) THEN IFINCR = 5 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=V10MEAN(I,J) ENDDO ENDDO @@ -2175,14 +2232,14 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Time-averaged SWDOWN (forecast time labels will all be in minutes) IF (IGET(733)>0 )THEN IFINCR = 15 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWRADMEAN(I,J) ENDDO ENDDO @@ -2197,14 +2254,14 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Time-averaged SWNORM (forecast time labels will all be in minutes) IF (IGET(734)>0 )THEN IFINCR = 15 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SWNORMMEAN(I,J) ENDDO ENDDO @@ -2219,7 +2276,7 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 endif - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -2234,7 +2291,7 @@ SUBROUTINE SURFCE ENDIF !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = U10MAX(I,J) GRID2(I,J) = V10MAX(I,J) ENDDO @@ -2244,22 +2301,24 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(506)) fld_info(cfld)%ntrange=IFHR-ID(18) fld_info(cfld)%tinvstat=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(507)) fld_info(cfld)%ntrange=IFHR-ID(18) fld_info(cfld)%tinvstat=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -2272,18 +2331,19 @@ SUBROUTINE SURFCE IF (IGET(158)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=TH10(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(158)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2294,18 +2354,19 @@ SUBROUTINE SURFCE IF (IGET(505)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=T10M(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(505)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2316,18 +2377,19 @@ SUBROUTINE SURFCE IF (IGET(159)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = Q10(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(159)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2340,7 +2402,7 @@ SUBROUTINE SURFCE IF (IGET(422)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = WSPD10MAX(I,J) ENDDO ENDDO @@ -2353,11 +2415,12 @@ SUBROUTINE SURFCE fld_info(cfld)%tinvstat=1 endif fld_info(cfld)%ntrange=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2368,7 +2431,7 @@ SUBROUTINE SURFCE IF (IGET(783)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = WSPD10UMAX(I,J) ENDDO ENDDO @@ -2381,11 +2444,12 @@ SUBROUTINE SURFCE fld_info(cfld)%tinvstat=1 endif fld_info(cfld)%ntrange=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2396,7 +2460,7 @@ SUBROUTINE SURFCE IF (IGET(784)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = WSPD10VMAX(I,J) ENDDO ENDDO @@ -2409,10 +2473,11 @@ SUBROUTINE SURFCE fld_info(cfld)%tinvstat=1 endif fld_info(cfld)%ntrange=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im + do i=1,iend-ista+1 + ii = ista+i-1 datapd(i,j,cfld) = GRID1(i,jj) enddo enddo @@ -2427,10 +2492,10 @@ SUBROUTINE SURFCE ! IF (IGET(588)>0) THEN - CALL CALVESSEL(ICEG(1,jsta)) + CALL CALVESSEL(ICEG(ista:iend,jsta:jend)) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ICEG(I,J) ENDDO ENDDO @@ -2445,11 +2510,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2475,7 +2541,7 @@ SUBROUTINE SURFCE IF (IGET(172)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (PREC(I,J) <= PTHRESH .OR. SR(I,J)==spval) THEN GRID1(I,J) = -50. ELSE @@ -2486,11 +2552,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(172)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2504,7 +2571,7 @@ SUBROUTINE SURFCE GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(CPRATE(I,J)/=spval) GRID1(I,J) = CPRATE(I,J)*RDTPHS ! GRID1(I,J) = CUPPT(I,J)*RDTPHS ENDDO @@ -2512,11 +2579,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(249)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2530,7 +2598,7 @@ SUBROUTINE SURFCE GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(PREC(I,J)/=spval) then IF(MODELNAME /= 'RSM') THEN GRID1(I,J) = PREC(I,J)*RDTPHS*1000. @@ -2543,11 +2611,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(167)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2558,7 +2627,7 @@ SUBROUTINE SURFCE !-- PRATE_MAX in units of mm/h from NMMB history files GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(PRATE_MAX(I,J)/=spval) GRID1(I,J)=PRATE_MAX(I,J)*SEC2HR ENDDO ENDDO @@ -2572,11 +2641,12 @@ SUBROUTINE SURFCE else fld_info(cfld)%ntrange=0 endif -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2587,7 +2657,7 @@ SUBROUTINE SURFCE !-- FPRATE_MAX in units of mm/h from NMMB history files GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(FPRATE_MAX(I,J)/=spval) GRID1(I,J)=FPRATE_MAX(I,J)*SEC2HR ENDDO ENDDO @@ -2601,11 +2671,12 @@ SUBROUTINE SURFCE else fld_info(cfld)%ntrange=0 endif -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2638,7 +2709,7 @@ SUBROUTINE SURFCE grid1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(AVGCPRATE(I,J)/=spval) GRID1(I,J) = AVGCPRATE(I,J)*RDTPHS ENDDO ENDDO @@ -2657,11 +2728,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2695,7 +2767,7 @@ SUBROUTINE SURFCE grid1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(avgprec(i,j)/=spval) GRID1(I,J) = AVGPREC(I,J)*RDTPHS ENDDO ENDDO @@ -2711,11 +2783,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -2746,7 +2819,7 @@ SUBROUTINE SURFCE IF(MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R') THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGPREC(I,J) < SPVAL)THEN GRID1(I,J) = AVGPREC(I,J)*FLOAT(ID(19)-ID(18))*3600.*1000./DTQ2 ELSE @@ -2756,7 +2829,7 @@ SUBROUTINE SURFCE ENDDO !! Chuang 3/29/2018: add continuous bucket ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! IF(AVGPREC_CONT(I,J) < SPVAL)THEN ! GRID2(I,J) = AVGPREC_CONT(I,J)*FLOAT(IFHR)*3600.*1000./DTQ2 ! ELSE @@ -2767,7 +2840,7 @@ SUBROUTINE SURFCE ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ACPREC(I,J) < SPVAL)THEN GRID1(I,J) = ACPREC(I,J)*1000. ELSE @@ -2789,11 +2862,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) ! print*,'id(18),tinvstat in apcp= ',ID(18),fld_info(cfld)%tinvstat -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo !! add continuous bucket @@ -2840,7 +2914,7 @@ SUBROUTINE SURFCE ! Chuang 3/29/2018: add continuous bucket !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGPREC_CONT(I,J) < SPVAL)THEN GRID2(I,J) = AVGPREC_CONT(I,J)*FLOAT(IFHR)*3600.*1000./DTQ2 ELSE @@ -2858,11 +2932,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR ! print*,'tinvstat in cont bucket= ',fld_info(cfld)%tinvstat -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -2895,7 +2970,7 @@ SUBROUTINE SURFCE IF(MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R') THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGCPRATE(I,J) < SPVAL)THEN GRID1(I,J) = AVGCPRATE(I,J)* & FLOAT(ID(19)-ID(18))*3600.*1000./DTQ2 @@ -2906,7 +2981,7 @@ SUBROUTINE SURFCE ENDDO !! Chuang 3/29/2018: add continuous bucket ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! IF(AVGCPRATE_CONT(I,J) < SPVAL)THEN ! GRID2(I,J) = AVGCPRATE_CONT(I,J)*FLOAT(IFHR)*3600.*1000./DTQ2 ! ELSE @@ -2917,7 +2992,7 @@ SUBROUTINE SURFCE ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(CUPREC(I,J) < SPVAL)THEN GRID1(I,J) = CUPREC(I,J)*1000. ELSE @@ -2932,11 +3007,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(033)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo !! add continuous bucket @@ -2982,7 +3058,7 @@ SUBROUTINE SURFCE ! Chuang 3/29/2018: add continuous bucket !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGCPRATE_CONT(I,J) < SPVAL)THEN GRID2(I,J) = AVGCPRATE_CONT(I,J)*FLOAT(IFHR)*3600.*1000./DTQ2 ELSE @@ -2999,11 +3075,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(418)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -3037,7 +3114,7 @@ SUBROUTINE SURFCE IF(MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R') THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGCPRATE(I,J) < SPVAL .AND. AVGPREC(I,J) < SPVAL) then GRID1(I,J) = ( AVGPREC(I,J) - AVGCPRATE(I,J) ) * & FLOAT(ID(19)-ID(18))*3600.*1000./DTQ2 @@ -3048,7 +3125,7 @@ SUBROUTINE SURFCE ENDDO !! Chuang 3/29/2018: add continuous bucket ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! IF(AVGCPRATE_CONT(I,J) < SPVAL .AND. AVGPREC_CONT(I,J) < SPVAL)THEN ! GRID2(I,J) = (AVGPREC_CONT(I,J) - AVGCPRATE_CONT(I,J)) & ! *FLOAT(IFHR)*3600.*1000./DTQ2 @@ -3060,7 +3137,7 @@ SUBROUTINE SURFCE ELSE !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ANCPRC(I,J)*1000. ENDDO ENDDO @@ -3071,11 +3148,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(034)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo !! add continuous bucket @@ -3086,8 +3164,9 @@ SUBROUTINE SURFCE ! fld_info(cfld)%tinvstat=IFHR ! do j=1,jend-jsta+1 ! jj = jsta+j-1 -! do i=1,im -! datapd(i,j,cfld) = GRID2(i,jj) +! do i=1,iend-ista+1 +! ii = ista+1-1 +! datapd(i,j,cfld) = GRID2(ii,jj) ! enddo ! enddo ! endif @@ -3121,7 +3200,7 @@ SUBROUTINE SURFCE ! Chuang 3/29/2018: add continuous bucket !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(AVGCPRATE_CONT(I,J) < SPVAL .AND. AVGPREC_CONT(I,J) < SPVAL)THEN GRID2(I,J) = (AVGPREC_CONT(I,J) - AVGCPRATE_CONT(I,J)) & *FLOAT(IFHR)*3600.*1000./DTQ2 @@ -3139,11 +3218,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(419)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID2(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID2(ii,jj) enddo enddo endif @@ -3155,7 +3235,7 @@ SUBROUTINE SURFCE GRID1=SPVAL !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(LSPA(I,J)<=-1.0E-6)THEN if(ACPREC(I,J)/=spval) GRID1(I,J) = ACPREC(I,J)*1000 ELSE @@ -3190,11 +3270,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(256)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3204,7 +3285,7 @@ SUBROUTINE SURFCE IF (IGET(035)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! GRID1(I,J) = ACSNOW(I,J)*1000. GRID1(I,J) = ACSNOW(I,J) ENDDO @@ -3235,11 +3316,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(035)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3249,7 +3331,7 @@ SUBROUTINE SURFCE IF (IGET(746)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ACGRAUP(I,J) ENDDO ENDDO @@ -3279,11 +3361,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(746)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3293,7 +3376,7 @@ SUBROUTINE SURFCE IF (IGET(782)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ACFRAIN(I,J) ENDDO ENDDO @@ -3323,11 +3406,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(782)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3337,7 +3421,7 @@ SUBROUTINE SURFCE IF (IGET(121)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! GRID1(I,J) = ACSNOM(I,J)*1000. GRID1(I,J) = ACSNOM(I,J) ENDDO @@ -3368,11 +3452,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(121)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3382,7 +3467,7 @@ SUBROUTINE SURFCE IF (IGET(405)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SNOWFALL(I,J) ENDDO ENDDO @@ -3413,11 +3498,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(405)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3427,7 +3513,7 @@ SUBROUTINE SURFCE IF (IGET(122)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! GRID1(I,J) = SSROFF(I,J)*1000. GRID1(I,J) = SSROFF(I,J) ENDDO @@ -3466,11 +3552,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(122)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3480,7 +3567,7 @@ SUBROUTINE SURFCE IF (IGET(123)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! GRID1(I,J) = BGROFF(I,J)*1000. GRID1(I,J) = BGROFF(I,J) ENDDO @@ -3519,11 +3606,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(123)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3533,7 +3621,7 @@ SUBROUTINE SURFCE IF (IGET(343)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RUNOFF(I,J) ENDDO ENDDO @@ -3566,11 +3654,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(343)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3581,7 +3670,7 @@ SUBROUTINE SURFCE IF (IGET(434)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -3628,11 +3717,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3643,7 +3733,7 @@ SUBROUTINE SURFCE IF (IGET(435)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -3697,11 +3787,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3711,7 +3802,7 @@ SUBROUTINE SURFCE IF (IGET(436)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -3758,11 +3849,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3772,7 +3864,7 @@ SUBROUTINE SURFCE IF (IGET(437)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SNOW_BUCKET(I,J) ENDDO ENDDO @@ -3816,11 +3908,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -3830,7 +3923,7 @@ SUBROUTINE SURFCE IF (IGET(775)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = GRAUP_BUCKET(I,J) ENDDO ENDDO @@ -3874,11 +3967,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4022,7 +4116,7 @@ SUBROUTINE SURFCE IF (IGET(526)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0 .AND. IFMIN == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -4042,11 +4136,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4055,7 +4150,7 @@ SUBROUTINE SURFCE IF (IGET(527)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0 .AND. IFMIN == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -4075,11 +4170,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4088,7 +4184,7 @@ SUBROUTINE SURFCE IF (IGET(528)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0 .AND. IFMIN == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -4108,11 +4204,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4121,7 +4218,7 @@ SUBROUTINE SURFCE IF (IGET(529)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0 .AND. IFMIN == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -4142,11 +4239,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4155,7 +4253,7 @@ SUBROUTINE SURFCE IF (IGET(530)>0.) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR == 0 .AND. IFMIN == 0) THEN GRID1(I,J) = 0.0 ELSE @@ -4176,11 +4274,12 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4190,9 +4289,9 @@ SUBROUTINE SURFCE ! print *,'in surfce,iget(160)=',iget(160),'iget(247)=',iget(247) IF (IGET(160)>0 .OR.(IGET(247)>0)) THEN - allocate(sleet(im,jsta:jend,nalg), rain(im,jsta:jend,nalg), & - freezr(im,jsta:jend,nalg), snow(im,jsta:jend,nalg)) - allocate(zwet(im,jsta:jend)) + allocate(sleet(ista:iend,jsta:jend,nalg), rain(ista:iend,jsta:jend,nalg), & + freezr(ista:iend,jsta:jend,nalg), snow(ista:iend,jsta:jend,nalg)) + allocate(zwet(ista:iend,jsta:jend)) CALL CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,PREC,ZINT,IWX1,ZWET) ! write(0,*)' after first CALWXT_POST' @@ -4200,7 +4299,7 @@ SUBROUTINE SURFCE IF (IGET(160)>0) THEN !$omp parallel do private(i,j,iwx) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ZWET(I,J)0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = ZWET(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(247)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4251,7 +4351,7 @@ SUBROUTINE SURFCE ! !$omp parallel do private(i,j,iwx) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX = IWX1(I,J) SNOW(I,J,2) = MOD(IWX,2) SLEET(I,J,2) = MOD(IWX,4)/2 @@ -4264,7 +4364,7 @@ SUBROUTINE SURFCE ISEED=44641*(INT(SDAT(1)-1)*24*31+INT(SDAT(2))*24+IHRST)+ & & MOD(IFHR*60+IFMIN,44641)+4357 ! write(0,*)'in SURFCE,me=',me,'bef 1st CALWXT_BOURG_POST iseed=',iseed - CALL CALWXT_BOURG_POST(IM,JM,JSTA_2L,JEND_2U,JSTA,JEND,LM,LP1,& + CALL CALWXT_BOURG_POST(IM,ISTA_2L,IEND_2U,ISTA,IEND,JM,JSTA_2L,JEND_2U,JSTA,JEND,LM,LP1,& & ISEED,G,PTHRESH, & & T,Q,PMID,PINT,LMH,PREC,ZINT,IWX1,me) ! write(0,*)'in SURFCE,me=',me,'aft 1st CALWXT_BOURG_POST' @@ -4274,7 +4374,7 @@ SUBROUTINE SURFCE ! !$omp parallel do private(i,j,iwx) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX = IWX1(I,J) SNOW(I,J,3) = MOD(IWX,2) SLEET(I,J,3) = MOD(IWX,4)/2 @@ -4290,7 +4390,7 @@ SUBROUTINE SURFCE ! !$omp parallel do private(i,j,iwx) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX = IWX1(I,J) SNOW(I,J,4) = MOD(IWX,2) SLEET(I,J,4) = MOD(IWX,4)/2 @@ -4306,7 +4406,7 @@ SUBROUTINE SURFCE else !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX1(I,J) = 0 ENDDO ENDDO @@ -4316,7 +4416,7 @@ SUBROUTINE SURFCE ! !$omp parallel do private(i,j,iwx) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IWX = IWX1(I,J) SNOW(I,J,5) = MOD(IWX,2) SLEET(I,J,5) = MOD(IWX,4)/2 @@ -4325,27 +4425,28 @@ SUBROUTINE SURFCE ENDDO ENDDO - allocate(domr(im,jsta:jend), doms(im,jsta:jend), & - domzr(im,jsta:jend), domip(im,jsta:jend)) - CALL CALWXT_DOMINANT_POST(PREC(1,jsta_2l),RAIN,FREEZR,SLEET,SNOW, & + allocate(domr(ista:iend,jsta:jend), doms(ista:iend,jsta:jend), & + domzr(ista:iend,jsta:jend), domip(ista:iend,jsta:jend)) + CALL CALWXT_DOMINANT_POST(PREC(ista_2l,jsta_2l),RAIN,FREEZR,SLEET,SNOW, & DOMR,DOMZR,DOMIP,DOMS) ! if ( me==0) print *,'after CALWXT_DOMINANT, no avrg' ! SNOW. grid1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(prec(i,j) /= spval) GRID1(I,J) = DOMS(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(551)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4353,18 +4454,19 @@ SUBROUTINE SURFCE grid1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(prec(i,j)/=spval) GRID1(I,J) = DOMIP(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(552)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4372,7 +4474,7 @@ SUBROUTINE SURFCE grid1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! if (DOMZR(I,J) == 1) THEN ! PSFC(I,J)=PINT(I,J,NINT(LMH(I,J))+1) ! print *, 'aha ', I, J, PSFC(I,J) @@ -4385,11 +4487,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(553)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4397,18 +4500,19 @@ SUBROUTINE SURFCE grid1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(prec(i,j)/=spval)GRID1(I,J) = DOMR(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(160)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -4418,16 +4522,16 @@ SUBROUTINE SURFCE ! TIME AVERAGED PRECIPITATION TYPE. IF (IGET(317)>0) THEN - if (.not. allocated(sleet)) allocate(sleet(im,jsta:jend,nalg)) - if (.not. allocated(rain)) allocate(rain(im,jsta:jend,nalg)) - if (.not. allocated(freezr)) allocate(freezr(im,jsta:jend,nalg)) - if (.not. allocated(snow)) allocate(snow(im,jsta:jend,nalg)) - if (.not. allocated(zwet)) allocate(zwet(im,jsta:jend)) + if (.not. allocated(sleet)) allocate(sleet(ista:iend,jsta:jend,nalg)) + if (.not. allocated(rain)) allocate(rain(ista:iend,jsta:jend,nalg)) + if (.not. allocated(freezr)) allocate(freezr(ista:iend,jsta:jend,nalg)) + if (.not. allocated(snow)) allocate(snow(ista:iend,jsta:jend,nalg)) + if (.not. allocated(zwet)) allocate(zwet(ista:iend,jsta:jend)) CALL CALWXT_POST(T,Q,PMID,PINT,HTM,LMH,AVGPREC,ZINT,IWX1,ZWET) !$omp parallel do private(i,j,iwx) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ZWET(I,J)0 .or. IGET(559)>0 .or. & IGET(560)>0 .or. IGET(561)>0) THEN - if (.not. allocated(domr)) allocate(domr(im,jsta:jend)) - if (.not. allocated(doms)) allocate(doms(im,jsta:jend)) - if (.not. allocated(domzr)) allocate(domzr(im,jsta:jend)) - if (.not. allocated(domip)) allocate(domip(im,jsta:jend)) + if (.not. allocated(domr)) allocate(domr(ista:iend,jsta:jend)) + if (.not. allocated(doms)) allocate(doms(ista:iend,jsta:jend)) + if (.not. allocated(domzr)) allocate(domzr(ista:iend,jsta:jend)) + if (.not. allocated(domip)) allocate(domip(ista:iend,jsta:jend)) !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DOMS(I,J) = 0. !-- snow DOMR(I,J) = 0. !-- rain DOMZR(I,J) = 0. !-- freezing rain @@ -4774,7 +4882,7 @@ SUBROUTINE SURFCE ENDDO DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND !-- TOTPRCP is total 1-hour accumulated precipitation in [m] totprcp = (RAINC_BUCKET(I,J) + RAINNC_BUCKET(I,J))*1.e-3 snowratio = 0.0 @@ -4895,7 +5003,7 @@ SUBROUTINE SURFCE maxval(snow_bucket)*0.1,minval(snow_bucket)*0.1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND do icat=1,10 if (snow_bucket(i,j)*0.1<0.1*float(icat).and. & snow_bucket(i,j)*0.1>0.1*float(icat-1)) then @@ -4912,7 +5020,7 @@ SUBROUTINE SURFCE icnt_snow_rain_mixed = 0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if (DOMR(i,j)==1 .and. DOMS(i,j)==1) then icnt_snow_rain_mixed = icnt_snow_rain_mixed + 1 endif @@ -4926,25 +5034,26 @@ SUBROUTINE SURFCE ! SNOW. !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=DOMS(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(559)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif ! ICE PELLETS. !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DOMIP(I,J) ! if (DOMIP(I,J) == 1) THEN ! print *, 'ICE PELLETS at I,J ', I, J @@ -4954,18 +5063,19 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(560)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif ! FREEZING RAIN. !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! if (DOMZR(I,J) == 1) THEN ! PSFC(I,J)=PINT(I,J,NINT(LMH(I,J))+1) ! print *, 'FREEZING RAIN AT I,J ', I, J, PSFC(I,J) @@ -4976,29 +5086,31 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(561)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif ! RAIN. !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = DOMR(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(407)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -5027,7 +5139,7 @@ SUBROUTINE SURFCE RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(SFCLHX(I,J)/=SPVAL)THEN GRID1(I,J)=-1.*SFCLHX(I,J)*RRNUM !change the sign to conform with Grib ELSE @@ -5062,7 +5174,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif END IF ENDIF @@ -5080,7 +5192,7 @@ SUBROUTINE SURFCE RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(SFCSHX(I,J)/=SPVAL)THEN GRID1(I,J) = -1.* SFCSHX(I,J)*RRNUM !change the sign to conform with Grib ELSE @@ -5116,7 +5228,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5134,7 +5246,7 @@ SUBROUTINE SURFCE ENDIF GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(SUBSHX(I,J)/=spval) GRID1(I,J) = SUBSHX(I,J)*RRNUM ENDDO ENDDO @@ -5166,7 +5278,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5184,7 +5296,7 @@ SUBROUTINE SURFCE ENDIF GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(SNOPCX(I,J)/=spval) GRID1(I,J) = SNOPCX(I,J)*RRNUM ENDDO ENDDO @@ -5216,7 +5328,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5233,7 +5345,7 @@ SUBROUTINE SURFCE RRNUM=0. ENDIF DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(SFCUVX(I,J)/=SPVAL)THEN GRID1(I,J) = SFCUVX(I,J)*RRNUM ELSE @@ -5269,7 +5381,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5287,7 +5399,7 @@ SUBROUTINE SURFCE ENDIF GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(SFCUX(I,J)/=spval) GRID1(I,J) = SFCUX(I,J)*RRNUM ENDDO ENDDO @@ -5319,7 +5431,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5337,7 +5449,7 @@ SUBROUTINE SURFCE ENDIF GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(SFCVX(I,J)/=spval) GRID1(I,J) = SFCVX(I,J)*RRNUM ENDDO ENDDO @@ -5369,7 +5481,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5377,7 +5489,7 @@ SUBROUTINE SURFCE IF (IGET(047)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(SFCEVP(I,J)/=spval) GRID1(I,J) = SFCEVP(I,J)*1000. ENDDO ENDDO @@ -5411,7 +5523,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -5420,7 +5532,7 @@ SUBROUTINE SURFCE IF (IGET(137)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(POTEVP(I,J)/=spval) GRID1(I,J) = POTEVP(I,J)*1000. ENDDO ENDDO @@ -5454,35 +5566,35 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! ROUGHNESS LENGTH. IF (IGET(044)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = Z0(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(044)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! FRICTION VELOCITY. IF (IGET(045)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = USTAR(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(045)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5490,41 +5602,41 @@ SUBROUTINE SURFCE ! dong add missing value for cd IF (IGET(132)>0) THEN GRID1=spval - CALL CALDRG(EGRID1(1,jsta_2l)) + CALL CALDRG(EGRID1(ista_2l:iend_2u,jsta_2l:jend_2u)) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(USTAR(I,J) < spval) GRID1(I,J)=EGRID1(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(132)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF write_cd: IF(IGET(922)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=CD10(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(922)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF write_cd write_ch: IF(IGET(923)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=CH10(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(923)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF write_ch ! @@ -5534,14 +5646,14 @@ SUBROUTINE SURFCE ! MODEL OUTPUT SURFACE U COMPONENT WIND STRESS. IF (IGET(900)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=MDLTAUX(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(900)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -5549,14 +5661,14 @@ SUBROUTINE SURFCE ! MODEL OUTPUT SURFACE V COMPONENT WIND STRESS IF (IGET(901)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=MDLTAUY(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(901)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -5566,13 +5678,13 @@ SUBROUTINE SURFCE ! dong add missing value GRID1 = spval IF(MODELNAME /= 'FV3R') & - CALL CALTAU(EGRID1(1,jsta),EGRID2(1,jsta)) + CALL CALTAU(EGRID1(ista:iend,jsta:jend),EGRID2(ista:iend,jsta:jend)) ! ! SURFACE U COMPONENT WIND STRESS. ! dong for FV3, directly use model output IF (IGET(133)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(MODELNAME == 'FV3R') THEN GRID1(I,J)=SFCUXI(I,J) ELSE @@ -5584,14 +5696,14 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(133)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! SURFACE V COMPONENT WIND STRESS IF (IGET(134)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(MODELNAME == 'FV3R') THEN GRID1(I,J)=SFCVXI(I,J) ELSE @@ -5602,7 +5714,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(134)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -5613,7 +5725,7 @@ SUBROUTINE SURFCE ! GRAVITY U COMPONENT WIND STRESS. IF (IGET(315)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = GTAUX(I,J) ENDDO ENDDO @@ -5644,14 +5756,14 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=1 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! SURFACE V COMPONENT WIND STRESS IF (IGET(316)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=GTAUY(I,J) ENDDO ENDDO @@ -5682,7 +5794,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=1 endif fld_info(cfld)%tinvstat=IFHR-ID(18) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -5695,14 +5807,14 @@ SUBROUTINE SURFCE MODELNAME=='RAPR')THEN !4omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = TWBS(I,J) ENDDO ENDDO ELSE !4omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(TWBS(I,J) < spval) GRID1(I,J) = -TWBS(I,J) ENDDO ENDDO @@ -5710,7 +5822,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(154)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5722,14 +5834,14 @@ SUBROUTINE SURFCE MODELNAME=='RAPR')THEN !4omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = QWBS(I,J) ENDDO ENDDO ELSE !4omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(QWBS(I,J) < spval) GRID1(I,J) = -QWBS(I,J) ENDDO ENDDO @@ -5737,21 +5849,21 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(155)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! SURFACE EXCHANGE COEFF IF (IGET(169)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=SFCEXC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(169)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5759,14 +5871,14 @@ SUBROUTINE SURFCE IF (IGET(170)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(VEGFRC(I,J)/=spval) GRID1(I,J)=VEGFRC(I,J)*100. ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(170)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -5775,14 +5887,14 @@ SUBROUTINE SURFCE IF (IGET(726)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(shdmin(I,J)/=spval) GRID1(I,J)=shdmin(I,J)*100. ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(726)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5790,14 +5902,14 @@ SUBROUTINE SURFCE IF (IGET(729)>0) THEN GRID1=SPVAL DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND if(shdmax(I,J)/=spval) GRID1(I,J)=shdmax(I,J)*100. ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(729)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! @@ -5807,7 +5919,7 @@ SUBROUTINE SURFCE IF (iSF_SURFACE_PHYSICS == 2 .OR. MODELNAME=='RAPR') THEN IF (IGET(254)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (MODELNAME=='RAPR')THEN GRID1(I,J)=LAI(I,J) ELSE @@ -5818,7 +5930,7 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(254)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ENDIF @@ -5827,54 +5939,54 @@ SUBROUTINE SURFCE ! INSTANTANEOUS GROUND HEAT FLUX IF (IGET(152)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=GRNFLX(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(152)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! VEGETATION TYPE IF (IGET(218)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = FLOAT(IVGTYP(I,J)) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(218)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! SOIL TYPE IF (IGET(219)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = FLOAT(ISLTYP(I,J)) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(219)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! SLOPE TYPE IF (IGET(223)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = FLOAT(ISLOPE(I,J)) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(223)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! if (me==0)print*,'starting computing canopy conductance' @@ -5890,10 +6002,10 @@ SUBROUTINE SURFCE & .OR. IGET(241)>0 ) THEN IF (iSF_SURFACE_PHYSICS == 2) THEN !NSOIL == 4 ! if(me==0)print*,'starting computing canopy conductance' - allocate(rsmin(im,jsta:jend), smcref(im,jsta:jend), gc(im,jsta:jend), & - rcq(im,jsta:jend), rct(im,jsta:jend), rcsoil(im,jsta:jend), rcs(im,jsta:jend)) + allocate(rsmin(ista:iend,jsta:jend), smcref(ista:iend,jsta:jend), gc(ista:iend,jsta:jend), & + rcq(ista:iend,jsta:jend), rct(ista:iend,jsta:jend), rcsoil(ista:iend,jsta:jend), rcs(ista:iend,jsta:jend)) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF( (abs(SM(I,J)-0.) < 1.0E-5) .AND. & & (abs(SICE(I,J)-0.) < 1.0E-5) ) THEN IF(CZMEAN(I,J)>1.E-6) THEN @@ -5936,118 +6048,118 @@ SUBROUTINE SURFCE IF (IGET(220)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = GC(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(220)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(234)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RSMIN(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(234)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(235)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = FLOAT(NROOTS(I,J)) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(235)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(236)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SMCWLT(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(236)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(237)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = SMCREF(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(237)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(238)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RCS(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(238)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(239)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RCT(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(239)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(240)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RCQ(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(240)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF IF (IGET(241)>0 )THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = RCSOIL(I,J) ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(241)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -6069,7 +6181,7 @@ SUBROUTINE SURFCE IF(IGET(236)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = smcwlt(i,j) ! IF(isltyp(i,j)/=0)THEN ! GRID1(I,J) = WLTSMC(isltyp(i,j)) @@ -6081,11 +6193,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(236)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -6094,7 +6207,7 @@ SUBROUTINE SURFCE IF(IGET(397)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = fieldcapa(i,j) ! IF(isltyp(i,j)/=0)THEN ! GRID1(I,J) = REFSMC(isltyp(i,j)) @@ -6106,11 +6219,12 @@ SUBROUTINE SURFCE if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(397)) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -6119,7 +6233,7 @@ SUBROUTINE SURFCE IF(IGET(396)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = suntime(i,j) ENDDO ENDDO @@ -6150,11 +6264,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -6163,7 +6278,7 @@ SUBROUTINE SURFCE IF(IGET(517)>0)THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = avgpotevp(i,j) ENDDO ENDDO @@ -6194,11 +6309,12 @@ SUBROUTINE SURFCE fld_info(cfld)%ntrange=0 endif fld_info(cfld)%tinvstat=IFHR-ID(18) -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = GRID1(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) enddo enddo endif @@ -6210,21 +6326,21 @@ SUBROUTINE SURFCE IF (IGET(282)>0) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J) = PT ENDDO ENDDO if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(282)) - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! PRESSURE THICKNESS REQUESTED BY CMAQ IF (IGET(283)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=PDTOP ENDDO ENDDO @@ -6241,14 +6357,14 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(283)) fld_info(cfld)%lvl1=1 fld_info(cfld)%lvl2=L - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! ! SIGMA PRESSURE THICKNESS REQUESTED BY CMAQ IF (IGET(273)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=PD(I,J) ENDDO ENDDO @@ -6265,7 +6381,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(273)) fld_info(cfld)%lvl1=L fld_info(cfld)%lvl2=LM+1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -6273,7 +6389,7 @@ SUBROUTINE SURFCE ! TIME-AVERAGED EXCHANGE COEFFICIENTS FOR MASS REQUESTED FOR CMAQ IF (IGET(503)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AKHSAVG(I,J) ENDDO ENDDO @@ -6291,14 +6407,14 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(503)) fld_info(cfld)%ntrange=IFHR-ID(18) fld_info(cfld)%tinvstat=1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! TIME-AVERAGED EXCHANGE COEFFICIENTS FOR WIND REQUESTED FOR CMAQ IF (IGET(504)>0) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND GRID1(I,J)=AKMSAVG(I,J) ENDDO ENDDO @@ -6316,7 +6432,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(504)) fld_info(cfld)%ntrange=IFHR-ID(18) fld_info(cfld)%tinvstat=1 - datapd(1:im,1:jend-jsta+1,cfld)=GRID1(1:im,jsta:jend) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -6330,7 +6446,8 @@ subroutine qpf_comp(igetfld,compfile,fcst) ! compfile: file name for reference grid. ! fcst: forecast length in hours. use ctlblk_mod, only: SPVAL,JSTA,JEND,IM,DTQ2,IFHR,IFMIN,TPREC,GRIB, & - MODELNAME,JM,CFLD,DATAPD,FLD_INFO,JSTA_2L,JEND_2U + MODELNAME,JM,CFLD,DATAPD,FLD_INFO,JSTA_2L,JEND_2U,& + ISTA,IEND,ISTA_2L,IEND_2U use rqstfld_mod, only: IGET, ID, LVLS, IAVBLFLD use grib2_module, only: read_grib2_head, read_grib2_sngle use vrbls2d, only: AVGPREC, AVGPREC_CONT @@ -6349,7 +6466,7 @@ subroutine qpf_comp(igetfld,compfile,fcst) logical :: file_exists - integer :: i, j, k, jj + integer :: i, j, k, ii, jj ! Read in reference grid. INQUIRE(FILE=compfile, EXIST=file_exists) @@ -6392,7 +6509,7 @@ subroutine qpf_comp(igetfld,compfile,fcst) ! !$omp parallel do private(i,j) IF (file_exists) THEN DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (IFHR .EQ. 0 .OR. fcst .EQ. 0) THEN outgrid(I,J) = 0.0 ELSE IF (mscValue(I,J) .LE. 0.0) THEN @@ -6444,11 +6561,12 @@ subroutine qpf_comp(igetfld,compfile,fcst) fld_info(cfld)%ifld=IAVBLFLD(IGET(igetfld)) fld_info(cfld)%ntrange=trange fld_info(cfld)%tinvstat=invstat -!$omp parallel do private(i,j,jj) +!$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 - do i=1,im - datapd(i,j,cfld) = outgrid(i,jj) + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = outgrid(ii,jj) enddo enddo endif diff --git a/sorc/ncep_post.fd/TRPAUS.f b/sorc/ncep_post.fd/TRPAUS.f index 9678afcf8..24a27d71d 100644 --- a/sorc/ncep_post.fd/TRPAUS.f +++ b/sorc/ncep_post.fd/TRPAUS.f @@ -29,6 +29,7 @@ !> 2000-01-04 | Jim Tuccillo | MPI Version !> 2002-04-23 | Mike Baldwin | WRF Version !> 2019-10-30 | Bo Cui | ReMOVE "GOTO" STATEMENT +!> 2021-09-13 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) @@ -40,7 +41,8 @@ SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) use vrbls3d, only: pint, t, zint, uh, vh use masks, only: lmh use params_mod, only: d50 - use ctlblk_mod, only: jsta, jend, spval, im, jm, lm + use ctlblk_mod, only: jsta, jend, spval, im, jm, lm, & + ista, iend !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -65,7 +67,7 @@ SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) ! LOOP OVER THE HORIZONTAL GRID. ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PTROP(I,J) = SPVAL TTROP(I,J) = SPVAL ZTROP(I,J) = SPVAL @@ -80,7 +82,7 @@ SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) !!$omp& tlapse,tlapse2,u0,u0l,uh,uh0,ul, !!$omp& v0,v0l,vh,vh0) DO J=JSTA,JEND - loopI:DO I=1,IM + loopI:DO I=ISTA,IEND ! ! COMPUTE THE TEMPERATURE LAPSE RATE (-DT/DZ) BETWEEN ETA ! LAYERS MOVING UP FROM THE GROUND. THE FIRST ETA LAYER diff --git a/sorc/ncep_post.fd/TRPAUS_NAM.f b/sorc/ncep_post.fd/TRPAUS_NAM.f index 5ccb2c9ad..7ea734f58 100644 --- a/sorc/ncep_post.fd/TRPAUS_NAM.f +++ b/sorc/ncep_post.fd/TRPAUS_NAM.f @@ -29,6 +29,7 @@ !> 2000-01-04 | Jim Tuccillo | MPI Version !> 2002-04-23 | Mike Baldwin | WRF Version !> 2019-10-30 | Bo Cui | ReMOVE "GOTO" STATEMENT +!> 2021-09-13 | JESSE MENG | 2D DECOMPOSITION !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) @@ -52,8 +53,8 @@ SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) ! ! DECLARE VARIABLES. ! - REAL PTROP(IM,JM),TTROP(IM,JM),ZTROP(IM,JM),UTROP(IM,JM) - REAL VTROP(IM,JM),SHTROP(IM,JM) + REAL PTROP(ISTA:IEND,JSTA:JEND),TTROP(ISTA:IEND,JSTA:JEND),ZTROP(ISTA:IEND,JSTA:JEND),UTROP(ISTA:IEND,JSTA:JEND) + REAL VTROP(ISTA:IEND,JSTA:JEND),SHTROP(ISTA:IEND,JSTA:JEND) REAL TLAPSE(LM),DZ2(LM),DELT2(LM),TLAPSE2(LM) ! integer I,J @@ -65,7 +66,7 @@ SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) ! LOOP OVER THE HORIZONTAL GRID. ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PTROP(I,J) = SPVAL TTROP(I,J) = SPVAL ZTROP(I,J) = SPVAL @@ -80,7 +81,7 @@ SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) !$omp& tlapse,tlapse2,u0,u0l,uh,uh0,ul, !$omp& v0,v0l,vh,vh0) DO J=JSTA,JEND - loopI:DO I=1,IM + loopI:DO I=ISTA,IEND ! ! COMPUTE THE TEMPERATURE LAPSE RATE (-DT/DZ) BETWEEN ETA ! LAYERS MOVING UP FROM THE GROUND. THE FIRST ETA LAYER diff --git a/sorc/ncep_post.fd/TTBLEX.f b/sorc/ncep_post.fd/TTBLEX.f index 21748a6f4..5dad0ae76 100644 --- a/sorc/ncep_post.fd/TTBLEX.f +++ b/sorc/ncep_post.fd/TTBLEX.f @@ -19,6 +19,7 @@ SUBROUTINE TTBLEX(TREF,TTBL,ITB,JTB,KARR,PMIDL & ! 00-01-04 JIM TUCCILLO - MPI VERSION ! 01-10-22 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT ! 02-01-15 MIKE BALDWIN - WRF VERSION +! 21-09-13 J MENG - 2D DECOMPOSITION ! ! OUTPUT FILES: ! NONE @@ -30,20 +31,21 @@ SUBROUTINE TTBLEX(TREF,TTBL,ITB,JTB,KARR,PMIDL & ! ATTRIBUTES: ! LANGUAGE: FORTRAN !---------------------------------------------------------------------- - use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, me + use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, me, & + ista, iend, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none !---------------------------------------------------------------------- integer,intent(in) :: ITB,JTB - integer,intent(in) :: KARR(IM,jsta:jend) + integer,intent(in) :: KARR(ista:iend,jsta:jend) real,dimension(JTB,ITB),intent(in) :: TTBL - real,dimension(IM,JSTA_2L:JEND_2U),intent(in) :: PMIDL - real,dimension(IM,JSTA_2L:JEND_2U),intent(out) :: TREF - real,dimension(IM,jsta:jend),intent(out) :: QQ,PP - real,dimension(IM,jsta:jend),intent(in) :: THESP + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(in) :: PMIDL + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(out) :: TREF + real,dimension(ista:iend,jsta:jend),intent(out) :: QQ,PP + real,dimension(ista:iend,jsta:jend),intent(in) :: THESP real,dimension(ITB), intent(in) :: THE0,STHE - integer,dimension(IM,jsta:jend),intent(out) :: IPTB,ITHTB + integer,dimension(ista:iend,jsta:jend),intent(out) :: IPTB,ITHTB real,intent(in) :: PL,RDP,RDTHE ! @@ -55,7 +57,7 @@ SUBROUTINE TTBLEX(TREF,TTBL,ITB,JTB,KARR,PMIDL & !$omp& private(i,j,bthe00k,bthe10k,bthk,ip,iptbk,ith,pk,sthe00k,sthe10k,& !$omp& sthk,t00k,t01k,t10k,t11k,tpk,tthk) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(KARR(I,J) > 0) THEN !--------------SCALING PRESSURE & TT TABLE INDEX------------------------ PK = PMIDL(I,J) diff --git a/sorc/ncep_post.fd/UPP_MATH.f b/sorc/ncep_post.fd/UPP_MATH.f index 58f74fa14..28da9b87a 100644 --- a/sorc/ncep_post.fd/UPP_MATH.f +++ b/sorc/ncep_post.fd/UPP_MATH.f @@ -17,7 +17,8 @@ module upp_math use masks, only: dx, dy - use ctlblk_mod, only: im, jsta_2l, jend_2u, jsta_m, jend_m, spval + use ctlblk_mod, only: im, jsta_2l, jend_2u, jsta_m, jend_m, spval,& + ista_2l, iend_2u, ista_m, iend_m use gridspec_mod, only: gridtype ! implicit none @@ -41,7 +42,7 @@ subroutine dvdxdudy(uwnd,vwnd) ! implicit none - REAL, dimension(im,jsta_2l:jend_2u), intent(in) :: UWND, VWND + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: UWND, VWND ! !-- local variables !-- @@ -52,7 +53,7 @@ subroutine dvdxdudy(uwnd,vwnd) IF(GRIDTYPE == 'A')THEN !$omp parallel do private(i,j,r2dx,r2dy) DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M IF(VWND(I+1,J)= jm) then - DO I=1,IM - outgrid(i,jm) = outgrid(i,jm-1) + DO I=ISTA,IEND + outgrid(i,jend) = outgrid(i,jend-1) END DO END IF ELSE IF(GRIDTYPE == 'C')THEN DO J=JSTA,JEND - DO I=1,IM-1 + DO I=ISTA,IEND_M outgrid(i,j)=(ingrid(i,j)+ingrid(i+1,j))/2.0 end do end do @@ -170,40 +171,41 @@ end subroutine H2U subroutine H2V(ingrid,outgrid) ! This subroutine interpolates from H points onto V points ! Author: CHUANG, EMC, Dec. 2010 - use ctlblk_mod, only: spval, jsta, jend, jsta_m, jend_m, im, jsta_2l, jend_2u + use ctlblk_mod, only: spval, jsta, jend, jsta_m, jend_m, im, jsta_2l, jend_2u,& + ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype implicit none INCLUDE "mpif.h" integer:: i,j,ie,iw - real,dimension(IM,JSTA_2L:JEND_2U),intent(in)::ingrid - real,dimension(IM,JSTA_2L:JEND_2U),intent(out)::outgrid + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(in)::ingrid + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(out)::outgrid outgrid=spval if(GRIDTYPE == 'A')THEN do j=jsta,jend - do i=1,im + do i=ista,iend outgrid(i,j)=ingrid(i,j) end do end do else IF(GRIDTYPE == 'E')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M IE=I+MOD(J,2) IW=IE-1 outgrid(i,j)=(ingrid(IW,J)+ingrid(IE,J)+ingrid(I,J+1)+ingrid(I,J-1))/4.0 end do end do ELSE IF(GRIDTYPE == 'B')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA,JEND_M - DO I=1,IM-1 + DO I=ISTA,IEND_M outgrid(i,j)=(ingrid(i,j)+ingrid(i,j+1)+ingrid(i+1,j)+ingrid(i+1,j+1))/4.0 end do end do ELSE IF(GRIDTYPE == 'C')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA,JEND_M - DO I=1,IM + DO I=ISTA,IEND outgrid(i,j)=(ingrid(i,j)+ingrid(i,j+1))/2.0 end do end do @@ -216,39 +218,40 @@ end subroutine H2V subroutine U2H(ingrid,outgrid) ! This subroutine interpolates from U points onto H points ! Author: CHUANG, EMC, Dec. 2010 - use ctlblk_mod, only: spval, jsta, jend, jsta_m, jend_m, im, jsta_2l, jend_2u + use ctlblk_mod, only: spval, jsta, jend, jsta_m, jend_m, im, jsta_2l, jend_2u,& + ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype implicit none INCLUDE "mpif.h" integer:: i,j,ie,iw - real,dimension(IM,JSTA_2L:JEND_2U),intent(in)::ingrid - real,dimension(IM,JSTA_2L:JEND_2U),intent(out)::outgrid + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(in)::ingrid + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(out)::outgrid outgrid=spval if(GRIDTYPE == 'A')THEN do j=jsta,jend - do i=1,im + do i=ista,iend outgrid(i,j)=ingrid(i,j) end do end do else IF(GRIDTYPE == 'E')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M IE=I+MOD(J+1,2) IW=IE-1 outgrid(i,j)=(ingrid(IW,J)+ingrid(IE,J)+ingrid(I,J+1)+ingrid(I,J-1))/4.0 end do end do ELSE IF(GRIDTYPE == 'B')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M outgrid(i,j)=(ingrid(i-1,j-1)+ingrid(i,j-1)+ingrid(i-1,j)+ingrid(i,j))/4.0 end do end do ELSE IF(GRIDTYPE == 'C')THEN DO J=JSTA,JEND - DO I=2,IM + DO I=ISTA_M,IEND outgrid(i,j)=(ingrid(i-1,j)+ingrid(i,j))/2.0 end do end do @@ -261,40 +264,41 @@ end subroutine U2H subroutine V2H(ingrid,outgrid) ! This subroutine interpolates from V points onto H points ! Author: CHUANG, EMC, Dec. 2010 - use ctlblk_mod, only: spval, jsta, jend, jsta_m, jend_m, im, jsta_2l, jend_2u + use ctlblk_mod, only: spval, jsta, jend, jsta_m, jend_m, im, jsta_2l, jend_2u,& + ista, iend, ista_m, iend_m, ista_2l, iend_2u use gridspec_mod, only: gridtype implicit none INCLUDE "mpif.h" integer:: i,j,ie,iw - real,dimension(IM,JSTA_2L:JEND_2U),intent(in)::ingrid - real,dimension(IM,JSTA_2L:JEND_2U),intent(out)::outgrid + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(in)::ingrid + real,dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U),intent(out)::outgrid outgrid=spval if(GRIDTYPE == 'A')THEN do j=jsta,jend - do i=1,im + do i=ista,iend outgrid(i,j)=ingrid(i,j) end do end do else IF(GRIDTYPE == 'E')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M IE=I+MOD(J,2) IW=IE-1 outgrid(i,j)=(ingrid(IW,J)+ingrid(IE,J)+ingrid(I,J+1)+ingrid(I,J-1))/4.0 end do end do ELSE IF(GRIDTYPE == 'B')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA_M,JEND_M - DO I=2,IM-1 + DO I=ISTA_M,IEND_M outgrid(i,j)=(ingrid(i-1,j-1)+ingrid(i,j-1)+ingrid(i-1,j)+ingrid(i,j))/4.0 end do end do ELSE IF(GRIDTYPE == 'C')THEN - call exch(ingrid(1,jsta_2l)) + call exch(ingrid(ista_2l,jsta_2l)) DO J=JSTA_M,JEND - DO I=1,IM + DO I=ISTA,IEND outgrid(i,j)=(ingrid(i,j-1)+ingrid(i,j))/2.0 end do end do diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index e19191de2..239cbde7a 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -31,9 +31,13 @@ module upp_physics private public :: CALCAPE, CALCAPE2 + public :: CALDIV + public :: CALGRADPS public :: CALRH public :: CALRH_GFS, CALRH_GSD, CALRH_NAM public :: CALRH_PW + public :: CALVOR + public :: FPVSNEW public :: TVIRTUAL @@ -43,12 +47,12 @@ module upp_physics ! SUBROUTINE CALRH(P1,T1,Q1,RH) - use ctlblk_mod, only: im, jsta, jend, MODELNAME + use ctlblk_mod, only: ista, iend, jsta, jend, MODELNAME implicit none - REAL,dimension(IM,jsta:jend),intent(in) :: P1,T1 - REAL,dimension(IM,jsta:jend),intent(inout) :: Q1 - REAL,dimension(IM,jsta:jend),intent(out) :: RH + REAL,dimension(ista:iend,jsta:jend),intent(in) :: P1,T1 + REAL,dimension(ista:iend,jsta:jend),intent(inout) :: Q1 + REAL,dimension(ista:iend,jsta:jend),intent(out) :: RH IF(MODELNAME == 'RAPR')THEN CALL CALRH_GSD(P1,T1,Q1,RH) @@ -90,7 +94,7 @@ END SUBROUTINE CALRH !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALRH_NAM(P1,T1,Q1,RH) use params_mod, only: PQ0, a2, a3, a4, rhmin - use ctlblk_mod, only: jsta, jend, spval, im + use ctlblk_mod, only: ista, iend, jsta, jend, spval !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -98,9 +102,9 @@ SUBROUTINE CALRH_NAM(P1,T1,Q1,RH) ! ! DECLARE VARIABLES. ! - REAL,dimension(IM,jsta:jend),intent(in) :: P1,T1 - REAL,dimension(IM,jsta:jend),intent(inout) :: Q1 - REAL,dimension(IM,jsta:jend),intent(out) :: RH + REAL,dimension(ista:iend,jsta:jend),intent(in) :: P1,T1 + REAL,dimension(ista:iend,jsta:jend),intent(inout) :: Q1 + REAL,dimension(ista:iend,jsta:jend),intent(out) :: RH REAL QC integer I,J !*************************************************************** @@ -108,7 +112,7 @@ SUBROUTINE CALRH_NAM(P1,T1,Q1,RH) ! START CALRH. ! DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (T1(I,J) < spval) THEN IF (ABS(P1(I,J)) >= 1) THEN QC = PQ0/P1(I,J)*EXP(A2*(T1(I,J)-A3)/(T1(I,J)-A4)) @@ -170,7 +174,7 @@ END SUBROUTINE CALRH_NAM !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALRH_GFS(P1,T1,Q1,RH) use params_mod, only: rhmin - use ctlblk_mod, only: jsta, jend, spval, im + use ctlblk_mod, only: ista, iend, jsta, jend, spval !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -187,8 +191,8 @@ SUBROUTINE CALRH_GFS(P1,T1,Q1,RH) ! END FUNCTION FPVSNEW ! END INTERFACE ! - REAL,dimension(IM,jsta:jend),intent(in) :: P1,T1 - REAL,dimension(IM,jsta:jend),intent(inout):: Q1,RH + REAL,dimension(ista:iend,jsta:jend),intent(in) :: P1,T1 + REAL,dimension(ista:iend,jsta:jend),intent(inout):: Q1,RH REAL ES,QC integer :: I,J !*************************************************************** @@ -197,7 +201,7 @@ SUBROUTINE CALRH_GFS(P1,T1,Q1,RH) ! !$omp parallel do private(i,j,es,qc) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (T1(I,J) < spval .AND. P1(I,J) < spval.AND.Q1(I,J)/=spval) THEN ! IF (ABS(P1(I,J)) > 1.0) THEN ! IF (P1(I,J) > 1.0) THEN @@ -237,17 +241,17 @@ SUBROUTINE CALRH_GSD(P1,T1,Q1,RHB) !------------------------------------------------------------------ ! - use ctlblk_mod, only: jsta, jend, im, spval + use ctlblk_mod, only: ista, iend, jsta, jend, spval implicit none integer :: j, i real :: tx, pol, esx, es, e - real, dimension(im,jsta:jend) :: P1, T1, Q1, RHB + real, dimension(ista:iend,jsta:jend) :: P1, T1, Q1, RHB DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (T1(I,J) < spval .AND. P1(I,J) < spval .AND. Q1(I,J) < spval) THEN ! - compute relative humidity Tx=T1(I,J)-273.15 @@ -279,13 +283,13 @@ SUBROUTINE CALRH_PW(RHPW) use vrbls3d, only: q, pmid, t use params_mod, only: g - use ctlblk_mod, only: lm, jsta, jend, lm, im, spval + use ctlblk_mod, only: lm, ista, iend, jsta, jend, spval !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none real,PARAMETER :: svp1=6.1153,svp2=17.67,svp3=29.65 - REAL, dimension(im,jsta:jend):: PW, PW_SAT, RHPW + REAL, dimension(ista:iend,jsta:jend):: PW, PW_SAT, RHPW REAL deltp,sh,qv,temp,es,qs,qv_sat integer i,j,l,k,ka,kb @@ -296,7 +300,7 @@ SUBROUTINE CALRH_PW(RHPW) DO L=1,LM k=lm-l+1 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ! -- use specific humidity for PW calculation if(t(i,j,k) NINT(LMH(I,J))) LCL(I,J) = NINT(LMH(I,J)) IF (ITYPE > 2) THEN IF (T(I,J,LCL(I,J)) < 263.15) THEN @@ -762,7 +767,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & KNUML = 0 KNUMH = 0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND KLRES(I,J) = 0 KHRES(I,J) = 0 IF(L <= LCL(I,J)) THEN @@ -780,23 +785,23 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE 0) THEN - CALL TTBLEX(TPAR(1,JSTA_2L,L),TTBL,ITB,JTB,KLRES & - , PMID(1,JSTA_2L,L),PL,QQ,PP,RDP,THE0,STHE & + CALL TTBLEX(TPAR(ISTA_2L,JSTA_2L,L),TTBL,ITB,JTB,KLRES & + , PMID(ISTA_2L,JSTA_2L,L),PL,QQ,PP,RDP,THE0,STHE & , RDTHE,THESP,IPTB,ITHTB) ENDIF !*** !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE>PLQ !** IF(KNUMH > 0) THEN - CALL TTBLEX(TPAR(1,JSTA_2L,L),TTBLQ,ITBQ,JTBQ,KHRES & - , PMID(1,JSTA_2L,L),PLQ,QQ,PP,RDPQ & + CALL TTBLEX(TPAR(ISTA_2L,JSTA_2L,L),TTBLQ,ITBQ,JTBQ,KHRES & + , PMID(ISTA_2L,JSTA_2L,L),PLQ,QQ,PP,RDPQ & ,THE0Q,STHEQ,RDTHEQ,THESP,IPTB,ITHTB) ENDIF !------------SEARCH FOR EQ LEVEL---------------------------------------- !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(KHRES(I,J) > 0) THEN IF(TPAR(I,J,L) > T(I,J,L)) IEQL(I,J) = L ENDIF @@ -805,7 +810,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(KLRES(I,J) > 0) THEN IF(TPAR(I,J,L) > T(I,J,L) .AND. & PMID(I,J,L)>100.) IEQL(I,J) = L @@ -818,7 +823,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & LBEG = 1000 LEND = 0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LBEG = MIN(IEQL(I,J),LBEG) LEND = MAX(LCL(I,J),LEND) ENDDO @@ -826,7 +831,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T(I,J,IEQL(I,J)) > 255.65) THEN THUNDER(I,J) = .FALSE. ENDIF @@ -837,7 +842,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IDX(I,J) = 0 IF(L >= IEQL(I,J).AND.L <= LCL(I,J)) THEN IDX(I,J) = 1 @@ -847,7 +852,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & ! !$omp parallel do private(i,j,gdzkl,presk,thetaa,thetap,esatp,qsatp,tvp,tv) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(IDX(I,J) > 0) THEN PRESK = PMID(I,J,L) GDZKL = (ZINT(I,J,L)-ZINT(I,J,L+1)) * G @@ -878,7 +883,7 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE, & ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND CAPE(I,J) = MAX(D00,CAPE(I,J)) CINS(I,J) = MIN(CINS(I,J),D00) ! add equillibrium height @@ -1007,7 +1012,8 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & use lookup_mod, only: thl, rdth, jtb, qs0, sqs, rdq, itb, ptbl, & plq, ttbl, pl, rdp, the0, sthe, rdthe, ttblq, & itbq, jtbq, rdpq, the0q, stheq, rdtheq - use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, im, jm, me, jsta_m, jend_m, spval + use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, im, jm, me, jsta_m, jend_m, spval,& + ista_2l, iend_2u, ista, iend, ista_m, iend_m ! !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -1019,25 +1025,25 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ! integer,intent(in) :: ITYPE real,intent(in) :: DPBND - integer, dimension(IM,Jsta:jend),intent(in) :: L1D - real, dimension(IM,Jsta:jend),intent(in) :: P1D,T1D -! real, dimension(IM,jsta:jend),intent(inout) :: Q1D,CAPE,CINS,PPARC,ZEQL - real, dimension(IM,jsta:jend),intent(inout) :: Q1D,CAPE,CINS - real, dimension(IM,jsta:jend) :: PPARC,ZEQL - real, dimension(IM,jsta:jend),intent(inout) :: LFC,ESRHL,ESRHH - real, dimension(IM,jsta:jend),intent(inout) :: DCAPE,DGLD,ESP - integer, dimension(im,jsta:jend) ::L12,L17,L3KM + integer, dimension(ista:iend,Jsta:jend),intent(in) :: L1D + real, dimension(ista:iend,Jsta:jend),intent(in) :: P1D,T1D +! real, dimension(ista:iend,jsta:jend),intent(inout) :: Q1D,CAPE,CINS,PPARC,ZEQL + real, dimension(ista:iend,jsta:jend),intent(inout) :: Q1D,CAPE,CINS + real, dimension(ista:iend,jsta:jend) :: PPARC,ZEQL + real, dimension(ista:iend,jsta:jend),intent(inout) :: LFC,ESRHL,ESRHH + real, dimension(ista:iend,jsta:jend),intent(inout) :: DCAPE,DGLD,ESP + integer, dimension(ista:iend,jsta:jend) ::L12,L17,L3KM ! - integer, dimension(im,jsta:jend) :: IPTB, ITHTB, PARCEL, KLRES, KHRES, LCL, IDX + integer, dimension(ista:iend,jsta:jend) :: IPTB, ITHTB, PARCEL, KLRES, KHRES, LCL, IDX ! - real, dimension(im,jsta:jend) :: THESP, PSP, CAPE20, QQ, PP, THUND - integer, dimension(im,jsta:jend) :: PARCEL2 - real, dimension(im,jsta:jend) :: THESP2,PSP2 - real, dimension(im,jsta:jend) :: CAPE4,CINS4 + real, dimension(ista:iend,jsta:jend) :: THESP, PSP, CAPE20, QQ, PP, THUND + integer, dimension(ista:iend,jsta:jend) :: PARCEL2 + real, dimension(ista:iend,jsta:jend) :: THESP2,PSP2 + real, dimension(ista:iend,jsta:jend) :: CAPE4,CINS4 REAL, ALLOCATABLE :: TPAR(:,:,:) REAL, ALLOCATABLE :: TPAR2(:,:,:) - LOGICAL THUNDER(IM,jsta:jend), NEEDTHUN + LOGICAL THUNDER(ista:iend,jsta:jend), NEEDTHUN real PSFCK,PKL,TBTK,QBTK,APEBTK,TTHBTK,TTHK,APESPK,TPSPK, & BQS00K,SQS00K,BQS10K,SQS10K,BQK,SQK,TQK,PRESK,GDZKL,THETAP, & THETAA,P00K,P10K,P01K,P11K,TTHESK,ESATP,QSATP,TVP,TV @@ -1046,15 +1052,15 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & integer I,J,L,KNUML,KNUMH,LBEG,LEND,IQ, KB,ITTBK integer IE,IW,JN,JS,IVE(JM),IVW(JM),JVN,JVS integer ISTART,ISTOP,JSTART,JSTOP - real, dimension(IM,jsta:jend) :: HTSFC + real, dimension(ista:iend,jsta:jend) :: HTSFC ! integer I,J,L,KNUML,KNUMH,LBEG,LEND,IQ,IT,LMHK, KB,ITTBK ! !************************************************************** ! START CALCAPE HERE. ! - ALLOCATE(TPAR(IM,JSTA_2L:JEND_2U,LM)) - ALLOCATE(TPAR2(IM,JSTA_2L:JEND_2U,LM)) + ALLOCATE(TPAR(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM)) + ALLOCATE(TPAR2(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM)) ! ! COMPUTE CAPE/CINS ! @@ -1078,7 +1084,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ! !$omp parallel do DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND CAPE(I,J) = D00 CAPE20(I,J) = D00 CAPE4(I,J) = D00 @@ -1106,7 +1112,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !$omp parallel do DO L=1,LM DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND TPAR(I,J,L) = D00 TPAR2(I,J,L) = D00 ENDDO @@ -1122,8 +1128,8 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & IVE(J) = MOD(J,2) IVW(J) = IVE(J)-1 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE IF(gridtype == 'B')THEN @@ -1133,8 +1139,8 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & IVE(J)=1 IVW(J)=0 enddo - ISTART = 2 - ISTOP = IM-1 + ISTART = ISTA_M + ISTOP = IEND_M JSTART = JSTA_M JSTOP = JEND_M ELSE @@ -1144,13 +1150,13 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & IVE(J) = 0 IVW(J) = 0 enddo - ISTART = 1 - ISTOP = IM + ISTART = ISTA + ISTOP = IEND JSTART = JSTA JSTOP = JEND END IF !!$omp parallel do private(htsfc,ie,iw) - IF(gridtype /= 'A') CALL EXCH(FIS(1:IM,JSTA:JEND)) + IF(gridtype /= 'A') CALL EXCH(FIS(ISTA:IEND,JSTA:JEND)) DO J=JSTART,JSTOP DO I=ISTART,ISTOP IE = I+IVE(J) @@ -1175,7 +1181,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & IF (ITYPE == 2) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND Q1D(I,J) = MIN(MAX(H1M12,Q1D(I,J)),H99999) ENDDO ENDDO @@ -1192,7 +1198,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !$omp & p00k,p01k,p10k,p11k,pkl,psfck,qbtk,sqk,sqs00k, & !$omp & sqs10k,tbtk,tpspk,tqk,tthbtk,tthesk,tthk) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PSFCK = PMID(I,J,NINT(LMH(I,J))) PKL = PMID(I,J,KB) @@ -1288,7 +1294,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !----FIND THE PRESSURE OF THE PARCEL THAT WAS LIFTED !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND PPARC(I,J) = PMID(I,J,PARCEL(I,J)) ENDDO ENDDO @@ -1299,14 +1305,14 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & DO L=1,LM !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (PMID(I,J,L) < PSP(I,J)) LCL(I,J) = L+1 ENDDO ENDDO ENDDO !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF (LCL(I,J) > NINT(LMH(I,J))) LCL(I,J) = NINT(LMH(I,J)) IF (ITYPE > 2) THEN IF (T(I,J,LCL(I,J)) < 263.15) THEN @@ -1323,7 +1329,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & KNUML = 0 KNUMH = 0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND KLRES(I,J) = 0 KHRES(I,J) = 0 IF(L <= LCL(I,J)) THEN @@ -1341,23 +1347,23 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE 0) THEN - CALL TTBLEX(TPAR(1,JSTA_2L,L),TTBL,ITB,JTB,KLRES & - , PMID(1,JSTA_2L,L),PL,QQ,PP,RDP,THE0,STHE & + CALL TTBLEX(TPAR(ISTA_2L,JSTA_2L,L),TTBL,ITB,JTB,KLRES & + , PMID(ISTA_2L,JSTA_2L,L),PL,QQ,PP,RDP,THE0,STHE & , RDTHE,THESP,IPTB,ITHTB) ENDIF !*** !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE>PLQ !** IF(KNUMH > 0) THEN - CALL TTBLEX(TPAR(1,JSTA_2L,L),TTBLQ,ITBQ,JTBQ,KHRES & - , PMID(1,JSTA_2L,L),PLQ,QQ,PP,RDPQ & + CALL TTBLEX(TPAR(ISTA_2L,JSTA_2L,L),TTBLQ,ITBQ,JTBQ,KHRES & + , PMID(ISTA_2L,JSTA_2L,L),PLQ,QQ,PP,RDPQ & ,THE0Q,STHEQ,RDTHEQ,THESP,IPTB,ITHTB) ENDIF !------------SEARCH FOR EQ LEVEL---------------------------------------- !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(KHRES(I,J) > 0) THEN IF(TPAR(I,J,L) > T(I,J,L)) IEQL(I,J) = L ENDIF @@ -1366,7 +1372,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(KLRES(I,J) > 0) THEN IF(TPAR(I,J,L) > T(I,J,L)) IEQL(I,J) = L ENDIF @@ -1378,7 +1384,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & LBEG = 1000 LEND = 0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND LBEG = MIN(IEQL(I,J),LBEG) LEND = MAX(LCL(I,J),LEND) ENDDO @@ -1386,7 +1392,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T(I,J,IEQL(I,J)) > 255.65) THEN THUNDER(I,J) = .FALSE. ENDIF @@ -1402,7 +1408,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IDX(I,J) = 0 IF(L >= IEQL(I,J).AND.L <= LCL(I,J)) THEN IDX(I,J) = 1 @@ -1413,7 +1419,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !$omp parallel do private(i,j,gdzkl,presk,thetaa,thetap,esatp,qsatp,tvp,tv,& !$omp & presk2,esatp2,qsatp2,tvp2,thetap2,tv2,thetaa2) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(IDX(I,J) > 0) THEN PRESK = PMID(I,J,L) GDZKL = (ZINT(I,J,L)-ZINT(I,J,L+1)) * G @@ -1474,7 +1480,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ESRHH(I,J) > ESRHL(I,J)) ESRHH(I,J)=IEQL(I,J) ENDDO ENDDO @@ -1485,7 +1491,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ! !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND CAPE(I,J) = MAX(D00,CAPE(I,J)) CINS(I,J) = MIN(CINS(I,J),D00) ! equillibrium height @@ -1513,7 +1519,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & KNUML = 0 KNUMH = 0 DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND KLRES(I,J) = 0 KHRES(I,J) = 0 PSFCK = PMID(I,J,NINT(LMH(I,J))) @@ -1533,16 +1539,16 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE 0) THEN - CALL TTBLEX(TPAR2(1,JSTA_2L,L),TTBL,ITB,JTB,KLRES & - , PMID(1,JSTA_2L,L),PL,QQ,PP,RDP,THE0,STHE & + CALL TTBLEX(TPAR2(ISTA_2L,JSTA_2L,L),TTBL,ITB,JTB,KLRES & + , PMID(ISTA_2L,JSTA_2L,L),PL,QQ,PP,RDP,THE0,STHE & , RDTHE,THESP2,IPTB,ITHTB) ENDIF !*** !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE>PLQ !** IF(KNUMH > 0) THEN - CALL TTBLEX(TPAR2(1,JSTA_2L,L),TTBLQ,ITBQ,JTBQ,KHRES & - , PMID(1,JSTA_2L,L),PLQ,QQ,PP,RDPQ & + CALL TTBLEX(TPAR2(ISTA_2L,JSTA_2L,L),TTBLQ,ITBQ,JTBQ,KHRES & + , PMID(ISTA_2L,JSTA_2L,L),PLQ,QQ,PP,RDPQ & , THE0Q,STHEQ,RDTHEQ,THESP2,IPTB,ITHTB) ENDIF ENDDO ! end of do l=lm,1,-1 loop @@ -1553,7 +1559,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & DO L=LBEG,LEND !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IDX(I,J) = 0 IF(L >= PARCEL2(I,J).AND.L < NINT(LMH(I,J))) THEN IDX(I,J) = 1 @@ -1563,7 +1569,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ! !$omp parallel do private(i,j,gdzkl,presk,thetaa,thetap,esatp,qsatp,tvp,tv) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(IDX(I,J) > 0) THEN PRESK = PMID(I,J,L) GDZKL = (ZINT(I,J,L)-ZINT(I,J,L+1)) * G @@ -1585,7 +1591,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND DCAPE(I,J) = MIN(D00,DCAPE(I,J)) ENDDO ENDDO @@ -1601,7 +1607,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & DO L=LM,1,-1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(T(I,J,L) <= TFRZ-12. .AND. L12(I,J)==LM) L12(I,J)=L IF(T(I,J,L) <= TFRZ-17. .AND. L17(I,J)==LM) L17(I,J)=L ENDDO @@ -1609,7 +1615,7 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ENDDO !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(L12(I,J)/=LM .AND. L17(I,J)/=LM) THEN DGLD(I,J)=ZINT(I,J,L17(I,J))-ZINT(I,J,L12(I,J)) DGLD(I,J)=MAX(DGLD(I,J),0.) @@ -1625,14 +1631,14 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & DO L=LM,1,-1 !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(ZINT(I,J,L)-HTSFC(I,J) <= 3000.) L3KM(I,J)=L ENDDO ENDDO ENDDO !$omp parallel do private(i,j) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND ESP(I,J) = (CAPE(I,J) / 50.) * (T(I,J,LM) - T(I,J,L3KM(I,J)) - 7.0) IF((T(I,J,LM) - T(I,J,L3KM(I,J))) < 7.0) ESP(I,J) = 0. ! IF(CAPE(I,J) < 250.) ESP(I,J) = 0. @@ -1662,5 +1668,967 @@ elemental function TVIRTUAL(T,Q) end function TVIRTUAL ! !------------------------------------------------------------------------------------- +! +!> @file +!> @brief Subroutine that computes absolute vorticity. +!> +!> This routine computes the absolute vorticity. +!> +!> @param[in] UWND U wind (m/s) mass-points. +!> @param[in] VWND V wind (m/s) mass-points. +!> @param[out] ABSV absolute vorticity (1/s) mass-points. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1998-06-08 | T Black | Convesion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI Version +!> 2002-01-15 | Mike Baldwin | WRF Version C-grid +!> 2005-03-01 | H Chuang | Add NMM E grid +!> 2005-05-17 | H Chuang | Add Potential vorticity calculation +!> 2005-07-07 | B Zhou | Add RSM in computing DVDX, DUDY and UAVG +!> 2013-08-09 | S Moorthi | Optimize the vorticity loop including threading +!> 2016-08-05 | S Moorthi | add zonal filetering +!> 2019-10-17 | Y Mao | Skip calculation when U/V is SPVAL +!> 2020-11-06 | J Meng | Use UPP_MATH Module +!> +!> @author Russ Treadon W/NP2 @date 1992-12-22 + SUBROUTINE CALVOR(UWND,VWND,ABSV) + +! +! + use vrbls2d, only: f + use masks, only: gdlat, gdlon, dx, dy + use params_mod, only: d00, dtr, small, erad + use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & + jsta, jend, im, jm, jsta_m, jend_m, gdsdegr,& + ista, iend, ista_m, iend_m, ista_2l, iend_2u, me, num_procs + use gridspec_mod, only: gridtype, dyval + use upp_math, only: DVDXDUDY, DDVDX, DDUDY, UUAVG + + implicit none +! +! DECLARE VARIABLES. +! + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: UWND, VWND + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(inout) :: ABSV + REAL, dimension(IM,2) :: GLATPOLES, COSLPOLES, UPOLES, AVPOLES + REAL, dimension(IM,JSTA:JEND) :: COSLTEMP, AVTEMP +! + real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), cosl(:,:) + INTEGER, allocatable :: IHE(:),IHW(:), IE(:),IW(:) +! + integer, parameter :: npass2=2, npass3=3 + integer I,J,ip1,im1,ii,iir,iil,jj,JMT2,imb2, npass, nn, jtem + real R2DX,R2DY,DVDX,DUDY,UAVG,TPH1,TPHI, tx1(im+2), tx2(im+2) +! +!*************************************************************************** +! START CALVOR HERE. +! +! LOOP TO COMPUTE ABSOLUTE VORTICITY FROM WINDS. +! + IF(MODELNAME == 'RAPR') then +!$omp parallel do private(i,j) + DO J=JSTA_2L,JEND_2U + DO I=ISTA_2L,IEND_2U + ABSV(I,J) = D00 + ENDDO + ENDDO + else +!$omp parallel do private(i,j) + DO J=JSTA_2L,JEND_2U + DO I=ISTA_2L,IEND_2U + ABSV(I,J) = SPVAL + ENDDO + ENDDO + endif + +! print*,'dyval in CALVOR= ',DYVAL + + CALL EXCH(UWND) + CALL EXCH(VWND) +! + IF (MODELNAME == 'GFS' .or. global) THEN + CALL EXCH(GDLAT(ISTA_2L,JSTA_2L)) + CALL EXCH(GDLON(ISTA_2L,JSTA_2L)) + + allocate (wrk1(ista:iend,jsta:jend), wrk2(ista:iend,jsta:jend), & + & wrk3(ista:iend,jsta:jend), cosl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(iw(im),ie(im)) + + imb2 = im/2 +!$omp parallel do private(i) + do i=ista,iend + ie(i) = i+1 + iw(i) = i-1 + enddo +! iw(1) = im +! ie(im) = 1 + +! if(1>=jsta .and. 1<=jend)then +! if(cos(gdlat(1,1)*dtr)= SMALL) then + wrk1(i,j) = 1.0 / (ERAD*cosl(i,j)) + else + wrk1(i,j) = 0. + end if + if(i == im .or. i == 1) then + wrk2(i,j) = 1.0 / ((360.+GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam + else + wrk2(i,j) = 1.0 / ((GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam + end if + enddo + enddo +! CALL EXCH(cosl(1,JSTA_2L)) + CALL EXCH(cosl) + + call fullpole( cosl(ista_2l:iend_2u,jsta_2l:jend_2u),coslpoles) + call fullpole(gdlat(ista_2l:iend_2u,jsta_2l:jend_2u),glatpoles) + + if(me==0 ) print*,'CALVOR ',me,glatpoles(ista,1),glatpoles(ista,2) + if(me==num_procs-1) print*,'CALVOR ',me,glatpoles(ista,1),glatpoles(ista,2) + +!$omp parallel do private(i,j,ii) + DO J=JSTA,JEND + if (j == 1) then + if(gdlat(ista,j) > 0.) then ! count from north to south + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi + wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GLATPOLES(ii,1))*DTR) !1/dphi + enddo + else ! count from south to north + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GDLAT(II,J))*DTR) !1/dphi + wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GLATPOLES(ii,1))*DTR) !1/dphi +! + enddo + end if + elseif (j == JM) then + if(gdlat(ista,j) < 0.) then ! count from north to south + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) + wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GLATPOLES(ii,2))*DTR) + enddo + else ! count from south to north + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GDLAT(II,J))*DTR) + wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GLATPOLES(ii,2))*DTR) + enddo + end if + else + do i=ista,iend + wrk3(i,j) = 1.0 / ((GDLAT(I,J-1)-GDLAT(I,J+1))*DTR) !1/dphi + enddo + endif + enddo + + npass = 0 + + jtem = jm / 18 + 1 + + call fullpole(uwnd(ista_2l:iend_2u,jsta_2l:jend_2u),upoles) + +!$omp parallel do private(i,j,ip1,im1,ii,jj,tx1,tx2) + DO J=JSTA,JEND +! npass = npass2 +! if (j > jm-jtem+1 .or. j < jtem) npass = npass3 + IF(J == 1) then ! Near North or South pole + if(gdlat(ista,j) > 0.) then ! count from north to south + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & +! UWND(II,J)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle + UPOLES(II,1)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & +! & + (UWND(II,J)*COSL(II,J) & + & + (upoles(II,1)*coslpoles(II,1) & + & + UWND(I,J+1)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) & + & + F(I,J) + enddo + ELSE !pole point, compute at j=2 + jj = 2 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & + UWND(I,J)==SPVAL .or. UWND(I,jj+1)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & + & - (UWND(I,J)*COSL(I,J) & + - UWND(I,jj+1)*COSL(I,Jj+1))*wrk3(i,jj)) * wrk1(i,jj) & + & + F(I,Jj) + enddo + ENDIF + else + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & +! UWND(II,J)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle + UPOLES(II,1)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & +! & - (UWND(II,J)*COSL(II,J) & + & - (upoles(II,1)*coslpoles(II,1) & + & + UWND(I,J+1)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) & + & + F(I,J) + enddo + ELSE !pole point, compute at j=2 + jj = 2 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & + UWND(I,J)==SPVAL .or. UWND(I,jj+1)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & + & + (UWND(I,J)*COSL(I,J) & + - UWND(I,jj+1)*COSL(I,Jj+1))*wrk3(i,jj)) * wrk1(i,jj) & + & + F(I,Jj) + enddo + ENDIF + endif + ELSE IF(J == JM) THEN ! Near North or South Pole + if(gdlat(ista,j) < 0.) then ! count from north to south + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & +! UWND(I,J-1)==SPVAL .or. UWND(II,J)==SPVAL) cycle + UWND(I,J-1)==SPVAL .or. UPOLES(II,2)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & + & - (UWND(I,J-1)*COSL(I,J-1) & +! & + UWND(II,J)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) & + & + upoles(II,2)*coslpoles(II,2))*wrk3(i,j)) * wrk1(i,j) & + & + F(I,J) + enddo + ELSE !pole point,compute at jm-1 + jj = jm-1 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & + UWND(I,jj-1)==SPVAL .or. UWND(I,J)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & + & - (UWND(I,jj-1)*COSL(I,Jj-1) & + & - UWND(I,J)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) & + & + F(I,Jj) + enddo + ENDIF + else + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & +! UWND(I,J-1)==SPVAL .or. UWND(II,J)==SPVAL) cycle + UWND(I,J-1)==SPVAL .or. UPOLES(II,2)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & + & + (UWND(I,J-1)*COSL(I,J-1) & +! & + UWND(II,J)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) & + & + upoles(II,2)*coslpoles(II,2))*wrk3(i,j)) * wrk1(i,j) & + & + F(I,J) + enddo + ELSE !pole point,compute at jm-1 + jj = jm-1 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + if(VWND(ip1,JJ)==SPVAL .or. VWND(im1,JJ)==SPVAL .or. & + UWND(I,jj-1)==SPVAL .or. UWND(I,J)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,JJ)-VWND(im1,JJ))*wrk2(i,jj) & + & + (UWND(I,jj-1)*COSL(I,Jj-1) & + & - UWND(I,J)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) & + & + F(I,Jj) + enddo + ENDIF + endif + ELSE + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + if(VWND(ip1,J)==SPVAL .or. VWND(im1,J)==SPVAL .or. & + UWND(I,J-1)==SPVAL .or. UWND(I,J+1)==SPVAL) cycle + ABSV(I,J) = ((VWND(ip1,J)-VWND(im1,J))*wrk2(i,j) & + & - (UWND(I,J-1)*COSL(I,J-1) & + - UWND(I,J+1)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) & + + F(I,J) + ENDDO + END IF +! if(ABSV(I,J)>1.0)print*,'Debug CALVOR',i,j,VWND(ip1,J),VWND(im1,J), & +! wrk2(i,j),UWND(I,J-1),COSL(I,J-1),UWND(I,J+1),COSL(I,J+1),wrk3(i,j),cosl(i,j),F(I,J),ABSV(I,J) + if (npass > 0) then + do i=ista,iend + tx1(i) = absv(i,j) + enddo + do nn=1,npass + do i=ista,iend + tx2(i+1) = tx1(i) + enddo + tx2(1) = tx2(im+1) + tx2(im+2) = tx2(2) + do i=2,im+1 + tx1(i-1) = 0.25 * (tx2(i-1) + tx2(i+1)) + 0.5*tx2(i) + enddo + enddo + do i=ista,iend + absv(i,j) = tx1(i) + enddo + endif + END DO ! end of J loop + +! deallocate (wrk1, wrk2, wrk3, cosl) +! GFS use lon avg as one scaler value for pole point + + ! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1,jsta),SPVAL,ABSV(1,jsta)) + + call exch(absv(ista_2l:iend_2u,jsta_2l:jend_2u)) + call fullpole(absv(ista_2l:iend_2u,jsta_2l:jend_2u),avpoles) + + cosltemp=spval + if(jsta== 1) cosltemp(1:im, 1)=coslpoles(1:im,1) + if(jend==jm) cosltemp(1:im,jm)=coslpoles(1:im,2) + avtemp=spval + if(jsta== 1) avtemp(1:im, 1)=avpoles(1:im,1) + if(jend==jm) avtemp(1:im,jm)=avpoles(1:im,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,cosltemp(1,jsta),SPVAL,avtemp(1,jsta)) + + if(jsta== 1) absv(ista:iend, 1)=avtemp(ista:iend, 1) + if(jend==jm) absv(ista:iend,jm)=avtemp(ista:iend,jm) + + deallocate (wrk1, wrk2, wrk3, cosl, iw, ie) + + ELSE !(MODELNAME == 'GFS' .or. global) + + IF (GRIDTYPE == 'B')THEN + CALL EXCH(VWND) + CALL EXCH(UWND) + ENDIF + + CALL DVDXDUDY(UWND,VWND) + + IF(GRIDTYPE == 'A')THEN +!$omp parallel do private(i,j,jmt2,tphi,r2dx,r2dy,dvdx,dudy,uavg) + DO J=JSTA_M,JEND_M + JMT2 = JM/2+1 + TPHI = (J-JMT2)*(DYVAL/gdsdegr)*DTR + DO I=ISTA_M,IEND_M + IF(VWND(I+1,J) CALDIV computes divergence. +!> +!> For GFS, this routine copmutes the horizontal divergence +!> using 2nd-order centered scheme on a lat-lon grid +!> +!> @param[in] UWND U wind (m/s) mass-points. +!> @param[in] VWND V wind (m/s) mass-points. +!> @param[out] DIV divergence (1/s) mass-points. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2016-05-05 | Sajal Kar | Modified CALVORT to compute divergence from wind components +!> 2016-07-22 | S Moorthi | Modified polar divergence calculation +!> +!> @author Sajal Kar W/NP2 @date 2016-05-05 + SUBROUTINE CALDIV(UWND,VWND,DIV) + use masks, only: gdlat, gdlon + use params_mod, only: d00, dtr, small, erad + use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & + jsta, jend, im, jm, jsta_m, jend_m, lm, & + ista, iend, ista_m, iend_m, ista_2l, iend_2u + use gridspec_mod, only: gridtype + + implicit none +! +! DECLARE VARIABLES. +! + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lm), intent(in) :: UWND,VWND + REAL, dimension(ista:iend,jsta:jend,lm), intent(inout) :: DIV + REAL, dimension(IM,2) :: GLATPOLES, COSLPOLES, UPOLES, VPOLES, DIVPOLES + REAL, dimension(IM,JSTA:JEND) :: COSLTEMP, DIVTEMP +! + real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), cosl(:,:) + INTEGER, allocatable :: IHE(:),IHW(:), IE(:),IW(:) +! + real :: dnpole, dspole, tem + integer I,J,ip1,im1,ii,iir,iil,jj,imb2, l +! +!*************************************************************************** +! START CALDIV HERE. +! +! LOOP TO COMPUTE DIVERGENCE FROM WINDS. +! + CALL EXCH(GDLAT(ISTA_2L,JSTA_2L)) + CALL EXCH(GDLON(ISTA_2L,JSTA_2L)) + + allocate (wrk1(ista:iend,jsta:jend), wrk2(ista:iend,jsta:jend), & + & wrk3(ista:iend,jsta:jend), cosl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(iw(im),ie(im)) + + imb2 = im/2 +!$omp parallel do private(i) + do i=ista,iend + ie(i) = i+1 + iw(i) = i-1 + enddo +! iw(1) = im +! ie(im) = 1 + + +!$omp parallel do private(i,j,ip1,im1) + DO J=JSTA,JEND + do i=ista,iend + ip1 = ie(i) + im1 = iw(i) + cosl(i,j) = cos(gdlat(i,j)*dtr) + IF(cosl(i,j) >= SMALL) then + wrk1(i,j) = 1.0 / (ERAD*cosl(i,j)) + else + wrk1(i,j) = 0. + end if + if(i == im .or. i == 1) then + wrk2(i,j) = 1.0 / ((360.+GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam + else + wrk2(i,j) = 1.0 / ((GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam + end if + enddo + ENDDO + + CALL EXCH(cosl) + CALL FULLPOLE(cosl,coslpoles) + CALL FULLPOLE(gdlat(ista_2l:iend_2u,jsta_2l:jend_2u),glatpoles) + +!$omp parallel do private(i,j,ii) + DO J=JSTA,JEND + if (j == 1) then + if(gdlat(ista,j) > 0.) then ! count from north to south + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi + wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GLATPOLES(II,1))*DTR) !1/dphi + enddo + else ! count from south to north + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GDLAT(II,J))*DTR) !1/dphi + wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GLATPOLES(II,1))*DTR) !1/dphi + enddo + end if + elseif (j == JM) then + if(gdlat(ista,j) < 0.) then ! count from north to south + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) + wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GLATPOLES(II,2))*DTR) + enddo + else ! count from south to north + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + ! wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GDLAT(II,J))*DTR) + wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GLATPOLES(II,2))*DTR) + enddo + end if + else + do i=ista,iend + wrk3(i,j) = 1.0 / ((GDLAT(I,J-1)-GDLAT(I,J+1))*DTR) !1/dphi + enddo + endif + enddo + + do l=1,lm +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + DIV(I,J,l) = SPVAL + ENDDO + ENDDO + + CALL EXCH(VWND(ista_2l,jsta_2l,l)) + CALL EXCH(UWND(ista_2l,jsta_2l,l)) + + CALL FULLPOLE(VWND(ista_2l:iend_2u,jsta_2l:jend_2u,l),VPOLES) + CALL FULLPOLE(UWND(ista_2l:iend_2u,jsta_2l:jend_2u,l),UPOLES) + +!$omp parallel do private(i,j,ip1,im1,ii,jj) + DO J=JSTA,JEND + IF(J == 1) then ! Near North pole + if(gdlat(ista,j) > 0.) then ! count from north to south + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & + !& ! - (VWND(II,J,l)*COSL(II,J) & + & - (VPOLES(II,1)*COSLPOLEs(II,1) & + & + VWND(I,J+1,l)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) + enddo +!-- + ELSE !North pole point, compute at j=2 + jj = 2 + do i=ista,iend + ip1 = ie(i) + im1 = iw(i) + DIV(I,J,l) = ((UWND(ip1,jj,l)-UWND(im1,jj,l))*wrk2(i,jj) & + & + (VWND(I,J,l)*COSL(I,J) & + - VWND(I,jj+1,l)*COSL(I,jj+1))*wrk3(i,jj)) * wrk1(i,jj) + enddo +!-- + ENDIF + else + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & + !& ! + (VWND(II,J,l)*COSL(II,J) & + & + (VPOLES(II,1)*COSLPOLES(II,1) & + & + VWND(I,J+1,l)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) + enddo +!-- + ELSE !North pole point, compute at j=2 + jj = 2 + do i=ista,iend + ip1 = ie(i) + im1 = iw(i) + DIV(I,J,l) = ((UWND(ip1,jj,l)-UWND(im1,jj,l))*wrk2(i,jj) & + & - (VWND(I,J,l)*COSL(I,J) & + - VWND(I,jj+1,l)*COSL(I,jj+1))*wrk3(i,jj)) * wrk1(i,jj) + enddo + ENDIF + endif + ELSE IF(J == JM) THEN ! Near South pole + if(gdlat(ista,j) < 0.) then ! count from north to south + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & + & + (VWND(I,J-1,l)*COSL(I,J-1) & + !& ! + VWND(II,J,l)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) + & + VPOLES(II,2)*COSLPOLES(II,2))*wrk3(i,j)) * wrk1(i,j) + enddo +!-- + ELSE !South pole point,compute at jm-1 + jj = jm-1 + do i=ista,iend + ip1 = ie(i) + im1 = iw(i) + DIV(I,J,l) = ((UWND(ip1,JJ,l)-UWND(im1,JJ,l))*wrk2(i,jj) & + & + (VWND(I,jj-1,l)*COSL(I,Jj-1) & + & - VWND(I,J,l)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) + + enddo + ENDIF + else + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & + & - (VWND(I,J-1,l)*COSL(I,J-1) & + !& ! + VWND(II,J,l)*COSL(II,J))*wrk3(i,j)) * wrk1(i,j) + & + VPOLES(II,2)*COSLPOLES(II,2))*wrk3(i,j)) * wrk1(i,j) + enddo +!-- + ELSE !South pole point,compute at jm-1 + jj = jm-1 + do i=ista,iend + ip1 = ie(i) + im1 = iw(i) + DIV(I,J,l) = ((UWND(ip1,JJ,l)-UWND(im1,JJ,l))*wrk2(i,jj) & + & - (VWND(I,jj-1,l)*COSL(I,Jj-1) & + & - VWND(I,J,l)*COSL(I,J))*wrk3(i,jj)) * wrk1(i,jj) + + enddo + ENDIF + endif + ELSE + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + DIV(I,J,l) = ((UWND(ip1,J,l)-UWND(im1,J,l))*wrk2(i,j) & + & + (VWND(I,J-1,l)*COSL(I,J-1) & + - VWND(I,J+1,l)*COSL(I,J+1))*wrk3(i,j)) * wrk1(i,j) +!sk06132016 + if(DIV(I,J,l)>1.0)print*,'Debug in CALDIV',i,j,UWND(ip1,J,l),UWND(im1,J,l), & + & wrk2(i,j),VWND(I,J-1,l),COSL(I,J-1),VWND(I,J+1,l),COSL(I,J+1), & + & wrk3(i,j),wrk1(i,j),DIV(I,J,l) +!-- + ENDDO + ENDIF + ENDDO ! end of J loop + +! GFS use lon avg as one scaler value for pole point +! call poleavg(IM,JM,JSTA,JEND,SMALL,COSL(1,jsta),SPVAL,DIV(1,jsta,l)) + + call exch(div(ista_2l:iend_2u,jsta_2l:jend_2u,l)) + call fullpole(div(ista_2l:iend_2u,jsta_2l:jend_2u,l),divpoles) + + COSLTEMP=SPVAL + IF(JSTA== 1) COSLTEMP(1:IM, 1)=COSLPOLES(1:IM,1) + IF(JEND==JM) COSLTEMP(1:IM,JM)=COSLPOLES(1:IM,2) + DIVTEMP=SPVAL + IF(JSTA== 1) DIVTEMP(1:IM, 1)=DIVPOLES(1:IM,1) + IF(JEND==JM) DIVTEMP(1:IM,JM)=DIVPOLES(1:IM,2) + + call poleavg(IM,JM,JSTA,JEND,SMALL,COSLTEMP(1:IM,JSTA:JEND) & + ,SPVAL,DIVTEMP(1:IM,JSTA:JEND)) + + IF(JSTA== 1) DIV(ISTA:IEND, 1,L)=DIVTEMP(ISTA:IEND, 1) + IF(JEND==JM) DIV(ISTA:IEND,JM,L)=DIVTEMP(ISTA:IEND,JM) + +!sk06142016e + if(DIV(ista,jsta,l)>1.0)print*,'Debug in CALDIV',jsta,DIV(ista,jsta,l) +! print*,'Debug in CALDIV',' jsta= ',jsta,DIV(1,jsta,l) + + enddo ! end of l looop +!-- + deallocate (wrk1, wrk2, wrk3, cosl, iw, ie) + + + END SUBROUTINE CALDIV + + SUBROUTINE CALGRADPS(PS,PSX,PSY) +!> CALGRADPS computes gardients of a scalar field PS or LNPS. +!> +!> For GFS, this routine computes horizontal gradients of PS or LNPS. +!> Using 2nd-order centered scheme on a lat-lon grid. +!> +!> @param[in] PS Surface pressure (Pa) mass-points. +!> @param[out] PSX Zonal gradient of PS at mass-points. +!> @param[out] PSY Meridional gradient of PS at mass-points. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2016-05-05 | Sajal Kar | Reduced from CALVORT to zonal and meridional gradients of given surface pressure PS, or LNPS +!> +!> @author Sajal Kar W/NP2 @date 2016-05-05 + use masks, only: gdlat, gdlon + use params_mod, only: dtr, d00, small, erad + use ctlblk_mod, only: jsta_2l, jend_2u, spval, modelname, global, & + jsta, jend, im, jm, jsta_m, jend_m, & + ista, iend, ista_m, iend_m, ista_2l, iend_2u + + use gridspec_mod, only: gridtype + + implicit none +! +! DECLARE VARIABLES. +! + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(in) :: PS + REAL, dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(inout) :: PSX,PSY +! + real, allocatable :: wrk1(:,:), wrk2(:,:), wrk3(:,:), cosl(:,:) + INTEGER, allocatable :: IHE(:),IHW(:), IE(:),IW(:) +! + integer I,J,ip1,im1,ii,iir,iil,jj,imb2 +! +!*************************************************************************** +! START CALGRADPS HERE. +! +! LOOP TO COMPUTE ZONAL AND MERIDIONAL GRADIENTS OF PS OR LNPS +! +!sk06162016 DO J=JSTA_2L,JEND_2U +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + PSX(I,J) = SPVAL + PSY(I,J) = SPVAL +!sk PSX(I,J) = D00 +!sk PSY(I,J) = D00 + ENDDO + ENDDO + + CALL EXCH(PS) + +! IF (MODELNAME == 'GFS' .or. global) THEN + CALL EXCH(GDLAT(ISTA_2L,JSTA_2L)) + CALL EXCH(GDLON(ISTA_2L,JSTA_2L)) + + allocate (wrk1(ista:iend,jsta:jend), wrk2(ista:iend,jsta:jend), & + & wrk3(ista:iend,jsta:jend), cosl(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(iw(im),ie(im)) + + imb2 = im/2 +!$omp parallel do private(i) + do i=ista,iend + ie(i) = i+1 + iw(i) = i-1 + enddo +! iw(1) = im +! ie(im) = 1 + + +!$omp parallel do private(i,j,ip1,im1) + DO J=JSTA,JEND + do i=ista,iend + ip1 = ie(i) + im1 = iw(i) + cosl(i,j) = cos(gdlat(i,j)*dtr) + if(cosl(i,j) >= SMALL) then + wrk1(i,j) = 1.0 / (ERAD*cosl(i,j)) + else + wrk1(i,j) = 0. + end if + if(i == im .or. i == 1) then + wrk2(i,j) = 1.0 / ((360.+GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam + else + wrk2(i,j) = 1.0 / ((GDLON(ip1,J)-GDLON(im1,J))*DTR) !1/dlam + end if + enddo + ENDDO + + CALL EXCH(cosl) + +!$omp parallel do private(i,j,ii) + DO J=JSTA,JEND + if (j == 1) then + if(gdlat(ista,j) > 0.) then ! count from north to south + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J+1)-GDLAT(II,J))*DTR) !1/dphi + enddo + else ! count from south to north + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J+1)+GDLAT(II,J))*DTR) !1/dphi + enddo + end if + elseif (j == JM) then + if(gdlat(ista,j) < 0.) then ! count from north to south + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + wrk3(i,j) = 1.0 / ((180.+GDLAT(i,J-1)+GDLAT(II,J))*DTR) + enddo + else ! count from south to north + do i=ista,iend + ii = i + imb2 + if (ii > im) ii = ii - im + wrk3(i,j) = 1.0 / ((180.-GDLAT(i,J-1)-GDLAT(II,J))*DTR) + enddo + end if + else + do i=ista,iend + wrk3(i,j) = 1.0 / ((GDLAT(I,J-1)-GDLAT(I,J+1))*DTR) !1/dphi + enddo + endif + ENDDO + +!$omp parallel do private(i,j,ip1,im1,ii,jj) + DO J=JSTA,JEND + IF(J == 1) then ! Near North pole + if(gdlat(ista,j) > 0.) then ! count from north to south + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) + PSY(I,J) = (PS(II,J)-PS(I,J+1))*wrk3(i,j)/ERAD + enddo + ELSE !North pole point, compute at j=2 + jj = 2 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + PSX(I,J) = (PS(ip1,jj)-PS(im1,jj))*wrk2(i,jj)*wrk1(i,jj) + PSY(I,J) = (PS(I,J)-PS(I,jj+1))*wrk3(i,jj)/ERAD + enddo + ENDIF + else + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) + PSY(I,J) = - (PS(II,J)-PS(I,J+1))*wrk3(i,j)/ERAD + enddo + ELSE !North pole point, compute at j=2 + jj = 2 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + PSX(I,J) = (PS(ip1,jj)-PS(im1,jj))*wrk2(i,jj)*wrk1(i,jj) + PSY(I,J) = - (PS(I,J)-PS(I,jj+1))*wrk3(i,jj)/ERAD + enddo + ENDIF + endif + ELSE IF(J == JM) THEN ! Near South pole + if(gdlat(ista,j) < 0.) then ! count from north to south + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) + PSY(I,J) = (PS(I,J-1)-PS(II,J))*wrk3(i,j)/ERAD + enddo + ELSE !South pole point,compute at jm-1 + jj = jm-1 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + PSX(I,J) = (PS(ip1,JJ)-PS(im1,JJ))*wrk2(i,jj)*wrk1(i,jj) + PSY(I,J) = (PS(I,jj-1)-PS(I,J))*wrk3(i,jj)/ERAD + enddo + ENDIF + else + IF(cosl(ista,j) >= SMALL) THEN !not a pole point + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + ii = i + imb2 + if (ii > im) ii = ii - im + PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) + PSY(I,J) = - (PS(I,J-1)-PS(II,J))*wrk3(i,j)/ERAD + enddo + ELSE !South pole point,compute at jm-1 + jj = jm-1 + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + PSX(I,J) = (PS(ip1,JJ)-PS(im1,JJ))*wrk2(i,jj)*wrk1(i,jj) + PSY(I,J) = - (PS(I,jj-1)-PS(I,J))*wrk3(i,jj)/ERAD + enddo + ENDIF + endif + ELSE + DO I=ISTA,IEND + ip1 = ie(i) + im1 = iw(i) + PSX(I,J) = (PS(ip1,J)-PS(im1,J))*wrk2(i,j)*wrk1(i,j) + PSY(I,J) = (PS(I,J-1)-PS(I,J+1))*wrk3(i,j)/ERAD +!sk06142016A + if(PSX(I,J)>100.0)print*,'Debug in CALGRADPS: PSX',i,j,PS(ip1,J),PS(im1,J), & +! print*,'Debug in CALGRADPS',i,j,PS(ip1,J),PS(im1,J), & + & wrk2(i,j),wrk1(i,j),PSX(I,J) + if(PSY(I,J)>100.0)print*,'Debug in CALGRADPS: PSY',i,j,PS(i,J-1),PS(i,J+1), & +! print*,'Debug in CALGRADPS',i,j,PS(i,J-1),PS(i,J+1), & + & wrk3(i,j),ERAD,PSY(I,J) +!-- + ENDDO + END IF +! + ENDDO ! end of J loop + + deallocate (wrk1, wrk2, wrk3, cosl, iw, ie) + +! END IF + + END SUBROUTINE CALGRADPS +! +!------------------------------------------------------------------------------------- ! end module upp_physics + diff --git a/sorc/ncep_post.fd/WETBULB.f b/sorc/ncep_post.fd/WETBULB.f index f22ba0368..f63b9c73b 100644 --- a/sorc/ncep_post.fd/WETBULB.f +++ b/sorc/ncep_post.fd/WETBULB.f @@ -8,6 +8,7 @@ SUBROUTINE WETBULB(T,Q,PMID,HTM,KARR,TWET) ! MODIFIED FOR HYBRID: OCT 2001, H CHUANG ! 02-01-15 MIKE BALDWIN - WRF VERSION ! 21-07-26 Wen Meng - Restrict compuation from undefined grids +! 21-09-13 Jesse Meng- 2D DECOMPOSITION ! !----------------------------------------------------------------------- ! ROUTINE TO COMPUTE WET BULB TEMPERATURES USING THE LOOK UP TABLE @@ -23,7 +24,8 @@ SUBROUTINE WETBULB(T,Q,PMID,HTM,KARR,TWET) use lookup_mod, only: thl, rdth, jtb, qs0, sqs, rdq, itb, ptbl, plq, ttbl,& pl, rdp, the0, sthe, rdthe, ttblq, itbq, jtbq, rdpq, the0q, stheq,& rdtheq - use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, lm, spval + use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, lm, spval, & + ista, iend, ista_2l, iend_2u use cuparm_mod, only: h10e5, capa, epsq, d00, elocp !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -39,14 +41,14 @@ SUBROUTINE WETBULB(T,Q,PMID,HTM,KARR,TWET) ! SUBROUTINES CALLED: ! TTBLEX ! - real,dimension(IM,jsta_2l:jend_2u,LM),intent(in) :: T,Q, & + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,LM),intent(in) :: T,Q, & PMID,HTM - integer,dimension(IM,jsta:jend), intent(in) :: KARR - real,dimension(IM,jsta_2l:jend_2u,LM),intent(out) :: TWET + integer,dimension(ista:iend,jsta:jend), intent(in) :: KARR + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,LM),intent(out) :: TWET - real, dimension(im,jsta:jend) :: THESP, QQ, PP - integer, dimension(im,jsta:jend) :: KLRES,KHRES,IPTB,ITHTB + real, dimension(ista:iend,jsta:jend) :: THESP, QQ, PP + integer, dimension(ista:iend,jsta:jend) :: KLRES,KHRES,IPTB,ITHTB ! integer I,J,L,ITTB1,ITTBK,IQTBK,IT,KNUML,KNUMH,IQ real TBTK,QBTK,APEBTK,TTHBTK,TTHK,QQK,BQS00K,SQS00K,BQS10K, & @@ -62,7 +64,7 @@ SUBROUTINE WETBULB(T,Q,PMID,HTM,KARR,TWET) !----------------------------------------------------------------------- DO 300 L=1,LM DO 125 J=JSTA,JEND - DO 125 I=1,IM + DO 125 I=ISTA,IEND IF (HTM(I,J,L)<1.0) THEN THESP(I,J)=273.15 cycle @@ -132,7 +134,7 @@ SUBROUTINE WETBULB(T,Q,PMID,HTM,KARR,TWET) KNUMH=0 ! DO 280 J=JSTA,JEND - DO 280 I=1,IM + DO 280 I=ISTA,IEND KLRES(I,J)=0 KHRES(I,J)=0 ! @@ -153,16 +155,16 @@ SUBROUTINE WETBULB(T,Q,PMID,HTM,KARR,TWET) !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE0)THEN - CALL TTBLEX(TWET(1,jsta_2l,L),TTBL,ITB,JTB,KLRES & - ,PMID(1,jsta_2l,L),PL,QQ,PP,RDP,THE0,STHE & + CALL TTBLEX(TWET(ista_2l,jsta_2l,L),TTBL,ITB,JTB,KLRES & + ,PMID(ista_2l,jsta_2l,L),PL,QQ,PP,RDP,THE0,STHE & ,RDTHE,THESP,IPTB,ITHTB) ENDIF !*** !*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSURE>PL !** IF(KNUMH>0)THEN - CALL TTBLEX(TWET(1,jsta_2l,L),TTBLQ,ITBQ,JTBQ,KHRES & - ,PMID(1,jsta_2l,L),PLQ,QQ,PP,RDPQ,THE0Q,STHEQ & + CALL TTBLEX(TWET(ista_2l,jsta_2l,L),TTBLQ,ITBQ,JTBQ,KHRES & + ,PMID(ista_2l,jsta_2l,L),PLQ,QQ,PP,RDPQ,THE0Q,STHEQ & ,RDTHEQ,THESP,IPTB,ITHTB) ENDIF !----------------------------------------------------------------------- diff --git a/sorc/ncep_post.fd/WETFRZLVL.f b/sorc/ncep_post.fd/WETFRZLVL.f index f6a60daf2..63aa39c9e 100644 --- a/sorc/ncep_post.fd/WETFRZLVL.f +++ b/sorc/ncep_post.fd/WETFRZLVL.f @@ -25,6 +25,7 @@ !> 2004-12-06 | Geoff Manikin | Corrected computation of SFC temperature !> 2005-03-11 | H CHUANG | WRF Version !> 2021-07-26 | W Meng | Restrict computation from undefined grids +!> 2021-09-13 | J Meng | 2D DECOMPOSITION !> !> @author Geoff Manikin W/NP2 @date 2003-11-14 SUBROUTINE WETFRZLVL(TWET,ZWET) @@ -35,14 +36,15 @@ SUBROUTINE WETFRZLVL(TWET,ZWET) use vrbls2d, only: fis, thz0, ths use masks, only: lmh, sm use params_mod, only: gi, p1000, capa, tfrz, d0065, d50 - use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, lm, spval + use ctlblk_mod, only: jsta, jend, im, jsta_2l, jend_2u, lm, spval, & + ista, iend, ista_2l, iend_2u !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! ! DECLARE VARIABLES. ! - REAL,intent(in) :: TWET(IM,JSTA_2L:JEND_2U,LM) - REAL,intent(out) :: ZWET(IM,jsta:jend) + REAL,intent(in) :: TWET(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM) + REAL,intent(out) :: ZWET(ista:iend,jsta:jend) ! integer I,J,LLMH,L real HTSFC,THSFC,PSFC,TSFC,DELZ,DELT,ZL,ZU @@ -55,7 +57,7 @@ SUBROUTINE WETFRZLVL(TWET,ZWET) !!$omp& private(delt,delz,htsfc,l,llmh !!$omp& tsfc,zl,zu) DO J=JSTA,JEND - DO I=1,IM + DO I=ISTA,IEND IF(FIS(I,J)==spval)THEN ZWET(I,J)=spval CYCLE diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index 3d895c5c0..c670150f9 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -23,6 +23,7 @@ !> 2013-10-03 | J Wang |Add option for po to be pascal, and add gocart_on,d3d_on and popascal to namelist !> 2020-03-25 | J Meng | Remove grib1 !> 2021-06-20 | W Meng | Remove reading grib1 and gfsio lib +!> 2021-07-07 | J MENG |2D DECOMPOSITION !> 2021-10-22 | KaYee Wong | Created formal fortran namelist for itag !> 2021-11-03 | Tracy Hertneky | Removed SIGIO option !> 2022-01-14 | W Meng | Remove interfaces INITPOST_GS_NEMS, INITPOST_NEMS_MPIIO, INITPOST_NMM and INITPOST_GFS_NETCDF @@ -109,11 +110,12 @@ PROGRAM WRFPOST mpi_comm_inter, filename, ioform, grib, idat, filenameflux, filenamed3d, gdsdegr, & spldef, modelname, ihrst, lsmdef,vtimeunits, tprec, pthresh, datahandle, im, jm, lm, & lp1, lm1, im_jm, isf_surface_physics, nsoil, spl, lsmp1, global, imp_physics, & + ista, iend, ista_m, iend_m, ista_2l, iend_2u, & jsta, jend, jsta_m, jend_m, jsta_2l, jend_2u, novegtype, icount_calmict, npset, datapd,& lsm, fld_info, etafld2_tim, eta2p_tim, mdl2sigma_tim, cldrad_tim, miscln_tim, & mdl2agl_tim, mdl2std_tim, mdl2thandpv_tim, calrad_wcloud_tim, & fixed_tim, time_output, imin, surfce2_tim, komax, ivegsrc, d3d_on, gocart_on,rdaod, & - readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqfcmaq_on + readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqfcmaq_on,numx use grib2_module, only: gribit2,num_pset,nrecout,first_grbtbl,grib_info_finalize !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -139,7 +141,7 @@ PROGRAM WRFPOST integer :: kpo,kth,kpv real,dimension(komax) :: po,th,pv namelist/nampgb/kpo,po,kth,th,kpv,pv,fileNameAER,d3d_on,gocart_on,popascal & - ,hyb_sigp,rdaod,aqfcmaq_on,vtimeunits + ,hyb_sigp,rdaod,aqfcmaq_on,vtimeunits,numx integer :: itag_ierr namelist/model_inputs/fileName,IOFORM,grib,DateStr,MODELNAME,SUBMODELNAME & ,fileNameFlux,fileNameFlat @@ -186,6 +188,7 @@ PROGRAM WRFPOST !KaYee: Read itag in Fortran Namelist format !Set default SUBMODELNAME='NONE' + numx=1 !open namelist open(5,file='itag') read(5,nml=model_inputs,iostat=itag_ierr,err=888) @@ -194,6 +197,7 @@ PROGRAM WRFPOST print*,'Incorrect namelist variable(s) found in the itag file,stopping!' stop endif + if (me==0) print*,'fileName= ',fileName if (me==0) print*,'IOFORM= ',IOFORM !if (me==0) print*,'OUTFORM= ',grib @@ -201,6 +205,7 @@ PROGRAM WRFPOST if (me==0) print*,'DateStr= ',DateStr if (me==0) print*,'MODELNAME= ',MODELNAME if (me==0) print*,'SUBMODELNAME= ',SUBMODELNAME + if (me==0) print*,'numx= ',numx ! if(MODELNAME == 'NMM')then ! read(5,1114) VTIMEUNITS ! 1114 format(a4) @@ -265,12 +270,49 @@ PROGRAM WRFPOST fileNameFlat='postxconfig-NT.txt' read(5,nampgb,iostat=iret,end=119) 119 continue + if (me==0) print*,'in itag, mod(num_procs,numx)=', mod(num_procs,numx) + if(mod(num_procs,numx)/=0) then + if (me==0) then + print*,'total proces, num_procs=', num_procs + print*,'number of subdomain in x direction, numx=', numx + print*,'remainder of num_procs/numx = ', mod(num_procs,numx) + print*,'Warning!!! the remainder of num_procs/numx is not 0, reset numx=1 & + & in this run or you adjust numx in the itag file to restart' + endif +! stop 9999 + numx=1 + if(me == 0) print*,'Warning!!! Reset numx as 1, numx=',numx + endif + if(numx>num_procs/2) then + if (me==0) then + print*,'total proces, num_procs=', num_procs + print*,'number of subdomain in x direction, numx=', numx + print*,'Warning!!! numx cannot exceed num_procs/2, reset numx=1 in this run' + print*,'or you adjust numx in the itag file to restart' + endif + numx=1 + if(me == 0) print*,'Warning!!! Reset numx as 1, numx=',numx + endif if(me == 0) then print*,'komax,iret for nampgb= ',komax,iret print*,'komax,kpo,kth,th,kpv,pv,fileNameAER,popascal= ',komax,kpo & & ,kth,th(1:kth),kpv,pv(1:kpv),trim(fileNameAER),popascal + print*,'NUM_PROCS=',NUM_PROCS + print*,'numx= ',numx endif + IF(TRIM(IOFORM) /= 'netcdfpara' .AND. TRIM(IOFORM) /= 'netcdf' ) THEN + numx=1 + if(me == 0) print*,'2D decomposition only supports netcdfpara IO.' + if(me == 0) print*,'Reset numx= ',numx + ENDIF + + IF(MODELNAME /= 'FV3R' .AND. MODELNAME /= 'GFS') THEN + numx=1 + if(me == 0) print*,'2D decomposition only supports GFS and FV3R.' + if(me == 0) print*,'Reset numx= ',numx + ENDIF + ! set up pressure level from POSTGPVARS or DEFAULT if(kpo == 0) then ! use default pressure levels @@ -652,11 +694,15 @@ PROGRAM WRFPOST CALL SET_OUTFLDS(kth,th,kpv,pv) if (me==0) write(0,*)' in WRFPOST size datapd',size(datapd) if(allocated(datapd)) deallocate(datapd) - allocate(datapd(im,1:jend-jsta+1,nrecout+100)) +!Jesse x-decomposition +! allocate(datapd(im,1:jend-jsta+1,nrecout+100)) + allocate(datapd(1:iend-ista+1,1:jend-jsta+1,nrecout+100)) !$omp parallel do private(i,j,k) do k=1,nrecout+100 do j=1,jend+1-jsta - do i=1,im +!Jesse x-decomposition +! do i=1,im + do i =1,iend+1-ista datapd(i,j,k) = 0. enddo enddo diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index 35c064c53..01561b6ed 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -10,6 +10,7 @@ module grib2_module ! are defined in xml file ! March, 2015 Lin Gan Replace XML file with flat file implementation ! with parameter marshalling +! July, 2021 Jesse Meng 2D decomsition !------------------------------------------------------------------------ use xml_perl_data, only: param_t,paramset_t ! @@ -197,7 +198,7 @@ end subroutine grib_info_finalize subroutine gribit2(post_fname) ! !------- - use ctlblk_mod, only : im,jm,im_jm,num_procs,me,jsta,jend,ifhr,sdat,ihrst,imin, & + use ctlblk_mod, only : im,jm,im_jm,num_procs,me,ista,iend,jsta,jend,ifhr,sdat,ihrst,imin, & mpi_comm_comp,ntlfld,fld_info,datapd,icnt,idsp implicit none ! @@ -215,6 +216,7 @@ subroutine gribit2(post_fname) integer(4),allocatable :: isdsp(:),iscnt(:),ircnt(:),irdsp(:) integer status(MPI_STATUS_SIZE) integer(kind=MPI_OFFSET_KIND) idisp + integer,allocatable :: ista_pe(:),iend_pe(:) integer,allocatable :: jsta_pe(:),jend_pe(:) integer,allocatable :: grbmsglen(:) real,allocatable :: datafld(:,:) @@ -253,6 +255,12 @@ subroutine gribit2(post_fname) !--- reditribute data from partial domain data with all fields !--- to whole domain data but partial fields ! + allocate(ista_pe(num_procs),iend_pe(num_procs)) + call mpi_allgather(ista,1,MPI_INTEGER,ista_pe,1, & + MPI_INTEGER,MPI_COMM_COMP,ierr) + call mpi_allgather(iend,1,MPI_INTEGER,iend_pe,1, & + MPI_INTEGER,MPI_COMM_COMP,ierr) + allocate(jsta_pe(num_procs),jend_pe(num_procs)) call mpi_allgather(jsta,1,MPI_INTEGER,jsta_pe,1, & MPI_INTEGER,MPI_COMM_COMP,ierr) @@ -269,18 +277,19 @@ subroutine gribit2(post_fname) ! !--- sequatial write if the number of fields to write is small ! - if(minval(nfld_pe)<1.or.num_procs==1) then +!JESSE if(minval(nfld_pe)<1.or.num_procs==1) then + if(num_procs==1) then ! !-- collect data to pe 0 allocate(datafld(im_jm,ntlfld) ) - if(num_procs==1) then +! if(num_procs==1) then datafld=reshape(datapd,(/im_jm,ntlfld/)) - else - do i=1,ntlfld - call mpi_gatherv(datapd(:,:,i),icnt(me),MPI_REAL, & - datafld(:,i),icnt,idsp,MPI_REAL,0,MPI_COMM_COMP,ierr) - enddo - endif +! else +! do i=1,ntlfld +! call mpi_gatherv(datapd(:,:,i),icnt(me),MPI_REAL, & +! datafld(:,i),icnt,idsp,MPI_REAL,0,MPI_COMM_COMP,ierr) +! enddo +! endif ! !-- pe 0 create grib2 message and write to the file if(me==0) then @@ -339,13 +348,13 @@ subroutine gribit2(post_fname) allocate(ircnt(num_procs),irdsp(num_procs)) isdsp(1)=0 do n=1,num_procs - iscnt(n)=(jend_pe(me+1)-jsta_pe(me+1)+1)*im*nfld_pe(n) + iscnt(n)=(jend_pe(me+1)-jsta_pe(me+1)+1)*(iend_pe(me+1)-ista_pe(me+1)+1)*nfld_pe(n) if(n1.E-5.AND.ABS(DY(I,J))>1.E-5) THEN R2DX = 1./(2.*DX(I,J)) R2DY = 1./(2.*DY(I,J)) DDVDX(I,J) = (VWND(I+1,J)-VWND(I-1,J))*R2DX diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index 239cbde7a..cc609aabf 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -1692,6 +1692,7 @@ end function TVIRTUAL !> 2016-08-05 | S Moorthi | add zonal filetering !> 2019-10-17 | Y Mao | Skip calculation when U/V is SPVAL !> 2020-11-06 | J Meng | Use UPP_MATH Module +!> 2022-05-26 | H Chuang | Use GSL approach for FV3R !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALVOR(UWND,VWND,ABSV) @@ -2041,13 +2042,14 @@ SUBROUTINE CALVOR(UWND,VWND,ABSV) JMT2 = JM/2+1 TPHI = (J-JMT2)*(DYVAL/gdsdegr)*DTR DO I=ISTA_M,IEND_M - IF(VWND(I+1,J) Date: Thu, 16 Jun 2022 13:38:21 -0400 Subject: [PATCH 064/107] read in dx/dy instead of calculating them (#523) * read in dx/dy instead of caculating them * add the change log for dxdy code change * change 2011 to 2022 in the change log --- sorc/ncep_post.fd/grib2_module.f | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index 01561b6ed..bb24fc660 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -11,6 +11,7 @@ module grib2_module ! March, 2015 Lin Gan Replace XML file with flat file implementation ! with parameter marshalling ! July, 2021 Jesse Meng 2D decomsition +! June, 2022 Lin Zhu change the dx/dy to reading in from calculating for latlon grid !------------------------------------------------------------------------ use xml_perl_data, only: param_t,paramset_t ! @@ -1779,13 +1780,15 @@ subroutine getgds(ldfgrd,len3,ifield3len,igds,ifield3) ifield3(15) = latlast ifield3(16) = lonlast ! ifield3(17) = NINT(360./(IM)*1.0E6) - ifield3(17) = abs(lonlast-lonstart)/(IM-1) +! ifield3(17) = abs(lonlast-lonstart)/(IM-1) + ifield3(17) = DXVAL ! if(mod(jm,2) == 0 ) then ! ifield3(18) = NINT(180./JM*1.0E6) ! else ! ifield3(18) = NINT(180./(JM-1)*1.0E6) - ifield3(18) = abs(latlast-latstart)/(JM-1) +! ifield3(18) = abs(latlast-latstart)/(JM-1) ! endif + ifield3(18) = DYVAL if( latstart < latlast ) then ifield3(19) = 64 !for SN scan else From 4878981d4317602235dd659984f6e21adaced8d1 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Tue, 28 Jun 2022 12:15:35 -0400 Subject: [PATCH 065/107] Upgrade intel/impi version to 2022.1.2 on Hera and Orion (#527) * Update modulefiles on hera. * tweaking hera.lua * Update modulefile on orion --- modulefiles/hera | 35 ------------------------- modulefiles/hera.lua | 60 +++++++++++++++++++++++++++++++++++++++++++ modulefiles/orion | 35 ------------------------- modulefiles/orion.lua | 60 +++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 120 insertions(+), 70 deletions(-) delete mode 100755 modulefiles/hera create mode 100755 modulefiles/hera.lua delete mode 100755 modulefiles/orion create mode 100755 modulefiles/orion.lua diff --git a/modulefiles/hera b/modulefiles/hera deleted file mode 100755 index af118011d..000000000 --- a/modulefiles/hera +++ /dev/null @@ -1,35 +0,0 @@ -#%Module###################################################################### -# Wen Meng 01/2021, Set up config. with the hpc-stack NCEPLIBS. -############################################################################## - -proc ModulesHelp { } { -puts stderr "Loads modules required for building upp" -} -module-whatis "Loads UPP prerequisites on Hera" - -module load cmake/3.16.1 - -module use /scratch2/NCEPDEV/nwprod/hpc-stack/libs/hpc-stack/modulefiles/stack -module load hpc/1.1.0 -module load hpc-intel/18.0.5.274 -module load hpc-impi/2018.0.4 - -module load jasper/2.0.22 -module load zlib/1.2.11 -module load png/1.6.35 - -module load hdf5/1.10.6 -module load netcdf/4.7.4 - -module load bacio/2.4.1 -module load crtm/2.3.0 -module load g2/3.4.1 -module load g2tmpl/1.10.0 -module load ip/3.3.3 -module load nemsio/2.5.2 -module load sfcio/1.4.1 -module load sigio/2.3.2 -module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 -module load wrf_io/1.1.1 diff --git a/modulefiles/hera.lua b/modulefiles/hera.lua new file mode 100755 index 000000000..22c6e1839 --- /dev/null +++ b/modulefiles/hera.lua @@ -0,0 +1,60 @@ +help([[ +Load environment to build post on hera +]]) + +cmake_ver=os.getenv("cmake_ver") or "3.20.1" +load(pathJoin("cmake", cmake_ver)) + +prepend_path("MODULEPATH", "/scratch2/NCEPDEV/nwprod/hpc-stack/libs/hpc-stack/modulefiles/stack") + +hpc_ver=os.getenv("hpc_ver") or "1.1.0" +load(pathJoin("hpc", hpc_ver)) + +hpc_intel_ver=os.getenv("hpc_intel_ver") or "2022.1.2" +load(pathJoin("hpc-intel", hpc_intel_ver)) +hpc_impi_ver=os.getenv("hpc_impi_ver") or "2022.1.2" +load(pathJoin("hpc-impi", hpc_impi_ver)) + +hdf5_ver=os.getenv("hdf5_ver") or "1.10.6" +load(pathJoin("hdf5", hdf5_ver)) +netcdf_ver=os.getenv("netcdf_ver") or "4.7.4" +load(pathJoin("netcdf", netcdf_ver)) + +jasper_ver=os.getenv("jasper_ver") or "2.0.25" +load(pathJoin("jasper", jasper_ver)) +libpng_ver=os.getenv("libpng_ver") or "1.6.37" +load(pathJoin("libpng", libpng_ver)) +zlib_ver=os.getenv("zlib_ver") or "1.2.11" +load(pathJoin("zlib", zlib_ver)) + +g2_ver=os.getenv("g2_ver") or "3.4.5" +load(pathJoin("g2", g2_ver)) +g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" +load(pathJoin("g2tmpl", g2tmpl_ver)) +w3nco_ver=os.getenv("w3nco_ver") or "2.4.1" +load(pathJoin("w3nco", w3nco_ver)) +bacio_ver=os.getenv("bacio_ver") or "2.4.1" +load(pathJoin("bacio", bacio_ver)) +ip_ver=os.getenv("ip_ver") or "3.3.3" +load(pathJoin("ip", ip_ver)) +sp_ver=os.getenv("sp_ver") or "2.3.3" +load(pathJoin("sp", sp_ver)) +crtm_ver=os.getenv("crtm_ver") or "2.3.0" +load(pathJoin("crtm", crtm_ver)) +w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" +load(pathJoin("w3emc", w3emc_ver)) + +nemsio_ver=os.getenv("nemsio_ver") or "2.5.2" +load(pathJoin("nemsio", nemsio_ver)) +sigio_ver=os.getenv("sigio_ver") or "2.3.2" +load(pathJoin("sigio", sigio_ver)) +sfcio_ver=os.getenv("sfcio_ver") or "1.4.1" +load(pathJoin("sfcio", sfcio_ver)) +wrf_io_ver=os.getenv("wrf_io_ver") or "1.2.0" +load(pathJoin("wrf_io", wrf_io_ver)) + +setenv("CC","mpiicc") +setenv("CXX","mpiicpc") +setenv("FC","mpiifort") + +whatis("Description: post build environment") diff --git a/modulefiles/orion b/modulefiles/orion deleted file mode 100755 index 0fa59cec8..000000000 --- a/modulefiles/orion +++ /dev/null @@ -1,35 +0,0 @@ -#%Module###################################################################### -# Wen Meng 01/2021, Set up config. with the hpc-stack NCEPLIBS. -############################################################################## - -proc ModulesHelp { } { -puts stderr "Loads modules required for building upp" -} -module-whatis "Loads UPP prerequisites on Orion" - -module load cmake/3.17.3 - -module use /apps/contrib/NCEP/libs/hpc-stack/modulefiles/stack -module load hpc/1.1.0 -module load hpc-intel/2018.4 -module load hpc-impi/2018.4 - -module load jasper/2.0.22 -module load zlib/1.2.11 -module load png/1.6.35 - -module load hdf5/1.10.6 -module load netcdf/4.7.4 - -module load bacio/2.4.1 -module load crtm/2.3.0 -module load g2/3.4.1 -module load g2tmpl/1.10.0 -module load ip/3.3.3 -module load nemsio/2.5.2 -module load sfcio/1.4.1 -module load sigio/2.3.2 -module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 -module load wrf_io/1.1.1 diff --git a/modulefiles/orion.lua b/modulefiles/orion.lua new file mode 100755 index 000000000..bb355e4b2 --- /dev/null +++ b/modulefiles/orion.lua @@ -0,0 +1,60 @@ +help([[ +Load environment to build post on orion +]]) + +cmake_ver=os.getenv("cmake_ver") or "3.22.1" +load(pathJoin("cmake", cmake_ver)) + +prepend_path("MODULEPATH", "/apps/contrib/NCEP/libs/hpc-stack/modulefiles/stack") + +hpc_ver=os.getenv("hpc_ver") or "1.1.0" +load(pathJoin("hpc", hpc_ver)) + +hpc_intel_ver=os.getenv("hpc_intel_ver") or "2022.1.2" +load(pathJoin("hpc-intel", hpc_intel_ver)) +hpc_impi_ver=os.getenv("hpc_impi_ver") or "2022.1.2" +load(pathJoin("hpc-impi", hpc_impi_ver)) + +hdf5_ver=os.getenv("hdf5_ver") or "1.10.6" +load(pathJoin("hdf5", hdf5_ver)) +netcdf_ver=os.getenv("netcdf_ver") or "4.7.4" +load(pathJoin("netcdf", netcdf_ver)) + +jasper_ver=os.getenv("jasper_ver") or "2.0.25" +load(pathJoin("jasper", jasper_ver)) +libpng_ver=os.getenv("libpng_ver") or "1.6.37" +load(pathJoin("libpng", libpng_ver)) +zlib_ver=os.getenv("zlib_ver") or "1.2.11" +load(pathJoin("zlib", zlib_ver)) + +g2_ver=os.getenv("g2_ver") or "3.4.5" +load(pathJoin("g2", g2_ver)) +g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" +load(pathJoin("g2tmpl", g2tmpl_ver)) +w3nco_ver=os.getenv("w3nco_ver") or "2.4.1" +load(pathJoin("w3nco", w3nco_ver)) +bacio_ver=os.getenv("bacio_ver") or "2.4.1" +load(pathJoin("bacio", bacio_ver)) +ip_ver=os.getenv("ip_ver") or "3.3.3" +load(pathJoin("ip", ip_ver)) +sp_ver=os.getenv("sp_ver") or "2.3.3" +load(pathJoin("sp", sp_ver)) +crtm_ver=os.getenv("crtm_ver") or "2.3.0" +load(pathJoin("crtm", crtm_ver)) +w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" +load(pathJoin("w3emc", w3emc_ver)) + +nemsio_ver=os.getenv("nemsio_ver") or "2.5.4" +load(pathJoin("nemsio", nemsio_ver)) +sigio_ver=os.getenv("sigio_ver") or "2.3.2" +load(pathJoin("sigio", sigio_ver)) +sfcio_ver=os.getenv("sfcio_ver") or "1.4.1" +load(pathJoin("sfcio", sfcio_ver)) +wrf_io_ver=os.getenv("wrf_io_ver") or "1.2.0" +load(pathJoin("wrf_io", wrf_io_ver)) + +setenv("CC","mpiicc") +setenv("CXX","mpiicpc") +setenv("FC","mpiifort") + +whatis("Description: post build environment") From 87679294301b56b9d1fe645b3eafa2a666f93870 Mon Sep 17 00:00:00 2001 From: Rahul Mahajan Date: Wed, 29 Jun 2022 17:22:11 -0400 Subject: [PATCH 066/107] add spack-based ci. (#528) * add spack-based ci. replace dependency on w3nco with w3emc. Update w3emc to 2.9.2 on all machines (wcoss2 is already at 2.9.2) * remove deprecated hera and orion env. modulefiles * update nemsio version to 2.5.4. Flush cache --- .github/workflows/build_and_test.yml | 66 ---------------- .github/workflows/gcc.yml | 96 ++++++++++++++++++++++ .github/workflows/intel.yml | 114 +++++++++++++++++++++++++++ CMakeLists.txt | 8 +- ci/spack.yaml | 23 ++++++ cmake/PackageConfig.cmake.in | 2 +- modulefiles/cheyenne | 3 +- modulefiles/cheyenne_gnu | 3 +- modulefiles/hera.lua | 4 +- modulefiles/jet | 3 +- modulefiles/orion.lua | 2 - modulefiles/s4 | 3 +- modulefiles/wcoss2.lua | 2 - modulefiles/wcoss_cray | 3 +- modulefiles/wcoss_dell_p3 | 3 +- sorc/ncep_post.fd/CMakeLists.txt | 2 +- 16 files changed, 243 insertions(+), 94 deletions(-) delete mode 100644 .github/workflows/build_and_test.yml create mode 100644 .github/workflows/gcc.yml create mode 100644 .github/workflows/intel.yml create mode 100644 ci/spack.yaml mode change 100755 => 100644 modulefiles/hera.lua mode change 100755 => 100644 modulefiles/jet mode change 100755 => 100644 modulefiles/orion.lua mode change 100755 => 100644 modulefiles/s4 mode change 100755 => 100644 modulefiles/wcoss2.lua mode change 100755 => 100644 modulefiles/wcoss_cray mode change 100755 => 100644 modulefiles/wcoss_dell_p3 diff --git a/.github/workflows/build_and_test.yml b/.github/workflows/build_and_test.yml deleted file mode 100644 index aef646eb6..000000000 --- a/.github/workflows/build_and_test.yml +++ /dev/null @@ -1,66 +0,0 @@ -name: Build and Test -on: [push, pull_request] - -jobs: - build: - runs-on: ubuntu-20.04 - env: - FC: gfortran-9 - CC: gcc-9 - - steps: - - name: install-dependencies - run: | - sudo apt-get update - sudo apt-get install libmpich-dev - sudo apt-get install libnetcdf-dev libnetcdff-dev netcdf-bin pkg-config - sudo apt-get install libpng-dev - sudo apt-get install libjpeg-dev - sudo apt-get install doxygen - - - name: checkout-jasper - uses: actions/checkout@v2 - with: - repository: jasper-software/jasper - path: jasper - ref: version-2.0.22 - - - name: build-jasper - run: | - cd jasper - mkdir build-jasper && cd build-jasper - cmake .. -DCMAKE_INSTALL_PREFIX=~ - make -j2 - make install - - - name: checkout-nceplibs - uses: actions/checkout@v2 - with: - repository: NOAA-EMC/NCEPLIBS - path: nceplibs - ref: v1.2.0 - - - name: build-nceplibs - run: | - cd nceplibs - mkdir build && cd build - cmake .. -DCMAKE_INSTALL_PREFIX=~ -DFLAT=ON -DBUILD_POST=OFF - make -j2 - - - name: checkout-post - uses: actions/checkout@v2 - with: - path: post - - - name: build-post - run: | - cd post - mkdir build && cd build - cmake .. -DCMAKE_PREFIX_PATH=~ -DENABLE_DOCS=ON - make -j2 - - - - - - diff --git a/.github/workflows/gcc.yml b/.github/workflows/gcc.yml new file mode 100644 index 000000000..da033fa71 --- /dev/null +++ b/.github/workflows/gcc.yml @@ -0,0 +1,96 @@ +name: GCC Linux Build +on: [push, pull_request, workflow_dispatch] + + +# Use custom shell with -l so .bash_profile is sourced +# without having to do it in manually every step +defaults: + run: + shell: bash -leo pipefail {0} + +env: + cache_key: gcc2 # The number (#) following the cache_key "gcc" is to flush Action cache. + CC: gcc-10 + FC: gfortran-10 + CXX: g++-10 + +# A note on flushing Action cache and relevance to "cache_key" above. +# There is no way to flush the Action cache, and hence a number (#) is appended +# to the "cache_key" (gcc). +# If the dependencies change, increment this number and a new cache will be +# generated by the dependency build step "setup" +# There is a Github issue to force clear the cache. +# See discussion on: +# https://stackoverflow.com/questions/63521430/clear-cache-in-github-actions + +# The jobs are split into: +# 1. a dependency build step (setup), and +# 2. a UPP build step (build) +# The setup is run once and the environment is cached, +# so each build of UPP can reuse the cached dependencies to save time (and compute). + +jobs: + setup: + runs-on: ubuntu-latest + + steps: + # Cache spack, compiler and dependencies + - name: cache-env + id: cache-env + uses: actions/cache@v2 + with: + path: | + spack + ~/.spack + key: spack-${{ runner.os }}-${{ env.cache_key }} + + - name: checkout-upp # This is for getting spack.yaml + if: steps.cache-env.outputs.cache-hit != 'true' + uses: actions/checkout@v2 + with: + path: UPP + + # Install dependencies using Spack + - name: install-dependencies-with-spack + if: steps.cache-env.outputs.cache-hit != 'true' + run: | + git clone -c feature.manyFiles=true https://github.com/NOAA-EMC/spack.git + source spack/share/spack/setup-env.sh + spack env create upp-env UPP/ci/spack.yaml + spack env activate upp-env + spack compiler find + spack external find + spack add mpich@3.4.2 + spack concretize + spack install --dirty -v + + build: + needs: setup + runs-on: ubuntu-latest + + steps: + - name: checkout-upp + uses: actions/checkout@v2 + with: + path: UPP + + - name: cache-env + id: cache-env + uses: actions/cache@v2 + with: + path: | + spack + ~/.spack + key: spack-${{ runner.os }}-${{ env.cache_key }} + + - name: build-upp + run: | + source spack/share/spack/setup-env.sh + spack env activate upp-env + export CC=mpicc + export FC=mpif90 + cd UPP + mkdir -p build && cd build + cmake -DCMAKE_INSTALL_PREFIX=../install .. + make -j2 VERBOSE=1 + make install diff --git a/.github/workflows/intel.yml b/.github/workflows/intel.yml new file mode 100644 index 000000000..97ab17caa --- /dev/null +++ b/.github/workflows/intel.yml @@ -0,0 +1,114 @@ +name: Intel Linux Build +on: [push, pull_request, workflow_dispatch] + +# Use custom shell with -l so .bash_profile is sourced which loads intel/oneapi/setvars.sh +# without having to do it in manually every step +defaults: + run: + shell: bash -leo pipefail {0} + +# Set I_MPI_CC/F90 so Intel MPI wrapper uses icc/ifort instead of gcc/gfortran +env: + cache_key: intel2 # The number (#) following the cache_key "intel" is to flush Action cache. + CC: icc + FC: ifort + CXX: icpc + I_MPI_CC: icc + I_MPI_F90: ifort + +# A note on flushing Action cache and relevance to "cache_key" above. +# There is no way to flush the Action cache, and hence a number (#) is appended +# to the "cache_key" (intel). +# If the dependencies change, increment this number and a new cache will be +# generated by the dependency build step "setup" +# There is a Github issue to force clear the cache. +# See discussion on: +# https://stackoverflow.com/questions/63521430/clear-cache-in-github-actions + +# The jobs are split into: +# 1. a dependency build step (setup), and +# 2. a UPP build step (build) +# The setup is run once and the environment is cached, +# so each build of UPP can reuse the cached dependencies to save time (and compute). + +jobs: + setup: + runs-on: ubuntu-latest + + steps: + # Cache spack, compiler and dependencies + - name: cache-env + id: cache-env + uses: actions/cache@v2 + with: + path: | + spack + ~/.spack + /opt/intel + key: spack-${{ runner.os }}-${{ env.cache_key }} + + - name: install-intel-compilers + if: steps.cache-env.outputs.cache-hit != 'true' + run: | + wget https://apt.repos.intel.com/intel-gpg-keys/GPG-PUB-KEY-INTEL-SW-PRODUCTS.PUB + sudo apt-key add GPG-PUB-KEY-INTEL-SW-PRODUCTS.PUB + echo "deb https://apt.repos.intel.com/oneapi all main" | sudo tee /etc/apt/sources.list.d/oneAPI.list + sudo apt-get update + sudo apt-get install intel-oneapi-dev-utilities intel-oneapi-mpi-devel intel-oneapi-openmp intel-oneapi-compiler-fortran intel-oneapi-compiler-dpcpp-cpp-and-cpp-classic + echo "source /opt/intel/oneapi/setvars.sh" >> ~/.bash_profile + + - name: checkout-upp # This is for getting spack.yaml + if: steps.cache-env.outputs.cache-hit != 'true' + uses: actions/checkout@v2 + with: + path: UPP + + # Install dependencies using Spack + - name: install-dependencies-with-spack + if: steps.cache-env.outputs.cache-hit != 'true' + run: | + git clone -c feature.manyFiles=true https://github.com/NOAA-EMC/spack.git + source spack/share/spack/setup-env.sh + spack env create upp-env UPP/ci/spack.yaml + spack env activate upp-env + spack compiler find + spack external find + spack add intel-oneapi-mpi + spack concretize + spack install --dirty -v + + build: + needs: setup + runs-on: ubuntu-latest + + steps: + - name: checkout-upp + uses: actions/checkout@v2 + with: + path: UPP + + - name: install-intel + run: | + echo "source /opt/intel/oneapi/setvars.sh" >> ~/.bash_profile + + - name: cache-env + id: cache-env + uses: actions/cache@v2 + with: + path: | + spack + ~/.spack + /opt/intel + key: spack-${{ runner.os }}-${{ env.cache_key }} + + - name: build-upp + run: | + source spack/share/spack/setup-env.sh + spack env activate upp-env + export CC=mpiicc + export FC=mpiifort + cd UPP + mkdir -p build && cd build + cmake -DCMAKE_INSTALL_PREFIX=../install .. + make -j2 VERBOSE=1 + make install diff --git a/CMakeLists.txt b/CMakeLists.txt index ca0255482..483d8defd 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -57,18 +57,12 @@ if(BUILD_POSTEXEC) find_package(sfcio REQUIRED) find_package(sigio REQUIRED) find_package(sp REQUIRED) - find_package(w3nco REQUIRED) + find_package(w3emc REQUIRED) if(BUILD_WITH_WRFIO) find_package(wrf_io REQUIRED) endif() endif() -### Switch RUNTIME DESTINATION DIR between bin and exec -set(exec_dir bin) -if(EMC_EXEC_DIR) - set(exec_dir exec) -endif() - add_subdirectory(sorc) add_subdirectory(parm) diff --git a/ci/spack.yaml b/ci/spack.yaml new file mode 100644 index 000000000..1c7aa122e --- /dev/null +++ b/ci/spack.yaml @@ -0,0 +1,23 @@ +# Spack environment file to build UPP dependencies +spack: + packages: + all: + compiler: [intel, gcc] + specs: + - netcdf-c@4.7.4 + - netcdf-fortran@4.5.3 + - bacio@2.4.1 + - w3emc@2.9.2 + - g2@3.4.5 + - g2tmpl@1.10.0 + - sp@2.3.3 + - ip@3.3.3 + - sigio@2.3.2 + - sfcio@1.4.1 + - nemsio@2.5.4 + - wrf-io@1.2.0 + - crtm@2.3.0 + view: true + concretizer: + unify: true + diff --git a/cmake/PackageConfig.cmake.in b/cmake/PackageConfig.cmake.in index acaf390bf..88f9902d7 100644 --- a/cmake/PackageConfig.cmake.in +++ b/cmake/PackageConfig.cmake.in @@ -30,7 +30,7 @@ find_dependency(ip CONFIG) #find_dependency(sfcio CONFIG) #find_dependency(sigio CONFIG) #find_dependency(sp CONFIG) -#find_dependency(w3nco CONFIG) +#find_dependency(w3emc CONFIG) # Get the build type from library target get_target_property(@PROJECT_NAME@_BUILD_TYPES @PROJECT_NAME@::@PROJECT_NAME@ IMPORTED_CONFIGURATIONS) diff --git a/modulefiles/cheyenne b/modulefiles/cheyenne index 75ae507e5..f5a40a5bd 100644 --- a/modulefiles/cheyenne +++ b/modulefiles/cheyenne @@ -35,6 +35,5 @@ module load nemsio/2.5.2 module load sfcio/1.4.1 module load sigio/2.3.2 module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 +module load w3emc/2.9.2 module load wrf_io/1.2.0 diff --git a/modulefiles/cheyenne_gnu b/modulefiles/cheyenne_gnu index c7dbc8e18..d14c372e6 100644 --- a/modulefiles/cheyenne_gnu +++ b/modulefiles/cheyenne_gnu @@ -36,6 +36,5 @@ module load nemsio/2.5.2 module load sfcio/1.4.1 module load sigio/2.3.2 module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 +module load w3emc/2.9.2 module load wrf_io/1.2.0 diff --git a/modulefiles/hera.lua b/modulefiles/hera.lua old mode 100755 new mode 100644 index 22c6e1839..a0e6574a7 --- a/modulefiles/hera.lua +++ b/modulefiles/hera.lua @@ -31,8 +31,6 @@ g2_ver=os.getenv("g2_ver") or "3.4.5" load(pathJoin("g2", g2_ver)) g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" load(pathJoin("g2tmpl", g2tmpl_ver)) -w3nco_ver=os.getenv("w3nco_ver") or "2.4.1" -load(pathJoin("w3nco", w3nco_ver)) bacio_ver=os.getenv("bacio_ver") or "2.4.1" load(pathJoin("bacio", bacio_ver)) ip_ver=os.getenv("ip_ver") or "3.3.3" @@ -44,7 +42,7 @@ load(pathJoin("crtm", crtm_ver)) w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" load(pathJoin("w3emc", w3emc_ver)) -nemsio_ver=os.getenv("nemsio_ver") or "2.5.2" +nemsio_ver=os.getenv("nemsio_ver") or "2.5.4" load(pathJoin("nemsio", nemsio_ver)) sigio_ver=os.getenv("sigio_ver") or "2.3.2" load(pathJoin("sigio", sigio_ver)) diff --git a/modulefiles/jet b/modulefiles/jet old mode 100755 new mode 100644 index adafe445f..e789ff698 --- a/modulefiles/jet +++ b/modulefiles/jet @@ -30,6 +30,5 @@ module load nemsio/2.5.2 module load sfcio/1.4.1 module load sigio/2.3.2 module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 +module load w3emc/2.9.2 module load wrf_io/1.1.1 diff --git a/modulefiles/orion.lua b/modulefiles/orion.lua old mode 100755 new mode 100644 index bb355e4b2..2d39e1225 --- a/modulefiles/orion.lua +++ b/modulefiles/orion.lua @@ -31,8 +31,6 @@ g2_ver=os.getenv("g2_ver") or "3.4.5" load(pathJoin("g2", g2_ver)) g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" load(pathJoin("g2tmpl", g2tmpl_ver)) -w3nco_ver=os.getenv("w3nco_ver") or "2.4.1" -load(pathJoin("w3nco", w3nco_ver)) bacio_ver=os.getenv("bacio_ver") or "2.4.1" load(pathJoin("bacio", bacio_ver)) ip_ver=os.getenv("ip_ver") or "3.3.3" diff --git a/modulefiles/s4 b/modulefiles/s4 old mode 100755 new mode 100644 index 3147aa294..f41835c42 --- a/modulefiles/s4 +++ b/modulefiles/s4 @@ -29,6 +29,5 @@ module load nemsio/2.5.2 module load sfcio/1.4.1 module load sigio/2.3.2 module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 +module load w3emc/2.9.2 module load wrf_io/1.1.1 diff --git a/modulefiles/wcoss2.lua b/modulefiles/wcoss2.lua old mode 100755 new mode 100644 index 158837b40..e18bbce62 --- a/modulefiles/wcoss2.lua +++ b/modulefiles/wcoss2.lua @@ -25,7 +25,6 @@ load(pathJoin("zlib", zlib_ver)) g2_ver=os.getenv("g2_ver") or "3.4.5" g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" -w3nco_ver=os.getenv("w3nco_ver") or "2.4.1" bacio_ver=os.getenv("bacio_ver") or "2.4.1" ip_ver=os.getenv("ip_ver") or "3.3.3" sp_ver=os.getenv("sp_ver") or "2.3.3" @@ -33,7 +32,6 @@ crtm_ver=os.getenv("crtm_ver") or "2.3.0" w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" load(pathJoin("g2", g2_ver)) load(pathJoin("g2tmpl", g2tmpl_ver)) -load(pathJoin("w3nco", w3nco_ver)) load(pathJoin("bacio", bacio_ver)) load(pathJoin("ip", ip_ver)) load(pathJoin("sp", sp_ver)) diff --git a/modulefiles/wcoss_cray b/modulefiles/wcoss_cray old mode 100755 new mode 100644 index 72457d598..f8866064d --- a/modulefiles/wcoss_cray +++ b/modulefiles/wcoss_cray @@ -36,6 +36,5 @@ module load nemsio/2.5.2 module load sfcio/1.4.1 module load sigio/2.3.2 module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 +module load w3emc/2.9.2 module load wrf_io/1.1.1 diff --git a/modulefiles/wcoss_dell_p3 b/modulefiles/wcoss_dell_p3 old mode 100755 new mode 100644 index c6692ecfa..e8821e22d --- a/modulefiles/wcoss_dell_p3 +++ b/modulefiles/wcoss_dell_p3 @@ -30,6 +30,5 @@ module load nemsio/2.5.2 module load sfcio/1.4.1 module load sigio/2.3.2 module load sp/2.3.3 -module load w3nco/2.4.1 -module load w3emc/2.7.3 +module load w3emc/2.9.2 module load wrf_io/1.1.1 diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index bce8c8361..3bd218cf3 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -217,7 +217,7 @@ if(BUILD_POSTEXEC) target_link_libraries(${EXENAME} PRIVATE ${LIBNAME} nemsio::nemsio - w3nco::w3nco_4 + w3emc::w3emc_4 sp::sp_4 sfcio::sfcio sigio::sigio) From 27ad5c7b4fabe62c8c895d42324bee6002889f77 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Fri, 22 Jul 2022 22:27:19 -0400 Subject: [PATCH 067/107] Output lat/lon on four corner points of rotated lat-lon grids in text file (#531) * Output lat/lon on four corner points of rotated lat-lon grids in text file. * Further modification * add forecast hour in file name convention --- sorc/ncep_post.fd/INITPOST_NETCDF.f | 28 ++++++++++++++++++++++++---- 1 file changed, 24 insertions(+), 4 deletions(-) diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index ba78397e9..150c0d557 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -18,6 +18,7 @@ !> 2022-03-22 | Wen Meng | Read PWAT from model !> 2022-04-08 | Bo Cui | 2D decomposition for unified fv3 read interfaces !> 2022-06-05 | Hui-Ya Chuang | Modify dx/dy computation for RRFS domain over north pole +!> 2022-07-10 | Wen Meng | Output lat/lon on four coner points of rotated lat-lon grids in text file. !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) @@ -71,7 +72,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ista, iend, ista_2l, iend_2u,iend_m use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & - latstartv, latlastv, cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r, STANDLON + latstartv, latlastv,cenlatv,latstart_r,latlast_r,lonstart_r,lonlast_r, STANDLON, & + latse,lonse,latnw,lonnw use upp_physics, only: fpvsnew !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -104,7 +106,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) character(len=20) :: VarName, VcoordName integer :: Status, fldsize, fldst, recn, recn_vvel character startdate*19,SysDepInfo*80,cgar*1 - character startdate2(19)*4 + character startdate2(19)*4, flatlon*40 logical :: read_lonlat=.true. ! ! NOTE: SOME INTEGER VARIABLES ARE READ INTO DUMMY ( A REAL ). THIS IS OK @@ -468,8 +470,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) dyval=dum_const*gdsdegr end if - print*,'lonstart,latstart,cenlon,cenlat,dyval,dxval', & - lonstart,latstart,cenlon,cenlat,dyval,dxval +! print*,'lonstart,latstart,cenlon,cenlat,dyval,dxval', & +! lonstart,latstart,cenlon,cenlat,dyval,dxval ! Jili Dong add support for regular lat lon (2019/03/22) start else if(trim(varcharval)=='latlon')then @@ -763,9 +765,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(convert_rad_to_deg)then lonstart = nint(dummy(1,1)*gdsdegr)*180./pi lonlast = nint(dummy(im,jm)*gdsdegr)*180./pi + lonse = nint(dummy(im,1)*gdsdegr)*180./pi + lonnw = nint(dummy(1,jm)*gdsdegr)*180./pi else lonstart = nint(dummy(1,1)*gdsdegr) lonlast = nint(dummy(im,jm)*gdsdegr) + lonse = nint(dummy(im,1)*gdsdegr) + lonnw = nint(dummy(1,jm)*gdsdegr) end if ! Jili Dong add support for regular lat lon (2019/03/22) start @@ -820,9 +826,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(convert_rad_to_deg)then latstart = nint(dummy(1,1)*gdsdegr)*180./pi latlast = nint(dummy(im,jm)*gdsdegr)*180./pi + latse = nint(dummy(im,1)*gdsdegr)*180./pi + latnw = nint(dummy(1,jm)*gdsdegr)*180./pi else latstart = nint(dummy(1,1)*gdsdegr) latlast = nint(dummy(im,jm)*gdsdegr) + latse = nint(dummy(im,1)*gdsdegr) + latnw = nint(dummy(1,jm)*gdsdegr) end if end if print*,'laststart,latlast = ',latstart,latlast @@ -3549,6 +3559,16 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) WRITE(igdout)0 WRITE(igdout)0 WRITE(igdout)0 + ELSE IF(MAPTYPE == 207)THEN !Rotated lat-lon grid + write(flatlon,1001)ifhr + open(112,file=trim(flatlon),form='formatted', & + status='unknown') + write(112,1002)LATSTART/1000,LONSTART/1000,& + LATSE/1000,LONSE/1000,LATNW/1000,LONNW/1000,& + LATLAST/1000,LONLAST/1000 + 1001 format('latlons_corners.txt.f',I3.3) + 1002 format(4(I6,I7,X)) + close(112) END IF end if ! From 8ed92cb64d1ddcbed23cfdf352dc9758c7d1b1f3 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Sat, 23 Jul 2022 15:55:53 -0400 Subject: [PATCH 068/107] read model top outgoing longwave (#534) --- sorc/ncep_post.fd/INITPOST_NETCDF.f | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 150c0d557..80b42184d 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -19,6 +19,7 @@ !> 2022-04-08 | Bo Cui | 2D decomposition for unified fv3 read interfaces !> 2022-06-05 | Hui-Ya Chuang | Modify dx/dy computation for RRFS domain over north pole !> 2022-07-10 | Wen Meng | Output lat/lon on four coner points of rotated lat-lon grids in text file. +!> 2022-07-18 | Wen Meng | Read instant top of atmos ULWRF from model !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) @@ -2585,7 +2586,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) acfrst(i,j) = spval ! GFS does not output time averaged cloud fraction, set acfrst to spval, ncfrst to 1 ncfrst(i,j) = 1.0 bgroff(i,j) = spval ! GFS does not have UNDERGROUND RUNOFF - rlwtoa(i,j) = spval ! GFS does not have inst model top outgoing longwave enddo enddo ! trdlw(i,j) = 6.0 @@ -2625,6 +2625,12 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & spval,VarName,alwtoa) ! if(debugprint)print*,'sample l',VarName,' = ',1,alwtoa(isa,jsa) + +! instant outgoing model top longwave + VarName='ulwrf_toa' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,rlwtoa) +! if(debugprint)print*,'sample l',VarName,' = ',1,rlwtoa(isa,jsa) ! GFS incoming sfc longwave has been averaged, set ARDLW to 1 ardsw=1.0 From 49837896c925c422d0267b957b7a55e0e10801db Mon Sep 17 00:00:00 2001 From: Dusan Jovic <48258889+DusanJovic-NOAA@users.noreply.github.com> Date: Wed, 3 Aug 2022 20:36:38 -0400 Subject: [PATCH 069/107] Deallocate all allocated arrays (#538) --- sorc/ncep_post.fd/DEALLOCATE.f | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index ac9d5c648..ba5b57944 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -53,6 +53,7 @@ SUBROUTINE DE_ALLOCATE ! deallocate(rainw(im,jsta_2l:jend_2u,lm)) deallocate(q2) deallocate(omga) + deallocate(dpres) deallocate(T_ADJ) deallocate(ttnd) deallocate(rswtt) @@ -354,6 +355,7 @@ SUBROUTINE DE_ALLOCATE deallocate(avgetrans) deallocate(avgesnow) deallocate(avgpotevp) + deallocate(aod550) deallocate(ti) deallocate(du_aod550) deallocate(ss_aod550) @@ -500,7 +502,6 @@ SUBROUTINE DE_ALLOCATE deallocate(ssdp) deallocate(sswt) deallocate(sssv) - deallocate(dpres) deallocate(rhomid) ! vrbls2d deallocate(dusmass) From e22724738fd104327fee7c3c7ffc805ccabd619f Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Thu, 4 Aug 2022 13:20:15 -0400 Subject: [PATCH 070/107] Bug fix in tcdc on isobaric levels (#540) * Restrict undefined points involved in rounding cloud faction uppper and lower bounds * tweaking changes * add a change for underground points * Remove comment line --- sorc/ncep_post.fd/MDL2P.f | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f index ccb2b5c43..ce3269951 100644 --- a/sorc/ncep_post.fd/MDL2P.f +++ b/sorc/ncep_post.fd/MDL2P.f @@ -30,6 +30,7 @@ !> 2021-03-11 | B Cui | Change local arrays to dimension (im,jsta:jend) !> 2021-04-01 | J Meng | Computation on defined points only !> 2021-07-07 | J MENG | 2D DECOMPOSITION +!> 2022-08-03 | W Meng | Modify total cloud fraction(331) !> !> @author T Black W/NP2 @date 1999-09-23 SUBROUTINE MDL2P(iostatusD3D) @@ -718,7 +719,7 @@ SUBROUTINE MDL2P(iostatusD3D) FRIME(I,J) = 1. RAD(I,J) = 0. O3SL(I,J) = O3(I,J,LLMH) - CFRSL(I,J) = 0. + IF(CFR(I,J,1) SMALL) & - GRID1(I,J) = CFRSL(I,J)*H100 + IF(abs(CFRSL(I,J)-SPVAL) > SMALL) THEN + CFRSL(I,J) = MIN(MAX(0.0,CFRSL(I,J)),1.0) + GRID1(I,J) = CFRSL(I,J)*H100 + ENDIF ENDDO ENDDO if(grib == 'grib2')then From 16eadeda7d6ae2841affc442e81ebf060ea8fe18 Mon Sep 17 00:00:00 2001 From: "Samuel Trahan (NOAA contractor)" <39415369+SamuelTrahanNOAA@users.noreply.github.com> Date: Fri, 26 Aug 2022 08:27:52 -0400 Subject: [PATCH 071/107] Fix an out-of-bounds access in CALCAPE2 (#555) * Eliminate out-of-bounds access in CALCAPE2 with extreme atmospheric conditions * Author note update for CALCAPE2 --- sorc/ncep_post.fd/UPP_PHYSICS.f | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index cc609aabf..cc6bd7c5e 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -998,6 +998,7 @@ END SUBROUTINE CALCAPE !> 2015-??-?? | S Moorthi | Optimization and threading !> 2021-09-03 | J Meng | Modified to add 0-3km CAPE/CINS, LFC, effective helicity, downdraft CAPE, dendritic growth layer depth, ESP !> 2021-09-01 | E Colon | Equivalent level height index for RTMA +!> 2022-08-27 | S Trahan | Fixed bug in CALCAPE2 where extreme atmospheric conditions cause an out-of-bounds access !> !> @author Russ Treadon W/NP2 @date 1993-02-10 SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & @@ -1399,6 +1400,10 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & ENDDO ENDDO ! +!Ensure later calculations do not access LM+1 +! + LEND=MIN(LEND,LM-1) +! !reverse L order from bottom up for ESRH calculation ! ESRHH = LCL From fcd2fb082a7d8c2ccb93bce8c22fa7f2c28c6c95 Mon Sep 17 00:00:00 2001 From: "Samuel Trahan (NOAA contractor)" <39415369+SamuelTrahanNOAA@users.noreply.github.com> Date: Fri, 2 Sep 2022 09:45:55 -0400 Subject: [PATCH 072/107] Fix out-of-bounds accesses and modernize some line-number do loops (#559) * Fix out-of-bounds accesses and modernize some line-number do loops * add comments --- sorc/ncep_post.fd/MDL2SIGMA.f | 13 +++++++++---- sorc/ncep_post.fd/MISCLN.f | 12 ++++++------ sorc/ncep_post.fd/UPP_PHYSICS.f | 4 ++++ 3 files changed, 19 insertions(+), 10 deletions(-) diff --git a/sorc/ncep_post.fd/MDL2SIGMA.f b/sorc/ncep_post.fd/MDL2SIGMA.f index e2fd97a36..6dcb2654e 100644 --- a/sorc/ncep_post.fd/MDL2SIGMA.f +++ b/sorc/ncep_post.fd/MDL2SIGMA.f @@ -21,6 +21,7 @@ !! 20-03-25 J MENG - remove grib1 !! 21-03-11 B Cui - change local arrays to dimension (im,jsta:jend) !! 21-10-14 J MENG - 2D DECOMPOSITION +!! 2022-09-01 S Trahan - fixed bugs where extreme atmospheric conditions can cause out-of-bounds access !! !! USAGE: CALL MDL2P !! INPUT ARGUMENT LIST: @@ -277,8 +278,9 @@ SUBROUTINE MDL2SIGMA AHF =D00 FAC =D00 DONEFSL1=.TRUE. - ELSEIF(T(I,J,NL1XF(I,J))0) THEN @@ -2118,7 +2118,7 @@ SUBROUTINE MISCLN ENDIF ! ! END OF ETA BOUNDARY LAYER LOOP. - 20 CONTINUE + END DO boundary_layer_loop deallocate(OMGBND,PWTBND,QCNVBND) ! ! BEST LIFTED INDEX FROM BOUNDARY LAYER FIELDS. @@ -2208,7 +2208,7 @@ SUBROUTINE MISCLN ENDDO ENDDO ! - DO 80 LBND = 1,NBND + loop_80: DO LBND = 1,NBND CALL CALTHTE(PBND(ista,jsta,LBND),TBND(ista,jsta,LBND), & QBND(ista,jsta,LBND),EGRID1) !$omp parallel do private(i,j) @@ -2223,7 +2223,7 @@ SUBROUTINE MISCLN ENDIF ENDDO ENDDO - 80 CONTINUE + ENDDO loop_80 ! DPBND = 0. CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,LB2,EGRID1, & diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index cc6bd7c5e..cb059ba1f 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -999,6 +999,7 @@ END SUBROUTINE CALCAPE !> 2021-09-03 | J Meng | Modified to add 0-3km CAPE/CINS, LFC, effective helicity, downdraft CAPE, dendritic growth layer depth, ESP !> 2021-09-01 | E Colon | Equivalent level height index for RTMA !> 2022-08-27 | S Trahan | Fixed bug in CALCAPE2 where extreme atmospheric conditions cause an out-of-bounds access +!> 2022-09-01 | S Trahan | Fixed another bug in CALCAPE2 where extreme atmospheric conditions cause an out-of-bounds access !> !> @author Russ Treadon W/NP2 @date 1993-02-10 SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & @@ -1320,6 +1321,9 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, & THUNDER(I,J) = .FALSE. ENDIF ENDIF + + ! Limit LCL to prevent out-of-bounds accesses later + LCL(I,J) = max(min(LCL(I,J),LM-1),1) ENDDO ENDDO !----------------------------------------------------------------------- From a644aaa0805672785be36de5e4a3727b9c582219 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Thu, 15 Sep 2022 14:48:30 -0400 Subject: [PATCH 073/107] Update g2tmpl to 1.10.2 and crtm to 2.4.0 (#554) * Update g2tmpl to 1.10.2 on Hera and remove modulefile for WCOSS1. * update g2tmpl to 1.10.2 on Orion. * changes for crtm/2.4.0 on hera * Update hpc-stack module path and update crtm to 2.4.0 on Orion * update crtm to 2.4.0 on WCOSS2 * Add abi_g17 and abi_g16 fix files in GFS run time * Add changes for supporting WCOSS Acron. --- modulefiles/hera.lua | 4 +- modulefiles/orion.lua | 8 +-- modulefiles/wcoss2.lua | 2 +- modulefiles/wcoss2_a.lua | 69 +++++++++++++++++++++++ modulefiles/wcoss_cray | 40 ------------- modulefiles/wcoss_dell_p3 | 34 ----------- sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f | 5 +- tests/compile_upp.sh | 2 +- ush/link_crtm_fix.sh | 3 +- 9 files changed, 83 insertions(+), 84 deletions(-) create mode 100644 modulefiles/wcoss2_a.lua delete mode 100644 modulefiles/wcoss_cray delete mode 100644 modulefiles/wcoss_dell_p3 diff --git a/modulefiles/hera.lua b/modulefiles/hera.lua index a0e6574a7..e3ede5b9a 100644 --- a/modulefiles/hera.lua +++ b/modulefiles/hera.lua @@ -29,7 +29,7 @@ load(pathJoin("zlib", zlib_ver)) g2_ver=os.getenv("g2_ver") or "3.4.5" load(pathJoin("g2", g2_ver)) -g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" +g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.2" load(pathJoin("g2tmpl", g2tmpl_ver)) bacio_ver=os.getenv("bacio_ver") or "2.4.1" load(pathJoin("bacio", bacio_ver)) @@ -37,7 +37,7 @@ ip_ver=os.getenv("ip_ver") or "3.3.3" load(pathJoin("ip", ip_ver)) sp_ver=os.getenv("sp_ver") or "2.3.3" load(pathJoin("sp", sp_ver)) -crtm_ver=os.getenv("crtm_ver") or "2.3.0" +crtm_ver=os.getenv("crtm_ver") or "2.4.0" load(pathJoin("crtm", crtm_ver)) w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" load(pathJoin("w3emc", w3emc_ver)) diff --git a/modulefiles/orion.lua b/modulefiles/orion.lua index 2d39e1225..4ba20ad1d 100644 --- a/modulefiles/orion.lua +++ b/modulefiles/orion.lua @@ -5,9 +5,9 @@ Load environment to build post on orion cmake_ver=os.getenv("cmake_ver") or "3.22.1" load(pathJoin("cmake", cmake_ver)) -prepend_path("MODULEPATH", "/apps/contrib/NCEP/libs/hpc-stack/modulefiles/stack") +prepend_path("MODULEPATH", "/apps/contrib/NCEP/hpc-stack/libs/hpc-stack/modulefiles/stack") -hpc_ver=os.getenv("hpc_ver") or "1.1.0" +hpc_ver=os.getenv("hpc_ver") or "1.2.0" load(pathJoin("hpc", hpc_ver)) hpc_intel_ver=os.getenv("hpc_intel_ver") or "2022.1.2" @@ -29,7 +29,7 @@ load(pathJoin("zlib", zlib_ver)) g2_ver=os.getenv("g2_ver") or "3.4.5" load(pathJoin("g2", g2_ver)) -g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" +g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.2" load(pathJoin("g2tmpl", g2tmpl_ver)) bacio_ver=os.getenv("bacio_ver") or "2.4.1" load(pathJoin("bacio", bacio_ver)) @@ -37,7 +37,7 @@ ip_ver=os.getenv("ip_ver") or "3.3.3" load(pathJoin("ip", ip_ver)) sp_ver=os.getenv("sp_ver") or "2.3.3" load(pathJoin("sp", sp_ver)) -crtm_ver=os.getenv("crtm_ver") or "2.3.0" +crtm_ver=os.getenv("crtm_ver") or "2.4.0" load(pathJoin("crtm", crtm_ver)) w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" load(pathJoin("w3emc", w3emc_ver)) diff --git a/modulefiles/wcoss2.lua b/modulefiles/wcoss2.lua index e18bbce62..dd01323b2 100644 --- a/modulefiles/wcoss2.lua +++ b/modulefiles/wcoss2.lua @@ -28,7 +28,7 @@ g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" bacio_ver=os.getenv("bacio_ver") or "2.4.1" ip_ver=os.getenv("ip_ver") or "3.3.3" sp_ver=os.getenv("sp_ver") or "2.3.3" -crtm_ver=os.getenv("crtm_ver") or "2.3.0" +crtm_ver=os.getenv("crtm_ver") or "2.4.0" w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" load(pathJoin("g2", g2_ver)) load(pathJoin("g2tmpl", g2tmpl_ver)) diff --git a/modulefiles/wcoss2_a.lua b/modulefiles/wcoss2_a.lua new file mode 100644 index 000000000..ead1b9562 --- /dev/null +++ b/modulefiles/wcoss2_a.lua @@ -0,0 +1,69 @@ +help([[ +Load environment to build post on WCOSS2 Acorn +]]) + +PrgEnv_intel_ver=os.getenv("PrgEnv_intel_ver") or "8.1.0" +load(pathJoin("PrgEnv-intel", PrgEnv_intel_ver)) + +intel_ver=os.getenv("intel_ver") or "19.1.3.304" +load(pathJoin("intel", intel_ver)) + +craype_ver=os.getenv("craype_ver") or "2.7.13" +load(pathJoin("craype", craype_ver)) + +cray_mpich_ver=os.getenv("cray_mpich_ver") or "8.1.7" +load(pathJoin("cray-mpich", cray_mpich_ver)) + +cmake_ver=os.getenv("cmake_ver") or "3.20.2" +load(pathJoin("cmake", cmake_ver)) + +prepend_path("MODULEPATH", "/lfs/h1/emc/nceplibs/noscrub/hpc-stack/libs/hpc-stack/modulefiles/stack") + +hpc_ver=os.getenv("hpc_ver") or "1.2.0" +hpc_intel_ver=os.getenv("hpc_intel_ver") or "19.1.3.304" +hpc_cray_mpich_ver=os.getenv("hpc_cray_mpich_ver") or "8.1.7" +load(pathJoin("hpc", hpc_ver)) +load(pathJoin("hpc-intel", hpc_intel_ver)) +load(pathJoin("hpc-cray-mpich", hpc_cray_mpich_ver)) + +hdf5_ver=os.getenv("hdf5_ver") or "1.10.6" +netcdf_ver=os.getenv("netcdf_ver") or "4.7.4" +load(pathJoin("hdf5", hdf5_ver)) +load(pathJoin("netcdf", netcdf_ver)) + +jasper_ver=os.getenv("jasper_ver") or "2.0.25" +libpng_ver=os.getenv("libpng_ver") or "1.6.37" +zlib_ver=os.getenv("zlib_ver") or "1.2.11" +load(pathJoin("jasper", jasper_ver)) +load(pathJoin("libpng", libpng_ver)) +load(pathJoin("zlib", zlib_ver)) + +g2_ver=os.getenv("g2_ver") or "3.4.5" +g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.2" +bacio_ver=os.getenv("bacio_ver") or "2.4.1" +ip_ver=os.getenv("ip_ver") or "3.3.3" +sp_ver=os.getenv("sp_ver") or "2.3.3" +crtm_ver=os.getenv("crtm_ver") or "2.4.0" +w3emc_ver=os.getenv("w3emc_ver") or "2.9.2" +load(pathJoin("g2", g2_ver)) +load(pathJoin("g2tmpl", g2tmpl_ver)) +load(pathJoin("bacio", bacio_ver)) +load(pathJoin("ip", ip_ver)) +load(pathJoin("sp", sp_ver)) +load(pathJoin("crtm", crtm_ver)) +load(pathJoin("w3emc", w3emc_ver)) + +nemsio_ver=os.getenv("nemsio_ver") or "2.5.2" +sigio_ver=os.getenv("sigio_ver") or "2.3.2" +sfcio_ver=os.getenv("sfcio_ver") or "1.4.1" +wrf_io_ver=os.getenv("wrf_io_ver") or "1.2.0" +load(pathJoin("nemsio", nemsio_ver)) +load(pathJoin("sigio", sigio_ver)) +load(pathJoin("sfcio", sfcio_ver)) +load(pathJoin("wrf_io", wrf_io_ver)) + +setenv("CC","cc") +setenv("CXX","CC") +setenv("FC","ftn") + +whatis("Description: post build environment") diff --git a/modulefiles/wcoss_cray b/modulefiles/wcoss_cray deleted file mode 100644 index f8866064d..000000000 --- a/modulefiles/wcoss_cray +++ /dev/null @@ -1,40 +0,0 @@ -#%Module###################################################################### -# Wen Meng 01/2021, Set up config. with the hpc-stack NCEPLIBS. -############################################################################## - -proc ModulesHelp { } { -puts stderr "Loads modules required for building upp" -} -module-whatis "Loads UPP prerequisites on WCOSS Luna and Surge" - -module load cmake/3.16.2 - -module use /usrx/local/nceplibs/NCEPLIBS/cmake/install/NCEPLIBS-v1.3.0/modules -module load PrgEnv-intel -module rm intel -module load intel/18.1.163 -module rm NetCDF-intel-sandybridge/4.2 -module load xt-lsfhpc/9.1.3 -module load craype-haswell - -module use /usrx/local/dev/modulefiles -module load HDF5-parallel-intel-sandybridge/1.10.6 -module load NetCDF-intel-sandybridge/4.7.4 - -module load jasper-gnu-sandybridge/1.900.1 -module load zlib-intel-sandybridge/1.2.7 -module load png-intel-sandybridge/1.2.49 -setenv PNG_ROOT /usrx/local/prod//png/1.2.49/intel/sandybridge - -module use /usrx/local/nceplibs/NCEPLIBS/cmake/install/NCEPLIBS-v1.3.0/modules -module load bacio/2.4.1 -module load crtm/2.3.0 -module load g2/3.4.1 -module load g2tmpl/1.10.0 -module load ip/3.3.3 -module load nemsio/2.5.2 -module load sfcio/1.4.1 -module load sigio/2.3.2 -module load sp/2.3.3 -module load w3emc/2.9.2 -module load wrf_io/1.1.1 diff --git a/modulefiles/wcoss_dell_p3 b/modulefiles/wcoss_dell_p3 deleted file mode 100644 index e8821e22d..000000000 --- a/modulefiles/wcoss_dell_p3 +++ /dev/null @@ -1,34 +0,0 @@ -#%Module###################################################################### -# Wen Meng 01/2021, Set up config. with the hpc-stack NCEPLIBS. -############################################################################## - -proc ModulesHelp { } { -puts stderr "Loads modules required for building upp" -} -module-whatis "Loads UPP prerequisites on WCOSS Venus and Mars" - -module load cmake/3.16.2 - -module use /usrx/local/nceplibs/dev/hpc-stack/libs/hpc-stack/modulefiles/stack -module load hpc/1.1.0 -module load hpc-ips/18.0.1.163 -module load hpc-impi/18.0.1 - -module load jasper/2.0.22 -module load zlib/1.2.11 -module load png/1.6.35 - -module load hdf5/1.10.6 -module load netcdf/4.7.4 - -module load bacio/2.4.1 -module load crtm/2.3.0 -module load g2/3.4.1 -module load g2tmpl/1.10.0 -module load ip/3.3.3 -module load nemsio/2.5.2 -module load sfcio/1.4.1 -module load sigio/2.3.2 -module load sp/2.3.3 -module load w3emc/2.9.2 -module load wrf_io/1.1.1 diff --git a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f index 4a7c19e3d..eb494c41d 100644 --- a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f +++ b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f @@ -16,12 +16,13 @@ !> 2021-03-11 | Bo Cui | improve local arrays memory !> 2021-08-31 | Lin Zhu | added ssmis-f17 channels 15-18 grib2 output !> 2021-09-02 | Bo Cui | Decompose UPP in X direction +!> 2022-09-12 | Wen Meng | Added cloud fraction changes for crtm/2.4.0 !> !> @author Chuang @date 2007-01-17 SUBROUTINE CALRAD_WCLOUD use vrbls3d, only: o3, pint, pmid, t, q, qqw, qqi, qqr, f_rimef, nlice, nrain, qqs, qqg, & - qqnr, qqni, qqnw + qqnr, qqni, qqnw, cfr use vrbls2d, only: czen, ivgtyp, sno, pctsno, ths, vegfrc, si, u10h, v10h, u10,& v10, smstot, hbot, htop, cnvcfr use masks, only: gdlat, gdlon, sm, lmh, sice @@ -927,6 +928,7 @@ SUBROUTINE CALRAD_WCLOUD ! CRTM counts from top down just as post does if(i==ii.and.j==jj.and.debugprint)print*,'TOA= ',atmosphere(1)%level_pressure(0) do k = 1,lm + atmosphere(1)%cloud_fraction(k) = min(max(cfr(i,j,k),0.),1.) atmosphere(1)%level_pressure(k) = pint(i,j,k+1)/r100 atmosphere(1)%pressure(k) = pmid(i,j,k)/r100 atmosphere(1)%temperature(k) = t(i,j,k) @@ -1511,6 +1513,7 @@ SUBROUTINE CALRAD_WCLOUD ! CRTM counts from top down just as post does if(i==ii.and.j==jj)print*,'TOA= ',atmosphere(1)%level_pressure(0) do k = 1,lm + atmosphere(1)%cloud_fraction(k) = min(max(cfr(i,j,k),0.),1.) atmosphere(1)%level_pressure(k) = pint(i,j,k+1)/r100 atmosphere(1)%pressure(k) = pmid(i,j,k)/r100 atmosphere(1)%temperature(k) = t(i,j,k) diff --git a/tests/compile_upp.sh b/tests/compile_upp.sh index 2c20f660c..432231359 100755 --- a/tests/compile_upp.sh +++ b/tests/compile_upp.sh @@ -58,7 +58,7 @@ PATHTR=${PATHTR:-$( cd ${MYDIR}/.. && pwd )} #Load required modulefiles if [[ $MACHINE_ID != "unknown" ]]; then - if [[ $MACHINE_ID == "wcoss2" ]]; then + if [ $MACHINE_ID == "wcoss2" -o $MACHINE_ID == "wcoss2_a" ]; then module reset else module purge diff --git a/ush/link_crtm_fix.sh b/ush/link_crtm_fix.sh index 1ce1085ec..856c17fd2 100755 --- a/ush/link_crtm_fix.sh +++ b/ush/link_crtm_fix.sh @@ -19,7 +19,8 @@ for what in "amsre_aqua" "imgr_g11" "imgr_g12" "imgr_g13" \ "imgr_g15" "imgr_mt1r" "imgr_mt2" "seviri_m10" \ "ssmi_f13" "ssmi_f14" "ssmi_f15" "ssmis_f16" \ "ssmis_f17" "ssmis_f18" "ssmis_f19" "ssmis_f20" \ - "tmi_trmm" "v.seviri_m10" "imgr_insat3d" "abi_gr" "ahi_himawari8" ; do + "tmi_trmm" "v.seviri_m10" "imgr_insat3d" "abi_gr" "ahi_himawari8" \ + "abi_g16" "abi_g17" ; do ln -s "$FIXCRTM/$what.TauCoeff.bin" . ln -s "$FIXCRTM/$what.SpcCoeff.bin" . done From 4a760566c842106a14aaad8e155c5241e4fe29ca Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Fri, 7 Oct 2022 12:51:10 -0400 Subject: [PATCH 074/107] Update 14 SPC analysis variables (#567) * Update definition of 14 SPC analysis variables, and add them in fv3lam_rrfs control files. * Tweak MISCLN.f for keeping helicity in NMMB unchanged. --- parm/3drtma_postcntrl.xml | 28 +- parm/fv3lam_rrfs.xml | 82 ++++- parm/post_avblflds.xml | 36 +- parm/postxconfig-NT-3drtma.txt | 44 +-- parm/postxconfig-NT-fv3lam_rrfs.txt | 532 +++++++++++++++++++++++++++- sorc/ncep_post.fd/MISCLN.f | 8 +- 6 files changed, 665 insertions(+), 65 deletions(-) diff --git a/parm/3drtma_postcntrl.xml b/parm/3drtma_postcntrl.xml index 23471ce22..482525a26 100755 --- a/parm/3drtma_postcntrl.xml +++ b/parm/3drtma_postcntrl.xml @@ -848,22 +848,22 @@ - EFSH_ON_LFC + EFSH_ON_EFBL -1.0 - EFSH_ON_EQUIL_LVL + EFSH_ON_EFTL -1.0 - ELMELT_ON_EQUIL_LVL + ELMELT_ON_EFTL -1.0 - UESH_ON_LFC + UESH_ON_EFL -1.0 @@ -873,7 +873,7 @@ - VESH_ON_LFC + VESH_ON_EFL -1.0 @@ -883,47 +883,47 @@ - ESHR_ON_LFC + ESHR_ON_EFL -1.0 - UEID_ON_LFC + UEID_ON_EFL -1.0 - VEID_ON_LFC + VEID_ON_EFL -1.0 - E3KH_ON_LFC + E3KH_ON_EFL -1.0 - STPC_ON_LFC + STPC_ON_EFL -1.0 - SIGT_ON_LFC + SIGT_ON_EFL -1.0 - SCCP_ON_LFC + SCCP_ON_EFL -1.0 - SIGH_ON_LFC + SIGH_ON_EFL -1.0 - MLFC_ON_LFC + MLFC_ON_EFL -1.0 diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index c68739453..2489841e9 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -2,7 +2,7 @@ - BGDAWP + PRSLEV 32769 ncep_nco v2003 @@ -12,8 +12,8 @@ fcst fcst hour - noaa_fsl_boulder - hrrr + nws_ncep + rrfs complex_packing_spatial_diff 2nd_ord_sptdiff fltng_pnt @@ -1432,6 +1432,76 @@ 5.0 + + EFSH_ON_EFBL + -1.0 + + + + EFSH_ON_EFTL + -1.0 + + + + ELMELT_ON_EFTL + -1.0 + + + + UESH_ON_EFL + -1.0 + + + + VESH_ON_EFL + -1.0 + + + + ESHR_ON_EFL + -1.0 + + + + UEID_ON_EFL + -1.0 + + + + VEID_ON_EFL + -1.0 + + + + E3KH_ON_EFL + -1.0 + + + + STPC_ON_EFL + -1.0 + + + + SIGT_ON_EFL + -1.0 + + + + SCCP_ON_EFL + -1.0 + + + + SIGH_ON_EFL + -1.0 + + + + MLFC_ON_EFL + -1.0 + + TCOLR_ON_ENTIRE_ATMOS TCOLR @@ -1809,7 +1879,7 @@ - BGRD3D + NATLEV 32769 ncep_nco v2003 @@ -1819,8 +1889,8 @@ fcst fcst hour - noaa_fsl_boulder - hrrr + nws_ncep + rrfs complex_packing_spatial_diff 2nd_ord_sptdiff fltng_pnt diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 815183a6f..48537bb77 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -7734,7 +7734,7 @@ 979 - EFSH_ON_LFC + EFSH_ON_EFBL EFSH NCEP level_free_convection @@ -7743,7 +7743,7 @@ 980 - EFSH_ON_EQUIL_LVL + EFSH_ON_EFTL EFSH NCEP equil_lvl @@ -7752,7 +7752,7 @@ 982 - ELMELT_ON_EQUIL_LVL + ELMELT_ON_EFTL ELMELT NCEP equil_lvl @@ -7761,7 +7761,7 @@ 983 - UESH_ON_LFC + UESH_ON_EFL UESH NCEP level_free_convection @@ -7770,7 +7770,7 @@ 984 - VESH_ON_LFC + VESH_ON_EFL VESH NCEP level_free_convection @@ -7779,7 +7779,7 @@ 985 - ESHR_ON_LFC + ESHR_ON_EFL ESHR NCEP level_free_convection @@ -7788,64 +7788,72 @@ 986 - UEID_ON_LFC + UEID_ON_EFL UEID + NCEP level_free_convection 6.0 987 - VEID_ON_LFC + VEID_ON_EFL VEID + NCEP level_free_convection 6.0 988 - E3KH_ON_LFC + E3KH_ON_EFL E3KH + NCEP level_free_convection 6.0 989 - STPC_ON_LFC + STPC_ON_EFL STPC + NCEP level_free_convection 6.0 990 - SIGT_ON_LFC + SIGT_ON_EFL SIGT + NCEP level_free_convection 6.0 991 - SCCP_ON_LFC + SCCP_ON_EFL SCCP + NCEP level_free_convection 6.0 992 - MLFC_ON_LFC + MLFC_ON_EFL MLFC + NCEP level_free_convection 6.0 993 - SIGH_ON_LFC + SIGH_ON_EFL SIGH + NCEP level_free_convection 6.0 diff --git a/parm/postxconfig-NT-3drtma.txt b/parm/postxconfig-NT-3drtma.txt index 9f2e336f3..f9e73439b 100644 --- a/parm/postxconfig-NT-3drtma.txt +++ b/parm/postxconfig-NT-3drtma.txt @@ -5569,7 +5569,7 @@ entire_atmos_single_lyr ? ? 979 -EFSH_ON_LFC +EFSH_ON_EFBL ? 1 tmpl4_0 @@ -5606,7 +5606,7 @@ level_free_convection ? ? 980 -EFSH_ON_EQUIL_LVL +EFSH_ON_EFTL ? 1 tmpl4_0 @@ -5643,7 +5643,7 @@ equil_lvl ? ? 982 -ELMELT_ON_EQUIL_LVL +ELMELT_ON_EFTL ? 1 tmpl4_0 @@ -5680,7 +5680,7 @@ equil_lvl ? ? 983 -UESH_ON_LFC +UESH_ON_EFL ? 1 tmpl4_0 @@ -5717,7 +5717,7 @@ level_free_convection ? ? 984 -VESH_ON_LFC +VESH_ON_EFL ? 1 tmpl4_0 @@ -5754,7 +5754,7 @@ level_free_convection ? ? 985 -ESHR_ON_LFC +ESHR_ON_EFL ? 1 tmpl4_0 @@ -5791,12 +5791,12 @@ level_free_convection ? ? 986 -UEID_ON_LFC +UEID_ON_EFL ? 1 tmpl4_0 UEID -? +NCEP ? level_free_convection 0 @@ -5828,12 +5828,12 @@ level_free_convection ? ? 987 -VEID_ON_LFC +VEID_ON_EFL ? 1 tmpl4_0 VEID -? +NCEP ? level_free_convection 0 @@ -5865,12 +5865,12 @@ level_free_convection ? ? 988 -E3KH_ON_LFC +E3KH_ON_EFL ? 1 tmpl4_0 E3KH -? +NCEP ? level_free_convection 0 @@ -5902,12 +5902,12 @@ level_free_convection ? ? 989 -STPC_ON_LFC +STPC_ON_EFL ? 1 tmpl4_0 STPC -? +NCEP ? level_free_convection 0 @@ -5939,12 +5939,12 @@ level_free_convection ? ? 990 -SIGT_ON_LFC +SIGT_ON_EFL ? 1 tmpl4_0 SIGT -? +NCEP ? level_free_convection 0 @@ -5976,12 +5976,12 @@ level_free_convection ? ? 991 -SCCP_ON_LFC +SCCP_ON_EFL ? 1 tmpl4_0 SCCP -? +NCEP ? level_free_convection 0 @@ -6013,12 +6013,12 @@ level_free_convection ? ? 993 -SIGH_ON_LFC +SIGH_ON_EFL ? 1 tmpl4_0 SIGH -? +NCEP ? level_free_convection 0 @@ -6050,12 +6050,12 @@ level_free_convection ? ? 992 -MLFC_ON_LFC +MLFC_ON_EFL ? 1 tmpl4_0 MLFC -? +NCEP ? level_free_convection 0 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index 443730cb2..ef3925678 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,7 +1,7 @@ 2 220 -254 -BGDAWP +268 +PRSLEV 32769 ncep_nco v2003 @@ -11,8 +11,8 @@ oper fcst fcst hour -noaa_fsl_boulder -hrrr +nws_ncep +rrfs complex_packing_spatial_diff 2nd_ord_sptdiff fltng_pnt @@ -7565,6 +7565,524 @@ entire_atmos_single_lyr ? ? ? +979 +EFSH_ON_EFBL +? +1 +tmpl4_0 +EFSH +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +980 +EFSH_ON_EFTL +? +1 +tmpl4_0 +EFSH +NCEP +? +equil_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +982 +ELMELT_ON_EFTL +? +1 +tmpl4_0 +ELMELT +NCEP +? +equil_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +983 +UESH_ON_EFL +? +1 +tmpl4_0 +UESH +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +984 +VESH_ON_EFL +? +1 +tmpl4_0 +VESH +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +985 +ESHR_ON_EFL +? +1 +tmpl4_0 +ESHR +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +986 +UEID_ON_EFL +? +1 +tmpl4_0 +UEID +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +987 +VEID_ON_EFL +? +1 +tmpl4_0 +VEID +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +988 +E3KH_ON_EFL +? +1 +tmpl4_0 +E3KH +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +989 +STPC_ON_EFL +? +1 +tmpl4_0 +STPC +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +990 +SIGT_ON_EFL +? +1 +tmpl4_0 +SIGT +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +991 +SCCP_ON_EFL +? +1 +tmpl4_0 +SCCP +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +993 +SIGH_ON_EFL +? +1 +tmpl4_0 +SIGH +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? +992 +MLFC_ON_EFL +? +1 +tmpl4_0 +MLFC +NCEP +? +level_free_convection +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-1.0 +0 +0 +0 +? +? +? 202 TCOLR_ON_ENTIRE_ATMOS ? @@ -9415,7 +9933,7 @@ surface ? ? ? -BGRD3D +NATLEV 32769 ncep_nco v2003 @@ -9425,8 +9943,8 @@ oper fcst fcst hour -noaa_fsl_boulder -hrrr +nws_ncep +rrfs complex_packing_spatial_diff 2nd_ord_sptdiff fltng_pnt diff --git a/sorc/ncep_post.fd/MISCLN.f b/sorc/ncep_post.fd/MISCLN.f index 34a58a041..03bdada62 100644 --- a/sorc/ncep_post.fd/MISCLN.f +++ b/sorc/ncep_post.fd/MISCLN.f @@ -49,6 +49,7 @@ !! bottoma calculation which is only employed !! for RTMA usage. !! 21-10-14 J MENG - 2D DECOMPOSITION +!! 22-10-06 W Meng - Generate SPC fields with RRFS input !! !! USAGE: CALL MISCLN !! INPUT ARGUMENT LIST: @@ -134,7 +135,7 @@ SUBROUTINE MISCLN real,dimension(ista:iend,jsta:jend) :: P1D, T1D, Q1D, U1D, V1D, SHR1D, Z1D, & RH1D, EGRID1, EGRID2, EGRID3, EGRID4, & EGRID5, EGRID6, EGRID7, EGRID8, & - MLCAPE,MLCIN,MLLCL,MUCAPE,MUCIN,MUMIXR, & + MLCAPE,MLCIN,MLLCL,MUCAPE,MUCIN, & FREEZELVL,MUQ1D,SLCL,THE,MAXTHE integer,dimension(ista:iend,jsta:jend) :: MAXTHEPOS real, dimension(:,:,:),allocatable :: OMGBND, PWTBND, QCNVBND, & @@ -3379,7 +3380,6 @@ SUBROUTINE MISCLN DPBND = 300.E2 CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,LB2,EGRID1, & EGRID2,EGRID3,EGRID4,EGRID5) - IF (SUBMODELNAME == 'RTMA') MUMIXR(I,J) = Q1D(I,J) IF (IGET(584)>0) THEN ! dong add missing value to cin GRID1 = spval @@ -3686,6 +3686,10 @@ SUBROUTINE MISCLN IF(IGET(951)>0)THEN FIELD2=.TRUE. ENDIF + IF(MODELNAME == "FV3R" .and. SUBMODELNAME == "RTMA") THEN + FIELD1=.TRUE. + FIELD2=.TRUE. + ENDIF ! ! IF(FIELD1)ITYPE=2 ! IF(FIELD2)ITYPE=2 From 12ab90c72627d11644734af919f900edc2083932 Mon Sep 17 00:00:00 2001 From: Tracy Hertneky <39317287+hertneky@users.noreply.github.com> Date: Mon, 10 Oct 2022 19:30:54 -0600 Subject: [PATCH 075/107] Account for left-mover in SH in SRH (#545) * accoutn for left-mover in SH in SRH * Add change log Co-authored-by: Tracy --- sorc/ncep_post.fd/CALHEL.f | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/sorc/ncep_post.fd/CALHEL.f b/sorc/ncep_post.fd/CALHEL.f index a69c4260b..a0fbceba2 100644 --- a/sorc/ncep_post.fd/CALHEL.f +++ b/sorc/ncep_post.fd/CALHEL.f @@ -37,6 +37,7 @@ !> 2005-07-07 | Binbin Zhou | Add RSM for A grid !> 2019-10-30 | Bo Cui | Remove "goto" statement !> 2021-09-02 | Bo Cui | Decompose UPP in X direction +!> 2022-10-07 | Tracy Hertneky | Add left mover for storm motion in SH !> !> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) @@ -44,7 +45,7 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) ! use vrbls3d, only: zmid, uh, vh, u, v, zint use vrbls2d, only: fis, u10, v10 - use masks, only: lmv + use masks, only: lmv, gdlat use params_mod, only: g use lookup_mod, only: ITB,JTB,ITBQ,JTBQ use ctlblk_mod, only: jsta, jend, jsta_m, jend_m, jsta_2l, jend_2u, & @@ -308,8 +309,13 @@ SUBROUTINE CALHEL(DEPTH,UST,VST,HELI,USHR1,VSHR1,USHR6,VSHR6) DENOM = USHR6(I,J)*USHR6(I,J)+VSHR6(I,J)*VSHR6(I,J) IF (DENOM /= 0.0) THEN - UST(I,J) = UMEAN6 + (7.5*VSHR6(I,J)/SQRT(DENOM)) - VST(I,J) = VMEAN6 - (7.5*USHR6(I,J)/SQRT(DENOM)) + IF (GDLAT(I,J) >= 0) THEN + UST(I,J) = UMEAN6 + (7.5*VSHR6(I,J)/SQRT(DENOM)) + VST(I,J) = VMEAN6 - (7.5*USHR6(I,J)/SQRT(DENOM)) + ELSE IF (GDLAT(I,J) < 0) THEN + UST(I,J) = UMEAN6 - (7.5*VSHR6(I,J)/SQRT(DENOM)) + VST(I,J) = VMEAN6 + (7.5*USHR6(I,J)/SQRT(DENOM)) + ENDIF ELSE UST(I,J) = 0 VST(I,J) = 0 From fb3dc8de3335ea7c46195d756cdfe1c95bfb119d Mon Sep 17 00:00:00 2001 From: "Kate.Zhang-NOAA" <64156100+zhanglikate@users.noreply.github.com> Date: Mon, 17 Oct 2022 13:14:36 -0600 Subject: [PATCH 076/107] Implement the capability to process chemical model NETCDF output and UFS-Aerosols model output (#561) * Implement the capability to read the chemical model NETCDF output for both GEFS-Aerosols (gocart_on) and UFS-Aerosols (nasa_on). * Revert as the develop branch ( global_1x1_paramlist_g2 and scripts/exgfs_atmos_nceppost.sh) Clean the unused dust variables in FDLVL.f and MDL2P.f * 1. Delete the commented out part 2. Re-assign the 6 AOD from GFS from 600-605 (rdaod). 3. Update the look-up table for UFS-Aerosols (nasa_on). * Remove DUST FLUX OF 601-605 * Remove DUSTSL * Remove DUSTSL * Remove AERFD --- parm/makefile | 16 +- parm/optics_luts_DUST_nasa.dat | 720 +++++++ parm/optics_luts_SALT_nasa.dat | 720 +++++++ parm/optics_luts_SOOT_nasa.dat | 288 +++ parm/optics_luts_SUSO_nasa.dat | 144 ++ parm/optics_luts_WASO_nasa.dat | 288 +++ parm/post_avblflds.xml | 335 ++-- parm/postcntrl_ufs_aerosol.xml | 325 ++++ parm/postcntrl_ufs_aerosol_f00.xml | 301 +++ parm/postxconfig-NT-UFS-aerosol-F00.txt | 1720 +++++++++++++++++ parm/postxconfig-NT-UFS-aerosol.txt | 1868 +++++++++++++++++++ sorc/ncep_post.fd/ALLOCATE_ALL.f | 39 +- sorc/ncep_post.fd/CLDRAD.f | 197 +- sorc/ncep_post.fd/CTLBLK.f | 5 +- sorc/ncep_post.fd/DEALLOCATE.f | 10 +- sorc/ncep_post.fd/FDLVL.f | 38 +- sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 71 +- sorc/ncep_post.fd/INITPOST_NETCDF.f | 633 ++++++- sorc/ncep_post.fd/MDL2P.f | 163 +- sorc/ncep_post.fd/MDLFLD.f | 70 +- sorc/ncep_post.fd/MISCLN.f | 159 +- sorc/ncep_post.fd/MPI_FIRST.f | 7 +- sorc/ncep_post.fd/VRBLS2D_mod.f | 2 +- sorc/ncep_post.fd/VRBLS4D_mod.f | 3 + sorc/ncep_post.fd/WRFPOST.f | 10 +- 25 files changed, 7404 insertions(+), 728 deletions(-) create mode 100644 parm/optics_luts_DUST_nasa.dat create mode 100644 parm/optics_luts_SALT_nasa.dat create mode 100644 parm/optics_luts_SOOT_nasa.dat create mode 100644 parm/optics_luts_SUSO_nasa.dat create mode 100644 parm/optics_luts_WASO_nasa.dat create mode 100755 parm/postcntrl_ufs_aerosol.xml create mode 100755 parm/postcntrl_ufs_aerosol_f00.xml create mode 100644 parm/postxconfig-NT-UFS-aerosol-F00.txt create mode 100644 parm/postxconfig-NT-UFS-aerosol.txt diff --git a/parm/makefile b/parm/makefile index 7d915cb4d..6a6b419e3 100644 --- a/parm/makefile +++ b/parm/makefile @@ -28,6 +28,8 @@ HRRRFLATFILENAME = postxconfig-NT-hrrr.txt RAPFLATFILENAME = postxconfig-NT-rap.txt RRFSFLATFILENAME = postxconfig-NT-fv3lam_rrfs.txt RTMA3DFLATFILENAME = postxconfig-NT-3drtma.txt +UFSAEROSOLFLATFILENAME = postxconfig-NT-UFS-aerosol.txt +UFSAERO00FLATFILENAME = postxconfig-NT-UFS-aerosol-F00.txt # Source Post XML file GFSAVAILXMLFILENAME = post_avblflds.xml @@ -59,6 +61,8 @@ RRFSAVAILXMLFILENAME = post_avblflds.xml RRFSCTRLFILENAME = fv3lam_rrfs.xml RTMA3DCTRLFILENAME = 3drtma_postcntrl.xml RTMA3DAVAILXMLFILENAME = post_avblflds.xml +UFSAEROSOLCTRFILENAME = postcntrl_ufs_aerosol.xml +UFSAEROSOL00CTRFILENAME = postcntrl_ufs_aerosol_f00.xml # Post flat file generator PERLXML = PostXMLPreprocessor.pl @@ -85,6 +89,8 @@ PERLXMLHRRR = /usr/bin/perl $(PERLXML) $(HRRRCTRLFILENAME) $(HRRRAVA PERLXMLRAP = /usr/bin/perl $(PERLXML) $(RAPCTRLFILENAME) $(RAPAVAILXMLFILENAME) $(RAPFLATFILENAME) PERLXMLRRFS = /usr/bin/perl $(PERLXML) $(RRFSCTRLFILENAME) $(RRFSAVAILXMLFILENAME) $(RRFSFLATFILENAME) PERLXML3DRTMA = /usr/bin/perl $(PERLXML) $(RTMA3DCTRLFILENAME) $(RTMA3DAVAILXMLFILENAME) $(RTMA3DFLATFILENAME) +PERLXMLUFSAEROSOL = /usr/bin/perl $(PERLXML) $(UFSAEROSOLCTRFILENAME) $(RTMA3DAVAILXMLFILENAME) $(UFSAEROSOLFLATFILENAME) +PERLXMLUFSAEROSOL00 = /usr/bin/perl $(PERLXML) $(UFSAEROSOL00CTRFILENAME) $(RTMA3DAVAILXMLFILENAME) $(UFSAERO00FLATFILENAME) # File to look for change GFSXMLS = $(GFSAVAILXMLFILENAME) $(GFSCTRLFILENAME) @@ -108,9 +114,11 @@ HRRRXMLS = $(HRRRAVAILXMLFILENAME) $(HRRRCTRLFILENAME) RAPXMLS = $(RAPAVAILXMLFILENAME) $(RAPCTRLFILENAME) RRFSXMLS = $(RRFSAVAILXMLFILENAME) $(RRFSCTRLFILENAME) RTMA3DXMLS = $(RTMA3DAVAILXMLFILENAME) $(RTMA3DCTRLFILENAME) +UFSAEROSOLXMLS = $(RTMA3DAVAILXMLFILENAME) $(UFSAEROSOLCTRLFILENAME) +UFSAEROSOL00XMLS = $(RTMA3DAVAILXMLFILENAME) $(UFSAEROSOL00CTRLFILENAME) # If action is triggered; run the following -all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RRFSFLATFILENAME) $(RTMA3DFLATFILENAME) +all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RRFSFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) $(GFSFLATFILENAME): $(GFSXMLS) $(PERLXMLGFS) $(GFSGOESFLATFILENAME): $(GFSGOESXMLS) @@ -151,10 +159,14 @@ $(RRFSFLATFILENAME): $(RRFSXMLS) $(PERLXMLRRFS) $(RTMA3DFLATFILENAME): $(RTMA3DXMLS) $(PERLXML3DRTMA) +$(UFSAEROSOLFLATFILENAME): $(UFSAEROSOLXMLS) + $(PERLXMLUFSAEROSOL) +$(UFSAERO00FLATFILENAME): $(UFSAEROSOL00XMLS) + $(PERLXMLUFSAEROSOL00) # Make clean clean: @echo @echo '==== CLEAN ===================================================' - /bin/rm -f $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) + /bin/rm -f $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) diff --git a/parm/optics_luts_DUST_nasa.dat b/parm/optics_luts_DUST_nasa.dat new file mode 100644 index 000000000..ba114c6ee --- /dev/null +++ b/parm/optics_luts_DUST_nasa.dat @@ -0,0 +1,720 @@ + DUST 1 ext + 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 + 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 + 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 + 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 1.94864 + 1.94864 1.94864 1.94864 1.94864 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 2.01649 + 2.01649 2.01649 2.01649 2.01649 + 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 + 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 + 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 + 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 1.99528 + 1.99528 1.99528 1.99528 1.99528 + 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 + 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 + 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 + 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 1.93435 + 1.93435 1.93435 1.93435 1.93435 + 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 + 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 + 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 + 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 1.29773 + 1.29773 1.29773 1.29773 1.29773 + 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 + 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 + 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 + 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 0.11377 + 0.11377 0.11377 0.11377 0.11377 + DUST 1 sca + 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 + 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 + 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 + 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 1.74200 + 1.74200 1.74200 1.74200 1.74200 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 1.94363 + 1.94363 1.94363 1.94363 1.94363 + 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 + 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 + 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 + 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 1.94481 + 1.94481 1.94481 1.94481 1.94481 + 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 + 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 + 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 + 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 1.89485 + 1.89485 1.89485 1.89485 1.89485 + 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 + 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 + 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 + 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 1.25799 + 1.25799 1.25799 1.25799 1.25799 + 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 + 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 + 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 + 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 0.00540 + 0.00540 0.00540 0.00540 0.00540 + DUST 1 asy + 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 + 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 + 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 + 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 0.76166 + 0.76166 0.76166 0.76166 0.76166 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 0.71088 + 0.71088 0.71088 0.71088 0.71088 + 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 + 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 + 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 + 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 0.70697 + 0.70697 0.70697 0.70697 0.70697 + 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 + 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 + 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 + 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 0.70487 + 0.70487 0.70487 0.70487 0.70487 + 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 + 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 + 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 + 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 0.65305 + 0.65305 0.65305 0.65305 0.65305 + 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 + 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 + 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 + 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 0.03460 + 0.03460 0.03460 0.03460 0.03460 + DUST 1 ssa + 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 + 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 + 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 + 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 0.89396 + 0.89396 0.89396 0.89396 0.89396 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 0.96387 + 0.96387 0.96387 0.96387 0.96387 + 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 + 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 + 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 + 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 0.97471 + 0.97471 0.97471 0.97471 0.97471 + 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 + 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 + 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 + 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 0.97958 + 0.97958 0.97958 0.97958 0.97958 + 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 + 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 + 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 + 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 0.96938 + 0.96938 0.96938 0.96938 0.96938 + 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 + 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 + 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 + 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 0.04749 + 0.04749 0.04749 0.04749 0.04749 + DUST 2 ext + 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 + 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 + 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 + 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 0.59199 + 0.59199 0.59199 0.59199 0.59199 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 0.64447 + 0.64447 0.64447 0.64447 0.64447 + 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 + 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 + 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 + 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 0.66068 + 0.66068 0.66068 0.66068 0.66068 + 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 + 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 + 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 + 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 0.69937 + 0.69937 0.69937 0.69937 0.69937 + 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 + 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 + 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 + 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 0.89154 + 0.89154 0.89154 0.89154 0.89154 + 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 + 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 + 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 + 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 0.15545 + 0.15545 0.15545 0.15545 0.15545 + DUST 2 sca + 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 + 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 + 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 + 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 0.47257 + 0.47257 0.47257 0.47257 0.47257 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 0.59147 + 0.59147 0.59147 0.59147 0.59147 + 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 + 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 + 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 + 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 0.62094 + 0.62094 0.62094 0.62094 0.62094 + 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 + 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 + 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 + 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 0.66548 + 0.66548 0.66548 0.66548 0.66548 + 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 + 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 + 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 + 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 0.84917 + 0.84917 0.84917 0.84917 0.84917 + 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 + 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 + 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 + 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 0.03505 + 0.03505 0.03505 0.03505 0.03505 + DUST 2 asy + 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 + 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 + 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 + 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 0.82765 + 0.82765 0.82765 0.82765 0.82765 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 0.75416 + 0.75416 0.75416 0.75416 0.75416 + 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 + 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 + 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 + 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 0.72659 + 0.72659 0.72659 0.72659 0.72659 + 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 + 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 + 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 + 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 0.70684 + 0.70684 0.70684 0.70684 0.70684 + 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 + 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 + 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 + 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 0.72831 + 0.72831 0.72831 0.72831 0.72831 + 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 + 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 + 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 + 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 0.14287 + 0.14287 0.14287 0.14287 0.14287 + DUST 2 ssa + 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 + 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 + 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 + 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 0.79826 + 0.79826 0.79826 0.79826 0.79826 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 0.91776 + 0.91776 0.91776 0.91776 0.91776 + 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 + 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 + 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 + 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 0.93984 + 0.93984 0.93984 0.93984 0.93984 + 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 + 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 + 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 + 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 0.95153 + 0.95153 0.95153 0.95153 0.95153 + 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 + 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 + 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 + 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 0.95247 + 0.95247 0.95247 0.95247 0.95247 + 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 + 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 + 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 + 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 0.22547 + 0.22547 0.22547 0.22547 0.22547 + DUST 3 ext + 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 + 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 + 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 + 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 0.30948 + 0.30948 0.30948 0.30948 0.30948 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 0.33388 + 0.33388 0.33388 0.33388 0.33388 + 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 + 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 + 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 + 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 0.34427 + 0.34427 0.34427 0.34427 0.34427 + 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 + 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 + 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 + 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 0.36108 + 0.36108 0.36108 0.36108 0.36108 + 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 + 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 + 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 + 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 0.41983 + 0.41983 0.41983 0.41983 0.41983 + 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 + 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 + 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 + 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 0.22625 + 0.22625 0.22625 0.22625 0.22625 + DUST 3 sca + 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 + 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 + 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 + 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 0.22731 + 0.22731 0.22731 0.22731 0.22731 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 0.29583 + 0.29583 0.29583 0.29583 0.29583 + 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 + 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 + 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 + 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 0.31536 + 0.31536 0.31536 0.31536 0.31536 + 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 + 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 + 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 + 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 0.33467 + 0.33467 0.33467 0.33467 0.33467 + 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 + 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 + 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 + 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 0.38226 + 0.38226 0.38226 0.38226 0.38226 + 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 + 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 + 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 + 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 0.09755 + 0.09755 0.09755 0.09755 0.09755 + DUST 3 asy + 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 + 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 + 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 + 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 0.88057 + 0.88057 0.88057 0.88057 0.88057 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 0.79637 + 0.79637 0.79637 0.79637 0.79637 + 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 + 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 + 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 + 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 0.77332 + 0.77332 0.77332 0.77332 0.77332 + 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 + 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 + 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 + 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 0.75693 + 0.75693 0.75693 0.75693 0.75693 + 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 + 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 + 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 + 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 0.72148 + 0.72148 0.72148 0.72148 0.72148 + 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 + 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 + 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 + 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 0.39855 + 0.39855 0.39855 0.39855 0.39855 + DUST 3 ssa + 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 + 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 + 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 + 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 0.73450 + 0.73450 0.73450 0.73450 0.73450 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 0.88604 + 0.88604 0.88604 0.88604 0.88604 + 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 + 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 + 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 + 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 0.91604 + 0.91604 0.91604 0.91604 0.91604 + 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 + 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 + 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 + 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 0.92686 + 0.92686 0.92686 0.92686 0.92686 + 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 + 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 + 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 + 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 0.91053 + 0.91053 0.91053 0.91053 0.91053 + 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 + 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 + 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 + 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 0.43115 + 0.43115 0.43115 0.43115 0.43115 + DUST 4 ext + 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 + 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 + 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 + 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 0.15845 + 0.15845 0.15845 0.15845 0.15845 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 0.16736 + 0.16736 0.16736 0.16736 0.16736 + 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 + 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 + 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 + 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 0.17134 + 0.17134 0.17134 0.17134 0.17134 + 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 + 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 + 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 + 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 0.17814 + 0.17814 0.17814 0.17814 0.17814 + 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 + 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 + 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 + 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 0.20265 + 0.20265 0.20265 0.20265 0.20265 + 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 + 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 + 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 + 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 0.20360 + 0.20360 0.20360 0.20360 0.20360 + DUST 4 sca + 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 + 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 + 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 + 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 0.10550 + 0.10550 0.10550 0.10550 0.10550 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 0.13947 + 0.13947 0.13947 0.13947 0.13947 + 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 + 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 + 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 + 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 0.14962 + 0.14962 0.14962 0.14962 0.14962 + 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 + 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 + 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 + 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 0.15925 + 0.15925 0.15925 0.15925 0.15925 + 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 + 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 + 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 + 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 0.17476 + 0.17476 0.17476 0.17476 0.17476 + 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 + 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 + 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 + 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 0.10677 + 0.10677 0.10677 0.10677 0.10677 + DUST 4 asy + 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 + 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 + 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 + 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 0.91581 + 0.91581 0.91581 0.91581 0.91581 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 0.84029 + 0.84029 0.84029 0.84029 0.84029 + 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 + 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 + 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 + 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 0.81727 + 0.81727 0.81727 0.81727 0.81727 + 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 + 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 + 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 + 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 0.79887 + 0.79887 0.79887 0.79887 0.79887 + 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 + 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 + 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 + 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 0.77255 + 0.77255 0.77255 0.77255 0.77255 + 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 + 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 + 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 + 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 0.67149 + 0.67149 0.67149 0.67149 0.67149 + DUST 4 ssa + 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 + 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 + 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 + 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 0.66580 + 0.66580 0.66580 0.66580 0.66580 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 0.83335 + 0.83335 0.83335 0.83335 0.83335 + 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 + 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 + 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 + 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 0.87327 + 0.87327 0.87327 0.87327 0.87327 + 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 + 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 + 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 + 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 0.89395 + 0.89395 0.89395 0.89395 0.89395 + 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 + 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 + 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 + 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 0.86236 + 0.86236 0.86236 0.86236 0.86236 + 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 + 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 + 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 + 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 0.52442 + 0.52442 0.52442 0.52442 0.52442 + DUST 5 ext + 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 + 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 + 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 + 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 0.08061 + 0.08061 0.08061 0.08061 0.08061 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 0.08391 + 0.08391 0.08391 0.08391 0.08391 + 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 + 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 + 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 + 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 0.08489 + 0.08489 0.08489 0.08489 0.08489 + 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 + 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 + 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 + 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 0.08850 + 0.08850 0.08850 0.08850 0.08850 + 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 + 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 + 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 + 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 0.09852 + 0.09852 0.09852 0.09852 0.09852 + 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 + 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 + 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 + 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 0.11163 + 0.11163 0.11163 0.11163 0.11163 + DUST 5 sca + 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 + 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 + 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 + 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 0.04899 + 0.04899 0.04899 0.04899 0.04899 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 0.06440 + 0.06440 0.06440 0.06440 0.06440 + 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 + 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 + 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 + 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 0.06937 + 0.06937 0.06937 0.06937 0.06937 + 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 + 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 + 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 + 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 0.07456 + 0.07456 0.07456 0.07456 0.07456 + 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 + 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 + 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 + 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 0.07955 + 0.07955 0.07955 0.07955 0.07955 + 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 + 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 + 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 + 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 0.05695 + 0.05695 0.05695 0.05695 0.05695 + DUST 5 asy + 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 + 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 + 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 + 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 0.93879 + 0.93879 0.93879 0.93879 0.93879 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 0.87232 + 0.87232 0.87232 0.87232 0.87232 + 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 + 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 + 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 + 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 0.85054 + 0.85054 0.85054 0.85054 0.85054 + 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 + 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 + 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 + 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 0.83694 + 0.83694 0.83694 0.83694 0.83694 + 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 + 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 + 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 + 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 0.83165 + 0.83165 0.83165 0.83165 0.83165 + 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 + 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 + 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 + 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 0.80566 + 0.80566 0.80566 0.80566 0.80566 + DUST 5 ssa + 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 + 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 + 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 + 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 0.60776 + 0.60776 0.60776 0.60776 0.60776 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 0.76747 + 0.76747 0.76747 0.76747 0.76747 + 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 + 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 + 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 + 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 0.81716 + 0.81716 0.81716 0.81716 0.81716 + 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 + 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 + 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 + 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 0.84240 + 0.84240 0.84240 0.84240 0.84240 + 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 + 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 + 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 + 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 0.80753 + 0.80753 0.80753 0.80753 0.80753 + 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 + 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 + 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 + 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 0.51019 + 0.51019 0.51019 0.51019 0.51019 diff --git a/parm/optics_luts_SALT_nasa.dat b/parm/optics_luts_SALT_nasa.dat new file mode 100644 index 000000000..072997eb9 --- /dev/null +++ b/parm/optics_luts_SALT_nasa.dat @@ -0,0 +1,720 @@ + SALT 1 ext + 3.17897 3.99378 4.24634 4.48175 4.72237 4.97921 5.26095 5.57653 + 5.93651 6.35450 6.84907 7.44698 8.18917 9.14273 10.42767 12.28134 + 15.21861 16.02014 16.92121 17.93841 19.09155 20.40482 21.90863 23.64292 + 25.66279 28.04868 30.92388 34.48236 39.02001 44.94572 52.79671 63.52238 + 63.52238 63.52238 63.52238 63.52238 + 1.41480 1.78979 1.90599 2.01484 2.12690 2.24767 2.38180 2.53443 + 2.71198 2.92317 3.18046 3.50243 3.91808 4.47476 5.25384 6.40334 + 8.21413 8.70158 9.24679 9.85982 10.55342 11.34403 12.25335 13.31101 + 14.55856 16.05621 17.89368 20.20720 23.20430 27.19727 32.65588 40.35828 + 40.35828 40.35828 40.35828 40.35828 + 0.72755 0.94684 1.01535 1.07958 1.14570 1.21686 1.29568 1.38502 + 1.48836 1.61036 1.75754 1.93950 2.17113 2.47690 2.90017 3.52578 + 4.54285 4.82676 5.15015 5.52134 5.95089 6.45239 7.04346 7.74713 + 8.59389 9.62467 10.89546 12.48532 14.51133 17.16031 20.76306 25.98286 + 25.98286 25.98286 25.98286 25.98286 + 0.28579 0.38385 0.41533 0.44518 0.47623 0.50999 0.54778 0.59107 + 0.64173 0.70225 0.77617 0.86873 0.98805 1.14734 1.36959 1.69826 + 2.22550 2.37050 2.53451 2.72134 2.93588 3.18452 3.47575 3.82113 + 4.23677 4.74582 5.38265 6.20020 7.28339 8.77436 10.92122 14.17522 + 14.17522 14.17522 14.17522 14.17522 + 0.10295 0.14049 0.15273 0.16441 0.17664 0.19002 0.20510 0.22252 + 0.24306 0.26785 0.29845 0.33728 0.38810 0.45721 0.55589 0.70605 + 0.95571 1.02594 1.10606 1.19812 1.30474 1.42931 1.57630 1.75173 + 1.96381 2.22405 2.54904 2.96356 3.50611 4.24005 5.27732 6.83648 + 6.83648 6.83648 6.83648 6.83648 + 0.00844 0.01104 0.01189 0.01270 0.01355 0.01448 0.01553 0.01675 + 0.01820 0.01995 0.02213 0.02491 0.02858 0.03363 0.04097 0.05238 + 0.07200 0.07765 0.08418 0.09177 0.10069 0.11126 0.12397 0.13943 + 0.15855 0.18263 0.21361 0.25452 0.31026 0.38923 0.50685 0.69404 + 0.69404 0.69404 0.69404 0.69404 + 0.00528 0.01790 0.02189 0.02565 0.02951 0.03366 0.03824 0.04342 + 0.04937 0.05634 0.06466 0.07481 0.08748 0.10380 0.12561 0.15620 + 0.20220 0.21432 0.22778 0.24284 0.25977 0.27895 0.30088 0.32616 + 0.35564 0.39044 0.43216 0.48306 0.54653 0.62790 0.73592 0.88625 + 0.88625 0.88625 0.88625 0.88625 + SALT 1 sca + 3.17897 3.99378 4.24634 4.48175 4.72237 4.97921 5.26095 5.57653 + 5.93651 6.35450 6.84907 7.44698 8.18917 9.14273 10.42767 12.28134 + 15.21861 16.02014 16.92121 17.93841 19.09155 20.40482 21.90863 23.64292 + 25.66279 28.04868 30.92388 34.48236 39.02001 44.94572 52.79671 63.52238 + 63.52238 63.52238 63.52238 63.52238 + 1.41480 1.78979 1.90599 2.01484 2.12690 2.24767 2.38180 2.53443 + 2.71198 2.92317 3.18046 3.50243 3.91808 4.47476 5.25384 6.40334 + 8.21413 8.70158 9.24679 9.85982 10.55342 11.34403 12.25335 13.31101 + 14.55856 16.05621 17.89368 20.20720 23.20430 27.19727 32.65588 40.35828 + 40.35828 40.35828 40.35828 40.35828 + 0.72755 0.94684 1.01535 1.07958 1.14570 1.21686 1.29568 1.38502 + 1.48836 1.61036 1.75754 1.93950 2.17113 2.47690 2.90017 3.52578 + 4.54285 4.82676 5.15015 5.52134 5.95089 6.45239 7.04346 7.74713 + 8.59389 9.62467 10.89546 12.48532 14.51133 17.16031 20.76306 25.98286 + 25.98286 25.98286 25.98286 25.98286 + 0.28579 0.38385 0.41533 0.44518 0.47623 0.50999 0.54778 0.59107 + 0.64173 0.70225 0.77617 0.86873 0.98805 1.14734 1.36959 1.69826 + 2.22550 2.37050 2.53451 2.72134 2.93588 3.18452 3.47575 3.82113 + 4.23677 4.74582 5.38265 6.20020 7.28339 8.77436 10.92122 14.17522 + 14.17522 14.17522 14.17522 14.17522 + 0.10271 0.14024 0.15247 0.16415 0.17638 0.18975 0.20484 0.22225 + 0.24279 0.26757 0.29818 0.33700 0.38781 0.45692 0.55558 0.70573 + 0.95538 1.02561 1.10573 1.19779 1.30440 1.42896 1.57595 1.75138 + 1.96345 2.22368 2.54866 2.96317 3.50571 4.23963 5.27687 6.83600 + 6.83600 6.83600 6.83600 6.83600 + 0.00643 0.00888 0.00969 0.01047 0.01128 0.01218 0.01319 0.01437 + 0.01577 0.01747 0.01959 0.02230 0.02588 0.03083 0.03802 0.04924 + 0.06857 0.07415 0.08060 0.08810 0.09691 0.10737 0.11994 0.13525 + 0.15420 0.17807 0.20880 0.24940 0.30476 0.38324 0.50021 0.68648 + 0.68648 0.68648 0.68648 0.68648 + 0.00000 0.00000 0.00000 0.00001 0.00001 0.00001 0.00001 0.00001 + 0.00001 0.00001 0.00001 0.00001 0.00001 0.00001 0.00001 0.00002 + 0.00002 0.00002 0.00002 0.00002 0.00003 0.00003 0.00003 0.00004 + 0.00004 0.00005 0.00005 0.00006 0.00008 0.00010 0.00012 0.00017 + 0.00017 0.00017 0.00017 0.00017 + SALT 1 asy + 0.51706 0.55548 0.56412 0.57119 0.57758 0.58363 0.58951 0.59535 + 0.60125 0.60734 0.61379 0.62088 0.62905 0.63905 0.65208 0.66993 + 0.69426 0.69989 0.70571 0.71167 0.71774 0.72384 0.72995 0.73603 + 0.74211 0.74827 0.75468 0.76164 0.76941 0.77804 0.78741 0.79752 + 0.79752 0.79752 0.79752 0.79752 + 0.31211 0.35802 0.37110 0.38286 0.39447 0.40643 0.41904 0.43257 + 0.44725 0.46329 0.48091 0.50026 0.52143 0.54426 0.56828 0.59256 + 0.61614 0.62081 0.62552 0.63033 0.63534 0.64065 0.64644 0.65290 + 0.66030 0.66895 0.67917 0.69116 0.70491 0.71993 0.73533 0.75040 + 0.75040 0.75040 0.75040 0.75040 + 0.20095 0.23024 0.23881 0.24664 0.25449 0.26273 0.27163 0.28143 + 0.29242 0.30495 0.31945 0.33654 0.35702 0.38201 0.41306 0.45218 + 0.50130 0.51237 0.52381 0.53558 0.54758 0.55973 0.57191 0.58397 + 0.59575 0.60715 0.61811 0.62876 0.63952 0.65132 0.66582 0.68536 + 0.68536 0.68536 0.68536 0.68536 + 0.12134 0.13830 0.14324 0.14775 0.15226 0.15700 0.16211 0.16775 + 0.17408 0.18131 0.18973 0.19972 0.21186 0.22700 0.24653 0.27283 + 0.31032 0.31982 0.33020 0.34158 0.35411 0.36794 0.38328 0.40032 + 0.41932 0.44048 0.46402 0.49002 0.51830 0.54824 0.57850 0.60709 + 0.60709 0.60709 0.60709 0.60709 + 0.07303 0.08308 0.08599 0.08864 0.09128 0.09406 0.09704 0.10032 + 0.10400 0.10819 0.11305 0.11880 0.12576 0.13440 0.14551 0.16044 + 0.18177 0.18721 0.19318 0.19977 0.20708 0.21525 0.22443 0.23486 + 0.24679 0.26061 0.27680 0.29604 0.31927 0.34784 0.38359 0.42898 + 0.42898 0.42898 0.42898 0.42898 + 0.01926 0.02192 0.02269 0.02339 0.02409 0.02482 0.02560 0.02647 + 0.02743 0.02853 0.02980 0.03129 0.03310 0.03533 0.03818 0.04198 + 0.04736 0.04871 0.05020 0.05183 0.05364 0.05565 0.05789 0.06043 + 0.06332 0.06665 0.07054 0.07513 0.08068 0.08753 0.09625 0.10781 + 0.10781 0.10781 0.10781 0.10781 + 0.00046 0.00051 0.00052 0.00054 0.00055 0.00057 0.00058 0.00060 + 0.00062 0.00065 0.00067 0.00070 0.00074 0.00079 0.00085 0.00093 + 0.00104 0.00107 0.00110 0.00114 0.00118 0.00122 0.00127 0.00132 + 0.00138 0.00146 0.00154 0.00164 0.00176 0.00190 0.00209 0.00234 + 0.00234 0.00234 0.00234 0.00234 + SALT 1 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 0.99768 0.99821 0.99833 0.99844 0.99853 0.99862 0.99871 0.99879 + 0.99888 0.99897 0.99906 0.99916 0.99926 0.99935 0.99946 0.99956 + 0.99966 0.99968 0.99970 0.99972 0.99974 0.99976 0.99978 0.99980 + 0.99982 0.99983 0.99985 0.99987 0.99988 0.99990 0.99992 0.99993 + 0.99993 0.99993 0.99993 0.99993 + 0.76144 0.80474 0.81538 0.82440 0.83286 0.84114 0.84945 0.85792 + 0.86665 0.87571 0.88518 0.89510 0.90552 0.91648 0.92798 0.93998 + 0.95240 0.95492 0.95744 0.95997 0.96250 0.96503 0.96755 0.97006 + 0.97256 0.97503 0.97748 0.97990 0.98228 0.98461 0.98689 0.98910 + 0.98910 0.98910 0.98910 0.98910 + 0.00073 0.00026 0.00022 0.00020 0.00018 0.00017 0.00015 0.00014 + 0.00013 0.00012 0.00012 0.00011 0.00011 0.00010 0.00010 0.00010 + 0.00010 0.00010 0.00010 0.00010 0.00010 0.00010 0.00011 0.00011 + 0.00011 0.00012 0.00012 0.00013 0.00014 0.00015 0.00017 0.00019 + 0.00019 0.00019 0.00019 0.00019 + SALT 2 ext + 3.84084 4.45237 4.65550 4.79789 4.96505 5.15331 5.30847 5.53258 + 5.75320 6.00621 6.30597 6.67327 7.08172 7.63785 8.31344 9.21648 + 10.48133 10.79933 11.13612 11.50541 11.90672 12.37923 12.86888 13.40282 + 14.01578 14.70266 15.43109 16.37182 17.43638 18.71893 20.35023 22.48381 + 22.48381 22.48381 22.48381 22.48381 + 3.74877 4.36270 4.54464 4.70344 4.86532 5.02961 5.20393 5.40612 + 5.63374 5.88137 6.17082 6.50205 6.92582 7.42835 8.07390 8.93477 + 10.14531 10.46298 10.80479 11.18531 11.61903 12.06158 12.60323 13.20474 + 13.89431 14.70132 15.62578 16.77404 18.06191 19.70303 21.75061 24.24523 + 24.24523 24.24523 24.24523 24.24523 + 3.48056 4.09344 4.26851 4.42589 4.58317 4.74916 4.93114 5.13679 + 5.36630 5.62271 5.91683 6.26089 6.68991 7.22050 7.87916 8.77796 + 10.00540 10.32962 10.67562 11.04207 11.45230 11.89440 12.42714 12.99252 + 13.64637 14.38911 15.27882 16.32315 17.61756 19.20708 21.26140 24.02065 + 24.02065 24.02065 24.02065 24.02065 + 2.75510 3.27724 3.43110 3.57356 3.71918 3.87498 4.04559 4.23476 + 4.44696 4.68865 4.96948 5.30546 5.72357 6.25670 6.93658 7.84924 + 9.18277 9.51526 9.87679 10.27689 10.72711 11.23273 11.78934 12.40751 + 13.10464 13.92774 14.86839 15.95151 17.28453 18.86730 20.89511 23.48877 + 23.48877 23.48877 23.48877 23.48877 + 1.81677 2.21583 2.33561 2.44573 2.55707 2.67493 2.80357 2.94751 + 3.11232 3.30536 3.53642 3.81810 4.16688 4.60806 5.18829 6.00392 + 7.22065 7.53323 7.87747 8.26005 8.69005 9.17854 9.73545 10.36804 + 11.08771 11.91729 12.90145 14.09253 15.51547 17.26298 19.51397 22.41546 + 22.41546 22.41546 22.41546 22.41546 + 0.30892 0.40612 0.43681 0.46570 0.49550 0.52762 0.56324 0.60358 + 0.65018 0.70503 0.77089 0.85178 0.95387 1.08719 1.26946 1.53503 + 1.95798 2.07385 2.20453 2.35274 2.52187 2.71619 2.94125 3.20438 + 3.51571 3.88963 4.34737 4.92088 5.65827 6.63155 7.95560 9.84898 + 9.84898 9.84898 9.84898 9.84898 + 0.00565 0.02002 0.02462 0.02895 0.03341 0.03822 0.04354 0.04955 + 0.05648 0.06460 0.07431 0.08617 0.10101 0.12015 0.14577 0.18181 + 0.23617 0.25052 0.26649 0.28436 0.30449 0.32733 0.35347 0.38368 + 0.41897 0.46074 0.51094 0.57240 0.64938 0.74854 0.88105 1.06705 + 1.06705 1.06705 1.06705 1.06705 + SALT 2 sca + 3.84084 4.45237 4.65550 4.79789 4.96505 5.15331 5.30847 5.53258 + 5.75320 6.00621 6.30597 6.67327 7.08172 7.63785 8.31344 9.21648 + 10.48133 10.79933 11.13612 11.50541 11.90672 12.37923 12.86888 13.40282 + 14.01578 14.70266 15.43109 16.37182 17.43638 18.71893 20.35023 22.48381 + 22.48381 22.48381 22.48381 22.48381 + 3.74877 4.36270 4.54464 4.70344 4.86532 5.02961 5.20393 5.40612 + 5.63374 5.88137 6.17082 6.50205 6.92582 7.42835 8.07390 8.93477 + 10.14531 10.46298 10.80479 11.18531 11.61903 12.06158 12.60323 13.20474 + 13.89431 14.70132 15.62578 16.77404 18.06191 19.70303 21.75061 24.24523 + 24.24523 24.24523 24.24523 24.24523 + 3.48056 4.09344 4.26851 4.42589 4.58317 4.74916 4.93114 5.13679 + 5.36630 5.62271 5.91683 6.26089 6.68991 7.22050 7.87916 8.77796 + 10.00540 10.32962 10.67562 11.04207 11.45230 11.89440 12.42714 12.99252 + 13.64637 14.38911 15.27882 16.32315 17.61756 19.20708 21.26140 24.02065 + 24.02065 24.02065 24.02065 24.02065 + 2.75510 3.27724 3.43110 3.57356 3.71918 3.87498 4.04559 4.23476 + 4.44696 4.68865 4.96948 5.30546 5.72357 6.25670 6.93658 7.84924 + 9.18277 9.51526 9.87679 10.27689 10.72711 11.23273 11.78934 12.40751 + 13.10464 13.92774 14.86839 15.95151 17.28453 18.86730 20.89511 23.48877 + 23.48877 23.48877 23.48877 23.48877 + 1.81634 2.21540 2.33517 2.44529 2.55662 2.67448 2.80312 2.94706 + 3.11186 3.30490 3.53596 3.81763 4.16641 4.60758 5.18781 6.00343 + 7.22015 7.53272 7.87696 8.25953 8.68952 9.17801 9.73492 10.36750 + 11.08717 11.91674 12.90089 14.09196 15.51488 17.26237 19.51333 22.41479 + 22.41479 22.41479 22.41479 22.41479 + 0.30604 0.40297 0.43360 0.46242 0.49216 0.52422 0.55976 0.60003 + 0.64656 0.70132 0.76708 0.84785 0.94979 1.08293 1.26497 1.53023 + 1.95269 2.06844 2.19898 2.34703 2.51599 2.71012 2.93496 3.19784 + 3.50888 3.88246 4.33979 4.91279 5.64954 6.62201 7.94499 9.83686 + 9.83686 9.83686 9.83686 9.83686 + 0.00028 0.00035 0.00037 0.00039 0.00041 0.00043 0.00045 0.00048 + 0.00051 0.00055 0.00060 0.00066 0.00074 0.00084 0.00100 0.00124 + 0.00164 0.00176 0.00189 0.00205 0.00223 0.00245 0.00271 0.00303 + 0.00343 0.00392 0.00456 0.00541 0.00656 0.00820 0.01066 0.01460 + 0.01460 0.01460 0.01460 0.01460 + SALT 2 asy + 0.67225 0.69432 0.69676 0.70380 0.70630 0.70950 0.71586 0.71631 + 0.72274 0.72577 0.73154 0.73399 0.74088 0.74489 0.75121 0.75765 + 0.76328 0.76455 0.76624 0.76746 0.76956 0.76873 0.77054 0.77136 + 0.77309 0.77311 0.77554 0.77545 0.77611 0.77636 0.77660 0.77762 + 0.77762 0.77762 0.77762 0.77762 + 0.69381 0.71250 0.71725 0.72119 0.72453 0.72816 0.73111 0.73347 + 0.73670 0.74035 0.74388 0.74689 0.74989 0.75385 0.75660 0.76127 + 0.76646 0.76655 0.76805 0.76831 0.76978 0.77190 0.77216 0.77416 + 0.77558 0.77634 0.77953 0.77976 0.78290 0.78485 0.78628 0.78886 + 0.78886 0.78886 0.78886 0.78886 + 0.70301 0.72332 0.72835 0.73243 0.73597 0.73919 0.74219 0.74534 + 0.74906 0.75294 0.75691 0.76050 0.76377 0.76804 0.77202 0.77530 + 0.77856 0.77867 0.77957 0.78039 0.78097 0.78139 0.78088 0.78217 + 0.78233 0.78220 0.78352 0.78355 0.78409 0.78446 0.78652 0.78850 + 0.78850 0.78850 0.78850 0.78850 + 0.69835 0.71950 0.72444 0.72860 0.73253 0.73647 0.74054 0.74474 + 0.74902 0.75335 0.75770 0.76210 0.76684 0.77246 0.77848 0.78388 + 0.79003 0.79128 0.79239 0.79332 0.79417 0.79522 0.79638 0.79730 + 0.79778 0.79800 0.79878 0.79891 0.79810 0.79804 0.79661 0.79503 + 0.79503 0.79503 0.79503 0.79503 + 0.66241 0.68694 0.69300 0.69812 0.70290 0.70758 0.71228 0.71710 + 0.72214 0.72748 0.73322 0.73941 0.74604 0.75313 0.76090 0.76997 + 0.78028 0.78231 0.78431 0.78632 0.78839 0.79063 0.79308 0.79564 + 0.79811 0.80030 0.80228 0.80450 0.80673 0.80820 0.80965 0.80976 + 0.80976 0.80976 0.80976 0.80976 + 0.42391 0.46989 0.48087 0.49004 0.49851 0.50667 0.51475 0.52287 + 0.53117 0.53977 0.54884 0.55862 0.56948 0.58204 0.59728 0.61663 + 0.64161 0.64733 0.65328 0.65944 0.66579 0.67231 0.67901 0.68589 + 0.69301 0.70047 0.70841 0.71705 0.72653 0.73690 0.74824 0.76086 + 0.76086 0.76086 0.76086 0.76086 + 0.00996 0.01132 0.01172 0.01207 0.01243 0.01281 0.01321 0.01366 + 0.01415 0.01472 0.01538 0.01615 0.01709 0.01825 0.01973 0.02171 + 0.02453 0.02524 0.02602 0.02688 0.02783 0.02888 0.03007 0.03141 + 0.03294 0.03470 0.03676 0.03920 0.04216 0.04582 0.05049 0.05670 + 0.05670 0.05670 0.05670 0.05670 + SALT 2 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 0.99977 0.99980 0.99981 0.99982 0.99983 0.99983 0.99984 0.99985 + 0.99985 0.99986 0.99987 0.99988 0.99989 0.99990 0.99991 0.99992 + 0.99993 0.99993 0.99994 0.99994 0.99994 0.99994 0.99995 0.99995 + 0.99995 0.99995 0.99996 0.99996 0.99996 0.99996 0.99997 0.99997 + 0.99997 0.99997 0.99997 0.99997 + 0.99067 0.99225 0.99263 0.99295 0.99325 0.99354 0.99383 0.99412 + 0.99442 0.99473 0.99505 0.99538 0.99573 0.99609 0.99647 0.99687 + 0.99730 0.99739 0.99748 0.99757 0.99767 0.99777 0.99786 0.99796 + 0.99806 0.99816 0.99826 0.99836 0.99846 0.99856 0.99867 0.99877 + 0.99877 0.99877 0.99877 0.99877 + 0.04951 0.01732 0.01493 0.01337 0.01218 0.01121 0.01040 0.00969 + 0.00908 0.00854 0.00806 0.00765 0.00730 0.00703 0.00685 0.00680 + 0.00695 0.00702 0.00710 0.00721 0.00734 0.00749 0.00768 0.00790 + 0.00818 0.00851 0.00893 0.00944 0.01010 0.01096 0.01210 0.01368 + 0.01368 0.01368 0.01368 0.01368 + SALT 3 ext + 0.71835 0.87924 0.88655 0.92836 0.95768 0.99680 1.04236 1.09214 + 1.11243 1.17720 1.26219 1.31898 1.39713 1.51825 1.60509 1.80847 + 2.01861 2.06107 2.11598 2.18695 2.28119 2.40582 2.46234 2.60386 + 2.72094 2.83783 3.02052 3.23288 3.48339 3.81599 4.19433 4.68313 + 4.68313 4.68313 4.68313 4.68313 + 0.75326 0.85803 0.91536 0.93074 0.97050 1.00135 1.04228 1.08441 + 1.12174 1.19930 1.23267 1.30684 1.39136 1.50285 1.66383 1.85402 + 2.13162 2.17065 2.25099 2.22373 2.33807 2.44034 2.51679 2.64961 + 2.79123 2.96849 3.12779 3.31023 3.55333 3.88088 4.20404 4.71706 + 4.71706 4.71706 4.71706 4.71706 + 0.73947 0.89727 0.92869 0.95546 0.99618 1.01607 1.07442 1.10116 + 1.17199 1.21641 1.27072 1.33133 1.41842 1.52401 1.68249 1.81245 + 2.03573 2.10919 2.17449 2.24403 2.42983 2.39412 2.55024 2.69058 + 2.94690 3.04601 3.22146 3.44902 3.58207 3.89810 4.33784 4.84690 + 4.84690 4.84690 4.84690 4.84690 + 0.80886 0.96277 1.00408 1.01747 1.09080 1.08175 1.15036 1.18650 + 1.20424 1.27322 1.32511 1.38169 1.47102 1.57292 1.67421 1.87585 + 2.12111 2.16054 2.24660 2.34009 2.41421 2.50929 2.63169 2.73785 + 2.85421 2.99520 3.16043 3.36720 3.57718 3.92187 4.36465 4.99504 + 4.99504 4.99504 4.99504 4.99504 + 0.83616 0.98394 1.02709 1.06669 1.10366 1.14407 1.18983 1.23688 + 1.28832 1.35332 1.42056 1.49798 1.59685 1.72107 1.87845 2.07740 + 2.31822 2.37031 2.43999 2.50507 2.57340 2.65954 2.74152 2.82800 + 2.98083 3.08542 3.23837 3.46609 3.70437 4.00744 4.42399 4.93962 + 4.93962 4.93962 4.93962 4.93962 + 1.10015 1.29907 1.35683 1.41072 1.46542 1.52234 1.58234 1.64656 + 1.71686 1.79656 1.89099 2.00338 2.13300 2.28517 2.48134 2.72307 + 3.04422 3.11874 3.19597 3.27915 3.37353 3.47567 3.58077 3.69048 + 3.82034 3.96248 4.11023 4.29648 4.49727 4.76437 5.10562 5.59516 + 5.59516 5.59516 5.59516 5.59516 + 0.01740 0.03820 0.04470 0.05076 0.05696 0.06358 0.07086 0.07903 + 0.08836 0.09922 0.11210 0.12769 0.14702 0.17170 0.20438 0.24980 + 0.31740 0.33509 0.35472 0.37661 0.40119 0.42899 0.46068 0.49716 + 0.53962 0.58968 0.64958 0.72259 0.81356 0.93013 1.08492 1.30047 + 1.30047 1.30047 1.30047 1.30047 + SALT 3 sca + 0.71835 0.87924 0.88655 0.92836 0.95768 0.99680 1.04236 1.09214 + 1.11243 1.17720 1.26219 1.31898 1.39713 1.51825 1.60509 1.80847 + 2.01861 2.06107 2.11598 2.18695 2.28119 2.40582 2.46234 2.60386 + 2.72094 2.83783 3.02052 3.23288 3.48339 3.81599 4.19433 4.68313 + 4.68313 4.68313 4.68313 4.68313 + 0.75326 0.85803 0.91536 0.93074 0.97050 1.00135 1.04228 1.08441 + 1.12174 1.19930 1.23267 1.30684 1.39136 1.50285 1.66383 1.85402 + 2.13162 2.17065 2.25099 2.22373 2.33807 2.44034 2.51679 2.64961 + 2.79123 2.96849 3.12779 3.31023 3.55333 3.88088 4.20404 4.71706 + 4.71706 4.71706 4.71706 4.71706 + 0.73947 0.89727 0.92869 0.95546 0.99618 1.01607 1.07442 1.10116 + 1.17199 1.21641 1.27072 1.33133 1.41842 1.52401 1.68249 1.81245 + 2.03573 2.10919 2.17449 2.24403 2.42983 2.39412 2.55024 2.69058 + 2.94690 3.04601 3.22146 3.44902 3.58207 3.89810 4.33784 4.84690 + 4.84690 4.84690 4.84690 4.84690 + 0.80886 0.96277 1.00408 1.01747 1.09080 1.08175 1.15036 1.18650 + 1.20424 1.27322 1.32511 1.38169 1.47102 1.57292 1.67421 1.87585 + 2.12111 2.16054 2.24660 2.34009 2.41421 2.50929 2.63169 2.73785 + 2.85421 2.99520 3.16043 3.36720 3.57718 3.92187 4.36465 4.99504 + 4.99504 4.99504 4.99504 4.99504 + 0.83562 0.98340 1.02654 1.06615 1.10312 1.14353 1.18929 1.23635 + 1.28779 1.35277 1.42002 1.49745 1.59631 1.72053 1.87790 2.07684 + 2.31766 2.36975 2.43943 2.50450 2.57284 2.65897 2.74095 2.82743 + 2.98025 3.08481 3.23777 3.46551 3.70377 4.00682 4.42335 4.93899 + 4.93899 4.93899 4.93899 4.93899 + 1.09559 1.29442 1.35214 1.40597 1.46061 1.51747 1.57743 1.64160 + 1.71184 1.79147 1.88578 1.99805 2.12753 2.27953 2.47542 2.71683 + 3.03743 3.11182 3.18891 3.27192 3.36608 3.46800 3.57286 3.68230 + 3.81179 3.95353 4.10082 4.28644 4.48654 4.75265 5.09260 5.58035 + 5.58035 5.58035 5.58035 5.58035 + 0.01107 0.01318 0.01381 0.01439 0.01498 0.01562 0.01632 0.01710 + 0.01802 0.01909 0.02039 0.02199 0.02405 0.02676 0.03052 0.03603 + 0.04479 0.04719 0.04990 0.05297 0.05649 0.06054 0.06527 0.07084 + 0.07747 0.08550 0.09539 0.10782 0.12387 0.14526 0.17502 0.21881 + 0.21881 0.21881 0.21881 0.21881 + SALT 3 asy + 0.75750 0.77012 0.77914 0.77816 0.78283 0.78271 0.78591 0.78655 + 0.79340 0.79444 0.78898 0.79638 0.79736 0.80219 0.81206 0.81159 + 0.81970 0.81458 0.82078 0.81873 0.82451 0.82888 0.82224 0.83153 + 0.83073 0.82950 0.83124 0.83679 0.83105 0.83251 0.84058 0.84304 + 0.84304 0.84304 0.84304 0.84304 + 0.72976 0.74602 0.74610 0.75349 0.75255 0.75542 0.76117 0.76563 + 0.77488 0.76883 0.77007 0.78259 0.78856 0.78582 0.79749 0.79366 + 0.81361 0.81368 0.81424 0.80942 0.81738 0.80754 0.81538 0.82350 + 0.82328 0.82472 0.82720 0.82630 0.82866 0.83617 0.83367 0.83568 + 0.83568 0.83568 0.83568 0.83568 + 0.70528 0.72458 0.73178 0.73531 0.73245 0.74332 0.73666 0.75222 + 0.75185 0.74640 0.75842 0.76418 0.76841 0.77077 0.77524 0.78354 + 0.78025 0.79604 0.78441 0.79697 0.79647 0.79580 0.80847 0.80850 + 0.81237 0.80887 0.81102 0.81887 0.82178 0.81740 0.82746 0.83016 + 0.83016 0.83016 0.83016 0.83016 + 0.68374 0.70641 0.71027 0.72410 0.71112 0.73031 0.71473 0.73100 + 0.73700 0.72762 0.73468 0.74077 0.74283 0.74551 0.75615 0.75715 + 0.76982 0.77626 0.77555 0.77618 0.78060 0.78318 0.78305 0.78909 + 0.78711 0.79306 0.79577 0.79751 0.79840 0.80580 0.80238 0.81321 + 0.81321 0.81321 0.81321 0.81321 + 0.65571 0.67669 0.68356 0.68689 0.69343 0.69710 0.70025 0.70528 + 0.71206 0.71428 0.72061 0.72861 0.73458 0.73894 0.74687 0.74952 + 0.75942 0.76135 0.76231 0.76192 0.76614 0.76515 0.76600 0.76918 + 0.76741 0.76895 0.77143 0.77597 0.77684 0.77974 0.78916 0.78896 + 0.78896 0.78896 0.78896 0.78896 + 0.76243 0.77996 0.78345 0.78645 0.78945 0.79253 0.79561 0.79853 + 0.80113 0.80332 0.80536 0.80785 0.81059 0.81244 0.81344 0.81421 + 0.81217 0.81178 0.81099 0.80953 0.80763 0.80619 0.80482 0.80256 + 0.79904 0.79627 0.79268 0.78774 0.78348 0.77744 0.77161 0.76740 + 0.76740 0.76740 0.76740 0.76740 + 0.09628 0.11109 0.11543 0.11940 0.12338 0.12757 0.13209 0.13708 + 0.14268 0.14909 0.15654 0.16537 0.17608 0.18939 0.20648 0.22930 + 0.26147 0.26956 0.27838 0.28802 0.29860 0.31028 0.32322 0.33762 + 0.35373 0.37186 0.39236 0.41566 0.44225 0.47268 0.50752 0.54723 + 0.54723 0.54723 0.54723 0.54723 + SALT 3 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 0.99935 0.99945 0.99947 0.99949 0.99951 0.99953 0.99954 0.99957 + 0.99959 0.99960 0.99962 0.99965 0.99967 0.99969 0.99971 0.99973 + 0.99976 0.99976 0.99977 0.99977 0.99978 0.99979 0.99979 0.99980 + 0.99980 0.99980 0.99981 0.99983 0.99984 0.99984 0.99985 0.99987 + 0.99987 0.99987 0.99987 0.99987 + 0.99586 0.99642 0.99654 0.99663 0.99672 0.99680 0.99689 0.99699 + 0.99708 0.99716 0.99725 0.99734 0.99744 0.99753 0.99762 0.99771 + 0.99777 0.99778 0.99779 0.99780 0.99779 0.99779 0.99779 0.99778 + 0.99776 0.99774 0.99771 0.99766 0.99761 0.99754 0.99745 0.99735 + 0.99735 0.99735 0.99735 0.99735 + 0.63630 0.34508 0.30898 0.28354 0.26308 0.24563 0.23025 0.21644 + 0.20389 0.19240 0.18187 0.17225 0.16356 0.15586 0.14931 0.14422 + 0.14113 0.14083 0.14067 0.14065 0.14080 0.14113 0.14168 0.14248 + 0.14357 0.14500 0.14685 0.14922 0.15225 0.15618 0.16132 0.16825 + 0.16825 0.16825 0.16825 0.16825 + SALT 4 ext + 0.28678 0.34479 0.36363 0.37600 0.39152 0.40353 0.42127 0.43432 + 0.45795 0.48190 0.50074 0.53549 0.56852 0.61227 0.66407 0.74207 + 0.85056 0.86794 0.89810 0.92900 0.95969 1.00254 1.04676 1.09560 + 1.15624 1.21737 1.29611 1.37209 1.47976 1.60247 1.79054 2.00314 + 2.00314 2.00314 2.00314 2.00314 + 0.29523 0.34812 0.36773 0.38347 0.39517 0.41056 0.42292 0.44620 + 0.47169 0.49141 0.50937 0.53810 0.57570 0.62439 0.67649 0.74484 + 0.85515 0.87765 0.90523 0.95186 0.98835 1.01791 1.05801 1.11765 + 1.15508 1.22751 1.30632 1.39110 1.49351 1.63523 1.79337 2.01633 + 2.01633 2.01633 2.01633 2.01633 + 0.29545 0.35900 0.36558 0.39061 0.39430 0.42287 0.42448 0.44922 + 0.46400 0.49267 0.51584 0.54150 0.58385 0.61542 0.68226 0.75699 + 0.85983 0.89170 0.92880 0.94532 0.98823 1.03348 1.07705 1.11552 + 1.15203 1.23630 1.31215 1.40360 1.48343 1.65374 1.81939 2.02310 + 2.02310 2.02310 2.02310 2.02310 + 0.29807 0.35715 0.36988 0.39089 0.39705 0.42126 0.42755 0.45203 + 0.46471 0.50479 0.52015 0.55423 0.60202 0.63173 0.69236 0.77782 + 0.87057 0.89151 0.91383 0.95970 0.98541 1.03075 1.07894 1.12318 + 1.18225 1.24235 1.32570 1.42460 1.52639 1.65778 1.83947 2.04714 + 2.04714 2.04714 2.04714 2.04714 + 0.31764 0.37403 0.39782 0.40535 0.43345 0.43360 0.46298 0.46632 + 0.50153 0.51672 0.53558 0.56444 0.59786 0.63702 0.69149 0.76081 + 0.86551 0.89720 0.92613 0.96596 0.99950 1.02757 1.07742 1.15115 + 1.18715 1.24806 1.36176 1.43988 1.53003 1.68196 1.83170 2.08062 + 2.08062 2.08062 2.08062 2.08062 + 0.33917 0.40106 0.41449 0.43310 0.44356 0.45986 0.47487 0.49139 + 0.50982 0.53253 0.55587 0.58272 0.61629 0.65826 0.70884 0.78228 + 0.88530 0.91005 0.94228 0.97548 1.01341 1.04926 1.10442 1.16237 + 1.22616 1.29635 1.39063 1.49281 1.63175 1.77579 1.98251 2.23862 + 2.23862 2.23862 2.23862 2.23862 + 0.09959 0.12078 0.12732 0.13342 0.13964 0.14627 0.15355 0.16169 + 0.17098 0.18177 0.19452 0.20992 0.22895 0.25314 0.28499 0.32895 + 0.39374 0.41059 0.42921 0.44991 0.47306 0.49914 0.52873 0.56261 + 0.60181 0.64769 0.70215 0.76790 0.84891 0.95131 1.08511 1.26777 + 1.26777 1.26777 1.26777 1.26777 + SALT 4 sca + 0.28678 0.34479 0.36363 0.37600 0.39152 0.40353 0.42127 0.43432 + 0.45795 0.48190 0.50074 0.53549 0.56852 0.61227 0.66407 0.74207 + 0.85056 0.86794 0.89810 0.92900 0.95969 1.00254 1.04676 1.09560 + 1.15624 1.21737 1.29611 1.37209 1.47976 1.60247 1.79054 2.00314 + 2.00314 2.00314 2.00314 2.00314 + 0.29523 0.34812 0.36773 0.38347 0.39517 0.41056 0.42292 0.44620 + 0.47169 0.49141 0.50937 0.53810 0.57570 0.62439 0.67649 0.74484 + 0.85515 0.87765 0.90523 0.95186 0.98835 1.01791 1.05801 1.11765 + 1.15508 1.22751 1.30632 1.39110 1.49351 1.63523 1.79337 2.01633 + 2.01633 2.01633 2.01633 2.01633 + 0.29545 0.35900 0.36558 0.39061 0.39430 0.42287 0.42448 0.44922 + 0.46400 0.49267 0.51584 0.54150 0.58385 0.61542 0.68226 0.75699 + 0.85983 0.89170 0.92880 0.94532 0.98823 1.03348 1.07705 1.11552 + 1.15203 1.23630 1.31215 1.40360 1.48343 1.65374 1.81939 2.02310 + 2.02310 2.02310 2.02310 2.02310 + 0.29807 0.35715 0.36988 0.39089 0.39705 0.42126 0.42755 0.45203 + 0.46471 0.50479 0.52015 0.55423 0.60202 0.63173 0.69236 0.77782 + 0.87057 0.89151 0.91383 0.95970 0.98541 1.03075 1.07894 1.12318 + 1.18225 1.24235 1.32570 1.42460 1.52639 1.65778 1.83947 2.04714 + 2.04714 2.04714 2.04714 2.04714 + 0.31716 0.37357 0.39733 0.40489 0.43298 0.43315 0.46250 0.46587 + 0.50108 0.51625 0.53513 0.56398 0.59739 0.63655 0.69102 0.76034 + 0.86505 0.89672 0.92567 0.96549 0.99900 1.02705 1.07691 1.15065 + 1.18664 1.24752 1.36122 1.43934 1.52949 1.68141 1.83109 2.08006 + 2.08006 2.08006 2.08006 2.08006 + 0.33464 0.39624 0.40969 0.42831 0.43871 0.45481 0.46995 0.48645 + 0.50471 0.52735 0.55072 0.57738 0.61085 0.65262 0.70304 0.77601 + 0.87866 0.90324 0.93528 0.96829 1.00592 1.04178 1.09658 1.15426 + 1.21770 1.28779 1.38148 1.48321 1.62112 1.76442 1.97021 2.22427 + 2.22427 2.22427 2.22427 2.22427 + 0.09031 0.08665 0.08628 0.08616 0.08621 0.08644 0.08687 0.08753 + 0.08848 0.08982 0.09166 0.09420 0.09773 0.10271 0.10994 0.12086 + 0.13843 0.14323 0.14862 0.15473 0.16169 0.16967 0.17890 0.18967 + 0.20237 0.21754 0.23594 0.25865 0.28728 0.32438 0.37414 0.44404 + 0.44404 0.44404 0.44404 0.44404 + SALT 4 asy + 0.78966 0.79973 0.80622 0.80966 0.80994 0.81338 0.81675 0.81770 + 0.81821 0.82425 0.82293 0.82529 0.82790 0.83335 0.83847 0.83653 + 0.84039 0.84565 0.84291 0.84906 0.84687 0.84685 0.84945 0.84818 + 0.85505 0.84847 0.85506 0.85547 0.85799 0.85891 0.85555 0.85995 + 0.85995 0.85995 0.85995 0.85995 + 0.78552 0.79907 0.80355 0.80757 0.80745 0.81151 0.80951 0.81563 + 0.81703 0.81763 0.82426 0.82260 0.82504 0.82959 0.83002 0.83641 + 0.83720 0.84233 0.84201 0.84443 0.84160 0.84746 0.84522 0.84603 + 0.84982 0.85282 0.84898 0.85256 0.85534 0.85784 0.85574 0.85847 + 0.85847 0.85847 0.85847 0.85847 + 0.77421 0.78543 0.79302 0.79115 0.79982 0.79300 0.80319 0.80039 + 0.81000 0.81490 0.80579 0.81016 0.81890 0.82010 0.82551 0.82835 + 0.83416 0.83651 0.83707 0.83719 0.83951 0.84344 0.84550 0.84359 + 0.84471 0.84778 0.84265 0.84667 0.85197 0.85293 0.85590 0.85415 + 0.85415 0.85415 0.85415 0.85415 + 0.76807 0.78501 0.79038 0.78673 0.79628 0.79297 0.80256 0.79525 + 0.80525 0.81412 0.80311 0.81074 0.81812 0.81489 0.82112 0.82734 + 0.82908 0.83137 0.83126 0.83286 0.83241 0.83724 0.83412 0.83267 + 0.83661 0.84172 0.84300 0.84367 0.84211 0.84616 0.84658 0.85245 + 0.85245 0.85245 0.85245 0.85245 + 0.76474 0.78563 0.77612 0.79421 0.77899 0.79523 0.78950 0.79935 + 0.80212 0.79567 0.80278 0.80748 0.81396 0.80948 0.81186 0.82029 + 0.82435 0.82120 0.82800 0.82456 0.82813 0.82990 0.82770 0.83823 + 0.84026 0.83403 0.83844 0.83855 0.84360 0.84288 0.84342 0.84116 + 0.84116 0.84116 0.84116 0.84116 + 0.68230 0.69870 0.70443 0.70435 0.71082 0.71268 0.71389 0.71798 + 0.71816 0.72375 0.72747 0.72961 0.73095 0.73781 0.73636 0.74905 + 0.75589 0.75485 0.76019 0.76110 0.76598 0.75898 0.77070 0.77457 + 0.77890 0.77518 0.78143 0.78741 0.80474 0.80424 0.81440 0.81811 + 0.81811 0.81811 0.81811 0.81811 + 0.54802 0.58865 0.59843 0.60678 0.61468 0.62252 0.63053 0.63888 + 0.64771 0.65720 0.66749 0.67881 0.69139 0.70556 0.72174 0.74054 + 0.76281 0.76777 0.77293 0.77829 0.78388 0.78969 0.79576 0.80209 + 0.80871 0.81565 0.82293 0.83061 0.83872 0.84735 0.85663 0.86678 + 0.86678 0.86678 0.86678 0.86678 + SALT 4 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 0.99848 0.99876 0.99876 0.99887 0.99891 0.99895 0.99895 0.99903 + 0.99910 0.99909 0.99915 0.99920 0.99921 0.99926 0.99933 0.99939 + 0.99947 0.99947 0.99950 0.99952 0.99950 0.99950 0.99953 0.99957 + 0.99957 0.99957 0.99961 0.99962 0.99965 0.99967 0.99967 0.99973 + 0.99973 0.99973 0.99973 0.99973 + 0.98663 0.98798 0.98842 0.98893 0.98907 0.98903 0.98964 0.98994 + 0.98997 0.99027 0.99074 0.99083 0.99117 0.99144 0.99181 0.99199 + 0.99251 0.99251 0.99258 0.99263 0.99260 0.99287 0.99290 0.99302 + 0.99311 0.99340 0.99342 0.99357 0.99348 0.99360 0.99379 0.99359 + 0.99359 0.99359 0.99359 0.99359 + 0.90682 0.71742 0.67764 0.64576 0.61739 0.59096 0.56573 0.54132 + 0.51749 0.49413 0.47120 0.44874 0.42686 0.40576 0.38576 0.36741 + 0.35157 0.34883 0.34628 0.34392 0.34180 0.33993 0.33835 0.33712 + 0.33627 0.33588 0.33603 0.33683 0.33841 0.34098 0.34479 0.35025 + 0.35025 0.35025 0.35025 0.35025 + SALT 5 ext + 0.09643 0.11755 0.12337 0.12773 0.13264 0.13741 0.14355 0.15074 + 0.15716 0.16508 0.17410 0.18502 0.19747 0.21427 0.23332 0.26070 + 0.29842 0.30761 0.31833 0.32981 0.34255 0.35642 0.37108 0.38932 + 0.41010 0.43224 0.45953 0.49200 0.52881 0.57738 0.63544 0.71459 + 0.71459 0.71459 0.71459 0.71459 + 0.09698 0.11795 0.12387 0.12928 0.13293 0.13784 0.14441 0.15091 + 0.15821 0.16554 0.17590 0.18555 0.20012 0.21502 0.23584 0.26252 + 0.29898 0.30900 0.32010 0.33090 0.34334 0.35787 0.37326 0.39082 + 0.41146 0.43484 0.46006 0.49321 0.53072 0.57858 0.64014 0.71840 + 0.71840 0.71840 0.71840 0.71840 + 0.09724 0.11775 0.12376 0.13029 0.13485 0.13841 0.14475 0.15184 + 0.15778 0.16638 0.17635 0.18745 0.19996 0.21583 0.23759 0.26346 + 0.30138 0.31091 0.32159 0.33148 0.34406 0.36030 0.37520 0.39263 + 0.41274 0.43571 0.46319 0.49560 0.53377 0.58079 0.64173 0.72059 + 0.72059 0.72059 0.72059 0.72059 + 0.09874 0.11962 0.12508 0.13032 0.13469 0.13928 0.14655 0.15336 + 0.15872 0.16969 0.17734 0.18836 0.20079 0.21750 0.23698 0.26599 + 0.30194 0.31324 0.32016 0.33486 0.34699 0.36200 0.37749 0.39584 + 0.41488 0.43934 0.46452 0.49648 0.53564 0.57939 0.64258 0.72188 + 0.72188 0.72188 0.72188 0.72188 + 0.10030 0.12208 0.12708 0.13318 0.13812 0.14178 0.14685 0.15288 + 0.16130 0.16957 0.17760 0.18973 0.20355 0.22030 0.23881 0.26651 + 0.30465 0.31554 0.32544 0.33517 0.34894 0.36642 0.37955 0.39876 + 0.41578 0.44019 0.46856 0.50015 0.53696 0.58517 0.64926 0.72099 + 0.72099 0.72099 0.72099 0.72099 + 0.10429 0.12331 0.13229 0.13588 0.13949 0.14529 0.15109 0.15845 + 0.16990 0.17429 0.18438 0.19739 0.20771 0.22388 0.24533 0.27375 + 0.31679 0.32685 0.33765 0.34935 0.36077 0.37476 0.38956 0.40891 + 0.42555 0.45003 0.47617 0.50964 0.55034 0.60692 0.65785 0.74288 + 0.74288 0.74288 0.74288 0.74288 + 0.17092 0.18057 0.18349 0.18624 0.18909 0.19217 0.19560 0.19953 + 0.20412 0.20957 0.21617 0.22430 0.23453 0.24773 0.26533 0.28977 + 0.32569 0.33497 0.34519 0.35651 0.36910 0.38320 0.39910 0.41716 + 0.43786 0.46184 0.48997 0.52344 0.56401 0.61432 0.67856 0.76389 + 0.76389 0.76389 0.76389 0.76389 + SALT 5 sca + 0.09643 0.11755 0.12337 0.12773 0.13264 0.13741 0.14355 0.15074 + 0.15716 0.16508 0.17410 0.18502 0.19747 0.21427 0.23332 0.26070 + 0.29842 0.30761 0.31833 0.32981 0.34255 0.35642 0.37108 0.38932 + 0.41010 0.43224 0.45953 0.49200 0.52881 0.57738 0.63544 0.71459 + 0.71459 0.71459 0.71459 0.71459 + 0.09698 0.11795 0.12387 0.12928 0.13293 0.13784 0.14441 0.15091 + 0.15821 0.16554 0.17590 0.18555 0.20012 0.21502 0.23584 0.26252 + 0.29898 0.30900 0.32010 0.33090 0.34334 0.35787 0.37326 0.39082 + 0.41146 0.43484 0.46006 0.49321 0.53072 0.57858 0.64014 0.71840 + 0.71840 0.71840 0.71840 0.71840 + 0.09724 0.11775 0.12376 0.13029 0.13485 0.13841 0.14475 0.15184 + 0.15778 0.16638 0.17635 0.18745 0.19996 0.21583 0.23759 0.26346 + 0.30138 0.31091 0.32159 0.33148 0.34406 0.36030 0.37520 0.39263 + 0.41274 0.43571 0.46319 0.49560 0.53377 0.58079 0.64173 0.72059 + 0.72059 0.72059 0.72059 0.72059 + 0.09874 0.11962 0.12508 0.13032 0.13469 0.13928 0.14655 0.15336 + 0.15872 0.16969 0.17734 0.18836 0.20079 0.21750 0.23698 0.26599 + 0.30194 0.31324 0.32016 0.33486 0.34699 0.36200 0.37749 0.39584 + 0.41488 0.43934 0.46452 0.49648 0.53564 0.57939 0.64258 0.72188 + 0.72188 0.72188 0.72188 0.72188 + 0.09989 0.12165 0.12666 0.13277 0.13770 0.14137 0.14644 0.15247 + 0.16088 0.16916 0.17719 0.18931 0.20313 0.21988 0.23838 0.26610 + 0.30420 0.31510 0.32499 0.33474 0.34848 0.36599 0.37910 0.39829 + 0.41530 0.43971 0.46807 0.49965 0.53647 0.58467 0.64872 0.72041 + 0.72041 0.72041 0.72041 0.72041 + 0.10033 0.11920 0.12825 0.13175 0.13520 0.14095 0.14670 0.15403 + 0.16571 0.16987 0.17987 0.19273 0.20293 0.21882 0.24005 0.26826 + 0.31071 0.32052 0.33132 0.34301 0.35427 0.36777 0.38206 0.40152 + 0.41779 0.44195 0.46766 0.50073 0.54058 0.59641 0.64590 0.72970 + 0.72970 0.72970 0.72970 0.72970 + 0.15903 0.14384 0.14125 0.13935 0.13782 0.13657 0.13555 0.13480 + 0.13436 0.13429 0.13471 0.13579 0.13776 0.14105 0.14629 0.15467 + 0.16839 0.17212 0.17630 0.18100 0.18631 0.19235 0.19924 0.20718 + 0.21640 0.22720 0.24001 0.25543 0.27430 0.29793 0.32837 0.36912 + 0.36912 0.36912 0.36912 0.36912 + SALT 5 asy + 0.81216 0.82558 0.82805 0.83098 0.83256 0.83503 0.83724 0.83931 + 0.84274 0.84347 0.84516 0.85073 0.85161 0.85190 0.85722 0.85909 + 0.86238 0.86154 0.86524 0.86185 0.86313 0.86546 0.86514 0.86688 + 0.86441 0.86730 0.86592 0.86607 0.86782 0.86785 0.87010 0.87102 + 0.87102 0.87102 0.87102 0.87102 + 0.81106 0.82332 0.82823 0.82902 0.83166 0.83470 0.83834 0.84028 + 0.84187 0.83981 0.84477 0.84827 0.85129 0.85431 0.85466 0.86004 + 0.86403 0.86397 0.86260 0.86276 0.86317 0.86529 0.86411 0.86424 + 0.86619 0.86708 0.86709 0.86762 0.86965 0.86896 0.87021 0.87048 + 0.87048 0.87048 0.87048 0.87048 + 0.80878 0.82122 0.82580 0.82549 0.82834 0.83132 0.83607 0.83839 + 0.83801 0.84247 0.84578 0.84579 0.84533 0.85300 0.85610 0.85852 + 0.86004 0.86218 0.86196 0.86026 0.86161 0.86297 0.86424 0.86247 + 0.86416 0.86616 0.86741 0.86782 0.86763 0.86933 0.86980 0.87053 + 0.87053 0.87053 0.87053 0.87053 + 0.80547 0.82053 0.82116 0.82511 0.82854 0.82863 0.83457 0.83600 + 0.83616 0.83751 0.84347 0.84337 0.84370 0.84617 0.85207 0.85365 + 0.86133 0.85792 0.85954 0.86267 0.86251 0.85961 0.86262 0.86262 + 0.86153 0.86574 0.86746 0.86508 0.86627 0.86909 0.87054 0.87155 + 0.87155 0.87155 0.87155 0.87155 + 0.80210 0.81599 0.81957 0.81945 0.82324 0.82453 0.82729 0.82948 + 0.83330 0.83353 0.83909 0.84194 0.84288 0.84545 0.85143 0.85424 + 0.85516 0.85651 0.85538 0.85564 0.85719 0.85741 0.86149 0.85865 + 0.86039 0.86298 0.86469 0.86341 0.86683 0.86734 0.86819 0.86978 + 0.86978 0.86978 0.86978 0.86978 + 0.80025 0.81055 0.81467 0.81561 0.81602 0.81694 0.81895 0.82146 + 0.82557 0.83141 0.82818 0.83536 0.83079 0.83537 0.84518 0.84386 + 0.84909 0.84846 0.85173 0.85441 0.85474 0.85343 0.85191 0.85315 + 0.85832 0.85555 0.85904 0.86298 0.86548 0.86232 0.86384 0.86685 + 0.86685 0.86685 0.86685 0.86685 + 0.76518 0.83568 0.84783 0.85708 0.86498 0.87209 0.87867 0.88489 + 0.89086 0.89669 0.90241 0.90809 0.91376 0.91950 0.92537 0.93143 + 0.93776 0.93907 0.94040 0.94176 0.94315 0.94457 0.94603 0.94754 + 0.94909 0.95069 0.95234 0.95405 0.95585 0.95773 0.95975 0.96191 + 0.96191 0.96191 0.96191 0.96191 + SALT 5 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 0.99589 0.99653 0.99672 0.99688 0.99699 0.99712 0.99722 0.99728 + 0.99741 0.99760 0.99766 0.99778 0.99794 0.99812 0.99819 0.99844 + 0.99855 0.99862 0.99863 0.99870 0.99869 0.99881 0.99881 0.99882 + 0.99885 0.99892 0.99896 0.99900 0.99910 0.99914 0.99917 0.99919 + 0.99919 0.99919 0.99919 0.99919 + 0.96210 0.96664 0.96948 0.96966 0.96926 0.97015 0.97096 0.97211 + 0.97531 0.97464 0.97555 0.97641 0.97698 0.97742 0.97849 0.97994 + 0.98081 0.98062 0.98124 0.98186 0.98199 0.98134 0.98077 0.98192 + 0.98177 0.98205 0.98212 0.98251 0.98227 0.98268 0.98183 0.98225 + 0.98225 0.98225 0.98225 0.98225 + 0.93041 0.79658 0.76977 0.74821 0.72888 0.71066 0.69301 0.67560 + 0.65823 0.64077 0.62316 0.60537 0.58741 0.56935 0.55136 0.53375 + 0.51702 0.51384 0.51074 0.50771 0.50478 0.50195 0.49923 0.49665 + 0.49421 0.49194 0.48985 0.48798 0.48634 0.48498 0.48392 0.48321 + 0.48321 0.48321 0.48321 0.48321 diff --git a/parm/optics_luts_SOOT_nasa.dat b/parm/optics_luts_SOOT_nasa.dat new file mode 100644 index 000000000..0281afce1 --- /dev/null +++ b/parm/optics_luts_SOOT_nasa.dat @@ -0,0 +1,288 @@ + SOOT 1 ext + 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 + 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 + 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 + 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 + 17.07566 17.07566 17.07566 17.07566 + 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 + 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 + 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 + 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 + 12.37106 12.37106 12.37106 12.37106 + 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 + 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 + 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 + 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 + 9.28480 9.28480 9.28480 9.28480 + 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 + 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 + 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 + 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 + 6.56657 6.56657 6.56657 6.56657 + 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 + 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 + 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 + 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 + 4.70828 4.70828 4.70828 4.70828 + 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 + 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 + 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 + 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 + 2.18240 2.18240 2.18240 2.18240 + 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 + 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 + 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 + 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 + 0.30928 0.30928 0.30928 0.30928 + SOOT 1 sca + 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 + 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 + 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 + 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 + 4.95749 4.95749 4.95749 4.95749 + 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 + 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 + 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 + 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 + 3.03268 3.03268 3.03268 3.03268 + 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 + 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 + 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 + 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 + 1.93167 1.93167 1.93167 1.93167 + 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 + 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 + 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 + 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 + 1.05247 1.05247 1.05247 1.05247 + 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 + 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 + 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 + 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 + 0.52130 0.52130 0.52130 0.52130 + 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 + 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 + 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 + 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 + 0.06129 0.06129 0.06129 0.06129 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 + SOOT 1 asy + 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 + 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 + 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 + 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 + 0.42162 0.42162 0.42162 0.42162 + 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 + 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 + 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 + 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 + 0.37188 0.37188 0.37188 0.37188 + 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 + 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 + 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 + 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 + 0.33357 0.33357 0.33357 0.33357 + 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 + 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 + 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 + 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 + 0.28541 0.28541 0.28541 0.28541 + 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 + 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 + 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 + 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 + 0.23111 0.23111 0.23111 0.23111 + 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 + 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 + 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 + 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 + 0.09029 0.09029 0.09029 0.09029 + 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 + 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 + 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 + 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 + 0.00256 0.00256 0.00256 0.00256 + SOOT 1 ssa + 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 + 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 + 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 + 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 + 0.29033 0.29033 0.29033 0.29033 + 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 + 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 + 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 + 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 + 0.24514 0.24514 0.24514 0.24514 + 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 + 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 + 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 + 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 + 0.20805 0.20805 0.20805 0.20805 + 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 + 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 + 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 + 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 + 0.16028 0.16028 0.16028 0.16028 + 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 + 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 + 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 + 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 + 0.11072 0.11072 0.11072 0.11072 + 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 + 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 + 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 + 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 + 0.02808 0.02808 0.02808 0.02808 + 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 + 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 + 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 + 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 + 0.00019 0.00019 0.00019 0.00019 + SOOT 2 ext + 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 17.07566 + 17.07566 17.07566 17.07566 17.07566 17.28971 17.28971 17.71600 19.20973 + 21.20762 21.67302 22.14842 22.63472 23.13284 23.90404 24.43542 24.98152 + 25.54314 26.12104 27.02001 27.64177 28.60980 29.27974 30.68176 31.79048 + 33.34959 35.87160 39.07785 48.41591 + 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 12.37106 + 12.37106 12.37106 12.37106 12.37106 12.52116 12.52116 12.81778 13.83462 + 15.15072 15.45197 15.75811 16.06984 16.38784 16.87801 17.21449 17.55941 + 17.91336 18.27692 18.84144 19.23134 19.83785 20.25735 21.13501 21.82906 + 22.80543 24.38717 26.40318 32.32547 + 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 9.28480 + 9.28480 9.28480 9.28480 9.28480 9.39589 9.39589 9.61413 10.34944 + 11.27463 11.48298 11.69365 11.90716 12.12406 12.45682 12.68431 12.91683 + 13.15484 13.39875 13.77662 14.03712 14.44174 14.72129 15.30560 15.76733 + 16.41663 17.46853 18.80973 22.77365 + 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 6.56657 + 6.56657 6.56657 6.56657 6.56657 6.64430 6.64430 6.79591 7.29545 + 7.89980 8.03260 8.16581 8.29983 8.43503 8.64081 8.78049 8.92251 + 9.06721 9.21486 9.44253 9.59884 9.84077 10.00743 10.35479 10.62862 + 11.01305 11.63510 12.42601 14.77543 + 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 4.70828 + 4.70828 4.70828 4.70828 4.70828 4.76372 4.76372 4.87098 5.21531 + 5.61170 5.69590 5.77938 5.86243 5.94531 6.06990 6.15346 6.23770 + 6.32281 6.40901 6.54076 6.63051 6.76846 6.86288 7.05842 7.21156 + 7.42544 7.76956 8.20350 9.49381 + 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 2.18240 + 2.18240 2.18240 2.18240 2.18240 2.21140 2.21140 2.26676 2.43597 + 2.60977 2.64334 2.67544 2.70619 2.73575 2.77810 2.80518 2.83145 + 2.85701 2.88196 2.91839 2.94214 2.97713 3.00012 3.04562 3.07952 + 3.12477 3.19353 3.27341 3.49726 + 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 0.30928 + 0.30928 0.30928 0.30928 0.30928 0.32082 0.32082 0.34409 0.42672 + 0.53363 0.55736 0.58108 0.60479 0.62851 0.66414 0.68796 0.71184 + 0.73582 0.75991 0.79630 0.82076 0.85783 0.88281 0.93353 0.97231 + 1.02513 1.10707 1.20632 1.47435 + SOOT 2 sca + 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 4.95749 + 4.95749 4.95749 4.95749 4.95749 5.04887 5.04887 5.23835 5.98038 + 7.14630 7.44252 7.75349 8.07976 8.42193 8.96624 9.35067 9.75301 + 10.17386 10.61381 11.31083 11.80109 12.57628 13.12045 14.27706 15.20661 + 16.53274 18.71758 21.56316 30.05949 + 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 3.03268 + 3.03268 3.03268 3.03268 3.03268 3.08888 3.08888 3.20522 3.65914 + 4.37029 4.55091 4.74055 4.93960 5.14842 5.48084 5.71581 5.96191 + 6.21954 6.48910 6.91669 7.21782 7.69465 8.02987 8.74375 9.31879 + 10.14108 11.50054 13.28035 18.65006 + 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 1.93167 + 1.93167 1.93167 1.93167 1.93167 1.96836 1.96836 2.04424 2.33955 + 2.80118 2.91838 3.04146 3.17067 3.30626 3.52221 3.67493 3.83498 + 4.00261 4.17811 4.45673 4.65314 4.96446 5.18357 5.65084 6.02790 + 6.56802 7.46323 8.63904 12.21558 + 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 1.05247 + 1.05247 1.05247 1.05247 1.05247 1.07317 1.07317 1.11596 1.28224 + 1.54207 1.60809 1.67746 1.75033 1.82686 1.94887 2.03525 2.12585 + 2.22084 2.32039 2.47865 2.59036 2.76768 2.89266 3.15971 3.37569 + 3.68584 4.20182 4.88226 6.97311 + 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 0.52130 + 0.52130 0.52130 0.52130 0.52130 0.53187 0.53187 0.55369 0.63839 + 0.77080 0.80450 0.83994 0.87719 0.91636 0.97888 1.02321 1.06975 + 1.11862 1.16990 1.25154 1.30928 1.40108 1.46590 1.60471 1.71726 + 1.87933 2.15002 2.50852 3.62305 + 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 0.06129 + 0.06129 0.06129 0.06129 0.06129 0.06271 0.06271 0.06561 0.07669 + 0.09367 0.09796 0.10247 0.10720 0.11217 0.12010 0.12573 0.13164 + 0.13785 0.14438 0.15479 0.16217 0.17394 0.18227 0.20018 0.21477 + 0.23588 0.27143 0.31883 0.47022 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00008 + 0.00010 0.00010 0.00010 0.00011 0.00011 0.00012 0.00012 0.00013 + 0.00013 0.00014 0.00015 0.00015 0.00016 0.00017 0.00018 0.00019 + 0.00020 0.00022 0.00025 0.00033 + SOOT 2 asy + 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 0.42162 + 0.42162 0.42162 0.42162 0.42162 0.42665 0.42665 0.43643 0.46813 + 0.50371 0.51091 0.51788 0.52462 0.53115 0.54054 0.54656 0.55238 + 0.55802 0.56349 0.57137 0.57642 0.58370 0.58838 0.59730 0.60365 + 0.61169 0.62292 0.63482 0.65940 + 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 0.37188 + 0.37188 0.37188 0.37188 0.37188 0.37646 0.37646 0.38540 0.41475 + 0.44847 0.45541 0.46217 0.46874 0.47513 0.48441 0.49039 0.49622 + 0.50189 0.50742 0.51544 0.52062 0.52814 0.53300 0.54234 0.54905 + 0.55761 0.56969 0.58271 0.61027 + 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 0.33357 + 0.33357 0.33357 0.33357 0.33357 0.33768 0.33768 0.34574 0.37246 + 0.40371 0.41023 0.41660 0.42283 0.42892 0.43780 0.44356 0.44919 + 0.45470 0.46009 0.46796 0.47307 0.48053 0.48537 0.49475 0.50153 + 0.51024 0.52264 0.53612 0.56532 + 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 0.28541 + 0.28541 0.28541 0.28541 0.28541 0.28893 0.28893 0.29586 0.31911 + 0.34694 0.35283 0.35863 0.36433 0.36993 0.37816 0.38353 0.38881 + 0.39401 0.39912 0.40662 0.41152 0.41871 0.42341 0.43258 0.43926 + 0.44792 0.46039 0.47407 0.50446 + 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 0.23111 + 0.23111 0.23111 0.23111 0.23111 0.23402 0.23402 0.23980 0.25945 + 0.28357 0.28877 0.29392 0.29901 0.30404 0.31149 0.31639 0.32123 + 0.32602 0.33075 0.33774 0.34234 0.34913 0.35359 0.36234 0.36877 + 0.37717 0.38938 0.40289 0.43380 + 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 0.09029 + 0.09029 0.09029 0.09029 0.09029 0.09154 0.09154 0.09406 0.10322 + 0.11574 0.11863 0.12155 0.12452 0.12751 0.13207 0.13514 0.13825 + 0.14138 0.14454 0.14932 0.15253 0.15739 0.16065 0.16721 0.17216 + 0.17879 0.18877 0.19988 0.22757 + 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 0.00256 + 0.00256 0.00256 0.00256 0.00256 0.00258 0.00258 0.00261 0.00274 + 0.00296 0.00302 0.00308 0.00314 0.00321 0.00331 0.00338 0.00345 + 0.00352 0.00360 0.00371 0.00379 0.00391 0.00400 0.00417 0.00430 + 0.00449 0.00477 0.00511 0.00603 + SOOT 2 ssa + 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 0.29033 + 0.29033 0.29033 0.29033 0.29033 0.29202 0.29202 0.29568 0.31132 + 0.33697 0.34340 0.35007 0.35696 0.36407 0.37509 0.38267 0.39041 + 0.39830 0.40633 0.41861 0.42693 0.43958 0.44811 0.46533 0.47834 + 0.49574 0.52179 0.55180 0.62086 + 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 0.24514 + 0.24514 0.24514 0.24514 0.24514 0.24669 0.24669 0.25006 0.26449 + 0.28845 0.29452 0.30083 0.30738 0.31416 0.32473 0.33203 0.33953 + 0.34720 0.35504 0.36710 0.37532 0.38788 0.39639 0.41371 0.42690 + 0.44468 0.47158 0.50298 0.57695 + 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 0.20805 + 0.20805 0.20805 0.20805 0.20805 0.20949 0.20949 0.21263 0.22606 + 0.24845 0.25415 0.26010 0.26628 0.27270 0.28275 0.28972 0.29690 + 0.30427 0.31183 0.32350 0.33149 0.34376 0.35211 0.36920 0.38230 + 0.40008 0.42724 0.45929 0.53639 + 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 0.16028 + 0.16028 0.16028 0.16028 0.16028 0.16152 0.16152 0.16421 0.17576 + 0.19520 0.20020 0.20542 0.21089 0.21658 0.22554 0.23179 0.23826 + 0.24493 0.25181 0.26250 0.26986 0.28125 0.28905 0.30514 0.31760 + 0.33468 0.36113 0.39291 0.47194 + 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 0.11072 + 0.11072 0.11072 0.11072 0.11072 0.11165 0.11165 0.11367 0.12241 + 0.13736 0.14124 0.14533 0.14963 0.15413 0.16127 0.16628 0.17150 + 0.17692 0.18254 0.19135 0.19746 0.20700 0.21360 0.22735 0.23813 + 0.25309 0.27672 0.30579 0.38162 + 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 0.02808 + 0.02808 0.02808 0.02808 0.02808 0.02836 0.02836 0.02895 0.03148 + 0.03589 0.03706 0.03830 0.03961 0.04100 0.04323 0.04482 0.04649 + 0.04825 0.05010 0.05304 0.05512 0.05843 0.06075 0.06573 0.06974 + 0.07549 0.08499 0.09740 0.13445 + 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 + 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00019 0.00018 + 0.00018 0.00018 0.00018 0.00018 0.00018 0.00018 0.00018 0.00018 + 0.00018 0.00018 0.00018 0.00018 0.00019 0.00019 0.00019 0.00019 + 0.00019 0.00020 0.00021 0.00022 diff --git a/parm/optics_luts_SUSO_nasa.dat b/parm/optics_luts_SUSO_nasa.dat new file mode 100644 index 000000000..fcac681bc --- /dev/null +++ b/parm/optics_luts_SUSO_nasa.dat @@ -0,0 +1,144 @@ + SUSO 1 ext + 6.71789 7.34575 7.99075 8.69091 9.46875 10.28886 10.88757 11.69475 + 12.58755 13.58692 14.57186 15.45897 16.14637 17.20462 18.43179 19.75682 + 20.87125 21.11399 21.37268 21.83684 22.12476 22.40634 22.94827 23.21259 + 23.74240 24.01264 24.57235 25.16338 26.10538 26.74188 27.61039 28.66330 + 29.51034 31.20347 33.07931 36.51160 + 4.56469 5.05605 5.59972 6.19833 6.83680 7.50620 8.03742 8.79841 + 9.62224 10.49918 11.40579 12.33402 13.05920 14.08798 15.19487 16.63693 + 18.05379 18.33612 18.62061 18.85984 19.16473 19.47312 20.09947 20.41711 + 21.06072 21.38618 22.04172 22.69888 23.68203 24.33858 25.33589 26.71131 + 27.78360 29.60982 31.73057 35.83813 + 3.14876 3.51491 3.92393 4.37623 4.86752 5.39512 5.81631 6.41614 + 7.06412 7.76499 8.52076 9.32423 9.95116 10.81829 11.73202 12.96055 + 14.29072 14.56739 14.84690 15.04713 15.32685 15.60860 16.17821 16.46629 + 17.04988 17.34579 17.94658 18.55992 19.50413 20.15041 21.14712 22.52597 + 23.58572 25.36972 27.56503 31.91403 + 1.82579 2.06308 2.32959 2.62587 2.95159 3.30674 3.59292 4.00240 + 4.44632 4.92837 5.45257 6.02159 6.47768 7.12267 7.80725 8.71914 + 9.70009 9.90532 10.11373 10.27319 10.48705 10.70418 11.14840 11.37555 + 11.83994 12.07714 12.56131 13.05802 13.82523 14.35071 15.15937 16.27657 + 17.14529 18.65638 20.58504 24.44678 + 0.92838 1.06685 1.22116 1.39201 1.58036 1.78749 1.95614 2.20038 + 2.46891 2.76416 3.08839 3.44323 3.72997 4.13989 4.58131 5.17757 + 5.82470 5.96047 6.09842 6.20188 6.34365 6.48770 6.78283 6.93399 + 7.24369 7.40232 7.72734 8.06294 8.58670 8.94968 9.51495 10.30721 + 10.92983 12.02068 13.41759 16.24252 + 0.09352 0.11136 0.13200 0.15573 0.18286 0.21368 0.23942 0.27750 + 0.32019 0.36783 0.42078 0.47945 0.52745 0.59713 0.67376 0.78014 + 0.89937 0.92486 0.95094 0.97126 0.99834 1.02603 1.08326 1.11283 + 1.17394 1.20550 1.27070 1.33875 1.44638 1.52199 1.64142 1.81240 + 1.94984 2.19729 2.52602 3.22413 + 0.13152 0.14817 0.16530 0.18291 0.20105 0.21977 0.23423 0.25411 + 0.27473 0.29617 0.31849 0.34174 0.35983 0.38488 0.41101 0.44531 + 0.48151 0.48899 0.49655 0.50211 0.50980 0.51756 0.53334 0.54136 + 0.55765 0.56593 0.58274 0.59991 0.62634 0.64442 0.67225 0.71069 + 0.74054 0.79231 0.85784 0.98808 + SUSO 1 sca + 6.71789 7.34575 7.99075 8.69091 9.46875 10.28886 10.88757 11.69475 + 12.58755 13.58692 14.57186 15.45897 16.14637 17.20462 18.43179 19.75682 + 20.87125 21.11399 21.37268 21.83684 22.12476 22.40634 22.94827 23.21259 + 23.74240 24.01264 24.57235 25.16338 26.10538 26.74188 27.61039 28.66330 + 29.51034 31.20347 33.07931 36.51160 + 4.56469 5.05605 5.59972 6.19833 6.83680 7.50620 8.03742 8.79841 + 9.62224 10.49918 11.40579 12.33402 13.05920 14.08798 15.19487 16.63693 + 18.05379 18.33612 18.62061 18.85984 19.16473 19.47312 20.09947 20.41711 + 21.06072 21.38618 22.04172 22.69888 23.68203 24.33858 25.33589 26.71131 + 27.78360 29.60982 31.73057 35.83813 + 3.14876 3.51491 3.92393 4.37623 4.86752 5.39512 5.81631 6.41614 + 7.06412 7.76499 8.52076 9.32423 9.95116 10.81829 11.73202 12.96055 + 14.29072 14.56739 14.84690 15.04713 15.32685 15.60860 16.17821 16.46629 + 17.04988 17.34579 17.94658 18.55992 19.50413 20.15041 21.14712 22.52597 + 23.58572 25.36972 27.56503 31.91403 + 1.82579 2.06308 2.32959 2.62587 2.95159 3.30674 3.59292 4.00240 + 4.44632 4.92837 5.45257 6.02159 6.47768 7.12267 7.80725 8.71914 + 9.70009 9.90532 10.11373 10.27319 10.48705 10.70418 11.14840 11.37555 + 11.83994 12.07714 12.56131 13.05802 13.82523 14.35071 15.15937 16.27657 + 17.14529 18.65638 20.58504 24.44678 + 0.92838 1.06685 1.22116 1.39201 1.58036 1.78749 1.95614 2.20038 + 2.46891 2.76416 3.08839 3.44323 3.72997 4.13989 4.58131 5.17757 + 5.82470 5.96047 6.09842 6.20188 6.34365 6.48770 6.78283 6.93399 + 7.24369 7.40232 7.72734 8.06294 8.58670 8.94968 9.51495 10.30721 + 10.92983 12.02068 13.41749 16.24240 + 0.09183 0.10960 0.13016 0.15380 0.18083 0.21156 0.23722 0.27519 + 0.31776 0.36527 0.41809 0.47662 0.52451 0.59403 0.67050 0.77666 + 0.89565 0.92110 0.94712 0.96741 0.99444 1.02208 1.07920 1.10872 + 1.16972 1.20122 1.26630 1.33423 1.44169 1.51717 1.63640 1.80711 + 1.94434 2.19142 2.51968 3.21685 + 0.00024 0.00026 0.00029 0.00032 0.00034 0.00037 0.00040 0.00043 + 0.00047 0.00051 0.00055 0.00060 0.00063 0.00068 0.00074 0.00082 + 0.00091 0.00093 0.00094 0.00096 0.00098 0.00100 0.00104 0.00106 + 0.00110 0.00113 0.00117 0.00122 0.00130 0.00135 0.00144 0.00156 + 0.00166 0.00184 0.00208 0.00260 + SUSO 1 asy + 0.73442 0.74363 0.75072 0.75644 0.76211 0.76813 0.77198 0.77519 + 0.77734 0.78012 0.78421 0.78667 0.78688 0.78638 0.78772 0.79193 + 0.79150 0.79087 0.79014 0.79018 0.79041 0.79071 0.79131 0.79148 + 0.79146 0.79127 0.79064 0.78983 0.78880 0.78878 0.78986 0.79011 + 0.78866 0.78513 0.78748 0.78044 + 0.71367 0.72361 0.73269 0.74114 0.74865 0.75515 0.75966 0.76545 + 0.77097 0.77606 0.78043 0.78390 0.78613 0.78904 0.79214 0.79609 + 0.79898 0.79936 0.79969 0.79965 0.80003 0.80041 0.80114 0.80150 + 0.80220 0.80257 0.80332 0.80409 0.80511 0.80561 0.80609 0.80642 + 0.80669 0.80752 0.80824 0.80691 + 0.67090 0.68247 0.69360 0.70411 0.71374 0.72250 0.72861 0.73623 + 0.74327 0.74979 0.75584 0.76133 0.76504 0.76954 0.77381 0.77904 + 0.78405 0.78500 0.78592 0.78647 0.78731 0.78812 0.78963 0.79034 + 0.79170 0.79234 0.79359 0.79478 0.79650 0.79761 0.79925 0.80146 + 0.80308 0.80534 0.80724 0.81015 + 0.59425 0.61000 0.62506 0.63900 0.65163 0.66299 0.67076 0.68032 + 0.68918 0.69757 0.70563 0.71337 0.71890 0.72584 0.73227 0.73975 + 0.74672 0.74806 0.74938 0.75033 0.75161 0.75287 0.75533 0.75653 + 0.75887 0.76002 0.76224 0.76437 0.76740 0.76932 0.77205 0.77548 + 0.77794 0.78187 0.78640 0.79387 + 0.49908 0.51627 0.53162 0.54560 0.55865 0.57115 0.58033 0.59246 + 0.60452 0.61644 0.62809 0.63924 0.64718 0.65711 0.66624 0.67662 + 0.68601 0.68779 0.68954 0.69080 0.69250 0.69419 0.69750 0.69912 + 0.70231 0.70388 0.70697 0.71001 0.71445 0.71735 0.72157 0.72697 + 0.73085 0.73698 0.74385 0.75527 + 0.14193 0.15301 0.16460 0.17668 0.18925 0.20232 0.21244 0.22635 + 0.24072 0.25552 0.27073 0.28629 0.29817 0.31424 0.33051 0.35098 + 0.37145 0.37552 0.37959 0.38293 0.38695 0.39096 0.39891 0.40285 + 0.41068 0.41455 0.42221 0.42976 0.44081 0.44800 0.45847 0.47184 + 0.48138 0.49633 0.51273 0.53874 + 0.00417 0.00433 0.00451 0.00471 0.00492 0.00515 0.00533 0.00559 + 0.00586 0.00614 0.00643 0.00674 0.00698 0.00730 0.00764 0.00808 + 0.00854 0.00863 0.00872 0.00882 0.00891 0.00901 0.00920 0.00930 + 0.00950 0.00960 0.00980 0.01000 0.01031 0.01052 0.01084 0.01128 + 0.01161 0.01218 0.01288 0.01423 + SUSO 1 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 0.99999 0.99999 + 0.98197 0.98416 0.98601 0.98758 0.98891 0.99005 0.99079 0.99166 + 0.99241 0.99305 0.99361 0.99410 0.99443 0.99482 0.99516 0.99554 + 0.99587 0.99593 0.99599 0.99604 0.99609 0.99615 0.99625 0.99630 + 0.99640 0.99645 0.99654 0.99663 0.99675 0.99683 0.99694 0.99708 + 0.99718 0.99733 0.99749 0.99774 + 0.00180 0.00177 0.00174 0.00173 0.00171 0.00170 0.00170 0.00170 + 0.00171 0.00171 0.00173 0.00174 0.00176 0.00178 0.00180 0.00184 + 0.00188 0.00189 0.00190 0.00191 0.00192 0.00193 0.00195 0.00196 + 0.00198 0.00199 0.00201 0.00204 0.00208 0.00210 0.00214 0.00220 + 0.00225 0.00232 0.00243 0.00263 diff --git a/parm/optics_luts_WASO_nasa.dat b/parm/optics_luts_WASO_nasa.dat new file mode 100644 index 000000000..13ecd5258 --- /dev/null +++ b/parm/optics_luts_WASO_nasa.dat @@ -0,0 +1,288 @@ + WASO 1 ext + 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 + 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 + 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 + 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 5.79780 + 5.79780 5.79780 5.79780 5.79780 + 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 + 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 + 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 + 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 3.93101 + 3.93101 3.93101 3.93101 3.93101 + 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 + 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 + 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 + 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 2.67214 + 2.67214 2.67214 2.67214 2.67214 + 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 + 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 + 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 + 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 1.54060 + 1.54060 1.54060 1.54060 1.54060 + 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 + 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 + 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 + 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 0.80126 + 0.80126 0.80126 0.80126 0.80126 + 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 + 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 + 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 + 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 0.11946 + 0.11946 0.11946 0.11946 0.11946 + 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 + 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 + 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 + 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 0.01885 + 0.01885 0.01885 0.01885 0.01885 + WASO 1 sca + 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 + 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 + 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 + 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 5.63921 + 5.63921 5.63921 5.63921 5.63921 + 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 + 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 + 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 + 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 3.81805 + 3.81805 3.81805 3.81805 3.81805 + 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 + 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 + 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 + 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 2.57014 + 2.57014 2.57014 2.57014 2.57014 + 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 + 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 + 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 + 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 1.45668 + 1.45668 1.45668 1.45668 1.45668 + 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 + 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 + 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 + 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 0.69387 + 0.69387 0.69387 0.69387 0.69387 + 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 + 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 + 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 + 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 0.05918 + 0.05918 0.05918 0.05918 0.05918 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 0.00006 + 0.00006 0.00006 0.00006 0.00006 + WASO 1 asy + 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 + 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 + 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 + 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 0.64569 + 0.64569 0.64569 0.64569 0.64569 + 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 + 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 + 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 + 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 0.61683 + 0.61683 0.61683 0.61683 0.61683 + 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 + 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 + 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 + 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 0.57928 + 0.57928 0.57928 0.57928 0.57928 + 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 + 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 + 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 + 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 0.51512 + 0.51512 0.51512 0.51512 0.51512 + 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 + 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 + 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 + 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 0.42834 + 0.42834 0.42834 0.42834 0.42834 + 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 + 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 + 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 + 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 0.12606 + 0.12606 0.12606 0.12606 0.12606 + 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 + 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 + 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 + 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 0.00328 + 0.00328 0.00328 0.00328 0.00328 + WASO 1 ssa + 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 + 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 + 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 + 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 0.97265 + 0.97265 0.97265 0.97265 0.97265 + 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 + 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 + 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 + 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 0.97126 + 0.97126 0.97126 0.97126 0.97126 + 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 + 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 + 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 + 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 0.96183 + 0.96183 0.96183 0.96183 0.96183 + 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 + 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 + 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 + 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 0.94552 + 0.94552 0.94552 0.94552 0.94552 + 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 + 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 + 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 + 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 0.86597 + 0.86597 0.86597 0.86597 0.86597 + 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 + 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 + 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 + 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 0.49542 + 0.49542 0.49542 0.49542 0.49542 + 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 + 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 + 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 + 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 0.00317 + 0.00317 0.00317 0.00317 0.00317 + WASO 2 ext + 5.79780 6.03943 6.42109 6.69193 6.97718 7.43097 7.74879 8.23879 + 8.57185 8.91404 9.45341 9.83412 10.44030 11.08576 11.52751 12.63415 + 13.81265 14.32452 14.59114 15.14595 15.43243 16.01248 16.58408 17.14057 + 17.69189 18.53733 19.43839 20.43587 21.74418 23.46807 25.32035 27.97857 + 31.69700 36.51280 44.90171 60.20667 + 3.93101 4.10329 4.37894 4.57256 4.77283 5.08581 5.30439 5.65069 + 5.89536 6.15151 6.55679 6.84072 7.28704 7.75659 8.08113 8.93348 + 9.85897 10.25348 10.45627 10.87291 11.08662 11.52400 11.97286 12.43059 + 12.89527 13.60642 14.34243 15.07664 16.16391 17.59593 19.09815 21.33319 + 24.47980 28.62759 35.87561 49.25817 + 2.67214 2.79269 2.98523 3.12118 3.26312 3.48759 3.64543 3.89545 + 4.07152 4.25540 4.54640 4.75096 5.07462 5.41971 5.66200 6.30830 + 7.00749 7.30238 7.45345 7.76343 7.92255 8.24955 8.58863 8.94003 + 9.30374 9.87178 10.46516 11.02628 11.87784 13.00796 14.21529 16.04385 + 18.61548 22.09383 28.26839 40.01330 + 1.54060 1.61469 1.73318 1.81718 1.90530 2.04549 2.14449 2.30172 + 2.41263 2.52861 2.71259 2.84225 3.04793 3.26788 3.42287 3.84098 + 4.30353 4.50090 4.60221 4.81015 4.91680 5.13560 5.36195 5.59613 + 5.83847 6.21790 6.61718 7.00296 7.59322 8.38552 9.23771 10.53153 + 12.37956 14.95231 19.60971 28.85583 + 0.80126 0.84182 0.90665 0.95268 1.00109 1.07839 1.13323 1.22076 + 1.28282 1.34802 1.45203 1.52574 1.64323 1.76950 1.85879 2.10078 + 2.37076 2.48686 2.54668 2.66992 2.73336 2.86392 2.99950 3.14020 + 3.28615 3.51521 3.75690 3.98987 4.34953 4.83573 5.36514 6.18255 + 7.36849 9.03479 12.13728 18.52812 + 0.11946 0.12473 0.13322 0.13930 0.14575 0.15615 0.16360 0.17561 + 0.18421 0.19331 0.20795 0.21840 0.23517 0.25335 0.26629 0.30173 + 0.34192 0.35944 0.36852 0.38736 0.39713 0.41737 0.43858 0.46082 + 0.48410 0.52110 0.56071 0.59931 0.65994 0.74353 0.83653 0.98402 + 1.20650 1.53463 2.17976 3.61102 + 0.01885 0.02288 0.02946 0.03420 0.03921 0.04725 0.05295 0.06202 + 0.06840 0.07507 0.08558 0.09293 0.10449 0.11668 0.12516 0.14762 + 0.17191 0.18215 0.18739 0.19808 0.20354 0.21470 0.22617 0.23796 + 0.25006 0.26882 0.28832 0.30741 0.33548 0.37250 0.41173 0.47049 + 0.55283 0.66435 0.86170 1.24307 + WASO 2 sca + 5.63921 5.88162 6.26400 6.53499 6.82021 7.27383 7.59164 8.08212 + 8.41573 8.75838 9.29803 9.67863 10.28427 10.92912 11.37080 12.47857 + 13.65736 14.16880 14.43507 14.98906 15.27513 15.85467 16.42641 16.98355 + 17.53560 18.38175 19.28263 20.27897 21.58752 23.31114 25.16248 27.82098 + 31.53811 36.35453 44.74257 60.04543 + 3.81805 3.99028 4.26587 4.45952 4.65990 4.97310 5.19179 5.53811 + 5.78271 6.03873 6.44379 6.72755 7.17363 7.64301 7.96750 8.81983 + 9.74510 10.13941 10.34208 10.75847 10.97205 11.40917 11.85784 12.31545 + 12.78011 13.49130 14.22729 14.96146 16.04839 17.48001 18.98199 21.21660 + 24.36235 28.50974 35.75671 49.13794 + 2.57014 2.69049 2.88276 3.01857 3.16038 3.38469 3.54241 3.79224 + 3.96815 4.15187 4.44260 4.64695 4.97028 5.31502 5.55706 6.20288 + 6.90174 7.19651 7.34751 7.65733 7.81636 8.14316 8.48201 8.83317 + 9.19662 9.76429 10.35734 10.91872 11.76998 12.89970 14.10660 15.93444 + 18.50537 21.98285 28.15617 39.89931 + 1.45668 1.53039 1.64835 1.73203 1.81985 1.95960 2.05833 2.21517 + 2.32581 2.44154 2.62514 2.75454 2.95984 3.17938 3.33410 3.75152 + 4.21345 4.41058 4.51179 4.71951 4.82606 5.04465 5.27079 5.50477 + 5.74689 6.12599 6.52494 6.91074 7.50055 8.29230 9.14400 10.43719 + 12.28443 14.85611 19.51216 28.75619 + 0.69387 0.73371 0.79753 0.84293 0.89074 0.96717 1.02145 1.10817 + 1.16971 1.23439 1.33763 1.41083 1.52757 1.65310 1.74190 1.98271 + 2.25157 2.36724 2.42685 2.54968 2.61292 2.74309 2.87828 3.01860 + 3.16418 3.39271 3.63386 3.86680 4.22576 4.71108 5.23962 6.05586 + 7.24042 8.90513 12.00517 18.39270 + 0.05918 0.06393 0.07169 0.07732 0.08333 0.09310 0.10016 0.11160 + 0.11983 0.12857 0.14268 0.15280 0.16908 0.18678 0.19941 0.23408 + 0.27353 0.29075 0.29969 0.31823 0.32785 0.34780 0.36872 0.39066 + 0.41366 0.45021 0.48938 0.52782 0.58786 0.67070 0.76294 0.90935 + 1.13042 1.45679 2.09916 3.52580 + 0.00006 0.00006 0.00007 0.00007 0.00007 0.00008 0.00008 0.00009 + 0.00009 0.00009 0.00010 0.00010 0.00011 0.00012 0.00013 0.00014 + 0.00016 0.00016 0.00017 0.00018 0.00018 0.00019 0.00020 0.00021 + 0.00022 0.00024 0.00025 0.00027 0.00030 0.00034 0.00038 0.00045 + 0.00056 0.00073 0.00108 0.00196 + WASO 2 asy + 0.64569 0.65180 0.66003 0.66514 0.67011 0.67741 0.68219 0.68913 + 0.69328 0.69699 0.70194 0.70501 0.70947 0.71408 0.71729 0.72442 + 0.72936 0.73105 0.73189 0.73367 0.73467 0.73696 0.73945 0.74173 + 0.74355 0.74545 0.74668 0.74899 0.75176 0.75429 0.75653 0.76053 + 0.76301 0.76787 0.77292 0.77667 + 0.61683 0.62310 0.63229 0.63817 0.64375 0.65148 0.65627 0.66311 + 0.66751 0.67181 0.67803 0.68200 0.68770 0.69311 0.69652 0.70424 + 0.71107 0.71368 0.71496 0.71753 0.71880 0.72133 0.72383 0.72625 + 0.72852 0.73159 0.73428 0.73677 0.74021 0.74430 0.74810 0.75250 + 0.75767 0.76286 0.76952 0.77615 + 0.57928 0.58582 0.59534 0.60141 0.60725 0.61558 0.62087 0.62847 + 0.63334 0.63806 0.64484 0.64918 0.65547 0.66153 0.66546 0.67478 + 0.68315 0.68626 0.68778 0.69075 0.69222 0.69512 0.69798 0.70080 + 0.70356 0.70759 0.71142 0.71470 0.71910 0.72419 0.72893 0.73518 + 0.74250 0.74970 0.75925 0.77002 + 0.51512 0.52219 0.53242 0.53897 0.54530 0.55440 0.56020 0.56856 + 0.57390 0.57909 0.58661 0.59147 0.59859 0.60554 0.61009 0.62115 + 0.63162 0.63559 0.63753 0.64133 0.64318 0.64681 0.65034 0.65378 + 0.65715 0.66205 0.66677 0.67097 0.67682 0.68374 0.69018 0.69844 + 0.70809 0.71885 0.73265 0.74976 + 0.42834 0.43485 0.44442 0.45068 0.45685 0.46599 0.47201 0.48097 + 0.48691 0.49282 0.50164 0.50750 0.51623 0.52486 0.53053 0.54433 + 0.55738 0.56236 0.56479 0.56955 0.57187 0.57641 0.58082 0.58510 + 0.58925 0.59526 0.60104 0.60613 0.61334 0.62200 0.63031 0.64131 + 0.65432 0.66858 0.68782 0.71206 + 0.12606 0.13054 0.13744 0.14217 0.14700 0.15442 0.15949 0.16728 + 0.17258 0.17797 0.18622 0.19183 0.20040 0.20915 0.21508 0.23019 + 0.24570 0.25199 0.25516 0.26152 0.26471 0.27112 0.27756 0.28402 + 0.29049 0.30020 0.30991 0.31871 0.33143 0.34705 0.36227 0.38266 + 0.40702 0.43367 0.46867 0.51450 + 0.00328 0.00335 0.00348 0.00357 0.00366 0.00380 0.00390 0.00406 + 0.00416 0.00427 0.00444 0.00456 0.00473 0.00492 0.00504 0.00537 + 0.00571 0.00585 0.00592 0.00606 0.00613 0.00628 0.00643 0.00658 + 0.00674 0.00697 0.00721 0.00744 0.00778 0.00821 0.00865 0.00929 + 0.01015 0.01126 0.01311 0.01634 + WASO 2 ssa + 0.97265 0.97387 0.97554 0.97655 0.97750 0.97885 0.97972 0.98098 + 0.98179 0.98254 0.98356 0.98419 0.98506 0.98587 0.98641 0.98769 + 0.98876 0.98913 0.98930 0.98964 0.98981 0.99014 0.99049 0.99084 + 0.99117 0.99161 0.99199 0.99232 0.99280 0.99331 0.99377 0.99437 + 0.99499 0.99567 0.99646 0.99732 + 0.97126 0.97246 0.97418 0.97528 0.97634 0.97784 0.97877 0.98008 + 0.98089 0.98167 0.98277 0.98346 0.98444 0.98536 0.98594 0.98728 + 0.98845 0.98887 0.98908 0.98947 0.98967 0.99004 0.99039 0.99074 + 0.99107 0.99154 0.99197 0.99236 0.99285 0.99341 0.99392 0.99453 + 0.99520 0.99588 0.99669 0.99756 + 0.96183 0.96341 0.96568 0.96712 0.96852 0.97049 0.97174 0.97350 + 0.97461 0.97567 0.97717 0.97811 0.97944 0.98068 0.98147 0.98329 + 0.98491 0.98550 0.98579 0.98633 0.98660 0.98710 0.98759 0.98805 + 0.98849 0.98911 0.98970 0.99024 0.99092 0.99168 0.99235 0.99318 + 0.99409 0.99498 0.99603 0.99715 + 0.94552 0.94779 0.95106 0.95314 0.95515 0.95801 0.95982 0.96240 + 0.96402 0.96557 0.96776 0.96914 0.97110 0.97292 0.97406 0.97671 + 0.97907 0.97993 0.98035 0.98116 0.98154 0.98229 0.98300 0.98367 + 0.98431 0.98522 0.98606 0.98683 0.98780 0.98888 0.98986 0.99104 + 0.99232 0.99357 0.99503 0.99655 + 0.86597 0.87158 0.87965 0.88480 0.88977 0.89687 0.90136 0.90777 + 0.91182 0.91570 0.92121 0.92469 0.92961 0.93422 0.93711 0.94379 + 0.94972 0.95190 0.95295 0.95496 0.95594 0.95781 0.95959 0.96128 + 0.96289 0.96515 0.96725 0.96915 0.97154 0.97422 0.97660 0.97951 + 0.98262 0.98565 0.98912 0.99269 + 0.49542 0.51259 0.53818 0.55506 0.57173 0.59625 0.61220 0.63546 + 0.65048 0.66508 0.68615 0.69963 0.71896 0.73724 0.74883 0.77579 + 0.79997 0.80889 0.81321 0.82153 0.82555 0.83331 0.84071 0.84776 + 0.85448 0.86396 0.87278 0.88072 0.89078 0.90205 0.91203 0.92412 + 0.93694 0.94928 0.96302 0.97640 + 0.00317 0.00273 0.00227 0.00204 0.00186 0.00164 0.00153 0.00139 + 0.00132 0.00125 0.00117 0.00113 0.00107 0.00103 0.00100 0.00095 + 0.00092 0.00090 0.00090 0.00089 0.00089 0.00088 0.00088 0.00088 + 0.00088 0.00088 0.00088 0.00088 0.00089 0.00090 0.00092 0.00096 + 0.00101 0.00109 0.00125 0.00157 diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 48537bb77..af2d15139 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -3857,83 +3857,7 @@ 4.0 - - - - 438 - DUST1_ON_ISOBARIC_LVL - tmpl4_48 - MASSMR - isobaric_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 2 - 7 - 20 - 11.0 - - - - 439 - DUST2_ON_ISOBARIC_LVL - tmpl4_48 - MASSMR - isobaric_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 20 - 7 - 36 - 11.0 - - - - 440 - DUST3_ON_ISOBARIC_LVL - tmpl4_48 - MASSMR - isobaric_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 36 - 7 - 60 - 11.0 - - - - 441 - DUST4_ON_ISOBARIC_LVL - tmpl4_48 - MASSMR - isobaric_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 60 - 7 - 120 - 11.0 - - - - 442 - DUST5_ON_ISOBARIC_LVL - tmpl4_48 - MASSMR - isobaric_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 120 - 7 - 200 - 11.0 - - + @@ -5053,82 +4977,116 @@ 4.0 + + + 600 + AER_OPT_GFS_at550 + tmpl4_48 + AOTK + entire_atmos + total_aerosol + smaller_than_first_limit + 6 + 20 + between_first_second_limit + 9 + 545 + 9 + 555 + 9.0 + + 601 - DUST1_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL_FDHGT + DUST_AER_OPT_GFS_at550 tmpl4_48 - MASSMR - spec_alt_above_mean_sea_lvl + AOTK + entire_atmos dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 2 - 7 - 20 - 11.0 + smaller_than_first_limit + 6 + 20 + between_first_second_limit + 9 + 545 + 9 + 555 + 9.0 602 - DUST2_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL_FDHGT + SEASALT_AER_OPT_GFS_at550 tmpl4_48 - MASSMR - spec_alt_above_mean_sea_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 + AOTK + entire_atmos + sea_salt_dry + smaller_than_first_limit + 6 20 - 7 - 36 - 11.0 + between_first_second_limit + 9 + 545 + 9 + 555 + 9.0 603 - DUST3_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL_FDHGT + SULFATE_AER_OPT_GFS_at550 tmpl4_48 - MASSMR - spec_alt_above_mean_sea_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 36 - 7 - 60 - 11.0 + AOTK + entire_atmos + sulphate_dry + smaller_than_first_limit + 6 + 20 + between_first_second_limit + 9 + 545 + 9 + 555 + 9.0 604 - DUST4_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL_FDHGT + ORGANIC_CARBON_AER_OPT_GFS_at550 tmpl4_48 - MASSMR - spec_alt_above_mean_sea_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 60 - 7 - 120 - 11.0 + AOTK + entire_atmos + particulate_org_matter_dry + smaller_than_first_limit + 6 + 20 + between_first_second_limit + 9 + 545 + 9 + 555 + 9.0 605 - DUST5_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL_FDHGT + BLACK_CARBON_AER_OPT_GFS_at550 tmpl4_48 - MASSMR - spec_alt_above_mean_sea_lvl - dust_dry - between_first_second_limit_noincl2ndlmt - 7 - 120 - 7 - 200 - 11.0 + AOTK + entire_atmos + black_carbon_dry + smaller_than_first_limit + 6 + 20 + between_first_second_limit + 9 + 545 + 9 + 555 + 9.0 - + 606 AECOEF_ON_HYBRID_LVL @@ -5165,9 +5123,9 @@ 20 between_first_second_limit 9 - 545 + 550 9 - 565 + 550 9.0 @@ -5183,9 +5141,9 @@ 20 between_first_second_limit 9 - 545 + 550 9 - 565 + 550 9.0 @@ -5201,9 +5159,9 @@ 20 between_first_second_limit 9 - 545 + 550 9 - 565 + 550 9.0 @@ -5219,9 +5177,9 @@ 20 between_first_second_limit 9 - 545 + 550 9 - 565 + 550 9.0 @@ -5237,9 +5195,9 @@ 20 between_first_second_limit 9 - 545 + 550 9 - 565 + 550 9.0 @@ -5255,9 +5213,9 @@ 20 between_first_second_limit 9 - 545 + 550 9 - 565 + 550 9.0 @@ -5299,6 +5257,7 @@ 25 9.0 + 619 PM10_SFC_MASS_CON @@ -5878,12 +5837,38 @@ 9.0 + + 657 + NO3_COL_MASS_DEN + tmpl4_48 + COLMD + entire_atmos + nitrate_dry + smaller_than_first_limit + 7 + 25 + 9.0 + + + + 658 + NH4_COL_MASS_DEN + tmpl4_48 + COLMD + entire_atmos + ammonium_dry + smaller_than_first_limit + 7 + 25 + 9.0 + + 659 DUST_EMISSION_FLUX tmpl4_48 AEMFLX - entire_atmos + surface dust_dry smaller_than_first_limit 6 @@ -5939,7 +5924,7 @@ smaller_than_first_limit 6 20 - entire_atmos + surface 9.0 @@ -5991,7 +5976,7 @@ smaller_than_first_limit 10 236 - entire_atmos + surface 9.0 @@ -6043,7 +6028,7 @@ smaller_than_first_limit 8 70 - entire_atmos + surface 9.0 @@ -6095,7 +6080,7 @@ smaller_than_first_limit 8 70 - entire_atmos + surface 9.0 @@ -6247,30 +6232,46 @@ 687 - BC_AER_SFC_MASS_CON - AVE + NITRATE_AER_OPT_DEP_at550 tmpl4_48 - MASSDEN - black_carbon_dry + AOTK + entire_atmos + nitrate_dry smaller_than_first_limit 6 - 10 - surface + 20 + between_first_second_limit + 9 + 545 + 9 + 565 9.0 688 - OC_AER_SFC_MASS_CON - AVE + NO3_ON_HYBRID_LVL tmpl4_48 - MASSDEN - particulate_org_matter_dry - smaller_than_first_limit - 6 - 10 - surface - 9.0 + PMTF + nitrate_dry + hybrid_lvl + equall_to_first_limit + 9 + 139 + 11.0 + + + + 689 + NH4_ON_HYBRID_LVL + tmpl4_48 + PMTF + ammonium_dry + hybrid_lvl + equall_to_first_limit + 9 + 139 + 11.0 @@ -6405,6 +6406,24 @@ 9.0 + + 699 + MIE_OPT_DEP_at550 + tmpl4_48 + AOTK + entire_atmos + mercury_dry + smaller_than_first_limit + 6 + 20 + between_first_second_limit + 9 + 545 + 9 + 565 + 9.0 + + 700 GSD_MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_1-6km diff --git a/parm/postcntrl_ufs_aerosol.xml b/parm/postcntrl_ufs_aerosol.xml new file mode 100755 index 000000000..f6cc416fb --- /dev/null +++ b/parm/postcntrl_ufs_aerosol.xml @@ -0,0 +1,325 @@ + + + + + GFSPRS + 0 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + nws_ncep + gfs_avn + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + HGT_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + TMP_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + UGRD_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + VGRD_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + O3MR_ON_ISOBARIC_SFC + NCEP + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 5.0 + + + + DUST1_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST2_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST3_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST4_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST5_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT1_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT2_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT3_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT4_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT5_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + BCPHILIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + BCPHOBIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + OCPHILIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + OCPHOBIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SO4_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + NO3_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + NH4_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + PRES_ON_MEAN_SEA_LVL + 6.0 + + + + TMP_ON_SURFACE + 4.0 + + + + AER_OPT_DEP_at550 + 9.0 + + + + DUST_AER_OPT_DEP_at550 + 9.0 + + + + SEASALT_AER_OPT_DEP_at550 + 9.0 + + + + SULFATE_AER_OPT_DEP_at550 + 9.0 + + + + ORGANIC_CARBON_AER_OPT_DEP_at550 + 9.0 + + + + BLACK_CARBON_AER_OPT_DEP_at550 + 9.0 + + + + AER_SCAT_OPT_DEP_at550 + 9.0 + + + + DUST25_SFC_MASS_CON + NCEP + 9.0 + + + + DUST10_SFC_MASS_CON + NCEP + 9.0 + + + + SEAS25_SFC_MASS_CON + NCEP + 9.0 + + + + PM10_SFC_MASS_CON + NCEP + 9.0 + + + + PM25_SFC_MASS_CON + NCEP + 9.0 + + + + PM10_COL_MASS_DEN + 9.0 + + + + PM25_COL_MASS_DEN + 9.0 + + + + DUST_COL_MASS_DEN + 9.0 + + + + SEAS_COL_MASS_DEN + 9.0 + + + + BC_COL_MASS_DEN + 9.0 + + + + OC_COL_MASS_DEN + 9.0 + + + + SULF_COL_MASS_DEN + 9.0 + + + + NO3_COL_MASS_DEN + 9.0 + + + + NH4_COL_MASS_DEN + 9.0 + + + + TOZNE_ON_ENTIRE_ATMOS_SINGLE_LYR + 4.0 + + + + AVE_PRATE_ON_SURFACE + 4.0 + + + + AVE_CPRAT_ON_SURFACE + NCEP + 4.0 + + + + ACM_APCP_ON_SURFACE + -4.0 + + + + ACM_ACPCP_ON_SURFACE + -4.0 + + + + + diff --git a/parm/postcntrl_ufs_aerosol_f00.xml b/parm/postcntrl_ufs_aerosol_f00.xml new file mode 100755 index 000000000..ad4b2b878 --- /dev/null +++ b/parm/postcntrl_ufs_aerosol_f00.xml @@ -0,0 +1,301 @@ + + + + + GFSPRS + 0 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + nws_ncep + gfs_avn + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + HGT_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 6.0 + + + + TMP_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + UGRD_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + VGRD_ON_ISOBARIC_SFC + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 4.0 + + + + O3MR_ON_ISOBARIC_SFC + NCEP + 1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. + 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. + 5.0 + + + + DUST1_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST2_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST3_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST4_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + DUST5_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT1_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT2_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT3_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT4_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SEASALT5_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + BCPHILIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + BCPHOBIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + OCPHILIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + OCPHOBIC_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + SO4_ON_HYBRID_LVL + NCEP + 1. + 11.0 + + + + PRES_ON_MEAN_SEA_LVL + 6.0 + + + + TMP_ON_SURFACE + 4.0 + + + + AER_OPT_DEP_at550 + 9.0 + + + + DUST_AER_OPT_DEP_at550 + 9.0 + + + + SEASALT_AER_OPT_DEP_at550 + 9.0 + + + + SULFATE_AER_OPT_DEP_at550 + 9.0 + + + + ORGANIC_CARBON_AER_OPT_DEP_at550 + 9.0 + + + + BLACK_CARBON_AER_OPT_DEP_at550 + 9.0 + + + + AER_SCAT_OPT_DEP_at550 + 9.0 + + + + DUST25_SFC_MASS_CON + NCEP + 9.0 + + + + DUST10_SFC_MASS_CON + NCEP + 9.0 + + + + SEAS25_SFC_MASS_CON + NCEP + 9.0 + + + + PM10_SFC_MASS_CON + NCEP + 9.0 + + + + PM25_SFC_MASS_CON + NCEP + 9.0 + + + + PM10_COL_MASS_DEN + 9.0 + + + + PM25_COL_MASS_DEN + 9.0 + + + + DUST_COL_MASS_DEN + 9.0 + + + + SEAS_COL_MASS_DEN + 9.0 + + + + BC_COL_MASS_DEN + 9.0 + + + + OC_COL_MASS_DEN + 9.0 + + + + SULF_COL_MASS_DEN + 9.0 + + + + TOZNE_ON_ENTIRE_ATMOS_SINGLE_LYR + 4.0 + + + + AVE_PRATE_ON_SURFACE + 4.0 + + + + AVE_CPRAT_ON_SURFACE + NCEP + 4.0 + + + + ACM_APCP_ON_SURFACE + -4.0 + + + + ACM_ACPCP_ON_SURFACE + -4.0 + + + + + diff --git a/parm/postxconfig-NT-UFS-aerosol-F00.txt b/parm/postxconfig-NT-UFS-aerosol-F00.txt new file mode 100644 index 000000000..2cbc9fa17 --- /dev/null +++ b/parm/postxconfig-NT-UFS-aerosol-F00.txt @@ -0,0 +1,1720 @@ +1 +46 +GFSPRS +0 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +nws_ncep +gfs_avn +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +12 +HGT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +HGT +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +13 +TMP_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +TMP +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +18 +UGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +UGRD +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +19 +VGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VGRD +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +268 +O3MR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +O3MR +NCEP +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +629 +DUST1_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +2 +7 +20 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +630 +DUST2_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +20 +7 +36 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +631 +DUST3_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +36 +7 +60 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +632 +DUST4_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +60 +7 +120 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +633 +DUST5_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +120 +7 +200 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +634 +SEASALT1_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +8 +6 +8 +20 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +635 +SEASALT2_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +2 +7 +10 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +636 +SEASALT3_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +10 +7 +30 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +637 +SEASALT4_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +30 +7 +100 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +638 +SEASALT5_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +100 +7 +200 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +643 +BCPHILIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +black_carbon_hydrophilic +equall_to_first_limit +10 +236 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +642 +BCPHOBIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +black_carbon_hydrophobic +equall_to_first_limit +10 +236 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +641 +OCPHILIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +particulate_org_matter_hydrophilic +equall_to_first_limit +10 +424 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +640 +OCPHOBIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +particulate_org_matter_hydrophobic +equall_to_first_limit +10 +424 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +639 +SO4_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sulphate_dry +equall_to_first_limit +9 +139 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +105 +PRES_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +PRMSL +? +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +26 +TMP_ON_SURFACE +? +1 +tmpl4_0 +TMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +609 +AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +610 +DUST_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +611 +SEASALT_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +612 +SULFATE_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +613 +ORGANIC_CARBON_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +614 +BLACK_CARBON_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +650 +AER_SCAT_OPT_DEP_at550 +? +1 +tmpl4_48 +SCTAOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +686 +DUST25_SFC_MASS_CON +? +1 +tmpl4_48 +PMTF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +685 +DUST10_SFC_MASS_CON +? +1 +tmpl4_48 +PMTC +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +10 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +684 +SEAS25_SFC_MASS_CON +? +1 +tmpl4_48 +PMTF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +619 +PM10_SFC_MASS_CON +? +1 +tmpl4_48 +PMTC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +10 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +620 +PM25_SFC_MASS_CON +? +1 +tmpl4_48 +PMTF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +621 +PM10_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +10 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +622 +PM25_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +646 +DUST_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +647 +SEAS_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +616 +BC_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +10 +236 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +617 +OC_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +10 +424 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +618 +SULF_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +299 +TOZNE_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_0 +TOZNE +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +271 +AVE_PRATE_ON_SURFACE +? +1 +tmpl4_8 +PRATE +? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +272 +AVE_CPRAT_ON_SURFACE +? +1 +tmpl4_8 +CPRAT +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +87 +ACM_APCP_ON_SURFACE +? +1 +tmpl4_8 +APCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +33 +ACM_ACPCP_ON_SURFACE +? +1 +tmpl4_8 +ACPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-UFS-aerosol.txt b/parm/postxconfig-NT-UFS-aerosol.txt new file mode 100644 index 000000000..e197dc54f --- /dev/null +++ b/parm/postxconfig-NT-UFS-aerosol.txt @@ -0,0 +1,1868 @@ +1 +50 +GFSPRS +0 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +nws_ncep +gfs_avn +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +12 +HGT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +HGT +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +13 +TMP_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +TMP +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +18 +UGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +UGRD +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +19 +VGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VGRD +? +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +268 +O3MR_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +O3MR +NCEP +? +isobaric_sfc +0 +? +57 +1. 2. 4. 7. 10. 20. 40. 70. 100. 200. 300. 500. 700. 1000. 1500. 2000. 3000. 4000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +629 +DUST1_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +2 +7 +20 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +630 +DUST2_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +20 +7 +36 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +631 +DUST3_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +36 +7 +60 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +632 +DUST4_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +60 +7 +120 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +633 +DUST5_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +dust_dry +between_first_second_limit_noincl2ndlmt +7 +120 +7 +200 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +634 +SEASALT1_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +8 +6 +8 +20 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +635 +SEASALT2_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +2 +7 +10 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +636 +SEASALT3_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +10 +7 +30 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +637 +SEASALT4_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +30 +7 +100 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +638 +SEASALT5_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTC +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sea_salt_dry +between_first_second_limit_noincl2ndlmt +7 +100 +7 +200 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +643 +BCPHILIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +black_carbon_hydrophilic +equall_to_first_limit +10 +236 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +642 +BCPHOBIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +black_carbon_hydrophobic +equall_to_first_limit +10 +236 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +641 +OCPHILIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +particulate_org_matter_hydrophilic +equall_to_first_limit +10 +424 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +640 +OCPHOBIC_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +particulate_org_matter_hydrophobic +equall_to_first_limit +10 +424 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +639 +SO4_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +sulphate_dry +equall_to_first_limit +9 +139 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +688 +NO3_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +nitrate_dry +equall_to_first_limit +9 +139 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +689 +NH4_ON_HYBRID_LVL +? +1 +tmpl4_48 +PMTF +NCEP +? +hybrid_lvl +0 +? +1 +1. +? +0 +? +0 +? +ammonium_dry +equall_to_first_limit +9 +139 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +11.0 +0 +0 +0 +? +? +? +105 +PRES_ON_MEAN_SEA_LVL +? +1 +tmpl4_0 +PRMSL +? +? +mean_sea_lvl +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +26 +TMP_ON_SURFACE +? +1 +tmpl4_0 +TMP +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +609 +AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 +1 +9.0 +0 +0 +0 +? +? +? +610 +DUST_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 +1 +9.0 +0 +0 +0 +? +? +? +611 +SEASALT_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 +1 +9.0 +0 +0 +0 +? +? +? +612 +SULFATE_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 +1 +9.0 +0 +0 +0 +? +? +? +613 +ORGANIC_CARBON_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 +1 +9.0 +0 +0 +0 +? +? +? +614 +BLACK_CARBON_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 +1 +9.0 +0 +0 +0 +? +? +? +650 +AER_SCAT_OPT_DEP_at550 +? +1 +tmpl4_48 +SCTAOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +565 +1 +9.0 +0 +0 +0 +? +? +? +686 +DUST25_SFC_MASS_CON +? +1 +tmpl4_48 +PMTF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +685 +DUST10_SFC_MASS_CON +? +1 +tmpl4_48 +PMTC +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +10 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +684 +SEAS25_SFC_MASS_CON +? +1 +tmpl4_48 +PMTF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +619 +PM10_SFC_MASS_CON +? +1 +tmpl4_48 +PMTC +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +10 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +620 +PM25_SFC_MASS_CON +? +1 +tmpl4_48 +PMTF +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +621 +PM10_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +10 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +622 +PM25_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +646 +DUST_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +647 +SEAS_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +616 +BC_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +10 +236 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +617 +OC_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +10 +424 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +618 +SULF_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +657 +NO3_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +nitrate_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +658 +NH4_COL_MASS_DEN +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +ammonium_dry +smaller_than_first_limit +7 +25 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +299 +TOZNE_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_0 +TOZNE +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +271 +AVE_PRATE_ON_SURFACE +? +1 +tmpl4_8 +PRATE +? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +272 +AVE_CPRAT_ON_SURFACE +? +1 +tmpl4_8 +CPRAT +NCEP +AVE +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +87 +ACM_APCP_ON_SURFACE +? +1 +tmpl4_8 +APCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +33 +ACM_ACPCP_ON_SURFACE +? +1 +tmpl4_8 +ACPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index a93741328..9d7a4596c 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -19,6 +19,7 @@ !! - 21-04-16 Wen Meng - Initializing aextc55 and extc55 as 0. These !! two arrays are involved in GSL visibility computation. !! - 22-03-22 Wen Meng - Initializing pwat. +!! - 22-09-22 Li(Kate) Zhang - Initializing NASA GOCART tracers of Nitrate, NH4,and their column burden. !! !! OUTPUT FILES: !! - STDOUT - RUN TIME STANDARD OUT. @@ -1054,7 +1055,7 @@ SUBROUTINE ALLOCATE_ALL() enddo if (me == 0) print *,' gocart_on=',gocart_on - if (gocart_on) then + if (gocart_on .or. nasa_on) then ! ! Add GOCART fields ! vrbls4d @@ -1063,6 +1064,10 @@ SUBROUTINE ALLOCATE_ALL() allocate(soot(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_bc)) allocate(waso(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_oc)) allocate(suso(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_su)) + if (nasa_on) then + allocate(no3(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_no3)) + allocate(nh4(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_nh4)) + endif allocate(pp25(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_su)) allocate(pp10(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_su)) !Initialization @@ -1106,6 +1111,30 @@ SUBROUTINE ALLOCATE_ALL() enddo enddo enddo + if (nasa_on) then +!$omp parallel do private(i,j,l,k) + do k=1,nbin_no3 + do l=1,lm + do j=jsta_2l,jend_2u + do i=ista_2l,iend_2u + no3(i,j,l,k)=spval + enddo + enddo + enddo + enddo + +!$omp parallel do private(i,j,l,k) + do k=1,nbin_nh4 + do l=1,lm + do j=jsta_2l,jend_2u + do i=ista_2l,iend_2u + nh4(i,j,l,k)=spval + enddo + enddo + enddo + enddo + endif + !$omp parallel do private(i,j,l,k) do k=1,nbin_su do l=1,lm @@ -1251,6 +1280,10 @@ SUBROUTINE ALLOCATE_ALL() allocate(sssmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(sscmass25(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(dustcb(ista_2l:iend_2u,jsta_2l:jend_2u)) + if (nasa_on) then + allocate(no3cb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(nh4cb(ista_2l:iend_2u,jsta_2l:jend_2u)) + endif allocate(occb(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(bccb(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(sulfcb(ista_2l:iend_2u,jsta_2l:jend_2u)) @@ -1288,6 +1321,10 @@ SUBROUTINE ALLOCATE_ALL() sssmass25(i,j)=spval sscmass25(i,j)=spval dustcb(i,j)=spval + if (nasa_on) then + no3cb(i,j)=spval + nh4cb(i,j)=spval + endif occb(i,j)=spval bccb(i,j)=spval sulfcb(i,j)=spval diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index fb03d8752..2145dfdd2 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -63,12 +63,14 @@ !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module !> 2021-02-08 | Anning Cheng | read aod550, aod550_du/su/ss/oc/bc directly from fv3gfs and output to grib2 by setting rdaod !> 2021-04-01 | Jesse Meng | Computation on defined points only +!> 2022-09-22 | Li(Kate Zhang) | Remove duplicated GOCART output variables and add capbility for NASA GOCART (UFS-Aerosols). +!> 2022-10-11 | Li(Kate Zhang) | Update look-up table for NASA GOCART (UFS-Aerosols). !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD ! - use vrbls4d, only: DUST,SUSO, SALT, SOOT, WASO + use vrbls4d, only: DUST,SUSO, SALT, SOOT, WASO,NO3,NH4 use vrbls3d, only: QQW, QQR, T, ZINT, CFR, QQI, QQS, Q, EXT, ZMID,PMID,& PINT, DUEM, DUSD, DUDP, DUWT, DUSV, SSEM, SSSD,SSDP,& SSWT, SSSV, BCEM, BCSD, BCDP, BCWT, BCSV, OCEM,OCSD,& @@ -90,7 +92,7 @@ SUBROUTINE CLDRAD AVGCPRATE, & DUSTCB,SSCB,BCCB,OCCB,SULFCB,DUSTPM,SSPM,aod550, & du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550, & - PWAT,DUSTPM10,MAOD + PWAT,DUSTPM10,MAOD,NO3CB,NH4CB use masks, only: LMH, HTM use params_mod, only: TFRZ, D00, H99999, QCLDMIN, SMALL, D608, H1, ROG, & GI, RD, QCONV, ABSCOEFI, ABSCOEF, STBOL, PQ0, A2, & @@ -99,7 +101,7 @@ SUBROUTINE CLDRAD FLD_INFO, AVRAIN, THEAT, IFHR, IFMIN, AVCNVC, & TCLOD, ARDSW, TRDSW, ARDLW, NBIN_DU, TRDLW, IM, & NBIN_SS, NBIN_OC, NBIN_BC, NBIN_SU, DTQ2, & - JM, LM, gocart_on, me, rdaod,ISTA, IEND + JM, LM, gocart_on, nasa_on, me, rdaod,ISTA, IEND use rqstfld_mod, only: IGET, ID, LVLS, IAVBLFLD use gridspec_mod, only: dyval, gridtype use cmassi_mod, only: TRAD_ice @@ -4407,7 +4409,7 @@ SUBROUTINE CLDRAD !2D AEROSOL OPTICAL DEPTH AT 550 NM IF(rdaod) then - IF (IGET(609).GT.0) THEN + IF (IGET(600).GT.0) THEN DO J=JSTA,JEND DO I=ISTA,IEND grid1(i,j)=aod550(i,j) @@ -4415,12 +4417,12 @@ SUBROUTINE CLDRAD ENDDO if(grib=="grib2" )then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(609)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(600)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF - IF (IGET(610).GT.0) THEN + IF (IGET(601).GT.0) THEN DO J=JSTA,JEND DO I=ISTA,IEND grid1(i,j)=du_aod550(i,j) @@ -4428,12 +4430,12 @@ SUBROUTINE CLDRAD ENDDO if(grib=="grib2" )then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(610)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(601)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF - IF (IGET(611).GT.0) THEN + IF (IGET(602).GT.0) THEN DO J=JSTA,JEND DO I=ISTA,IEND grid1(i,j)=ss_aod550(i,j) @@ -4441,12 +4443,12 @@ SUBROUTINE CLDRAD ENDDO if(grib=="grib2" )then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(611)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(602)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF - IF (IGET(612).GT.0) THEN + IF (IGET(603).GT.0) THEN DO J=JSTA,JEND DO I=ISTA,IEND grid1(i,j)=su_aod550(i,j) @@ -4454,12 +4456,12 @@ SUBROUTINE CLDRAD ENDDO if(grib=="grib2" )then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(612)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(603)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF - IF (IGET(613).GT.0) THEN + IF (IGET(604).GT.0) THEN DO J=JSTA,JEND DO I=ISTA,IEND grid1(i,j)=oc_aod550(i,j) @@ -4467,13 +4469,13 @@ SUBROUTINE CLDRAD ENDDO if(grib=="grib2" )then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(613)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(604)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF - IF (IGET(614).GT.0) THEN + IF (IGET(605).GT.0) THEN DO J=JSTA,JEND DO I=ISTA,IEND grid1(i,j)=bc_aod550(i,j) @@ -4481,7 +4483,7 @@ SUBROUTINE CLDRAD ENDDO if(grib=="grib2" )then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(614)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(605)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -4529,7 +4531,7 @@ SUBROUTINE CLDRAD endif ENDIF ! - if (gocart_on) then + if (gocart_on .or. nasa_on) then ! !*** BLOCK 4. GOCART AEROSOL FIELDS ! @@ -4559,10 +4561,6 @@ SUBROUTINE CLDRAD DO I = 690, 698 ! TOTAL AND SPECIATED AEROSOL IF ( IGET(I)>0 ) LAERSMASS = .TRUE. ENDDO - IF ( rdaod ) THEN - LAEROPT = .FALSE. - LAERSMASS = .FALSE. - END IF IF ( LAEROPT ) THEN PRINT *, 'COMPUTE AEROSOL OPTICAL PROPERTIES' @@ -4598,7 +4596,11 @@ SUBROUTINE CLDRAD !!! READ AEROSOL LUTS DO i = 1, nAero CLOSE(UNIT=NOAER) + if (gocart_on) then aerosol_file='optics_luts_'//AerosolName(i)//'.dat' + else if ( nasa_on ) then + aerosol_file='optics_luts_'//AerosolName(i)//'_nasa.dat' + endif open(unit=NOAER, file=aerosol_file, status='OLD', iostat=ios) IF (IOS > 0) THEN print *,' ERROR! Non-zero iostat for rd_LUTS ', aerosol_file @@ -4724,6 +4726,7 @@ SUBROUTINE CLDRAD Q1D(I,J) = Q(I,J,LL) ENDDO ENDDO + !CALL CALRH(P1D,T1D,Q1D,EGRID4) CALL CALRH(P1D,T1D,Q1D,EGRID4) DO J=JSTA,JEND DO I=ISTA,IEND @@ -5186,100 +5189,6 @@ SUBROUTINE CLDRAD ENDIF ! END OF LAEROPT IF-BLOCK -!! Multiply by 1.E-6 to revert these fields back - IF (IGET(659)>0) THEN - GRID1=SPVAL -!$omp parallel do private(i,j) - DO J = JSTA,JEND - DO I = ISTA,IEND - IF(DUEM(I,J,1)0) THEN - GRID1=SPVAL -!$omp parallel do private(i,j) - DO J = JSTA,JEND - DO I = ISTA,IEND - IF(BCEM(I,J,1)0) THEN - GRID1=SPVAL -!$omp parallel do private(i,j) - DO J = JSTA,JEND - DO I = ISTA,IEND - IF(DUSD(I,J,1)0) THEN - GRID1=SPVAL -!$omp parallel do private(i,j) - DO J = JSTA,JEND - DO I = ISTA,IEND - GRID1(I,J) = MAOD(I,J) - END DO - END DO - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(699)) - datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) - endif - ENDIF -!! ADD DUST DRY DEPOSITION FLUXES (kg/m2/sec) -! -! IF (IGET(661)>0) THEN -! DO J = JSTA,JEND -! DO I = ISTA,IEND -! GRID1(I,J) = DUDP(I,J,1)*1.E-6 -! DO K=2,NBIN_DU -! GRID1(I,J) = GRID1(I,J)+ DUDP(I,J,K)*1.E-6 -! END DO -! END DO -! END DO -! ID(1:25) = 0 -! ID(02)=141 -! if(grib=='grib1') then -! CALL GRIBIT(IGET(661),LVLS(1,IGET(661)),GRID1,IM,JM) -! elseif(grib=='grib2') then -! cfld=cfld+1 -! fld_info(cfld)%ifld=IAVBLFLD(IGET(661)) -! datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) -! endif -! ENDIF !! ADD AEROSOL SURFACE PM25 DUST MASS CONCENTRATION (ug/m3) IF (IGET(686)>0 ) THEN @@ -5311,26 +5220,6 @@ SUBROUTINE CLDRAD endif ENDIF -!! ADD DUST WET DEPOSITION FLUXES (kg/m2/sec) -! IF (IGET(662)>0) THEN -! DO J = JSTA,JEND -! DO I = ISTA,IEND -! GRID1(I,J) = DUWT(I,J,1)*1.E-6 -! DO K=2,NBIN_DU -! GRID1(I,J) = GRID1(I,J)+ DUWT(I,J,K)*1.E-6 -! END DO -! END DO -! END DO -! ID(1:25) = 0 -! ID(02)=141 -! if(grib=='grib1') then -! CALL GRIBIT(IGET(662),LVLS(1,IGET(662)),GRID1,IM,JM) -! elseif(grib=='grib2') then -! cfld=cfld+1 -! fld_info(cfld)%ifld=IAVBLFLD(IGET(662)) -! datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) -! endif -! ENDIF !! ADD AEROSOL SURFACE PM25 SEA SALT MASS CONCENTRATION (ug/m3) IF (IGET(684)>0 ) THEN @@ -5490,6 +5379,43 @@ SUBROUTINE CLDRAD datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF + + if (nasa_on) then +!! ADD NO3 COLUMN DENSITY (kg/m2) ! + IF (IGET(657)>0 ) THEN + GRID1=SPVAL +!$omp parallel do private(i,j) + DO J = JSTA,JEND + DO I = ISTA,IEND + IF(NO3CB(I,J)0 ) THEN + GRID1=SPVAL +!$omp parallel do private(i,j) + DO J = JSTA,JEND + DO I = ISTA,IEND + IF(NH4CB(I,J)0) call wrt_aero_diag(675,nbin_su,suem) @@ -5534,7 +5461,7 @@ SUBROUTINE CLDRAD ! IF (IGET(677)>0) call wrt_aero_diag(677,nbin_su,sudp) ! IF (IGET(678)>0) call wrt_aero_diag(678,nbin_su,suwt) ! print *,'aft wrt disg suwt' - endif ! if gocart_on + endif ! if gocart_on or nasa_on ! CB for WAFS if(IGET(473)>0 .or. IGET(474)>0 .or. IGET(475)>0) then diff --git a/sorc/ncep_post.fd/CTLBLK.f b/sorc/ncep_post.fd/CTLBLK.f index 5ca6a0f60..14fdb17ba 100644 --- a/sorc/ncep_post.fd/CTLBLK.f +++ b/sorc/ncep_post.fd/CTLBLK.f @@ -10,6 +10,7 @@ module CTLBLK_mod ! 2011-12-14 SARAH LU - ADD AER FILENAME ! 2011-12-23 SARAH LU - ADD NBIN FOR DU, SS, OC, BC, SU ! 2021-09-30 JESSE MENG- 2D DECOMPOSITION +! 2022-09-22 Li(Kate) Zhang- Add option for NASA GOCART as "nasa_on", add NBIN for NO3 and NH4 !----------------------------------------------------------------------- ! implicit none @@ -42,7 +43,7 @@ module CTLBLK_mod real*8 :: gdsdegr real,allocatable :: datapd(:,:,:) ! - logical :: gocart_on, d3d_on, hyb_sigp, rdaod, aqfcmaq_on + logical :: gocart_on, nasa_on, d3d_on, hyb_sigp, rdaod, aqfcmaq_on logical :: SIGMA,RUN,FIRST,RESTRT logical :: global logical :: SMFLAG @@ -103,6 +104,8 @@ module CTLBLK_mod integer, parameter :: nbin_oc = 2 ! organic carbon integer, parameter :: nbin_bc = 2 ! black carbon integer, parameter :: nbin_su = 1 ! sulfate + integer, parameter :: nbin_no3 = 3 ! nitrate + integer, parameter :: nbin_nh4 = 1 ! NH4 integer, parameter :: nbin_sm = 1 ! smoke ! ! SET FD LEVEL HEIGHTS IN GEOPOTENTAL METERS. diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index ba5b57944..4e6ba6ce3 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -463,7 +463,7 @@ SUBROUTINE DE_ALLOCATE deallocate(gtg) ! - if (gocart_on) then + if (gocart_on .or. nasa_on) then ! Deallocate GOCART fields ! vrbls4d deallocate(dust) @@ -471,6 +471,10 @@ SUBROUTINE DE_ALLOCATE deallocate(soot) deallocate(waso) deallocate(suso) + if (nasa_on) then + deallocate(no3) + deallocate(nh4) + endif deallocate(pp25) deallocate(pp10) ! vrbls3d @@ -531,6 +535,10 @@ SUBROUTINE DE_ALLOCATE deallocate(pp25cb) deallocate(pp10cb) deallocate(sscb) + if (nasa_on) then + deallocate(no3cb) + deallocate(nh4cb) + endif deallocate(dustallcb) deallocate(ssallcb) deallocate(dustpm) diff --git a/sorc/ncep_post.fd/FDLVL.f b/sorc/ncep_post.fd/FDLVL.f index fbe110473..b0a0714c9 100644 --- a/sorc/ncep_post.fd/FDLVL.f +++ b/sorc/ncep_post.fd/FDLVL.f @@ -39,13 +39,13 @@ !> 2002-01-15 | Mike Baldwin | WRF version !> 2011-12-14 | Sarah Lu | Add GOCART aerosol AERFD !> 2021-10-15 | JESSE MENG | 2D DECOMPOSITION +!> 2022-09-22 | Li(Kate) Zhang | Remove Dust=> AERFD !> !> @author Russ Treadon W/NP2 @date 1992-12-22 - SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) + SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD) ! ! - use vrbls4d, only: DUST use vrbls3d, only: ZMID, T, Q, PMID, ICING_GFIP, UH, VH use vrbls2d, only: FIS use masks, only: LMH @@ -65,7 +65,6 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) integer,intent(in) :: ITYPE(NFD) !jw real,intent(in) :: HTFD(NFD) real,dimension(ISTA:IEND,JSTA:JEND,NFD),intent(out) :: TFD,QFD,UFD,VFD,PFD,ICINGFD - real,dimension(ISTA:IEND,JSTA:JEND,NFD,NBIN_DU),intent(out) :: AERFD ! INTEGER LVL(NFD),LHL(NFD) INTEGER IVE(JM),IVW(JM) @@ -98,17 +97,6 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) ENDDO ENDDO ENDDO - if (gocart_on) then - DO N = 1, NBIN_DU - DO IFD = 1,NFD - DO J=JSTA,JEND - DO I=ISTA,IEND - AERFD(I,J,IFD,N) = SPVAL - ENDDO - ENDDO - ENDDO - ENDDO - endif IF(gridtype == 'E') THEN JVN = 1 @@ -224,22 +212,11 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) PFD(I,J,IFD) = PMID(I,J,L) - (PMID(I,J,L)-PMID(I,J,L+1))*RDZ*DZABH(IFD) ICINGFD(I,J,IFD) = ICING_GFIP(I,J,L) - & (ICING_GFIP(I,J,L)-ICING_GFIP(I,J,L+1))*RDZ*DZABH(IFD) - if (gocart_on) then - DO N = 1, NBIN_DU - AERFD(I,J,IFD,N) = DUST(I,J,L,N) - & - (DUST(I,J,L,N)-DUST(I,J,L+1,N))*RDZ*DZABH(IFD) - ENDDO - endif ELSEIF (L == LM) THEN TFD(I,J,IFD) = T(I,J,L) QFD(I,J,IFD) = Q(I,J,L) PFD(I,J,IFD) = PMID(I,J,L) ICINGFD(I,J,IFD) = ICING_GFIP(I,J,L) - if (gocart_on) then - DO N = 1, NBIN_DU - AERFD(I,J,IFD,N) = DUST(I,J,L,N) - ENDDO - endif ENDIF L = LVL(IFD) @@ -364,22 +341,11 @@ SUBROUTINE FDLVL(ITYPE,TFD,QFD,UFD,VFD,PFD,ICINGFD,AERFD) PFD(I,J,IFD) = PMID(I,J,L) - (PMID(I,J,L)-PMID(I,J,L+1))*RDZ*DZABH(IFD) ICINGFD(I,J,IFD) = ICING_GFIP(I,J,L) - & (ICING_GFIP(I,J,L)-ICING_GFIP(I,J,L+1))*RDZ*DZABH(IFD) - if (gocart_on) then - DO N = 1, NBIN_DU - AERFD(I,J,IFD,N) = DUST(I,J,L,N) - & - (DUST(I,J,L,N)-DUST(I,J,L+1,N))*RDZ*DZABH(IFD) - ENDDO - endif ELSE TFD(I,J,IFD) = T(I,J,L) QFD(I,J,IFD) = Q(I,J,L) PFD(I,J,IFD) = PMID(I,J,L) ICINGFD(I,J,IFD) = ICING_GFIP(I,J,L) - if (gocart_on) then - DO N = 1, NBIN_DU - AERFD(I,J,IFD,N) = DUST(I,J,L,N) - ENDDO - endif ENDIF L = LVL(IFD) diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index cca50d7b2..2452b2f8d 100644 --- a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f +++ b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f @@ -24,6 +24,7 @@ !> 2016-07-21 | Jun Wang | Change averaged field name with suffix !> 2019-07-24 | Li(Kate) Zhang | Merge and update NGAC UPP into FV3-Chem !> 2021-03-11 | Bo Cui | Change local arrays to dimension (im,jsta:jend) +!> 2022-09-22 | Li(Kate) Zhang | Remove duplicated initializations which have been done in ALLCOCATE_ALL.f !> !> @author Hui-Ya Chuang @date 2007-03-04 SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) @@ -1336,16 +1337,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! GFS output dust in nemsio (GOCART) dustcb=0.0 dustallcb=0.0 - do n=1,nbin_du - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - dust(i,j,l,n) = spval - enddo - enddo - enddo - enddo ! DUST = SPVAL !VarName='du001' VarName='dust1' @@ -1423,16 +1414,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! GFS output sea salt in nemsio (GOCART) sscb=0.0 ssallcb=0.0 - do n=1,nbin_ss - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - salt(i,j,l,n) = spval - enddo - enddo - enddo - enddo ! SALT = SPVAL !VarName='ss001' VarName='seas1' @@ -1511,16 +1492,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! GFS output black carbon in nemsio (GOCART) bccb=0.0 - do n=1,nbin_bc - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - soot(i,j,l,n) = spval - enddo - enddo - enddo - enddo ! SOOT = SPVAL !VarName='bcphobic' VarName='bc1' @@ -1554,16 +1525,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) occb=0.0 ! GFS output organic carbon in nemsio (GOCART) - do n=1,nbin_oc - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - waso(i,j,l,n) = spval - enddo - enddo - enddo - enddo ! WASO = SPVAL !VarName='ocphobic' VarName='oc1' @@ -1597,16 +1558,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! GFS output sulfate in nemsio (GOCART) sulfcb=0.0 - do n=1,nbin_su - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - suso(i,j,l,n) = spval - enddo - enddo - enddo - enddo ! SUSO = SPVAL !VarName='so4' VarName='sulf' @@ -1627,16 +1578,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) ! GFS output pp25 in nemsio (GOCART) pp25cb=0.0 - do n=1,nbin_su - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - pp25(i,j,l,n) = spval - enddo - enddo - enddo - enddo ! PP25 = SPVAL !VarName='so4' VarName='pp25' @@ -1655,16 +1596,6 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER) end do ! do loop for l ! GFS output pp10 in nemsio (GOCART) pp10cb=0.0 - do n=1,nbin_su - do l=1,lm -!$omp parallel do private(i,j) - do j=jsta_2l,jend_2u - do i=1,im - pp10(i,j,l,n) = spval - enddo - enddo - enddo - enddo ! PP10 = SPVAL !VarName='so4' VarName='pp10' diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 80b42184d..abdd0a1c7 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -20,19 +20,21 @@ !> 2022-06-05 | Hui-Ya Chuang | Modify dx/dy computation for RRFS domain over north pole !> 2022-07-10 | Wen Meng | Output lat/lon on four coner points of rotated lat-lon grids in text file. !> 2022-07-18 | Wen Meng | Read instant top of atmos ULWRF from model +!> 2022-09-18 | Li(Kate) Zhang| Add aerosol fileds for GEFS-Aerosols (gocart_on) and UFS-Aerosols(nasa_on) model !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) use netcdf - use vrbls4d, only: dust, SALT, SUSO, SOOT, WASO + use vrbls4d, only: dust, SALT, SUSO, SOOT, WASO,no3,nh4, PP25, PP10 use vrbls3d, only: t, q, uh, vh, pmid, pint, alpint, dpres, zint, zmid, o3, & qqr, qqs, cwm, qqi, qqw, omga, rhomid, q2, cfr, rlwtt, rswtt, tcucn, & tcucns, train, el_pbl, exch_h, vdifftt, vdiffmois, dconvmois, nradtt, & o3vdiff, o3prod, o3tndy, mwpv, unknown, vdiffzacce, zgdrag,cnvctummixing, & vdiffmacce, mgdrag, cnvctvmmixing, ncnvctcfrac, cnvctumflx, cnvctdmflx, & cnvctzgdrag, sconvmois, cnvctmgdrag, cnvctdetmflx, duwt, duem, dusd, dudp, & + dusv,ssem,sssd,ssdp,sswt,sssv,bcem,bcsd,bcdp,bcwt,bcsv,ocem,ocsd,ocdp,ocwt,ocsv, & wh, qqg, ref_10cm, qqnifa, qqnwfa, pmtf, ozcon use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & @@ -42,7 +44,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) islope, cmc, grnflx, vegfrc, acfrcv, ncfrcv, acfrst, ncfrst, ssroff, & bgroff, rlwin, rlwtoa, cldwork, alwin, alwout, alwtoa, rswin, rswinc, & rswout, aswin, auvbin, auvbinc, aswout, aswtoa, sfcshx, sfclhx, subshx, & - snopcx, sfcux, sfcvx, sfcuxi, sfcvxi, sfcuvx, gtaux, gtauy, potevp, u10, v10, smstav, & + snopcx, sfcux, sfcvx, sfcuxi, sfcvxi, sfcuvx, gtaux, gtauy, potevp, u10, v10, smstav,& smstot, ivgtyp, isltyp, sfcevp, sfcexc, acsnow, acsnom, sst, thz0, qz0, & uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm, & ptoph, pboth, pblcfr, ttoph, runoff, tecan, tetran, tedir, twa, maxtshltr, & @@ -54,7 +56,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) avgedir,avgecan,paha,pahi,avgetrans,avgesnow,avgprec_cont,avgcprate_cont,rel_vort_max, & avisbeamswin,avisdiffswin,airbeamswin,airdiffswin,refdm10c_max,wspd10max, & alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & - ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550,prate_max, & + ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550,prate_max,maod,dustpm10, & + dustcb,bccb,occb,sulfcb,sscb,dustallcb,ssallcb,dustpm,sspm,pp25cb,pp10cb,no3cb,nh4cb,& pwat use soil, only: sldpth, sllevel, sh2o, smc, stc use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice @@ -68,7 +71,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) jend_m, imin, imp_physics, dt, spval, pdtop, pt, qmin, nbin_du, nphs, dtq2, ardlw,& ardsw, asrfc, avrain, avcnvc, theat, gdsdegr, spl, lsm, alsl, im, jm, im_jm, lm, & jsta_2l, jend_2u, nsoil, lp1, icu_physics, ivegsrc, novegtype, nbin_ss, nbin_bc, & - nbin_oc, nbin_su, gocart_on, pt_tbl, hyb_sigp, filenameFlux, fileNameAER, & + nbin_oc, nbin_su, nbin_no3, nbin_nh4, gocart_on, nasa_on, pt_tbl, hyb_sigp, & + filenameFlux, fileNameAER, & iSF_SURFACE_PHYSICS,rdaod, aqfcmaq_on, modelname, & ista, iend, ista_2l, iend_2u,iend_m use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & @@ -156,6 +160,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) real, allocatable :: tmp(:) real :: buf(ista_2l:iend_2u,jsta_2l:jend_2u) real :: buf3d(ista_2l:iend_2u,jsta_2l:jend_2u,lm) + real :: chem_2d(ista_2l:iend_2u,jsta_2l:jend_2u) + real :: chemT(ista_2l:iend_2u,jsta_2l:jend_2u,lm) + real :: dt1(ista_2l:iend_2u,jsta_2l:jend_2u,lm) + real :: dt2(ista_2l:iend_2u,jsta_2l:jend_2u,lm) + real :: dt3(ista_2l:iend_2u,jsta_2l:jend_2u,lm) + real :: dt4(ista_2l:iend_2u,jsta_2l:jend_2u,lm) + real :: dt5(ista_2l:iend_2u,jsta_2l:jend_2u,lm) ! real buf(ista_2l:iend_2u,jsta_2l:jend_2u),bufsoil(im,nsoil,jsta_2l:jend_2u) & ! ,buf3d(ista_2l:iend_2u,jsta_2l:jend_2u,lm),buf3d2(im,lp1,jsta_2l:jend_2u) @@ -1685,6 +1696,395 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) end do + print *, 'gocart_on=',gocart_on + print *, 'nasa_on=',nasa_on + if (gocart_on .or. nasa_on) then + +! GFS output dust in nemsio (GOCART) + dustcb=0.0 + dustallcb=0.0 +! DUST = SPVAL + + VarName='dust1' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + VarName='dust2' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt2(ista_2l,jsta_2l,1),lm) + VarName='dust3' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt3(ista_2l,jsta_2l,1),lm) + VarName='dust4' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt4(ista_2l,jsta_2l,1),lm) + VarName='dust5' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt5(ista_2l,jsta_2l,1),lm) + + + do l=1,lm + +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + dust(i,j,l,1)=dt1(i,j,l) + dust(i,j,l,2)=dt2(i,j,l) + dust(i,j,l,3)=dt3(i,j,l) + dust(i,j,l,4)=dt4(i,j,l) + dust(i,j,l,5)=dt5(i,j,l) + + + dustcb(i,j)=dustcb(i,j)+& + (dust(i,j,l,1)+0.38*dust(i,j,l,2))* & + dpres(i,j,l)/grav + + + dustallcb(i,j)=dustallcb(i,j)+ & + (dust(i,j,l,1)+dust(i,j,l,2)+ & + dust(i,j,l,3)+0.74*dust(i,j,l,4))* & + dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l + + +! GFS output sea salt in nemsio (GOCART) + sscb=0.0 + ssallcb=0.0 + + VarName='seas1' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + + VarName='seas2' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt2(ista_2l,jsta_2l,1),lm) + + VarName='seas3' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt3(ista_2l,jsta_2l,1),lm) + + VarName='seas4' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt4(ista_2l,jsta_2l,1),lm) + + VarName='seas5' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt5(ista_2l,jsta_2l,1),lm) + + + + do l=1,lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + salt(i,j,l,1)=dt1(i,j,l) + salt(i,j,l,2)=dt2(i,j,l) + salt(i,j,l,3)=dt3(i,j,l) + salt(i,j,l,4)=dt4(i,j,l) + salt(i,j,l,5)=dt5(i,j,l) + + sscb(i,j)=sscb(i,j)+ & + (salt(i,j,l,1)+salt(i,j,l,2)+0.83*salt(i,j,l,3))* & + dpres(i,j,l)/grav + + + ssallcb(i,j)=ssallcb(i,j)+ & + (salt(i,j,l,1)+salt(i,j,l,2)+salt(i,j,l,3)+salt(i,j,l,4))* & + dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l +! GFS output black carbon in nemsio (GOCART) + bccb=0.0 + + + VarName='bc1' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + + VarName='bc2' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt2(ista_2l,jsta_2l,1),lm) + + do l=1,lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + + soot(i,j,l,1)=dt1(i,j,l) + soot(i,j,l,2)=dt2(i,j,l) + + bccb(i,j)=bccb(i,j)+ & + (soot(i,j,l,1)+soot(i,j,l,2))* & + dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l + + occb=0.0 +! GFS output organic carbon in nemsio (GOCART) + + VarName='oc1' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + + VarName='oc2' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt2(ista_2l,jsta_2l,1),lm) + do l=1,lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + waso(i,j,l,1)=dt1(i,j,l) + waso(i,j,l,2)=dt2(i,j,l) + + occb(i,j)=occb(i,j)+ & + (waso(i,j,l,1)+waso(i,j,l,2))* & + dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l + +! GFS output sulfate in netcdf (GOCART) + sulfcb=0.0 + +! SUSO = SPVAL + if (gocart_on) then + VarName='sulf' + endif + + if (nasa_on) then + VarName='so4' + endif + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + + do l=1,lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + suso(i,j,l,1)=dt1(i,j,l) + + sulfcb(i,j)=sulfcb(i,j)+ & + suso(i,j,l,1)* & + dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l + + if (nasa_on) then +! GFS output nitrate in netcdf (GOCART) + no3cb=0.0 + VarName='no3an1' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + + VarName='no3an2' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt2(ista_2l,jsta_2l,1),lm) + + VarName='no3an3' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt3(ista_2l,jsta_2l,1),lm) + + do l=1,lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + no3(i,j,l,1)=dt1(i,j,l) + no3(i,j,l,2)=dt2(i,j,l) + no3(i,j,l,3)=dt3(i,j,l) + + no3cb(i,j)=no3cb(i,j)+ & + (no3(i,j,l,1)+no3(i,j,l,2)+no3(i,j,l,3))* & + dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l + +! GFS output NH4 in netcdf (GOCART) + nh4cb=0.0 + VarName='nh4a' + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + + do l=1,lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + nh4(i,j,l,1)=dt1(i,j,l) + + nh4cb(i,j)=nh4cb(i,j)+ & + nh4(i,j,l,1)* & + dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l + + + endif !nasa_on + +! GFS output pp25 in nemsio (GOCART) + pp25cb=0.0 + + if (gocart_on) then + VarName='pp25' + endif + + if (nasa_on) then + VarName='pm25' + endif + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt1(ista_2l,jsta_2l,1),lm) + + +! GFS output pp10 in nemsio (GOCART) + pp10cb=0.0 + if (gocart_on) then + VarName='pp10' + endif + + if (nasa_on) then + VarName='pm10' + endif + + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,dt2(ista_2l,jsta_2l,1),lm) + + do l=1,lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + pp25(i,j,l,1)=dt1(i,j,l) + pp10(i,j,l,1)=dt2(i,j,l) + + + pp25cb(i,j)=pp25cb(i,j)+ & + pp25(i,j,l,1)* dpres(i,j,l)/grav + + pp10cb(i,j)=pp10cb(i,j)+ & + pp10(i,j,l,1)* dpres(i,j,l)/grav + enddo + enddo + end do ! do loop for l +! -- compute air density RHOMID and remove negative tracer values + do l=1,lm +!$omp parallel do private(i,j,tv) + do j=jsta,jend + do i=ista,iend + + TV = T(I,J,L) * (H1+D608*MAX(Q(I,J,L),QMIN)) + RHOMID(I,J,L) = PMID(I,J,L) / (RD*TV) + do n = 1, NBIN_DU + IF ( dust(i,j,l,n) < SPVAL) THEN + DUST(i,j,l,n) = MAX(DUST(i,j,l,n), 0.0) + ENDIF + enddo + do n = 1, NBIN_SS + IF ( salt(i,j,l,n) < SPVAL) THEN + SALT(i,j,l,n) = MAX(SALT(i,j,l,n), 0.0) + ENDIF + enddo + do n = 1, NBIN_OC + IF ( waso(i,j,l,n) < SPVAL) THEN + WASO(i,j,l,n) = MAX(WASO(i,j,l,n), 0.0) + ENDIF + enddo + do n = 1, NBIN_BC + IF ( soot(i,j,l,n) < SPVAL) THEN + SOOT(i,j,l,n) = MAX(SOOT(i,j,l,n), 0.0) + ENDIF + enddo + do n = 1, NBIN_SU + IF ( suso(i,j,l,n) < SPVAL) THEN + SUSO(i,j,l,n) = MAX(SUSO(i,j,l,n), 0.0) + ENDIF + enddo + if (nasa_on) then + do n = 1, NBIN_NO3 + IF ( no3(i,j,l,n) < SPVAL) THEN + no3(i,j,l,n) = MAX(no3(i,j,l,n), 0.0) + ENDIF + enddo + do n = 1, NBIN_NH4 + IF ( nh4(i,j,l,n) < SPVAL) THEN + nh4(i,j,l,n) = MAX(nh4(i,j,l,n), 0.0) + ENDIF + enddo + endif !nasa_on + end do + end do + end do + l=lm +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + dustcb(i,j) = MAX(dustcb(i,j), 0.0) + dustallcb(i,j) = MAX(dustallcb(i,j), 0.0) + sscb(i,j) = MAX(sscb(i,j), 0.0) + ssallcb(i,j) = MAX(ssallcb(i,j), 0.0) + bccb(i,j) = MAX(bccb(i,j), 0.0) + occb(i,j) = MAX(occb(i,j), 0.0) + sulfcb(i,j) = MAX(sulfcb(i,j), 0.0) + if (nasa_on) then + no3cb(i,j) = MAX(no3cb(i,j), 0.0) + nh4cb(i,j) = MAX(nh4cb(i,j), 0.0) + endif + pp25cb(i,j) = MAX(pp25cb(i,j), 0.0) + pp10cb(i,j) = MAX(pp10cb(i,j), 0.0) + +! PM25 dust and seasalt + dustpm(i,j)=(dust(i,j,l,1)+0.38*dust(i,j,l,2))*RHOMID(i,j,l) !ug/m3 + dustpm10(i,j)=(dust(i,j,l,1)+dust(i,j,l,2)+dust(i,j,l,3)+ & + 0.74*dust(i,j,l,4))*RHOMID(i,j,l) !ug/m3 + sspm(i,j)=(salt(i,j,l,1)+salt(i,j,l,2)+ & + 0.83*salt(i,j,l,3))*RHOMID(i,j,l) !ug/m3 + + if (gocart_on) then +! PM10 concentration + dusmass(i,j)=(dust(i,j,l,1)+dust(i,j,l,2)+dust(i,j,l,3)+ & + 0.74*dust(i,j,l,4)+salt(i,j,l,1)+salt(i,j,l,2)+salt(i,j,l,3)+ & + salt(i,j,l,4) + soot(i,j,l,1)+soot(i,j,l,2)+waso(i,j,l,1)+ & + waso(i,j,l,2) +suso(i,j,l,1)+pp25(i,j,l,1)+pp10(i,j,l,1)) & + *RHOMID(i,j,l) !ug/m3 +! PM25 concentration + dusmass25(i,j)=(dust(i,j,l,1)+0.38*dust(i,j,l,2)+ & + salt(i,j,l,1)+salt(i,j,l,2)+0.83*salt(i,j,l,3) + & + soot(i,j,l,1)+soot(i,j,l,2)+waso(i,j,l,1)+ & + waso(i,j,l,2) +suso(i,j,l,1)+pp25(i,j,l,1))*RHOMID(i,j,l) !ug/m3 + +! PM10 column + ducmass(i,j)=dustallcb(i,j)+ssallcb(i,j)+bccb(i,j)+ & + occb(i,j)+sulfcb(i,j)+pp25cb(i,j)+pp10cb(i,j) +! PM25 column + ducmass25(i,j)=dustcb(i,j)+sscb(i,j)+bccb(i,j)+occb(i,j) & + +sulfcb(i,j)+pp25cb(i,j) + endif !gocart_on + + if (nasa_on) then +! PM10 concentration + dusmass(i,j)=pp10(i,j,l,1)*RHOMID(i,j,l) !ug/m3 +! PM25 concentration + dusmass25(i,j)=pp25(i,j,l,1)*RHOMID(i,j,l) !ug/m3 + +! PM10 column + ducmass(i,j)=pp10cb(i,j) +! PM25 column + ducmass25(i,j)=pp25cb(i,j) + endif !nasa_on + + + end do + end do + + + endif ! endif for gocart_on & nasa_on + +! ',ll,waso(isa,jsa,ll,2) +! ',ll,waso(isa,jsa,ll,2) + + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! @@ -3435,6 +3835,231 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) enddo enddo + + print *, 'gocart_on=',gocart_on + print *, 'nasa_on=',nasa_on + if (gocart_on) then + + +! retrieve dust emission fluxes + do K = 1, nbin_du + if ( K == 1) VarName='duem001' + if ( K == 2) VarName='duem002' + if ( K == 3) VarName='duem003' + if ( K == 4) VarName='duem004' + if ( K == 5) VarName='duem005' + + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + + duem(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve dust sedimentation fluxes + do K = 1, nbin_du + if ( K == 1) VarName='dust1sd' + if ( K == 2) VarName='dust2sd' + if ( K == 3) VarName='dust3sd' + if ( K == 4) VarName='dust4sd' + if ( K == 5) VarName='dust5sd' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + dusd(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve dust dry deposition fluxes + do K = 1, nbin_du + if ( K == 1) VarName='dust1dp' + if ( K == 2) VarName='dust2dp' + if ( K == 3) VarName='dust3dp' + if ( K == 4) VarName='dust4dp' + if ( K == 5) VarName='dust5dp' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + dudp(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve dust wet deposition fluxes + do K = 1, nbin_du + if ( K == 1) VarName='dust1wtl' + if ( K == 2) VarName='dust2wtl' + if ( K == 3) VarName='dust3wtl' + if ( K == 4) VarName='dust4wtl' + if ( K == 5) VarName='dust5wtl' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + duwt(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve dust scavenging fluxes + do K = 1, nbin_du + if ( K == 1) VarName='dust1wtc' + if ( K == 2) VarName='dust2wtc' + if ( K == 3) VarName='dust3wtc' + if ( K == 4) VarName='dust4wtc' + if ( K == 5) VarName='dust5wtc' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + dusv(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve seasalt emission fluxes + do K = 1, nbin_ss + if ( K == 1) VarName='ssem001' + if ( K == 2) VarName='ssem002' + if ( K == 3) VarName='ssem003' + if ( K == 4) VarName='ssem004' + if ( K == 5) VarName='ssem005' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + ssem(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve seasalt emission fluxes + do K = 1, nbin_ss + if ( K == 1) VarName='seas1sd' + if ( K == 2) VarName='seas2sd' + if ( K == 3) VarName='seas3sd' + if ( K == 4) VarName='seas4sd' + if ( K == 5) VarName='seas5sd' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + sssd(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve seasalt dry deposition fluxes + do K = 1, nbin_ss + if ( K == 1) VarName='seas1dp' + if ( K == 2) VarName='seas2dp' + if ( K == 3) VarName='seas3dp' + if ( K == 4) VarName='seas4dp' + if ( K == 5) VarName='seas5dp' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + ssdp(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve seasalt wet deposition fluxes + do K = 1, nbin_ss + if ( K == 1) VarName='seas1wtl' + if ( K == 2) VarName='seas2wtl' + if ( K == 3) VarName='seas3wtl' + if ( K == 4) VarName='seas4wtl' + if ( K == 5) VarName='seas5wtl' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + sswt(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve seasalt scavenging fluxes + do K = 1, nbin_ss + if ( K == 1) VarName='seas1wtc' + if ( K == 2) VarName='seas1wtc' + if ( K == 3) VarName='seas1wtc' + if ( K == 4) VarName='seas1wtc' + if ( K == 5) VarName='seas1wtc' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + sssv(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve bc emission fluxes + do K = 1, nbin_bc + if ( K == 1) VarName='bceman' + if ( K == 2) VarName='bcembb' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + bcem(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve bc sedimentation fluxes + do K = 1, nbin_bc + if ( K == 1) VarName='bc1sd' + if ( K == 2) VarName='bc2sd' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + bcsd(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve bc dry deposition fluxes + do K = 1, nbin_bc + if ( K == 1) VarName='bc1dp' + if ( K == 2) VarName='bc2dp' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + bcdp(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve bc large wet deposition fluxes + do K = 1, nbin_bc + if ( K == 1) VarName='bc1wtl' + if ( K == 2) VarName='bc2wtl' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + bcwt(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve bc convective wet deposition fluxes + do K = 1, nbin_bc + if ( K == 1) VarName='bc1wtc' + if ( K == 2) VarName='bc2wtc' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + bcsv(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve oc emission fluxes + do K = 1, nbin_oc + if ( K == 1) VarName='oceman' + if ( K == 2) VarName='ocembb' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + ocem(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve oc sedimentation fluxes + do K = 1, nbin_oc + if ( K == 1) VarName='oc1sd' + if ( K == 2) VarName='oc2sd' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + ocsd(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve oc dry deposition fluxes + do K = 1, nbin_oc + if ( K == 1) VarName='oc1dp' + if ( K == 2) VarName='oc2dp' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + ocdp(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve oc large wet deposition fluxes + do K = 1, nbin_oc + if ( K == 1) VarName='oc1wtl' + if ( K == 2) VarName='oc2wtl' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + ocwt(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve oc convective wet deposition fluxes + do K = 1, nbin_oc + if ( K == 1) VarName='oc1wtc' + if ( K == 2) VarName='oc2wtc' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + ocsv(1:im,jsta_2l:jend_2u,K)=chem_2d(1:im,jsta_2l:jend_2u) + enddo + +! retrieve MIE AOD + VarName='maod' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u,& + spval,VarName,chem_2d) + maod(1:im,jsta_2l:jend_2u)=chem_2d(1:im,jsta_2l:jend_2u) + + endif ! gocart_on ! done with flux file, close it for now Status=nf90_close(ncid2d) ! deallocate(tmp,recname,reclevtyp,reclev) diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f index ce3269951..f3990cd3c 100644 --- a/sorc/ncep_post.fd/MDL2P.f +++ b/sorc/ncep_post.fd/MDL2P.f @@ -31,6 +31,7 @@ !> 2021-04-01 | J Meng | Computation on defined points only !> 2021-07-07 | J MENG | 2D DECOMPOSITION !> 2022-08-03 | W Meng | Modify total cloud fraction(331) +!> 2022-09-22 | L Zhang | Remove DUSTSL !> !> @author T Black W/NP2 @date 1999-09-23 SUBROUTINE MDL2P(iostatusD3D) @@ -57,8 +58,9 @@ SUBROUTINE MDL2P(iostatusD3D) use ctlblk_mod, only: MODELNAME, LP1, ME, JSTA, JEND, LM, SPVAL, SPL, & ALSL, JEND_M, SMFLAG, GRIB, CFLD, FLD_INFO, DATAPD,& TD3D, IFHR, IFMIN, IM, JM, NBIN_DU, JSTA_2L, & - JEND_2U, LSM, d3d_on, gocart_on, ioform, NBIN_SM, & - imp_physics, ISTA, IEND, ISTA_M, IEND_M, ISTA_2L, IEND_2U + JEND_2U, LSM, d3d_on, ioform, NBIN_SM, & + imp_physics, ISTA, IEND, ISTA_M, IEND_M, ISTA_2L, & + IEND_2U,nasa_on use rqstfld_mod, only: IGET, LVLS, ID, IAVBLFLD, LVLSXML use gridspec_mod, only: GRIDTYPE, MAPTYPE, DXVAL use upp_physics, only: FPVSNEW, CALRH, CALVOR @@ -83,8 +85,7 @@ SUBROUTINE MDL2P(iostatusD3D) &, EGRID1, EGRID2 & &, FSL_OLD, USL_OLD, VSL_OLD & &, OSL_OLD, OSL995 -! REAL D3DSL(IM,JM,27),DUSTSL(IM,JM,NBIN_DU) - REAL, allocatable :: D3DSL(:,:,:), DUSTSL(:,:,:), SMOKESL(:,:,:) + REAL, allocatable :: D3DSL(:,:,:), SMOKESL(:,:,:) ! integer,intent(in) :: iostatusD3D INTEGER, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: NL1X, NL1XF @@ -138,17 +139,6 @@ SUBROUTINE MDL2P(iostatusD3D) enddo enddo endif - if (gocart_on) then - if (.not. allocated(dustsl)) allocate(dustsl(im,jm,nbin_du)) -!$omp parallel do private(i,j,l) - do l=1,nbin_du - do j=1,jm - do i=1,im - DUSTSL(i,j,l) = SPVAL - enddo - enddo - enddo - endif if (.not. allocated(smokesl)) allocate(smokesl(im,jm,nbin_sm)) !$omp parallel do private(i,j,l) do l=1,nbin_sm @@ -198,9 +188,7 @@ SUBROUTINE MDL2P(iostatusD3D) (IGET(393) > 0) .OR. (IGET(394) > 0) .OR. & (IGET(395) > 0) .OR. (IGET(379) > 0) .OR. & ! ADD DUST FIELDS - (IGET(438) > 0) .OR. (IGET(439) > 0) .OR. & - (IGET(440) > 0) .OR. (IGET(441) > 0) .OR. & - (IGET(442) > 0) .OR. (IGET(455) > 0) .OR. & + (IGET(455) > 0) .OR. & ! ADD SMOKE FIELDS (IGET(738) > 0) .OR. (MODELNAME == 'RAPR') .OR.& ! LIFTED INDEX needs 500 mb T @@ -338,12 +326,6 @@ SUBROUTINE MDL2P(iostatusD3D) IF(TTND(I,J,1) < SPVAL) RAD(I,J) = TTND(I,J,1) IF(O3(I,J,1) < SPVAL) O3SL(I,J) = O3(I,J,1) IF(CFR(I,J,1) < SPVAL) CFRSL(I,J) = CFR(I,J,1) -! DUST - if (gocart_on) then - DO K = 1, NBIN_DU - IF(DUST(I,J,1,K) < SPVAL) DUSTSL(I,J,K) = DUST(I,J,1,K) - ENDDO - endif DO K = 1, NBIN_SM IF(SMOKE(I,J,1,K) < SPVAL) SMOKESL(I,J,K)=SMOKE(I,J,1,K) ENDDO @@ -500,13 +482,6 @@ SUBROUTINE MDL2P(iostatusD3D) IF(CFR(I,J,LL) < SPVAL .AND. CFR(I,J,LL-1) < SPVAL) & CFRSL(I,J) = CFR(I,J,LL) + (CFR(I,J,LL)-CFR(I,J,LL-1))*FACT -! DUST - if (gocart_on) then - DO K = 1, NBIN_DU - IF(DUST(I,J,LL,K) < SPVAL .AND. DUST(I,J,LL-1,K) < SPVAL) & - DUSTSL(I,J,K) = DUST(I,J,LL,K) + (DUST(I,J,LL,K)-DUST(I,J,LL-1,K))*FACT - ENDDO - endif DO K = 1, NBIN_SM IF(SMOKE(I,J,LL,K) < SPVAL .AND. SMOKE(I,J,LL-1,K) < SPVAL) & SMOKESL(I,J,K)=SMOKE(I,J,LL,K)+(SMOKE(I,J,LL,K)-SMOKE(I,J,LL-1,K))*FACT @@ -2062,130 +2037,7 @@ SUBROUTINE MDL2P(iostatusD3D) endif ENDIF ENDIF - if (gocart_on) then -!--- DUST - IF (IGET(438) > 0) THEN - IF (LVLS(LP,IGET(438)) > 0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J) = DUSTSL(I,J,1) - ENDDO - ENDDO - if(grib == 'grib2')then - cfld = cfld + 1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(438)) - fld_info(cfld)%lvl=LVLSXML(LP,IGET(438)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii=ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - ENDIF - ENDIF - - IF (IGET(439) > 0) THEN - IF (LVLS(LP,IGET(439)) > 0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J) = DUSTSL(I,J,2) - ENDDO - ENDDO - if(grib == 'grib2')then - cfld = cfld + 1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(439)) - fld_info(cfld)%lvl=LVLSXML(LP,IGET(439)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii=ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - ENDIF - ENDIF - - IF (IGET(440) > 0) THEN - IF (LVLS(LP,IGET(440)) > 0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J) = DUSTSL(I,J,3) - ENDDO - ENDDO - if(grib == 'grib2')then - cfld = cfld + 1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(440)) - fld_info(cfld)%lvl=LVLSXML(LP,IGET(440)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii=ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - ENDIF - ENDIF - - IF (IGET(441) > 0) THEN - IF (LVLS(LP,IGET(441)) > 0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J) = DUSTSL(I,J,4) - ENDDO - ENDDO - if(grib == 'grib2')then - cfld = cfld + 1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(441)) - fld_info(cfld)%lvl=LVLSXML(LP,IGET(441)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii=ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - ENDIF - ENDIF - - IF (IGET(442) > 0) THEN - IF (LVLS(LP,IGET(442)) > 0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J) = DUSTSL(I,J,5) - ENDDO - ENDDO - if(grib == 'grib2')then - cfld = cfld + 1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(442)) - fld_info(cfld)%lvl=LVLSXML(LP,IGET(442)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii=ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - ENDIF - ENDIF - endif ! if gocart_on - - + if(iostatusD3D==0 .and. d3d_on) then !--- longwave tendency IF (IGET(355) > 0) THEN @@ -3950,7 +3802,6 @@ SUBROUTINE MDL2P(iostatusD3D) ENDIF ! if(allocated(d3dsl)) deallocate(d3dsl) -if(allocated(dustsl)) deallocate(dustsl) if(allocated(smokesl)) deallocate(smokesl) ! END OF ROUTINE. ! diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index b3dbe03f3..d439ef2d0 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -44,6 +44,7 @@ !! 20-11-10 J MENG - USE UPP_PHYSICS MODULE !! 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY !! 21-07-07 J MENG - 2D DECOMPOSITION +!! 22-09-22 L Zhang- ADD NO3 and NH4 output for UFS-Aerosols model !! !! USAGE: CALL MDLFLD !! INPUT ARGUMENT LIST: @@ -81,7 +82,7 @@ SUBROUTINE MDLFLD ! - use vrbls4d, only: dust, salt, suso, waso, soot, smoke + use vrbls4d, only: dust, salt, suso, waso, soot, no3, nh4, smoke use vrbls3d, only: zmid, t, pmid, q, cwm, f_ice, f_rain, f_rimef, qqw, qqi,& qqr, qqs, cfr, cfr_raw, dbz, dbzr, dbzi, dbzc, qqw, nlice, nrain, qqg, zint, qqni,& qqnr, qqnw, qqnwfa, qqnifa, uh, vh, mcvg, omga, wh, q2, ttnd, rswtt, & @@ -99,7 +100,7 @@ SUBROUTINE MDLFLD use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, grib, cfld, datapd,& fld_info, modelname, imp_physics, dtq2, spval, icount_calmict,& me, dt, avrain, theat, ifhr, ifmin, avcnvc, lp1, im, jm, & - ista, iend, ista_2l, iend_2u, aqfcmaq_on + ista, iend, ista_2l, iend_2u, aqfcmaq_on, gocart_on, nasa_on use rqstfld_mod, only: iget, id, lvls, iavblfld, lvlsxml use gridspec_mod, only: gridtype,maptype,dxval use upp_physics, only: CALRH, CALCAPE, CALVOR @@ -2324,6 +2325,7 @@ SUBROUTINE MDLFLD END IF ENDIF ! + if ( gocart_on .or. nasa_on ) then ! DUST 1 IF (IGET(629)>0) THEN IF (LVLS(L,IGET(629))>0) THEN @@ -2784,6 +2786,70 @@ SUBROUTINE MDLFLD END IF ENDIF + + if (nasa_on) then +! NITRATE + IF (IGET(688)>0) THEN + IF (LVLS(L,IGET(688))>0) THEN + LL=LM-L+1 +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ista,iend + IF(NO3(I,J,LL,1)ug/m3 + ELSE + GRID1(I,J) = spval + ENDIF + ENDDO + ENDDO + if(grib=="grib2") then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(688)) + fld_info(cfld)%lvl=LVLSXML(L,IGET(688)) +!$omp parallel do private(i,j,ii,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) + enddo + enddo + endif + END IF + ENDIF + +! NH4 + IF (IGET(689)>0) THEN + IF (LVLS(L,IGET(689))>0) THEN + LL=LM-L+1 +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ista,iend + IF(NH4(I,J,LL,1)ug/m3 + ELSE + GRID1(I,J) = spval + ENDIF + ENDDO + ENDDO + if(grib=="grib2") then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(689)) + fld_info(cfld)%lvl=LVLSXML(L,IGET(689)) +!$omp parallel do private(i,j,ii,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) + enddo + enddo + endif + END IF + ENDIF + endif !nasa_on + endif !gocart_on + ! AIR DENSITY IF (IGET(644)>0) THEN IF (LVLS(L,IGET(644))>0) THEN diff --git a/sorc/ncep_post.fd/MISCLN.f b/sorc/ncep_post.fd/MISCLN.f index 03bdada62..d286fe38e 100644 --- a/sorc/ncep_post.fd/MISCLN.f +++ b/sorc/ncep_post.fd/MISCLN.f @@ -49,6 +49,7 @@ !! bottoma calculation which is only employed !! for RTMA usage. !! 21-10-14 J MENG - 2D DECOMPOSITION +!! 22-09-22 L Zhang - Li(Kate) Zhang - Remove Dust=> AERFD !! 22-10-06 W Meng - Generate SPC fields with RRFS input !! !! USAGE: CALL MISCLN @@ -144,7 +145,6 @@ SUBROUTINE MISCLN WBND, T7D, Q7D, & U7D, V6D, P7D, & ICINGFD,GTGFD,CATFD,MWTFD - real, dimension(:,:,:,:),allocatable :: AERFD real, dimension(:,:),allocatable :: QM8510, RH4710, RH8498, & RH4796, RH1847, UST, VST, & @@ -789,14 +789,11 @@ SUBROUTINE MISCLN IF ( (IGET(059)>0.or.IGET(586)>0).OR.IGET(911)>0.OR. & (IGET(060)>0.or.IGET(576)>0).OR. & (IGET(061)>0.or.IGET(577)>0).OR. & - (IGET(601)>0.or.IGET(602)>0.or.IGET(603)>0).OR. & - (IGET(604)>0.or.IGET(605)>0).OR. & (IGET(451)>0.or.IGET(578)>0).OR.IGET(580)>0 ) THEN ALLOCATE(T7D(ISTA:IEND,JSTA:JEND,NFD), Q7D(ISTA:IEND,JSTA:JEND,NFD), & U7D(ISTA:IEND,JSTA:JEND,NFD), V6D(ISTA:IEND,JSTA:JEND,NFD), & - P7D(ISTA:IEND,JSTA:JEND,NFD), ICINGFD(ISTA:IEND,JSTA:JEND,NFD),& - AERFD(ISTA:IEND,JSTA:JEND,NFD,NBIN_DU)) + P7D(ISTA:IEND,JSTA:JEND,NFD), ICINGFD(ISTA:IEND,JSTA:JEND,NFD)) ! ! DETERMINE WHETHER TO DO MSL OR AGL FD LEVELS @@ -839,27 +836,11 @@ SUBROUTINE MISCLN if(LVLS(IFD,IGET(587))>0) ITYPEFDLVL(IFD)=2 ENDIF - IF (IGET(601)>0) THEN - IF (LVLS(IFD,IGET(601))>1) ITYPEFDLVL(IFD)=2 - ENDIF - IF (IGET(602)>0) THEN - IF (LVLS(IFD,IGET(602))>1) ITYPEFDLVL(IFD)=2 - ENDIF - IF (IGET(603)>0) THEN - IF (LVLS(IFD,IGET(603))>1) ITYPEFDLVL(IFD)=2 - ENDIF - IF (IGET(604)>0) THEN - IF (LVLS(IFD,IGET(604))>1) ITYPEFDLVL(IFD)=2 - ENDIF - IF (IGET(605)>0) THEN - IF (LVLS(IFD,IGET(605))>1) ITYPEFDLVL(IFD)=2 - ENDIF - ENDDO ! print *,'call FDLVL with ITYPEFDLVL: ', ITYPEFDLVL,'for tmp,lvls=',LVLS(1:15,iget(59)), & ! 'grib2tmp lvs=',LVLS(1:15,iget(586)) - - CALL FDLVL(ITYPEFDLVL,T7D,Q7D,U7D,V6D,P7D,ICINGFD,AERFD) + + CALL FDLVL(ITYPEFDLVL,T7D,Q7D,U7D,V6D,P7D,ICINGFD) ! loop_10: DO IFD = 1,NFD ! @@ -1106,136 +1087,6 @@ SUBROUTINE MISCLN ENDIF ENDIF ! -! ADD FD LEVEL DUST/ASH (GOCART) - IF (IGET(601)>0) THEN ! DUST 1 - IF (LVLS(IFD,IGET(601))>0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J)=AERFD(I,J,IFD,1) - ENDDO - ENDDO - if(iget(601)>0) then - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(601)) - fld_info(cfld)%lvl=LVLSXML(IFD,IGET(601)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - endif - ENDIF - ENDIF - - IF (IGET(602)>0) THEN ! DUST 2 - IF (LVLS(IFD,IGET(602))>0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J)=AERFD(I,J,IFD,2) - ENDDO - ENDDO - if(iget(602)>0) then - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(602)) - fld_info(cfld)%lvl=LVLSXML(IFD,IGET(602)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - endif - ENDIF - ENDIF - - IF (IGET(603)>0) THEN ! DUST 3 - IF (LVLS(IFD,IGET(603))>0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J)=AERFD(I,J,IFD,3) - ENDDO - ENDDO - if(iget(603)>0) then - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(603)) - fld_info(cfld)%lvl=LVLSXML(IFD,IGET(603)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - endif - ENDIF - ENDIF - - IF (IGET(604)>0) THEN ! DUST 4 - IF (LVLS(IFD,IGET(604))>0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J)=AERFD(I,J,IFD,4) - ENDDO - ENDDO - if(iget(604)>0) then - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(604)) - fld_info(cfld)%lvl=LVLSXML(IFD,IGET(604)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - endif - ENDIF - ENDIF - - IF (IGET(605)>0) THEN ! DUST 5 - IF (LVLS(IFD,IGET(605))>0) THEN -!$omp parallel do private(i,j) - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J)=AERFD(I,J,IFD,5) - ENDDO - ENDDO - if(iget(605)>0) then - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(605)) - fld_info(cfld)%lvl=LVLSXML(IFD,IGET(605)) -!$omp parallel do private(i,j,ii,jj) - do j=1,jend-jsta+1 - jj = jsta+j-1 - do i=1,iend-ista+1 - ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) - enddo - enddo - endif - endif - ENDIF - ENDIF ! ! @@ -1330,7 +1181,7 @@ SUBROUTINE MISCLN ENDIF END DO loop_10 - DEALLOCATE(T7D,Q7D,U7D,V6D,P7D,ICINGFD,AERFD) + DEALLOCATE(T7D,Q7D,U7D,V6D,P7D,ICINGFD) ENDIF ! diff --git a/sorc/ncep_post.fd/MPI_FIRST.f b/sorc/ncep_post.fd/MPI_FIRST.f index 1b399877c..0484cd257 100644 --- a/sorc/ncep_post.fd/MPI_FIRST.f +++ b/sorc/ncep_post.fd/MPI_FIRST.f @@ -14,6 +14,7 @@ !! 11-12-16 SARAH LU - MODIFIED TO INITIALIZE AEROSOL FIELDS !! 12-01-07 SARAH LU - MODIFIED TO INITIALIZE AIR DENSITY/LAYER THICKNESS !! 21-07-07 JESSE MENG - 2D DECOMPOSITION +!! 22-09-22 Li(Kate) Zhang - Add new aerosols fields for UFS-Aerosols !! !! USAGE: CALL MPI_FIRST !! INPUT ARGUMENT LIST: @@ -38,7 +39,7 @@ SUBROUTINE MPI_FIRST() ! - use vrbls4d, only: dust, salt, soot, waso, suso, pp25, pp10 + use vrbls4d, only: dust, salt, soot, waso, suso, no3, nh4, pp25, pp10 use vrbls3d, only: u, v, t, q, uh, vh, wh, pmid, pmidv, pint, alpint, zmid, & zint, q2, omga, t_adj, ttnd, rswtt, rlwtt, exch_h, train, tcucn, & el_pbl, cwm, f_ice, f_rain, f_rimef, qqw, qqi, qqr, qqs,qqg, qqni, qqnr, & @@ -80,13 +81,13 @@ SUBROUTINE MPI_FIRST() ocsmass25, occmass25, bcsmass, bccmass, bcsmass25, bccmass25, & sssmass, sscmass, sssmass25, sscmass25, ducmass25, & dustcb, sscb, bccb, occb, sulfcb, dustallcb, ssallcb,dustpm,sspm, pp25cb,& - dustpm10, pp10cb, maod, ti + no3cb, nh4cb, dustpm10, pp10cb, maod, ti use soil, only: smc, stc, sh2o, sldpth, rtdpth, sllevel use masks, only: htm, vtm, hbm2, sm, sice, lmh, gdlat, gdlon, dx, dy, lmv use ctlblk_mod, only: me, num_procs, jm, jsta, jend, jsta_m, jsta_m2,ista,iend , & jend_m, jend_m2, iup, idn, icnt, im, idsp, jsta_2l, jend_2u,idsp2,icnt2, & jvend_2u, lm, lp1, jsta_2l, jend_2u, nsoil, nbin_du, nbin_ss, & - nbin_bc, nbin_oc, nbin_su, & + nbin_bc, nbin_oc, nbin_su, nbin_no3, nbin_nh4, & ISTA_M,IEND_M,ISTA_M2,IEND_M2, iSTA_M,IEND_M,ISTA_M2,IEND_M2, & ileft,iright,ileftb,irightb,ibsize,ibsum, isxa,iexa,jsxa,jexa, & icoords,ibcoords,bufs,ibufs, rbufs, rcoords,rbcoords, & diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index 569f34ea5..3499018b4 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -95,7 +95,7 @@ module vrbls2d ,SSSMASS(:,:),SSCMASS(:,:),SSSMASS25(:,:),SSCMASS25(:,:) & ,DUSTCB(:,:),SSCB(:,:),OCCB(:,:),BCCB(:,:),SULFCB(:,:) & ,DUSTALLCB(:,:),SSALLCB(:,:),DUSTPM(:,:),SSPM(:,:),PP25CB(:,:) & - ,DUSTPM10(:,:),PP10CB(:,:),maod(:,:)!lzhang, add for FV3-Chem + ,DUSTPM10(:,:),PP10CB(:,:),NO3CB(:,:),NH4CB(:,:),maod(:,:)!lzhang, add for FV3-Chem ! end module vrbls2d diff --git a/sorc/ncep_post.fd/VRBLS4D_mod.f b/sorc/ncep_post.fd/VRBLS4D_mod.f index 9606a56a0..09da75118 100644 --- a/sorc/ncep_post.fd/VRBLS4D_mod.f +++ b/sorc/ncep_post.fd/VRBLS4D_mod.f @@ -1,6 +1,7 @@ ! 01-10-22 H CHUANG - MODIFIED TO PROCESS HYBRID MODEL OUTPUT ! 02-04-17 BALDWIN - MODIFIED TO INCLUDE ALL 3D ARRAYS ! 11-10-18 SARAH LU - MODIFIED TO INCLUDE GOCART AEROSOLS +! 22-09-18 Li(Kate) Zhang - MODIFIED TO INCLUDE new NASA GOCART AEROSOLS of NO3 and NH4 module vrbls4d !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -10,6 +11,8 @@ module vrbls4d real, allocatable :: SOOT(:,:,:,:) ! black carbon real, allocatable :: WASO(:,:,:,:) ! organic carbon real, allocatable :: SUSO(:,:,:,:) ! sulfate + real, allocatable :: NO3(:,:,:,:) ! no3 + real, allocatable :: NH4(:,:,:,:) ! nh4 real, allocatable :: SMOKE(:,:,:,:) real, allocatable :: PP25(:,:,:,:) ! PP25 real, allocatable :: PP10(:,:,:,:) ! PP10 diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index c670150f9..c06be8647 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -28,6 +28,7 @@ !> 2021-11-03 | Tracy Hertneky | Removed SIGIO option !> 2022-01-14 | W Meng | Remove interfaces INITPOST_GS_NEMS, INITPOST_NEMS_MPIIO, INITPOST_NMM and INITPOST_GFS_NETCDF !> 2022-03-15 | W Meng | Unify FV3 based interfaces +!> 2022-09-22 | L Zhang | Add option of nasa_on to process ufs-aerosols !> !> @author Mike Bladwin NSSL/SPC @date 2002-06-18 PROGRAM WRFPOST @@ -113,7 +114,7 @@ PROGRAM WRFPOST ista, iend, ista_m, iend_m, ista_2l, iend_2u, & jsta, jend, jsta_m, jend_m, jsta_2l, jend_2u, novegtype, icount_calmict, npset, datapd,& lsm, fld_info, etafld2_tim, eta2p_tim, mdl2sigma_tim, cldrad_tim, miscln_tim, & - mdl2agl_tim, mdl2std_tim, mdl2thandpv_tim, calrad_wcloud_tim, & + mdl2agl_tim, mdl2std_tim, mdl2thandpv_tim, calrad_wcloud_tim,nasa_on, & fixed_tim, time_output, imin, surfce2_tim, komax, ivegsrc, d3d_on, gocart_on,rdaod, & readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqfcmaq_on,numx use grib2_module, only: gribit2,num_pset,nrecout,first_grbtbl,grib_info_finalize @@ -140,7 +141,7 @@ PROGRAM WRFPOST ! integer :: kpo,kth,kpv real,dimension(komax) :: po,th,pv - namelist/nampgb/kpo,po,kth,th,kpv,pv,fileNameAER,d3d_on,gocart_on,popascal & + namelist/nampgb/kpo,po,kth,th,kpv,pv,fileNameAER,d3d_on,gocart_on,nasa_on,popascal & ,hyb_sigp,rdaod,aqfcmaq_on,vtimeunits,numx integer :: itag_ierr namelist/model_inputs/fileName,IOFORM,grib,DateStr,MODELNAME,SUBMODELNAME & @@ -259,6 +260,7 @@ PROGRAM WRFPOST hyb_sigp = .true. d3d_on = .false. gocart_on = .false. + nasa_on = .false. aqfcmaq_on = .false. popascal = .false. fileNameAER = '' @@ -295,8 +297,8 @@ PROGRAM WRFPOST endif if(me == 0) then print*,'komax,iret for nampgb= ',komax,iret - print*,'komax,kpo,kth,th,kpv,pv,fileNameAER,popascal= ',komax,kpo & - & ,kth,th(1:kth),kpv,pv(1:kpv),trim(fileNameAER),popascal + print*,'komax,kpo,kth,th,kpv,pv,fileNameAER,nasa_on,popascal= ',komax,kpo & + & ,kth,th(1:kth),kpv,pv(1:kpv),trim(fileNameAER),nasa_on,popascal print*,'NUM_PROCS=',NUM_PROCS print*,'numx= ',numx endif From ac6bfbde9f498c1a54d967e6fce338f1d7e43838 Mon Sep 17 00:00:00 2001 From: EricJames-NOAA Date: Wed, 19 Oct 2022 17:24:57 -0600 Subject: [PATCH 077/107] NOAA GSL updates to output new simulated satellite brightness temps (#570) * Simulated satellite brightness temps for RRFS * Updating static files for new simulated satellite brightness temps. * Pulling in NOAA_EMC/develop recent commit. * Additional updates for recent NOAA_EMC/develop commit. * Update for latest NOAA-EMC/develop commit. * Updating unsorted grib2 table to be consistent with sorted table. * Small changes to unsorted GRIB2 table. * Removing legacy SOILM parameter from GRIB2 tables * Correcting some comments. --- parm/fv3lam_rrfs.xml | 114 ++++ parm/params_grib2_tbl_new | 11 +- parm/params_grib2_tbl_new.text | 13 +- parm/post_avblflds.xml | 80 +++ parm/postxconfig-NT-fv3lam_rrfs.txt | 705 +++++++++++++++++++++- sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f | 88 ++- 6 files changed, 995 insertions(+), 16 deletions(-) diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index 2489841e9..70d3f5dae 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -3427,5 +3427,119 @@ 3.0 + + SBTA167_ON_TOP_OF_ATMOS + SBTA167 + 4.0 + + + + SBTA168_ON_TOP_OF_ATMOS + SBTA168 + 4.0 + + + + SBTA169_ON_TOP_OF_ATMOS + SBTA169 + 4.0 + + + + SBTA1610_ON_TOP_OF_ATMOS + SBTA1610 + 4.0 + + + + SBTA1611_ON_TOP_OF_ATMOS + SBTA1611 + 4.0 + + + + SBTA1612_ON_TOP_OF_ATMOS + SBTA1612 + 4.0 + + + + SBTA1613_ON_TOP_OF_ATMOS + SBTA1613 + 4.0 + + + + SBTA1614_ON_TOP_OF_ATMOS + SBTA1614 + 4.0 + + + + SBTA1615_ON_TOP_OF_ATMOS + SBTA1615 + 4.0 + + + + SBTA1616_ON_TOP_OF_ATMOS + SBTA1616 + 4.0 + + + + SBTA188_ON_TOP_OF_ATMOS + SBTA188 + 4.0 + + + + SBTA189_ON_TOP_OF_ATMOS + SBTA189 + 4.0 + + + + SBTA1810_ON_TOP_OF_ATMOS + SBTA1810 + 4.0 + + + + SBTA1811_ON_TOP_OF_ATMOS + SBTA1811 + 4.0 + + + + SBTA1812_ON_TOP_OF_ATMOS + SBTA1812 + 4.0 + + + + SBTA1813_ON_TOP_OF_ATMOS + SBTA1813 + 4.0 + + + + SBTA1814_ON_TOP_OF_ATMOS + SBTA1814 + 4.0 + + + + SBTA1815_ON_TOP_OF_ATMOS + SBTA1815 + 4.0 + + + + SBTA1816_ON_TOP_OF_ATMOS + SBTA1816 + 4.0 + + diff --git a/parm/params_grib2_tbl_new b/parm/params_grib2_tbl_new index 396a77e9c..514fc5fa9 100755 --- a/parm/params_grib2_tbl_new +++ b/parm/params_grib2_tbl_new @@ -812,6 +812,16 @@ 3 192 36 0 SBTA177 3 192 37 0 SBTA178 3 192 38 0 SBTA179 + 3 192 79 0 SBTA1810 + 3 192 80 0 SBTA1811 + 3 192 81 0 SBTA1812 + 3 192 82 0 SBTA1813 + 3 192 83 0 SBTA1814 + 3 192 84 0 SBTA1815 + 3 192 85 0 SBTA1816 + 3 192 76 0 SBTA187 + 3 192 77 0 SBTA188 + 3 192 78 0 SBTA189 3 192 55 0 SBTAGR10 3 192 56 0 SBTAGR11 3 192 57 0 SBTAGR12 @@ -926,7 +936,6 @@ 2 3 5 0 SOILL 2 3 192 1 SOILL 2 3 19 0 SOILMOI - 2 0 3 0 SOILM 2 0 22 0 SOILM 2 3 15 0 SOILP 2 0 239 1 SOILSE diff --git a/parm/params_grib2_tbl_new.text b/parm/params_grib2_tbl_new.text index d06960fc0..eef62d2dd 100755 --- a/parm/params_grib2_tbl_new.text +++ b/parm/params_grib2_tbl_new.text @@ -953,7 +953,7 @@ 2 0 0 0 LAND 2 0 1 0 SFCR 2 0 2 0 TSOIL - 2 0 3 0 SOILM +! 2 0 3 0 SOILM 2 0 4 0 VEG 2 0 5 0 WATR 2 0 6 0 EVAPT @@ -1313,6 +1313,17 @@ 3 192 73 0 SBTAHI14 3 192 74 0 SBTAHI15 3 192 75 0 SBTAHI16 +! Added more parameters in 3/28/2022 + 3 192 76 0 SBTA187 + 3 192 77 0 SBTA188 + 3 192 78 0 SBTA189 + 3 192 79 0 SBTA1810 + 3 192 80 0 SBTA1811 + 3 192 81 0 SBTA1812 + 3 192 82 0 SBTA1813 + 3 192 83 0 SBTA1814 + 3 192 84 0 SBTA1815 + 3 192 85 0 SBTA1816 ! ! GRIB2 - TABLE 4.2-4-0 PARAMETERS FOR DISCIPLINE 4 CATEGORY 0 ! diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index af2d15139..34b3e379e 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -4616,6 +4616,86 @@ 4.0 + + 531 + SBTA187_ON_TOP_OF_ATMOS + SBTA187 + top_of_atmos + 4.0 + + + + 532 + SBTA188_ON_TOP_OF_ATMOS + SBTA188 + top_of_atmos + 4.0 + + + + 533 + SBTA189_ON_TOP_OF_ATMOS + SBTA189 + top_of_atmos + 4.0 + + + + 534 + SBTA1810_ON_TOP_OF_ATMOS + SBTA1810 + top_of_atmos + 4.0 + + + + 535 + SBTA1811_ON_TOP_OF_ATMOS + SBTA1811 + top_of_atmos + 4.0 + + + + 536 + SBTA1812_ON_TOP_OF_ATMOS + SBTA1812 + top_of_atmos + 4.0 + + + + 537 + SBTA1813_ON_TOP_OF_ATMOS + SBTA1813 + top_of_atmos + 4.0 + + + + 538 + SBTA1814_ON_TOP_OF_ATMOS + SBTA1814 + top_of_atmos + 4.0 + + + + 539 + SBTA1815_ON_TOP_OF_ATMOS + SBTA1815 + top_of_atmos + 4.0 + + + + 540 + SBTA1816_ON_TOP_OF_ATMOS + SBTA1816 + top_of_atmos + 4.0 + + 546 GSD_POT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index ef3925678..e6ba35ddb 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,5 +1,5 @@ 2 -220 +239 268 PRSLEV 32769 @@ -18089,3 +18089,706 @@ surface ? ? ? +927 +SBTA167_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA167 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +928 +SBTA168_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA168 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +929 +SBTA169_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA169 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +930 +SBTA1610_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1610 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +931 +SBTA1611_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1611 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +932 +SBTA1612_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1612 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +933 +SBTA1613_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1613 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +934 +SBTA1614_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1614 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +935 +SBTA1615_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1615 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +936 +SBTA1616_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1616 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +532 +SBTA188_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA188 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +533 +SBTA189_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA189 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +534 +SBTA1810_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1810 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +535 +SBTA1811_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1811 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +536 +SBTA1812_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1812 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +537 +SBTA1813_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1813 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +538 +SBTA1814_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1814 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +539 +SBTA1815_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1815 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +540 +SBTA1816_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTA1816 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? diff --git a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f index eb494c41d..714e0a0e7 100644 --- a/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f +++ b/sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f @@ -16,6 +16,7 @@ !> 2021-03-11 | Bo Cui | improve local arrays memory !> 2021-08-31 | Lin Zhu | added ssmis-f17 channels 15-18 grib2 output !> 2021-09-02 | Bo Cui | Decompose UPP in X direction +!> 2022-05-26 | WM Lewis | added support for GOES-18 ABI IR Channels 7-16 !> 2022-09-12 | Wen Meng | Added cloud fraction changes for crtm/2.4.0 !> !> @author Chuang @date 2007-01-17 @@ -109,7 +110,7 @@ SUBROUTINE CALRAD_WCLOUD ! integer,parameter:: n_clouds = 4 integer,parameter:: n_aerosols = 0 ! Add your sensors here - integer(i_kind),parameter:: n_sensors=22 + integer(i_kind),parameter:: n_sensors=23 character(len=20),parameter,dimension(1:n_sensors):: sensorlist= & (/'imgr_g15 ', & 'imgr_g13 ', & @@ -132,6 +133,7 @@ SUBROUTINE CALRAD_WCLOUD 'abi_gr ', & 'abi_g16 ', & 'abi_g17 ', & + 'abi_g18 ', & 'ahi_himawari8 '/) character(len=13),parameter,dimension(1:n_sensors):: obslist= & (/'goes_img ', & @@ -155,6 +157,7 @@ SUBROUTINE CALRAD_WCLOUD 'abi ', & 'abi ', & 'abi ', & + 'abi ', & 'ahi_himawari8'/) character(len=20),dimension(1:n_sensors):: sensorlist_local ! @@ -197,8 +200,8 @@ SUBROUTINE CALRAD_WCLOUD logical ssmis_las,ssmis_uas,ssmis_env,ssmis_img logical sea,mixed,land,ice,snow,toss logical micrim,microwave - logical post_abig16, post_abig17, post_abigr ! if true, user requested at least one abi channel - logical fix_abig16, fix_abig17 ! if true, abi_g16, abi_g17 fix files are available + logical post_abig16, post_abig17, post_abig18, post_abigr ! if true, user requested at least one abi channel + logical fix_abig16, fix_abig17, fix_abig18 ! if true, abi_g16, abi_g17 fix files are available logical post_ahi8 ! if true, user requested at least on ahi channel (himawari8) logical post_ssmis17 ! if true, user requested at least on ssmis_f17 channel ! logical,dimension(nobs):: luse @@ -220,6 +223,7 @@ SUBROUTINE CALRAD_WCLOUD ! linked CRTM version is updated with fix files abi_g16 & abi_g17 fix_abig16 = .False. fix_abig17 = .False. + fix_abig18 = .False. do n=1, n_sensors sensorlist_local(n) = sensorlist(n) if (sensorlist(n) == 'abi_g16') then ! check if fix file is available @@ -230,6 +234,10 @@ SUBROUTINE CALRAD_WCLOUD inquire(file='abi_g17.SpcCoeff.bin',exist=fix_abig17) if (.not.fix_abig17) sensorlist_local(n) = 'abi_gr ' endif + if (sensorlist(n) == 'abi_g18') then + inquire(file='abi_g18.SpcCoeff.bin',exist=fix_abig18) + if (.not.fix_abig18) sensorlist_local(n) = 'abi_gr ' + endif enddo @@ -274,6 +282,10 @@ SUBROUTINE CALRAD_WCLOUD do n = 937, 937+9 ! 937 set in RQSTFLD.f if (iget(n) > 0) post_abig17=.true. enddo + post_abig18=.false. + do n = 531, 531+9 ! 531 set in RQSTFLD.f + if (iget(n) > 0) post_abig18=.true. + enddo post_abigr=.false. do n = 958, 958+9 ! 958 set in RQSTFLD.f if (iget(n) > 0) post_abigr=.true. @@ -327,7 +339,8 @@ SUBROUTINE CALRAD_WCLOUD .or. iget(877) > 0 .or. iget(878) > 0 .or. iget(879) > 0 & .or. iget(880) > 0 .or. iget(881) > 0 .or. iget(882) > 0 & .or. post_ahi8 .or. post_ssmis17 & - .or. post_abig16 .or. post_abig17 .or. post_abigr ) then + .or. post_abig16 .or. post_abig17 .or. post_abig18 & + .or. post_abigr ) then ! specify numbers of cloud species ! Thompson==8, Ferrier==5,95, WSM6==6, Lin==2 @@ -418,6 +431,20 @@ SUBROUTINE CALRAD_WCLOUD enddo endif endif + ! GOES-18 + if(post_abig18)then + nchanl=0 + do n = 531, 531+9 ! 531 set in RQSTFLD.f + if (iget(n) > 0) then + nchanl = nchanl+1 + endif + enddo + if (nchanl > 0 .and. nchanl <10) then + do n = 531, 531+9 ! 531 set in RQSTFLD.f + if (iget(n) == 0) channelinfo(21)%Process_Channel(n-531+1)=.False. + enddo + endif + endif ! GOES-R for NADIR output if(post_abigr)then nchanl=0 @@ -540,6 +567,7 @@ SUBROUTINE CALRAD_WCLOUD (isis=='imgr_g15' .and. iget(872)>0) .OR. & (isis=='abi_g16' .and. post_abig16) .OR. & (isis=='abi_g17' .and. post_abig17) .OR. & + (isis=='abi_g18' .and. post_abig18) .OR. & (isis=='abi_gr' .and. post_abigr) .OR. & (isis=='seviri_m10' .and. iget(876)>0) .OR. & (isis=='ahi_himawari8' .and. post_ahi8) )then @@ -594,6 +622,9 @@ SUBROUTINE CALRAD_WCLOUD if (isis=='abi_g17' .and. .not.fix_abig17) then isis_local='abi_gr ' endif + if (isis=='abi_g18' .and. .not.fix_abig18) then + isis_local='abi_gr ' + endif if (channelinfo(j)%sensor_id == isis_local ) then sensorindex = j exit sensor_search @@ -614,6 +645,9 @@ SUBROUTINE CALRAD_WCLOUD if(isis=='abi_g16')channelinfo(sensorindex)%WMO_Sensor_Id=617 if(isis=='abi_g17')channelinfo(sensorindex)%WMO_Satellite_Id=271 if(isis=='abi_g17')channelinfo(sensorindex)%WMO_Sensor_Id=617 +! assuming sat id for g18 is 272 (continuity w/ g16 and g17) + if(isis=='abi_g18')channelinfo(sensorindex)%WMO_Satellite_Id=272 + if(isis=='abi_g18')channelinfo(sensorindex)%WMO_Sensor_Id=617 if(isis=='abi_gr')channelinfo(sensorindex)%WMO_Satellite_Id=270 if(isis=='abi_gr')channelinfo(sensorindex)%WMO_Sensor_Id=617 @@ -955,10 +989,10 @@ SUBROUTINE CALRAD_WCLOUD ! & atmosphere(1)%absorber(k,1)>1.) & ! & print*,'bad atmosphere o3' end if - if(i==ii.and.j==jj.and.debugprint)print*,'sample atmosphere in CALRAD=', & - i,j,k,atmosphere(1)%level_pressure(k),atmosphere(1)%pressure(k), & - atmosphere(1)%temperature(k),atmosphere(1)%absorber(k,1), & - atmosphere(1)%absorber(k,2) +! if(i==ii.and.j==jj.and.debugprint)print*,'sample atmosphere in CALRAD=', & +! i,j,k,atmosphere(1)%level_pressure(k),atmosphere(1)%pressure(k), & +! atmosphere(1)%temperature(k),atmosphere(1)%absorber(k,1), & +! atmosphere(1)%absorber(k,2) ! Specify clouds dpovg=(pint(i,j,k+1)-pint(i,j,k))/g !crtm uses column integrated field if(imp_physics==99 .or. imp_physics==98)then @@ -1248,6 +1282,7 @@ SUBROUTINE CALRAD_WCLOUD (isis=='imgr_g15' .and. iget(872)>0) .OR. & (isis=='abi_g16' .and. post_abig16) .OR. & (isis=='abi_g17' .and. post_abig17) .OR. & + (isis=='abi_g18' .and. post_abig18) .OR. & (isis=='seviri_m10' .and. iget(876)>0) .OR. & (isis=='ahi_himawari8' .and. post_ahi8) .OR. & (isis=='imgr_g12' .and. (iget(456)>0 .or. & @@ -1290,6 +1325,9 @@ SUBROUTINE CALRAD_WCLOUD else if(isis=='abi_g17')then sublat=0.0 sublon=-137.2 + else if(isis=='abi_g18')then + sublat=0.0 + sublon=-137.2 else if(isis=='imgr_g11')then sublat=0.0 sublon=-135.0 @@ -1540,10 +1578,10 @@ SUBROUTINE CALRAD_WCLOUD ! & atmosphere(1)%absorber(k,1)>1.) & ! & print*,'bad atmosphere o3' end if - if(i==ii.and.j==jj)print*,'sample atmosphere in CALRAD=', & - i,j,k,atmosphere(1)%level_pressure(k),atmosphere(1)%pressure(k), & - atmosphere(1)%temperature(k),atmosphere(1)%absorber(k,1), & - atmosphere(1)%absorber(k,2) +! if(i==ii.and.j==jj)print*,'sample atmosphere in CALRAD=', & +! i,j,k,atmosphere(1)%level_pressure(k),atmosphere(1)%pressure(k), & +! atmosphere(1)%temperature(k),atmosphere(1)%absorber(k,1), & +! atmosphere(1)%absorber(k,2) ! Specify clouds dpovg=(pint(i,j,k+1)-pint(i,j,k))/g !crtm uses column integrated field if(imp_physics==99 .or. imp_physics==98)then @@ -2059,7 +2097,7 @@ SUBROUTINE CALRAD_WCLOUD endif enddo ! channel loop end if ! end of outputting goes 16 - if (isis=='abi_g17')then ! writing goes 16 to grib + if (isis=='abi_g17')then ! writing goes 17 to grib nc=0 do ixchan=1,10 ichan=ixchan @@ -2078,6 +2116,30 @@ SUBROUTINE CALRAD_WCLOUD endif enddo ! channel loop end if ! end of outputting goes 17 +! Wm Lewis updated idx for g18 on 3 JUN 2022 + if (isis=='abi_g18')then ! writing goes 18 to grib + nc=0 + do ixchan=1,10 + igot=iget(530+ixchan) + ichan=ixchan + if(igot>0)then + do j=jsta,jend + do i=1,im + grid1(i,j)=tb(i,j,ichan) + enddo + enddo + id(1:25) = 0 + id(02) = 2 + id(08) = 118 + id(09) = 109 + if(grib=="grib2" )then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(igot) + datapd(1:im,1:jend-jsta+1,cfld)=grid1(1:im,jsta:jend) + endif + endif + enddo ! channel loop + end if ! end of outputting goes 18 if(isis=='ahi_himawari8') then ! writing Himawari-8 AHI to grib do ichan=1,10 igot=iget(968+ichan) From 331bc78ddd8a1b4768a7b66fe118f58d17a803c3 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Tue, 25 Oct 2022 09:34:49 -0400 Subject: [PATCH 078/107] 1)Add 0-1km helicity in GFS produt list; 2) bug fix in cloud fraction (#578) and VIL. --- parm/global_1x1_paramlist_g2 | 1 + parm/global_1x1_paramlist_g2.f000 | 1 + parm/postcntrl_gfs.xml | 6 +++--- parm/postcntrl_gfs_f00.xml | 6 +++--- parm/postcntrl_gfs_f00_two.xml | 6 +++--- parm/postcntrl_gfs_two.xml | 6 +++--- parm/postxconfig-NT-GFS-F00-TWO.txt | 14 +++++++------- parm/postxconfig-NT-GFS-F00.txt | 14 +++++++------- parm/postxconfig-NT-GFS-TWO.txt | 14 +++++++------- parm/postxconfig-NT-GFS.txt | 14 +++++++------- sorc/ncep_post.fd/MDLFLD.f | 12 +++++++++--- 11 files changed, 51 insertions(+), 43 deletions(-) diff --git a/parm/global_1x1_paramlist_g2 b/parm/global_1x1_paramlist_g2 index 553a42bc6..958fbd4d7 100644 --- a/parm/global_1x1_paramlist_g2 +++ b/parm/global_1x1_paramlist_g2 @@ -167,6 +167,7 @@ HGT:PV=2e-06 (Km^2/kg/s) surface HGT:surface HGT:tropopause HINDEX:surface +HLCY:1000-0 m above ground HLCY:3000-0 m above ground HPBL:surface ICAHT:max wind diff --git a/parm/global_1x1_paramlist_g2.f000 b/parm/global_1x1_paramlist_g2.f000 index 615022063..b1dcb09cc 100644 --- a/parm/global_1x1_paramlist_g2.f000 +++ b/parm/global_1x1_paramlist_g2.f000 @@ -159,6 +159,7 @@ HGT:PV=2e-06 (Km^2/kg/s) surface HGT:surface HGT:tropopause HINDEX:surface +HLCY:1000-0 m above ground HLCY:3000-0 m above ground HPBL:surface ICAHT:max wind diff --git a/parm/postcntrl_gfs.xml b/parm/postcntrl_gfs.xml index b7733a62d..0d14de92d 100755 --- a/parm/postcntrl_gfs.xml +++ b/parm/postcntrl_gfs.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -445,7 +445,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postcntrl_gfs_f00.xml b/parm/postcntrl_gfs_f00.xml index 69e151ea2..22a5ddc8f 100755 --- a/parm/postcntrl_gfs_f00.xml +++ b/parm/postcntrl_gfs_f00.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -360,7 +360,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postcntrl_gfs_f00_two.xml b/parm/postcntrl_gfs_f00_two.xml index 4923112df..184d03ea7 100755 --- a/parm/postcntrl_gfs_f00_two.xml +++ b/parm/postcntrl_gfs_f00_two.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -360,7 +360,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml index dab3a8ee2..6d6e05793 100755 --- a/parm/postcntrl_gfs_two.xml +++ b/parm/postcntrl_gfs_two.xml @@ -314,8 +314,8 @@ HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - 3000. - 0. + 3000. 1000. + 0. 0. 4.0 @@ -445,7 +445,7 @@ - VIS_ON_SURFACE + GSD_VIS_ON_SURFACE 6.0 diff --git a/parm/postxconfig-NT-GFS-F00-TWO.txt b/parm/postxconfig-NT-GFS-F00-TWO.txt index 73e131734..af5f49c16 100644 --- a/parm/postxconfig-NT-GFS-F00-TWO.txt +++ b/parm/postxconfig-NT-GFS-F00-TWO.txt @@ -1767,13 +1767,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2015,9 +2015,9 @@ surface ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/parm/postxconfig-NT-GFS-F00.txt b/parm/postxconfig-NT-GFS-F00.txt index 9ff346568..fe928aa55 100644 --- a/parm/postxconfig-NT-GFS-F00.txt +++ b/parm/postxconfig-NT-GFS-F00.txt @@ -1766,13 +1766,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2014,9 +2014,9 @@ surface ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt index 9a40bb467..a459e5240 100644 --- a/parm/postxconfig-NT-GFS-TWO.txt +++ b/parm/postxconfig-NT-GFS-TWO.txt @@ -1767,13 +1767,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2607,9 +2607,9 @@ entire_atmos_single_lyr ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/parm/postxconfig-NT-GFS.txt b/parm/postxconfig-NT-GFS.txt index c7d4dccb7..776ce6d3b 100644 --- a/parm/postxconfig-NT-GFS.txt +++ b/parm/postxconfig-NT-GFS.txt @@ -1766,13 +1766,13 @@ HLCY spec_hgt_lvl_above_grnd 0 ? -1 -3000. +2 +3000. 1000. spec_hgt_lvl_above_grnd 0 ? -1 -0. +2 +0. 0. ? ? 0 @@ -2606,9 +2606,9 @@ entire_atmos_single_lyr ? ? ? -180 -VIS_ON_SURFACE -? +410 +GSD_VIS_ON_SURFACE +GSD_visibility on surface 1 tmpl4_0 VIS diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index d439ef2d0..105658836 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -44,7 +44,8 @@ !! 20-11-10 J MENG - USE UPP_PHYSICS MODULE !! 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY !! 21-07-07 J MENG - 2D DECOMPOSITION -!! 22-09-22 L Zhang- ADD NO3 and NH4 output for UFS-Aerosols model +!! 22-09-22 L Zhang - ADD NO3 and NH4 output for UFS-Aerosols model +!! 22-10-20 W Meng - Bug fix for cloud fraction and vertically integrated liquid !! !! USAGE: CALL MDLFLD !! INPUT ARGUMENT LIST: @@ -1217,8 +1218,11 @@ SUBROUTINE MDLFLD !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=ista,iend - IF(abs(CFR(I,J,LL)-SPVAL) > SMALL) & - & GRID1(I,J) = CFR(I,J,LL)*H100 + IF(abs(CFR(I,J,LL)-SPVAL) > SMALL) THEN + GRID1(I,J) = CFR(I,J,LL)*H100 + ELSE + GRID1(I,J) = SPVAL + ENDIF ENDDO ENDDO CALL BOUND(GRID1,D00,H100) @@ -3051,6 +3055,8 @@ SUBROUTINE MDLFLD if(zint(i,j,l) < spval .and.zint(i,j,l+1) Date: Wed, 26 Oct 2022 13:12:47 -0600 Subject: [PATCH 079/107] Change email for grib2 table update requests --- docs/AddNewVariable.rst | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/AddNewVariable.rst b/docs/AddNewVariable.rst index a502d4b9c..195e51c67 100644 --- a/docs/AddNewVariable.rst +++ b/docs/AddNewVariable.rst @@ -40,7 +40,7 @@ with examples in the sections below. 1. If no (not available in the NCEP Grib2 Table) - a. NOAA users can email Boi.Vuong@noaa.gov with the following information for your new + a. NOAA users can email Andrew.Benjamin@noaa.gov with the following information for your new variable: variable definition, unit, and what Grib2 discipline and category you think this variable should belong to. Boi will define your new variable in the `NCEP Grib2 Table `_ and From b81de7fd668dfa21db63666d8c40a1ec6c9b82c6 Mon Sep 17 00:00:00 2001 From: "Kate.Zhang-NOAA" <64156100+zhanglikate@users.noreply.github.com> Date: Thu, 27 Oct 2022 10:10:56 -0600 Subject: [PATCH 080/107] Add nitrate AOD look-up table and AOD calculation for UFS-Aerosols model (#579) * 1)Add nitrate look-up table based on NASA optics_NI.v2_5.nc. 2)Implement the nitrate AOD calculation for UFS-Aerosols model, which is also included into the total AOD. * Remove unused variables in CLDRAD.f * Add chemical products into global_1x1_paramlist_g2 file --- parm/global_1x1_paramlist_g2.f000_chem | 841 ++++++++++++++++++++++ parm/global_1x1_paramlist_g2_chem | 894 ++++++++++++++++++++++++ parm/optics_luts_NITR_nasa.dat | 432 ++++++++++++ parm/post_avblflds.xml | 27 +- parm/postcntrl_ufs_aerosol.xml | 5 + parm/postcntrl_ufs_aerosol_f00.xml | 5 + parm/postxconfig-NT-UFS-aerosol-F00.txt | 63 +- parm/postxconfig-NT-UFS-aerosol.txt | 39 +- sorc/ncep_post.fd/CLDRAD.f | 125 +++- 9 files changed, 2393 insertions(+), 38 deletions(-) create mode 100644 parm/global_1x1_paramlist_g2.f000_chem create mode 100644 parm/global_1x1_paramlist_g2_chem create mode 100644 parm/optics_luts_NITR_nasa.dat diff --git a/parm/global_1x1_paramlist_g2.f000_chem b/parm/global_1x1_paramlist_g2.f000_chem new file mode 100644 index 000000000..00d4c5ebe --- /dev/null +++ b/parm/global_1x1_paramlist_g2.f000_chem @@ -0,0 +1,841 @@ +4LFTX:surface +5WAVH:500 mb +ABSV:1000 mb +ABSV:100 mb +ABSV:10 mb +ABSV:150 mb +ABSV:15 mb +ABSV:200 mb +ABSV:20 mb +ABSV:250 mb +ABSV:300 mb +ABSV:30 mb +ABSV:350 mb +ABSV:400 mb +ABSV:40 mb +ABSV:450 mb +ABSV:500 mb +ABSV:50 mb +ABSV:550 mb +ABSV:600 mb +ABSV:650 mb +ABSV:700 mb +ABSV:70 mb +ABSV:750 mb +ABSV:800 mb +ABSV:850 mb +ABSV:900 mb +ABSV:925 mb +ABSV:950 mb +ABSV:975 mb +ABSV:1 mb +ABSV:2 mb +ABSV:3 mb +ABSV:5 mb +ABSV:7 mb +ABSV:0.1 mb +ABSV:0.2 mb +ABSV:0.4 mb +ABSV:0.7 mb +ABSV:0.01 mb +ABSV:0.02 mb +ABSV:0.04 mb +ABSV:0.07 mb +ACPCP:surface +AEMFLX:surface +AOTK:entire atmosphere +APCP:surface +APTMP:2 m above ground +ASYSFK:entire atmosphere +var discipline=0 master_table=2 parmcat=0 parm=21:2 m above ground +CAPE:180-0 mb above ground +CAPE:255-0 mb above ground +CAPE:90-0 mb above ground +CAPE:surface +CFRZR:surface +CICEP:surface +CIN:180-0 mb above ground +CIN:255-0 mb above ground +CIN:90-0 mb above ground +CIN:surface +CLMR:50 mb +CLMR:1000 mb +CLMR:100 mb +CLMR:150 mb +CLMR:200 mb +CLMR:250 mb +CLMR:300 mb +CLMR:350 mb +CLMR:400 mb +CLMR:450 mb +CLMR:500 mb +CLMR:550 mb +CLMR:600 mb +CLMR:650 mb +CLMR:700 mb +CLMR:750 mb +CLMR:800 mb +CLMR:850 mb +CLMR:900 mb +CLMR:925 mb +CLMR:950 mb +CLMR:975 mb +CLMR:1 hybrid level +CNWAT:surface +COLMD:entire atmosphere +CPOFP:surface +CPRAT:surface +CRAIN:surface +CSNOW:surface +CWAT:entire atmosphere (considered as a single layer) +DDMFLX:entire atmosphere +DPT:2 m above ground +FLDCP:surface +FRICV:surface +GRLE:50 mb +GRLE:1000 mb +GRLE:100 mb +GRLE:150 mb +GRLE:200 mb +GRLE:250 mb +GRLE:300 mb +GRLE:350 mb +GRLE:400 mb +GRLE:450 mb +GRLE:500 mb +GRLE:550 mb +GRLE:600 mb +GRLE:650 mb +GRLE:700 mb +GRLE:750 mb +GRLE:800 mb +GRLE:850 mb +GRLE:900 mb +GRLE:925 mb +GRLE:950 mb +GRLE:975 mb +GRLE:1 hybrid level +GUST:surface +HCDC:high cloud layer +HGT:0C isotherm +HGT:1000 mb +HGT:100 mb +HGT:10 mb +HGT:150 mb +HGT:15 mb +HGT:200 mb +HGT:20 mb +HGT:250 mb +HGT:300 mb +HGT:30 mb +HGT:350 mb +HGT:400 mb +HGT:40 mb +HGT:450 mb +HGT:500 mb +HGT:50 mb +HGT:550 mb +HGT:600 mb +HGT:650 mb +HGT:700 mb +HGT:70 mb +HGT:750 mb +HGT:800 mb +HGT:850 mb +HGT:900 mb +HGT:925 mb +HGT:950 mb +HGT:975 mb +HGT:1 mb +HGT:2 mb +HGT:3 mb +HGT:5 mb +HGT:7 mb +HGT:0.1 mb +HGT:0.2 mb +HGT:0.4 mb +HGT:0.7 mb +HGT:0.01 mb +HGT:0.02 mb +HGT:0.04 mb +HGT:0.07 mb +HGT:cloud ceiling +HGT:highest tropospheric freezing level +HGT:max wind +HGT:PV=-2e-06 (Km^2/kg/s) surface +HGT:PV=2e-06 (Km^2/kg/s) surface +HGT:surface +HGT:tropopause +HINDEX:surface +HLCY:1000-0 m above ground +HLCY:3000-0 m above ground +HPBL:surface +ICAHT:max wind +ICAHT:tropopause +ICEC:surface +ICETK:surface +ICETMP:surface +ICMR:50 mb +ICMR:1000 mb +ICMR:100 mb +ICMR:150 mb +ICMR:200 mb +ICMR:250 mb +ICMR:300 mb +ICMR:350 mb +ICMR:400 mb +ICMR:450 mb +ICMR:500 mb +ICMR:550 mb +ICMR:600 mb +ICMR:650 mb +ICMR:700 mb +ICMR:750 mb +ICMR:800 mb +ICMR:850 mb +ICMR:900 mb +ICMR:925 mb +ICMR:950 mb +ICMR:975 mb +ICMR:1 hybrid level +LAND:surface +LCDC:low cloud layer +LFTX:surface +MASSMR:1000 mb +MASSMR:100 mb +MASSMR:10 mb +MASSMR:15 mb +MASSMR:150 mb +MASSMR:20 mb +MASSMR:200 mb +MASSMR:250 mb +MASSMR:300 mb +MASSMR:30 mb +MASSMR:350 mb +MASSMR:40 mb +MASSMR:400 mb +MASSMR:450 mb +MASSMR:500 mb +MASSMR:50 mb +MASSMR:550 mb +MASSMR:600 mb +MASSMR:650 mb +MASSMR:700 mb +MASSMR:70 mb +MASSMR:750 mb +MASSMR:800 mb +MASSMR:850 mb +MASSMR:900 mb +MASSMR:925 mb +MASSMR:950 mb +MASSMR:975 mb +MASSMR:1 mb +MASSMR:2 mb +MASSMR:3 mb +MASSMR:5 mb +MASSMR:7 mb +MASSMR:0.1 mb +MASSMR:0.2 mb +MASSMR:0.4 mb +MASSMR:0.7 mb +MASSMR:0.01 mb +MASSMR:0.02 mb +MASSMR:0.04 mb +MASSMR:0.07 mb +MASSMR:1 hybrid level +MSLET:mean sea level +O3MR:1000 mb +O3MR:100 mb +O3MR:10 mb +O3MR:150 mb +O3MR:15 mb +O3MR:20 mb +O3MR:200 mb +O3MR:250 mb +O3MR:300 mb +O3MR:30 mb +O3MR:350 mb +O3MR:400 mb +O3MR:40 mb +O3MR:450 mb +O3MR:500 mb +O3MR:50 mb +O3MR:550 mb +O3MR:600 mb +O3MR:650 mb +O3MR:700 mb +O3MR:70 mb +O3MR:750 mb +O3MR:800 mb +O3MR:850 mb +O3MR:900 mb +O3MR:925 mb +O3MR:950 mb +O3MR:975 mb +O3MR:1 mb +O3MR:2 mb +O3MR:3 mb +O3MR:5 mb +O3MR:7 mb +O3MR:0.1 mb +O3MR:0.2 mb +O3MR:0.4 mb +O3MR:0.7 mb +O3MR:0.01 mb +O3MR:0.02 mb +O3MR:0.04 mb +O3MR:0.07 mb +MCDC:middle cloud layer +PLPL:255-0 mb above ground +PMTC:1000 mb +PMTC:100 mb +PMTC:10 mb +PMTC:15 mb +PMTC:150 mb +PMTC:20 mb +PMTC:200 mb +PMTC:250 mb +PMTC:300 mb +PMTC:30 mb +PMTC:350 mb +PMTC:40 mb +PMTC:400 mb +PMTC:450 mb +PMTC:500 mb +PMTC:50 mb +PMTC:550 mb +PMTC:600 mb +PMTC:650 mb +PMTC:700 mb +PMTC:70 mb +PMTC:750 mb +PMTC:800 mb +PMTC:850 mb +PMTC:900 mb +PMTC:925 mb +PMTC:950 mb +PMTC:975 mb +PMTC:1 mb +PMTC:2 mb +PMTC:3 mb +PMTC:5 mb +PMTC:7 mb +PMTC:0.1 mb +PMTC:0.2 mb +PMTC:0.4 mb +PMTC:0.7 mb +PMTC:0.01 mb +PMTC:0.02 mb +PMTC:0.04 mb +PMTC:0.07 mb +PMTC:1 hybrid level +PMTC:entire atmosphere +PMTC:surface +PMTF:1000 mb +PMTF:100 mb +PMTF:10 mb +PMTF:15 mb +PMTF:150 mb +PMTF:20 mb +PMTF:200 mb +PMTF:250 mb +PMTF:300 mb +PMTF:30 mb +PMTF:350 mb +PMTF:40 mb +PMTF:400 mb +PMTF:450 mb +PMTF:500 mb +PMTF:50 mb +PMTF:550 mb +PMTF:600 mb +PMTF:650 mb +PMTF:700 mb +PMTF:70 mb +PMTF:750 mb +PMTF:800 mb +PMTF:850 mb +PMTF:900 mb +PMTF:925 mb +PMTF:950 mb +PMTF:975 mb +PMTF:1 mb +PMTF:2 mb +PMTF:3 mb +PMTF:5 mb +PMTF:7 mb +PMTF:0.1 mb +PMTF:0.2 mb +PMTF:0.4 mb +PMTF:0.7 mb +PMTF:0.01 mb +PMTF:0.02 mb +PMTF:0.04 mb +PMTF:0.07 mb +PMTF:1 hybrid level +PMTF:entire atmosphere +PMTF:surface +POT:0.995 sigma level +PRATE:surface +PRES:80 m above ground +PRES:max wind +PRES:PV=-2e-06 (Km^2/kg/s) surface +PRES:PV=2e-06 (Km^2/kg/s) surface +PRES:surface +PRES:tropopause +PRMSL:mean sea level +PWAT:entire atmosphere +REFC:entire atmosphere +REFD:1 hybrid level +REFD:2 hybrid level +REFD:1000 m above ground +REFD:4000 m above ground +RH:0.33-1 sigma layer +RH:0.44-0.72 sigma layer +RH:0.44-1 sigma layer +RH:0.72-0.94 sigma layer +RH:0.995 sigma level +RH:0C isotherm +RH:1000 mb +RH:100 mb +RH:10 mb +RH:150 mb +RH:15 mb +RH:20 mb +RH:200 mb +RH:250 mb +RH:2 m above ground +RH:30-0 mb above ground +RH:300 mb +RH:30 mb +RH:350 mb +RH:400 mb +RH:40 mb +RH:450 mb +RH:500 mb +RH:50 mb +RH:550 mb +RH:600 mb +RH:650 mb +RH:700 mb +RH:70 mb +RH:750 mb +RH:800 mb +RH:850 mb +RH:900 mb +RH:925 mb +RH:950 mb +RH:975 mb +RH:1 mb +RH:2 mb +RH:3 mb +RH:5 mb +RH:7 mb +RH:0.1 mb +RH:0.2 mb +RH:0.4 mb +RH:0.7 mb +RH:0.01 mb +RH:0.02 mb +RH:0.04 mb +RH:0.07 mb +RH:entire atmosphere (considered as a single layer) +RH:highest tropospheric freezing level +RWMR:50 mb +RWMR:1000 mb +RWMR:100 mb +RWMR:150 mb +RWMR:200 mb +RWMR:250 mb +RWMR:300 mb +RWMR:350 mb +RWMR:400 mb +RWMR:450 mb +RWMR:500 mb +RWMR:550 mb +RWMR:600 mb +RWMR:650 mb +RWMR:700 mb +RWMR:750 mb +RWMR:800 mb +RWMR:850 mb +RWMR:900 mb +RWMR:925 mb +RWMR:950 mb +RWMR:975 mb +RWMR:1 hybrid level +SCTAOTK:entire atmosphere +SEDMFLX:entire atmosphere +SFCR:surface +SNMR:50 mb +SNMR:1000 mb +SNMR:100 mb +SNMR:150 mb +SNMR:200 mb +SNMR:250 mb +SNMR:300 mb +SNMR:350 mb +SNMR:400 mb +SNMR:450 mb +SNMR:500 mb +SNMR:550 mb +SNMR:600 mb +SNMR:650 mb +SNMR:700 mb +SNMR:750 mb +SNMR:800 mb +SNMR:850 mb +SNMR:900 mb +SNMR:925 mb +SNMR:950 mb +SNMR:975 mb +SNMR:1 hybrid level +SOILL:0-0.1 m below ground +SOILL:0.1-0.4 m below ground +SOILL:0.4-1 m below ground +SOILL:1-2 m below ground +SOILW:0-0.1 m below ground +SOILW:0.1-0.4 m below ground +SOILW:0.4-1 m below ground +SOILW:1-2 m below ground +SOTYP:surface +SPFH:1000 mb +SPFH:100 mb +SPFH:10 mb +SPFH:15 mb +SPFH:150 mb +SPFH:200 mb +SPFH:20 mb +SPFH:250 mb +SPFH:300 mb +SPFH:30 mb +SPFH:350 mb +SPFH:400 mb +SPFH:40 mb +SPFH:450 mb +SPFH:500 mb +SPFH:50 mb +SPFH:550 mb +SPFH:600 mb +SPFH:650 mb +SPFH:700 mb +SPFH:70 mb +SPFH:750 mb +SPFH:800 mb +SPFH:850 mb +SPFH:900 mb +SPFH:925 mb +SPFH:950 mb +SPFH:975 mb +SPFH:1 mb +SPFH:2 mb +SPFH:3 mb +SPFH:5 mb +SPFH:7 mb +SPFH:0.1 mb +SPFH:0.2 mb +SPFH:0.4 mb +SPFH:0.7 mb +SPFH:0.01 mb +SPFH:0.02 mb +SPFH:0.04 mb +SPFH:0.07 mb +SPFH:2 m above ground +SPFH:30-0 mb above ground +SPFH:80 m above ground +SUNSD:surface +TCDC:50 mb +TCDC:1000 mb +TCDC:100 mb +TCDC:150 mb +TCDC:200 mb +TCDC:250 mb +TCDC:300 mb +TCDC:350 mb +TCDC:400 mb +TCDC:450 mb +TCDC:500 mb +TCDC:550 mb +TCDC:600 mb +TCDC:650 mb +TCDC:700 mb +TCDC:750 mb +TCDC:800 mb +TCDC:850 mb +TCDC:900 mb +TCDC:925 mb +TCDC:950 mb +TCDC:975 mb +TCDC:entire atmosphere +TCDC:convective cloud layer +TSOIL:0-0.1 m below ground +TSOIL:0.1-0.4 m below ground +TSOIL:0.4-1 m below ground +TMP:0.995 sigma level +TMP:1000 mb +TMP:100 m above ground +TMP:100 mb +TMP:10 mb +TMP:15 mb +TSOIL:1-2 m below ground +TMP:150 mb +TMP:1829 m above mean sea level +TMP:200 mb +TMP:20 mb +TMP:250 mb +TMP:2743 m above mean sea level +TMP:2 m above ground +TMP:30-0 mb above ground +TMP:300 mb +TMP:30 mb +TMP:350 mb +TMP:3658 m above mean sea level +TMP:400 mb +TMP:40 mb +TMP:450 mb +TMP:500 mb +TMP:50 mb +TMP:550 mb +TMP:600 mb +TMP:650 mb +TMP:700 mb +TMP:70 mb +TMP:750 mb +TMP:800 mb +TMP:80 m above ground +TMP:850 mb +TMP:900 mb +TMP:925 mb +TMP:950 mb +TMP:975 mb +TMP:1 mb +TMP:2 mb +TMP:3 mb +TMP:5 mb +TMP:7 mb +TMP:0.1 mb +TMP:0.2 mb +TMP:0.4 mb +TMP:0.7 mb +TMP:0.01 mb +TMP:0.02 mb +TMP:0.04 mb +TMP:0.07 mb +TMP:max wind +TMP:PV=-2e-06 (Km^2/kg/s) surface +TMP:PV=2e-06 (Km^2/kg/s) surface +TMP:surface +TMP:tropopause +TOZNE:entire atmosphere (considered as a single layer) +UGRD:0.995 sigma level +UGRD:1000 mb +UGRD:100 m above ground +UGRD:100 mb +UGRD:10 m above ground +UGRD:10 mb +UGRD:150 mb +UGRD:15 mb +UGRD:1829 m above mean sea level +UGRD:200 mb +UGRD:20 mb +UGRD:20 m above ground +UGRD:250 mb +UGRD:2743 m above mean sea level +UGRD:30-0 mb above ground +UGRD:300 mb +UGRD:30 mb +UGRD:30 m above ground +UGRD:350 mb +UGRD:3658 m above mean sea level +UGRD:400 mb +UGRD:40 mb +UGRD:40 m above ground +UGRD:450 mb +UGRD:500 mb +UGRD:50 mb +UGRD:50 m above ground +UGRD:550 mb +UGRD:600 mb +UGRD:650 mb +UGRD:700 mb +UGRD:70 mb +UGRD:750 mb +UGRD:800 mb +UGRD:80 m above ground +UGRD:850 mb +UGRD:900 mb +UGRD:925 mb +UGRD:950 mb +UGRD:975 mb +UGRD:1 mb +UGRD:2 mb +UGRD:3 mb +UGRD:5 mb +UGRD:7 mb +UGRD:0.1 mb +UGRD:0.2 mb +UGRD:0.4 mb +UGRD:0.7 mb +UGRD:0.01 mb +UGRD:0.02 mb +UGRD:0.04 mb +UGRD:0.07 mb +UGRD:max wind +UGRD:planetary boundary layer +UGRD:PV=-2e-06 (Km^2/kg/s) surface +UGRD:PV=2e-06 (Km^2/kg/s) surface +UGRD:tropopause +USTM:6000-0 m above ground +VEG:surface +VGRD:0.995 sigma level +VGRD:1000 mb +VGRD:100 m above ground +VGRD:100 mb +VGRD:10 m above ground +VGRD:10 mb +VGRD:150 mb +VGRD:15 mb +VGRD:1829 m above mean sea level +VGRD:200 mb +VGRD:20 mb +VGRD:20 m above ground +VGRD:250 mb +VGRD:2743 m above mean sea level +VGRD:30-0 mb above ground +VGRD:300 mb +VGRD:30 mb +VGRD:30 m above ground +VGRD:350 mb +VGRD:3658 m above mean sea level +VGRD:400 mb +VGRD:40 mb +VGRD:40 m above ground +VGRD:450 mb +VGRD:500 mb +VGRD:50 mb +VGRD:50 m above ground +VGRD:550 mb +VGRD:600 mb +VGRD:650 mb +VGRD:700 mb +VGRD:70 mb +VGRD:750 mb +VGRD:800 mb +VGRD:80 m above ground +VGRD:850 mb +VGRD:900 mb +VGRD:925 mb +VGRD:950 mb +VGRD:975 mb +VGRD:1 mb +VGRD:2 mb +VGRD:3 mb +VGRD:5 mb +VGRD:7 mb +VGRD:0.1 mb +VGRD:0.2 mb +VGRD:0.4 mb +VGRD:0.7 mb +VGRD:0.01 mb +VGRD:0.02 mb +VGRD:0.04 mb +VGRD:0.07 mb +VGRD:max wind +VGRD:planetary boundary layer +VGRD:PV=-2e-06 (Km^2/kg/s) surface +VGRD:PV=2e-06 (Km^2/kg/s) surface +VGRD:tropopause +VRATE:planetary boundary layer +VSTM:6000-0 m above ground +DZDT:1000 mb +DZDT:100 mb +DZDT:10 mb +DZDT:15 mb +DZDT:150 mb +DZDT:20 mb +DZDT:200 mb +DZDT:250 mb +DZDT:300 mb +DZDT:30 mb +DZDT:350 mb +DZDT:40 mb +DZDT:400 mb +DZDT:450 mb +DZDT:500 mb +DZDT:50 mb +DZDT:550 mb +DZDT:600 mb +DZDT:650 mb +DZDT:700 mb +DZDT:70 mb +DZDT:750 mb +DZDT:800 mb +DZDT:850 mb +DZDT:900 mb +DZDT:925 mb +DZDT:950 mb +DZDT:975 mb +DZDT:1 mb +DZDT:2 mb +DZDT:3 mb +DZDT:5 mb +DZDT:7 mb +DZDT:0.1 mb +DZDT:0.2 mb +DZDT:0.4 mb +DZDT:0.7 mb +DZDT:0.01 mb +DZDT:0.02 mb +DZDT:0.04 mb +DZDT:0.07 mb +VVEL:0.995 sigma level +VVEL:1000 mb +VVEL:100 mb +VVEL:10 mb +VVEL:15 mb +VVEL:150 mb +VVEL:20 mb +VVEL:200 mb +VVEL:250 mb +VVEL:300 mb +VVEL:30 mb +VVEL:350 mb +VVEL:40 mb +VVEL:400 mb +VVEL:450 mb +VVEL:500 mb +VVEL:50 mb +VVEL:550 mb +VVEL:600 mb +VVEL:650 mb +VVEL:700 mb +VVEL:70 mb +VVEL:750 mb +VVEL:800 mb +VVEL:850 mb +VVEL:900 mb +VVEL:925 mb +VVEL:950 mb +VVEL:975 mb +VVEL:1 mb +VVEL:2 mb +VVEL:3 mb +VVEL:5 mb +VVEL:7 mb +VVEL:0.1 mb +VVEL:0.2 mb +VVEL:0.4 mb +VVEL:0.7 mb +VVEL:0.01 mb +VVEL:0.02 mb +VVEL:0.04 mb +VVEL:0.07 mb +VWSH:PV=-2e-06 (Km^2/kg/s) surface +VWSH:PV=2e-06 (Km^2/kg/s) surface +VWSH:tropopause +WEASD:surface +WILT:surface +WLSMFLX:entire atmosphere +SNOD:surface +VIS:surface +ICEG:10 m above mean sea level diff --git a/parm/global_1x1_paramlist_g2_chem b/parm/global_1x1_paramlist_g2_chem new file mode 100644 index 000000000..3ab111948 --- /dev/null +++ b/parm/global_1x1_paramlist_g2_chem @@ -0,0 +1,894 @@ +4LFTX:surface +5WAVH:500 mb +ABSV:1000 mb +ABSV:100 mb +ABSV:10 mb +ABSV:15 mb +ABSV:150 mb +ABSV:20 mb +ABSV:200 mb +ABSV:250 mb +ABSV:300 mb +ABSV:30 mb +ABSV:350 mb +ABSV:40 mb +ABSV:400 mb +ABSV:450 mb +ABSV:500 mb +ABSV:50 mb +ABSV:550 mb +ABSV:600 mb +ABSV:650 mb +ABSV:700 mb +ABSV:70 mb +ABSV:750 mb +ABSV:800 mb +ABSV:850 mb +ABSV:900 mb +ABSV:925 mb +ABSV:950 mb +ABSV:975 mb +ABSV:1 mb +ABSV:2 mb +ABSV:3 mb +ABSV:5 mb +ABSV:7 mb +ABSV:0.1 mb +ABSV:0.2 mb +ABSV:0.4 mb +ABSV:0.7 mb +ABSV:0.01 mb +ABSV:0.02 mb +ABSV:0.04 mb +ABSV:0.07 mb +ACPCP:surface +AEMFLX:surface +ALBDO:surface +AOTK:entire atmosphere +APCP:surface +APTMP:2 m above ground +ASYSFK:entire atmosphere +var discipline=0 master_table=2 parmcat=0 parm=21:2 m above ground +CAPE:180-0 mb above ground +CAPE:255-0 mb above ground +CAPE:90-0 mb above ground +CAPE:surface +CFRZR:surface +CICEP:surface +CIN:180-0 mb above ground +CIN:255-0 mb above ground +CIN:90-0 mb above ground +CIN:surface +CLMR:50 mb +CLMR:1000 mb +CLMR:100 mb +CLMR:150 mb +CLMR:200 mb +CLMR:250 mb +CLMR:300 mb +CLMR:350 mb +CLMR:400 mb +CLMR:450 mb +CLMR:500 mb +CLMR:550 mb +CLMR:600 mb +CLMR:650 mb +CLMR:700 mb +CLMR:750 mb +CLMR:800 mb +CLMR:850 mb +CLMR:900 mb +CLMR:925 mb +CLMR:950 mb +CLMR:975 mb +CLMR:1 hybrid level +CNWAT:surface +COLMD:entire atmosphere +CPOFP:surface +CPRAT:surface +CRAIN:surface +CSNOW:surface +CWAT:entire atmosphere (considered as a single layer) +CWORK:entire atmosphere (considered as a single layer) +DDMFLX:entire atmosphere +DLWRF:surface +DPT:2 m above ground +DSWRF:surface +FLDCP:surface +FRICV:surface +GFLUX:surface +GRLE:50 mb +GRLE:1000 mb +GRLE:100 mb +GRLE:150 mb +GRLE:200 mb +GRLE:250 mb +GRLE:300 mb +GRLE:350 mb +GRLE:400 mb +GRLE:450 mb +GRLE:500 mb +GRLE:550 mb +GRLE:600 mb +GRLE:650 mb +GRLE:700 mb +GRLE:750 mb +GRLE:800 mb +GRLE:850 mb +GRLE:900 mb +GRLE:925 mb +GRLE:950 mb +GRLE:975 mb +GRLE:1 hybrid level +GUST:surface +HCDC:high cloud layer +HGT:0C isotherm +HGT:1000 mb +HGT:100 mb +HGT:10 mb +HGT:150 mb +HGT:15 mb +HGT:200 mb +HGT:20 mb +HGT:250 mb +HGT:300 mb +HGT:30 mb +HGT:350 mb +HGT:400 mb +HGT:450 mb +HGT:40 mb +HGT:500 mb +HGT:50 mb +HGT:550 mb +HGT:600 mb +HGT:650 mb +HGT:700 mb +HGT:70 mb +HGT:750 mb +HGT:800 mb +HGT:850 mb +HGT:900 mb +HGT:925 mb +HGT:950 mb +HGT:975 mb +HGT:1 mb +HGT:2 mb +HGT:3 mb +HGT:5 mb +HGT:7 mb +HGT:0.1 mb +HGT:0.2 mb +HGT:0.4 mb +HGT:0.7 mb +HGT:0.01 mb +HGT:0.02 mb +HGT:0.04 mb +HGT:0.07 mb +HGT:cloud ceiling +HGT:highest tropospheric freezing level +HGT:max wind +HGT:PV=-2e-06 (Km^2/kg/s) surface +HGT:PV=2e-06 (Km^2/kg/s) surface +HGT:surface +HGT:tropopause +HINDEX:surface +HLCY:3000-0 m above ground +HPBL:surface +ICAHT:max wind +ICAHT:tropopause +ICEC:surface +ICETK:surface +ICETMP:surface +ICSEV:100 mb +ICSEV:150 mb +ICSEV:200 mb +ICSEV:250 mb +ICSEV:300 mb +ICSEV:350 mb +ICSEV:400 mb +ICSEV:450 mb +ICSEV:500 mb +ICSEV:550 mb +ICSEV:600 mb +ICSEV:650 mb +ICSEV:700 mb +ICSEV:750 mb +ICSEV:800 mb +ICSEV:850 mb +ICSEV:900 mb +ICSEV:950 mb +ICSEV:1000 mb +ICMR:50 mb +ICMR:1000 mb +ICMR:100 mb +ICMR:150 mb +ICMR:200 mb +ICMR:250 mb +ICMR:300 mb +ICMR:350 mb +ICMR:400 mb +ICMR:450 mb +ICMR:500 mb +ICMR:550 mb +ICMR:600 mb +ICMR:650 mb +ICMR:700 mb +ICMR:750 mb +ICMR:800 mb +ICMR:850 mb +ICMR:900 mb +ICMR:925 mb +ICMR:950 mb +ICMR:975 mb +ICMR:1 hybrid level +LAND:surface +LCDC:low cloud layer +LFTX:surface +LHTFL:surface +MASSMR:1000 mb +MASSMR:100 mb +MASSMR:10 mb +MASSMR:15 mb +MASSMR:150 mb +MASSMR:20 mb +MASSMR:200 mb +MASSMR:250 mb +MASSMR:300 mb +MASSMR:30 mb +MASSMR:350 mb +MASSMR:40 mb +MASSMR:400 mb +MASSMR:450 mb +MASSMR:500 mb +MASSMR:50 mb +MASSMR:550 mb +MASSMR:600 mb +MASSMR:650 mb +MASSMR:700 mb +MASSMR:70 mb +MASSMR:750 mb +MASSMR:800 mb +MASSMR:850 mb +MASSMR:900 mb +MASSMR:925 mb +MASSMR:950 mb +MASSMR:975 mb +MASSMR:1 mb +MASSMR:2 mb +MASSMR:3 mb +MASSMR:5 mb +MASSMR:7 mb +MASSMR:0.1 mb +MASSMR:0.2 mb +MASSMR:0.4 mb +MASSMR:0.7 mb +MASSMR:0.01 mb +MASSMR:0.02 mb +MASSMR:0.04 mb +MASSMR:0.07 mb +MASSMR:1 hybrid level +MSLET:mean sea level +O3MR:1000 mb +O3MR:100 mb +O3MR:10 mb +O3MR:15 mb +O3MR:150 mb +O3MR:20 mb +O3MR:200 mb +O3MR:250 mb +O3MR:300 mb +O3MR:30 mb +O3MR:350 mb +O3MR:40 mb +O3MR:400 mb +O3MR:450 mb +O3MR:500 mb +O3MR:50 mb +O3MR:550 mb +O3MR:600 mb +O3MR:650 mb +O3MR:700 mb +O3MR:70 mb +O3MR:750 mb +O3MR:800 mb +O3MR:850 mb +O3MR:900 mb +O3MR:925 mb +O3MR:950 mb +O3MR:975 mb +O3MR:1 mb +O3MR:2 mb +O3MR:3 mb +O3MR:5 mb +O3MR:7 mb +O3MR:0.1 mb +O3MR:0.2 mb +O3MR:0.4 mb +O3MR:0.7 mb +O3MR:0.01 mb +O3MR:0.02 mb +O3MR:0.04 mb +O3MR:0.07 mb +MCDC:middle cloud layer +PEVPR:surface +PLPL:255-0 mb above ground +PMTC:1000 mb +PMTC:100 mb +PMTC:10 mb +PMTC:15 mb +PMTC:150 mb +PMTC:20 mb +PMTC:200 mb +PMTC:250 mb +PMTC:300 mb +PMTC:30 mb +PMTC:350 mb +PMTC:40 mb +PMTC:400 mb +PMTC:450 mb +PMTC:500 mb +PMTC:50 mb +PMTC:550 mb +PMTC:600 mb +PMTC:650 mb +PMTC:700 mb +PMTC:70 mb +PMTC:750 mb +PMTC:800 mb +PMTC:850 mb +PMTC:900 mb +PMTC:925 mb +PMTC:950 mb +PMTC:975 mb +PMTC:1 mb +PMTC:2 mb +PMTC:3 mb +PMTC:5 mb +PMTC:7 mb +PMTC:0.1 mb +PMTC:0.2 mb +PMTC:0.4 mb +PMTC:0.7 mb +PMTC:0.01 mb +PMTC:0.02 mb +PMTC:0.04 mb +PMTC:0.07 mb +PMTC:1 hybrid level +PMTC:entire atmosphere +PMTC:surface +PMTF:1000 mb +PMTF:100 mb +PMTF:10 mb +PMTF:15 mb +PMTF:150 mb +PMTF:20 mb +PMTF:200 mb +PMTF:250 mb +PMTF:300 mb +PMTF:30 mb +PMTF:350 mb +PMTF:40 mb +PMTF:400 mb +PMTF:450 mb +PMTF:500 mb +PMTF:50 mb +PMTF:550 mb +PMTF:600 mb +PMTF:650 mb +PMTF:700 mb +PMTF:70 mb +PMTF:750 mb +PMTF:800 mb +PMTF:850 mb +PMTF:900 mb +PMTF:925 mb +PMTF:950 mb +PMTF:975 mb +PMTF:1 mb +PMTF:2 mb +PMTF:3 mb +PMTF:5 mb +PMTF:7 mb +PMTF:0.1 mb +PMTF:0.2 mb +PMTF:0.4 mb +PMTF:0.7 mb +PMTF:0.01 mb +PMTF:0.02 mb +PMTF:0.04 mb +PMTF:0.07 mb +PMTF:1 hybrid level +PMTF:entire atmosphere +PMTF:surface +POT:0.995 sigma level +PRATE:surface +PRES:80 m above ground +PRES:convective cloud bottom level +PRES:convective cloud top level +PRES:high cloud bottom level +PRES:high cloud top level +PRES:low cloud bottom level +PRES:low cloud top level +PRES:max wind +PRES:middle cloud bottom level +PRES:middle cloud top level +PRES:PV=-2e-06 (Km^2/kg/s) surface +PRES:PV=2e-06 (Km^2/kg/s) surface +PRES:surface +PRES:tropopause +PRMSL:mean sea level +PWAT:entire atmosphere +REFC:entire atmosphere +REFD:1 hybrid level +REFD:2 hybrid level +REFD:1000 m above ground +REFD:4000 m above ground +RH:0.33-1 sigma layer +RH:0.44-0.72 sigma layer +RH:0.44-1 sigma layer +RH:0.72-0.94 sigma layer +RH:0.995 sigma level +RH:0C isotherm +RH:1000 mb +RH:100 mb +RH:10 mb +RH:15 mb +RH:150 mb +RH:20 mb +RH:200 mb +RH:250 mb +RH:2 m above ground +RH:300 mb +RH:30-0 mb above ground +RH:30 mb +RH:350 mb +RH:40 mb +RH:400 mb +RH:450 mb +RH:500 mb +RH:50 mb +RH:550 mb +RH:600 mb +RH:650 mb +RH:700 mb +RH:70 mb +RH:750 mb +RH:800 mb +RH:850 mb +RH:900 mb +RH:925 mb +RH:950 mb +RH:975 mb +RH:1 mb +RH:2 mb +RH:3 mb +RH:5 mb +RH:7 mb +RH:0.1 mb +RH:0.2 mb +RH:0.4 mb +RH:0.7 mb +RH:0.01 mb +RH:0.02 mb +RH:0.04 mb +RH:0.07 mb +RH:entire atmosphere (considered as a single layer) +RH:highest tropospheric freezing level +RWMR:50 mb +RWMR:1000 mb +RWMR:100 mb +RWMR:150 mb +RWMR:200 mb +RWMR:250 mb +RWMR:300 mb +RWMR:350 mb +RWMR:400 mb +RWMR:450 mb +RWMR:500 mb +RWMR:550 mb +RWMR:600 mb +RWMR:650 mb +RWMR:700 mb +RWMR:750 mb +RWMR:800 mb +RWMR:850 mb +RWMR:900 mb +RWMR:925 mb +RWMR:950 mb +RWMR:975 mb +RWMR:1 hybrid level +SCTAOTK:entire atmosphere +SEDMFLX:entire atmosphere +SHTFL:surface +SFCR:surface +SOILW:0-0.1 m below ground +SOILW:0.1-0.4 m below ground +SOILW:0.4-1 m below ground +SOILW:1-2 m below ground +SOTYP:surface +SPFH:1000 mb +SPFH:100 mb +SPFH:10 mb +SPFH:15 mb +SPFH:150 mb +SPFH:20 mb +SPFH:200 mb +SPFH:250 mb +SPFH:300 mb +SPFH:30 mb +SPFH:350 mb +SPFH:40 mb +SPFH:400 mb +SPFH:450 mb +SPFH:500 mb +SPFH:50 mb +SPFH:550 mb +SPFH:600 mb +SPFH:650 mb +SPFH:700 mb +SPFH:70 mb +SPFH:750 mb +SPFH:800 mb +SPFH:850 mb +SPFH:900 mb +SPFH:925 mb +SPFH:950 mb +SPFH:975 mb +SPFH:1 mb +SPFH:2 mb +SPFH:3 mb +SPFH:5 mb +SPFH:7 mb +SPFH:0.1 mb +SPFH:0.2 mb +SPFH:0.4 mb +SPFH:0.7 mb +SPFH:0.01 mb +SPFH:0.02 mb +SPFH:0.04 mb +SPFH:0.07 mb +SPFH:2 m above ground +SPFH:30-0 mb above ground +SPFH:80 m above ground +SNMR:50 mb +SNMR:1000 mb +SNMR:100 mb +SNMR:150 mb +SNMR:200 mb +SNMR:250 mb +SNMR:300 mb +SNMR:350 mb +SNMR:400 mb +SNMR:450 mb +SNMR:500 mb +SNMR:550 mb +SNMR:600 mb +SNMR:650 mb +SNMR:700 mb +SNMR:750 mb +SNMR:800 mb +SNMR:850 mb +SNMR:900 mb +SNMR:925 mb +SNMR:950 mb +SNMR:975 mb +SNMR:1 hybrid level +SOILL:0-0.1 m below ground +SOILL:0.1-0.4 m below ground +SOILL:0.4-1 m below ground +SOILL:1-2 m below ground +SSALBK:entire atmosphere +SUNSD:surface +TCDC:50 mb +TCDC:1000 mb +TCDC:100 mb +TCDC:150 mb +TCDC:200 mb +TCDC:250 mb +TCDC:300 mb +TCDC:350 mb +TCDC:400 mb +TCDC:450 mb +TCDC:500 mb +TCDC:550 mb +TCDC:600 mb +TCDC:650 mb +TCDC:700 mb +TCDC:750 mb +TCDC:800 mb +TCDC:850 mb +TCDC:900 mb +TCDC:925 mb +TCDC:950 mb +TCDC:975 mb +TCDC:boundary layer cloud layer +TCDC:convective cloud layer +TCDC:entire atmosphere +TCDC:high cloud layer +TCDC:low cloud layer +TCDC:middle cloud layer +TMAX:2 m above ground +TMIN:2 m above ground +TSOIL:0-0.1 m below ground +TSOIL:0.1-0.4 m below ground +TSOIL:0.4-1 m below ground +TMP:0.995 sigma level +TMP:1000 mb +TMP:100 m above ground +TMP:100 mb +TMP:10 mb +TMP:15 mb +TSOIL:1-2 m below ground +TMP:150 mb +TMP:1829 m above mean sea level +TMP:200 mb +TMP:20 mb +TMP:250 mb +TMP:2743 m above mean sea level +TMP:2 m above ground +TMP:300 mb +TMP:30-0 mb above ground +TMP:30 mb +TMP:350 mb +TMP:3658 m above mean sea level +TMP:400 mb +TMP:40 mb +TMP:450 mb +TMP:500 mb +TMP:50 mb +TMP:550 mb +TMP:600 mb +TMP:650 mb +TMP:700 mb +TMP:70 mb +TMP:750 mb +TMP:800 mb +TMP:80 m above ground +TMP:850 mb +TMP:900 mb +TMP:925 mb +TMP:950 mb +TMP:975 mb +TMP:1 mb +TMP:2 mb +TMP:3 mb +TMP:5 mb +TMP:7 mb +TMP:0.1 mb +TMP:0.2 mb +TMP:0.4 mb +TMP:0.7 mb +TMP:0.01 mb +TMP:0.02 mb +TMP:0.04 mb +TMP:0.07 mb +TMP:high cloud top level +TMP:low cloud top level +TMP:max wind +TMP:middle cloud top level +TMP:PV=-2e-06 (Km^2/kg/s) surface +TMP:PV=2e-06 (Km^2/kg/s) surface +TMP:surface +TMP:tropopause +TOZNE:entire atmosphere (considered as a single layer) +UFLX:surface +UGRD:0.995 sigma level +UGRD:1000 mb +UGRD:100 m above ground +UGRD:100 mb +UGRD:10 m above ground +UGRD:10 mb +UGRD:15 mb +UGRD:150 mb +UGRD:1829 m above mean sea level +UGRD:200 mb +UGRD:20 mb +UGRD:20 m above ground +UGRD:250 mb +UGRD:2743 m above mean sea level +UGRD:300 mb +UGRD:30 m above ground +UGRD:30-0 mb above ground +UGRD:30 mb +UGRD:350 mb +UGRD:3658 m above mean sea level +UGRD:40 mb +UGRD:400 mb +UGRD:40 m above ground +UGRD:450 mb +UGRD:500 mb +UGRD:50 mb +UGRD:50 m above ground +UGRD:550 mb +UGRD:600 mb +UGRD:650 mb +UGRD:700 mb +UGRD:70 mb +UGRD:750 mb +UGRD:800 mb +UGRD:80 m above ground +UGRD:850 mb +UGRD:900 mb +UGRD:925 mb +UGRD:950 mb +UGRD:975 mb +UGRD:1 mb +UGRD:2 mb +UGRD:3 mb +UGRD:5 mb +UGRD:7 mb +UGRD:0.1 mb +UGRD:0.2 mb +UGRD:0.4 mb +UGRD:0.7 mb +UGRD:0.01 mb +UGRD:0.02 mb +UGRD:0.04 mb +UGRD:0.07 mb +UGRD:max wind +UGRD:planetary boundary layer +UGRD:PV=-2e-06 (Km^2/kg/s) surface +UGRD:PV=2e-06 (Km^2/kg/s) surface +UGRD:tropopause +U-GWD:surface +ULWRF:surface +ULWRF:top of atmosphere +USTM:6000-0 m above ground +USWRF:surface +USWRF:top of atmosphere +VEG:surface +VFLX:surface +VGRD:0.995 sigma level +VGRD:1000 mb +VGRD:100 m above ground +VGRD:100 mb +VGRD:10 m above ground +VGRD:10 mb +VGRD:15 mb +VGRD:150 mb +VGRD:1829 m above mean sea level +VGRD:200 mb +VGRD:20 mb +VGRD:20 m above ground +VGRD:250 mb +VGRD:2743 m above mean sea level +VGRD:300 mb +VGRD:30 m above ground +VGRD:30-0 mb above ground +VGRD:30 mb +VGRD:350 mb +VGRD:3658 m above mean sea level +VGRD:40 mb +VGRD:400 mb +VGRD:40 m above ground +VGRD:450 mb +VGRD:500 mb +VGRD:50 mb +VGRD:50 m above ground +VGRD:550 mb +VGRD:600 mb +VGRD:650 mb +VGRD:700 mb +VGRD:70 mb +VGRD:750 mb +VGRD:800 mb +VGRD:80 m above ground +VGRD:850 mb +VGRD:900 mb +VGRD:925 mb +VGRD:950 mb +VGRD:975 mb +VGRD:1 mb +VGRD:2 mb +VGRD:3 mb +VGRD:5 mb +VGRD:7 mb +VGRD:0.1 mb +VGRD:0.2 mb +VGRD:0.4 mb +VGRD:0.7 mb +VGRD:0.01 mb +VGRD:0.02 mb +VGRD:0.04 mb +VGRD:0.07 mb +VGRD:max wind +VGRD:planetary boundary layer +VGRD:PV=-2e-06 (Km^2/kg/s) surface +VGRD:PV=2e-06 (Km^2/kg/s) surface +VGRD:tropopause +V-GWD:surface +VRATE:planetary boundary layer +VSTM:6000-0 m above ground +DZDT:1000 mb +DZDT:100 mb +DZDT:10 mb +DZDT:15 mb +DZDT:150 mb +DZDT:20 mb +DZDT:200 mb +DZDT:250 mb +DZDT:300 mb +DZDT:30 mb +DZDT:350 mb +DZDT:40 mb +DZDT:400 mb +DZDT:450 mb +DZDT:500 mb +DZDT:50 mb +DZDT:550 mb +DZDT:600 mb +DZDT:650 mb +DZDT:700 mb +DZDT:70 mb +DZDT:750 mb +DZDT:800 mb +DZDT:850 mb +DZDT:900 mb +DZDT:925 mb +DZDT:950 mb +DZDT:975 mb +DZDT:1 mb +DZDT:2 mb +DZDT:3 mb +DZDT:5 mb +DZDT:7 mb +DZDT:0.1 mb +DZDT:0.2 mb +DZDT:0.4 mb +DZDT:0.7 mb +DZDT:0.01 mb +DZDT:0.02 mb +DZDT:0.04 mb +DZDT:0.07 mb +VVEL:0.995 sigma level +VVEL:1000 mb +VVEL:100 mb +VVEL:10 mb +VVEL:15 mb +VVEL:150 mb +VVEL:20 mb +VVEL:200 mb +VVEL:250 mb +VVEL:300 mb +VVEL:30 mb +VVEL:350 mb +VVEL:40 mb +VVEL:400 mb +VVEL:450 mb +VVEL:500 mb +VVEL:50 mb +VVEL:550 mb +VVEL:600 mb +VVEL:650 mb +VVEL:700 mb +VVEL:70 mb +VVEL:750 mb +VVEL:800 mb +VVEL:850 mb +VVEL:900 mb +VVEL:925 mb +VVEL:950 mb +VVEL:975 mb +VVEL:1 mb +VVEL:2 mb +VVEL:3 mb +VVEL:5 mb +VVEL:7 mb +VVEL:0.1 mb +VVEL:0.2 mb +VVEL:0.4 mb +VVEL:0.7 mb +VVEL:0.01 mb +VVEL:0.02 mb +VVEL:0.04 mb +VVEL:0.07 mb +VWSH:PV=-2e-06 (Km^2/kg/s) surface +VWSH:PV=2e-06 (Km^2/kg/s) surface +VWSH:tropopause +WATR:surface +WEASD:surface +WILT:surface +WLSMFLX:entire atmosphere +SNOD:surface +VIS:surface +ICEG:10 m above mean sea level diff --git a/parm/optics_luts_NITR_nasa.dat b/parm/optics_luts_NITR_nasa.dat new file mode 100644 index 000000000..ad58ae09f --- /dev/null +++ b/parm/optics_luts_NITR_nasa.dat @@ -0,0 +1,432 @@ + NITR 1 ext + 6.02555 7.30874 7.92768 8.54895 9.18698 9.85687 10.38813 11.12264 + 11.90522 12.72627 13.57852 14.47123 15.17235 16.13567 17.14034 18.44349 + 19.80489 20.08519 20.36681 20.64928 20.93495 21.22325 21.80705 22.10250 + 22.70034 23.00269 23.61428 24.23474 25.18231 25.82570 26.80936 28.14929 + 29.17083 30.92049 33.08688 37.20183 + 4.83988 5.84334 6.31702 6.82536 7.37393 7.96715 8.43704 9.09445 + 9.78695 10.51808 11.29206 12.10176 12.73570 13.61482 14.53111 15.72658 + 16.97700 17.23392 17.49339 17.75526 18.01965 18.28651 18.82752 19.10135 + 19.65498 19.93500 20.50215 21.07894 21.96263 22.56255 23.48074 24.73759 + 25.70466 27.36422 29.42888 33.42739 + 3.83608 4.65973 5.05076 5.46913 5.92236 6.41166 6.80302 7.35558 + 7.94239 8.56409 9.22249 9.91910 10.46606 11.22768 12.02772 13.08113 + 14.19395 14.42326 14.65487 14.88900 15.12554 15.36424 15.84924 16.09542 + 16.59412 16.84723 17.36079 17.88416 18.68754 19.23509 20.07383 21.22542 + 22.11465 23.64529 25.56175 29.29947 + 2.72467 3.33663 3.63241 3.95376 4.30260 4.67906 4.97925 5.40230 + 5.85405 6.33539 6.84801 7.39268 7.82231 8.42398 9.06004 9.90361 + 10.80250 10.98910 11.17773 11.36856 11.56170 11.75715 12.15490 12.35722 + 12.76874 12.97796 13.40333 13.83799 14.50749 14.96556 15.67039 16.64355 + 17.39851 18.70466 20.35169 23.59686 + 1.77331 2.19648 2.39891 2.61949 2.85987 3.12114 3.33109 3.63090 + 3.95429 4.30211 4.67532 5.07472 5.39195 5.83898 6.31407 6.94860 + 7.62953 7.77142 7.91523 8.06097 8.20867 8.35831 8.66352 8.81909 + 9.13624 9.29784 9.62712 9.96455 10.48614 10.84428 11.39729 12.16437 + 12.76230 13.80211 15.12288 17.75505 + 0.38845 0.49519 0.54815 0.60686 0.67174 0.74324 0.80146 0.88558 + 0.97753 1.07780 1.18687 1.30523 1.40041 1.53625 1.68277 1.88172 + 2.09917 2.14497 2.19155 2.23894 2.28712 2.33612 2.43659 2.48807 + 2.59359 2.64763 2.75834 2.87259 3.05074 3.17413 3.36630 3.63610 + 3.84891 4.22416 4.70962 5.70471 + 0.07623 0.10583 0.11981 0.13487 0.15105 0.16838 0.18215 0.20160 + 0.22232 0.24435 0.26772 0.29249 0.31201 0.33932 0.36813 0.40633 + 0.44704 0.45549 0.46404 0.47270 0.48146 0.49033 0.50839 0.51758 + 0.53629 0.54580 0.56517 0.58499 0.61557 0.63653 0.66884 0.71359 + 0.74842 0.80894 0.88575 1.03887 + NITR 1 sca + 6.02555 7.30874 7.92768 8.54895 9.18698 9.85687 10.38813 11.12264 + 11.90522 12.72627 13.57852 14.47123 15.17235 16.13567 17.14034 18.44349 + 19.80489 20.08519 20.36681 20.64928 20.93495 21.22325 21.80705 22.10250 + 22.70034 23.00269 23.61428 24.23474 25.18231 25.82570 26.80936 28.14929 + 29.17083 30.92049 33.08688 37.20183 + 4.83988 5.84334 6.31702 6.82536 7.37393 7.96715 8.43704 9.09445 + 9.78695 10.51808 11.29206 12.10176 12.73570 13.61482 14.53111 15.72658 + 16.97700 17.23392 17.49339 17.75526 18.01965 18.28651 18.82752 19.10135 + 19.65498 19.93500 20.50215 21.07894 21.96263 22.56255 23.48074 24.73759 + 25.70466 27.36422 29.42888 33.42739 + 3.83608 4.65973 5.05076 5.46913 5.92236 6.41166 6.80302 7.35558 + 7.94239 8.56409 9.22249 9.91910 10.46606 11.22768 12.02772 13.08113 + 14.19395 14.42326 14.65487 14.88900 15.12554 15.36424 15.84924 16.09542 + 16.59412 16.84723 17.36079 17.88416 18.68754 19.23509 20.07383 21.22542 + 22.11465 23.64529 25.56175 29.29947 + 2.72467 3.33663 3.63241 3.95376 4.30260 4.67906 4.97925 5.40230 + 5.85405 6.33539 6.84801 7.39268 7.82231 8.42398 9.06004 9.90361 + 10.80250 10.98910 11.17773 11.36856 11.56170 11.75715 12.15490 12.35722 + 12.76874 12.97796 13.40333 13.83799 14.50749 14.96556 15.67039 16.64355 + 17.39851 18.70466 20.35169 23.59686 + 1.77331 2.19648 2.39891 2.61949 2.85987 3.12114 3.33109 3.63090 + 3.95429 4.30211 4.67532 5.07472 5.39195 5.83898 6.31407 6.94860 + 7.62953 7.77142 7.91523 8.06097 8.20867 8.35831 8.66352 8.81909 + 9.13624 9.29784 9.62712 9.96455 10.48614 10.84428 11.39729 12.16437 + 12.76230 13.80211 15.12288 17.75490 + 0.38824 0.49479 0.54767 0.60628 0.67106 0.74245 0.80058 0.88458 + 0.97639 1.07652 1.18543 1.30363 1.39868 1.53434 1.68067 1.87936 + 2.09653 2.14227 2.18879 2.23612 2.28424 2.33318 2.43352 2.48495 + 2.59033 2.64431 2.75488 2.86899 3.04693 3.17017 3.36212 3.63160 + 3.84417 4.21898 4.70390 5.69789 + 0.00033 0.00045 0.00051 0.00058 0.00066 0.00075 0.00083 0.00094 + 0.00107 0.00121 0.00137 0.00155 0.00170 0.00192 0.00216 0.00251 + 0.00289 0.00298 0.00306 0.00315 0.00324 0.00333 0.00352 0.00362 + 0.00382 0.00393 0.00415 0.00438 0.00474 0.00499 0.00540 0.00598 + 0.00645 0.00730 0.00844 0.01090 + NITR 1 asy + 0.64352 0.67800 0.68707 0.69577 0.70442 0.71259 0.71793 0.72521 + 0.73121 0.73641 0.74147 0.74611 0.74906 0.75296 0.75639 0.76046 + 0.76408 0.76471 0.76536 0.76605 0.76669 0.76730 0.76846 0.76901 + 0.77006 0.77056 0.77151 0.77240 0.77363 0.77436 0.77529 0.77642 + 0.77731 0.77845 0.77951 0.78165 + 0.63485 0.66956 0.68118 0.69206 0.70183 0.71007 0.71559 0.72244 + 0.72882 0.73455 0.73943 0.74394 0.74692 0.75047 0.75367 0.75735 + 0.76081 0.76147 0.76211 0.76274 0.76334 0.76393 0.76507 0.76562 + 0.76674 0.76730 0.76838 0.76942 0.77086 0.77181 0.77313 0.77476 + 0.77589 0.77758 0.77942 0.78209 + 0.62479 0.65817 0.66965 0.68045 0.69025 0.69902 0.70489 0.71202 + 0.71859 0.72467 0.73019 0.73515 0.73856 0.74279 0.74660 0.75090 + 0.75475 0.75549 0.75623 0.75694 0.75764 0.75833 0.75967 0.76032 + 0.76161 0.76224 0.76345 0.76461 0.76627 0.76734 0.76889 0.77087 + 0.77226 0.77442 0.77677 0.78049 + 0.60553 0.63866 0.65017 0.66076 0.67025 0.67872 0.68450 0.69181 + 0.69858 0.70489 0.71070 0.71609 0.71990 0.72471 0.72918 0.73436 + 0.73911 0.74001 0.74090 0.74179 0.74265 0.74350 0.74516 0.74597 + 0.74755 0.74832 0.74983 0.75129 0.75341 0.75476 0.75672 0.75919 + 0.76094 0.76370 0.76676 0.77176 + 0.57842 0.60994 0.62122 0.63170 0.64143 0.65039 0.65674 0.66470 + 0.67211 0.67903 0.68548 0.69149 0.69574 0.70108 0.70610 0.71197 + 0.71742 0.71847 0.71949 0.72051 0.72151 0.72249 0.72442 0.72536 + 0.72720 0.72810 0.72987 0.73159 0.73408 0.73568 0.73800 0.74096 + 0.74307 0.74643 0.75019 0.75639 + 0.47245 0.49974 0.51028 0.52038 0.53005 0.53930 0.54596 0.55451 + 0.56270 0.57054 0.57806 0.58528 0.59049 0.59720 0.60365 0.61135 + 0.61868 0.62011 0.62152 0.62291 0.62429 0.62566 0.62836 0.62970 + 0.63232 0.63361 0.63616 0.63867 0.64233 0.64472 0.64823 0.65275 + 0.65604 0.66132 0.66737 0.67767 + 0.07409 0.08209 0.08552 0.08901 0.09254 0.09611 0.09880 0.10242 + 0.10605 0.10969 0.11334 0.11700 0.11975 0.12341 0.12707 0.13164 + 0.13620 0.13711 0.13802 0.13893 0.13984 0.14075 0.14256 0.14347 + 0.14528 0.14619 0.14799 0.14980 0.15250 0.15429 0.15698 0.16055 + 0.16321 0.16764 0.17292 0.18249 + NITR 1 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 0.99999 + 0.99944 0.99920 0.99912 0.99905 0.99899 0.99894 0.99891 0.99887 + 0.99884 0.99881 0.99879 0.99877 0.99876 0.99875 0.99875 0.99874 + 0.99874 0.99874 0.99874 0.99874 0.99874 0.99874 0.99874 0.99874 + 0.99874 0.99874 0.99875 0.99875 0.99875 0.99875 0.99876 0.99876 + 0.99877 0.99878 0.99879 0.99880 + 0.00438 0.00426 0.00427 0.00431 0.00438 0.00446 0.00454 0.00466 + 0.00480 0.00496 0.00513 0.00531 0.00545 0.00566 0.00588 0.00617 + 0.00647 0.00653 0.00660 0.00666 0.00673 0.00679 0.00692 0.00699 + 0.00713 0.00720 0.00734 0.00748 0.00770 0.00784 0.00807 0.00838 + 0.00862 0.00902 0.00953 0.01049 + NITR 2 ext + 0.46568 0.55688 0.58919 0.62415 0.66757 0.70487 0.73007 0.77578 + 0.81731 0.86277 0.90045 0.93065 0.96080 1.01726 1.05551 1.09798 + 1.15164 1.16441 1.17570 1.18550 1.19638 1.20812 1.22981 1.24130 + 1.26221 1.27197 1.29529 1.31844 1.34827 1.36726 1.39916 1.44300 + 1.47028 1.51778 1.57263 1.67024 + 0.47758 0.56942 0.60215 0.63786 0.67449 0.72116 0.75426 0.79858 + 0.82650 0.85748 0.91786 0.96077 0.99441 1.03110 1.07315 1.12801 + 1.17193 1.17974 1.18991 1.19909 1.20925 1.22009 1.24410 1.25620 + 1.27135 1.28046 1.29872 1.31571 1.35346 1.37167 1.40510 1.45033 + 1.48608 1.54485 1.60190 1.71954 + 0.48933 0.57134 0.62170 0.64698 0.69036 0.72766 0.76577 0.81089 + 0.85327 0.88111 0.91913 0.97378 1.01385 1.05042 1.09315 1.13909 + 1.19447 1.20434 1.21247 1.22404 1.23689 1.24638 1.26485 1.27668 + 1.29265 1.30216 1.32243 1.34434 1.38060 1.40316 1.42940 1.46676 + 1.49553 1.54894 1.61524 1.72855 + 0.49628 0.58810 0.63640 0.67312 0.71768 0.76343 0.79666 0.82942 + 0.87223 0.90726 0.96043 1.00176 1.03617 1.07648 1.11810 1.16342 + 1.21948 1.23554 1.24366 1.24923 1.25703 1.26725 1.28229 1.29087 + 1.31196 1.32117 1.34202 1.36350 1.39416 1.41359 1.44571 1.49282 + 1.52504 1.57617 1.64114 1.75488 + 0.51675 0.62096 0.65317 0.69648 0.73863 0.77792 0.80596 0.85362 + 0.90057 0.93729 0.97909 1.02997 1.07198 1.12198 1.16230 1.20840 + 1.25287 1.26328 1.27312 1.28143 1.29102 1.30034 1.32006 1.33074 + 1.35311 1.36499 1.38889 1.41220 1.44603 1.46970 1.50533 1.54911 + 1.58998 1.63156 1.69044 1.79782 + 0.56996 0.67204 0.72553 0.77531 0.81923 0.87015 0.90912 0.96127 + 1.00645 1.05333 1.09839 1.14806 1.18687 1.23395 1.28109 1.33914 + 1.39861 1.41065 1.42155 1.43207 1.44302 1.45367 1.47595 1.48744 + 1.51138 1.52358 1.54566 1.56578 1.59555 1.61588 1.64761 1.69127 + 1.72277 1.77679 1.84252 1.96335 + 0.12516 0.15263 0.16527 0.17863 0.19270 0.20746 0.21898 0.23493 + 0.25152 0.26873 0.28656 0.30496 0.31914 0.33851 0.35841 0.38398 + 0.41028 0.41563 0.42100 0.42640 0.43182 0.43727 0.44825 0.45378 + 0.46490 0.47050 0.48177 0.49313 0.51033 0.52191 0.53942 0.56305 + 0.58095 0.61113 0.64785 0.71638 + NITR 2 sca + 0.46568 0.55688 0.58919 0.62415 0.66757 0.70487 0.73007 0.77578 + 0.81731 0.86277 0.90045 0.93065 0.96080 1.01726 1.05551 1.09798 + 1.15164 1.16441 1.17570 1.18550 1.19638 1.20812 1.22981 1.24130 + 1.26221 1.27197 1.29529 1.31844 1.34827 1.36726 1.39916 1.44300 + 1.47028 1.51778 1.57263 1.67024 + 0.47758 0.56942 0.60215 0.63786 0.67449 0.72116 0.75426 0.79858 + 0.82650 0.85748 0.91786 0.96077 0.99441 1.03110 1.07315 1.12801 + 1.17193 1.17974 1.18991 1.19909 1.20925 1.22009 1.24410 1.25620 + 1.27135 1.28046 1.29872 1.31571 1.35346 1.37167 1.40510 1.45033 + 1.48608 1.54485 1.60190 1.71954 + 0.48933 0.57134 0.62170 0.64698 0.69036 0.72766 0.76577 0.81089 + 0.85327 0.88111 0.91913 0.97378 1.01385 1.05042 1.09315 1.13909 + 1.19447 1.20434 1.21247 1.22404 1.23689 1.24638 1.26485 1.27668 + 1.29265 1.30216 1.32243 1.34434 1.38060 1.40316 1.42940 1.46676 + 1.49553 1.54894 1.61524 1.72855 + 0.49628 0.58810 0.63640 0.67312 0.71768 0.76343 0.79666 0.82942 + 0.87223 0.90726 0.96043 1.00176 1.03617 1.07648 1.11810 1.16342 + 1.21948 1.23554 1.24366 1.24923 1.25703 1.26725 1.28229 1.29087 + 1.31196 1.32117 1.34202 1.36350 1.39416 1.41359 1.44571 1.49282 + 1.52504 1.57617 1.64114 1.75488 + 0.51675 0.62096 0.65317 0.69648 0.73863 0.77792 0.80596 0.85362 + 0.90057 0.93729 0.97909 1.02997 1.07198 1.12198 1.16230 1.20840 + 1.25287 1.26328 1.27312 1.28143 1.29102 1.30034 1.32006 1.33074 + 1.35311 1.36499 1.38889 1.41220 1.44603 1.46970 1.50533 1.54911 + 1.58998 1.63156 1.69044 1.79772 + 0.56953 0.67139 0.72469 0.77430 0.81814 0.86892 0.90780 0.95975 + 1.00478 1.05150 1.09647 1.14580 1.18449 1.23150 1.27845 1.33622 + 1.39534 1.40729 1.41819 1.42871 1.43947 1.45025 1.47241 1.48382 + 1.50756 1.51963 1.54159 1.56159 1.59141 1.61174 1.64336 1.68649 + 1.71818 1.77196 1.83725 1.95718 + 0.04367 0.04825 0.05061 0.05325 0.05616 0.05933 0.06189 0.06554 + 0.06945 0.07362 0.07804 0.08272 0.08640 0.09151 0.09686 0.10388 + 0.11126 0.11278 0.11431 0.11585 0.11741 0.11898 0.12217 0.12378 + 0.12704 0.12869 0.13203 0.13542 0.14060 0.14412 0.14947 0.15678 + 0.16237 0.17191 0.18370 0.20619 + NITR 2 asy + 0.74929 0.77061 0.76890 0.78330 0.78902 0.78898 0.79737 0.79689 + 0.80474 0.80366 0.81052 0.81273 0.81576 0.81366 0.81362 0.81909 + 0.82606 0.82622 0.82719 0.82900 0.82982 0.82979 0.83023 0.83004 + 0.83076 0.83201 0.83193 0.83183 0.83388 0.83575 0.83597 0.83472 + 0.83605 0.83545 0.83487 0.83775 + 0.72496 0.74859 0.76404 0.76753 0.78001 0.78165 0.78463 0.78547 + 0.79406 0.80387 0.80049 0.80772 0.80735 0.81014 0.81291 0.80983 + 0.81465 0.81634 0.81631 0.81685 0.81676 0.81630 0.81401 0.81266 + 0.81641 0.81768 0.82098 0.82544 0.82491 0.82831 0.82968 0.82970 + 0.82849 0.82798 0.83327 0.83240 + 0.71442 0.74713 0.74439 0.76098 0.76463 0.77669 0.77740 0.77835 + 0.77853 0.78948 0.79782 0.79955 0.79873 0.80488 0.80244 0.80745 + 0.80686 0.80711 0.80864 0.80805 0.80665 0.80747 0.80973 0.80919 + 0.81293 0.81384 0.81475 0.81468 0.81255 0.81198 0.81629 0.82144 + 0.82524 0.82756 0.82789 0.83021 + 0.71024 0.73704 0.73675 0.75178 0.75397 0.75879 0.75459 0.76452 + 0.76733 0.77932 0.77708 0.78312 0.78238 0.78482 0.78698 0.79401 + 0.79531 0.79211 0.79374 0.79717 0.79930 0.79996 0.80479 0.80665 + 0.80788 0.80927 0.81034 0.81086 0.81252 0.81423 0.81558 0.81509 + 0.81609 0.81844 0.81767 0.81579 + 0.69715 0.70948 0.72422 0.73218 0.73994 0.74466 0.75153 0.75523 + 0.75856 0.76808 0.77599 0.77710 0.77416 0.77378 0.77718 0.78190 + 0.78853 0.78907 0.78996 0.79193 0.79324 0.79478 0.79744 0.79838 + 0.79964 0.79987 0.80009 0.80047 0.80143 0.80134 0.80087 0.80171 + 0.79777 0.80409 0.80683 0.81029 + 0.67469 0.71234 0.71993 0.72819 0.73983 0.74561 0.74831 0.74888 + 0.75364 0.75747 0.76328 0.76631 0.76717 0.77041 0.77264 0.77539 + 0.77697 0.77711 0.77781 0.77871 0.77947 0.78022 0.78139 0.78180 + 0.78209 0.78207 0.78299 0.78495 0.78799 0.78978 0.79180 0.79382 + 0.79548 0.79748 0.79907 0.80011 + 0.63509 0.66292 0.67316 0.68275 0.69177 0.70028 0.70634 0.71404 + 0.72133 0.72825 0.73483 0.74108 0.74557 0.75131 0.75679 0.76329 + 0.76944 0.77063 0.77180 0.77296 0.77411 0.77525 0.77749 0.77859 + 0.78076 0.78183 0.78393 0.78599 0.78900 0.79096 0.79382 0.79750 + 0.80017 0.80444 0.80932 0.81757 + NITR 2 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 0.99994 + 0.99926 0.99904 0.99884 0.99870 0.99867 0.99859 0.99856 0.99842 + 0.99834 0.99827 0.99825 0.99802 0.99800 0.99801 0.99794 0.99782 + 0.99766 0.99762 0.99763 0.99765 0.99754 0.99765 0.99760 0.99757 + 0.99747 0.99741 0.99737 0.99733 0.99740 0.99744 0.99742 0.99717 + 0.99734 0.99728 0.99714 0.99686 + 0.34889 0.31613 0.30625 0.29810 0.29142 0.28599 0.28264 0.27897 + 0.27611 0.27394 0.27235 0.27126 0.27072 0.27032 0.27025 0.27054 + 0.27118 0.27134 0.27152 0.27171 0.27190 0.27211 0.27255 0.27278 + 0.27327 0.27353 0.27406 0.27462 0.27551 0.27613 0.27710 0.27845 + 0.27950 0.28131 0.28356 0.28783 + NITR 3 ext + 0.13395 0.14516 0.14701 0.15138 0.15643 0.15918 0.16088 0.16517 + 0.17002 0.17244 0.17645 0.17795 0.17789 0.18266 0.18537 0.18709 + 0.19050 0.19157 0.19258 0.19344 0.19390 0.19440 0.19543 0.19590 + 0.19635 0.19704 0.19841 0.19992 0.20198 0.20292 0.20436 0.20643 + 0.20708 0.20849 0.21032 0.21358 + 0.13388 0.14525 0.14953 0.15229 0.15724 0.16200 0.16380 0.16745 + 0.16926 0.17211 0.17662 0.17971 0.18187 0.18439 0.18806 0.18913 + 0.19072 0.19113 0.19194 0.19281 0.19351 0.19418 0.19598 0.19679 + 0.19690 0.19739 0.19859 0.19950 0.20147 0.20267 0.20486 0.20700 + 0.20823 0.21020 0.21244 0.21794 + 0.13464 0.14598 0.15194 0.15296 0.15810 0.16182 0.16653 0.16840 + 0.16944 0.17270 0.17666 0.18111 0.18387 0.18675 0.18919 0.18918 + 0.19213 0.19268 0.19289 0.19333 0.19415 0.19520 0.19618 0.19690 + 0.19825 0.19889 0.20041 0.20147 0.20384 0.20413 0.20517 0.20729 + 0.20840 0.21127 0.21534 0.21943 + 0.13758 0.14947 0.15087 0.15559 0.16030 0.16456 0.16404 0.16876 + 0.17416 0.17630 0.18056 0.18211 0.18254 0.18479 0.18797 0.19136 + 0.19525 0.19669 0.19771 0.19796 0.19838 0.19944 0.20014 0.20029 + 0.20187 0.20254 0.20412 0.20576 0.20731 0.20741 0.20837 0.20947 + 0.20984 0.21155 0.21426 0.21888 + 0.13653 0.14798 0.15402 0.15799 0.16010 0.16498 0.16855 0.17137 + 0.17608 0.17532 0.17929 0.18389 0.18676 0.19150 0.19342 0.19609 + 0.19634 0.19654 0.19668 0.19654 0.19719 0.19729 0.19808 0.19864 + 0.19956 0.20027 0.20179 0.20290 0.20530 0.20707 0.20850 0.21085 + 0.21387 0.21554 0.21984 0.22438 + 0.14489 0.15615 0.16193 0.16775 0.16808 0.17399 0.17748 0.18056 + 0.18364 0.18598 0.18777 0.19280 0.19559 0.19749 0.20029 0.20342 + 0.20665 0.20715 0.20731 0.20740 0.20793 0.20805 0.20929 0.21002 + 0.21177 0.21271 0.21366 0.21439 0.21473 0.21498 0.21593 0.21746 + 0.21827 0.21991 0.22296 0.22872 + 0.11996 0.12405 0.12587 0.12776 0.12972 0.13173 0.13327 0.13535 + 0.13747 0.13960 0.14175 0.14391 0.14552 0.14767 0.14981 0.15247 + 0.15509 0.15561 0.15613 0.15665 0.15717 0.15769 0.15871 0.15922 + 0.16024 0.16075 0.16175 0.16275 0.16424 0.16522 0.16668 0.16860 + 0.17002 0.17235 0.17508 0.17990 + NITR 3 sca + 0.13395 0.14516 0.14701 0.15138 0.15643 0.15918 0.16088 0.16517 + 0.17002 0.17244 0.17645 0.17795 0.17789 0.18266 0.18537 0.18709 + 0.19050 0.19157 0.19258 0.19344 0.19390 0.19440 0.19543 0.19590 + 0.19635 0.19704 0.19841 0.19992 0.20198 0.20292 0.20436 0.20643 + 0.20708 0.20849 0.21032 0.21358 + 0.13388 0.14525 0.14953 0.15229 0.15724 0.16200 0.16380 0.16745 + 0.16926 0.17211 0.17662 0.17971 0.18187 0.18439 0.18806 0.18913 + 0.19072 0.19113 0.19194 0.19281 0.19351 0.19418 0.19598 0.19679 + 0.19690 0.19739 0.19859 0.19950 0.20147 0.20267 0.20486 0.20700 + 0.20823 0.21020 0.21244 0.21794 + 0.13464 0.14598 0.15194 0.15296 0.15810 0.16182 0.16653 0.16840 + 0.16944 0.17270 0.17666 0.18111 0.18387 0.18675 0.18919 0.18918 + 0.19213 0.19268 0.19289 0.19333 0.19415 0.19520 0.19618 0.19690 + 0.19825 0.19889 0.20041 0.20147 0.20384 0.20413 0.20517 0.20729 + 0.20840 0.21127 0.21534 0.21943 + 0.13758 0.14947 0.15087 0.15559 0.16030 0.16456 0.16404 0.16876 + 0.17416 0.17630 0.18056 0.18211 0.18254 0.18479 0.18797 0.19136 + 0.19525 0.19669 0.19771 0.19796 0.19838 0.19944 0.20014 0.20029 + 0.20187 0.20254 0.20412 0.20576 0.20731 0.20741 0.20837 0.20947 + 0.20984 0.21155 0.21426 0.21888 + 0.13653 0.14798 0.15402 0.15799 0.16010 0.16498 0.16855 0.17137 + 0.17608 0.17532 0.17929 0.18389 0.18676 0.19150 0.19342 0.19609 + 0.19634 0.19654 0.19668 0.19654 0.19719 0.19729 0.19808 0.19864 + 0.19956 0.20027 0.20179 0.20290 0.20530 0.20707 0.20850 0.21085 + 0.21387 0.21554 0.21984 0.22435 + 0.14453 0.15563 0.16128 0.16699 0.16733 0.17315 0.17659 0.17966 + 0.18267 0.18496 0.18677 0.19157 0.19441 0.19631 0.19907 0.20211 + 0.20520 0.20574 0.20593 0.20604 0.20638 0.20669 0.20788 0.20858 + 0.21030 0.21119 0.21211 0.21272 0.21317 0.21341 0.21436 0.21572 + 0.21667 0.21830 0.22123 0.22688 + 0.06161 0.06051 0.06027 0.06015 0.06015 0.06026 0.06040 0.06068 + 0.06103 0.06145 0.06193 0.06246 0.06289 0.06350 0.06414 0.06498 + 0.06586 0.06604 0.06622 0.06640 0.06658 0.06676 0.06713 0.06731 + 0.06769 0.06787 0.06825 0.06862 0.06919 0.06957 0.07014 0.07090 + 0.07147 0.07242 0.07355 0.07561 + NITR 3 asy + 0.79265 0.80802 0.80974 0.81951 0.82339 0.82436 0.83003 0.83356 + 0.83534 0.83679 0.84161 0.83729 0.84330 0.84287 0.84616 0.85131 + 0.85367 0.85508 0.85371 0.85107 0.85204 0.85308 0.85114 0.85003 + 0.85189 0.85231 0.85298 0.85378 0.85512 0.85816 0.85944 0.85616 + 0.85839 0.85704 0.85661 0.86090 + 0.78525 0.80102 0.81189 0.81513 0.81928 0.82244 0.82668 0.82832 + 0.82598 0.83472 0.83778 0.84167 0.84292 0.84359 0.84785 0.84416 + 0.84789 0.84969 0.85009 0.84950 0.84934 0.84919 0.84647 0.84556 + 0.84962 0.85020 0.85144 0.85407 0.85428 0.85469 0.85565 0.85354 + 0.85204 0.85745 0.85981 0.85959 + 0.78051 0.79873 0.80396 0.81284 0.81462 0.82110 0.82260 0.82825 + 0.82719 0.82798 0.83558 0.83880 0.83955 0.84219 0.83796 0.84759 + 0.84433 0.84323 0.84425 0.84560 0.84582 0.84467 0.84774 0.84879 + 0.85050 0.85127 0.85069 0.85032 0.84549 0.84790 0.85201 0.85361 + 0.85681 0.85831 0.85489 0.85944 + 0.77730 0.79598 0.79786 0.80579 0.81329 0.81522 0.81372 0.81901 + 0.82007 0.83221 0.83048 0.83387 0.83198 0.83269 0.83966 0.83851 + 0.84471 0.84172 0.84002 0.84167 0.84271 0.84128 0.84482 0.84792 + 0.84892 0.84963 0.84920 0.84706 0.84525 0.84668 0.84717 0.85009 + 0.85438 0.85613 0.85291 0.84861 + 0.77138 0.78745 0.79563 0.80417 0.80265 0.80664 0.81392 0.82069 + 0.81498 0.82143 0.82580 0.82543 0.83041 0.82737 0.83291 0.83017 + 0.83221 0.83329 0.83498 0.83826 0.83820 0.84034 0.84210 0.84245 + 0.84411 0.84435 0.84365 0.84426 0.84201 0.84006 0.84255 0.84384 + 0.84050 0.84682 0.84324 0.84631 + 0.74079 0.76310 0.76467 0.77129 0.78497 0.78743 0.78788 0.78938 + 0.79507 0.79651 0.80718 0.80417 0.80423 0.81005 0.81085 0.81251 + 0.81398 0.81435 0.81610 0.81818 0.81938 0.82070 0.82113 0.82081 + 0.81889 0.81751 0.81769 0.81933 0.82364 0.82671 0.82902 0.83171 + 0.83392 0.83753 0.83882 0.83774 + 0.84092 0.86189 0.86853 0.87429 0.87933 0.88377 0.88676 0.89038 + 0.89362 0.89656 0.89922 0.90165 0.90333 0.90542 0.90735 0.90956 + 0.91158 0.91196 0.91234 0.91271 0.91307 0.91343 0.91413 0.91447 + 0.91513 0.91546 0.91609 0.91670 0.91759 0.91816 0.91899 0.92004 + 0.92079 0.92197 0.92329 0.92547 + NITR 3 ssa + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 1.00000 0.99986 + 0.99752 0.99662 0.99600 0.99549 0.99554 0.99521 0.99502 0.99501 + 0.99470 0.99450 0.99465 0.99360 0.99395 0.99406 0.99389 0.99354 + 0.99301 0.99320 0.99335 0.99344 0.99253 0.99347 0.99324 0.99317 + 0.99304 0.99283 0.99279 0.99221 0.99274 0.99270 0.99272 0.99197 + 0.99264 0.99266 0.99225 0.99199 + 0.51359 0.48777 0.47881 0.47081 0.46371 0.45745 0.45325 0.44828 + 0.44393 0.44015 0.43688 0.43405 0.43219 0.43002 0.42816 0.42622 + 0.42465 0.42438 0.42412 0.42387 0.42363 0.42340 0.42297 0.42277 + 0.42240 0.42223 0.42192 0.42163 0.42126 0.42105 0.42078 0.42050 + 0.42035 0.42018 0.42011 0.42027 diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 34b3e379e..61eef3d63 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -5299,6 +5299,24 @@ 9.0 + + 615 + NITRATE_AER_OPT_DEP_at550 + tmpl4_48 + AOTK + entire_atmos + nitrate_dry + smaller_than_first_limit + 6 + 20 + between_first_second_limit + 9 + 550 + 9 + 550 + 9.0 + + 616 BC_COL_MASS_DEN @@ -6312,14 +6330,15 @@ 687 - NITRATE_AER_OPT_DEP_at550 + NITRATE_AER_SCAT_OPT_DEP_at550 tmpl4_48 - AOTK + SCTAOTK entire_atmos nitrate_dry smaller_than_first_limit - 6 - 20 + smaller_than_first_limit + 8 + 70 between_first_second_limit 9 545 diff --git a/parm/postcntrl_ufs_aerosol.xml b/parm/postcntrl_ufs_aerosol.xml index f6cc416fb..d50d58b9f 100755 --- a/parm/postcntrl_ufs_aerosol.xml +++ b/parm/postcntrl_ufs_aerosol.xml @@ -214,6 +214,11 @@ 9.0 + + NITRATE_AER_OPT_DEP_at550 + 9.0 + + AER_SCAT_OPT_DEP_at550 9.0 diff --git a/parm/postcntrl_ufs_aerosol_f00.xml b/parm/postcntrl_ufs_aerosol_f00.xml index ad4b2b878..b0f7d510f 100755 --- a/parm/postcntrl_ufs_aerosol_f00.xml +++ b/parm/postcntrl_ufs_aerosol_f00.xml @@ -200,6 +200,11 @@ 9.0 + + NITRATE_AER_OPT_DEP_at550 + 9.0 + + AER_SCAT_OPT_DEP_at550 9.0 diff --git a/parm/postxconfig-NT-UFS-aerosol-F00.txt b/parm/postxconfig-NT-UFS-aerosol-F00.txt index 2cbc9fa17..fd8828777 100644 --- a/parm/postxconfig-NT-UFS-aerosol-F00.txt +++ b/parm/postxconfig-NT-UFS-aerosol-F00.txt @@ -1,5 +1,5 @@ 1 -46 +47 GFSPRS 0 ncep_nco @@ -856,9 +856,9 @@ smaller_than_first_limit 0.0 between_first_second_limit 9 -545 +550 9 -565 +550 1 9.0 0 @@ -893,9 +893,9 @@ smaller_than_first_limit 0.0 between_first_second_limit 9 -545 +550 9 -565 +550 1 9.0 0 @@ -930,9 +930,9 @@ smaller_than_first_limit 0.0 between_first_second_limit 9 -545 +550 9 -565 +550 1 9.0 0 @@ -967,9 +967,9 @@ smaller_than_first_limit 0.0 between_first_second_limit 9 -545 +550 9 -565 +550 1 9.0 0 @@ -1004,9 +1004,9 @@ smaller_than_first_limit 0.0 between_first_second_limit 9 -545 +550 9 -565 +550 1 9.0 0 @@ -1041,9 +1041,46 @@ smaller_than_first_limit 0.0 between_first_second_limit 9 -545 +550 9 -565 +550 +1 +9.0 +0 +0 +0 +? +? +? +615 +NITRATE_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +nitrate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 1 9.0 0 diff --git a/parm/postxconfig-NT-UFS-aerosol.txt b/parm/postxconfig-NT-UFS-aerosol.txt index e197dc54f..f76bbc1ac 100644 --- a/parm/postxconfig-NT-UFS-aerosol.txt +++ b/parm/postxconfig-NT-UFS-aerosol.txt @@ -1,5 +1,5 @@ 1 -50 +51 GFSPRS 0 ncep_nco @@ -1126,6 +1126,43 @@ between_first_second_limit ? ? ? +615 +NITRATE_AER_OPT_DEP_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +nitrate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +550 +9 +550 +1 +9.0 +0 +0 +0 +? +? +? 650 AER_SCAT_OPT_DEP_at550 ? diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index 2145dfdd2..f714686f7 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -64,7 +64,8 @@ !> 2021-02-08 | Anning Cheng | read aod550, aod550_du/su/ss/oc/bc directly from fv3gfs and output to grib2 by setting rdaod !> 2021-04-01 | Jesse Meng | Computation on defined points only !> 2022-09-22 | Li(Kate Zhang) | Remove duplicated GOCART output variables and add capbility for NASA GOCART (UFS-Aerosols). -!> 2022-10-11 | Li(Kate Zhang) | Update look-up table for NASA GOCART (UFS-Aerosols). +!> 2022-09-22 | Li(Kate Zhang) | Update look-up table for NASA GOCART (UFS-Aerosols). +!> 2022-10-20 | Li(Kate Zhang) | Add nitrate look-up table and nitrate AOD for NASA GOCART (UFS-Aerosols). !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD @@ -100,7 +101,7 @@ SUBROUTINE CLDRAD use ctlblk_mod, only: JSTA, JEND, SPVAL, MODELNAME, GRIB, CFLD,DATAPD, & FLD_INFO, AVRAIN, THEAT, IFHR, IFMIN, AVCNVC, & TCLOD, ARDSW, TRDSW, ARDLW, NBIN_DU, TRDLW, IM, & - NBIN_SS, NBIN_OC, NBIN_BC, NBIN_SU, DTQ2, & + NBIN_SS, NBIN_OC,NBIN_BC,NBIN_SU,NBIN_NO3,DTQ2, & JM, LM, gocart_on, nasa_on, me, rdaod,ISTA, IEND use rqstfld_mod, only: IGET, ID, LVLS, IAVBLFLD use gridspec_mod, only: dyval, gridtype @@ -162,36 +163,35 @@ SUBROUTINE CLDRAD integer, parameter :: KRHLEV = 36 ! num of rh levels for rh-dep components integer, parameter :: KCM1 = 5 ! num of rh independent aer species - integer, parameter :: KCM2 = 5 ! num of rh dependent aer species + integer, parameter :: KCM2 = 6 ! num of rh dependent aer species integer, parameter :: NBDSW = 7 ! total num of sw bands integer, parameter :: NOAER = 20 ! unit for LUTs file - integer, parameter :: nAero=KCM2 ! num of aer species in LUTs CHARACTER :: AerosolName(KCM2)*4, AerosolName_rd*4, aerosol_file*30 CHARACTER :: AerName_rd*4, AerOpt*3 ! - aerosol optical properties: mass extinction efficiency REAL, ALLOCATABLE :: extrhd_DU(:,:,:), extrhd_SS(:,:,:), & & extrhd_SU(:,:,:), extrhd_BC(:,:,:), & - & extrhd_OC(:,:,:) + & extrhd_OC(:,:,:), extrhd_NI(:,:,:) ! - aerosol optical properties: mass scattering efficienc REAL, ALLOCATABLE :: scarhd_DU(:,:,:), scarhd_SS(:,:,:), & & scarhd_SU(:,:,:), scarhd_BC(:,:,:), & - & scarhd_OC(:,:,:) + & scarhd_OC(:,:,:), scarhd_NI(:,:,:) ! - aerosol optical properties: asymmetry factor REAL, ALLOCATABLE :: asyrhd_DU(:,:,:), asyrhd_SS(:,:,:), & & asyrhd_SU(:,:,:), asyrhd_BC(:,:,:), & - & asyrhd_OC(:,:,:) + & asyrhd_OC(:,:,:), asyrhd_NI(:,:,:) ! - aerosol optical properties: single scatter albedo REAL, ALLOCATABLE :: ssarhd_DU(:,:,:), ssarhd_SS(:,:,:), & & ssarhd_SU(:,:,:), ssarhd_BC(:,:,:), & - & ssarhd_OC(:,:,:) + & ssarhd_OC(:,:,:), ssarhd_NI(:,:,:) ! --- aerosol optical properties mapped onto specified spectral bands ! - relative humidity independent aerosol optical properties: du - real (kind=kind_phys) :: extrhi(KCM1,NBDSW) ! extinction coefficient + real (kind=kind_phys) :: extrhi(KCM2,NBDSW) ! extinction coefficient ! - relative humidity dependent aerosol optical properties: oc, bc, su, ss001-005 real (kind=kind_phys) :: extrhd(KRHLEV,KCM2,NBDSW) ! extinction coefficient @@ -201,22 +201,21 @@ SUBROUTINE CLDRAD real, allocatable:: rdrh(:,:,:) integer, allocatable :: ihh(:,:,:) REAL :: rh3d, DRH0, DRH1, EXT01, EXT02,SCA01,ASY01 - INTEGER :: IH1, IH2 + INTEGER :: IH1, IH2,nAero INTEGER :: IOS, INDX, ISSAM, ISSCM, ISUSO, IWASO, ISOOT, NBIN REAL :: CCDRY, CCWET, SSAM, SSCM - REAL,dimension(ista:iend,jsta:jend) :: AOD_DU, AOD_SS, AOD_SU, AOD_OC, AOD_BC, AOD - REAL,dimension(ista:iend,jsta:jend) :: SCA_DU, SCA_SS, SCA_SU, SCA_OC,SCA_BC, SCA2D - REAL,dimension(ista:iend,jsta:jend) :: ASY_DU, ASY_SS, ASY_SU, ASY_OC, ASY_BC,ASY2D + REAL,dimension(ista:iend,jsta:jend) :: AOD_DU, AOD_SS, AOD_SU, AOD_OC, AOD_BC, AOD_NI, AOD + REAL,dimension(ista:iend,jsta:jend) :: SCA_DU, SCA_SS, SCA_SU, SCA_OC,SCA_BC, SCA_NI,SCA2D + REAL,dimension(ista:iend,jsta:jend) :: ASY_DU, ASY_SS, ASY_SU, ASY_OC, ASY_BC,ASY_NI,ASY2D REAL,dimension(ista:iend,jsta:jend) :: ANGST, AOD_440, AOD_860 ! FORANGSTROM EXPONENT REAL :: ANG1, ANG2 - INTEGER :: INDX_EXT(nAero), INDX_SCA(nAero) + INTEGER :: INDX_EXT(KCM2), INDX_SCA(KCM2) LOGICAL :: LAEROPT, LEXT, LSCA, LASY LOGICAL :: LAERSMASS REAL, allocatable :: fPM25_DU(:),fPM25_SS(:) REAL, allocatable, dimension(:,:) :: RHOsfc, smass_du_cr,smass_du_fn, & & smass_ss_cr, smass_ss_fn, smass_oc,smass_bc, & & smass_su, smass_cr, smass_fn - real :: rPM, dmass real (kind=kind_phys), dimension(KRHLEV) :: rhlev data rhlev (:)/ .0, .05, .10, .15, .20, .25, .30, .35, & & .40, .45, .50, .55, .60, .65, .70, .75, & @@ -224,10 +223,10 @@ SUBROUTINE CLDRAD & .88, .89, .90, .91, .92, .93, .94, .95, & & .96, .97, .98, .99/ ! - data AerosolName /'DUST', 'SALT', 'SUSO', 'SOOT', 'WASO'/ + data AerosolName /'DUST', 'SALT', 'SUSO', 'SOOT', 'WASO', 'NITR'/ ! INDEX FOR TOTAL AND SPECIATED AEROSOLS (DU, SS, SU, OC, BC) - data INDX_EXT / 610, 611, 612, 613, 614 / - data INDX_SCA / 651, 652, 653, 654, 655 / + data INDX_EXT / 610, 611, 612, 613, 614, 615 / + data INDX_SCA / 651, 652, 653, 654, 655, 687 / logical, parameter :: debugprint = .false. logical :: Model_Pwat ! @@ -4589,9 +4588,20 @@ SUBROUTINE CLDRAD ALLOCATE ( ssarhd_SU(KRHLEV,nbin_su,NBDSW)) ALLOCATE ( ssarhd_BC(KRHLEV,nbin_bc,NBDSW)) ALLOCATE ( ssarhd_OC(KRHLEV,nbin_oc,NBDSW)) + + ALLOCATE ( extrhd_NI(KRHLEV,nbin_no3,NBDSW)) + ALLOCATE ( scarhd_NI(KRHLEV,nbin_no3,NBDSW)) + ALLOCATE ( asyrhd_NI(KRHLEV,nbin_no3,NBDSW)) + ALLOCATE ( ssarhd_NI(KRHLEV,nbin_no3,NBDSW)) + + if (gocart_on) then + nAero=KCM1 + else if (nasa_on) then + nAero=KCM2 + endif PRINT *, 'aft AEROSOL allocate, nbin_du=',nbin_du, & 'nbin_ss=',nbin_ss,'nbin_su=',nbin_su,'nbin_bc=', & - 'nbin_oc=',nbin_oc,'nAero=',nAero + 'nbin_oc=',nbin_oc,'nbin_ni=',nbin_no3,'nAero=',nAero !!! READ AEROSOL LUTS DO i = 1, nAero @@ -4613,6 +4623,9 @@ SUBROUTINE CLDRAD IF (AerosolName(i) == 'SUSO') nbin = nbin_su IF (AerosolName(i) == 'SOOT') nbin = nbin_bc IF (AerosolName(i) == 'WASO') nbin = nbin_oc + if (nasa_on) then + IF (AerosolName(i) == 'NITR') nbin = nbin_no3 + endif DO J = 1, NBIN read(NOAER,'(2x,a4,1x,i1,1x,a3)')AerName_rd,ib, AerOpt IF (AerName_rd /= AerosolName(i)) STOP @@ -4703,8 +4716,26 @@ SUBROUTINE CLDRAD do ib = 1, NBDSW read(NOAER,'(8f10.5)') (ssarhd_oc(ii,j,ib), ii=1,KRHLEV) enddo - ENDIF + if ( nasa_on ) then + IF (AerosolName(i) == 'NITR') THEN + do ib = 1, NBDSW + read(NOAER,'(8f10.5)') (extrhd_ni(ii,j,ib), ii=1,KRHLEV) + enddo + read(NOAER,'(2x,a4)') AerName_rd + do ib = 1, NBDSW + read(NOAER,'(8f10.5)') (scarhd_ni(ii,j,ib), ii=1,KRHLEV) + enddo + read(NOAER,'(2x,a4)') AerName_rd + do ib = 1, NBDSW + read(NOAER,'(8f10.5)') (asyrhd_ni(ii,j,ib), ii=1,KRHLEV) + enddo + read(NOAER,'(2x,a4)') AerName_rd + do ib = 1, NBDSW + read(NOAER,'(8f10.5)') (ssarhd_ni(ii,j,ib), ii=1,KRHLEV) + enddo + ENDIF + endif !nasa_on ENDDO ! j-loop for nbin ENDDO ! i-loop for nAero @@ -4968,6 +4999,42 @@ SUBROUTINE CLDRAD CALL CALPW(SCA_OC,20) CALL CALPW(ASY_OC,21) + if ( nasa_on ) then +! COMPUTE ORGANIC CARBON AOD + AOD_NI=SPVAL + SCA_NI=SPVAL + ASY_NI=SPVAL + EXT=0.0 + SCA=0.0 + ASY=0.0 + DO J=JSTA,JEND + DO I=ISTA,IEND + DO L=1,LM + ih1 = ihh (I,J,L) + ih2 = ih1 + 1 + DO N = 1, NBIN_NO3 + EXT01 = EXTRHD_NI(IH1,N,IB) & + & + RDRH(I,J,L)*(EXTRHD_NI(IH2,N,IB)-EXTRHD_NI(IH1,N,IB)) + SCA01 = SCARHD_NI(IH1,N,IB) & + & + RDRH(I,J,L)*(SCARHD_NI(IH2,N,IB)-SCARHD_NI(IH1,N,IB)) + ASY01 = ASYRHD_NI(IH1,N,IB) & + & + RDRH(I,J,L)*(ASYRHD_NI(IH2,N,IB)-ASYRHD_NI(IH1,N,IB)) + EXT(I,J,L) = EXT(I,J,L)+1e-9*NO3(I,J,L,N)*EXT01 + SCA(I,J,L) = SCA(I,J,L)+1e-9*NO3(I,J,L,N)*SCA01 + ASY(I,J,L) = ASY(I,J,L)+1e-9*NO3(I,J,L,N)*SCA01*ASY01 + ENDDO ! N-loop + EXT(I,J,L) = EXT(I,J,L) * 1000. + SCA(I,J,L) = SCA(I,J,L) * 1000. + ASY(I,J,L) = ASY(I,J,L) * 1000. + ENDDO ! L-loop + ENDDO ! I-loop + ENDDO ! J-loop + CALL CALPW(AOD_NI,17) + CALL CALPW(SCA_NI,20) + CALL CALPW(ASY_NI,21) + endif + + ! COMPUTE TOTAL AOD AOD=SPVAL SCA=SPVAL @@ -4992,12 +5059,28 @@ SUBROUTINE CLDRAD ASY_SU(I,J) = MAX (ASY_SU(I,J), 0.0) ASY_SS(I,J) = MAX (ASY_SS(I,J), 0.0) + if ( nasa_on ) then + AOD_NI(I,J) = MAX (AOD_NI(I,J), 0.0) + SCA_NI(I,J) = MAX (SCA_NI(I,J), 0.0) + ASY_NI(I,J) = MAX (ASY_NI(I,J), 0.0) + + AOD(I,J) = AOD_DU(I,J) + AOD_BC(I,J) + AOD_OC(I,J) + & + & AOD_SU(I,J) + AOD_SS(I,J) + AOD_NI(I,J) + SCA2D(I,J) = SCA_DU(I,J) + SCA_BC(I,J) + SCA_OC(I,J) + & + & SCA_SU(I,J) + SCA_SS(I,J) + SCA_NI(I,J) + ASY2D(I,J) = ASY_DU(I,J) + ASY_BC(I,J) + ASY_OC(I,J) + & + & ASY_SU(I,J) + ASY_SS(I,J) + ASY_NI(I,J) + endif + + if (gocart_on ) then AOD(I,J) = AOD_DU(I,J) + AOD_BC(I,J) + AOD_OC(I,J) + & & AOD_SU(I,J) + AOD_SS(I,J) SCA2D(I,J) = SCA_DU(I,J) + SCA_BC(I,J) + SCA_OC(I,J) + & & SCA_SU(I,J) + SCA_SS(I,J) ASY2D(I,J) = ASY_DU(I,J) + ASY_BC(I,J) + ASY_OC(I,J) + & & ASY_SU(I,J) + ASY_SS(I,J) + endif + ENDDO ! I-loop ENDDO ! J-loop ! FILL UP AOD_440 AND AOD_860, IF ANGSTROM EXP IS REQUESTED @@ -5125,6 +5208,7 @@ SUBROUTINE CLDRAD IF ( II == 3 ) GRID1(I,J) = AOD_SU(I,J) IF ( II == 4 ) GRID1(I,J) = AOD_OC(I,J) IF ( II == 5 ) GRID1(I,J) = AOD_BC(I,J) + IF ( II == 6 ) GRID1(I,J) = AOD_NI(I,J) ENDDO ENDDO CALL BOUND(GRID1,D00,H99999) @@ -5146,6 +5230,7 @@ SUBROUTINE CLDRAD IF ( II == 3 ) GRID1(I,J) = SCA_SU(I,J) IF ( II == 4 ) GRID1(I,J) = SCA_OC(I,J) IF ( II == 5 ) GRID1(I,J) = SCA_BC(I,J) + IF ( II == 6 ) GRID1(I,J) = SCA_NI(I,J) ENDDO ENDDO CALL BOUND(GRID1,D00,H99999) From 7830246a10570b5d1ecd83ba17947b5ddeeb8cad Mon Sep 17 00:00:00 2001 From: camshe <99755341+camshe@users.noreply.github.com> Date: Thu, 27 Oct 2022 17:17:20 -0500 Subject: [PATCH 081/107] update poc (#586) --- docs/AddNewVariable.rst | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/docs/AddNewVariable.rst b/docs/AddNewVariable.rst index 195e51c67..362216e72 100644 --- a/docs/AddNewVariable.rst +++ b/docs/AddNewVariable.rst @@ -42,11 +42,11 @@ with examples in the sections below. a. NOAA users can email Andrew.Benjamin@noaa.gov with the following information for your new variable: variable definition, unit, and what Grib2 discipline and category you think this - variable should belong to. Boi will define your new variable in the `NCEP Grib2 Table + variable should belong to. Andrew will define your new variable in the `NCEP Grib2 Table `_ and inform you of the Grib2 discipline and category numbers you should use. - b. Contact with Boi to update parm/params_grib2_tbl_new.text with your new variable and + b. Contact with Andrew to update parm/params_grib2_tbl_new.text with your new variable and generate a params_grib2_tbl_new which lists in alphabetical order to improve post processing efficiency. From 5cba9868461816ebe20128de7abe7a6e7dbeb57f Mon Sep 17 00:00:00 2001 From: EricJames-NOAA Date: Thu, 3 Nov 2022 16:04:40 -0600 Subject: [PATCH 082/107] Miscellaneous GSL updates (#582) * Miscellaneous GSL changes / bug fixes. * Including postxconfig file * Bug fix for if statement * Reverting change to max precip rate encoding. * Minor bug fix. * Adding change log entries for code modifications from GSL RRFS_dev * Fixing error with multiple variables using the same IGET value (922) in SURFCE. * Getting rid of unnecessary IF statement * Commenting out setting smstav to missing * Changing name of soil moisture availability to be consistent with latest RRFS * Adding check for model type before multiplying MSTAV by 100 * Adding definition for ITSRFC in GRIB2 bug fix sections. --- parm/fv3lam_rrfs.xml | 4 - parm/post_avblflds.xml | 16 +- parm/postxconfig-NT-fv3lam_rrfs.txt | 298 +++++++++++++++++++++++++++- sorc/ncep_post.fd/CALHEL3.f | 3 +- sorc/ncep_post.fd/CALUPDHEL.f | 5 + sorc/ncep_post.fd/INITPOST_NETCDF.f | 12 +- sorc/ncep_post.fd/SURFCE.f | 65 ++++-- 7 files changed, 372 insertions(+), 31 deletions(-) diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index 70d3f5dae..f82f7c9f1 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -1834,8 +1834,6 @@ 5.0 - - diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 61eef3d63..9b151064e 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -7358,7 +7358,7 @@ 915 1H_2YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 @@ -7368,7 +7368,7 @@ 916 ACM_2YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 @@ -7378,7 +7378,7 @@ 917 1H_5YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 @@ -7388,7 +7388,7 @@ 918 ACM_5YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 @@ -7398,7 +7398,7 @@ 919 1H_10YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 @@ -7408,7 +7408,7 @@ 920 ACM_10YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 @@ -7418,7 +7418,7 @@ 921 1H_100YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 @@ -7428,7 +7428,7 @@ 922 ACM_100YARI_EXCEEDANCE tmpl4_8 - FFLDRO + GWLOWS ACM surface 4.0 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index e6ba35ddb..e3f408538 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,6 +1,6 @@ 2 239 -268 +276 PRSLEV 32769 ncep_nco @@ -9933,6 +9933,302 @@ surface ? ? ? +915 +1H_2YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +916 +ACM_2YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +917 +1H_5YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +918 +ACM_5YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +919 +1H_10YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +920 +ACM_10YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +921 +1H_100YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +922 +ACM_100YARI_EXCEEDANCE +? +1 +tmpl4_8 +GWLOWS +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? NATLEV 32769 ncep_nco diff --git a/sorc/ncep_post.fd/CALHEL3.f b/sorc/ncep_post.fd/CALHEL3.f index 156911f17..c56718cfb 100644 --- a/sorc/ncep_post.fd/CALHEL3.f +++ b/sorc/ncep_post.fd/CALHEL3.f @@ -40,6 +40,7 @@ !> 2019-09-03 | J Meng | Modified to compute effective helicity and critical angle !> 2021-03-15 | E Colon | CALHEL2 modified to compute effective rather than fixed layer helicity !> 2021-09-02 | Bo Cui | Decompose UPP in X direction +!> 2022-05-12 | E Colon | Resolved a bug which looped over the calculation of SRH at two fixed levels, erroneously doubling the magnitude. !> !> @author Michael Baldwin W/NP2 @date 1994-08-22 SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) @@ -373,7 +374,6 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) ! COMPUTE STORM-RELATIVE HELICITY ! !!$omp parallel do private(i,j,n,l,du1,du2,dv1,dv2,dz,dz1,dz2,dzabv,ie,iw,jn,js,z1,z2,z3) - DO N=1,2 ! for dfferent helicity depth DO L = 2,LM-1 if(GRIDTYPE /= 'A')then call exch(ZINT(1,jsta_2l,L)) @@ -442,7 +442,6 @@ SUBROUTINE CALHEL3(LLOW,LUPP,UST,VST,HELI) ENDDO ENDDO ENDDO - END DO ! end of different helicity depth ! END OF ROUTINE. ! diff --git a/sorc/ncep_post.fd/CALUPDHEL.f b/sorc/ncep_post.fd/CALUPDHEL.f index 17ee6b81c..d5718455f 100644 --- a/sorc/ncep_post.fd/CALUPDHEL.f +++ b/sorc/ncep_post.fd/CALUPDHEL.f @@ -12,6 +12,7 @@ !> 2011-04-05 | H Chuang | added B grid option !> 2020-11-06 | J Meng | Use UPP_MATH Module !> 2021-10-31 | J Meng | 2D DECOMPOSITION +!> 2022-05-12 | E James | Adding a check for extremely large positive or negative UH values !> !> @author M Pyle W/NP2 @date 2007-10-22 SUBROUTINE CALUPDHEL(UPDHEL) @@ -115,6 +116,10 @@ SUBROUTINE CALUPDHEL(UPDHEL) UPDHEL(I,J)=UPDHEL(I,J)+(DVDX-DUDY)*WH(I,J,L)*DZ + IF (UPDHEL(I,J) < -9E10 .OR. UPDHEL(I,J) > 9E10) THEN + UPDHEL(I,J) = spval + ENDIF + ENDIF ENDDO l_loop diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index abdd0a1c7..3115b57cc 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -21,6 +21,7 @@ !> 2022-07-10 | Wen Meng | Output lat/lon on four coner points of rotated lat-lon grids in text file. !> 2022-07-18 | Wen Meng | Read instant top of atmos ULWRF from model !> 2022-09-18 | Li(Kate) Zhang| Add aerosol fileds for GEFS-Aerosols (gocart_on) and UFS-Aerosols(nasa_on) model +!> 2022-10-28 | Eric James | Modifications to allow passing through soil moisture availability field from RUC LSM for RRFS !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) @@ -3359,10 +3360,19 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) enddo ! if(debugprint)print*,'sample l',VarName,' = ',1,isltyp(isa,jsa) + VarName='wetness' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf) +!$omp parallel do private(i,j) + do j=jsta,jend + do i=1,im + smstav(i,j) = buf(i,j) + enddo + enddo !$omp parallel do private(i,j) do j=jsta_2l,jend_2u do i=ista_2l,iend_2u - smstav(i,j) = spval ! GFS does not have soil moisture availability +! smstav(i,j) = spval ! GFS does not have soil moisture availability ! smstot(i,j) = spval ! GFS does not have total soil moisture sfcevp(i,j) = spval ! GFS does not have accumulated surface evaporation acsnow(i,j) = spval ! GFS does not have averaged accumulated snow diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index 47df11479..7154b39b2 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -40,6 +40,8 @@ !! - 21-04-01 J MENG - COMPUTATION ON DEFINED POINTS ONLY !! - 21-07-26 W Meng - Restrict computation from undefined grids !! - 21-10-31 J MENG - 2D DECOMPOSITION +!! - 22-02-01 E JAMES - Cleaning up GRIB2 encoding for six variables +!! that cause issues with newer wgrib2 builds in RRFS system. !! !! USAGE: CALL SURFCE !! INPUT ARGUMENT LIST: @@ -646,7 +648,11 @@ SUBROUTINE SURFCE DO J=JSTA,JEND DO I=ISTA,IEND IF(SMSTAV(I,J) /= SPVAL)THEN - GRID1(I,J) = SMSTAV(I,J)*100. + IF ( MODELNAME == 'FV3R') THEN + GRID1(I,J) = SMSTAV(I,J) + ELSE + GRID1(I,J) = SMSTAV(I,J)*100. + ENDIF ELSE GRID1(I,J) = 0. ENDIF @@ -815,11 +821,16 @@ SUBROUTINE SURFCE ID(18) = IFHR - 1 ENDIF ID(20) = 3 + ITSRFC = NINT(TSRFC) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(501)) - fld_info(cfld)%ntrange=IFHR-ID(18) - fld_info(cfld)%tinvstat=1 + if(ITSRFC>0) then + fld_info(cfld)%ntrange=1 + else + fld_info(cfld)%ntrange=0 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 @@ -845,11 +856,16 @@ SUBROUTINE SURFCE ISVALUE = 10 ID(10) = MOD(ISVALUE/256,256) ID(11) = MOD(ISVALUE,256) + ITSRFC = NINT(TSRFC) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(502)) - fld_info(cfld)%ntrange=IFHR-ID(18) - fld_info(cfld)%tinvstat=1 + if(ITSRFC>0) then + fld_info(cfld)%ntrange=1 + else + fld_info(cfld)%ntrange=0 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 @@ -2296,11 +2312,16 @@ SUBROUTINE SURFCE GRID2(I,J) = V10MAX(I,J) ENDDO ENDDO + ITSRFC = NINT(TSRFC) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(506)) - fld_info(cfld)%ntrange=IFHR-ID(18) - fld_info(cfld)%tinvstat=1 + if(ITSRFC>0) then + fld_info(cfld)%ntrange=1 + else + fld_info(cfld)%ntrange=0 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 @@ -2311,8 +2332,12 @@ SUBROUTINE SURFCE enddo cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(507)) - fld_info(cfld)%ntrange=IFHR-ID(18) - fld_info(cfld)%tinvstat=1 + if(ITSRFC>0) then + fld_info(cfld)%ntrange=1 + else + fld_info(cfld)%ntrange=0 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 @@ -5615,7 +5640,7 @@ SUBROUTINE SURFCE endif ENDIF - write_cd: IF(IGET(922)>0) THEN + write_cd: IF(IGET(924)>0) THEN DO J=JSTA,JEND DO I=ISTA,IEND GRID1(I,J)=CD10(I,J) @@ -5623,7 +5648,7 @@ SUBROUTINE SURFCE ENDDO if(grib=='grib2') then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(922)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(924)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF write_cd @@ -6402,11 +6427,16 @@ SUBROUTINE SURFCE ID(18) = IFHR - 1 ENDIF ID(20) = 3 + ITSRFC = NINT(TSRFC) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(503)) - fld_info(cfld)%ntrange=IFHR-ID(18) - fld_info(cfld)%tinvstat=1 + if(ITSRFC>0) then + fld_info(cfld)%ntrange=1 + else + fld_info(cfld)%ntrange=0 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF @@ -6427,11 +6457,16 @@ SUBROUTINE SURFCE ID(18) = IFHR - 1 ENDIF ID(20) = 3 + ITSRFC = NINT(TSRFC) if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(504)) - fld_info(cfld)%ntrange=IFHR-ID(18) - fld_info(cfld)%tinvstat=1 + if(ITSRFC>0) then + fld_info(cfld)%ntrange=1 + else + fld_info(cfld)%ntrange=0 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif From 119b48bf1a39f8f75f98c18e389042c84ddced0b Mon Sep 17 00:00:00 2001 From: camshe <99755341+camshe@users.noreply.github.com> Date: Fri, 4 Nov 2022 18:19:10 -0500 Subject: [PATCH 083/107] update readme with github discussions link (#588) --- README.md | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/README.md b/README.md index 1592d58d4..87803edbb 100644 --- a/README.md +++ b/README.md @@ -45,8 +45,7 @@ Examples of UPP products include: ## User Support -Support for the UFS UPP is provided through the [UFS Forum](https://forums.ufscommunity.org/) -by the Developmental Testbed Center (DTC). +Support for the UFS UPP is provided through [GitHub Discussions](https://github.com/NOAA-EMC/UPP/discussions). ## Documentation User Guide for latest public release: https://upp.readthedocs.io/en/latest/. From bf9750e4ae75012fd1480b53f898562bc66d4c14 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Sat, 12 Nov 2022 18:45:55 -0500 Subject: [PATCH 084/107] Add MERRA2 aerosol fields as GFS V17 products. (#589) --- parm/global_1x1_paramlist_g2 | 2 +- parm/postcntrl_gfs.xml | 30 ++++ parm/postcntrl_gfs_f00.xml | 30 ++++ parm/postcntrl_gfs_f00_two.xml | 30 ++++ parm/postcntrl_gfs_two.xml | 30 ++++ parm/postxconfig-NT-GFS-F00-TWO.txt | 224 +++++++++++++++++++++++++++- parm/postxconfig-NT-GFS-F00.txt | 224 +++++++++++++++++++++++++++- parm/postxconfig-NT-GFS-TWO.txt | 224 +++++++++++++++++++++++++++- parm/postxconfig-NT-GFS.txt | 224 +++++++++++++++++++++++++++- scripts/exgfs_atmos_nceppost.sh | 2 +- 10 files changed, 1014 insertions(+), 6 deletions(-) diff --git a/parm/global_1x1_paramlist_g2 b/parm/global_1x1_paramlist_g2 index 958fbd4d7..909261ccf 100644 --- a/parm/global_1x1_paramlist_g2 +++ b/parm/global_1x1_paramlist_g2 @@ -45,7 +45,7 @@ ACPCP:surface ALBDO:surface APCP:surface APTMP:2 m above ground -var discipline=0 master_table=2 parmcat=0 parm=21:2 m above ground +AOTK:entire atmosphere CAPE:180-0 mb above ground CAPE:255-0 mb above ground CAPE:90-0 mb above ground diff --git a/parm/postcntrl_gfs.xml b/parm/postcntrl_gfs.xml index 0d14de92d..9d79cdbe9 100755 --- a/parm/postcntrl_gfs.xml +++ b/parm/postcntrl_gfs.xml @@ -1159,6 +1159,36 @@ 3.0 + + AER_OPT_GFS_at550 + 9.0 + + + + DUST_AER_OPT_GFS_at550 + 9.0 + + + + SEASALT_AER_OPT_GFS_at550 + 9.0 + + + + SULFATE_AER_OPT_GFS_at550 + 9.0 + + + + ORGANIC_CARBON_AER_OPT_GFS_at550 + 9.0 + + + + BLACK_CARBON_AER_OPT_GFS_at550 + 9.0 + + diff --git a/parm/postcntrl_gfs_f00.xml b/parm/postcntrl_gfs_f00.xml index 22a5ddc8f..3473ccdb9 100755 --- a/parm/postcntrl_gfs_f00.xml +++ b/parm/postcntrl_gfs_f00.xml @@ -907,6 +907,36 @@ 3.0 + + AER_OPT_GFS_at550 + 9.0 + + + + DUST_AER_OPT_GFS_at550 + 9.0 + + + + SEASALT_AER_OPT_GFS_at550 + 9.0 + + + + SULFATE_AER_OPT_GFS_at550 + 9.0 + + + + ORGANIC_CARBON_AER_OPT_GFS_at550 + 9.0 + + + + BLACK_CARBON_AER_OPT_GFS_at550 + 9.0 + + diff --git a/parm/postcntrl_gfs_f00_two.xml b/parm/postcntrl_gfs_f00_two.xml index 184d03ea7..3d5df294f 100755 --- a/parm/postcntrl_gfs_f00_two.xml +++ b/parm/postcntrl_gfs_f00_two.xml @@ -907,6 +907,36 @@ 3.0 + + AER_OPT_GFS_at550 + 9.0 + + + + DUST_AER_OPT_GFS_at550 + 9.0 + + + + SEASALT_AER_OPT_GFS_at550 + 9.0 + + + + SULFATE_AER_OPT_GFS_at550 + 9.0 + + + + ORGANIC_CARBON_AER_OPT_GFS_at550 + 9.0 + + + + BLACK_CARBON_AER_OPT_GFS_at550 + 9.0 + + diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml index 6d6e05793..c3edbb94f 100755 --- a/parm/postcntrl_gfs_two.xml +++ b/parm/postcntrl_gfs_two.xml @@ -1159,6 +1159,36 @@ 3.0 + + AER_OPT_GFS_at550 + 9.0 + + + + DUST_AER_OPT_GFS_at550 + 9.0 + + + + SEASALT_AER_OPT_GFS_at550 + 9.0 + + + + SULFATE_AER_OPT_GFS_at550 + 9.0 + + + + ORGANIC_CARBON_AER_OPT_GFS_at550 + 9.0 + + + + BLACK_CARBON_AER_OPT_GFS_at550 + 9.0 + + diff --git a/parm/postxconfig-NT-GFS-F00-TWO.txt b/parm/postxconfig-NT-GFS-F00-TWO.txt index af5f49c16..229c1f52e 100644 --- a/parm/postxconfig-NT-GFS-F00-TWO.txt +++ b/parm/postxconfig-NT-GFS-F00-TWO.txt @@ -1,6 +1,6 @@ 2 47 -150 +156 GFSPRS 0 ncep_nco @@ -5567,6 +5567,228 @@ surface ? ? ? +600 +AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +601 +DUST_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +602 +SEASALT_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +603 +SULFATE_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +604 +ORGANIC_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +605 +BLACK_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? GFSFLX 0 ncep_nco diff --git a/parm/postxconfig-NT-GFS-F00.txt b/parm/postxconfig-NT-GFS-F00.txt index fe928aa55..bf2548acd 100644 --- a/parm/postxconfig-NT-GFS-F00.txt +++ b/parm/postxconfig-NT-GFS-F00.txt @@ -1,5 +1,5 @@ 1 -150 +156 GFSPRS 0 ncep_nco @@ -5566,3 +5566,225 @@ surface ? ? ? +600 +AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +601 +DUST_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +602 +SEASALT_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +603 +SULFATE_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +604 +ORGANIC_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +605 +BLACK_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt index a459e5240..ea053e5f7 100644 --- a/parm/postxconfig-NT-GFS-TWO.txt +++ b/parm/postxconfig-NT-GFS-TWO.txt @@ -1,6 +1,6 @@ 2 112 -197 +203 GFSPRS 0 ncep_nco @@ -7306,6 +7306,228 @@ surface ? ? ? +600 +AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +601 +DUST_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +602 +SEASALT_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +603 +SULFATE_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +604 +ORGANIC_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +605 +BLACK_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? GFSFLX 0 ncep_nco diff --git a/parm/postxconfig-NT-GFS.txt b/parm/postxconfig-NT-GFS.txt index 776ce6d3b..faf8aa0c3 100644 --- a/parm/postxconfig-NT-GFS.txt +++ b/parm/postxconfig-NT-GFS.txt @@ -1,5 +1,5 @@ 1 -197 +203 GFSPRS 0 ncep_nco @@ -7305,3 +7305,225 @@ surface ? ? ? +600 +AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +601 +DUST_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +dust_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +602 +SEASALT_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sea_salt_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +603 +SULFATE_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +sulphate_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +604 +ORGANIC_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? +605 +BLACK_CARBON_AER_OPT_GFS_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos +0 +? +0 +? +? +0 +? +0 +? +black_carbon_dry +smaller_than_first_limit +6 +20 +0 +0.0 +between_first_second_limit +9 +545 +9 +555 +1 +9.0 +0 +0 +0 +? +? +? diff --git a/scripts/exgfs_atmos_nceppost.sh b/scripts/exgfs_atmos_nceppost.sh index f8e996d13..65b98984e 100755 --- a/scripts/exgfs_atmos_nceppost.sh +++ b/scripts/exgfs_atmos_nceppost.sh @@ -81,7 +81,7 @@ export machine=${machine:-WCOSS_C} ########################### # Specify Output layers ########################### -export POSTGPVARS="KPO=57,PO=1000.,975.,950.,925.,900.,875.,850.,825.,800.,775.,750.,725.,700.,675.,650.,625.,600.,575.,550.,525.,500.,475.,450.,425.,400.,375.,350.,325.,300.,275.,250.,225.,200.,175.,150.,125.,100.,70.,50.,40.,30.,20.,15.,10.,7.,5.,3.,2.,1.,0.7,0.4,0.2,0.1,0.07,0.04,0.02,0.01," +export POSTGPVARS="KPO=57,PO=1000.,975.,950.,925.,900.,875.,850.,825.,800.,775.,750.,725.,700.,675.,650.,625.,600.,575.,550.,525.,500.,475.,450.,425.,400.,375.,350.,325.,300.,275.,250.,225.,200.,175.,150.,125.,100.,70.,50.,40.,30.,20.,15.,10.,7.,5.,3.,2.,1.,0.7,0.4,0.2,0.1,0.07,0.04,0.02,0.01,rdaod=.true." ########################################################## # Specify variable to directly output pgrb2 files for GDAS/GFS From 39725a0950be62f4439c1c106d368e0bc1e9f495 Mon Sep 17 00:00:00 2001 From: EricJames-NOAA Date: Tue, 29 Nov 2022 17:52:02 -0700 Subject: [PATCH 085/107] Enable output of smoke and dust variables from RRFS (#593) * Adding smoke and dust output, smoke emissions, aerosol optical thickness, and hourly wildfire potential from RRFS. * Updating change logs for addition of smoke / dust in RRFS * Reverting cldfra_bl to cldfra. * Changing syntax on one line. * Adding model name check for computing AOD (used in visibility). * Moving reading of EBB and HWP to section for regional FV3 phy files. * Fixing accidental change in length of recname. * Making extsmoke and extdust into local variables within INITPOST_NETCDF.f * Adding deallocate statement for fv3dust, debug flag for print statements, and bug fix for reading in soil moisture availability. * Using 1E9 for multiplication in CALPW instead of 1000000000 * Bug fix from Wen Meng, and also updated RAP/HRRR/RTMA fix files with new GRIB2 template for smoke-related fields. * Adding checks for missing values in aod loop. --- parm/fv3lam_rrfs.xml | 52 +++++ parm/post_avblflds.xml | 89 +++++++- parm/post_avblflds_raphrrr.xml | 12 +- parm/postxconfig-NT-3drtma.txt | 12 +- parm/postxconfig-NT-fv3lam_rrfs.txt | 337 +++++++++++++++++++++++++++- parm/postxconfig-NT-hrrr.txt | 12 +- parm/postxconfig-NT-rap.txt | 20 +- scripts/exgfs_atmos_nceppost.sh | 2 +- sorc/ncep_post.fd/ALLOCATE_ALL.f | 10 +- sorc/ncep_post.fd/CALPW.f | 15 +- sorc/ncep_post.fd/CLDRAD.f | 70 +++++- sorc/ncep_post.fd/DEALLOCATE.f | 5 +- sorc/ncep_post.fd/INITPOST_NETCDF.f | 67 +++++- sorc/ncep_post.fd/MDL2P.f | 51 ++++- sorc/ncep_post.fd/MDLFLD.f | 36 ++- sorc/ncep_post.fd/SURFCE.f | 25 ++- sorc/ncep_post.fd/VRBLS2D_mod.f | 5 +- sorc/ncep_post.fd/VRBLS4D_mod.f | 1 + 18 files changed, 754 insertions(+), 67 deletions(-) diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index f82f7c9f1..b96977d87 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -1872,6 +1872,42 @@ 5.0 + + BIOMASS_BURNING_EMISSIONS + 5.0 + + + + SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m + 6.0 + + + + SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR + 5.0 + + + + DUST_ON_SPEC_HGT_LVL_ABOVE_GRND_8m + 6.0 + + + + DUST_ON_ENTIRE_ATMOS_SINGLE_LYR + 5.0 + + + + AOD_ON_ENTIRE_ATMOS_SINGLE_LYR + 5.0 + + + + HWP_ON_SURFACE + FWINX + 5.0 + + @@ -2489,6 +2525,22 @@ 3.0 + + SMOKE_ON_HYBRID_LVL + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 6.0 + + + + DUST_ON_HYBRID_LVL + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. + 6.0 + + LCDC_ON_LOW_CLOUD_LYR LCDC diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 9b151064e..68592827d 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -6758,8 +6758,9 @@ 736 SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR - tmpl4_0 + tmpl4_48 COLMD + particulate_org_matter_dry entire_atmos_single_lyr 5.0 @@ -6767,8 +6768,9 @@ 737 SMOKE_ON_HYBRID_LVL - tmpl4_0 + tmpl4_48 MASSDEN + particulate_org_matter_dry hybrid_lvl 6.0 @@ -6776,8 +6778,9 @@ 738 SMOKE_ON_ISOBARIC_SFC - tmpl4_0 + tmpl4_48 MASSDEN + particulate_org_matter_dry isobaric_sfc 6.0 @@ -6785,8 +6788,9 @@ 739 SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m - tmpl4_0 + tmpl4_48 MASSDEN + particulate_org_matter_dry spec_hgt_lvl_above_grnd 8. 6.0 @@ -6795,12 +6799,64 @@ 740 MEAN_FIRE_RDIATV_PWR + tmpl4_0 CFNSF NCEP surface 4.0 + + 741 + DUST_ON_ENTIRE_ATMOS_SINGLE_LYR + tmpl4_48 + COLMD + dust_dry + entire_atmos_single_lyr + 5.0 + + + + 742 + DUST_ON_HYBRID_LVL + tmpl4_48 + MASSDEN + dust_dry + hybrid_lvl + 6.0 + + + + 743 + DUST_ON_ISOBARIC_SFC + tmpl4_48 + MASSDEN + dust_dry + isobaric_sfc + 6.0 + + + + 744 + DUST_ON_SPEC_HGT_LVL_ABOVE_GRND_8m + tmpl4_48 + MASSDEN + dust_dry + spec_hgt_lvl_above_grnd + 8. + 6.0 + + + + 745 + BIOMASS_BURNING_EMISSIONS + tmpl4_48 + AEMFLX + particulate_org_matter_dry + surface + 5.0 + + 746 ACM_GRAUPEL_ON_SURFACE @@ -6881,6 +6937,15 @@ 3.0 + + 755 + HWP_ON_SURFACE + Hourly Wildfire Potential on surface + FWINX + surface + 5.0 + + 756 GSD_PRES_ON_HGHST_TROP_FRZ_LVL @@ -6940,6 +7005,22 @@ 3.0 + + 764 + CSDLF_ON_SURFACE + CSDLF + surface + 3.0 + + + + 765 + CSULF_ON_SURFACE + CSULF + surface + 3.0 + + 766 GSD_NCWFA_ON_HYBRID_LVL diff --git a/parm/post_avblflds_raphrrr.xml b/parm/post_avblflds_raphrrr.xml index c945f89e3..617a51557 100755 --- a/parm/post_avblflds_raphrrr.xml +++ b/parm/post_avblflds_raphrrr.xml @@ -5616,8 +5616,9 @@ 736 SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR - tmpl4_0 + tmpl4_48 COLMD + particulate_org_matter_dry entire_atmos_single_lyr 5.0 @@ -5625,8 +5626,9 @@ 737 SMOKE_ON_HYBRID_LVL - tmpl4_0 + tmpl4_48 MASSDEN + particulate_org_matter_dry hybrid_lvl 6.0 @@ -5634,8 +5636,9 @@ 738 SMOKE_ON_ISOBARIC_SFC - tmpl4_0 + tmpl4_48 MASSDEN + particulate_org_matter_dry isobaric_sfc 6.0 @@ -5643,8 +5646,9 @@ 739 SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m - tmpl4_0 + tmpl4_48 MASSDEN + particulate_org_matter_dry spec_hgt_lvl_above_grnd 8. 6.0 diff --git a/parm/postxconfig-NT-3drtma.txt b/parm/postxconfig-NT-3drtma.txt index f9e73439b..20bd9d9b8 100644 --- a/parm/postxconfig-NT-3drtma.txt +++ b/parm/postxconfig-NT-3drtma.txt @@ -577,7 +577,7 @@ spec_hgt_lvl_above_grnd SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m ? 1 -tmpl4_0 +tmpl4_48 MASSDEN ? ? @@ -591,7 +591,7 @@ spec_hgt_lvl_above_grnd ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -5424,7 +5424,7 @@ entire_atmos_single_lyr SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR ? 1 -tmpl4_0 +tmpl4_48 COLMD ? ? @@ -5438,7 +5438,7 @@ entire_atmos_single_lyr ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -7417,7 +7417,7 @@ hybrid_lvl SMOKE_ON_HYBRID_LVL ? 1 -tmpl4_0 +tmpl4_48 MASSDEN ? ? @@ -7431,7 +7431,7 @@ hybrid_lvl ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index e3f408538..fb436bdd7 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,6 +1,6 @@ 2 -239 -276 +241 +283 PRSLEV 32769 ncep_nco @@ -10229,6 +10229,265 @@ surface ? ? ? +745 +BIOMASS_BURNING_EMISSIONS +? +1 +tmpl4_48 +AEMFLX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +739 +SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m +? +1 +tmpl4_48 +MASSDEN +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +8. +? +0 +? +0 +? +particulate_org_matter_dry +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +736 +SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +particulate_org_matter_dry +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +744 +DUST_ON_SPEC_HGT_LVL_ABOVE_GRND_8m +? +1 +tmpl4_48 +MASSDEN +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +8. +? +0 +? +0 +? +dust_dry +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +741 +DUST_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_48 +COLMD +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +dust_dry +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +735 +AOD_ON_ENTIRE_ATMOS_SINGLE_LYR +? +1 +tmpl4_0 +AOTK +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? +755 +HWP_ON_SURFACE +Hourly Wildfire Potential on surface +1 +tmpl4_0 +FWINX +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? NATLEV 32769 ncep_nco @@ -13279,6 +13538,80 @@ hybrid_lvl ? ? ? +737 +SMOKE_ON_HYBRID_LVL +? +1 +tmpl4_48 +MASSDEN +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +particulate_org_matter_dry +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +742 +DUST_ON_HYBRID_LVL +? +1 +tmpl4_48 +MASSDEN +? +? +hybrid_lvl +0 +? +65 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. +? +0 +? +0 +? +dust_dry +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? 37 LCDC_ON_LOW_CLOUD_LYR ? diff --git a/parm/postxconfig-NT-hrrr.txt b/parm/postxconfig-NT-hrrr.txt index eb687ff27..a24976cb5 100644 --- a/parm/postxconfig-NT-hrrr.txt +++ b/parm/postxconfig-NT-hrrr.txt @@ -577,7 +577,7 @@ spec_hgt_lvl_above_grnd SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m ? 1 -tmpl4_0 +tmpl4_48 MASSDEN ? ? @@ -591,7 +591,7 @@ spec_hgt_lvl_above_grnd ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -5498,7 +5498,7 @@ entire_atmos_single_lyr SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR ? 1 -tmpl4_0 +tmpl4_48 COLMD ? ? @@ -5512,7 +5512,7 @@ entire_atmos_single_lyr ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -6973,7 +6973,7 @@ hybrid_lvl SMOKE_ON_HYBRID_LVL ? 1 -tmpl4_0 +tmpl4_48 MASSDEN ? ? @@ -6987,7 +6987,7 @@ hybrid_lvl ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 diff --git a/parm/postxconfig-NT-rap.txt b/parm/postxconfig-NT-rap.txt index 16e98464e..c76b78397 100644 --- a/parm/postxconfig-NT-rap.txt +++ b/parm/postxconfig-NT-rap.txt @@ -1686,7 +1686,7 @@ spec_hgt_lvl_above_grnd SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m ? 1 -tmpl4_0 +tmpl4_48 MASSDEN ? ? @@ -1700,7 +1700,7 @@ spec_hgt_lvl_above_grnd ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -4424,7 +4424,7 @@ entire_atmos_single_lyr SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR ? 1 -tmpl4_0 +tmpl4_48 COLMD ? ? @@ -4438,7 +4438,7 @@ entire_atmos_single_lyr ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -7067,7 +7067,7 @@ hybrid_lvl SMOKE_ON_HYBRID_LVL ? 1 -tmpl4_0 +tmpl4_48 MASSDEN ? ? @@ -7081,7 +7081,7 @@ hybrid_lvl ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -8769,7 +8769,7 @@ spec_hgt_lvl_above_grnd SMOKE_ON_SPEC_HGT_LVL_ABOVE_GRND_8m ? 1 -tmpl4_0 +tmpl4_48 MASSDEN ? ? @@ -8783,7 +8783,7 @@ spec_hgt_lvl_above_grnd ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 @@ -9361,7 +9361,7 @@ entire_atmos_single_lyr SMOKE_ON_ENTIRE_ATMOS_SINGLE_LYR ? 1 -tmpl4_0 +tmpl4_48 COLMD ? ? @@ -9375,7 +9375,7 @@ entire_atmos_single_lyr ? 0 ? -? +particulate_org_matter_dry ? 0 0.0 diff --git a/scripts/exgfs_atmos_nceppost.sh b/scripts/exgfs_atmos_nceppost.sh index 65b98984e..500bc1cfb 100755 --- a/scripts/exgfs_atmos_nceppost.sh +++ b/scripts/exgfs_atmos_nceppost.sh @@ -81,7 +81,7 @@ export machine=${machine:-WCOSS_C} ########################### # Specify Output layers ########################### -export POSTGPVARS="KPO=57,PO=1000.,975.,950.,925.,900.,875.,850.,825.,800.,775.,750.,725.,700.,675.,650.,625.,600.,575.,550.,525.,500.,475.,450.,425.,400.,375.,350.,325.,300.,275.,250.,225.,200.,175.,150.,125.,100.,70.,50.,40.,30.,20.,15.,10.,7.,5.,3.,2.,1.,0.7,0.4,0.2,0.1,0.07,0.04,0.02,0.01,rdaod=.true." +export POSTGPVARS="KPO=57,PO=1000.,975.,950.,925.,900.,875.,850.,825.,800.,775.,750.,725.,700.,675.,650.,625.,600.,575.,550.,525.,500.,475.,450.,425.,400.,375.,350.,325.,300.,275.,250.,225.,200.,175.,150.,125.,100.,70.,50.,40.,30.,20.,15.,10.,7.,5.,3.,2.,1.,0.7,0.4,0.2,0.1,0.07,0.04,0.02,0.01,rdaod=.true.," ########################################################## # Specify variable to directly output pgrb2 files for GDAS/GFS diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 9d7a4596c..27ee6c0dc 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -590,9 +590,9 @@ SUBROUTINE ALLOCATE_ALL() allocate(qvl1(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(snfden(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(sndepac(ista_2l:iend_2u,jsta_2l:jend_2u)) - allocate(int_smoke(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(mean_frp(ista_2l:iend_2u,jsta_2l:jend_2u)) - allocate(int_aod(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(ebb(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(hwp(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j) do j=jsta_2l,jend_2u @@ -617,18 +617,20 @@ SUBROUTINE ALLOCATE_ALL() qvl1(i,j)=spval snfden(i,j)=spval sndepac(i,j)=spval - int_smoke(i,j)=spval mean_frp(i,j)=spval - int_aod(i,j)=spval + ebb(i,j)=spval + hwp(i,j)=spval enddo enddo allocate(smoke(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_sm)) + allocate(fv3dust(ista_2l:iend_2u,jsta_2l:jend_2u,lm,nbin_sm)) !$omp parallel do private(i,j,l,k) do k=1,nbin_sm do l=1,lm do j=jsta_2l,jend_2u do i=ista_2l,iend_2u smoke(i,j,l,k)=spval + fv3dust(i,j,l,k)=spval enddo enddo enddo diff --git a/sorc/ncep_post.fd/CALPW.f b/sorc/ncep_post.fd/CALPW.f index dced136ca..1b1613238 100644 --- a/sorc/ncep_post.fd/CALPW.f +++ b/sorc/ncep_post.fd/CALPW.f @@ -36,6 +36,7 @@ !> 2019-07-25 | Li(Kate) Zhang | Merge Sarah Lu's update for FV3-Chem !> 2020-11-10 | Jesse Meng | Use UPP_PHYSICS Module !> 2021-09-02 | Bo Cui | Decompose UPP in X direction +!> 2022-11-16 | Eric James | Adding calculation of vertically integrated dust from RRFS !> !> @author Russ Treadon W/NP2 @date 1992-12-24 SUBROUTINE CALPW(PW,IDECID) @@ -44,7 +45,7 @@ SUBROUTINE CALPW(PW,IDECID) use vrbls3d, only: q, qqw, qqi, qqr, qqs, cwm, qqg, t, rswtt, & train, tcucn, mcvg, pmid, o3, ext, pint, rlwtt, & taod5503d,sca, asy - use vrbls4d, only: smoke + use vrbls4d, only: smoke, fv3dust use masks, only: htm use params_mod, only: tfrz, gi use ctlblk_mod, only: lm, jsta, jend, im, spval, ista, iend @@ -236,7 +237,7 @@ SUBROUTINE CALPW(PW,IDECID) !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=ISTA,IEND - Qdum(I,J) = SMOKE(I,J,L,1)/1000000000. + Qdum(I,J) = SMOKE(I,J,L,1)/(1E9) ENDDO END DO ! @@ -267,6 +268,16 @@ SUBROUTINE CALPW(PW,IDECID) Qdum(I,J) = ASY(I,J,L) ENDDO END DO + +! E. James - 14 Sep 2022 +! DUST (from RRFS) + ELSE IF (IDECID == 22) THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + Qdum(I,J) = FV3DUST(I,J,L,1)/(1E9) + ENDDO + END DO ENDIF ! !$omp parallel do private(i,j,dp) diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index f714686f7..6ae1653ab 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -66,6 +66,7 @@ !> 2022-09-22 | Li(Kate Zhang) | Remove duplicated GOCART output variables and add capbility for NASA GOCART (UFS-Aerosols). !> 2022-09-22 | Li(Kate Zhang) | Update look-up table for NASA GOCART (UFS-Aerosols). !> 2022-10-20 | Li(Kate Zhang) | Add nitrate look-up table and nitrate AOD for NASA GOCART (UFS-Aerosols). +!> 2022-11-16 | Eric James | Adding total column dust, biomass burning emissions, hourly wildfire potential from RRFS !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD @@ -89,8 +90,8 @@ SUBROUTINE CLDRAD AIRDIFFSWIN, DUSMASS, DUSMASS25, DUCMASS, DUCMASS25, & ALWINC, ALWTOAC, SWDDNI, SWDDIF, SWDNBC, SWDDNIC, & SWDDIFC, SWUPBC, LWDNBC, LWUPBC, SWUPT, & - TAOD5502D, AERSSA2D, AERASY2D, MEAN_FRP, LWP, IWP, & - AVGCPRATE, & + TAOD5502D, AERSSA2D, AERASY2D, MEAN_FRP, EBB, HWP, & + LWP, IWP, AVGCPRATE, & DUSTCB,SSCB,BCCB,OCCB,SULFCB,DUSTPM,SSPM,aod550, & du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550, & PWAT,DUSTPM10,MAOD,NO3CB,NH4CB @@ -473,6 +474,25 @@ SUBROUTINE CLDRAD enddo endif ENDIF +! +! TOTAL COLUMN DUST +! + IF (IGET(741) > 0) THEN + CALL CALPW(GRID1(ista:iend,jsta:iend),22) + CALL BOUND(GRID1,D00,H99999) + if(grib == "grib2" )then + cfld = cfld + 1 + fld_info(cfld)%ifld = IAVBLFLD(IGET(741)) +!$omp parallel do private(i,j,ii,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) + enddo + enddo + endif + ENDIF ! ! TOTAL COLUMN CLOUD WATER IF (IGET(200) > 0 .or. IGET(575) > 0) THEN @@ -3831,7 +3851,7 @@ SUBROUTINE CLDRAD ENDIF ! Instantaneous clear-sky downwelling LW at the surface - IF (IGET(744)>0) THEN + IF (IGET(764)>0) THEN DO J=JSTA,JEND DO I=ISTA,IEND GRID1(I,J) = LWDNBC(I,J) @@ -3839,13 +3859,13 @@ SUBROUTINE CLDRAD ENDDO if(grib=='grib2') then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(744)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(764)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous clear-sky upwelling LW at the surface - IF (IGET(745)>0) THEN + IF (IGET(765)>0) THEN DO J=JSTA,JEND DO I=ISTA,IEND GRID1(I,J) = LWUPBC(I,J) @@ -3853,27 +3873,61 @@ SUBROUTINE CLDRAD ENDDO if(grib=='grib2') then cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(745)) + fld_info(cfld)%ifld=IAVBLFLD(IGET(765)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF ! Instantaneous MEAN_FRP IF (IGET(740)>0) THEN -! print *,"GETTING INTO MEAN_FRP PART" DO J=JSTA,JEND DO I=ISTA,IEND GRID1(I,J) = MEAN_FRP(I,J) ENDDO ENDDO if(grib=='grib2') then -! print *,"GETTING INTO MEAN_FRP GRIB2 PART" cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(740)) datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) endif ENDIF +! Biomass burning emissions (EBB) + IF (IGET(745)>0) THEN + DO J=JSTA,JEND + DO I=ISTA,IEND + IF (EBB(I,J)0) THEN + DO J=JSTA,JEND + DO I=ISTA,IEND + IF (HWP(I,J)0) THEN GRID1 = spval diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index 4e6ba6ce3..a419e9f17 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -197,10 +197,11 @@ SUBROUTINE DE_ALLOCATE deallocate(swddnic) deallocate(swddifc) deallocate(swupt) - deallocate(int_smoke) deallocate(mean_frp) - deallocate(int_aod) + deallocate(ebb) + deallocate(hwp) deallocate(smoke) + deallocate(fv3dust) deallocate(taod5502d) deallocate(aerasy2d) deallocate(aerssa2d) diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 3115b57cc..673871a35 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -22,13 +22,14 @@ !> 2022-07-18 | Wen Meng | Read instant top of atmos ULWRF from model !> 2022-09-18 | Li(Kate) Zhang| Add aerosol fileds for GEFS-Aerosols (gocart_on) and UFS-Aerosols(nasa_on) model !> 2022-10-28 | Eric James | Modifications to allow passing through soil moisture availability field from RUC LSM for RRFS +!> 2022-11-16 | Eric James | Read smoke, dust, biomass burning, and hourly wildfire potential from RRFS !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) use netcdf - use vrbls4d, only: dust, SALT, SUSO, SOOT, WASO,no3,nh4, PP25, PP10 + use vrbls4d, only: dust, SALT, SUSO, SOOT, WASO, smoke, fv3dust, no3,nh4, PP25, PP10 use vrbls3d, only: t, q, uh, vh, pmid, pint, alpint, dpres, zint, zmid, o3, & qqr, qqs, cwm, qqi, qqw, omga, rhomid, q2, cfr, rlwtt, rswtt, tcucn, & tcucns, train, el_pbl, exch_h, vdifftt, vdiffmois, dconvmois, nradtt, & @@ -36,7 +37,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) vdiffmacce, mgdrag, cnvctvmmixing, ncnvctcfrac, cnvctumflx, cnvctdmflx, & cnvctzgdrag, sconvmois, cnvctmgdrag, cnvctdetmflx, duwt, duem, dusd, dudp, & dusv,ssem,sssd,ssdp,sswt,sssv,bcem,bcsd,bcdp,bcwt,bcsv,ocem,ocsd,ocdp,ocwt,ocsv, & - wh, qqg, ref_10cm, qqnifa, qqnwfa, pmtf, ozcon + wh, qqg, ref_10cm, qqnifa, qqnwfa, pmtf, ozcon, aextc55, taod5503d use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & @@ -59,7 +60,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550,prate_max,maod,dustpm10, & dustcb,bccb,occb,sulfcb,sscb,dustallcb,ssallcb,dustpm,sspm,pp25cb,pp10cb,no3cb,nh4cb,& - pwat + pwat, ebb, hwp use soil, only: sldpth, sllevel, sh2o, smc, stc use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice use physcons_post, only: grav => con_g, fv => con_fvirt, rgas => con_rd, & @@ -139,6 +140,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) integer nfhour ! forecast hour from nems io file integer fhzero !bucket real dtp !physics time step + real dz REAL RINC(5) REAL DUMMY(IM,JM) @@ -184,6 +186,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) real, allocatable :: div3d(:,:,:) real(kind=4),allocatable :: vcrd(:,:) real :: dum_const + real, allocatable :: extsmoke(:,:,:), extdust(:,:,:) ! AQF @@ -233,6 +236,11 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ,pm25ac(:,:,:), pm25at(:,:,:), pm25co(:,:,:) + if (modelname == 'FV3R') then + allocate(extsmoke(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(extdust(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + endif + if (me == 0) print *,' aqfcmaq_on=', aqfcmaq_on if (aqfcmaq_on) then @@ -670,12 +678,13 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) end if if(me==0)print*,'nhcas= ',nhcas if (nhcas == 0 ) then !non-hydrostatic case - nrec=14 + nrec=18 allocate (recname(nrec)) recname=[character(len=20) :: 'ugrd','vgrd','spfh','tmp','o3mr', & 'presnh','dzdt', 'clwmr','dpres', & 'delz','icmr','rwmr', & - 'snmr','grle'] + 'snmr','grle','smoke','dust', & + 'smoke_ext','dust_ext'] else nrec=8 allocate (recname(nrec)) @@ -1028,6 +1037,17 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) spval,recname(13),qqs(ista_2l,jsta_2l,1),lm) call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & spval,recname(14),qqg(ista_2l,jsta_2l,1),lm) +! read for regional FV3 + if (modelname == 'FV3R') then + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,recname(15),smoke(ista_2l,jsta_2l,1,1),lm) + call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,recname(16),fv3dust(ista_2l,jsta_2l,1,1),lm) + call read_netcdf_3d_para(ncid2d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,recname(17),extsmoke(ista_2l,jsta_2l,1),lm) + call read_netcdf_3d_para(ncid2d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,recname(18),extdust(ista_2l,jsta_2l,1),lm) + endif ! calculate CWM from FV3 output do l=1,lm @@ -1591,6 +1611,16 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_2d_para(ncid3d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & spval,VarName,rel_vort_maxhy1(ista_2l,jsta_2l)) if(debugprint)print*,'sample ',VarName,' =',rel_vort_maxhy1(isa,jsa) +! biomass burning emissions + VarName='ebb_smoke_hr' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,ebb(ista_2l,jsta_2l)) + if(debugprint)print*,'sample ',VarName,' =',ebb(isa,jsa) +! hourly wildfire potential + VarName='hwp' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,hwp(ista_2l,jsta_2l)) + if(debugprint)print*,'sample ',VarName,' =',hwp(isa,jsa) endif ! surface pressure @@ -2978,6 +3008,31 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) if(debugprint)print*,'sample stc = ',1,stc(isa,jsa,9) END IF +! +! E. James - 27 Sep 2022: this is for RRFS, adding smoke and dust +! extinction; it needs to be after ZINT is defined. +! + if (modelname == 'FV3R') then + do l = 1, lm + do j = jsta_2l, jend_2u + do i = ista_2l, iend_2u + if(extsmoke(i,j,l) 0) .OR. (IGET(743) > 0) .OR. & + (MODELNAME == 'RAPR') .OR.& ! LIFTED INDEX needs 500 mb T (IGET(030)>0) .OR. (IGET(031)>0) .OR. (IGET(075)>0)) THEN ! @@ -328,6 +339,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(CFR(I,J,1) < SPVAL) CFRSL(I,J) = CFR(I,J,1) DO K = 1, NBIN_SM IF(SMOKE(I,J,1,K) < SPVAL) SMOKESL(I,J,K)=SMOKE(I,J,1,K) + IF(FV3DUST(I,J,1,K) < SPVAL) FV3DUSTSL(I,J,K)=FV3DUST(I,J,1,K) ENDDO ! only interpolate GFS d3d fields when reqested @@ -485,6 +497,8 @@ SUBROUTINE MDL2P(iostatusD3D) DO K = 1, NBIN_SM IF(SMOKE(I,J,LL,K) < SPVAL .AND. SMOKE(I,J,LL-1,K) < SPVAL) & SMOKESL(I,J,K)=SMOKE(I,J,LL,K)+(SMOKE(I,J,LL,K)-SMOKE(I,J,LL-1,K))*FACT + IF(FV3DUST(I,J,LL,K) < SPVAL .AND. FV3DUST(I,J,LL-1,K) < SPVAL) & + FV3DUSTSL(I,J,K)=FV3DUST(I,J,LL,K)+(FV3DUST(I,J,LL,K)-FV3DUST(I,J,LL-1,K))*FACT ENDDO ! only interpolate GFS d3d fields when == ested @@ -2016,7 +2030,7 @@ SUBROUTINE MDL2P(iostatusD3D) DO J=JSTA,JEND DO I=ISTA,IEND IF(SMOKESL(I,J,1) 0) THEN + IF (LVLS(LP,IGET(743)) > 0) THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + IF(FV3DUSTSL(I,J,1)0).OR.(IGET(630)>0).OR. & (IGET(470)>0).OR. & (IGET(909)>0).OR.(IGET(737)>0).OR. & + (IGET(742)>0).OR. & (IGET(994)>0).OR.(IGET(995)>0) ) THEN DO 190 L=1,LM @@ -2307,7 +2309,7 @@ SUBROUTINE MDLFLD DO J=JSTA,JEND DO I=ista,iend IF(PMID(I,J,LL)0) THEN + IF (LVLS(L,IGET(742))>0) THEN + LL=LM-L+1 +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ista,iend + IF(PMID(I,J,LL)0).OR.(IGET(414)>0).OR. & (IGET(546)>0).OR.(IGET(547)>0).OR. & (IGET(548)>0).OR.(IGET(739)>0).OR. & - (IGET(771)>0)) THEN + (IGET(744)>0).OR.(IGET(771)>0)) THEN if (.not. allocated(psfc)) allocate(psfc(ista:iend,jsta:jend)) ! @@ -2136,7 +2137,7 @@ SUBROUTINE SURFCE DO J=JSTA,JEND DO I=ISTA,IEND if(T(I,J,LM)/=spval.and.PMID(I,J,LM)/=spval.and.SMOKE(I,J,LM,1)/=spval)& - GRID1(I,J) = (1./RD)*(PMID(I,J,LM)/T(I,J,LM))*SMOKE(I,J,LM,1) + GRID1(I,J) = (1./RD)*(PMID(I,J,LM)/T(I,J,LM))*SMOKE(I,J,LM,1)/(1E9) ENDDO ENDDO if(grib=='grib2') then @@ -2146,6 +2147,24 @@ SUBROUTINE SURFCE endif ENDIF ! +! E. James - 14 Sep 2022: DUST from RRFS on lowest model level +! + IF (IGET(744)>0) THEN + GRID1=SPVAL + DO J=JSTA,JEND + DO I=ISTA,IEND + if(T(I,J,LM)/=spval.and.PMID(I,J,LM)/=spval.and.FV3DUST(I,J,LM,1)/=spval)& + GRID1(I,J) = (1./RD)*(PMID(I,J,LM)/T(I,J,LM))*FV3DUST(I,J,LM,1)/(1E9) + ENDDO + ENDDO + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(744)) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld) = GRID1(ista:iend,jsta:jend) + endif + ENDIF +! +! ! BLOCK 3. ANEMOMETER LEVEL (10M) WINDS, THETA, AND Q. ! IF ( (IGET(064)>0).OR.(IGET(065)>0).OR. & diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index 3499018b4..c05aa0420 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -58,9 +58,8 @@ module vrbls2d ,SWRADmean(:,:),U10mean(:,:),V10mean(:,:),SPDUV10mean(:,:) & ,SWNORMmean(:,:),SNFDEN(:,:),SNDEPAC(:,:),SWDDNI(:,:),SWDDIF(:,:) & ,SWDNBC(:,:),SWDDNIC(:,:),SWDDIFC(:,:), SWUPBC(:,:), SWUPT(:,:) & - ,TAOD5502D(:,:),AERASY2D(:,:),AERSSA2D(:,:),MEAN_FRP(:,:) & - ,LWP(:,:),IWP(:,:) & - ,INT_SMOKE(:,:),INT_AOD(:,:) & + ,TAOD5502D(:,:),AERASY2D(:,:),AERSSA2D(:,:),MEAN_FRP(:,:),EBB(:,:) & + ,HWP(:,:),LWP(:,:),IWP(:,:) & ! add new fields for GFS ,SFCUX(:,:),SFCVX(:,:),SFCUXI(:,:), SFCVXI(:,:),AVGALBEDO(:,:),AVGCPRATE(:,:) & ,AVGPREC(:,:),PTOP(:,:),PBOT(:,:),AVGCFRACH(:,:) & diff --git a/sorc/ncep_post.fd/VRBLS4D_mod.f b/sorc/ncep_post.fd/VRBLS4D_mod.f index 09da75118..0c9799836 100644 --- a/sorc/ncep_post.fd/VRBLS4D_mod.f +++ b/sorc/ncep_post.fd/VRBLS4D_mod.f @@ -14,6 +14,7 @@ module vrbls4d real, allocatable :: NO3(:,:,:,:) ! no3 real, allocatable :: NH4(:,:,:,:) ! nh4 real, allocatable :: SMOKE(:,:,:,:) + real, allocatable :: FV3DUST(:,:,:,:) real, allocatable :: PP25(:,:,:,:) ! PP25 real, allocatable :: PP10(:,:,:,:) ! PP10 ! From 792a398f884021d6c4ba57967df46cb3f679f1c0 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Wed, 14 Dec 2022 12:05:54 -0500 Subject: [PATCH 086/107] Output hourly PM2.5 and O3 for AQM (#591) * 1)Add new control file for AQM; 2)Output hourly averaged PM2.5 and O3 concentration; 3)Remove instant PM2.5 and O3 concentraction. * 1)output hourly averaged PM2.5 and O3; 2)Remove instant PM2.5 calculation. * Remove unit conversion for hourly pm2.5 * Remove O3MR from AQM control files * 1)Add new variable entire atmosphere aod; 2)add entire atmosphere aod and HPBL in aqm control files; 3)remove fv3lam_cmaq control files. * Add some fixes for CI failture per Alex's suggestions. * Add gfortan 12 installed in ubuntu-latest * Add "sudo apt install cmake" * Add "sudo apt install cmake" in gcc.yml * Pick up the changes from Alex. * Add back "spack compiler find" * tweaking gcc.yml * 1) Add changes based on Kai's comments; 2) Pick up changes of CI from Alex. * 1)tweak aod ouput; 2)add latest changes of CI from Alex. * update change logs * update change log based on Huiya's comments --- .github/workflows/gcc.yml | 19 +- .github/workflows/intel.yml | 21 +- ci/spack.yaml | 4 +- parm/aqm.xml | 200 ++++++ parm/fv3lam_cmaq.xml | 53 -- parm/makefile | 11 +- parm/post_avblflds.xml | 21 +- parm/postxconfig-NT-AQM.txt | 943 ++++++++++++++++++++++++++++ parm/postxconfig-NT-fv3lam_cmaq.txt | 129 ---- sorc/ncep_post.fd/ALLOCATE_ALL.f | 22 +- sorc/ncep_post.fd/CLDRAD.f | 22 +- sorc/ncep_post.fd/CTLBLK.f | 3 +- sorc/ncep_post.fd/DEALLOCATE.f | 8 +- sorc/ncep_post.fd/INITPOST_NETCDF.f | 679 +------------------- sorc/ncep_post.fd/MDLFLD.f | 48 +- sorc/ncep_post.fd/VRBLS2D_mod.f | 3 + sorc/ncep_post.fd/VRBLS3D_mod.f | 2 +- sorc/ncep_post.fd/WRFPOST.f | 7 +- 18 files changed, 1304 insertions(+), 891 deletions(-) create mode 100644 parm/aqm.xml delete mode 100644 parm/fv3lam_cmaq.xml create mode 100644 parm/postxconfig-NT-AQM.txt delete mode 100644 parm/postxconfig-NT-fv3lam_cmaq.txt diff --git a/.github/workflows/gcc.yml b/.github/workflows/gcc.yml index da033fa71..ef6d496c6 100644 --- a/.github/workflows/gcc.yml +++ b/.github/workflows/gcc.yml @@ -34,6 +34,11 @@ jobs: runs-on: ubuntu-latest steps: + - name: checkout-upp # This is for getting spack.yaml + uses: actions/checkout@v2 + with: + path: UPP + # Cache spack, compiler and dependencies - name: cache-env id: cache-env @@ -42,13 +47,7 @@ jobs: path: | spack ~/.spack - key: spack-${{ runner.os }}-${{ env.cache_key }} - - - name: checkout-upp # This is for getting spack.yaml - if: steps.cache-env.outputs.cache-hit != 'true' - uses: actions/checkout@v2 - with: - path: UPP + key: spack-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} # Install dependencies using Spack - name: install-dependencies-with-spack @@ -58,11 +57,11 @@ jobs: source spack/share/spack/setup-env.sh spack env create upp-env UPP/ci/spack.yaml spack env activate upp-env - spack compiler find + sudo apt install cmake spack external find spack add mpich@3.4.2 spack concretize - spack install --dirty -v + spack install -v --fail-fast --dirty build: needs: setup @@ -81,7 +80,7 @@ jobs: path: | spack ~/.spack - key: spack-${{ runner.os }}-${{ env.cache_key }} + key: spack-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} - name: build-upp run: | diff --git a/.github/workflows/intel.yml b/.github/workflows/intel.yml index 97ab17caa..326ae143d 100644 --- a/.github/workflows/intel.yml +++ b/.github/workflows/intel.yml @@ -36,6 +36,12 @@ jobs: runs-on: ubuntu-latest steps: + - name: checkout-upp # This is for getting spack.yaml + if: steps.cache-env.outputs.cache-hit != 'true' + uses: actions/checkout@v2 + with: + path: UPP + # Cache spack, compiler and dependencies - name: cache-env id: cache-env @@ -45,10 +51,9 @@ jobs: spack ~/.spack /opt/intel - key: spack-${{ runner.os }}-${{ env.cache_key }} + key: spack-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} - name: install-intel-compilers - if: steps.cache-env.outputs.cache-hit != 'true' run: | wget https://apt.repos.intel.com/intel-gpg-keys/GPG-PUB-KEY-INTEL-SW-PRODUCTS.PUB sudo apt-key add GPG-PUB-KEY-INTEL-SW-PRODUCTS.PUB @@ -57,25 +62,21 @@ jobs: sudo apt-get install intel-oneapi-dev-utilities intel-oneapi-mpi-devel intel-oneapi-openmp intel-oneapi-compiler-fortran intel-oneapi-compiler-dpcpp-cpp-and-cpp-classic echo "source /opt/intel/oneapi/setvars.sh" >> ~/.bash_profile - - name: checkout-upp # This is for getting spack.yaml - if: steps.cache-env.outputs.cache-hit != 'true' - uses: actions/checkout@v2 - with: - path: UPP - # Install dependencies using Spack - name: install-dependencies-with-spack if: steps.cache-env.outputs.cache-hit != 'true' run: | + sudo mv /usr/local/ /usr_local_mv git clone -c feature.manyFiles=true https://github.com/NOAA-EMC/spack.git source spack/share/spack/setup-env.sh spack env create upp-env UPP/ci/spack.yaml spack env activate upp-env spack compiler find + sudo apt install cmake spack external find spack add intel-oneapi-mpi spack concretize - spack install --dirty -v + spack install --dirty -v --fail-fast build: needs: setup @@ -99,7 +100,7 @@ jobs: spack ~/.spack /opt/intel - key: spack-${{ runner.os }}-${{ env.cache_key }} + key: spack-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} - name: build-upp run: | diff --git a/ci/spack.yaml b/ci/spack.yaml index 1c7aa122e..ddfcfe83d 100644 --- a/ci/spack.yaml +++ b/ci/spack.yaml @@ -2,7 +2,9 @@ spack: packages: all: - compiler: [intel, gcc] + compiler: + - intel + - gcc@10:10 specs: - netcdf-c@4.7.4 - netcdf-fortran@4.5.3 diff --git a/parm/aqm.xml b/parm/aqm.xml new file mode 100644 index 000000000..63f5e7513 --- /dev/null +++ b/parm/aqm.xml @@ -0,0 +1,200 @@ + + + + + CMAQ + 32769 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + nws_ncep + nmm_8km + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + AVE_PM25TOT_ON_HYBRID_LVL + PMTF + NCEP + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 7.0 + + + + AVE_OZCON_ON_HYBRID_LVL + OZCON + NCEP + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 7.0 + + + + TMP_ON_HYBRID_LVL + TMP + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 4.0 + + + + SPFH_ON_HYBRID_LVL + SPFH + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 7.0 + + + + UGRD_ON_HYBRID_LVL + UGRD + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 4.0 + + + + VGRD_ON_HYBRID_LVL + VGRD + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 4.0 + + + + DZDT_ON_HYBRID_LVL + DZDT + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 4.0 + + + + TCDC_ON_HYBRID_LVL + TCDC + 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. +25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. +49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. + 3.0 + + + + TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + TMP + 4.0 + + + + SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + SPFH + 4.0 + + + + DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + DPT + 4.0 + + + + RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m + RH + 3.0 + + + + UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + UGRD + 10. + 4.0 + + + + VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m + VGRD + 10. + 4.0 + + + + PBLREG_ON_SURFACE + PBLREG + 2.0 + + + + TMP_ON_ISOBARIC_SFC + 50000. 70000. 85000. 92500. 100000. + -4.0 + + + + DPT_ON_ISOBARIC_SFC + 50000. 70000. 85000. 92500. 100000. + -4.0 + + + + HGT_ON_ISOBARIC_SFC + 50000. 70000. 85000. 100000. + -5.0 + + + + UGRD_ON_ISOBARIC_SFC + 25000. 30000. 50000. 70000. 85000. 92500. 100000. + -4.0 + + + + VGRD_ON_ISOBARIC_SFC + 25000. 30000. 50000. 70000. 85000. 92500. 100000. + -4.0 + + + + CAPE_ON_SURFACE + 3.0 + + + + BEST_CAPE_ON_SPEC_PRES_ABOVE_GRND + 18000. + 0. + 3.0 + + + + MIXED_LAYER_CAPE_ON_SPEC_PRES_ABOVE_GRND + 9000. + 0. + 3.0 + + + + AER_OPT_AQM_at550 + + + + HPBL_ON_SURFACE + NCEP + 6.0 + + + + diff --git a/parm/fv3lam_cmaq.xml b/parm/fv3lam_cmaq.xml deleted file mode 100644 index 4ef8bd0e9..000000000 --- a/parm/fv3lam_cmaq.xml +++ /dev/null @@ -1,53 +0,0 @@ - - - - - CMAQ - 32769 - ncep_nco - v2003 - local_tab_yes1 - fcst - oper - fcst - fcst - hour - nws_ncep - nmm_8km - complex_packing_spatial_diff - 2nd_ord_sptdiff - fltng_pnt - lossless - - - PM25TOT_ON_HYBRID_LVL - PMTF - NCEP - 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. -25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. -49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. - 7.0 - - - - O3MR_ON_HYBRID_LVL - O3MR - NCEP - 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. -25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. -49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. - 7.0 - - - - OZCON_ON_HYBRID_LVL - OZCON - NCEP - 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. -25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. -49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. - 7.0 - - - - diff --git a/parm/makefile b/parm/makefile index 6a6b419e3..303e96f07 100644 --- a/parm/makefile +++ b/parm/makefile @@ -30,6 +30,7 @@ RRFSFLATFILENAME = postxconfig-NT-fv3lam_rrfs.txt RTMA3DFLATFILENAME = postxconfig-NT-3drtma.txt UFSAEROSOLFLATFILENAME = postxconfig-NT-UFS-aerosol.txt UFSAERO00FLATFILENAME = postxconfig-NT-UFS-aerosol-F00.txt +AQMFLATFILENAME = postxconfig-NT-AQM.txt # Source Post XML file GFSAVAILXMLFILENAME = post_avblflds.xml @@ -63,6 +64,8 @@ RTMA3DCTRLFILENAME = 3drtma_postcntrl.xml RTMA3DAVAILXMLFILENAME = post_avblflds.xml UFSAEROSOLCTRFILENAME = postcntrl_ufs_aerosol.xml UFSAEROSOL00CTRFILENAME = postcntrl_ufs_aerosol_f00.xml +AQMCTRLFILENAME = aqm.xml +AVAILXMLFILENAME = post_avblflds.xml # Post flat file generator PERLXML = PostXMLPreprocessor.pl @@ -91,6 +94,7 @@ PERLXMLRRFS = /usr/bin/perl $(PERLXML) $(RRFSCTRLFILENAME) $(RRFSAVA PERLXML3DRTMA = /usr/bin/perl $(PERLXML) $(RTMA3DCTRLFILENAME) $(RTMA3DAVAILXMLFILENAME) $(RTMA3DFLATFILENAME) PERLXMLUFSAEROSOL = /usr/bin/perl $(PERLXML) $(UFSAEROSOLCTRFILENAME) $(RTMA3DAVAILXMLFILENAME) $(UFSAEROSOLFLATFILENAME) PERLXMLUFSAEROSOL00 = /usr/bin/perl $(PERLXML) $(UFSAEROSOL00CTRFILENAME) $(RTMA3DAVAILXMLFILENAME) $(UFSAERO00FLATFILENAME) +PERLXMLAQM = /usr/bin/perl $(PERLXML) $(AQMCTRLFILENAME) $(AVAILXMLFILENAME) $(AQMFLATFILENAME) # File to look for change GFSXMLS = $(GFSAVAILXMLFILENAME) $(GFSCTRLFILENAME) @@ -116,9 +120,10 @@ RRFSXMLS = $(RRFSAVAILXMLFILENAME) $(RRFSCTRLFILENAME) RTMA3DXMLS = $(RTMA3DAVAILXMLFILENAME) $(RTMA3DCTRLFILENAME) UFSAEROSOLXMLS = $(RTMA3DAVAILXMLFILENAME) $(UFSAEROSOLCTRLFILENAME) UFSAEROSOL00XMLS = $(RTMA3DAVAILXMLFILENAME) $(UFSAEROSOL00CTRLFILENAME) +AQMXMLS = $(AVAILXMLFILENAME) $(AQMCTRLFILENAME) # If action is triggered; run the following -all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RRFSFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) +all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RRFSFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) $(AQMFLATFILENAME) $(GFSFLATFILENAME): $(GFSXMLS) $(PERLXMLGFS) $(GFSGOESFLATFILENAME): $(GFSGOESXMLS) @@ -163,10 +168,12 @@ $(UFSAEROSOLFLATFILENAME): $(UFSAEROSOLXMLS) $(PERLXMLUFSAEROSOL) $(UFSAERO00FLATFILENAME): $(UFSAEROSOL00XMLS) $(PERLXMLUFSAEROSOL00) +$(AQMFLATFILENAME): $(AQMXMLS) + $(PERLXMLAQM) # Make clean clean: @echo @echo '==== CLEAN ===================================================' - /bin/rm -f $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) + /bin/rm -f $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) $(AQMFLATFILENAME) diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 68592827d..42f61113d 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -6635,6 +6635,19 @@ 3.0 + + 712 + AER_OPT_AQM_at550 + tmpl4_48 + AOTK + entire_atmos_single_lyr + total_aerosol + smaller_than_first_limit + 0 + 0 + 9.0 + + 719 INST_USWRF_ON_TOP_OF_ATMOS @@ -8059,16 +8072,20 @@ 994 - OZCON_ON_HYBRID_LVL + AVE_OZCON_ON_HYBRID_LVL + tmpl4_8 OZCON + AVE hybrid_lvl 7.0 995 - PM25TOT_ON_HYBRID_LVL + AVE_PM25TOT_ON_HYBRID_LVL + tmpl4_8 PMTF + AVE hybrid_lvl 7.0 diff --git a/parm/postxconfig-NT-AQM.txt b/parm/postxconfig-NT-AQM.txt new file mode 100644 index 000000000..54f199471 --- /dev/null +++ b/parm/postxconfig-NT-AQM.txt @@ -0,0 +1,943 @@ +1 +25 +CMAQ +32769 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +nws_ncep +nmm_8km +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +995 +AVE_PM25TOT_ON_HYBRID_LVL +? +1 +tmpl4_8 +PMTF +NCEP +AVE +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +7.0 +0 +0 +0 +? +? +? +994 +AVE_OZCON_ON_HYBRID_LVL +? +1 +tmpl4_8 +OZCON +NCEP +AVE +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +7.0 +0 +0 +0 +? +? +? +2 +TMP_ON_HYBRID_LVL +? +1 +tmpl4_0 +TMP +? +? +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +5 +SPFH_ON_HYBRID_LVL +? +1 +tmpl4_0 +SPFH +? +? +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +7.0 +0 +0 +0 +? +? +? +7 +UGRD_ON_HYBRID_LVL +? +1 +tmpl4_0 +UGRD +? +? +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +8 +VGRD_ON_HYBRID_LVL +? +1 +tmpl4_0 +VGRD +? +? +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +264 +DZDT_ON_HYBRID_LVL +? +1 +tmpl4_0 +DZDT +? +? +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +145 +TCDC_ON_HYBRID_LVL +? +1 +tmpl4_0 +TCDC +? +? +hybrid_lvl +0 +? +64 +1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +106 +TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +TMP +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +112 +SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +SPFH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +113 +DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +DPT +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +114 +RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m +? +1 +tmpl4_0 +RH +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +2. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +64 +UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +UGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +65 +VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m +? +1 +tmpl4_0 +VGRD +? +? +spec_hgt_lvl_above_grnd +0 +? +1 +10. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +344 +PBLREG_ON_SURFACE +? +1 +tmpl4_0 +PBLREG +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +2.0 +0 +0 +0 +? +? +? +13 +TMP_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +TMP +? +? +isobaric_sfc +0 +? +5 +50000. 70000. 85000. 92500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +15 +DPT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +DPT +? +? +isobaric_sfc +0 +? +5 +50000. 70000. 85000. 92500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +12 +HGT_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +HGT +? +? +isobaric_sfc +0 +? +4 +50000. 70000. 85000. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-5.0 +0 +0 +0 +? +? +? +18 +UGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +UGRD +? +? +isobaric_sfc +0 +? +7 +25000. 30000. 50000. 70000. 85000. 92500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +19 +VGRD_ON_ISOBARIC_SFC +? +1 +tmpl4_0 +VGRD +? +? +isobaric_sfc +0 +? +7 +25000. 30000. 50000. 70000. 85000. 92500. 100000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +32 +CAPE_ON_SURFACE +? +1 +tmpl4_0 +CAPE +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +566 +BEST_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +18000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +582 +MIXED_LAYER_CAPE_ON_SPEC_PRES_ABOVE_GRND +? +1 +tmpl4_0 +CAPE +? +? +spec_pres_above_grnd +0 +? +1 +9000. +spec_pres_above_grnd +0 +? +1 +0. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +712 +AER_OPT_AQM_at550 +? +1 +tmpl4_48 +AOTK +? +? +entire_atmos_single_lyr +0 +? +0 +? +? +0 +? +0 +? +total_aerosol +smaller_than_first_limit +0 +0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +9.0 +0 +0 +0 +? +? +? +221 +HPBL_ON_SURFACE +? +1 +tmpl4_0 +HPBL +NCEP +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-fv3lam_cmaq.txt b/parm/postxconfig-NT-fv3lam_cmaq.txt deleted file mode 100644 index 1eec84111..000000000 --- a/parm/postxconfig-NT-fv3lam_cmaq.txt +++ /dev/null @@ -1,129 +0,0 @@ -1 -3 -CMAQ -32769 -ncep_nco -v2003 -local_tab_yes1 -fcst -oper -fcst -fcst -hour -nws_ncep -nmm_8km -complex_packing_spatial_diff -2nd_ord_sptdiff -fltng_pnt -lossless -995 -PM25TOT_ON_HYBRID_LVL -? -1 -tmpl4_0 -PMTF -NCEP -? -hybrid_lvl -0 -? -64 -1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -7.0 -0 -0 -0 -? -? -? -267 -O3MR_ON_HYBRID_LVL -? -1 -tmpl4_0 -O3MR -NCEP -? -hybrid_lvl -0 -? -64 -1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -7.0 -0 -0 -0 -? -? -? -994 -OZCON_ON_HYBRID_LVL -? -1 -tmpl4_0 -OZCON -NCEP -? -hybrid_lvl -0 -? -64 -1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -7.0 -0 -0 -0 -? -? -? diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 27ee6c0dc..429ccb21d 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -20,6 +20,7 @@ !! two arrays are involved in GSL visibility computation. !! - 22-03-22 Wen Meng - Initializing pwat. !! - 22-09-22 Li(Kate) Zhang - Initializing NASA GOCART tracers of Nitrate, NH4,and their column burden. +!! - 22-11-08 Kai Wang - Replace acfcmaq_on with aqf_on !! !! OUTPUT FILES: !! - STDOUT - RUN TIME STANDARD OUT. @@ -1371,23 +1372,32 @@ SUBROUTINE ALLOCATE_ALL() enddo ! AQF - if (me == 0) print *,'aqfcmaq_on= ', aqfcmaq_on - if (aqfcmaq_on) then + if (me == 0) print *,'aqf_on= ', aqf_on + if (aqf_on) then - allocate(ozcon(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(pmtf(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(avgozcon(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(avgpmtf(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + allocate(aqm_aod550(ista_2l:iend_2u,jsta_2l:jend_2u)) !Initialization !$omp parallel do private(i,j,l) do l=1,lm do j=jsta_2l,jend_2u do i=ista_2l,iend_2u - ozcon(i,j,l)=0. - pmtf(i,j,l)=0. + avgozcon(i,j,l)=spval + avgpmtf(i,j,l)=spval enddo enddo enddo +!Initialization +!$omp parallel do private(i,j) + do j=jsta_2l,jend_2u + do i=ista_2l,iend_2u + aqm_aod550(i,j)=spval + enddo + enddo + endif ! end diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index 6ae1653ab..58bf95eb6 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -67,6 +67,7 @@ !> 2022-09-22 | Li(Kate Zhang) | Update look-up table for NASA GOCART (UFS-Aerosols). !> 2022-10-20 | Li(Kate Zhang) | Add nitrate look-up table and nitrate AOD for NASA GOCART (UFS-Aerosols). !> 2022-11-16 | Eric James | Adding total column dust, biomass burning emissions, hourly wildfire potential from RRFS +!> 2022-1207 | Wen Meng | Add AOD for AQM !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD @@ -94,7 +95,7 @@ SUBROUTINE CLDRAD LWP, IWP, AVGCPRATE, & DUSTCB,SSCB,BCCB,OCCB,SULFCB,DUSTPM,SSPM,aod550, & du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550, & - PWAT,DUSTPM10,MAOD,NO3CB,NH4CB + PWAT,DUSTPM10,MAOD,NO3CB,NH4CB,aqm_aod550 use masks, only: LMH, HTM use params_mod, only: TFRZ, D00, H99999, QCLDMIN, SMALL, D608, H1, ROG, & GI, RD, QCONV, ABSCOEFI, ABSCOEF, STBOL, PQ0, A2, & @@ -103,7 +104,8 @@ SUBROUTINE CLDRAD FLD_INFO, AVRAIN, THEAT, IFHR, IFMIN, AVCNVC, & TCLOD, ARDSW, TRDSW, ARDLW, NBIN_DU, TRDLW, IM, & NBIN_SS, NBIN_OC,NBIN_BC,NBIN_SU,NBIN_NO3,DTQ2, & - JM, LM, gocart_on, nasa_on, me, rdaod,ISTA, IEND + JM, LM, gocart_on, nasa_on, me, rdaod,ISTA, IEND, & + aqf_on use rqstfld_mod, only: IGET, ID, LVLS, IAVBLFLD use gridspec_mod, only: dyval, gridtype use cmassi_mod, only: TRAD_ice @@ -4542,6 +4544,22 @@ SUBROUTINE CLDRAD ENDIF END IF !rdaod + !AQM AEROSOL OPTICAL DEPTH AT 550 NM + IF (aqf_on) THEN + IF (IGET(712).GT.0) THEN + DO J=JSTA,JEND + DO I=ISTA,IEND + grid1(i,j)=aqm_aod550(i,j) + ENDDO + ENDDO + if(grib=="grib2" )then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(712)) + datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) + endif + ENDIF + END IF !aqf_on + !2D AEROSOL OPTICAL DEPTH AT 550 NM IF (IGET(715)>0) THEN DO J=JSTA,JEND diff --git a/sorc/ncep_post.fd/CTLBLK.f b/sorc/ncep_post.fd/CTLBLK.f index 14fdb17ba..7e1ae9baf 100644 --- a/sorc/ncep_post.fd/CTLBLK.f +++ b/sorc/ncep_post.fd/CTLBLK.f @@ -11,6 +11,7 @@ module CTLBLK_mod ! 2011-12-23 SARAH LU - ADD NBIN FOR DU, SS, OC, BC, SU ! 2021-09-30 JESSE MENG- 2D DECOMPOSITION ! 2022-09-22 Li(Kate) Zhang- Add option for NASA GOCART as "nasa_on", add NBIN for NO3 and NH4 +! 2022-11-08 Kai Wang - Replace aqfcmaq_on with aqf_on !----------------------------------------------------------------------- ! implicit none @@ -43,7 +44,7 @@ module CTLBLK_mod real*8 :: gdsdegr real,allocatable :: datapd(:,:,:) ! - logical :: gocart_on, nasa_on, d3d_on, hyb_sigp, rdaod, aqfcmaq_on + logical :: gocart_on, nasa_on, d3d_on, hyb_sigp, rdaod, aqf_on logical :: SIGMA,RUN,FIRST,RESTRT logical :: global logical :: SMFLAG diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index a419e9f17..658febca4 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -9,6 +9,7 @@ !> 2000-01-06 | Jim Tuccillo | Initial !> 2001-10-25 | H Chuang | Modified to process hybrid model output !> 2002-06-19 | Mike Baldwin | WRF version +!> 2022-11-08 | Kai Wang | Replace aqfcmaq_on with aqf_on !> !> @author Jim Tuccillo IBM @date 2000-01-06 SUBROUTINE DE_ALLOCATE @@ -558,9 +559,10 @@ SUBROUTINE DE_ALLOCATE deallocate(uuavg) ! AQF - if (aqfcmaq_on) then - deallocate(ozcon) - deallocate(pmtf) + if (aqf_on) then + deallocate(avgozcon) + deallocate(avgpmtf) + deallocate(aqm_aod550) endif end diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 673871a35..a803ef6f9 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -22,7 +22,10 @@ !> 2022-07-18 | Wen Meng | Read instant top of atmos ULWRF from model !> 2022-09-18 | Li(Kate) Zhang| Add aerosol fileds for GEFS-Aerosols (gocart_on) and UFS-Aerosols(nasa_on) model !> 2022-10-28 | Eric James | Modifications to allow passing through soil moisture availability field from RUC LSM for RRFS +!> 2022-11-08 | Kai Wang | Read time averaged PM2.5 and O3 concentration from model +!> 2022-11-08 | Wen Meng | Remove instant PM2.5 calculation !> 2022-11-16 | Eric James | Read smoke, dust, biomass burning, and hourly wildfire potential from RRFS +!> 2022-12-07 | Wen Meng | Read AOD from AQM model !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) @@ -37,7 +40,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) vdiffmacce, mgdrag, cnvctvmmixing, ncnvctcfrac, cnvctumflx, cnvctdmflx, & cnvctzgdrag, sconvmois, cnvctmgdrag, cnvctdetmflx, duwt, duem, dusd, dudp, & dusv,ssem,sssd,ssdp,sswt,sssv,bcem,bcsd,bcdp,bcwt,bcsv,ocem,ocsd,ocdp,ocwt,ocsv, & - wh, qqg, ref_10cm, qqnifa, qqnwfa, pmtf, ozcon, aextc55, taod5503d + wh, qqg, ref_10cm, qqnifa, qqnwfa, avgpmtf, avgozcon, aextc55, taod5503d use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & @@ -60,7 +63,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) alwoutc,alwtoac,aswoutc,aswtoac,alwinc,aswinc,avgpotevp,snoavg, & ti,aod550,du_aod550,ss_aod550,su_aod550,oc_aod550,bc_aod550,prate_max,maod,dustpm10, & dustcb,bccb,occb,sulfcb,sscb,dustallcb,ssallcb,dustpm,sspm,pp25cb,pp10cb,no3cb,nh4cb,& - pwat, ebb, hwp + pwat, ebb, hwp, aqm_aod550 use soil, only: sldpth, sllevel, sh2o, smc, stc use masks, only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice use physcons_post, only: grav => con_g, fv => con_fvirt, rgas => con_rd, & @@ -75,7 +78,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) jsta_2l, jend_2u, nsoil, lp1, icu_physics, ivegsrc, novegtype, nbin_ss, nbin_bc, & nbin_oc, nbin_su, nbin_no3, nbin_nh4, gocart_on, nasa_on, pt_tbl, hyb_sigp, & filenameFlux, fileNameAER, & - iSF_SURFACE_PHYSICS,rdaod, aqfcmaq_on, modelname, & + iSF_SURFACE_PHYSICS,rdaod, modelname, aqf_on, & ista, iend, ista_2l, iend_2u,iend_m use gridspec_mod, only: maptype, gridtype, latstart, latlast, lonstart, lonlast, cenlon, & dxval, dyval, truelat2, truelat1, psmapf, cenlat,lonstartv, lonlastv, cenlonv, & @@ -188,197 +191,11 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) real :: dum_const real, allocatable :: extsmoke(:,:,:), extdust(:,:,:) -! AQF - - real, allocatable :: aacd(:,:,:), aalj(:,:,:) & - ,aalk1j(:,:,:), aalk2j(:,:,:) & - ,abnz1j(:,:,:), abnz2j(:,:,:), abnz3j(:,:,:) & - ,acaj(:,:,:), acet(:,:,:) & - ,acli(:,:,:), aclj(:,:,:), aclk(:,:,:) & - ,acors(:,:,:), acro_primary(:,:,:) & - ,acrolein(:,:,:), aeci(:,:,:) & - ,aecj(:,:,:), afej(:,:,:) & - ,aglyj(:,:,:) & - ,ah2oi(:,:,:), ah2oj(:,:,:), ah2ok(:,:,:) & - ,ah3opi(:,:,:), ah3opj(:,:,:), ah3opk(:,:,:) & - ,aiso1j(:,:,:), aiso2j(:,:,:), aiso3j(:,:,:) & - ,aivpo1j(:,:,:), akj(:,:,:) & - ,ald2(:,:,:), ald2_primary(:,:,:) & - ,aldx(:,:,:) & - ,alvoo1i(:,:,:), alvoo1j(:,:,:) & - ,alvoo2i(:,:,:), alvoo2j(:,:,:) & - ,alvpo1i(:,:,:), alvpo1j(:,:,:) & - ,amgj(:,:,:), amnj(:,:,:) & - ,amgk(:,:,:), akk(:,:,:), acak(:,:,:) & - ,anai(:,:,:), anaj(:,:,:), anak(:,:,:) & - ,anh4i(:,:,:), anh4j(:,:,:), anh4k(:,:,:) & - ,ano3i(:,:,:), ano3j(:,:,:), ano3k(:,:,:) & - ,aolgaj(:,:,:), aolgbj(:,:,:), aorgcj(:,:,:) & - ,aomi(:,:,:), aomj(:,:,:) & - ,aothri(:,:,:), aothrj(:,:,:) & - ,apah1j(:,:,:), apah2j(:,:,:), apah3j(:,:,:) & - ,apomi(:,:,:), apomj(:,:,:) & - ,apcsoj(:,:,:), aseacat(:,:,:), asij(:,:,:) & - ,aso4i(:,:,:), aso4j(:,:,:), aso4k(:,:,:) & - ,asoil(:,:,:), asqtj(:,:,:) & - ,asomi(:,:,:), asomj(:,:,:) & - ,asvoo1i(:,:,:), asvoo1j(:,:,:) & - ,asvoo2i(:,:,:), asvoo2j(:,:,:) & - ,asvoo3j(:,:,:) & - ,asvpo1i(:,:,:), asvpo1j(:,:,:) & - ,asvpo2i(:,:,:), asvpo2j(:,:,:) & - ,asvpo3j(:,:,:) & - ,atij(:,:,:) & - ,atol1j(:,:,:), atol2j(:,:,:), atol3j(:,:,:) & - ,atoti(:,:,:), atotj(:,:,:), atotk(:,:,:) & - ,atrp1j(:,:,:), atrp2j(:,:,:) & - ,axyl1j(:,:,:), axyl2j(:,:,:), axyl3j(:,:,:) & - ,pm25ac(:,:,:), pm25at(:,:,:), pm25co(:,:,:) - - if (modelname == 'FV3R') then allocate(extsmoke(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) allocate(extdust(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) endif - if (me == 0) print *,' aqfcmaq_on=', aqfcmaq_on - - if (aqfcmaq_on) then - - allocate(aacd(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aalj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aalk1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aalk2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(abnz1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(abnz2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(abnz3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(acaj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(acet(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(acli(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aclj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aclk(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(acors(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(acro_primary(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(acrolein(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aeci(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aecj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(afej(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aglyj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(ah2oi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ah2oj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ah2ok(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(ah3opi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ah3opj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ah3opk(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aiso1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aiso2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aiso3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aivpo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(akj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(ald2(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ald2_primary(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aldx(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(alvoo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(alvoo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(alvoo2i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(alvoo2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(alvpo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(alvpo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(amgj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(amnj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(anai(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(anaj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(anak(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(anh4i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(anh4j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(anh4k(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(ano3i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ano3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(ano3k(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aolgaj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aolgbj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aomi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aomj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aorgcj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aothri(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aothrj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(apah1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(apah2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(apah3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(apcsoj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(apomi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(apomj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aseacat(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asij(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(aso4i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aso4j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(aso4k(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asoil(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(asomi(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asomj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(asqtj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(asvoo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvoo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvoo2i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvoo2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvoo3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(asvpo1i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvpo1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvpo2i(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvpo2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(asvpo3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(atij(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(atol1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atol2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atol3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(atoti(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atotj(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atotk(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(atrp1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(atrp2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(axyl1j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(axyl2j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(axyl3j(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - allocate(pm25ac(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(pm25at(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - allocate(pm25co(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) - - endif - !*********************************************************************** ! START INIT HERE. ! @@ -1078,489 +895,31 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) ! ,cfr(isa,jsa,l),isa,jsa,l ! enddo -!============================= -! For AQF Chemical species -!============================= +!===================================== +! For AQF Hourly average field PM2.5 +!===================================== - if (aqfcmaq_on) then + if (aqf_on) then ! *********** VarName need to be in lower case ************ ! === It will cause problem if not use the lower case ===== ! ********************************************************* - !-------------------------------------------------------------- - !-- rename input o3 to NCO grib2 name ozcon ------------------- - - VarName='o3' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ozcon(ista_2l,jsta_2l,1),lm) - - !-------------------------------------------------------------- - - VarName='aacd' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aacd(ista_2l,jsta_2l,1),lm) - - VarName='aalj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aalj(ista_2l,jsta_2l,1),lm) - - VarName='aalk1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aalk1j(ista_2l,jsta_2l,1),lm) - - VarName='aalk2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aalk2j(ista_2l,jsta_2l,1),lm) - - VarName='abnz1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,abnz1j(ista_2l,jsta_2l,1),lm) - - VarName='abnz2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,abnz2j(ista_2l,jsta_2l,1),lm) - - VarName='abnz3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,abnz3j(ista_2l,jsta_2l,1),lm) - - VarName='acaj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,acaj(ista_2l,jsta_2l,1),lm) - - VarName='acet' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,acet(ista_2l,jsta_2l,1),lm) - - VarName='acli' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,acli(ista_2l,jsta_2l,1),lm) - - VarName='aclj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aclj(ista_2l,jsta_2l,1),lm) - - VarName='aclk' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aclk(ista_2l,jsta_2l,1),lm) - - VarName='acors' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,acors(ista_2l,jsta_2l,1),lm) - - VarName='acro_primary' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,acro_primary(ista_2l,jsta_2l,1),lm) - - VarName='acrolein' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,acrolein(ista_2l,jsta_2l,1),lm) - - VarName='aeci' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aeci(ista_2l,jsta_2l,1),lm) - - VarName='aecj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aecj(ista_2l,jsta_2l,1),lm) - - VarName='afej' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,afej(ista_2l,jsta_2l,1),lm) - - VarName='aglyj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aglyj(ista_2l,jsta_2l,1),lm) - - VarName='ah2oi' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ah2oi(ista_2l,jsta_2l,1),lm) - - VarName='ah2oj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ah2oj(ista_2l,jsta_2l,1),lm) - - VarName='ah2ok' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ah2ok(ista_2l,jsta_2l,1),lm) - - VarName='ah3opi' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ah3opi(ista_2l,jsta_2l,1),lm) - - VarName='ah3opj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ah3opj(ista_2l,jsta_2l,1),lm) - - VarName='ah3opk' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ah3opk(ista_2l,jsta_2l,1),lm) - - VarName='aiso1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aiso1j(ista_2l,jsta_2l,1),lm) - - VarName='aiso2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aiso2j(ista_2l,jsta_2l,1),lm) - - VarName='aiso3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aiso3j(ista_2l,jsta_2l,1),lm) - - VarName='aivpo1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aivpo1j(ista_2l,jsta_2l,1),lm) - - VarName='akj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,akj(ista_2l,jsta_2l,1),lm) - - VarName='ald2' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ald2(ista_2l,jsta_2l,1),lm) - - VarName='ald2_primary' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ald2_primary(ista_2l,jsta_2l,1),lm) - - VarName='aldx' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aldx(ista_2l,jsta_2l,1),lm) - - VarName='alvoo1i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alvoo1i(ista_2l,jsta_2l,1),lm) - - VarName='alvoo1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alvoo1j(ista_2l,jsta_2l,1),lm) - - VarName='alvoo2i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alvoo2i(ista_2l,jsta_2l,1),lm) - - VarName='alvoo2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alvoo2j(ista_2l,jsta_2l,1),lm) - - VarName='alvpo1i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alvpo1i(ista_2l,jsta_2l,1),lm) + !-- rename input o3_ave and pm25_ave to NCO grib2 name OZCON and PMTF - VarName='alvpo1j' + VarName='o3_ave' call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,alvpo1j(ista_2l,jsta_2l,1),lm) + spval,VarName,avgozcon(ista_2l,jsta_2l,1),lm) - VarName='amgj' + VarName='pm25_ave' call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,amgj(ista_2l,jsta_2l,1),lm) + spval,VarName,avgpmtf(ista_2l,jsta_2l,1),lm) - VarName='amnj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,amnj(ista_2l,jsta_2l,1),lm) - - VarName='anai' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,anai(ista_2l,jsta_2l,1),lm) - - VarName='anaj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,anaj(ista_2l,jsta_2l,1),lm) - - VarName='anh4i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,anh4i(ista_2l,jsta_2l,1),lm) - - VarName='anh4j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,anh4j(ista_2l,jsta_2l,1),lm) - - VarName='anh4k' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,anh4k(ista_2l,jsta_2l,1),lm) - - VarName='ano3i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ano3i(ista_2l,jsta_2l,1),lm) - - VarName='ano3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ano3j(ista_2l,jsta_2l,1),lm) - - VarName='ano3k' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,ano3k(ista_2l,jsta_2l,1),lm) - - VarName='aolgaj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aolgaj(ista_2l,jsta_2l,1),lm) - - VarName='aolgbj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aolgbj(ista_2l,jsta_2l,1),lm) - - VarName='aorgcj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aorgcj(ista_2l,jsta_2l,1),lm) - - VarName='aothri' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aothri(ista_2l,jsta_2l,1),lm) - - VarName='aothrj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aothrj(ista_2l,jsta_2l,1),lm) - - VarName='apah1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,apah1j(ista_2l,jsta_2l,1),lm) - - VarName='apah2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,apah2j(ista_2l,jsta_2l,1),lm) - - VarName='apah3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,apah3j(ista_2l,jsta_2l,1),lm) - - VarName='apcsoj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,apcsoj(ista_2l,jsta_2l,1),lm) - - VarName='aseacat' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aseacat(ista_2l,jsta_2l,1),lm) - - VarName='asij' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asij(ista_2l,jsta_2l,1),lm) - - VarName='aso4i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aso4i(ista_2l,jsta_2l,1),lm) - - VarName='aso4j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aso4j(ista_2l,jsta_2l,1),lm) - - VarName='aso4k' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,aso4k(ista_2l,jsta_2l,1),lm) - - VarName='asoil' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asoil(ista_2l,jsta_2l,1),lm) - - VarName='asqtj' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asqtj(ista_2l,jsta_2l,1),lm) - - VarName='asvoo1i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvoo1i(ista_2l,jsta_2l,1),lm) - - VarName='asvoo1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvoo1j(ista_2l,jsta_2l,1),lm) - - VarName='asvoo2i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvoo2i(ista_2l,jsta_2l,1),lm) - - VarName='asvoo2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvoo2j(ista_2l,jsta_2l,1),lm) - - VarName='asvoo3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvoo3j(ista_2l,jsta_2l,1),lm) - - VarName='asvpo1i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvpo1i(ista_2l,jsta_2l,1),lm) - - VarName='asvpo1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvpo1j(ista_2l,jsta_2l,1),lm) - - VarName='asvpo2i' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvpo2i(ista_2l,jsta_2l,1),lm) - - VarName='asvpo2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvpo2j(ista_2l,jsta_2l,1),lm) - - VarName='asvpo3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,asvpo3j(ista_2l,jsta_2l,1),lm) - - VarName='atij' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,atij(ista_2l,jsta_2l,1),lm) - - VarName='atol1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,atol1j(ista_2l,jsta_2l,1),lm) - - VarName='atol2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,atol2j(ista_2l,jsta_2l,1),lm) - - VarName='atol3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,atol3j(ista_2l,jsta_2l,1),lm) - - VarName='atrp1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,atrp1j(ista_2l,jsta_2l,1),lm) - - VarName='atrp2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,atrp2j(ista_2l,jsta_2l,1),lm) - - VarName='axyl1j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,axyl1j(ista_2l,jsta_2l,1),lm) - - VarName='axyl2j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,axyl2j(ista_2l,jsta_2l,1),lm) - - VarName='axyl3j' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,axyl3j(ista_2l,jsta_2l,1),lm) - - VarName='pm25ac' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pm25ac(ista_2l,jsta_2l,1),lm) - - VarName='pm25at' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pm25at(ista_2l,jsta_2l,1),lm) - - VarName='pm25co' - call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,pm25co(ista_2l,jsta_2l,1),lm) - -!========================= -! PM2.5 SPECIES -!========================= - - ! do l=1,lm - ! do j=jsta,jend - ! do i=ista,iend - ! pm25hp(i,j,l) = ( ah3opi(i,j,l)*pm25at(i,j,l) & - ! + ah3opj(i,j,l)*pm25ac(i,j,l) & - ! + ah3opk(i,j,l)*pm25co(i,j,l) ) / 19.0 - - ! pm25cl(i,j,l) = acli(i,j,l)*pm25at(i,j,l) & - ! + aclj(i,j,l)*pm25ac(i,j,l) & - ! + aclk(i,j,l)*pm25co(i,j,l) - - ! pm25ec(i,j,l) = aeci(i,j,l)*pm25at(i,j,l) & - ! + aecj(i,j,l)*pm25ac(i,j,l) - ! enddo - ! enddo - ! enddo - - - ! do l=1,lm - ! do j=jsta,jend - ! do i=ista,iend - - ! anak(i,j,l) = 0.8373 * aseacat(i,j,l) & - ! + 0.0626 * asoil(i,j,l) & - ! + 0.0023 * acors(i,j,l) - - ! pm25na(i,j,l) = anai(i,j,l)*pm25at(i,j,l) & - ! + anaj(i,j,l)*pm25ac(i,j,l) & - ! + anak(i,j,l)*pm25co(i,j,l) - ! enddo - ! enddo - ! enddo - - do l=1,lm - do j=jsta,jend - do i=ista,iend - - apomi(i,j,l) = alvpo1i(i,j,l) & - +asvpo1i(i,j,l) + asvpo2i(i,j,l) - - apomj(i,j,l) = alvpo1j(i,j,l) & - +asvpo1j(i,j,l) + asvpo2j(i,j,l) + asvpo3j(i,j,l) & - +aivpo1j(i,j,l) - - asomi(i,j,l) = alvoo1i(i,j,l) + alvoo2i(i,j,l) & - +asvoo1i(i,j,l) + asvoo2i(i,j,l) - - asomj(i,j,l) = axyl1j(i,j,l) + axyl2j(i,j,l) + axyl3j(i,j,l) & - +atol1j(i,j,l) + atol2j(i,j,l) + atol3j(i,j,l) & - +abnz1j(i,j,l) + abnz2j(i,j,l) + abnz3j(i,j,l) & - +aiso1j(i,j,l) + aiso2j(i,j,l) + aiso3j(i,j,l) & - +atrp1j(i,j,l) + atrp2j(i,j,l) + asqtj(i,j,l) & - +aalk1j(i,j,l) + aalk2j(i,j,l) & - +apah1j(i,j,l) + apah2j(i,j,l) + apah3j(i,j,l) & - +aorgcj(i,j,l) + aolgbj(i,j,l) + aolgaj(i,j,l) & - +alvoo1j(i,j,l) + alvoo2j(i,j,l) & - +asvoo1j(i,j,l) + asvoo2j(i,j,l) + asvoo3j(i,j,l) & - +apcsoj(i,j,l) - - aomi(i,j,l) = apomi(i,j,l) + asomi(i,j,l) - aomj(i,j,l) = apomj(i,j,l) + asomj(i,j,l) - - atoti(i,j,l) = aso4i(i,j,l) + ano3i(i,j,l) + anh4i(i,j,l) & - + anai(i,j,l) + acli(i,j,l) + aeci(i,j,l) & - + aomi(i,j,l) +aothri(i,j,l) - - atotj(i,j,l) = aso4j(i,j,l) + ano3j(i,j,l) + anh4j(i,j,l) & - + anaj(i,j,l) + aclj(i,j,l) + aecj(i,j,l) & - + aomj(i,j,l) +aothrj(i,j,l) & - + afej(i,j,l) + asij(i,j,l) + atij(i,j,l) & - + acaj(i,j,l) + amgj(i,j,l) + amnj(i,j,l) & - + aalj(i,j,l) + akj(i,j,l) - - atotk(i,j,l) = asoil(i,j,l) + acors(i,j,l) + aseacat(i,j,l)& - + aclk(i,j,l) & - +aso4k(i,j,l) + ano3k(i,j,l) + anh4k(i,j,l) - - pmtf(i,j,l) = atoti(i,j,l)*pm25at(i,j,l) & - + atotj(i,j,l)*pm25ac(i,j,l) & - + atotk(i,j,l)*pm25co(i,j,l) - enddo - enddo - enddo - - deallocate (aacd, aalj, aalk1j, aalk2j, abnz1j, abnz2j, abnz3j) - deallocate (acaj, acet, acli, aclj, aclk) - deallocate (acors, acro_primary, acrolein) - - deallocate (aeci, aecj, afej, aglyj, ah2oi, ah2oj, ah2ok) - deallocate (ah3opi, ah3opj, ah3opk, aiso1j, aiso2j, aiso3j) - - deallocate (aivpo1j, akj, ald2, ald2_primary, aldx) - deallocate (alvoo1i, alvoo1j, alvoo2i, alvoo2j, alvpo1i, alvpo1j) - - deallocate (amgj, amnj, anai, anaj, anak) - deallocate (anh4i, anh4j, anh4k, ano3i, ano3j, ano3k) - - deallocate (aolgaj, aolgbj, aomi, aomj) - deallocate (aorgcj, aothri, aothrj, apah1j, apah2j, apah3j) - - deallocate (apcsoj, apomi, apomj, aseacat, asij) - deallocate (aso4i, aso4j, aso4k, asoil, asomi, asomj, asqtj) - - deallocate (asvoo1i, asvoo1j, asvoo2i, asvoo2j, asvoo3j) - deallocate (asvpo1i, asvpo1j, asvpo2i, asvpo2j, asvpo3j) - - deallocate (atij, atol1j, atol2j, atol3j, atrp1j, atrp2j) - deallocate (atoti, atotj, atotk, axyl1j, axyl2j, axyl3j) - - deallocate (pm25ac, pm25at, pm25co) + VarName='aod' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,aqm_aod550(ista_2l,jsta_2l)) - endif ! -- aqfcmaq_on + endif ! -- aqf_on !============================ ! read for regional FV3 diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index 5cca14b8f..262085bd9 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -46,6 +46,7 @@ !! 21-07-07 J MENG - 2D DECOMPOSITION !! 22-09-22 L Zhang - ADD NO3 and NH4 output for UFS-Aerosols model !! 22-10-20 W Meng - Bug fix for cloud fraction and vertically integrated liquid +!! 22-11-08 W Meng - Output hourly averaged PM2.5 and O3 for AQM model only (aqf_on) !! 22-11-16 E James - Adding dust from RRFS !! !! USAGE: CALL MDLFLD @@ -89,7 +90,7 @@ SUBROUTINE MDLFLD qqr, qqs, cfr, cfr_raw, dbz, dbzr, dbzi, dbzc, qqw, nlice, nrain, qqg, zint, qqni,& qqnr, qqnw, qqnwfa, qqnifa, uh, vh, mcvg, omga, wh, q2, ttnd, rswtt, & rlwtt, train, tcucn, o3, rhomid, dpres, el_pbl, pint, icing_gfip, icing_gfis, & - catedr,mwt,gtg, REF_10CM, pmtf, ozcon + catedr,mwt,gtg, REF_10CM, avgpmtf, avgozcon use vrbls2d, only: slp, hbot, htop, cnvcfr, cprate, cnvcfr, sfcshx,sfclhx,ustar,z0,& sr, prec, vis, czen, pblh, pblhgust, u10, v10, avgprec, avgcprate, & @@ -102,7 +103,7 @@ SUBROUTINE MDLFLD use ctlblk_mod, only: jsta_2l, jend_2u, lm, jsta, jend, grib, cfld, datapd,& fld_info, modelname, imp_physics, dtq2, spval, icount_calmict,& me, dt, avrain, theat, ifhr, ifmin, avcnvc, lp1, im, jm, & - ista, iend, ista_2l, iend_2u, aqfcmaq_on, gocart_on, nasa_on + ista, iend, ista_2l, iend_2u, aqf_on, gocart_on, nasa_on use rqstfld_mod, only: iget, id, lvls, iavblfld, lvlsxml use gridspec_mod, only: gridtype,maptype,dxval use upp_physics, only: CALRH, CALCAPE, CALVOR @@ -2237,7 +2238,7 @@ SUBROUTINE MDLFLD ! AQF !=============== - if (aqfcmaq_on) then + if (aqf_on) then IF (IGET(994)>0) THEN IF (LVLS(L,IGET(994))>0) THEN @@ -2245,14 +2246,32 @@ SUBROUTINE MDLFLD !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=ISTA,IEND - GRID1(I,J) = OZCON(I,J,LL)*1000. ! convert ppm to ppb + IF(AVGOZCON(I,J,LL)ug/m3 + GRID1(I,J) = AVGPMTF(I,J,LL) !ug/m3 ENDDO ENDDO - + ID(1:25) = 0 + ITHEAT = INT(THEAT) + ID(19) = IFHR + ID(20) = 3 + IF (IFHR==0) THEN + ID(18) = 0 + ELSE + ID(18) = IFHR-1 + ENDIF if(grib=="grib2") then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(995)) fld_info(cfld)%lvl=LVLSXML(L,IGET(995)) + if(IFHR==0) then + fld_info(cfld)%ntrange=0 + else + fld_info(cfld)%ntrange=1 + endif + fld_info(cfld)%tinvstat=IFHR-ID(18) !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index c05aa0420..1f008f6cb 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -95,6 +95,9 @@ module vrbls2d ,DUSTCB(:,:),SSCB(:,:),OCCB(:,:),BCCB(:,:),SULFCB(:,:) & ,DUSTALLCB(:,:),SSALLCB(:,:),DUSTPM(:,:),SSPM(:,:),PP25CB(:,:) & ,DUSTPM10(:,:),PP10CB(:,:),NO3CB(:,:),NH4CB(:,:),maod(:,:)!lzhang, add for FV3-Chem + +! Add new field for AQM + real, allocatable :: aqm_aod550(:,:) ! end module vrbls2d diff --git a/sorc/ncep_post.fd/VRBLS3D_mod.f b/sorc/ncep_post.fd/VRBLS3D_mod.f index f27428f3a..cfa22592e 100644 --- a/sorc/ncep_post.fd/VRBLS3D_mod.f +++ b/sorc/ncep_post.fd/VRBLS3D_mod.f @@ -82,6 +82,6 @@ module vrbls3d ,catedr(:,:,:),mwt(:,:,:),gtg(:,:,:) & ! AQF - ,ozcon(:,:,:),pmtf(:,:,:) + ,avgozcon(:,:,:),avgpmtf(:,:,:) end module vrbls3d diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index c06be8647..37e8d42f6 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -29,6 +29,7 @@ !> 2022-01-14 | W Meng | Remove interfaces INITPOST_GS_NEMS, INITPOST_NEMS_MPIIO, INITPOST_NMM and INITPOST_GFS_NETCDF !> 2022-03-15 | W Meng | Unify FV3 based interfaces !> 2022-09-22 | L Zhang | Add option of nasa_on to process ufs-aerosols +!> 2022-11-08 | K Wang | Replace aqfamaq_on with aqf_on !> !> @author Mike Bladwin NSSL/SPC @date 2002-06-18 PROGRAM WRFPOST @@ -116,7 +117,7 @@ PROGRAM WRFPOST lsm, fld_info, etafld2_tim, eta2p_tim, mdl2sigma_tim, cldrad_tim, miscln_tim, & mdl2agl_tim, mdl2std_tim, mdl2thandpv_tim, calrad_wcloud_tim,nasa_on, & fixed_tim, time_output, imin, surfce2_tim, komax, ivegsrc, d3d_on, gocart_on,rdaod, & - readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqfcmaq_on,numx + readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqf_on,numx use grib2_module, only: gribit2,num_pset,nrecout,first_grbtbl,grib_info_finalize !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none @@ -142,7 +143,7 @@ PROGRAM WRFPOST integer :: kpo,kth,kpv real,dimension(komax) :: po,th,pv namelist/nampgb/kpo,po,kth,th,kpv,pv,fileNameAER,d3d_on,gocart_on,nasa_on,popascal & - ,hyb_sigp,rdaod,aqfcmaq_on,vtimeunits,numx + ,hyb_sigp,rdaod,aqf_on,vtimeunits,numx integer :: itag_ierr namelist/model_inputs/fileName,IOFORM,grib,DateStr,MODELNAME,SUBMODELNAME & ,fileNameFlux,fileNameFlat @@ -261,7 +262,7 @@ PROGRAM WRFPOST d3d_on = .false. gocart_on = .false. nasa_on = .false. - aqfcmaq_on = .false. + aqf_on = .false. popascal = .false. fileNameAER = '' rdaod = .false. From 7a8cfc32294c6c1a2c4a4e4c1d24f3f939473f06 Mon Sep 17 00:00:00 2001 From: camshe <99755341+camshe@users.noreply.github.com> Date: Thu, 15 Dec 2022 14:38:56 -0500 Subject: [PATCH 087/107] github links (#605) * github links * remove DTC --- docs/AddNewVariable.rst | 6 +++--- docs/CodeOverview.rst | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/docs/AddNewVariable.rst b/docs/AddNewVariable.rst index 362216e72..293c89536 100644 --- a/docs/AddNewVariable.rst +++ b/docs/AddNewVariable.rst @@ -20,8 +20,8 @@ NOAA UPP developers who wish to add new variables to the UPP, please follow the Hui-Ya Chuang). UPP supports many NOAA operational models and we can not change operational products without coordination and advanced notices. -We encourage non NOAA UPP developers to contact the Developmental Testbed Center (DTC) via the UPP -`forum `_ to make them aware of modifications you +We encourage non NOAA UPP developers to contact EPIC via +`GitHub Discussions `_ to make them aware of modifications you are making. In some cases, if they determine the changes you are making may be relevant for operational and/or community purposes, they will be interested in incorporating your changes into the code base for support and future release. We would then work with you to make this possible. @@ -53,7 +53,7 @@ with examples in the sections below. c. Save new params_grib2_tbl_new.text and params_grib2_tbl_new under parm/ of your UPP working version. - d. Other users please coordinate through the DTC for the above three steps. + d. Other users please coordinate through EPIC for the above three steps. e. Add a new entry in post_avblflds.xml with your new variable, then follow step B), then step 2) and beyond. You should assign a new UPP ID for your new variable. diff --git a/docs/CodeOverview.rst b/docs/CodeOverview.rst index b06efdb08..a9689bc19 100644 --- a/docs/CodeOverview.rst +++ b/docs/CodeOverview.rst @@ -30,4 +30,4 @@ Examples of UPP products include: A full list of fields that can be generated by the UPP is provided in :doc:`UPP_GRIB2_Table`. -Support for the community UPP is provided through the `UFS Forum `_. +Support for the community UPP is provided through `GitHub Discussions `_. From 6212162ef60ba3c9db9c6d04b251b2584b5dcfdf Mon Sep 17 00:00:00 2001 From: LinZhu-NOAA Date: Fri, 16 Dec 2022 10:17:23 -0500 Subject: [PATCH 088/107] remove MAX_PRATE_ON_SURFACE, add ACM_ACPCP_ON_SURFACE for hafs_nosat (#604) * remove MAX_PRATE_ON_SURFACE, add ACM_ACPCP_ON_SURFACE for hafs_nosat * update wcoss2 g2tmpl version --- modulefiles/wcoss2.lua | 2 +- parm/postcntrl_hafs_nosat.xml | 12 ++--- parm/postxconfig-NT-hafs_nosat.txt | 74 +++++++++++++++--------------- 3 files changed, 44 insertions(+), 44 deletions(-) diff --git a/modulefiles/wcoss2.lua b/modulefiles/wcoss2.lua index dd01323b2..ac3dc9dd8 100644 --- a/modulefiles/wcoss2.lua +++ b/modulefiles/wcoss2.lua @@ -24,7 +24,7 @@ load(pathJoin("libpng", libpng_ver)) load(pathJoin("zlib", zlib_ver)) g2_ver=os.getenv("g2_ver") or "3.4.5" -g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.0" +g2tmpl_ver=os.getenv("g2tmpl_ver") or "1.10.2" bacio_ver=os.getenv("bacio_ver") or "2.4.1" ip_ver=os.getenv("ip_ver") or "3.3.3" sp_ver=os.getenv("sp_ver") or "2.3.3" diff --git a/parm/postcntrl_hafs_nosat.xml b/parm/postcntrl_hafs_nosat.xml index 12746980c..3f8f4ec9a 100755 --- a/parm/postcntrl_hafs_nosat.xml +++ b/parm/postcntrl_hafs_nosat.xml @@ -246,6 +246,12 @@ -4.0 + + ACM_ACPCP_ON_SURFACE + ACPCP + -4.0 + + ACM_NCPCP_ON_SURFACE NCPCP @@ -502,12 +508,6 @@ 5.0 - - MAX_PRATE_ON_SURFACE - PRATE - 6.0 - - MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m WIND diff --git a/parm/postxconfig-NT-hafs_nosat.txt b/parm/postxconfig-NT-hafs_nosat.txt index 9a330bb20..8c8492d0f 100644 --- a/parm/postxconfig-NT-hafs_nosat.txt +++ b/parm/postxconfig-NT-hafs_nosat.txt @@ -1163,6 +1163,43 @@ surface ? ? ? +33 +ACM_ACPCP_ON_SURFACE +? +1 +tmpl4_8 +ACPCP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? 34 ACM_NCPCP_ON_SURFACE ? @@ -2606,43 +2643,6 @@ entire_atmos_single_lyr ? ? ? -508 -MAX_PRATE_ON_SURFACE -Maximum Precipitation Rate on surface -1 -tmpl4_8 -PRATE -? -MAX -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? 422 MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m maximum wind speed on 10 meter Above Ground From 5dd804d1d29ab9528dd0db2ea7c0f936909b4735 Mon Sep 17 00:00:00 2001 From: EricJames-NOAA Date: Mon, 19 Dec 2022 10:35:30 -0700 Subject: [PATCH 089/107] Small updates for RRFS snow variables (#601) * Bug fixes for RRFS snow accumulation variables. * Adding check to only divide var density snow by 1000 if we are dealing with RRFS. * Bug fix for missing endif * Updating RRFS control files to make MAXUVV and MAXDVV GRIB2 labeling consistent with calculation in FV3. * Correcting missed MAXUVV / MAXDVV fields in NATLEV files. --- parm/fv3lam.xml | 8 ++-- parm/fv3lam_rrfs.xml | 13 ++++-- parm/post_avblflds.xml | 12 +++--- parm/postxconfig-NT-fv3lam.txt | 8 ++-- parm/postxconfig-NT-fv3lam_rrfs.txt | 63 +++++++++++++++++++++++------ sorc/ncep_post.fd/INITPOST_NETCDF.f | 28 ++++++++++++- sorc/ncep_post.fd/SURFCE.f | 14 +++++-- 7 files changed, 110 insertions(+), 36 deletions(-) diff --git a/parm/fv3lam.xml b/parm/fv3lam.xml index 2e78a58a5..853973dd7 100755 --- a/parm/fv3lam.xml +++ b/parm/fv3lam.xml @@ -1703,7 +1703,7 @@ - MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa MAXUVV NCEP isobaric_sfc @@ -1712,7 +1712,7 @@ - MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa MAXDVV NCEP isobaric_sfc @@ -2074,7 +2074,7 @@ - MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa MAXUVV NCEP isobaric_sfc @@ -2083,7 +2083,7 @@ - MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa MAXDVV NCEP isobaric_sfc diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index b96977d87..2cf4a76c6 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -534,6 +534,11 @@ 6.0 + + GSD_ACM_SNOD_ON_SURFACE + 5.0 + + SMDRY_ON_SURFACE SMDRY @@ -1720,14 +1725,14 @@ - MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa MAXUVV NCEP -3.0 - MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa MAXDVV NCEP -3.0 @@ -2161,14 +2166,14 @@ - MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa MAXUVV NCEP -3.0 - MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa MAXDVV NCEP -3.0 diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 42f61113d..621b2d883 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -3678,30 +3678,30 @@ 423 - MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Upward Vertical Velocity between 100-1000hpa tmpl4_8 MAXUVV NCEP MAX - spec_pres_above_grnd + isobaric_sfc 10000. - spec_pres_above_grnd + isobaric_sfc 100000. -3.0 424 - MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa + MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Downward Vertical Velocity between 100-1000hpa tmpl4_8 MAXDVV MAX NCEP - spec_pres_above_grnd + isobaric_sfc 10000. - spec_pres_above_grnd + isobaric_sfc 100000. -3.0 diff --git a/parm/postxconfig-NT-fv3lam.txt b/parm/postxconfig-NT-fv3lam.txt index 0e0401d86..baf81d216 100644 --- a/parm/postxconfig-NT-fv3lam.txt +++ b/parm/postxconfig-NT-fv3lam.txt @@ -9009,7 +9009,7 @@ spec_hgt_lvl_above_grnd ? ? 423 -MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Upward Vertical Velocity between 100-1000hpa 1 tmpl4_8 @@ -9046,7 +9046,7 @@ isobaric_sfc ? ? 424 -MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Downward Vertical Velocity between 100-1000hpa 1 tmpl4_8 @@ -10801,7 +10801,7 @@ surface ? ? 423 -MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Upward Vertical Velocity between 100-1000hpa 1 tmpl4_8 @@ -10838,7 +10838,7 @@ isobaric_sfc ? ? 424 -MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Downward Vertical Velocity between 100-1000hpa 1 tmpl4_8 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index fb436bdd7..273cc9c54 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,6 +1,6 @@ 2 241 -283 +284 PRSLEV 32769 ncep_nco @@ -2681,6 +2681,43 @@ surface ? ? ? +725 +GSD_ACM_SNOD_ON_SURFACE +? +1 +tmpl4_8 +ASNOW +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +5.0 +0 +0 +0 +? +? +? 232 SMDRY_ON_SURFACE ? @@ -9305,19 +9342,19 @@ spec_hgt_lvl_above_grnd ? ? 423 -MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Upward Vertical Velocity between 100-1000hpa 1 tmpl4_8 MAXUVV NCEP MAX -spec_pres_above_grnd +isobaric_sfc 0 ? 1 10000. -spec_pres_above_grnd +isobaric_sfc 0 ? 1 @@ -9342,19 +9379,19 @@ spec_pres_above_grnd ? ? 424 -MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Downward Vertical Velocity between 100-1000hpa 1 tmpl4_8 MAXDVV NCEP MAX -spec_pres_above_grnd +isobaric_sfc 0 ? 1 10000. -spec_pres_above_grnd +isobaric_sfc 0 ? 1 @@ -11689,19 +11726,19 @@ surface ? ? 423 -MAX_MAXUVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Upward Vertical Velocity between 100-1000hpa 1 tmpl4_8 MAXUVV NCEP MAX -spec_pres_above_grnd +isobaric_sfc 0 ? 1 10000. -spec_pres_above_grnd +isobaric_sfc 0 ? 1 @@ -11726,19 +11763,19 @@ spec_pres_above_grnd ? ? 424 -MAX_MAXDVV_ON_SPEC_PRES_LVL_ABOVE_GRND_100-1000hpa +MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa hourly maximum Downward Vertical Velocity between 100-1000hpa 1 tmpl4_8 MAXDVV NCEP MAX -spec_pres_above_grnd +isobaric_sfc 0 ? 1 10000. -spec_pres_above_grnd +isobaric_sfc 0 ? 1 diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index a803ef6f9..187067fc5 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -43,7 +43,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) wh, qqg, ref_10cm, qqnifa, qqnwfa, avgpmtf, avgozcon, aextc55, taod5503d use vrbls2d, only: f, pd, fis, pblh, ustar, z0, ths, qs, twbs, qwbs, avgcprate, & - cprate, avgprec, prec, lspa, sno, si, cldefi, th10, q10, tshltr, pshltr, & + cprate, avgprec, prec, lspa, sno, sndepac, si, cldefi, th10, q10, tshltr, pshltr, & tshltr, albase, avgalbedo, avgtcdc, czen, czmean, mxsnal, landfrac, radot, sigt4, & cfrach, cfracl, cfracm, avgcfrach, qshltr, avgcfracl, avgcfracm, cnvcfr, & islope, cmc, grnflx, vegfrc, acfrcv, ncfrcv, acfrst, ncfrst, ssroff, & @@ -165,6 +165,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) real*8, allocatable :: pm2d(:,:), pi2d(:,:) real, allocatable :: tmp(:) real :: buf(ista_2l:iend_2u,jsta_2l:jend_2u) + real :: buf2(ista_2l:iend_2u,jsta_2l:jend_2u) real :: buf3d(ista_2l:iend_2u,jsta_2l:jend_2u,lm) real :: chem_2d(ista_2l:iend_2u,jsta_2l:jend_2u) real :: chemT(ista_2l:iend_2u,jsta_2l:jend_2u,lm) @@ -2783,13 +2784,36 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) smstav(i,j) = buf(i,j) enddo enddo + VarName='accswe_land' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf) + VarName='accswe_ice' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf2) +!$omp parallel do private(i,j) + do j = jsta_2l, jend_2u + do i=ista,iend + acsnow(i,j) = buf(i,j) + buf2(i,j) + enddo + enddo + VarName='snacc_land' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf) + VarName='snacc_ice' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,buf2) +!$omp parallel do private(i,j) + do j = jsta_2l, jend_2u + do i=ista,iend + sndepac(i,j) = buf(i,j) + buf2(i,j) + enddo + enddo !$omp parallel do private(i,j) do j=jsta_2l,jend_2u do i=ista_2l,iend_2u ! smstav(i,j) = spval ! GFS does not have soil moisture availability ! smstot(i,j) = spval ! GFS does not have total soil moisture sfcevp(i,j) = spval ! GFS does not have accumulated surface evaporation - acsnow(i,j) = spval ! GFS does not have averaged accumulated snow acsnom(i,j) = spval ! GFS does not have snow melt ! sst(i,j) = spval ! GFS does not have sst???? thz0(i,j) = ths(i,j) ! GFS does not have THZ0, use THS to substitute diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index d2fd2fc26..bba111b86 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -469,13 +469,21 @@ SUBROUTINE SURFCE cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(725)) fld_info(cfld)%ntrange=1 - fld_info(cfld)%tinvstat=IFHR-ID(18) + fld_info(cfld)%tinvstat=IFHR !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 do i=1,iend-ista+1 ii = ista+i-1 - datapd(i,j,cfld) = SNDEPAC(ii,jj) + if(SNDEPAC(ii,jj) Date: Fri, 23 Dec 2022 14:50:23 -0500 Subject: [PATCH 090/107] Six new winter weather diags (#600) * read in six new winter weather diags, allocate, deallocate,and add new vrbs (3 of them), plus for continuous fields modify timestamp for FV3R and GFS and add fields to the GFS and fv3lam xml and flat files. * Rename winter wx diags * removed log file * remove six winter wx diags from f00 file * remove winter weather diags from gfs f00 xml and txt files * Add one line to both acfrain and acgraup sections to ensure the correct time stamp in grib2 file for accumulated fields. * Add change log to SURFCE.f and INITPOST_NETCDF.f --- parm/fv3lam.xml | 30 ++++ parm/fv3lam_rrfs.xml | 30 ++++ parm/post_avblflds.xml | 31 ++++ parm/postcntrl_gfs.xml | 30 ++++ parm/postcntrl_gfs_two.xml | 30 ++++ parm/postxconfig-NT-GFS-TWO.txt | 224 +++++++++++++++++++++++++++- parm/postxconfig-NT-GFS.txt | 224 +++++++++++++++++++++++++++- parm/postxconfig-NT-fv3lam.txt | 224 +++++++++++++++++++++++++++- parm/postxconfig-NT-fv3lam_rrfs.txt | 224 +++++++++++++++++++++++++++- sorc/ncep_post.fd/ALLOCATE_ALL.f | 3 + sorc/ncep_post.fd/DEALLOCATE.f | 3 + sorc/ncep_post.fd/INITPOST_NETCDF.f | 33 +++- sorc/ncep_post.fd/SURFCE.f | 159 ++++++++++++++++++++ sorc/ncep_post.fd/VRBLS2D_mod.f | 1 + 14 files changed, 1241 insertions(+), 5 deletions(-) diff --git a/parm/fv3lam.xml b/parm/fv3lam.xml index 853973dd7..1ed55aab2 100755 --- a/parm/fv3lam.xml +++ b/parm/fv3lam.xml @@ -740,6 +740,36 @@ -4.0 + + ACM_GRAUPEL_ON_SURFACE + 6.0 + + + + BUCKET_GRAUPEL_ON_SURFACE + 6.0 + + + + ACM_FRAIN_ON_SURFACE + 6.0 + + + + BUCKET_FRAIN_ON_SURFACE + 6.0 + + + + ACM_SNOWFALL_ON_SURFACE + 6.0 + + + + BUCKET_SNOWFALL_ON_SURFACE + 6.0 + + ACM_NCPCP_ON_SURFACE NCPCP diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index 2cf4a76c6..2f961ff51 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -692,6 +692,36 @@ -4.0 + + ACM_GRAUPEL_ON_SURFACE + 6.0 + + + + BUCKET_GRAUPEL_ON_SURFACE + 6.0 + + + + ACM_FRAIN_ON_SURFACE + 6.0 + + + + BUCKET_FRAIN_ON_SURFACE + 6.0 + + + + ACM_SNOWFALL_ON_SURFACE + 6.0 + + + + BUCKET_SNOWFALL_ON_SURFACE + 6.0 + + ACM_NCPCP_ON_SURFACE NCPCP diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 621b2d883..77675b46b 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -8160,5 +8160,36 @@ surface 3.0 + + + 1003 + BUCKET_FRAIN_ON_SURFACE + tmpl4_8 + FRZR + NCEP + ACM + surface + 4.0 + + + + 1004 + ACM_SNOWFALL_ON_SURFACE + tmpl4_8 + TSNOWP + ACM + surface + 4.0 + + + + 1005 + BUCKET_SNOWFALL_ON_SURFACE + tmpl4_8 + TSNOWP + ACM + surface + 4.0 + diff --git a/parm/postcntrl_gfs.xml b/parm/postcntrl_gfs.xml index 9d79cdbe9..8ad9f86ea 100755 --- a/parm/postcntrl_gfs.xml +++ b/parm/postcntrl_gfs.xml @@ -1159,6 +1159,36 @@ 3.0 + + ACM_GRAUPEL_ON_SURFACE + 6.0 + + + + BUCKET_GRAUPEL_ON_SURFACE + 6.0 + + + + ACM_FRAIN_ON_SURFACE + 4.0 + + + + BUCKET_FRAIN_ON_SURFACE + 4.0 + + + + ACM_SNOWFALL_ON_SURFACE + 4.0 + + + + BUCKET_SNOWFALL_ON_SURFACE + 4.0 + + AER_OPT_GFS_at550 9.0 diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml index c3edbb94f..2c8613c6f 100755 --- a/parm/postcntrl_gfs_two.xml +++ b/parm/postcntrl_gfs_two.xml @@ -1159,6 +1159,36 @@ 3.0 + + ACM_GRAUPEL_ON_SURFACE + 6.0 + + + + BUCKET_GRAUPEL_ON_SURFACE + 6.0 + + + + ACM_FRAIN_ON_SURFACE + 4.0 + + + + BUCKET_FRAIN_ON_SURFACE + 4.0 + + + + ACM_SNOWFALL_ON_SURFACE + 4.0 + + + + BUCKET_SNOWFALL_ON_SURFACE + 4.0 + + AER_OPT_GFS_at550 9.0 diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt index ea053e5f7..16ae86598 100644 --- a/parm/postxconfig-NT-GFS-TWO.txt +++ b/parm/postxconfig-NT-GFS-TWO.txt @@ -1,6 +1,6 @@ 2 112 -203 +209 GFSPRS 0 ncep_nco @@ -7306,6 +7306,228 @@ surface ? ? ? +746 +ACM_GRAUPEL_ON_SURFACE +? +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +775 +BUCKET_GRAUPEL_ON_SURFACE +bucket graupel precipitation on surface +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +782 +ACM_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1003 +BUCKET_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1004 +ACM_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1005 +BUCKET_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? 600 AER_OPT_GFS_at550 ? diff --git a/parm/postxconfig-NT-GFS.txt b/parm/postxconfig-NT-GFS.txt index faf8aa0c3..ee9f0db08 100644 --- a/parm/postxconfig-NT-GFS.txt +++ b/parm/postxconfig-NT-GFS.txt @@ -1,5 +1,5 @@ 1 -203 +209 GFSPRS 0 ncep_nco @@ -7305,6 +7305,228 @@ surface ? ? ? +746 +ACM_GRAUPEL_ON_SURFACE +? +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +775 +BUCKET_GRAUPEL_ON_SURFACE +bucket graupel precipitation on surface +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +782 +ACM_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1003 +BUCKET_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1004 +ACM_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1005 +BUCKET_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? 600 AER_OPT_GFS_at550 ? diff --git a/parm/postxconfig-NT-fv3lam.txt b/parm/postxconfig-NT-fv3lam.txt index baf81d216..db3ccdde6 100644 --- a/parm/postxconfig-NT-fv3lam.txt +++ b/parm/postxconfig-NT-fv3lam.txt @@ -1,6 +1,6 @@ 2 219 -258 +264 PRSLEV 32769 ncep_nco @@ -3643,6 +3643,228 @@ surface ? ? ? +746 +ACM_GRAUPEL_ON_SURFACE +? +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +775 +BUCKET_GRAUPEL_ON_SURFACE +bucket graupel precipitation on surface +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +782 +ACM_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +1003 +BUCKET_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +1004 +ACM_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +1005 +BUCKET_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? 34 ACM_NCPCP_ON_SURFACE ? diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index 273cc9c54..790bb1209 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,6 +1,6 @@ 2 241 -284 +290 PRSLEV 32769 ncep_nco @@ -3458,6 +3458,228 @@ surface ? ? ? +746 +ACM_GRAUPEL_ON_SURFACE +? +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +775 +BUCKET_GRAUPEL_ON_SURFACE +bucket graupel precipitation on surface +1 +tmpl4_8 +FROZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +782 +ACM_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +1003 +BUCKET_FRAIN_ON_SURFACE +? +1 +tmpl4_8 +FRZR +NCEP +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +1004 +ACM_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? +1005 +BUCKET_SNOWFALL_ON_SURFACE +? +1 +tmpl4_8 +TSNOWP +? +ACM +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? 34 ACM_NCPCP_ON_SURFACE ? diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 429ccb21d..84c35bd5b 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -581,6 +581,9 @@ SUBROUTINE ALLOCATE_ALL() allocate(snow_bucket1(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(graup_bucket(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(graup_bucket1(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(frzrn_bucket(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snow_acm(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(snow_bkt(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(qrmax(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(tmax(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(snownc(ista_2l:iend_2u,jsta_2l:jend_2u)) diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index 658febca4..4c0c0d094 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -384,6 +384,9 @@ SUBROUTINE DE_ALLOCATE deallocate(snow_bucket1) deallocate(graup_bucket) deallocate(graup_bucket1) + deallocate(frzrn_bucket) + deallocate(snow_acm) + deallocate(snow_bkt) deallocate(qrmax) deallocate(tmax) deallocate(snownc) diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 187067fc5..046753a84 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -26,6 +26,7 @@ !> 2022-11-08 | Wen Meng | Remove instant PM2.5 calculation !> 2022-11-16 | Eric James | Read smoke, dust, biomass burning, and hourly wildfire potential from RRFS !> 2022-12-07 | Wen Meng | Read AOD from AQM model +!> 2022-12-23 | Eric Aligo | Read six winter weather diagnostics from model !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) @@ -53,7 +54,8 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) smstot, ivgtyp, isltyp, sfcevp, sfcexc, acsnow, acsnom, sst, thz0, qz0, & uz0, vz0, ptop, htop, pbot, hbot, ptopl, pbotl, ttopl, ptopm, pbotm, ttopm, & ptoph, pboth, pblcfr, ttoph, runoff, tecan, tetran, tedir, twa, maxtshltr, & - mintshltr, maxrhshltr, fdnsst, & + mintshltr, maxrhshltr, fdnsst, acgraup, graup_bucket, acfrain, frzrn_bucket, & + snow_acm, snow_bkt, & minrhshltr, dzice, smcwlt, suntime, fieldcapa, htopd, hbotd, htops, hbots, & cuppt, dusmass, ducmass, dusmass25, ducmass25, aswintoa,rel_vort_maxhy1, & maxqshltr, minqshltr, acond, sr, u10h, v10h,refd_max, w_up_max, w_dn_max, & @@ -1620,6 +1622,35 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & spval,VarName,SFCEXC) +! accumulated snowfall + VarName='tsnowp' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,SNOW_ACM) +! snowfall bucket + VarName='tsnowpb' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,SNOW_BKT) + +! accumulated graupel/sleet + VarName='frozr' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,acgraup) + +! graupel/sleet bucket + VarName='frozrb' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,graup_bucket) + +! accumulated freezing rain + VarName='frzr' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,acfrain) + +! freezing rain bucket + VarName='frzrb' + call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,frzrn_bucket) + ! aerodynamic conductance VarName='acond' call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index bba111b86..d209b30b5 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -43,6 +43,7 @@ !! - 22-02-01 E JAMES - Cleaning up GRIB2 encoding for six variables !! that cause issues with newer wgrib2 builds in RRFS system. !! - 22-11-16 E JAMES - Adding dust from RRFS +!! - 22-12-23 E Aligo - Read six winter weather diagnostics from model. !! !! USAGE: CALL SURFCE !! INPUT ARGUMENT LIST: @@ -93,6 +94,7 @@ SUBROUTINE SURFCE acond,maxqshltr,minqshltr,avgpotevp,AVGPREC_CONT, & AVGCPRATE_CONT,sst,pcp_bucket1,rainnc_bucket1, & snow_bucket1, rainc_bucket1, graup_bucket1, & + frzrn_bucket, snow_acm, snow_bkt, & shdmin, shdmax, lai, ch10,cd10,landfrac,paha,pahi, & tecan,tetran,tedir,twa use soil, only: stc, sllevel, sldpth, smc, sh2o @@ -3413,6 +3415,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(746)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) + if(MODELNAME=='FV3R' .OR. MODELNAME=='GFS')fld_info(cfld)%tinvstat=IFHR !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 @@ -3458,6 +3461,7 @@ SUBROUTINE SURFCE fld_info(cfld)%ifld=IAVBLFLD(IGET(782)) fld_info(cfld)%ntrange=1 fld_info(cfld)%tinvstat=IFHR-ID(18) + if(MODELNAME=='FV3R' .OR. MODELNAME=='GFS')fld_info(cfld)%tinvstat=IFHR !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 @@ -3468,6 +3472,54 @@ SUBROUTINE SURFCE enddo endif ENDIF + +! ACCUMULATED SNOWFALL. + IF (IGET(1004)>0) THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + GRID1(I,J) = SNOW_ACM(I,J) + ENDDO + ENDDO + ID(1:25) = 0 + ITPREC = NINT(TPREC) +!mp + if (ITPREC /= 0) then + IFINCR = MOD(IFHR,ITPREC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITPREC*60) + else + IFINCR = 0 + endif +!mp + ID(18) = 0 + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 4 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITPREC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + IF (ID(18)<0) ID(18) = 0 + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(1004)) + fld_info(cfld)%ntrange=1 + fld_info(cfld)%tinvstat=IFHR-ID(18) + if(MODELNAME=='FV3R' .or. MODELNAME=='GFS')fld_info(cfld)%tinvstat=IFHR +! print*,'id(18),tinvstat in acgraup= ',ID(18),fld_info(cfld)%tinvstat +!$omp parallel do private(i,j,ii,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) + enddo + enddo + endif + ENDIF + ! ! ACCUMULATED SNOW MELT. IF (IGET(121)>0) THEN @@ -4030,6 +4082,113 @@ SUBROUTINE SURFCE endif ENDIF +! 'BUCKET FREEZING RAIN ' + IF (IGET(1003)>0.) THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + GRID1(I,J) = FRZRN_BUCKET(I,J) + ENDDO + ENDDO + ID(1:25) = 0 + ITPREC = NINT(TPREC) +!mp + if (ITPREC /= 0) then + IFINCR = MOD(IFHR,ITPREC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITPREC*60) + else + IFINCR = 0 + endif +!mp + ID(18) = 0 + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 4 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITPREC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + IF (ID(18)<0) ID(18) = 0 +! print*,'maxval BUCKET FREEZING RAIN: ', maxval(GRID1) + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(1003)) + fld_info(cfld)%ntrange=1 + fld_info(cfld)%tinvstat=IFHR-ID(18) +! if(ITPREC>0) then +! fld_info(cfld)%ntrange=(IFHR-ID(18))/ITPREC +! else +! fld_info(cfld)%ntrange=0 +! endif +! fld_info(cfld)%tinvstat=ITPREC +! if(fld_info(cfld)%ntrange==0) then +! if (ifhr==0) then +! fld_info(cfld)%tinvstat=0 +! else +! fld_info(cfld)%tinvstat=1 +! endif +! fld_info(cfld)%ntrange=1 +! end if +!$omp parallel do private(i,j,ii,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) + enddo + enddo + endif + ENDIF + +! 'BUCKET SNOWFALL ' + IF (IGET(1005)>0.) THEN +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + GRID1(I,J) = SNOW_BKT(I,J) + ENDDO + ENDDO + ID(1:25) = 0 + ITPREC = NINT(TPREC) +!mp + if (ITPREC /= 0) then + IFINCR = MOD(IFHR,ITPREC) + IF(IFMIN >= 1)IFINCR= MOD(IFHR*60+IFMIN,ITPREC*60) + else + IFINCR = 0 + endif +!mp + ID(18) = 0 + ID(19) = IFHR + IF(IFMIN >= 1)ID(19)=IFHR*60+IFMIN + ID(20) = 4 + IF (IFINCR==0) THEN + ID(18) = IFHR-ITPREC + ELSE + ID(18) = IFHR-IFINCR + IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR + ENDIF + IF (ID(18)<0) ID(18) = 0 +! print*,'maxval BUCKET FREEZING RAIN: ', maxval(GRID1) + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(1005)) + fld_info(cfld)%ntrange=1 + fld_info(cfld)%tinvstat=IFHR-ID(18) +!$omp parallel do private(i,j,ii,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,iend-ista+1 + ii = ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) + enddo + enddo + endif + ENDIF + + ! ERIC JAMES: 10 JUN 2021 -- adding precip comparison to FFG ! thresholds. 913 is for 1h QPF, 914 for run total QPF. IF (IGET(913).GT.0) THEN diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index 1f008f6cb..d953325c9 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -51,6 +51,7 @@ module vrbls2d ,NCI_REFD(:,:),NCA_REFD(:,:),RAINC_BUCKET1(:,:),RAINNC_BUCKET1(:,:) & ,RAINC_BUCKET(:,:),RAINNC_BUCKET(:,:),SNOW_BUCKET(:,:) & ,GRAUP_BUCKET(:,:),PCP_BUCKET(:,:),ACGRAUP(:,:),ACFRAIN(:,:) & + ,FRZRN_BUCKET(:,:),SNOW_ACM(:,:),SNOW_BKT(:,:) & ,SNOW_BUCKET1(:,:),GRAUP_BUCKET1(:,:),PCP_BUCKET1(:,:) & ,SNOWNC(:,:),GRAUPELNC(:,:),TMAX(:,:),W_MEAN(:,:) & ,TSNOW(:,:),QVG(:,:),QV2m(:,:),QVl1(:,:) & From 2b2c84a609f575fc293a4f90238391681bc383f0 Mon Sep 17 00:00:00 2001 From: LinZhu-NOAA Date: Tue, 10 Jan 2023 18:59:29 -0500 Subject: [PATCH 091/107] UPP control file changes for HAFS V1 (#613) * remove hafs.xml and hafs.txt, add hafs_sat.xml and hafs_sat.txt, also add AVE_CPRAT, MAXUVV, MAXDVV, GUST, MXUPHL(0-3km,2-5km) and replace INST_PRATE to AVE_PRATE in hafs_nosat.xml and hafs_nosat.txt * add MAXUVV and MAXDVV in postxconfig-NT-hafs_nosat.txt --- parm/makefile | 16 +- parm/postcntrl_hafs.xml | 582 ------ parm/postcntrl_hafs_nosat.xml | 40 +- parm/postcntrl_hafs_sat.xml | 65 + parm/postxconfig-NT-hafs.txt | 2995 ---------------------------- parm/postxconfig-NT-hafs_nosat.txt | 232 ++- parm/postxconfig-NT-hafs_sat.txt | 314 +++ 7 files changed, 652 insertions(+), 3592 deletions(-) delete mode 100755 parm/postcntrl_hafs.xml create mode 100755 parm/postcntrl_hafs_sat.xml delete mode 100644 parm/postxconfig-NT-hafs.txt create mode 100644 parm/postxconfig-NT-hafs_sat.txt diff --git a/parm/makefile b/parm/makefile index 303e96f07..15ebcca36 100644 --- a/parm/makefile +++ b/parm/makefile @@ -20,7 +20,7 @@ GEFSFLATFILENAME = postxconfig-NT-GEFS.txt GEFSANLFLATFILENAME = postxconfig-NT-GEFS-ANL.txt GEFSF00FLATFILENAME = postxconfig-NT-GEFS-F00.txt FV3LAMFLATFILENAME = postxconfig-NT-fv3lam.txt -HAFSFLATFILENAME = postxconfig-NT-hafs.txt +HAFSSATFLATFILENAME = postxconfig-NT-hafs_sat.txt HAFSNOSATFLATFILENAME = postxconfig-NT-hafs_nosat.txt GFSTWOFLATFILENAME = postxconfig-NT-GFS-TWO.txt GFSTWOF00FLATFILENAME = postxconfig-NT-GFS-F00-TWO.txt @@ -50,7 +50,7 @@ GEFSANLCTRLFILENAME = postcntrl_gefs_anl.xml GEFSCTRLF00FILENAME = postcntrl_gefs_f00.xml FV3LAMAVAILXMLFILENAME = post_avblflds.xml FV3LAMCTRLFILENAME = fv3lam.xml -HAFSCTRLFILENAME = postcntrl_hafs.xml +HAFSSATCTRLFILENAME = postcntrl_hafs_sat.xml HAFSNOSATCTRLFILENAME = postcntrl_hafs_nosat.xml GFSTWOCTRLFILENAME = postcntrl_gfs_two.xml GFSTWOF00CTRLFILENAME = postcntrl_gfs_f00_two.xml @@ -84,7 +84,7 @@ PERLXMLGEFS = /usr/bin/perl $(PERLXML) $(GEFSCTRLFILENAME) $(GFSAVAILXMLFILENAM PERLXMLGEFSANL = /usr/bin/perl $(PERLXML) $(GEFSANLCTRLFILENAME) $(GFSAVAILXMLFILENAME) $(GEFSANLFLATFILENAME) PERLXMLGEFSF00 = /usr/bin/perl $(PERLXML) $(GEFSCTRLF00FILENAME) $(GFSAVAILXMLFILENAME) $(GEFSF00FLATFILENAME) PERLXMLFV3LAM = /usr/bin/perl $(PERLXML) $(FV3LAMCTRLFILENAME) $(FV3LAMAVAILXMLFILENAME) $(FV3LAMFLATFILENAME) -PERLXMLHAFS = /usr/bin/perl $(PERLXML) $(HAFSCTRLFILENAME) $(FV3LAMAVAILXMLFILENAME) $(HAFSFLATFILENAME) +PERLXMLHAFSSAT = /usr/bin/perl $(PERLXML) $(HAFSSATCTRLFILENAME) $(FV3LAMAVAILXMLFILENAME) $(HAFSSATFLATFILENAME) PERLXMLHAFSNOSAT = /usr/bin/perl $(PERLXML) $(HAFSNOSATCTRLFILENAME) $(FV3LAMAVAILXMLFILENAME) $(HAFSNOSATFLATFILENAME) PERLXMLGFSTWO = /usr/bin/perl $(PERLXML) $(GFSTWOCTRLFILENAME) $(GFSAVAILXMLFILENAME) $(GFSTWOFLATFILENAME) PERLXMLGFSTWOF00 = /usr/bin/perl $(PERLXML) $(GFSTWOF00CTRLFILENAME) $(GFSAVAILXMLFILENAME) $(GFSTWOF00FLATFILENAME) @@ -110,7 +110,7 @@ GEFSXMLS = $(GFSAVAILXMLFILENAME) $(GEFSCTRLFILENAME) GEFSANLXMLS = $(GFSAVAILXMLFILENAME) $(GEFSANLCTRLFILENAME) GEFSF00XMLS = $(GFSAVAILXMLFILENAME) $(GEFSCTRLF00FILENAME) FV3LAMXMLS = $(FV3LAMAVAILXMLFILENAME) $(FV3LAMCTRLFILENAME) -HAFSXMLS = $(FV3LAMAVAILXMLFILENAME) $(HAFSCTRLFILENAME) +HAFSSATXMLS = $(FV3LAMAVAILXMLFILENAME) $(HAFSSATCTRLFILENAME) HAFSNOSATXMLS = $(FV3LAMAVAILXMLFILENAME) $(HAFSNOSATCTRLFILENAME) GFSTWOXMLS = $(GFSAVAILXMLFILENAME) $(GFSTWOCTRLFILENAME) GFSTWOF00XMLS = $(GFSAVAILXMLFILENAME) $(GFSTWOF00CTRLFILENAME) @@ -123,7 +123,7 @@ UFSAEROSOL00XMLS = $(RTMA3DAVAILXMLFILENAME) $(UFSAEROSOL00CTRLFILENAME) AQMXMLS = $(AVAILXMLFILENAME) $(AQMCTRLFILENAME) # If action is triggered; run the following -all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RRFSFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) $(AQMFLATFILENAME) +all: $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(GFSFLUXFLATFILENAME) $(GFSFLUXF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSSATFLATFILENAME) $(HAFSNOSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RRFSFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) $(AQMFLATFILENAME) $(GFSFLATFILENAME): $(GFSXMLS) $(PERLXMLGFS) $(GFSGOESFLATFILENAME): $(GFSGOESXMLS) @@ -148,8 +148,8 @@ $(GEFSF00FLATFILENAME): $(GEFSF00XMLS) $(PERLXMLGEFSF00) $(FV3LAMFLATFILENAME): $(FV3LAMXMLS) $(PERLXMLFV3LAM) -$(HAFSFLATFILENAME): $(HAFSXMLS) - $(PERLXMLHAFS) +$(HAFSSATFLATFILENAME): $(HAFSSATXMLS) + $(PERLXMLHAFSSAT) $(HAFSNOSATFLATFILENAME): $(HAFSNOSATXMLS) $(PERLXMLHAFSNOSAT) $(GFSTWOFLATFILENAME): $(GFSTWOXMLS) @@ -176,4 +176,4 @@ $(AQMFLATFILENAME): $(AQMXMLS) clean: @echo @echo '==== CLEAN ===================================================' - /bin/rm -f $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) $(AQMFLATFILENAME) + /bin/rm -f $(GFSFLATFILENAME) $(GFSGOESFLATFILENAME) $(GFSANLFLATFILENAME) $(GFSF00FLATFILENAME) $(NMMFLATFILENAME) $(NGACFLATFILENAME) $(GEFSFLATFILENAME) $(GEFSANLFLATFILENAME) $(GEFSF00FLATFILENAME) $(FV3LAMFLATFILENAME) $(HAFSSATFLATFILENAME) $(GFSTWOFLATFILENAME) $(GFSTWOF00FLATFILENAME) $(HRRRFLATFILENAME) $(RAPFLATFILENAME) $(RTMA3DFLATFILENAME) $(UFSAEROSOLFLATFILENAME) $(UFSAERO00FLATFILENAME) $(AQMFLATFILENAME) diff --git a/parm/postcntrl_hafs.xml b/parm/postcntrl_hafs.xml deleted file mode 100755 index 5aa781905..000000000 --- a/parm/postcntrl_hafs.xml +++ /dev/null @@ -1,582 +0,0 @@ - - - - - HURPRS - 32769 - ncep_nco - v2003 - local_tab_yes1 - fcst - oper - fcst - fcst - hour - nws_ncep - hafs - complex_packing_spatial_diff - 2nd_ord_sptdiff - fltng_pnt - lossless - - - HGT_ON_ISOBARIC_SFC - HGT - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 6.0 - - - - TMP_ON_ISOBARIC_SFC - TMP - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 4.0 - - - - SPFH_ON_ISOBARIC_SFC - SPFH - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 7.0 - - - - RH_ON_ISOBARIC_SFC - RH - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 3.0 - - - - UGRD_ON_ISOBARIC_SFC - UGRD - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 4.0 - - - - VGRD_ON_ISOBARIC_SFC - VGRD - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 4.0 - - - - DZDT_ON_ISOBARIC_SFC - DZDT - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 5.0 - - - - VVEL_ON_ISOBARIC_SFC - VVEL - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 5.0 - - - - ABSV_ON_ISOBARIC_SFC - ABSV - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 4.0 - - - - CLWMR_ON_ISOBARIC_SFC - CLWMR - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 6.0 - - - - ICMR_ON_ISOBARIC_SFC - ICMR - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 6.0 - - - - RWMR_ON_ISOBARIC_SFC - RWMR - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 6.0 - - - - SNMR_ON_ISOBARIC_SFC - SNMR - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 6.0 - - - - GRLE_ON_ISOBARIC_SFC - GRLE - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 6.0 - - - - REFD_ON_ISOBARIC_SFC - REFD - 200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. -47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. - 4.0 - - - - MSLET_ON_MEAN_SEA_LVL - MSLET - NCEP - 6.0 - - - - PRES_ON_MEAN_SEA_LVL - PRMSL - 6.0 - - - - TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m - TMP - 4.0 - - - - SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m - SPFH - 7.0 - - - - DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m - DPT - 4.0 - - - - RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m - RH - 3.0 - - - - UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m - UGRD - 10. - 4.0 - - - - VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m - VGRD - 10. - 4.0 - - - - PRES_ON_SURFACE - PRES - 6.0 - - - - HGT_ON_SURFACE - HGT - 6.0 - - - - TMP_ON_SURFACE - TMP - 4.0 - - - - SFEXC_ON_SURFACE - SFEXC - NCEP - 4.0 - - - - CAPE_ON_SURFACE - CAPE - 4.0 - - - - CIN_ON_SURFACE - CIN - 4.0 - - - - PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR - PWAT - 6.0 - - - - HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND - HLCY - 3000. - 4.0 - - - - ACM_APCP_ON_SURFACE - APCP - -4.0 - - - - ACM_NCPCP_ON_SURFACE - NCPCP - -4.0 - - - - INST_PRATE_ON_SURFACE - PRATE - 6.0 - - - - INST_TCDC_ON_ENTIRE_ATMOS - TCDC - 4.0 - - - - AVE_TCDC_ON_ENTIRE_ATMOS - TCDC - 4.0 - - - - INST_USWRF_ON_SURFACE - USWRF - NCEP - 6.0 - - - - INST_ULWRF_ON_SURFACE - ULWRF - NCEP - 6.0 - - - - AVE_DSWRF_ON_SURFACE - DSWRF - NCEP - 6.0 - - - - AVE_DLWRF_ON_SURFACE - DLWRF - NCEP - 4.0 - - - - AVE_USWRF_ON_SURFACE - USWRF - NCEP - 6.0 - - - - AVE_ULWRF_ON_SURFACE - ULWRF - NCEP - 4.0 - - - - AVE_USWRF_ON_TOP_OF_ATMOS - USWRF - NCEP - 6.0 - - - - AVE_ULWRF_ON_TOP_OF_ATMOS - ULWRF - NCEP - 4.0 - - - - INST_ULWRF_ON_TOP_OF_ATMOS - ULWRF - NCEP - 4.0 - - - - INST_DSWRF_ON_SURFACE - DSWRF - NCEP - 6.0 - - - - INST_DLWRF_ON_SURFACE - DLWRF - NCEP - 4.0 - - - - SFCR_ON_SURFACE - SFCR - 6.0 - - - - FRICV_ON_SURFACE - FRICV - NCEP - 4.0 - - - - UFLX_ON_SURFACE - UFLX - 4.0 - - - - VFLX_ON_SURFACE - VFLX - 4.0 - - - - INST_SHTFL_ON_SURFACE - SHTFL - 4.0 - - - - INST_LHTFL_ON_SURFACE - LHTFL - 4.0 - - - - NLAT_ON_SURFACE - NLAT - NCEP - 4.0 - - - - ELON_ON_SURFACE - ELON - NCEP - 4.0 - - - - LAND_ON_SURFACE - LAND - 1.0 - - - - WTMP_ON_SURFACE - WTMP - 4.0 - - - - PRES_ON_TROPOPAUSE - PRES - 6.0 - - - - HGT_ON_TROPOPAUSE - HGT - 6.0 - - - - TMP_ON_TROPOPAUSE - TMP - 4.0 - - - - UGRD_ON_TROPOPAUSE - UGRD - 4.0 - - - - VGRD_ON_TROPOPAUSE - VGRD - 4.0 - - - - VWSH_ON_TROPOPAUSE - VWSH - NCEP - 3.0 - - - - TMP_ON_CLOUD_TOP - TMP - 4.0 - - - - REFC_ON_ENTIRE_ATMOS - REFC - NCEP - 4.0 - - - - HPBL_ON_SURFACE - HPBL - NCEP - 6.0 - - - - TCOLW_ON_ENTIRE_ATMOS - TCOLW - NCEP - 5.0 - - - - TCOLI_ON_ENTIRE_ATMOS - TCOLI - NCEP - 5.0 - - - - TCOLR_ON_ENTIRE_ATMOS - TCOLR - NCEP - 5.0 - - - - TCOLS_ON_ENTIRE_ATMOS - TCOLS - NCEP - 5.0 - - - - TCOLC_ON_ENTIRE_ATMOS - TCOLC - NCEP - 5.0 - - - - MAX_PRATE_ON_SURFACE - PRATE - 6.0 - - - - MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m - WIND - -4.0 - - - - - - - - HURSAT - 32769 - ncep_nco - v2003 - local_tab_yes1 - fcst - oper - fcst - fcst - hour - nws_ncep - hafs - complex_packing_spatial_diff - 2nd_ord_sptdiff - fltng_pnt - lossless - - - SBTAGR8_ON_TOP_OF_ATMOS - 4.0 - - - - SBTAGR9_ON_TOP_OF_ATMOS - 4.0 - - - - SBTAGR10_ON_TOP_OF_ATMOS - 4.0 - - - - SBTAGR13_ON_TOP_OF_ATMOS - 4.0 - - - - SSMS1715_ON_TOP_OF_ATMOS - 4.0 - - - - SSMS1716_ON_TOP_OF_ATMOS - 4.0 - - - - SSMS1717_ON_TOP_OF_ATMOS - 4.0 - - - - SSMS1718_ON_TOP_OF_ATMOS - 4.0 - - - - - - diff --git a/parm/postcntrl_hafs_nosat.xml b/parm/postcntrl_hafs_nosat.xml index 3f8f4ec9a..aeaf52a06 100755 --- a/parm/postcntrl_hafs_nosat.xml +++ b/parm/postcntrl_hafs_nosat.xml @@ -259,9 +259,15 @@ - INST_PRATE_ON_SURFACE + AVE_PRATE_ON_SURFACE PRATE - 6.0 + 4.0 + + + + AVE_CPRAT_ON_SURFACE + CPRAT + 4.0 @@ -514,7 +520,37 @@ -4.0 + + GUST_ON_SURFACE + GUST + 3.0 + + + MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa + MAXUVV + -4.0 + + + + MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa + MAXDVV + -4.0 + + + + GSD_MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km + MXUPHL + NCEP + -3.0 + + + + MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km + MXUPHL + NCEP + -3.0 + diff --git a/parm/postcntrl_hafs_sat.xml b/parm/postcntrl_hafs_sat.xml new file mode 100755 index 000000000..d19d414c0 --- /dev/null +++ b/parm/postcntrl_hafs_sat.xml @@ -0,0 +1,65 @@ + + + + + HURSAT + 32769 + ncep_nco + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + nws_ncep + hafs + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + SBTAGR8_ON_TOP_OF_ATMOS + 4.0 + + + + SBTAGR9_ON_TOP_OF_ATMOS + 4.0 + + + + SBTAGR10_ON_TOP_OF_ATMOS + 4.0 + + + + SBTAGR13_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1715_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1716_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1717_ON_TOP_OF_ATMOS + 4.0 + + + + SSMS1718_ON_TOP_OF_ATMOS + 4.0 + + + + + + diff --git a/parm/postxconfig-NT-hafs.txt b/parm/postxconfig-NT-hafs.txt deleted file mode 100644 index 6ecea4ebd..000000000 --- a/parm/postxconfig-NT-hafs.txt +++ /dev/null @@ -1,2995 +0,0 @@ -2 -8 -72 -HURPRS -32769 -ncep_nco -v2003 -local_tab_yes1 -fcst -oper -fcst -fcst -hour -nws_ncep -hafs -complex_packing_spatial_diff -2nd_ord_sptdiff -fltng_pnt -lossless -12 -HGT_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -HGT -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -13 -TMP_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -TMP -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -16 -SPFH_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -SPFH -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -7.0 -0 -0 -0 -? -? -? -17 -RH_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -RH -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -3.0 -0 -0 -0 -? -? -? -18 -UGRD_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -UGRD -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -19 -VGRD_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -VGRD -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -284 -DZDT_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -DZDT -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -20 -VVEL_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -VVEL -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -21 -ABSV_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -ABSV -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -166 -ICMR_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -ICMR -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -183 -RWMR_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -RWMR -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -184 -SNMR_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -SNMR -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -416 -GRLE_ON_ISOBARIC_SFC -Graupel mixing ration on isobaric surface -1 -tmpl4_0 -GRLE -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -251 -REFD_ON_ISOBARIC_SFC -? -1 -tmpl4_0 -REFD -? -? -isobaric_sfc -0 -? -45 -200. 500. 700. 1000. 2000. 3000. 5000. 7000. 10000. 12500. 15000. 17500. 20000. 22500. 25000. 27500. 30000. 32500. 35000. 37500. 40000. 42500. 45000. 47500. 50000. 52500. 55000. 57500. 60000. 62500. 65000. 67500. 70000. 72500. 75000. 77500. 80000. 82500. 85000. 87500. 90000. 92500. 95000. 97500. 100000. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -23 -MSLET_ON_MEAN_SEA_LVL -? -1 -tmpl4_0 -MSLET -NCEP -? -mean_sea_lvl -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -105 -PRES_ON_MEAN_SEA_LVL -? -1 -tmpl4_0 -PRMSL -? -? -mean_sea_lvl -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -106 -TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m -? -1 -tmpl4_0 -TMP -? -? -spec_hgt_lvl_above_grnd -0 -? -1 -2. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -112 -SPFH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m -? -1 -tmpl4_0 -SPFH -? -? -spec_hgt_lvl_above_grnd -0 -? -1 -2. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -7.0 -0 -0 -0 -? -? -? -113 -DPT_ON_SPEC_HGT_LVL_ABOVE_GRND_2m -? -1 -tmpl4_0 -DPT -? -? -spec_hgt_lvl_above_grnd -0 -? -1 -2. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -114 -RH_ON_SPEC_HGT_LVL_ABOVE_GRND_2m -? -1 -tmpl4_0 -RH -? -? -spec_hgt_lvl_above_grnd -0 -? -1 -2. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -3.0 -0 -0 -0 -? -? -? -64 -UGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m -? -1 -tmpl4_0 -UGRD -? -? -spec_hgt_lvl_above_grnd -0 -? -1 -10. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -65 -VGRD_ON_SPEC_HGT_LVL_ABOVE_GRND_10m -? -1 -tmpl4_0 -VGRD -? -? -spec_hgt_lvl_above_grnd -0 -? -1 -10. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -24 -PRES_ON_SURFACE -? -1 -tmpl4_0 -PRES -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -25 -HGT_ON_SURFACE -? -1 -tmpl4_0 -HGT -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -26 -TMP_ON_SURFACE -? -1 -tmpl4_0 -TMP -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -169 -SFEXC_ON_SURFACE -? -1 -tmpl4_0 -SFEXC -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -32 -CAPE_ON_SURFACE -? -1 -tmpl4_0 -CAPE -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -107 -CIN_ON_SURFACE -? -1 -tmpl4_0 -CIN -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -80 -PWAT_ON_ENTIRE_ATMOS_SINGLE_LYR -? -1 -tmpl4_0 -PWAT -? -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -162 -HLCY_ON_SPEC_HGT_LVL_ABOVE_GRND -? -1 -tmpl4_0 -HLCY -? -? -spec_hgt_lvl_above_grnd -0 -? -1 -3000. -spec_hgt_lvl_above_grnd -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -87 -ACM_APCP_ON_SURFACE -? -1 -tmpl4_8 -APCP -? -ACM -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 --4.0 -0 -0 -0 -? -? -? -34 -ACM_NCPCP_ON_SURFACE -? -1 -tmpl4_8 -NCPCP -? -ACM -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 --4.0 -0 -0 -0 -? -? -? -167 -INST_PRATE_ON_SURFACE -? -1 -tmpl4_0 -PRATE -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -161 -INST_TCDC_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCDC -? -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -144 -AVE_TCDC_ON_ENTIRE_ATMOS -? -1 -tmpl4_8 -TCDC -? -AVE -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -141 -INST_USWRF_ON_SURFACE -? -1 -tmpl4_0 -USWRF -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -142 -INST_ULWRF_ON_SURFACE -? -1 -tmpl4_0 -ULWRF -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -126 -AVE_DSWRF_ON_SURFACE -? -1 -tmpl4_8 -DSWRF -NCEP -AVE -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -127 -AVE_DLWRF_ON_SURFACE -? -1 -tmpl4_8 -DLWRF -NCEP -AVE -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -128 -AVE_USWRF_ON_SURFACE -? -1 -tmpl4_8 -USWRF -NCEP -AVE -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -129 -AVE_ULWRF_ON_SURFACE -? -1 -tmpl4_8 -ULWRF -NCEP -AVE -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -130 -AVE_USWRF_ON_TOP_OF_ATMOS -? -1 -tmpl4_8 -USWRF -NCEP -AVE -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -131 -AVE_ULWRF_ON_TOP_OF_ATMOS -? -1 -tmpl4_8 -ULWRF -NCEP -AVE -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -274 -INST_ULWRF_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -ULWRF -NCEP -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -156 -INST_DSWRF_ON_SURFACE -? -1 -tmpl4_0 -DSWRF -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -157 -INST_DLWRF_ON_SURFACE -? -1 -tmpl4_0 -DLWRF -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -44 -SFCR_ON_SURFACE -? -1 -tmpl4_0 -SFCR -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -45 -FRICV_ON_SURFACE -? -1 -tmpl4_0 -FRICV -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -133 -UFLX_ON_SURFACE -? -1 -tmpl4_0 -UFLX -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -134 -VFLX_ON_SURFACE -? -1 -tmpl4_0 -VFLX -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -154 -INST_SHTFL_ON_SURFACE -? -1 -tmpl4_0 -SHTFL -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -155 -INST_LHTFL_ON_SURFACE -? -1 -tmpl4_0 -LHTFL -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -48 -NLAT_ON_SURFACE -? -1 -tmpl4_0 -NLAT -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -49 -ELON_ON_SURFACE -? -1 -tmpl4_0 -ELON -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -50 -LAND_ON_SURFACE -? -1 -tmpl4_0 -LAND -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -1.0 -0 -0 -0 -? -? -? -151 -WTMP_ON_SURFACE -? -1 -tmpl4_0 -WTMP -? -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -54 -PRES_ON_TROPOPAUSE -? -1 -tmpl4_0 -PRES -? -? -tropopause -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -177 -HGT_ON_TROPOPAUSE -? -1 -tmpl4_0 -HGT -? -? -tropopause -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -55 -TMP_ON_TROPOPAUSE -? -1 -tmpl4_0 -TMP -? -? -tropopause -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -56 -UGRD_ON_TROPOPAUSE -? -1 -tmpl4_0 -UGRD -? -? -tropopause -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -57 -VGRD_ON_TROPOPAUSE -? -1 -tmpl4_0 -VGRD -? -? -tropopause -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -58 -VWSH_ON_TROPOPAUSE -? -1 -tmpl4_0 -VWSH -NCEP -? -tropopause -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -3.0 -0 -0 -0 -? -? -? -168 -TMP_ON_CLOUD_TOP -? -1 -tmpl4_0 -TMP -? -? -cloud_top -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -252 -REFC_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -REFC -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -221 -HPBL_ON_SURFACE -? -1 -tmpl4_0 -HPBL -NCEP -? -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -200 -TCOLW_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLW -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -201 -TCOLI_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLI -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -202 -TCOLR_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLR -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -203 -TCOLS_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLS -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -204 -TCOLC_ON_ENTIRE_ATMOS -? -1 -tmpl4_0 -TCOLC -NCEP -? -entire_atmos_single_lyr -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -5.0 -0 -0 -0 -? -? -? -508 -MAX_PRATE_ON_SURFACE -Maximum Precipitation Rate on surface -1 -tmpl4_8 -PRATE -? -MAX -surface -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? -422 -MAX_WIND_ON_SPEC_HGT_LVL_ABOVE_GRND_10m -maximum wind speed on 10 meter Above Ground -1 -tmpl4_8 -WIND -? -MAX -spec_hgt_lvl_above_grnd -0 -? -1 -10. -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 --4.0 -0 -0 -0 -? -? -? -HURSAT -32769 -ncep_nco -v2003 -local_tab_yes1 -fcst -oper -fcst -fcst -hour -nws_ncep -hafs -complex_packing_spatial_diff -2nd_ord_sptdiff -fltng_pnt -lossless -959 -SBTAGR8_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SBTAGR8 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -960 -SBTAGR9_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SBTAGR9 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -961 -SBTAGR10_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SBTAGR10 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -964 -SBTAGR13_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SBTAGR13 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -825 -SSMS1715_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SSMS1715 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -826 -SSMS1716_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SSMS1716 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -827 -SSMS1717_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SSMS1717 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? -828 -SSMS1718_ON_TOP_OF_ATMOS -? -1 -tmpl4_0 -SSMS1718 -? -? -top_of_atmos -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -4.0 -0 -0 -0 -? -? -? diff --git a/parm/postxconfig-NT-hafs_nosat.txt b/parm/postxconfig-NT-hafs_nosat.txt index 8c8492d0f..fc6ea2229 100644 --- a/parm/postxconfig-NT-hafs_nosat.txt +++ b/parm/postxconfig-NT-hafs_nosat.txt @@ -1,5 +1,5 @@ 1 -72 +78 HURPRS 32769 ncep_nco @@ -1237,14 +1237,51 @@ surface ? ? ? -167 -INST_PRATE_ON_SURFACE +271 +AVE_PRATE_ON_SURFACE ? 1 -tmpl4_0 +tmpl4_8 PRATE ? +AVE +surface +0 +? +0 +? +? +0 +? +0 +? ? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +272 +AVE_CPRAT_ON_SURFACE +? +1 +tmpl4_8 +CPRAT +? +AVE surface 0 ? @@ -1267,7 +1304,7 @@ surface 0 0.0 1 -6.0 +4.0 0 0 0 @@ -2680,3 +2717,188 @@ spec_hgt_lvl_above_grnd ? ? ? +245 +GUST_ON_SURFACE +? +1 +tmpl4_0 +GUST +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +3.0 +0 +0 +0 +? +? +? +423 +MAX_MAXUVV_ON_ISOBARIC_SFC_100-1000hpa +hourly maximum Upward Vertical Velocity between 100-1000hpa +1 +tmpl4_8 +MAXUVV +NCEP +MAX +isobaric_sfc +0 +? +1 +10000. +isobaric_sfc +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +424 +MAX_MAXDVV_ON_ISOBARIC_SFC_100-1000hpa +hourly maximum Downward Vertical Velocity between 100-1000hpa +1 +tmpl4_8 +MAXDVV +NCEP +MAX +isobaric_sfc +0 +? +1 +10000. +isobaric_sfc +0 +? +1 +100000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-4.0 +0 +0 +0 +? +? +? +790 +GSD_MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_0-3km +? +1 +tmpl4_8 +MXUPHL +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +3000. +spec_hgt_lvl_above_grnd +0 +? +1 +0000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? +420 +MAX_UPHL_ON_SPEC_HGT_LVL_ABOVE_GRND_2-5km +maximum Updraft Helicity on Specified Height Level Above Ground +1 +tmpl4_8 +MXUPHL +NCEP +MAX +spec_hgt_lvl_above_grnd +0 +? +1 +5000. +spec_hgt_lvl_above_grnd +0 +? +1 +2000. +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +-3.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-hafs_sat.txt b/parm/postxconfig-NT-hafs_sat.txt new file mode 100644 index 000000000..f7142bd4b --- /dev/null +++ b/parm/postxconfig-NT-hafs_sat.txt @@ -0,0 +1,314 @@ +1 +8 +HURSAT +32769 +ncep_nco +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +nws_ncep +hafs +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +959 +SBTAGR8_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTAGR8 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +960 +SBTAGR9_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTAGR9 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +961 +SBTAGR10_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTAGR10 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +964 +SBTAGR13_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SBTAGR13 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +825 +SSMS1715_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SSMS1715 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +826 +SSMS1716_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SSMS1716 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +827 +SSMS1717_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SSMS1717 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +828 +SSMS1718_ON_TOP_OF_ATMOS +? +1 +tmpl4_0 +SSMS1718 +? +? +top_of_atmos +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? From e88dbea9269b36d21e60d9d1c17b71634fe3c81f Mon Sep 17 00:00:00 2001 From: Jesse Meng <49207433+JesseMeng-NOAA@users.noreply.github.com> Date: Wed, 11 Jan 2023 10:07:04 -0500 Subject: [PATCH 092/107] Transition the SLR Roebber algorithm to UPP (#609) * 20220715 Jesse Meng initiate variable snow desity SDEN and calslr subroutine in UPP_PHYSICS * 20220902 Jesse Meng modify gfs and fv3lam txt files for SLR/snoden test * 20220919 Jesse Meng update progress in UPP_PHYSICS/CALSLR_ROEBBER * 20220928 Jesse Meng update progress in UPP_PHYSICS/CALSLR_ROEBBER * 20221003 Jesse Meng update progress on SLR * 20221007 Jesse Meng update progress on SLR * 20221028 Jesse Meng updates for SLR branch * 20221102 Jesse Meng merge with develop * 20221214 Jesse Meng merge slr branch with UPP/develop * 20221219 Jesse Meng add a new fix directory and save SLR/Roebber/Breadboard * 20221219 Jesse Meng add WPC climo_snoden files * 20221222 Jesse Meng add SDEN to configure files * 20221222 Jesse Meng add develop and SLR configures files * 20230103 Jesse Meng added SDEN to xml and txt files. * 20230103 Jesse Meng fixed parm/postcntrl_gfs_two.xml and parm/postxconfig-NT-GFS-TWO.txt. * 20230103 Jesse Meng deleted temperary slr testing related txt files. * 202230103 Jesse Meng revised documentation for subroutine UPP_PHYSICS/CALSLR_ROEBBER. * 20230106 Jesse Meng moved all the SLR Roebber Breadboard coefficients into UPP_PHYSICS module to reduce I/O time. * 20230109 Jesse Meng updated comment block of subroutine calslr. * 20230109 Jesse Meng output 1006 SDEN in NATLEV files only and remove it from PRSLEV files. * 20230109 Jesse Meng output 1006 SDEN in NATLEV files only and remove it from PRSLEV files. * 20230110 Jesse Meng updated SLR field in parm/ files. Co-authored-by: shrinivas.moorthi Co-authored-by: jesse meng Co-authored-by: jesse meng --- ..._climo_snoden_fall-SON.gfs.3072.1536.grib2 | Bin 0 -> 723283 bytes .../2.5km_climo_snoden_fall-SON.grb | Bin 0 -> 129397 bytes ...limo_snoden_spring-MAM.gfs.3072.1536.grib2 | Bin 0 -> 723283 bytes .../2.5km_climo_snoden_spring-MAM.grb | Bin 0 -> 132160 bytes ...limo_snoden_winter-DJF.gfs.3072.1536.grib2 | Bin 0 -> 723283 bytes .../2.5km_climo_snoden_winter-DJF.grb | Bin 0 -> 114777 bytes fix/Breadboard/Breadboard1.nsw | 43 + fix/Breadboard/Breadboard10.nsw | 45 + fix/Breadboard/Breadboard2.nsw | 43 + fix/Breadboard/Breadboard3.nsw | 43 + fix/Breadboard/Breadboard4.nsw | 43 + fix/Breadboard/Breadboard5.nsw | 43 + fix/Breadboard/Breadboard6.nsw | 45 + fix/Breadboard/Breadboard7.nsw | 45 + fix/Breadboard/Breadboard8.nsw | 51 + fix/Breadboard/Breadboard9.nsw | 51 + parm/fv3lam.xml | 6 + parm/fv3lam_rrfs.xml | 6 + parm/global_1x1_paramlist_g2 | 1 + parm/post_avblflds.xml | 9 + parm/postcntrl_gfs.xml | 5 + parm/postcntrl_gfs_two.xml | 5 + parm/postxconfig-NT-GFS-TWO.txt | 39 +- parm/postxconfig-NT-GFS.txt | 39 +- parm/postxconfig-NT-fv3lam.txt | 39 +- parm/postxconfig-NT-fv3lam_rrfs.txt | 39 +- sorc/ncep_post.fd/MDL2P.f | 52 +- sorc/ncep_post.fd/UPP_PHYSICS.f | 1653 +++++++++++++++++ sorc/ncep_post.fd/grib2_module.f | 12 +- 29 files changed, 2345 insertions(+), 12 deletions(-) create mode 100644 fix/Breadboard/2.5km_climo_snoden_fall-SON.gfs.3072.1536.grib2 create mode 100644 fix/Breadboard/2.5km_climo_snoden_fall-SON.grb create mode 100644 fix/Breadboard/2.5km_climo_snoden_spring-MAM.gfs.3072.1536.grib2 create mode 100644 fix/Breadboard/2.5km_climo_snoden_spring-MAM.grb create mode 100644 fix/Breadboard/2.5km_climo_snoden_winter-DJF.gfs.3072.1536.grib2 create mode 100644 fix/Breadboard/2.5km_climo_snoden_winter-DJF.grb create mode 100644 fix/Breadboard/Breadboard1.nsw create mode 100644 fix/Breadboard/Breadboard10.nsw create mode 100644 fix/Breadboard/Breadboard2.nsw create mode 100644 fix/Breadboard/Breadboard3.nsw create mode 100644 fix/Breadboard/Breadboard4.nsw create mode 100644 fix/Breadboard/Breadboard5.nsw create mode 100644 fix/Breadboard/Breadboard6.nsw create mode 100644 fix/Breadboard/Breadboard7.nsw create mode 100644 fix/Breadboard/Breadboard8.nsw create mode 100644 fix/Breadboard/Breadboard9.nsw diff --git a/fix/Breadboard/2.5km_climo_snoden_fall-SON.gfs.3072.1536.grib2 b/fix/Breadboard/2.5km_climo_snoden_fall-SON.gfs.3072.1536.grib2 new file mode 100644 index 0000000000000000000000000000000000000000..7024f3f71e600a046a71d7b2b2e4ad1dd280fc6d GIT binary patch literal 723283 zcmeFa*|%NQmF6iN#tppy2??RTZ?F2k7a)mV^gRMhW55_=u#K^eY(s<{5sq*H*en6-+TzS3$B>=^?6r*<%%o5{(oL^1z+aP znLolmKAE@SYr1Q1uECRd^;5JfpZdRc^RL@K!h;3hfBEpdEB=rFecn8L0NSdr^7e`& zUzxXj-lw0|kLQhf5->&^*;38v;Xf8dB?vL`!*YWn!*A9M)Edvsy6@4w8qT0S21X6wrwyhZTrcn zUw_$e*D)ODk@=4*q;aTs+nWEV{6FX*j`8T@QNRAO-_HE!Rs!ZfxBQQd;dQ!AFU;*h ze1X5+{O8tq=0CUmmv>HNj7M{O3}57LH~+b{-ee|#=k^%B$lpE@{$74EvINY3WONhR za3T}H*8j-1mo5B) zC!v4yA6-VrMt3`POY@&w{uf67`pbUHN$B7FN0-s^>P1F>VE%K|p+5z?;CP6X5UVCu7)Q0t-;g-~7iQ zFt?jdK>uETGKLAwe++mN*mMF5fUN&9>@WfTUVdW!V-T3*O-C>Lmo2UTaZFe!j(-2i zIA4F+Z#z2ovZeWtBccxq#*y#M-~7iRFt^)|um6wd_5i-%-+pXlzf(3e|8XQ>{^QUa zf7|i-Ul@NUF5^!y|G72(@=wQY*8eybH2-nvjlb>q{Kwyi%lQ+=UjTGD(;NTT&3}A` z<9x!{{Js2Y9Q^afUI1kN=06sJx!rhd{d@V{yC=k%zsRPV{UH#V*(s=bMqe) z;JBNQH~;13x8^@Cfw|q@`Zxc%B`~+&{=rxs;FG!C`7gn@oB!Mz(frMSZVAlow;vnJ z|9?EUJO3s4cJrTGBbxu*@?UQMGp7a^kN<@^-S;oUmz)3GTG9OHmj8GQKrhVg&VLEM zeLVhO0swP-213+@QuCkSPMYy zf996Im!F&e*aYVG1IF?{*8kYX8*2fm`OhtXFaJ0Hu?fuW2aM%^tpD+iH_rU8`OhtX zFaJ0H@d?cBCye8NtpD+C_rVwjF#oyb|H=4Yf7yS+IQlpL@#SOw<1-xR6ON7H|E>RV z$j7$h@c(%HufOa+!Tje|0_H!r{Fi?^di!{8cl}H8?c?yj@TDLyw+CVV=0CRt=Jwmi zS%74l@$Ke6w`LrN|J?5Rm*d;be{StK&H~)I-SaQUx10am+Hnm2Uj94*)0zJS zAdc}7=066!32ZvX0%-f6x#jQW&*nb?0(1KjWB4EIe*&f(V*#}JoBsp|%v^~xR-6szmS-l`_cJ(`S~O)X8x0)IQnONFtP!x|Iw*;Tbh5z zVlEz;|6EY-zH@Z`pL8GMM}H4{w4W# z^PgKoF8_4YX8ljXa^^n?ilcvq`H#+S5?hYW|H34`{<8lJ^PgJ@jD7-u^*;&Ang1jx zj{X^=^B?^?y=6zh{5uwN@o4k~=yS2RU%u}&|GBlP`F}zA`}B*67;fYR=;m+!6Cp6S zA7cHR|J)Lo+ixFP|33X?B8D6J1OW5@eEDA}A3sBd+WZTkvF?ZKf8ZmB6^YD$0Mckr zhwvXpc6ylb=`W)JAJ}R-|A9A@r-OaK{0o`!?mz9fPiFqK{u|AIW>S~(mp;{5w_M)7 z*ZgN?bqd#u=e>T!4TKM#%(V4efeozf?QA988-R&3o@lXPl z|3%@SH?J7rBHuprJN;rupzyzFo@s!Ket-8>el&zY^8ak#U$)H{VEzTjc=y5o;_=U$ z7g^9J<9)5SP6Eg1PcCgTQFHd@KN$&$|0RADYZ2yuiO^F@_19l_?X}ljebrUp{KhxF{sQ<=Q^2)Q`9MxX^jhHW8zU|Ajq4UH1!=^| zH%yLI`RP2Az=Ht0F* zJ-o{oc;9R2V%xS&eL;H?jugHDy4|p0J@SloP%Y)UX8q=E!(}(M`qmq-hS#Utrx|+I zDNoWOc~?3S-+kpbuDa%Wwi|Akf8&ie-MnDILi|_S&4VreuyEnRTW-09wxXF3(HAbd zb?I{SCfRn`GFY4cU~=>>bS-o`biUH`m>qHLhRt7w-Zr(3K|>B^^(uLn^e-z{u3ook zrXyT?>-?){w%S+1a;@F2yz*;bPb^1fI!tw^JV8DXSM0u?c@LyNww&){YY@Mbww zIaxVaZjBUt(bARc!;Q*aA~*Shy3Ar3gc8M)C2&Qn)~w$YW<^?&5eH!>qmYccV&$3* zn`b!WP0JQsTRduG)Uc*39A?d|W~EhR*X*BR(_+@r=fbEF z{W7z!Rvj=a`f>_D7G1PRHic0a-g4`0IC^;8HEY(cUAJ!idZd+1FgHiY+_r6oBQ6mC zVDD+&UZXdHD~gV}b<>8m92db^4VoD~c!toqb;ZK#BEMwVgjugZE7s-xw7yG&YJ8>l zqx0hZ(Rsgl_0`v28+N7}t`^n<`eRu+%oH|b(j(ssBXaJp=yL#Sv>6xV}D`I9QtEgSXv1?`P$;!mao~UcPUlcxNa4bN#z{Tt$7QFJyYCW zz37H-7H^#h#^Lps8gB%l#w#Ov(!G<>Qc1W@v1WL|B6uid`5cZxs>^gzdNC7^&^Ix;dY zRTgTur{jnak^NpFe!%|Fk`e%R{ly#}Mb~G~r>EbrVbkWVU-%&2YGM7_)f|;Gd{;@N z3Y3u6q!fZ!wZ6;HwryOqLYeD;B37+gv#vMf*tP}Lw3RECExPgA>Ju^!g!iWoszd1H zFij9t5WGeTBE13=xq(Q~j{~xAbqOprHG+s#jvqm%5Pn1(;9=LQAegNeJwOf&`waTf z{}(;2YZXx*bI8RSJcpdrM~qRZjVg?Mz}I>MmZ?o^S1z6AE?Avd&V;ah!}h67YnI>2 zQq&FCT-8ewzQS-(gG2_4)CT>88p8#ZlM$wfgJZR8u3^ZyIB|r*2fPJc1sW5|;w_51 z=!C&Xk#fjc;DDJXtfH%cqhLCSn#r~=r#h+)ckI}XBta$J5R05ih$Z!bCu({M`K(y8 z5n&WXn9V4`tX;J{rNVLs6AS5$rHxhVnz6%%<%@2-?pl@KRfbWn5V3_)ffS?%dK0-0 zjN`LGEE$OSb_JsJBPkU{mW%Ntl#1q6G_gWQB9#=Sgd6GnNM9)wOQe(vD^d!b$VTc! zDq(H`oR>q}v12D>vt{!})ZZ|uUj1*+MIJOrA7T-bJ^T_(cm zI)@H>J7zvLSxgbJBp51^XrLQpHQ7={AgELal{RI)jfO%*^gGyO#p-n%IHS6DHBy%) z3vaq1HI#Ex5DZfmX^8&jN|mOVnp|}iqYv8Elw9xac(*i!ccVNN8k*7dv}4)S1qL;o ziR7FvT#p(BbVH^(tAj`qqF?y@Ccr1_wJoavoqFV!m`MTW3y~}m{LL^ zkCPF|8oDqy=$Yii7zkA(g)>kkT;AHE5V4=5!L(-r2LVtk5;T9PPLwC#xr6&vOXbW3Oe`3KUt z5C#(msv*F6{+=p}nJhw1G5%skUE~xqagvk7ffQS-2SQ6JCXV7Fwc;BU=9IZ3B8He2 zDYA58l52|TyYx0OM59xploaEnrBo9GV;SQiFlOFOF;RF!#Uv>WbxhoubWI_n0WEQo zXCP;imO@N9u%~BI&a^Sbgz(1p2jiEvZ`-tfEh-OdI3u-wJ^knJp}{Ys$u(&#zdjaI ztZtlBaWbJJ)|Dxyo?GhqrB+H*Ai2Y6cWqiX5DYx0HlbDSc8X33Z-sgQ7f^oVWqQA>JO-6D8kiwA3k} zXd>>zEg{O)#%WA!7?psS#+a@pZme`kA&yewwA7ZZSqb<<(h)3=1&N9&3MnZ4cJl|9 zAd5?XD>EhpdQM&<|CW?Wl&fU_K zA+^CxrDP1-8>hs#M?6d+Wk~>e_w{8+KeLWHWk6tbN@(GW_((EB1mlbtroc7-fh~#x zsmWGIwH65>O$dP-C;H1qPAn~wDc z3JC+b&MDC=xf*sK_XFgup#SNmWQVWEMJ#M`AuZRoV3VikjCb~%;z`L5@HkoGo8LRFwh3CU7c zzp16DTvAG<^>kDm(sYj$!?)s+SX>Gvg`1I(`VNVcTU1g_tdw*symgVS0xN-6cWl z1vaXJEfmmKQPq)hZe~Slc&kJdMORih`W`7hEmv=piV}<6m}SFye6`JNTK%n>W%`t< zEtu_IzGUHzIvn08nZvSxMN3!5VyLmbPwxYeoowB@Y5kg&GD(q;?)l29bsIlF8SQ|K z_EASAv?)yrAw@Bu%%!OM&7GnfVyiodeGC;%mr+(G;agZ9s^|4UN0BB`MP=-da^!Rw z4d|$NugJ*vdK90hOh9f2CYyT<11#` z6jkoM2lnr)GD5c9=txziGAWmtTivy$0G=X}ig3=Iib!%sQc-3{sUqltaV;a8=4-FY z!CIO@B%Wbq)*O2ioD_0sqn+weOa{ z$|6$Mw^K$a{Gn}78lV|)%s5I~Ti~cRty;2x9!Op&3sw}-f(46~t==?~J;r#QXO7j$ z)5c18C>3$)9cB5UYyHOfT5h@%B1#ou{*7Zcgf*S3w?2~XEKi0<>XNr15|WhI3yO$x zAt*#N;EO^<&=JMd!ipnI4;#prrMIXZ)QFSkTlLW-9 zntq6}OruXeh>(_VZbih@I9(A#+Bytq2`6U(c!s7b9dYP5QS>HdL~=sRh+@q=zIe%s zJTIVAzyuy`!_vXxe7+kfET!A3(|*2Yta73k%v z%h+EfN%b-6Wte>8_3%TbX2c1$h-Nh@qAJ+vghD}0FsmBU6kDDet#?vH5&N=EnHfY2Cn45NC$c&d>Gb}ChtLimK76Rt zkdkYPNN1vlkm|6Xv|@<~-S+UNP^PjY6C%xpaFVvTAtlyDLr@W=#Pvr?la*G}6R~9$ zUbO}prGjE4SJRv`mGf{*@vMKNK43B&1kYH3Sg>hHyj{f&dN$#xX-d z^1ZEuIMk0a__EcX$1sWGGA`JmcA}EUN1>sJ7U6{u%wh?+7I4la$cuS>$L@WHjvqgE z^yrZz(9j|Jp%TpCh_d=2Au%^w##9&g9!#&J)`&G|Of~9X)=mr=Y!iVr+&z zo*>r#2F>qpf88WAzv zrhrN=%_x@1bk7B~K1e|f0=g!BPzWgW!}o=DC^fV}2NbJ}SbJt7)C!1?dm>8V=q}XL z*N@m!K{2}T6jTHx1U?>~IJ2&hejc43*rF1A?iKxf36*}~ zY9PueT!AX5oFC_QLK$#CNRC_iWELa=QADNbjnWJSqz7HT6!A+%-(FE@P(XbVH3~`r zAzV=~iJNzP8rif2R78j;)m?Qt1}&s*V&qAGTjfLl)9ELY=p`#Yj}*Gt9#;&)4F2+^ z<%o)YV3!PFt$whSEzV_`Ha$~5Z`S)=`wkwXd?JKJ4iph=7iMA6c4I9lM6`p`u@q2T z!KF^frhcfMMm?;FrhH;7&j7|O`g*yarmz@-;BDuBiga+_$gHTRye~`GGLCW!Ri@>C zS{Kwl?)*@ZQ0OP*lj@QGk$~_r{;t(U>B6)bw`sOmBCSzv`R19`qcPYmi*8%Fe)JAM zt2OhF9M2DzkGxMOpAESbk{3}JX;s0_JqM1S2>l#E_^K&1G_!lpKBm(Y6P|^Dw)O;s z2o^;%1+R2GxC?I{-beEJtU*}H2g9n){ot`$-%H_HybC_8B+pS`(R4w^FUGKbD-NkD zCj(WA#W06Ua}_`PT-3$Z~z z7>_ZXE~EO*b*`g3_o#C`5)N-#-&4gCzDG`_FADh{%3@lhTqrIzKEXSbAJxFc;v7R) zIG^HuQaqiUQa?Q%R2j75neKfSsZNyAQTW1!QjI0FNrpj`cd2IYi!E?Lr;!eI6ANMAhr_8&aV7HVQ`TB9*7CW`b2 z=NaYMkB!@@%7JtS#lyt8mVY3CMiMEI1D;bEVq+mYX? z+UYdINAYr_o)C|;P_&c1v}lL>9^%Q!Rh80v5OQjC(Vfm2c=7}yE*Oe4u9@zXXf>#t#_LErWxO7B+b%9f!Y{V8ukS~Do8 z1g)YRhB38xLE@3;k#>eir&CV49x5t5Pfs&^l2^fOJ&s%*z7bNMFXfblO)*}lbXaj- zvJC4$;v5Ui9()d|GxMFMGe|nHQyZ~5uOsDbZrdg0&a647bl_qTzE0hK=jk(d-jV8I z4d}rBTy4f|xhN+}teG53JcWMtTKapHYX`heUphq`^fT4z@Bv?FwSy;}&q0?iJ}13S zDrLx>#6#^2kq)&1(AeX$^LgJm9=?aI3Md>7ZY4v0DnFfH(@7`J8Ia?lb`-HFokffB zWh^zqm@{7wcE)}_`yW`@MYh9m%l*fp%%YqaX~jaOo_H?)%tnmWj~r2Kf^rTYzw@4Z z@4e^lyUv`3c21o*fjsE&!2|F*T&KuOlW$O(6LULtP}OkfKC8kb;bhS);+0mkcBMbW zp`sh5$vxquayqv&Ae=@y5wM16CSRgWX9t`Q<3$Q* z2NInFhq_GX$jP%0JoMnX`|rEw?z7={jvqa82tJ3x>3#*ETbR^Hh7XHuqT&$~MAhX~ z;be8NC!4;*sXnK89eJD_mn(7emqotJPP*ABMgZm`6U{Ww-;!P3>#o3W4{quca2Fh)9@ z5~&~?E)1v{@+SHlX@;MI29Je2`JxgX&aWRjjL~_d!v_x>I&tRQ)@!XU_5uyyh3Mb5~&p=|%+|&ERqoK&u->s!gdI zX(mnuxG2rUPV7HiD#{v19Xx*K+*40K`S_y`pS%BF3g`Bd$E$Ait0So8U@5IM(~6}& z7GieL%y2+e>2V#EGX`~SaRU64`=r;SwA;V}GkoY@Qd zZP-DDaE9oHhgpZ@MK{$qQoW3o;qOpYzJzr>JFo!s;J!UOX|Y%hiY3K6xAS*6*01G4 zFQwTSk1wl-1Km`2!znC^Cf!Yr$dMZ7c#5eJ+eP}C?Ff}fi%+0&DndEVp;Pxf{LJ}h zo_gZZhv{+dIzxYhKqYrW*~r__&j4vCq`9rHrD`~)lDBD#ITAys8)+hgl$=fDa7u#A z_t4p>dR#0~g%NHh>rix#FnQFxw4ebMVmqMmFL7!yGu}W0Qu_9E!^p+~ZJ9S$Pqv;o>zcfUINjPBn~9 zXtV7D|Hey8;B1Nm2M-@Re)7~w47^ddIdb&G?Pt$D{>%&Cdf~Zeo_zd~haj7?r|&pL zZ?kXDt{uAegMMX35tInK)@UdGP<#!C8g$(~XH&gRXeLBcHPh3Llq2sm5TY8@^t2KI zEMMwm)1<|8HVijq>LHza-_i7*g>*tT5q;&bx*?TxLvJ%pH4#xWN+~r*dUe|+%|RfQ z*oTBhOB#@l?#1|)xhAhf$5T0QrVtuW5-g+eLD7Vtk!B>C3{l8zYD)7Nnt@<;?_q`S zC#cb`3d`^jTR4(`Wp!Xq+S=P&0# zETUd+B%Y$1P*NirpqyVOJkxums~PHNLOdl()%zJW(@BQiI$I~2;jTt|&OPN`t8aEH zfp4#^do`Uax6#G}vVkboJCqXF0L2H`Bl#MQ=-`(q8eG(zYxX{?bI0FlF|=LLU_2$n z@ta$k{NWlr)YI^bMlt@DXfQ{Pq^9#SbTcgaX&lA))M{qd9pQx$;9{Vd6Q}MxefrFq zGpA4A3Eim5ckJw=ul(qT@4WS$*Is$?`Ddw`2kyQ5?474h9EEq>wSC*>P5iZ`m8cDr z!9;*lw=D)JekRH`j85!-AsWb`hMbbm42GtV3~#Gk($CcB6oQDb#GW0k$c6X$QqRxK zJpS&Brs}165YmCRD6uLVXh#5;<0wc~Pcu|Bnb=S?w=P>5r9Vs-UEG;4j15$d8jB%0 zsMQHSvC_T^rHoEhGYm^;luT--IGQ?inpHAPWA^MjaQNu)lXu*C=Iq(K(9WKLYHmMu z`yFTQe)NSm-+TXu?|kpg*IxM+Me`^`bJywHQ!~7rtFC-_8!y2U<%%+v1->Ghf;3Bg zT34aql#>j-1b09&Sd`3GbknJZuiy_QMUW;WnjwNIlF{EgH*;~CX@oNHkh*D9!^7-6 zj&Ll4f;@Z zsafdL!6-V_;H1#RFIQAVzPb#TK%T)?`7%9&{chBpHnF(#hben2O%4xCVoO0ElID5e%nGrodnG{DAOL-8l4{C;+);Lu)(`3OqmQFG% z^3lnF7QZ;kDJ$1*P>7hC$#_sqV`7Yqp%)3J%qizJa%)aztH66+SpBW&>VEJuiZM4z#-f4}gOiibl|oMChd6UV>nz=_Q;H z6*CZ%w5JFl%0J{}N-U*2X9pE+;Eu+r{jv^Lf8ksBR-`m>$48xLa(R9`aN+@V8E`5_ zf+>2zHCtBm0tu?LWlB1b7jN6L5x$|mL#H$4b(L`D7tY(kRB|kptNYK?7lNT)id5iS z@?p3cNM?&pz{0hwW)sbhy$6rq3HNgUxd$J51nuF6QTLT*9)0PDfAM#J{o6nP)rS{; z`lENg`}!*{KKIn)4KFK-~6Fb1|>OQtwpFlrZ^e)xkw5lBkabW*OxV-=~{Hx z`H!j=JeVe!AfN1uZ|MS3B%7%n{yF5*i%3N;pCOn=EK*ELhPLPgQ}x0JsTmw}t_;zj zNr7p)UedvYUgQhl4Co7JS)>?oxz=jIDI_s;?KHeJgP{)E#<=1Qa#{(7is>45TPq`q zUMP^#q!~Ve{=&!bI>YtrhCSGG=;U2+E)PBO=wlB*c<$Uok3I^?(9Jyj!aKkI$AA4- zzky)h|Kaz)``XJdJp0sR9506V_& zBA8T66->{?wEiW|?96jSHQim#&T0n2Yug`EQYkEoFQFNlTE_2A|Ht53yBRx8wZzC8 z?nN35d0<$^2i3`>!}{#yG`kO;yazr7m0gtR?l^njBac7!=p&TOgU@~Umwzw4eDLER zy#1YTzx4bwPdxhI{fbDPUKEhR!9XuV>Y1F>p)7B>0sbXv5sg&V5HtYUT)20Q(LcJN@8OPd-7xJp9lzZ~XLke+T#S z%b&gX&iCFx{_@Ndk37iAFWt*txfe_?@pr`~7h>u3BL2)?BA_=ZObtk&7jo%|VNfj7 zVo```R<*z|sT?_)Jw>P!YYm7sT4p$E*X$o z|AHOs)B>?mEYzk#k^Df+8OBhC8sJ&EJlz`c0+kH>ghM!taG+Mq- zr)8#4_+bNb3B6=QLc+u``*6MN+PfcX8aNk~T8dzJ(EV_f z?q!-nstDHX}&j5Mbgqv3_v(Rxci#5mL>JDptUT=*T# zlyt6mS$Rsi4Ao1|>Fhgk&y&wR`^?i%J^jqH&%gQpum1Wke+}RA?)MOiUU>FNrY`U; zCypH4w`)86A}&b>wG`iiJ`~=Cp1wF2sih{oEK8)Ym}tnoNDxD05-(l6SZI!Zqgb#{ zF)AvK1=&iMuuw2ibqHIIke&i2?`tK|%M!)A3_6!0mefm8i_ZQk-i5n2;9BCs7Bvbf z2*G;HE0kH#mXX3@(8DAa--{MPhWp^IQ8RQ&Xq{N}qF!f~lUjg($|mQMT509NXvAp> zIhUc)sEbg0j-Gw^sVAR#@%8V#`PSP%{>88V;?Ms0f;`JBFKQrt-`!_0mxMsH3+MG| zVAKYpPz!uZ=KG1iI2TxEKrKZsGiqhfv*?W_3Xy!%`byCst5l*aRFd23R8lE&D{a|j z&>U$HngRxrbD_y<;E9oUrxy;7!nIVV%g)i)%A!S#LcESn$u3eVu&rW7l?xM+T=}SP zrWyMF&w8~XHRX# zl4~4FU!&ct0QiKhkxtLC#Or)Va&MH9w$LAB6a1|>l~yU!bdp|$9&pgB^v#g{R$?h> z3%5|~bfQN%=9=YlwAjsT73WLWE2S*gwbJl7(_ek`OOA#xbp*Ha zIO}tFYT{@wCmT1cQ-T{YXt-9AeLM&l^&SY6$ZRnM_@r zF{4Bwr7NkGl2=C_P0@s0^Ef=M^zEon(bGntH6m&d1 zj3V81tqc`Q(Ml(k&Zi7lN+Xp}(F{r%RLN%vC1oO_kq|Hl$*;^9f{Iiy8e$BJeuVu= zpQ6(VZq>{pOL2@AuohFz(rOii_U>x5v9Pg>xH9l*9Hoj%gr8I$J_>T9@tLy5%1bVy zo5~5Mm|?+<^cNQ7glUPa^FiI!lC@)!cQ@?h^$rxxiSVqT8rgfEIzY{%em+X z$Ps`Pfz)MqF{$Fxds0ydN+&en3py7wgHq&u;5kAIz1!kX${&XcrN~5{L^s&Ux|=lv zNbX7u1EhqaGDcRtVmWF=AKZ3fL66d@NGZjuq);?YEYT-wwxN@%jv^PTMBQEjl|0K5 z*s|07ehs5C2x*V$BO>|8?1QF{Mn{k*D@rMJD(VWj&jgsl;@kDkyw_&KZuXyk@|_QV z@xf2t`{6rpe;1_{4u2kg0PCZer)YT;FIK_mQC52KD(ygRdnN=!9EGd=h zQ#zMIN%S-_C^!8v>>^*!H3~8AX#!4!oI;#?IVAF{vxi8+XsuHzR+C!FVdi~LDLLw^ z4h2;>Byvlb&_;1Tjl_r}l}I5WlCUJQRXDP4tu%K#^j(zFJO@+OKql1XRf9a^^bsm7l%;-Vd<2X)2`|17)h$c>_I?-xw;C;!#?q3~Y?2jZmUk8w=KATpZ3M zNXz5Zy=1|p)GRar9gvBlKnzDC{Imn0nS>JSl*55$oiZY`20oomn3^y*flxvwAy1kR zZbEKsP$#JrNt}DmaS#GorxT_pakj~hw$Y`;@&+a<)v4r$3Rc_1(>20ZicU1)ppszt6S|XrxCxDPSz$lqu#?dv*M?_(kJ62l zXVpn~6v;#dCtc#Px)Xl95(=sWkM*q)5K<&{jErv~MKopLC9;<^rIm?>J5-5&dK3k< z(lDBVP`Ik0^C%g97(_UR`c!>J=E=*Nj8Whr;K z6J{t}8CF!Hw7%+uo`k)WO`Q+N$BJ!M;9{#rCVVKbB!$vyM8e{YUgXDM zhl)(JzJ~M3DHCFbKvE;}ci2D0c#a)iG@Den^@|@r~`MR zs3RRR+9>LTO6WxBMc7y>Dc&noDV3D4se`C8DO1!nh24fanikgWsx2<&(&&UDO?^tQ zOlxwSB$qOo7FL)AF8}OO2Ql)wbT6lJF(ruTmZ%k*M;; zXa}mm{af$C@#xOq`@ha1Kc+LJ?aA z9hfs4KZC8Pq>)KqBvmLOjQ%aQ=7-=jqx*7r!SNS;3Gk*Psg|XmlSUdZ(g-BFS$Tos zpvxA@_!tJ{r*sW+DLsPKXeRAAUPV9dNVpPYu(&=r8oP2d4uMPZgG!BB>0(?X(`uyi zCQv92L752zE|G9}+g0R4B74;0%3?L_K$?g%e79ChvC6MvT=*nQym?PuVO5jwv^U(m1;1qD8a}5y* zwL<&OB9p!z$}>r*JdvNlXB3sBZD^cMB&GAyu#$+9zbIoU6)ASpebGoH4H*tH640NN zqs)U%7o(%i8BxjvE$6{t;K*O4lJ2WiedVBr-a{YE4<|Z?Yigu(B%ybPPWZ8DB7v=I zQX-8|A$!^O@CtOif*8(H)|$&sB~*$MSN*si!_J^c_8q_H{43x2{*Qk8i(mb!mSCTK z0;6C^x3Dl%h)mYm zE96a5BlILiB$*xKd+;UnBbkGQGPp)I8x=x{Fxd2SaA^c7PM4F=zA*|$N1%WaC|CDBlIBh8{s*mjg&_!q@RH^*g)q!iL{|66#{weN25yMOLobZXrRMH zggHnw`VI_$FjI)C;kfB7%}=|B84mO}pJpF$+>e&?0vpL*nhd-5V2kO;4( zfS)VmML3kUA|vTmEzt$Q%9)WwN>VgZCBnfCB~l|zC?e&dyG|ob37-OJ)zRcC*VYy) z=|rNviDVJhiC9x5(zy`Q&H1;UKqwQ+rIasdNa-VPGURCd!C?p+UqizqXos$Z@g}oZ zbPbjE81d4LL{Tlq+WgSCavKyPbyB56!d{j=qtIsCH>cj(FLbsRucbc8)d+T&a)f@%bbaq1#40;bc-HArekFmfA0~ zP2~{GGmEOqHWZc;-Uum@0|bHpnieB@$fpcz_(5f{Bd6|I4vPXwD1-umJoIZfp_1-b zlT?G%@y3QxoJUrxR))K}Km6d^|Ndi03b>(=IPBs=kh-Ki(w4168ih1&q?1SrM84yiYx*l~`8U3^ zC?tFulcP{bg&HA-(LsG5_LV*;5780C%kpeQ8nPAC8li-;rAVZZ)JI*n&j)-hCBiMzi9{~a zDI`2dl(4J&DEcVs;QFp!jl8&s5JQndy(eJK_t&ksG*J=>hfrOBMk4Jngu4)pk*OyT zssoM(yUzdGHXt-P5Gp(;bgKtZkV%0+9fz|WimOZ_A;B_473OhR>#=Hk%WV4CzVr5H zKKyS`$bb3W_n*FpC$;0Wb_`>brNV(oAmKuAfd-9dIOydNr3MZ}7!79VK{T$*L`409 zZw!6Vf6# z2z`|GqA`ggNfdqHor*-6%Z4tnl{P8qUeviU-qS^|G_K(wBt{_$4LMGw4@oc9%*!wq z*W5({8MuK|;#krVb>kQYm>ldzaTQ6(UR(_smqUg;jvV1NwfUn)aWP3Gtvk1EUSEza zDkO40J;za>9C`TN|LK4IkN@zO@4xiuJ=6v-dQdKwk)OzGDkIgEK6q^ml+M!Z%sts; zjNJc7p_GEup)PB&R7ZLP+`;}brTkAB-h>b7-BKsqD&#>;q&#%T=c$kOGnF>876GP| ztdM4zsh6D60i>N9eZWIN5rrV`r4M-vX^C&8ELcw91V=Q+b@a>hAxu}5ipY5|$i>t? zv&$3+q^j_u47E#bkvk2vP)Zz2Cc8{zC~!uXF8|2ddkHWH55jvu9mkFx!*!O9@k&c_ zBD=BdeItk2Y$&<`0**%#tFovM_MU$7dl!EA<}2qPx$g|cL3Nxud6JiIDxZhkhDmB( z+zV%qGF1=1pc=;lw4N={SCN)X8P^}>NtMpiMI{V%^kT^n z2ZNIoQuHuzPkCUAo;r#=GPp=_;f|z^679NdD2ELcN9G(16B32IfgbUtRvgd;8^^!$ z;fyAYGIpwB$=R_zY&8Ja0275T0#Rd^33a4AU>()Rn8O2=)KO(o9;j-MIEmCQ0wsqo zj4TvK7ZR#AIJ#x(fw2oh3&e2(;<){eJD4``vc&B4hYs%Du?3c7m0!akT=5Iq7%YEK zAvmrAh+)a`tQQ3@YL98yQRjvF%XU=WB#eYCRBlXx-Y z(N{-vxk>qsBDm?U1N*~NS-qsEjZPZW2cEU!VB#TZq&S#s3`&EdfF0P72I^vKx|nZX z1zKZPDxzr&xg6FN_kjn9!JRr(nlHL&?u$B@cyL?`aZnrFqbPZ#3)__yc8+Y7mr@-R z$DO#GRt!2$aZDN~Y2t!etiUkBti_L2M|h$nnzsAEQK+J{li5-oy4EOvvZ3i2avn@Q zlxXKLOx=__pN&Dc8M2h9vQ zjCnqGXiyu28H8pvLmb6%C@BqbaNwxikA@JxHo8+6PzL&GRR_xo3@(ZqR6{i7VtgoV zq&`9%QU_p0HHkn5nzT{;;POrzIhHM<4bmuuQw>@aRze%P(weTdrkWP3;yller{Azx zv1;uMzd^lg{}K8gMy6~<9-Zq@c|Gz{*2XkZ7u7*{L$!2zoiyYsHJpvbBRTdMlty3x z5Xm7TO{WaL3~@x-kx7TN5uT%HqxcPNPPXZWIhbte5XbGp8X-65bEslnPBdcMhX*9>9ZEIn$VVjC} zU8K`S(FII2FqYMmWTfNC?T$(b%YxKg2(hd3yISnd zQm(X}V_MGAr9P%fq`p9HbSXz&5s+-C4W{~8X2eC4)~rM7$Q|k?@b~P&`VKWb((WBN zz=4Xq#%T!SZeCXJUR)wAF0IEk8%Or|uOl)_Ml#_muC`>>`1GqDf{Zt#kn28Xb^ zWHjnuxPsmpUO?|YTt1K2LOabXMdN}*5(3Ac!^W>gB|Guc@e~A$9MRHwoK#fNu&0@< z)z!*1k`3p85>E;vqN=nJ(m*GW*L6UGv$B9&1KXGI#}G4SlOJw_Eq2@T3VG1!ncLK(GJ`U@8 zEn^8?MrIk?wj=YTE|}@$v@69CP2xR>U(Z3Faq{4NHOsHD^oit3so+V=s=KI+Ow|+1F;1;&_N{`CyyW4wUrXxxbx^e{B<1a z;_QiokzmX!i2UQueTQ+q=uib_>$`S3q`@j$q*$DG(*^07gT_J8J#uB9&7{E~(F%a&gp~6xpi9V}v7^)Iw9e|QxE2+H(B@svX<4pUR zMxf>IgmPtIHio;<#i?WacW$9O+_ZiFi8E*Ky60Z37(RXMz^;ptgx;fTaMD#k5g7Ak zy9)zg)JG@{gcB$u2kp6RP_vDp_!I?t1sg|dikl^)qW%{y#Q*XXJW{5s_(x$BT}T#< zFd~@9VL%t{Jjylkt0>KYq;W*}^tQl-?yq#AsdHoW$qRAIVT3Nwts7aW?x8wkX8%#V zsAG``A_^cWjI0>bVMPAP=@iyhnY=_=TeFQEt7!Iud1=pKgfP@yiYf?;2c*lmMtUJ< zL62~(&SW6hD6+sVK*VqvM~@#yHJk$7v}HT;4E%N|GSVXl_eR=zG2+;L;21`{Sqy<3 z>cIDIDdRK;IQnTWjZNZbPdI9=2T6Y|53Ed_AtuMOStpI7r26UQqYagXrpDwjq>GFr zJzYd*!6~|C?3>|mQRt$@MY0%8~<3q+Cd6gVIWsjrH?CF6|LLb*lc74j9ZPMt@f zEO=HxiBZLA)Hua{)3wkAqjBW$>MHc3Ar0OW7mIa~bt1RGkDb84OdrYwD0ALSJGmg7 z16c(cTp)^PC%|Fgcr=5r1*R7x2)$?5{-bx$O{5-pA$bmZ(eAnXZu$)ALjK|af7nDT z(Q6mOQHCUPu!s1PvWQ$t@q$OlW27dKs3OT?*MPH7a={#eBbJCGtty(*DY6MF0!?|v z5K&}i!D2XLT9|mqoLG1ZRXsTv$rvJQQ5A|IoSz0?{;naH&0%zyOLox}4;=|r#BI(l zDZP*^P{{~q6a|tY9)n*MVWouJDEqLdL{k6>VDJ@16-X_h3U~qxK)LElQ)E2%IchAs zLX_Oy9e9i(g4~u4kt3rusDKYGWersdFFA$G;tWb-sfYV?#dr*CFtVXCAPoGn7EfZy zA4$q-0VHT@5=10fs_H0=lr8`vKn{o+bP`kq2QbRLLlwm%pvX~&BTxp?3*1HpBW7Du z6`d%gBEB)h6TU?kRBd*;DK}J&fzwML0RzB zCS(^nM^a@yT#vkM1g3!*zFgiSJfjpq6=Ykgh9{-`8^sMM0f$gR1rom7ae?)HaSl<0#+)RD zHq^MJC~_P+3ksTmqWG1_G%npeCAJlaf&7ywe0^QF6@i5=9c}Xc>M%P?>Lx zJyH^ln+V@7M?qODH!6|{O&~3c*a1J0ng~76nJ--R;{*w_&yYl}?-@GkD1&-@iPqvU29!B<>{A_hgm*1|LY}UX z1d|YKh58l7qsrk^5-A8KM3ltt1HFbJVVp=9GZRG=#UK=gh5%91N=bBzkRX&_b&4o; zJ}4bInC3zx3I0sbp~JkGC=*LMYt?JRO)$H}UUNQmH>b~(+raKDNMB0SC{o#d`1bqZ z9ViAU;c>Jl)E<8vy1-@qas3wj^6#k?6K_?-fP_)oWqNfN= zlw>wRC1j%@hALtvAHhLKO)n#AG<7R@b0P{!&{EQ`Mx*SxRS`TAu*T1zE>-pqNk|U3 zS+-{L&V75Mj>y^oN2^&?#Gnw3wxFj#M2~o0(-u`ZLlF{0O}Fr|8goR{Kx!0?Pjj^e zvI+Hb4mI_YKG6A=%@hRO9|K231r3g{4>4_qVG|ouKe;_UyZD=32T$EAIYnA{-|&K7PJOwAq4m=w&EW{5H)IaT0rSDn}#EOA2D1J$T#Oh5FB$f zO8{?ZCSS7{R@3tmHNr(GrimJM5Rp`Z=p<2`M3ICPf#JNarij?X3(Lztq#T$JEnBl` zhs-X+vp+ViNTNg!ewA{(a1tz3C~7c|U=b%P6OA5<8mcHl5-V2ad?^PNC@HI{KUPJA zi`ZGF{rB=(DKb9`CR!74@nXWXc3-AIg zS1 zec=*Bu@^t13daB~Jp0`F^XH#`;e{8~UU>febI;=U8sf5Fj2h+Cc#gf%2sisdlS07! z!{ngXN+OlDDouD%5%{NBkD>>@Ha|i}QNwjgETe#Na|}L9Wt0_(q6at#7M)y@!$K6NHJOV9149~yt z;7|!ne&rSXd-mTA_z<56r$)F^Ci*0|qkzx>R{F>?r_%RdJ+cU`8{g zAUZu{kdT|8Yk(BgU>Q}bV&DziXjB(HquvG;-twZ)SfS10NAW}|MMS(P;|nAUDTktj zoCCyD)moOWz_&^WkV6^SQ4gIQlvC!h&1&e2{Ns*;cRWZfyzt^n5W=h9{`R+Dd+qht zUwiGfZ@>ETw_Z5^+|y6gpU^#A)^Fl~#Xy;K&p9Y45FiziatLwYHQ?nSBbIZ<5)0ZM zt#}6B^ZB5A=qAYVRun9Ws|^<=rKBE^Q4W_wDuR)9Gkz#iL*)$Z)B_gEu3N=;5oPzD z7Z7u|Z>GG-7` zAmuQi2gPh^9g$*!df0#Jeq;{kUw-w~Z@>2X8{hfPciw#SyJ&BI=k;&nLXpqocLWSDTfe4I)@l@mT;kpL#G7RAJ9S$Hz=J<_i!zXQ<*<# z{xf<{q?2?HHJ{9A(K&}0Z$b$Qu~RzrOYWOP3pCA!L>*$|rgf{AQw3@|h-So`$B}o- z;VqhQPW{zJf$);>EG(4~r@m}pMnky+-9yMBRDeosv;~W9Th5Q*vLKF`hN>Zg#U$mh z`_PFy?>_g$OHjg_-+k+QZ4aOGRY;WNFLyBOT7hY1BOsJf}+XU zfHTw(MDdib(hnn_riUbf4nSbY>SRqE>O@AXhWN>aT&m5?p{PMdrOSs!l2;vP7T>UG zHR=jo0f^b?lBFv`MnJx9^@f$(3v zFC$HkD@3BQAOv*{xksr%1=mzV$gE}!sysxXn4}ss1Ur1!GZ4ZL-}}*fKYm~B$3On@ z58wITcXfqw{K)Zx_i@QD#+q^2Ed^gi33y$42CYn&wP|t5p;1F4hNe#xK{TR>K%ulD z*2^$d&^6S|K_ktfi9-%FHEmg3LwE*dk#wg!Hm+P!6L~yP@`2HuMyP-eHH3OwDbSeN z8cFaKEFFTyIWTF3q0Y>+fjTvCJK|{7P(T##5UwErus_@k-@syPgbMi_#iC44Vq_<` zH_1Rj*Ky$V6W@RD{h$2wXFvPkg9{ffe88sPNQW3+&<_~jbM_9EqGA%GNzBU`$jk`T z8ZiXfRtiGE2^`s^ddQ-Oz8Go^s?$PT4?nJs&}9us@nZ5qo*^AWgNvSlZR4ujIxVpN zhiZ>JLzKAr%Z6;#=0ya}J^xmoavd4vpq84D`POj(BAVVHzpx@U>O4b$Ac<6i!i0`r zeL-44avOnyTA&m{3C!Rj^D193KpIh?o=FQe4^)Uy-vJ=_giLX^ zY+1Jget}(4O}okw91Te|F!kv-nXq@$S+{^}Zjf84_&Ktd3l$lrV)e-C(2DE0^AyD!?6f0DDR$l#tJv zx8bdJ@$%^}7=gSom9S`8WHCw?idR4pqXq^< zyj^uxePTXg`~JJm|MGXg`>VhHn}7AUfBTEq9zMzH^U=GX`^k^r{T?pt`@(ZiK8nlR z;P--&I^wKHIEA=OON|aOHs}dKnfSEepmc&aRStMS^Q0IuWTq702f859)fgf^P;oJe zP)-Kh6eZ9pu=Au#*s*QH>gDpv+)XxpId%fu^Cuy?RxI7!cYhmrlrrEjB3e%eJt@e2 z;3J`lP6|1w5{i^Uql6o8Uc`l7Toi?jwkknKrOam+8s|;xgv5lzu;-4afBLWg{_p?$ zfB46L{HKqezjG&Ylr6hYKKAZU@l)gc+0JJkr&B3$JX^L z6__M|ywT=_og;w(JJ0fz5@4g{iweqps3HE|d4-~cDg`oYvL_xroMJeII1A;5`8VCX za3Km#tFyd-v@!GzF9&C!X{p_sE}dw$u;av|KlnHQ_MiXVzx>NT|Mmyx4sE4N+Ir~z zH-7$;AHDO|8?U}}9$DjkcOh%U8Kj&jRdnE@`-lxl0A$RWbub_SB@Oikf1Ftgn#_g_ zpo0_wiqOayi$kE^n9`GW_ynpr-6&Z{+mZAqobQyS+T^d(K^nDpmz|&1 zS5YBuB!+29kaNMF;S(FDkjYbsfrlSTpijutk&qWb47V&@rLk$|36wXA&Q!r3H7J3r zohH`~pZo4V{mn-|eEs}m_n+RsO)H4k?LPhDM<2W&dBU@gKa6X7m)||pvKwB52XVEW z=q_6_?6SO+?j9_F_THq;;_O#61r`c-QSm_wSn8v=*J5{cG#7CqBe4 zI=_P-u6p_Tryh&B2%Os!r(4uBeY?6+fl8ntAcIZ^GGviKrvn)T>&6vWH9w%*VRXIbTj{oX zGU#hy;F&C(H`)7X{rG%73MF(xV8|%L$dK1CC4?BLP#ycCMGF_+e6udG1Rr?A4TuY? z@sW)X6c`j4cqxd9>tO4~)i7KvDbTQL$&wXQcfS6sU;GsL0W!t&Pd)Y!;)2Rb%oMds zLuCXc!Z{#{X`N04U=FhvPk{RY5in>(D>|q?fi59pLk5Q-BEY8juBZXQ8KgIerB&@H z0Fg^NEnimdwQ+36VJBK^>tT=6{r*xi|t2A(I3S9nc7? z_)JMO76Hbw-@K6JW_}iR!08kwJ#+^;QE<*$Z2ThGBP=z~?3^*Fra6wt(q;o``7K5d~ zi*j02+4$br@p1|DuNiIg&1h$qJg;Y zTc*SY3PHJZ>Hzjv>!zc13RTGsrGc;~n9rz!qK3SO2|_xJ2pU^A57X@ZJGy`nLC8Ql zs4^&Pm$X8Go^v>paJ76FKW)|-n;I+Jr*~jcEBqRWoeoFTpV3!nHpfP?ndbm z4f+!3y8{V=Z=gTWSh@s-Mgloh#CZd3X@1^8hswi>20D}LopDp*N7+{6#Nr2N!M>r} zXPw`VSM|I&0-acxIifxW=On~jJy$iN>2HlUAT6}qf98+$8N7{Ubwwz64<1ql*f$Is z5feCKROtZKgNe>TYtXrV*)2-Rm4n^9VDZLdFaPn+fBN3LC>nh0JSL&Bpi#eAs#EG9 zf~+Nm&rA98xZuyAf#TR%N61Jpr~o`Ko}ieF&r?2KK?R~@gD|6%Og9h$5Xo{Q4QT9& z4~Y+K?B9P_Wy2vNJvJaq0j;g|c-l>)f%>;p3+>OwQ{Sd?0S{IYPzTi)XeDiS8tpme zHc%@>TgU&jy0VNX^2l^xbvjilVEqWA;7PgxX<*}uMXK2$8OO5Gn-;9v_xKp_ryqv~bRq=m$+$QG7p*aZJ-raB9yp873 z+Hal=(8>V4o&80=6W@>Bz*48yp&*~cJM@=y6yf5S7}S6ebElKnz~+^UZ;a|a2deXL zTsn2{1q~4~q44Zek85Fb{NSjr+CdQ@9>no69&%6=bB?e>PXjd%U^iE;0PDw#dVv

kC`6_CAux5(Zb@<=4S>G^gPn-$N} zhGQD;cOf>c+Jl|C-wg?@iXlv+5Cs?-v9)d&?$MluRJGnvk3<^Ww~d~Zt{q#L1y(zPmyiJX^}cR=1LnB{9nTJCqQGRukS_$Cv%QX) zSUOz0l=5*Wxo`Y{$!?~AcgB;qx`Cmajmny=o`~i6pQwc$$s7@NTe;MPc~NSN=)Dil z7;$x@Tq32WR1~+`jNLHuL`SyAAc+a~gVhmKSl$_0B2j!ugnq}OCswVp-;)&_Chl5N zaKZP6L2B$-hCCPq7L}Yb^YM)4hx60V0?au6l+6$=*HMz4mxR1!)IInT8mWsVs$ZQ1{&#cOD|Md@zcJzCBu#yxIpfoL z25@JUzQJWF=KHVGtL4Oi3Sg!|#Kq(_UEivA=FM|-`cGQ*9#7V>a6ix-*ZPHKf9MyO zLjLu|KthjY(fw=_jO(KoEB%@-{E*gIj$5wZ;0lhUFn}Icfou5zZ7zrAdSQS}-1n!rWXApnD4yH+S(D)QNB zB={;VsxDe`J=l?HSb}RGOeKOb7{`M1SgpUeQrz@gupbf`*op=_c4ayx2^D!b(e(nN zr2G|aod<#G;pL?-^Le;p0w`ZT1lBf7hnSCebyEPNw>CxD0)poG#6nn*;;kUn;pu7n zc4eRDO`B=$aH*twhnt0VNdc%#wV%7&V}HcTI<}UDs+q!;Ys!ux=0nH^dO`6%zJM4_ zW~fSoKVndPuY6-JcFxZ{(NqGZNuv0O5;rwkutHVoB9w?$1j36blicN&(QcTEh^P#@q2DwSyyzTzc&*mz1z>qL=#^+FWg=s?kQ;X7hx zqZr6tYoTIu*Z)#Gynw{V5%v2T^th<_arLb;xb0P#ZYvMvR|Cg}u_=2gexi`a-l4R; zH)V6Xx(J^X@P2Z&bhjGCSJcfsga&ea+kH1@VZjX;(zV9z{cG`tGj|dUOO-qap6lH% zc^}=cN~h8BAX$4mL?1-g|+vm;@>vZ=RZHS?ySYDDX&op4XQdmvyvJfutUxi@>1E0X=`+#Du2VXd`Reejd?oP}(_L6L+%o{X%>h(tKJ0FhOg;7Lmf*fX?YL zOvK2W!ddqRsLBKFI0>~D-=KEOXXR>3D}|a`+TCSZ$?|8;uqIV-2Xa1!=JJM1o1M0i zQFne_t{4M|Ljj{V`!Bko5RSMm^-Uip=c z9l-9ml_wz4Pd`r)8Vd%FDyXI+#l|=3AEw`DPfG@w$HR6@_I{C=@rcT;REbhWXnMOW z7bKr&0WA!Y;(9WHV3Jfbh(A5*R$`HE{A?&zW8de?KsqH9j_f{hqTC~8L_*>s-psv` z7a#?t&6s_zF7`*@oF}&cT*bgm`T$_4bv({4DsynZNoJ#irxC^0#l>zWesyD6ztStw z2rrGLodMQLB=UNeIk+cq34lN9fcQJj*D})z^Os$oS3PFk)|Uu$QA5%xc=z}3=x1L+ z!IXj50XZ31*{}%Cclhu7&^h_uyVjp3ybDmJ3hiF;I1p+@d^JDgVtzzA9kMXm^&zdc zUj7+4J0PDCQ@G}sI-$B1cyKK+7F?(v8o%&hcbAyhPU5Df>LRkJ8JS|^;V8|hrqKCO z>)U5;D&*ELs>_6-k}OIQUr{3<_`T8sxTeMB!<-k4L?4k};$hB&TgF;OH7kn((*2)S zj!UlxETvsuk4(y)Pxqwy?#||jn9K*DkvyCaVkQqx-HQQQ9ATUd}ad^!W{*h7F#UnjW>z5NK3%bC+X&LvLI zKrcuR`F-smdz3TKJ~efmw7Ny+FZIZ&BUk1fE)+2o>u{%lKAnBoNH6++{k8hM^ms;} z0qPB!)Ww-oL8OMZCo$7%8fFGRC~#7UN;|%#-O~*8Qp&@OtNXw+7_gJfvC!L4t@@1> zWO7r3*UHeI_H6$*{^uCMJ4Tokt^X))(eoWHL(7@V@W+$4Ng)0o*q9+2rFQ%E08c=$ zzsJl}5b{zopJ;{2XWg&&o+8&B#GA@S%=vN;$r_Y{slzMJ-?Y{JS6yY@ntSi-i8_bz z&uYmr=D^FMT9mk*{Fb$Sa@l=0{h6VCtbt#Jaig1U41Z2P9`%t6<7zLN0ljQ8b;9i-lew=Tdp1 zv;+bePS+rX!Fgt^G3Yx{TxO7Z(X;vfmnOTa;m*KKke>d)CB7?*jvB|t{X%EW`pFbew=89B=w>|3y{K4_l z&oeo}ia(EH0WdJrKsP-#?(`L6+KK{tni18QXKfk{P3gr>P7mFcfMk58K=5GBsl+9h zD>5AYn)gxfZx}nGdiF3jY=3c~APt4u(mC0^PJU#AZ!9Zt{*W02BR5trcuJ?;oNM|F zpb<$?F58U-FLvv`Bxe$85dw$(Y3n3lqzSs8Kx!Snj(bT= zj63)PJ%85wrhJgoy>mh90Ix_;=nM={GgvqLPV17AC>H!bu1~8#j7V<13Eep3&tr_P-V1CO(7;nFXwCP1eq?F}?xZU~b9TtUMiPXB| z5D-m~T@%f@Ykoqxie(2jC1E+zhkx z!8-Z=j>0Ay6;%e;$T7M}WI}SZ#mM2pt<(7;#<-^|Ibr}ufPZVljX_WhyfCpY!K2HK zl#X#afIPZgaoTBaQS(M^7~nX9KLkR*eQ^K}%2C z0wc?iKF(W*!Gp3ztSxL=#| z1WO{CRX!Um1%>9W?BZ6f%2egPj30veYq6MtXc6br23BsXIbPuD~SQV}c!e23qy39XrNjNW5k6i@@^eAlFT_z0c& zjrQG#_s09yTjPI3+0uJbxM1F-KrccDXk&|QH0m)+n91UUgNPYP~~KBjL(#i?D!QteLmCZDiP@S&eeb;u7B^lPUmQ5Qp z(9PaMO-h2_sPb0=$ovoPd|UQc33I~9#lf>hgLcz1K7eI^9}UYy8rIY^Om`pz z+_EFJUGUFS>Z8MT^@x685~{sFsNvopM?r}BK1Hhc{r>%#mq;evaX^chXs zr*2lpwxg0hKxfIt2tKopvKMA^3;S8N#A-LU?^9ux;xvZhd<(9xz?=k>0NU|!knZNA z^!n-m%-PpfhP)HK&-1h+eKzpFJfQ+Y!ik)@%~ZH*u#loqG+gMYvwPzVgaX~jjy4bV z=H7x5IQy4>d=66`e!0L*X)ZPuyemrG2I#d@lhOcLDzla@VF^2FMNH!WZYY}}zq8=i|6)5)v4^DHfSYKa689>}fW zOA-SCrp`_sXB5)rk6^z=Sb%7^68-H#x#V|fPu9eqc|$K=`wfDNN52mkeuUcgcNs5# zul}AsxjvO+hV4zs>+<`rAXjlt%NWtXQ3$dqyagVeShb$`II!DIL%Q*($BzN z{ocN~qw{31V1Q=1zgA>%1qhNU-e_?zEQkMZ+aRc$&iq+S{Nzv*!(IWj?yhz0S#tua zI80O^MYM4Kl;g##Q7NhVS4EKDH3T%)S`BzXL|%?}pMR$E4TEg9f{1Z7Z!^%_2m9f{ zFwsCY`D*}F_(w}2qq|DcLCyuD>?J3#Ke%je-KZ-mIoD{Bq}uW2U4g?y5Q(i5?D((_ zCU5v?=By+;fM6e3Op-fUhz<1qKjs8#N|-XB_Et0~EI7jxD=&XtJ1Q-XL*iX4oxfrw z5bsaq%16_zpeY|=W-@H?8YuRp8iWAn(Yg+pg^o=#^5~5&#c?G61x)@O-fp{A#Tlec zSgb&*SN4Ar&B)9;CqK4MX)UN3Gh@c#LnU@)3L)q zh%mPxHZVH1&tb+h;~WQ}ea$>GDUTPAWV8E?`FHBZ2%6-HyE^f>@xbQ%Q6*iQp(69mZvT!Sy?ShAH>Hb|{vGLC!;-8UlG~VHQGuE4w z;s&AX25r~BkND*AJvJ0BN-Ud$so9lHd!qXV6HcW$)5w~YZjNCMoed-O&uXg+<&ZWP zv>W6c11;O_x<69{7IRHa5PMDU#*lkj+!wCM3S z+ty#Tz@Hqjv%_y)_+1-2SH1%ed&>A zqpyB5ID(lk|2FI<9PTE%;*Z7*b9{#6y5G{5JtIl)Q<$sFdYZEof7}!Tob-#EwqLqd zO|6tGCt~9HOkLf;l53HSp=eLi(E7N0J;xsALr+0-{tx*$AWI5WlidwzbQK!x(u%}E zkE%v#dDZ+a!5+pGfX(L#+2xSz24I|{>3(*DJT1(|J$HuR9&8`5=;gSoHZkZ!0Q^@meY=L*YCGYE7C&`f~uYF+?PD?d4=gQA>z}r?yLyM zPAu#spk=Y2l%_3sI?)Dl`MsfeV&%EnRdgS1*Ih0FJ6>o{EjKJa5H`nac8Zeyte`^2 zbe{YAO^k0y+@8ZGhy^<>0y+#+Erb9;ldlTnb%nu#>kg1DtYQ%$h`G1X^HPt{q)A6c zXrbhXfGPi72T~7*GJIx(Hm+T@sWj;{w6$6OXP4Q)P5MNxpFo0(Vvpn&`Np0xthktc z18R-43<&>27Z67!b|eh?79)UP6@NyoO&h;)Xltmk@fa)RS1hZ3dGQ#>REd6gQRt(Y z{t4=I6N{w9oEeU|wn;8hUibNMPQgxA-HJ zlu0pXS-(__D~}<;3z8aF*Vm97-nv1_x=c#%RGb&(&Nv=PCx_Vi`|04SCKollW`ijc~Zq`Rii;AdVqwxD+|bt;o|Xq6=*99iCMI->I2S z0M;va_^Zt1DSrTfY%jEA_@UiQS}R+=60@p;g1$rQ7h zWJwDJ(52o;XDdYCfd%~KGCs)G2U{peOrRex133lK?9SQOsMew?q)_OqC3AM!B-B&xnnB*P)ht9ru79{^7KaOtmfr z7I#7A1OVMHAK{Cc7?-Y4+ZjQ8l;Tsyz%)s_4stfe*COY+T+f8+cDPDK-ao=)&FE{F z?#;{Mmq~-IL+4>`00sd?s#UG>W|tm)Sw`eURt$Bs_%v4!#X=gW!S0u5YD#HjAQ zVHgaBm@?D2a84AXh4Icd+Wk#eM3MwG6j$`_h9hf>H4Cs{tC!dM7)OEoPx;dh$MoIA{?!@9u4 zX8?+gYv?zFXkWO&p2<29QX`JjmU7`I6FjkVOYD<9AoIPJxb+V!?3)kePm_3vL#ls+ z?B01jI^&k4GPfTmGC5cqT?zR$t>eqURB_W?aPuNlYAG)5IL0kLqGLcTrp%a0@)OW|{3Ib`h` z;>XHB6jEoGrbI-i9!DE9k5Yg%4yYbkqu(^UyEGsBH2^SF)(k(q8(s*%eCyipE~ptJ zR4eY@Y%+HLHn~8Z>rkJav5Cr_MM`9Ix7*fGHFkOIwqqMUviIP6pF>k5R6ocnH|gnG zw?XPIPUDHG>3VQ&$$wEe7Tb}IlC3rFMqozGns$chu`VzK`xI7QJ-+}hv!T%)J+2H- z!`>TbNTIF+KZ$;~mHVv)I|^De@NK1;vHuKsqOP#l-S>3*4;|IA?DE&$keR_?u($nX z{4FJkOGnpgyyx7Q4ZK575>`MuHr-Kr!p3i{b=b4%VpuR0btyv{|662jQ#;^Qlv6{g zV$p<;g9gX0xOM*ACtz~JiwrD!A$-4tTXh24x#wdIzN#Et+y&qb5G4s+x{Q??Hc!k& zKJe8)aW0+1H)ILMVfeNeBz*2er;?O5Zqy72^MGPy5(B@3JB7DQ!mgc9wRBSx;niv& zMQzuPmp*^yn{*TZA`a>5sJR#Zd`)Uej4<XsEXFN#_y2vZU@>-{IGkC7%V$_m%D7G+Q>qFE;rh9{9C+1oH~P0D{Lsa$jXKMUOx0dE0fNjLH$6H?k% zT^|wA4ulvVml)nzX;v}HU0{Qtw_JuCV3Bveto&R9P#3L&kZFPx4ISK5utO#^e42UO zT1HSOW@a73SlFpqlfh;35th0@r(IEu=*z#Er~M3$Zj3wRd#p#`%QHB|`@ndlij@$9 zJH#sv*gznB8-r1q^CePmT5dhNogK>vpmR)x#a{}!x%jN zR}LenO&nb>r4qEH97(bCWOT`qj>Ojby$g6Io$HVIT>M=q`}^3on8>oh{=NPfZremf zwjZqG;Q$-RFhd=b1qd5P{?@S+u@t?O(f6-gM#2rwVo^ZO@B~(m3TO#5yI#S>lvG5c zO+iI-Ok(jz;^_8k6I*i3r|WZva@1y}%PxO&lfk2#jL(>by|X^F4)ofE3HP<8S|sLW zRbs|kr5QJ~u9@pAi6B|R3eYGd!pGVvmwCCcLVAr}1d3#W*svS;^`4G{Y}&+^Q5fA( zJaU{%kn7jp&zkoOk>M^o1{PW-O95_Gtda{}oBp}jgF*Y>RxjM`)>wvDI^E~qH@)N{ zJW_Nc(eGov?D|@m0sG4Fe+{HBtv`>?H2hjCah8Nt69PiwV z#yV2Cd;e~{ZE+g{J{W$AF^)a#q29?i?VaogjgX|WbX>;Y8dx|bh? zyge5-vKEXxRJ1nCmg#8Usxd%alWnsJ*YhvAZsreg08FUy(}}Q6~kE zS?H;YDjT)*4WKbbR$+bCY0OAiX}K1R&n(*1!ovMHXfA>w!wQ@ z3&mi>s!&x^%wz^(1OuTAk4^Qv`!AvtEaP>DK5;~K1@WiN-Dz18ui{z}6z5eE9Pi+^CGPIX9 zR0wJuOjTwnsCZ%;zQ60bO5ibQW~FcV1seo-uCWPPCp`rHT*-FYatCQS58;ub8fKwF zHHuaLLdMZyKCSN`*DyK~&~y)0Ce=)Q!6yy|pq&!$+*KDLHDYA$)t-JMO)g#Gy)S44 z+Mg3L3ULA|I3C3R!Ue9lXn3gJ4RXX|z-~E!No3<` z=hbELG{J^`XaH2&Sbiik1p_q*PKG8kl@hr_ehrJs_QHIls?dGnEIcY5#I9W}O#Z^F z9QT457x0hNKf~f;sw3;ttU0rrZY10m**H{$MTsg}g=*0LWFUJk;;N3`Zl#+iFt*Pp zCwZ-POCsMGJH;Qn8|pdHBQaZMtMzvFB3wMb(s9!|f8Snj0N&G3>VFjC>KVL`a$KKC z_F?O=LPS3SI&ZaHU^FGQCp+mLbT)r^@9n(ebCJHDUmO2$31f9HsIF7(d%k%vM(aoY z7BbZyU0KJrFr(x4gRr%_Jq0m|Qqc;p@*|mFa!Hb{_K2J&@g6#`m~-4gXGCKYgvN5e zZian#vmiCxWdB~c*e9OxH!3|Ogik_*PXCcML@vT?~J^kMjgfs?x)$%2W z_L}Jo3v#U%Ckz+0%amp1tWDe`kF+1=PMeccO#v4ObLX`|I26C@f{gnb!xsOBK~}9F zAVWdFl~pI#vrg-q>WrKl>oo9AxCpTt^0RWYWscI=sYT|4ZvhMYKneOI*6g|av9cCz zVe!je% zbAT2vJmNa742xs!`SsWfMUWI=(?H3d2M$Bq6x8^`NFONdc0j#XMiX zK8iN+X^*t?|1VLn^7jdb;wW>ypB$6A5FYn#|f*V)+{p`{R?|~ z9Iypb#M~oA!GaF4T$+Je-$xWNjQl<^xv3qwYuoQ%JG{We5eg2>*nOY=TaRhJ6*{>^ z;0@<^1JGCFshkqV`}ws@RjTCK9CDFRJOF9Xz%GwkwORQ8kruTdiv~kPEELH zXC&eIt=JXc+h02((U0B{3_BikaApoPq+0D|HaPTpRC%vSALhK!+33r1u`){yuExR~ zBFPBMnClV-=l?BYyz|1ko)YP}BXhS9_M3rYyoMK>m(7RQ%P#5JQi#ibs$6#@qU$Ew zjsA67J&AykZaeQ;Ugz?jmQYM-Ne=f?;rWC5MFo#^EASpSy#U0EHZ%kz{yz%JgMLK2 zDF@&TUzkV6aXPFj8C{LT^R*6eOEajdj~)EX`#*iX9o86i&d%EqinZUJD1kn~-%iOl z%*Ax8oZ*C`>oBoq{}gXgIy34!)+LHKLY;|AUQhRXQZu|}PA25RNM*LIxBwfBs6W8V&}k9;LqyI;E}KF`fwAA!-2s zKU2DhoI*+a1!U1;6eU=@YN{|IfOt<0^$;W{1`FQDQfE)jei{zEZCL4hV{M$SJi!Lw z0Y^R))@C`CBn0@rLa0X-9;_Stt26}iJSlw-u;yvn%0+4o!!(GfT+pZQI3g%`_S3L* z58MF?45qciwMcxp_i>@k?!|Evy>vARJkbV=Ogp|ukSQ84Yry3l&0WHTz)4RX)z8Hk zpIl*xy@Nx2HDgz%k4-=0MWR2TS)FDl*U5{>OVjM9;aARt$c=YaodoPz-N_k}?HiW< zY!U{H+p#Y9WH&UM#>P$mg<@F(MkO%NDXJe zYyfkm`DXbbv_^SQdD*%Xq5t5+ltkvlPzuBhEmG$F|vaR`W7>of_E!Bn?>YX zdXK@D`Bx659{L65NZE1`&QjLlpr?Ec+C4}yIe)Qo|4|IbsMqUEl$DW<&6j3?*E;W# zI-KO!K1rc%bObhso6Y-6Uv}SiFl_-sK3tNjOau&kxcB6tnHP(Ho|g#+dz0+@s^bGZ zTwah3SQ2ObHpW~A;mItrZjfo$*}!Z$v`&nWQ8t4_NYv$0Yw9wGeQI2Szw2}}L$cUw zb{z+J;3N|Ma^5AKw0+NEHkbofczIs^DBgLaIEoy;z9qZglt8E?4We(M6V`Bvhg|RL zo8fK~5cz7Q0lH28Qmj=Fy07%B2U8YS;W5I=OJLLxQe9t`@-M?##mi&efX{lN)C=cJ zMWkLIln3q#`PJMx&1KHh>w;Ao>zt_H7qgk6p1qi;a0j_}b-L&O5f)rXr5*k8IP1~V zaq3aL;b+P?=~&->-3vtD@qg)_hT3c^Pm8k1$KVGH#&L$)vQj#V!P&GQq#eZz-Cs8c zQ?(+D#*KvQZJ!T*JKYE|<)&JeNk8Fq@;i(f5701u`5^1QNLggoUn=dO=f;@HlAs5u zX-UMwJN!103X(7E{;bfoz@p6uJCB~!uRj+A0lMWO;w;K~=`MzlO+Mua zd`rQ*UM5RKg?y->ddcM-fuZD8FuHNPyED2HeM>sajh_xAErGZQ`wMoSJe9f#c5`_R zZxGzqy#%9SreO5K#GnMAJm9^S9v{{OzkBm=ZB#f!LZ8up5>^w~g;%@(d@?~cC=g0c zBZ(V!Lf5zvlqkFYs)?)wmyI{xHOP}{ZP#+nfbMlKocJ|;m%j+S-l(#%OPfwO4sDws zaQHY9B$4-gJ27pu?VJLPuQJ20irwote`{ZafJRmN2OC1z?Ey`WYPe z^>aXpq(HKaW~HC>3(7a+_Ij?I!k^8c=phznQ@d#-G zlXa)w?xQf>-Ly|(X_ieFZm!>HB72SGM^&WMutmK7`J-h$AQSVnY#!ARO@yavKLZ=L zQYmearLV%5Uk6F)X5_h_O)+uLEu+gPh2M99Mz!wIIO$Hmw1^o>64(f%O)a={^AI;Y24QSRc-paEIBJ|1Z!XZ9xR~%u2$j%5N?e@~MfqP`Z$hw2Xir ze%WcsSh&$ofLqV_{_lBfJ)_6iSGjx7!sdUI%tb?%#a4y({&FB2So*AD%^<1lwq1vM zH7#3fHvtawnR%AQGN4NQ64;Y0vxO{|++{L%sk1OOMJEb$oJDc_5pKMHJW$r@M$ve;hM zq48|kAtrbadQ@cpC0Nfc&8kG15rWn=Y0L{W^C)P$4V$TfdarFSW_-y)Us0? z45t_vWvrZ)Zps?D2q{wA3N%DL(9lg86xF~_KhcLntNA-=SK0HuJ#TC1Xg9<@xyXl zx6j+XRZaZ#D?`)LSqmt)^BRM!#4Kl6U{9PN{d47^GKU6UVm=Undf+5B@VLr#IU`+VqW)X`T7Rn&`^-W%$ zckVIlL>LAPlBWfC&twW;a%-RKt;)d)IjiBzQEv^nfpg%$@1gBYtuk}E=uxP6%gcwL zPp7wUZ0T#2&PUEiTe|8r9lxksCEw6G1hixtXxfvHCpbkbJM@9w*<`9^>O6c7Svxc>r*T!6 zvUy%?3l62gC3&AI5vHg%7fRl++57F;Q`ux-q{Imw6NP30Iop3Z?q3MB90mNF`n^UT zdYEq*g3%xW&0|B5O}(K4v9PZD-YitVft&39U|qUb%m>Y8myhQi3nApsH=y{E%N*NG z@57=DAIoYV#z)0KID3*Ee8x_1wCTl{8~hB>OQTlMyHB$fWW1Y)$ICL>nwe@~`_a8{ z^;9ym{rJU>kW`<~^uTf?Ia+6US(!G+FiKJYn=n0t%jf5)=w@t)VAr63E)ws#L4ahC zY5IAc?0C%uQhni^HvzU@B49QNn{A@4|3k5@<2R`+vw+fb70fJebvfBa0b!MtKiR1F z!Rv-D{D{HyTKpjb^AJMd%$fvSP$oue=)G5TEkp;_jERu8$3jCN1&<$J(8}f_tOd%;|R+W z63zQz<4Y{?l?4R%`$X-1v(>6LMQggYr&GD$=-{E? z6#4}YlQE!ATqdhV47;gb#-aVs{vucu^igzR8DqLK3bUy84Fp$hJ@>jEFdTsCL>UDR zV)riuO9|@_zA?^(pS-E$4?+ytiXS&g$(^9EuNgAMFnoS@G&l+zTA8J(Tst!fT}$t3B)sxh+h~5@MD4+e%t^4LcQ(;sK?WGl+6y zWvM+8CQ<-VDXfBUJMDK`8}mfWeOT0|sSQI1W(lU@Z1c>?K*@v_-mty|YnQO4o#@~k zMA0if^bbvEMdsO6R?@-K9KJPUr-A15Hv<$^Qg>t?c{+qc|2S4_{~sp*7Tvr{?1_v( zZrNc5LYcN!;%uFh4CLK?99{%Ple9Nue;vl2n<(-HyCL98>k>c2w91&7Mj)zQ-D!Yf z2`&3YAjSKrA1B5KuQg7a@oZw%H=i~|Xn20BED3Xl4YQP5AW^-SezG@OY11l8e!6LA%w;2Crg$X_tH-65>qJHK#J z$qj;(YTtol(3BcAOdnE1VP`*+b(`-|(ep9G@auY>mwdgr_?a^_Oa4~>7Qgxg64) z=Szwu)rq+#La z6K`C-zvVKBrv~7Au$7AGQ=RbPRLeX$tE~K8V?|cX5knkEFXli0f96>g9qv=vd!TO; zE$3ge|3fmU?~zP0a!s*$ObL@37LpIX0t3-4Kp==G@^Y;*CTEuh+uyrW2Y=dk+Ths2 zaU9=lK9J06%>f_y!$NJUUU|$Rr644UpYc#)>m0&JSYxmw+aXG$<`G>E5E^2YEvtEj zMeY1njqS+jf9kX1#xX7-%;EOA9ALH3*wbjcQwTGl1gns#hUtzuF5J)rbFoZ!g>7amr7{^2lmZ!Tjf_6*dY0 zV7hAkfxxUNhs~=*V$6XXxdJifb~xk!EmP;wXcAPxN=0vIJkD$Xe9&2sBn$Gi_?#_- zfB5NOZ`{$)^>T9J?goS7MDT3 z@2t!sI;!= z*=+t%FRcJp`Wey4syIFz1LVB4pgpEDR|(4#>phzw;YRj}?M0FqHE2CQrizwU>Gq20 zWrc?+MKumM&E40{9ftxi%7vYFIp6%hHn_4}PR{4!KlpT$UIC6qswWA9J6$NoK8iGE ziZLIGc9Eh0gt2qcw_1iE zMc-PfjMG{c{os@INUl-vSJ^?mR}HPc=CY{U-KSFl6FOEqYf3Xu;D?qJKx|~Y5)9^r zmh!%yxBZYv3fn$`tA}P#O2iNnJVM)vIXWoC2#&ZNzwSJ7o-@DjmxsfrYoL<_!9qHx zh21olW#1Yx)Xd1+{@Vqd7g{1mJaxFi)ChEO>@W6~%A)hKm#gEj_8*0<%=2{R^GwBzEka9QogD$BG`@|6 zr;XebpZ=pyD+bCpX}`@;!T2gcpmzHAs4VTI4|R-GFa6<9ANKTbfgwQ(Jdz^`;Y-!E z^+kNR({UoHC*q+QHJ9J)wxK$KK6nwX{dYf=TBR?*^*0T{^0YnkC*EH)QlIa^0p7VJ zfrkE=8to;HdWgM`!X2=ci)9~Ngl~f8zXN5UCbp%WjkejDwPE%4Ww>4fOG~&IexHj zZ*npa?2n(p1mfc{vd~1}JeKh2TD@Pdc@Zb8GnF@H#qy|EG^wy)g;CSE10#-t!&;N>$5tgZC~&jlWt(;(?6 z2eNo_yq5cZlQi{DptHX_>xa?uI@iL@hjAhv&)4yQu5+tz<2S!ErVW&q@A>BLnEWY9 ze|G;bFT-5KYBm>4UmAb`!g?WE&qO&oE`OSE6cwfl4+f~l?d^RdCbjeXpnX%t>_5rt zXQbJr5!vmfUs)Nmgf#%l5AqBDMd3Pez`9cQRe2e>yz;GEHRluh$-plk)y>-2Z9IeJc&J{T@|ty;9^Bg4IYme-t+gTi2-p z>`*J}Zc-@yb0l-(+wnM}t>)f>$wy3MMHolHA@!2>LC+x@1pe~liC-R|F@o|DkX=Eb zn3T#`{tIqWw<%~#pZQ&rGFBJ#v_F}Hsye`qO9MR6d*oRFrqm1DAEm^gBF$+R;7&jD z^L3p}NW|Rxi3i|tI&Eq5LjNU85)OHvoSTJGjHX(j-T8L`)6vs7;dKrf-AyLEu!N{oj_Vg8i9x?RN! z(|X@DTLDRS2EWo~J;L!2WMgL}E}34&Nc0%lzG1ew=dFX*q|2g0+~pJDH6dAwZl)|y zo=Ox}dEITuyNIbu8A<%0Y6TRO)77fRUfhzSc+avD|3*<`$5Rojf$@z98qA^IO&l>+nj6)y|24-vG0(t)hAV(H zh9a&NaqgOq5;OTPNNQBTTnNk*Z9zJ^JL-#Kn7Y{{;W3jI4H0>)(qo!x|A0%*q<*Ax ziuaSnem;+-(8eRNVg+ezfC1VwBc=5ST~_Re<@sbT4!pB;xkI;`GgK?*++8C}hfRmp z`XS~BM&28?tSDAK=6p!JOO5FlkIZ!tNkb7|BA%n1mb*~YO2|6BplqYvy+`?K`WG%-+vgs< zx^m_$ht)KGjiOpW8Qx!QRW|qsRuxm^ALPviXRo>J8HPtxpunhf>#(jVm5g8}U8vn9 zZ}e{Nz>Sf`Z2FVMvq)|`b@E}Ob3~nBV1GCPzf31k{eQX@zPcuHC1aJJxW)f>XoQ6b zRzZv8KQL2Mi$n5MNY?o)fmFzy;fj5kVEu`W4E9Wojj!wI@g=G5bvN+M3{($E&^yKx zC7O(021p`(HUW)8HrAmw#sx&KtIoW@VQqpn7hsD2a;UMg8Gif`QtVPxrvqtCYy1Bj zzG80&f24xWmKKFSq?<+dIYFr8>hf^5NFvV#~O1n;Gdv{yW{&*x)~Ny~tPR z-*kRg3s}Uj2aZxBTi`LasSW09N&>zckE?~(RPz5**3yMk=Qdbc@We-GBr=16MjQ>5 ziKl>s5XUc!RFBqS`}Sck?VOM-v-uA6Uxeu}Vps1HpEFg{EoM<^tpNg%WT>s_s?mYM zsU#!8_j|>i^9*7ZjDn#zT7FRisimY3gLaGe$s^Z zu7O$se$5QUvk`tyezSGVtCektg54ru%(i%b{m%Rcv2uWM8l_Iaio#P6Bb0=O^Wayt z!bn^V8aafk>rtEQZp$;qF5_4tA}t^P0LexW_7eE|0WT0{xkZL{Qk>gI)~_%$?MqX_ z`z~TW9Fai$mBK(*6lR9DuPL0*J7=xWkDcIaSDk^e0F186kAWnvRI6H$Jo!O>>nZk& z6)K3qhF6|p%m}DURi~@RfqdMgayNO{BHVzn62eyOtj=vGPG)OpGi4i%#`8S=xgK-e zh7~YMR%uyB9ke_P`=11j_kjO~Zd7W&4_DOb^unaK-2PI>6#S5@bxO)I*#L7!Wih1= z$zqq}U!vTOnMnN@`Xhc@J?(VOSu{g{Qd{(2muy5LsiVvm63RIpL4xWL^Vp&2UHDHa zJ$gqf%aV?b^GcL6@)o&RfylG(qA{~dXSh3>MkkhmaS>=T2f$E&3B_$F??qbrTJK0eFgwMga z80|AC44v@9EOP`11@k%Br0-IyFa0YLvPc8G3x1u0@VOT2JrT%LCS4wG7c#6Qy1@dz zl3$jg9Kjc_cz=gu`n|64GG#~6Yf;Jd(e{Jg*Mm1BFc+{DB^Qqb?i^gpvb zbr%e~U`78LGjwX4&Iv?;uS3P`ZgpHIK{i*ZN@-Mb>WjyerBuQ~p{C)?t@4ign6Hv@ z+!L@Ev!_KDmRo1OZrBo+9MDr!4d1LJ6VgKAN2-;#)sqH+(z8hg{p;m zNd3KlLR;oVfGg>bY>r)wKnOqh>YehvF#wVMd4bH5>Gh*#dDkG@noN!ctQRN#Du10X zC-}~Xf-qpprE+J7ewaYPKHp16==S-U5DXr0_aS-UXN|;Al5BaVgeI;0XYsHGb#>2! zrPtrN)5wmlCk35i4c+FLUR>7(gA4|o8t9zXC#R`rE*TQ{a%R5wfR8e{k8HGX154iXMVdUP(ZOq1@-x6mZ~S;&EKMzGm&exrVE-TqMtY_uI4kn> zC$@~h`K)h+Q-eVk2BzPkB|v}Ye=9OTGxf8KfZ4+Qk2Pi;15~&>579toNG<8VQtWsW ze()%>0OWQ(MK98kuG*2*bJg2W17ixmq2qIKw{6nP?{&@+W?y4Cfq6(mPC_+wdLo)h z`L-G#-ym_8_&X53CeH}UyE)YmHZj{KQ-q0n`c9Jrbz3-Ko8_zJ45 z(j70$^xoV$5nul|?_k@QI^vs!X09jYAhL3j1R4>fsnpa18)XiZYn7hO)MyQ%elp+7Gzymz zloOu}VUOfYjfj_i|Y=%H}ag zfWE67(rL;1W{1foRkbaqKK%W%pbsDQTS2mK2R~YMZ6FNJDg#q&M&{6;ikZ-?wK_}( z30<5kB%2aU`*=@+nbCMWkF2Pe^tKAd_P@kf6jLPE>A}dHmp^7w-x$kDkLx2tFmUWL z7ifX(-6=|CNDXFm1?4~-J2Wq}8lvpeu`@pVF}uX?g)U9ZZaO2BJ`DUH6#Vw&xl!1b zyGSnHA2tT*Dhzg9tMt?S7Z5wQnW0yL6q@~o!ri^Kz)?|MYyJ<1j@q37hWVv zi>tNqh29Is9^m7ha6LW=K8Q3*9*YspD5PwYTVRU0zAg}d1oL>I#pNxg;cU{)cy2}a zrxsPa^TYy#2KrlTe@BZAx&ecNn{CMT;R!+%YB}slG4&rk{FGE8QB{9sPzjMn5S71i zVNf-ckBF zR{TX!&2Yt4`_uaLGaEpl2$H0YL~<@pq3<&dHy?i%p!hX3VDZeYz2;mt+A*$HK)kyF zk1aI^3#JN(a&R`i7Nf?lh!plBf{&40j=-F`MD&1(MAwN!jCAB>{)o5`F%7&+3J&@) zi-qcvMoLb~>~C;uijz`x&Vo@}s;#{m?5aA=zoS%XB8HYu=8%Fsi9$rxT@h6(U5A;A zMX}1goy=~Hs6a~yCiptm8dwLYH;9Pt?x$)`{Na`ARy2(+Bm4Ji13k z-LHq#f<&&YOhVM3#>n(Uw!$EP0Vt&ITk#hl;?5iP=$WwnTJMRp>2dTMTL!e(pd{i{ zAl1+l`Bp@?6lA*Gsx~_g1NPNdIkCvvN18ds8Mh-zq649i5~|5`2Lw$^yO1 zKQFMayl5$D5|!UII)K_Yto0CVa6=#Y*I_q^9e%g2zSoY&fSpOPE;xZ6tC$cPQgzsA zAb&nx?^{Fdk@5n4gJlddy3Nw{UgsEKA~l98_-W3GlNhp~Pa>~$`I|yRn98~gY_GHw zPVfl4MvoBEL6W9bn;ri}wI$+%AyyUr`fb~CmZz4wOZU4)dE^UhX2U&(eZo`IcW}F)@hL8 z#?TMYUj!jQdfM}cn7$+fA(t1rpz~L1Y~%;Sb}11_5^Dyr7Yv)Jym8clTMjZ26y znO+tb;_xAl#pG%Ke=_kAdq;BG%ej~y`TL3_@E4rNK7)`hzffoDQz?jzaEl5!@D)q9 zl(ONsTtQjlmQPXY;ux~`D&$Umj-Cr<_~vlJVB9$4l5ldJG*JlNy%ZTA6e@dn*9ZzX zkTzFy^(#llTXLL0`b#4oep1jkfei~uz$MA1iOGG_6X7>R2L_$)!KhEz>=ZU+(k%}3 z{rNbKr_)l-zqhoUvQ02$`)&NmAtOqUk_yjY>?%p|g3P&Sp8NvT zCmOaEeFY@l;z+vO28#2M1GYbtw6E%;-+zo`?lL!`3q2m@9%}i5F8T#tJdaEFS88@C zliBr~L|Oe@FfF!!4Z{augD4KEf+}`pvjYj=x5bg=tVU4<-x#OSe?QulTC8IIhwkY5 zmeYXKGl!Z~4?`^wLS0mM8FUtO1czRDnU`DxGw7hB=6H1L?QSXearOTMNUE6M=;z!N zxlv~|B^YG7ja&-e*Dd-`j^V4!RcFymT(2VFOTLT?VJ{v_Mk%>}etQ zSG{Flw<*w$#Ai3Tu?c(T$>=W%ZZ82$TAIsnf$%Y@>etxH{L?UWnXq9JL$&7489&3l z(toq`*r2*2f{rulCR^sO;D300T1minh+7u{)e0-uPwl*n$7Wjkx@h)NQwUma@P!MhTp$G*!KQ0t%_|Zcfqlvvn`3x5c_NffeJK1$(5kjq&pSl7IQ8(# ztSa`%lB_#e>@SMCF0)BkH+IMT1RQgfQpBveG(Ala>KvZGl*fHu#!cc3jNh`;!Yaqd z(_Sj;^Bvo8>4Kvtu?ZN1Vts%~6@Fz&uWde33gqauAwjT&)d##u_+ZbO?w3>jmZLuNci=^)< zupJo8?ll}$^EVmzjRX=Bg|>{hb@FxhGy0WABRuWD!|{4}!D)#1_Pv@7iWyDTLYS2x z`M4y_@W7}5SEe}l`_b>SsMszSL0H9wEBffvFL6erpBc`x;$ZO)Aw>UVM;42>OBXD; zR#xsZV`2MU{*0wc0V#z46}b~G_e`hL#Jwp_vS;VXFMSRDOaB}du46|M2olj8K;dt` zL^mBpB>L)9ZwE;4?DnFv)tzu?&zNE)07^~r7yl>@HoWut3FMOQ{iCBNu}D=yFRSqUW+)7B=%X1XY9B^plGJJcTX%t0S6eYa-Z6(O)xY z7Xrhr`$fX2C1=$HY=kHzMj>PNt1=n0(yq;dx55X#4r7)YIs|u2XNUu{Vn7t!BG}#i zt}m&*9V$BkcB77iR^#cUx>6Ad5S49Lb}%SG4Ug~GzaDfsyUP{Y7(H3=+pOrpmX#)( zoYI`6DfLG!)J^t2vD;?l(QSm06aK_hj#$zhyX6j8 z9;VXxRlLRCvaO7sv4uTX+r3T8Xf1_$3`h?zmfA*F7ULU@BgQd??twnH$SoZ_ZzdprEJrzF5Ho{bUGFi1k zMDQ1`RkPvyZvk{stR_;(<4GS&(p0S@<+-ynQPOJT1G;%ju=nc`Ge6D321Ve^xm#vbR7lI86(Z-YK>EgeIdIlQy%(Kcf%GCML(>zcZcJ0CHR5zE4q~Wj zo=H0GPiLap1;2^r!s*zJ*}B~{kUVsoS$ps|kS)hI5}ySSmy=bq5$Zoo&#L@RC@2?3 z7N`Y81I!-%EA#TRku!@r7cKm9>%ySx?D?)WF^(|BP=Vt;-s|A~9o|?}`5-Uemv3vs zBL+gSJD&Sp*gY_eY+c_(a8Zk^!l`Xvl~hPC9J{o^4aw7E6D`r) zwM-(^j9)IyDh97ZW+hC^Ti0hj*2rn@4z@ILTbrqYnn18P=A4XN#Cfmyxm6`+-s z2r`4}V(g9<;w{F;k61YeK6(Pn+Oc2z-5*hjpuyvbkk?LYbJ{8Cy>lf?=nzQGlYzQ| zwuqq#@v1`4{o2(r2xRO4psv%bc-A-qk2yCd?G4dYo&*7;m#6z8ZT8f+&Rae=+!L_% z_30c0k}gC1guct8s$Mn@8=xLmvNse2M=2DAPUu^v7D18}jKZD+C?o8C+)fcgt%wJ> zWD0{=qAV%e5%cHAPhxN!bY!+73eL7X#n%`uotY>xc##)DDPa+ZWtW*x>r!YI?p;VR zX{)e=Gc1UkzWeYmpPO-Gby87St8=4V33as4*rzW%0#isb z^>T$j0}=1j<~>@A^;_shK-jjUW>N$Jy$OWDzORcK3xr3dA%EtL@HuDZ>tR15t zWLzh32Iyi<@3VrW(@-M{rR@e z+fGjHP%a}Z1U+Y@hIa;V%sjiwDCF^ZrJ4eE0CbeJ1%-)FrzOsV$YW~-)`cG4?ZV{k z?>vT?zlqIW@r`}&tX2EldGgHIz6>44k=z@jQ_(#zr>W3L$S7Zpnz(kM;vk>Y?nwk& zQij3O>~K`?df-#Ue z3l9!lx(I-?DfG;of07}Kv*q_+x`-hQh3_`=4wd~t2546whGohW+-S5j-A>(QrcxW6 zFE`q*jYz}2LUChp=3MXRqYFL4`Y5)l@^80-%B~0MtpbP#E+bPWmdkIm_5f*p6Kly< zzDAMiy)Z9D{pdOhi~%ndxx|_LQXJ4Kh=JtYDIu%3Vh|hsynUD}2fwCfbCGi4dQx9m zok%I?7B&Y@>ouLkv)2Qr?BPcdtgV<}tmL-!vW1NYfu_7#fst%`1QAD`R1x8`WPX3z zq{PIqsg~MoLm7Bo^;Cr;BD5(tXSu~VReMun{Nx1glERb=TD===KDn=@v|jZwC2*&f zu>LLd=?P|E6O9UaQ^&6mEFU;ePpgzv`B#a;)x8~}ML1N`O_81un;BI_Q|u5vAM4v6 z?Jy;#&p^+Fh!Q$nDL<(bcE^3_Niy*6)LH)vJuwEiffCwtxAKzNldUy^w)>&>CXe=y z+WwG?)`9In)-?X6V^Me;y7JFB^8jQ>-7gm!3_Kn5YB&V30{($B`4D-QWmnIuDX|iS zni)TPfc)!rKr|nD<{2aZQ#8>3V^nrk(Y>T^s*!5_CM6%;gbu?X?@fy-=aW?W%AI@o z)X_UbdEzl5Gl^&eqtoYY1qRo0h9Zxq2e&~;UW2Y`75z}PP4~9wH(iSEGEVFx)qC(L zGEF>DQ(mXpbaWZ+uN~W)tTvb6!G%t?x3q*>L}O;h-!(5(8F`)OT6BOR4-?_XAw5AV zn@sv)Jf-<41W`>!M$=yb48&8JkWYE9Neywj& zF!e1{AN>34lN8$mjc%nUT8uN@TiY^2h@0$_y?&kg!V==}%ucW68KgjHQ@K=bY4>V0`23u5!zL7c08Oho zjpxFm;+Lmf)pPEoFp|WA?UQe2TD-^LxWPQ&Z22cQ)Go7D_X~Az6*GfQ-ut0SSc|a@ z*7kX-;f*jVkm)2;0|Pn>Nh&xiD;M_}Ddb&mwS64du z6IFJ-%vSa@wIRc^HEY>IMB4QUU& z0(I-@;`Ex8{~h)1;^DS2w?5I%YI;^BHLZHNtbkzBg8NMDzH;@*AlCwe`{8Qd?4}8$yJTfbh^U|Ma23I!)$V7qjxns5m=F0`uIk&Z z0bBW2vR*>;{7;3dr=tmhn*P~4oV*|!Ls72_luZK;nI`! zJ&b~R(>*@}(v2Jmzw=e64-zS+jLt}4jwn$ltSA~rHrFeN)P4bzJi7TuqtJ!9WrmTF zz^%WobpBS`VY)TB;xay$I;K{p2rnGwZs*gqYIR3wO<{+)p>U9N08~TYLUOV74f@!n z6z`=lHOHLss5(P)M6;Z$0i_l=XsjuNk_T1?@;XP)fs7y60Mdks5}@7VqxnVf92Re) zm{TkON0f%@2UfTRf%l$v18YCd+Hq}9E?&jtLKC?zzJ{_``lg21c_tL1P4}4~n zTV_fM0aiIflPU>B>pzPo+SA$z2e@DDEvz@sP3)gY@o%`fhc4``tbt8*-#E#omK!i< z?R^A{F&wOV^UIgyrVyAWPx_?X7`)8AMec~ZG*YkozV)dFySYqz5gl&bbgqPb+39`_}*vw;1ZzB zKu(sY;)HP3SRT7Ix2j{u5*s#V-OV%HHU?IXIE+Xw9sqCklPIBwd{ zwH!5xQ!=~(wn<(jp5ejy46jS7;hZ2I?iHk>o=|JqRMn#&3qy$U>woA}7lbeDPr}M! z25J+KXXBm}Ke}&E6P4e{#1AYyk-}{fPlgVq>qf4PR@2E!UcTffRhYhS8Ns2iSHT5v zAI``Cml9Hy7f7-{1-=PmkiKr5o`RU}E|B=06$c!P(wy9Us2r6l1oG>Y4YqrD_5w=% z+s-g_?V)-miI6ZJ)~0`DCXiN^S?#N~w)d4CO?nj|y00Zt8BXhmpI6W`lD*y^3}AvU zoLGx~(Rp^)PDl)?y$H;+9vhq*n3)N4Vq9vggSR zooY(d^hv!24{E^-nNQk$T`as@pAZBvE_SsY`?zAVD5a;ITqKB}36)Ir>2B9|-kuDX zJ$nXZdTnwTI#h;7Y)TSGC|kC%-?ncHcHY|AuSxd#zGd_&hN#Ljt$Kq3?Kk@Fqa}nC z)8f^6vRmn%!3?TBG=zsBRkG9e@88xBr5HkR~F}S7GC7 z{_akZS|y$FH{9gP*fxZz!_4QV&?y2B9#fg~3Sawkx}env;$IrQccS;3JPfP4;UNTn z;fywQ2ZvEMOJDxHZi;~RI67Y(`D5$_%8VhUMEV3wxYYQfjW?WdNXX8p{m7#oLKOEB zeSd?h4U7QGA&Zau;#)1W$IYr_RuMrwED%1);Sg@D%&q!BO`VH_h%C#f^+rv|y}?#i z5VkiQgFi5M6nMHB_D|B;ZW_LccA(5wz?)mq@;_XRnkN-nLi5d@wx&>=I@1Kw<$;iA z|4*xC`Z;Zo|0KK^42^UG-VR;SX)u0{kzyFLx?{a1cdJb^j`nPoJT01UNERrN!0=n* z+iTOn?)+ir*_fcE&kzK>ma*sc6iC+fXSb~-vxCTUeiC!4DTqh7=|!7+LiUgWHx`{{ z+kcBszux-I)Avp zPG!e{GJJA00Nsy@-Y-n>h)WHZvYBH9MJOT|0$n2rDJeyw(R#IBM^dR+AD@IXLKNIt z#E))0M7|1{QJUomrwx>WmeQ%+8ZM!y?549akD3mYu1OtU(;dkiHj+h<4i5tEvbttGm zz%?C-(gUY?OA1f6VeYYsd>-0BG-nGPNfDc&+uG;Z{UDJFr>2p9Q8b4}J{i%!BoOr2 z+Z`HR|3!V?JH4jzJ=-6NofUyAMuM__UzSrgv>Cul7m#vM zg8os~3b4Xx-dX+A=UImGmIhNyEwcSgqE)NDR>yNEOKO}`_TA$WTM&$$lT^tG=t}^K z@HQ7+Be`hy8x+EC(ALMiF?$5b$u$0?Osq8aF$ZlkjA81xlaRu@HoU zTYOuJL*61C#`nh;=j0X>49c^BR|7g@I7dA%z_Ef%q~l+VR(QwTa4k)wAggyXH_mFU z3K+L}-1{*CT`xGy+i=4RFEU9MqaTfRni?O2{obcD9*iD6oR&vpwloae$|)Z%&O_%F z?qbjj!_9rc$-rhsS@)vk$II!ib=T$i^rdtX9OouYk2w^`@GQ&hAi7+=04fUpD~)6y z2Y?hu36?a`JG`r$gx`xDkyG=}&uvk~F-JdySvu>$AB8dT_D291Q= z?<^~jWcx0)_!1)s2V?a=s-@R3K9PN#y2f_9C>UdhK>Ry!#~C12jAn9N zkqk3sDy$1P@bp2B<29iuWCXMTnKwGhgFaz6)**9t%}Tf+iKOhJ4JBF2A3qN@#2Ot0 z77=#mi^u1ug-dxqE25rYDOiv7153O0I~vQMJj+buAdkK9?f+s|=}4=1oc4ImkWlP9 z`W9&iYGRHB$;*JvD)N&ZSt)zn$=0M>+O`1dza*0npKGnbrXm_?_7qpHWgk;?#tw1zL=R=oR%%-zOMYkkvvJwa~ z4g(kgtaji^fD@5=YE0!aXy^sAy}-FGrTXN=VrU8Ps#DIQq`~cs)sB=-6A+HG8A6S^ z?hi{2LR#G?rHoW~mv7{`!QUBj4p$#+K%p;fHcQ#q`=#QA67+4JP=rjK+pSwrkA5U} z9P}kDlJ@T;b6CLd2+j;fGp^msOuk2L#}>&$5oJ*PTE3FEl)>z}VOQI|x#1%e&Ninm zUlKI!?#qwL-5xu=176{e)Ts;_PZ8I*D3izV3_5}bx1u*wf6>C}?~YqTl|g(_3*?g_ zw0mp^{}NLI8@Jff`l(dwJVjk+MhPLm&un{suNN8+$>6oeBa|f+2}xu|Zvg>+A3yv5mM<(nWMLyzkG$CPDwSsLeEwceO7LTMOzoN0uea)`DaC!8tlNm z{@6n(6gOA3plu9HiT-TNa3Pc4H!8R3gqOFYNEdb|-zi`}DtgTIE<3>9)2R?Q%vLSM zzY~2-+dR9aBCscV0^gLh9^CcGHWonkH)Ni>Od<%GiLjhJ1tZ2Sg15Gv49&iW5+5~2 zYu5qvmAIT3r;<4Tcuu%xSYAYDm$@{QvsB1pA!#!=!&CKD=`jpkP_wj@7h6-?m(6}R z8mN*{?=fx@NIBY{`iZ(8;1$BBxRAdj1ACtK!< zrsIy_-||pnDomGZb4Esmq4L3_vzR)qcWPo?_Q8t9*PYLE{zPRsOp{nYOleqoVol6y zU}uMk$+7_OGltW`h<)W<@BaU0DFJpuMbUh3e@>(%{xJ~w>nr97fXE>GYk&ytXY%|slVFi4=+uM{Wuthp%Gm}@)gXkjpsLEX#;wG~peG@O?FE_p zF)b`N_y1>&?m^4T^}d z0cSaxt+H7}r0nqJJGA(+3zDaK0zK*hB*o{`b|DQ=0UY+Qzt5?nYDvm5^7dS_OQj$; zl{(V8=l>;MNgI-&=_~AQDwEwbRYWDM>pT4uY`HzC$o`mlGk=XTKB+^?c<+)4IsJpP zIdN7#oCoA7VSg|hx#^Y$rt{QBkV6U4KDk`b+e0^>L$QnBss&N z#-@()*$yz6 zZ%cozSn?xkiC9x@9(Y$gN~mTh6rEm8n;yLV@CT5-k$Rvp7}v!~Ul^#Oi(+_dhP>A+>-x5d1S zZ!ig_p4TN%C8V${PUNT>7@nD_YhCop=e+eW`6uN-MWw|o#DvQUde*<`?z~nymhc;v z<$(BXQf%az%GoP((b&p9c`^L6q?B1h0Ih!q5;2XRGbhDxj~5UJveX{0tkYLiHXrE6 zG0iPi)E?UgG{BfdBGdzwvI<1>K)-Z$tFRgvs?2XkM%BmW^yO)O7AUm|g_v{qO_7f{ zBpMZsK`sc%%*T}!LvNzQpmKKpD>88>oFR@&?I?c)iFfTka8ZGort&O>1CXlId$plH zB0ndAT3TFT)(Q&408|G9bIzc?zM5;!T|Ody{;eduX})v}|0mO-3zA{<2VWCVgMCj+ zWa{NLZq4wO5uUehr=E+y@D~k%^&Z=GGkO!S0!82Dos1%B&Llq!kS4U>3n%}9$|KDm zwAu}31_@EL!vQV}&U~4?s&pR>c&8SlbKt<9=osvaYgH8SyHm-q3_c}^$VBlrn5nfX z-PETqidfW&TgMjOC~iTBEI+iNYBIPq%=PZ1fHVos?)Dl}#~QA}b_w@23JT07MaK(y zCK6qEnq}8b5@+>?Bg@_bpwqr7M>#k3T(72-Egpb z?&@b;`c?&;K7^dH+-yHsWM9;mFTy@+CEzC{*qEjTf-p{=kz_$V9{MuA`Y8pH32gwZ z2A3Z%9{fordZ)NC_}z{u{!$IsDw7hXJC}fo@nK=ev)k(hy1fFffnQxiwkwLRFCaiF^a>1y7nfMbsIxwXc=j$<7mDL&?+}&1% zE3exfdEjb`s7!;lOj=a0C9)`styjs7LNLvTScqL#jY|qkx`T>H_^DNfwYFEU0{b>y zMT!+J2mmt3ag#oIl7-DP?@h9`H;KHV`$ap84j@V7$fC8F>)v$qhk~zl2V)KThA+XX zu&Ey0h?mn?b30{qJ(mZa?Pb!|`k@Yid-c%bYO)lOMlfe7vnQVjN;Y|Qg3=}g4G~~^ zJcGIG`_q43eZ3F%#spx^u0L)!F(&6JVQK8F9*yf#9-*Dc$)G2$x=_mGE}Pfja|OXx zxX04^`G5gmiWv_Ilezx;jJ1c{SU6b$cBk43lS)^&ren+RhBdT-#_tXFEF4LAl5UDAw68n zmU%w@W_+d!yI1I6u&5u`<7j|yP$K0lLm(v8;f(9ZkVAaD)yAXfjM7gi(e&!4;=N*X zzu(Q`b3u;*LavB#4u#A7whdmb=awoguY7A(-p}|+G=7HKUuvSQhJ${f*C|buyd@nR zM}3CE{J!i>&Mu6bUxdKQ%QZb{_~JzhpH8Id+>WG2;bx4>7jr=0)+(-p75W0qp4Z6) zmVC_*nuQytzGD@&opYz>y|u4M10+by6 z9_fe!EVvHJFq8B1>1T~?|0+Oq#bDu2nqC#tRoh0nZY(R~kMFRyd+Q(v0B7TYN!kDFdiWbM(q(nZi{sQa&yvj?M#Yi6a@2zJ^TU-WIz zjW(iH?m9PP-5v57kxy^)KX=n1DicDorB&nBBC{^RaYN}kU)!v7tkD!f|2Mj2I1Eky ze0xsKPn;QZC7xEreE2B?oZhOT4bqs~%=*6nNL+;r<@CMQXak zB*Q7Qd9D!}dEr>{#n$duW7YjXTZ^70w8Rv=GdxmImo~q8-27_wT8{a7vE8FBtP|-o zAG}f%G5r5pybg9`s+3nU91xy3JtbPiY6wxtc_Ue94ju(mucejOUGVWw_r0Nc?WBf- z{D?l)qb{1p6#qhJXr> zE%ntSDyQSj>^lE{3ERJLG&HDLvt=H6%%0c0oMCRY+&-A4x$UxkF*vP1zFykg!7Z@fCJL9{-uQbx z%8Mf%yMTaDUPk7ekBsEE3qkq6qfn=5*!^b=9Y7?o1-r{SK{ztU%Z3`h$#qg_!f^_v z(+Sgoaf>EAH&sscP-xz~U}WmpdrE=(Rdh;RQOgd0ZEQ{R04R@0#si{U495fag6(#O zF*4L>7UOr~LSEv|HewWi`WRZBpz1QEgknDyoVu)?> zGl|@hXTSR#f33|pglR@wLtIIvG-kpJm&Zq}KIu7gDimyW78z;zk&EWy-!LeQM*3_z@F@fDHF2}eYMQG}wBtVz-(ZGtnb)c1jHKGr7h zM{eqO2o}1z5R#w(O~%tQxmyW~(r2d~<`|-f*}lkvSYAt+&cDPJ#@*G8L1i$V()OqV zMkfgyuJ5N*0zS)G20Te+h+)CsH4*6Q$!K?~(|Ug%v?q{K&ed;aVYin%=&8nJ(c?&~ z_xlqNvZxcDNyzCVyzkT!{e7Pcw`7nN4_Ge408ZS=UqxA5NW?845&@s=?8@3yL`()D zQTb$FY3O*U>@g}F5jw$k)1Fa`c+7;Iiu(GsOZV3=U3*+}myY`{hYC(S2*4mJyXz((^hNhH=!z*X&&>Y3j}$^KU`J)&+RNMGNP$OKh7 z2TniAug7B`%90pq2LWSexxL2h+ZK82Z}T4dP_JPv&7l`I`Qv|W5=X1&jK9~h|Z`v?n#4Y&d5*Z&KmB(_jI zQ9|*ZgltUN+bY;WdesNg#t+XXj>pSDES1RMr=9+APFhy=!EJ{1%K{D8G@lx}*lgsy zb&^FAF=PyQ>X%e3np1;vv6y^@sTg_g``*b@RvIp4)AP_htNY9W{SdAZjHd5tDuv{h z@bt94J9nKQU~`)-z$b`Xf*vLAUx@2lvU4H4+iXFr;u40P@Ja6 z7%_8Dw!N7JRuv8Qp(mHzTfufFg<3SIMWO9s& zlI~h;)r?y#CZ~=x>nUdGX<6}ChYev4nu2;Sp+xuPTD-am_xaQvuvTQLw2D|=NTU)Y zA0^N~SyQX+fMZZe_DAvmgQ5X#cspg{Wh7ig#U?)LQb?e%bNDeivw4svj_0l9uWOMK zyEM4fKM7r*ec55S*;thxQx<8PMu*E$n5p|o7D*y*? ze<8l}09?#{*Gm^hGDIM*weJzaZ#$uB%)!i-o6y#Lb=q@yC8(W+XRimPE#{7W6D@cQ z!ar^~+Jv7HjNej&QF(Z_LQ_B4gFdW&V#jC7;tw{O7F!mf12E5mIaLSuvbrL8gb`z@ z1WSO1b#?Y%P0<2Fa4zp*_ZSq{nFbh014ZRM+_&*j-cY&W*gUCQ+TE&wTY$%d0hJ1H z48+nyjbyW7q-#&|AUjyDByAtLrBuU+@YJ4XM>H~=2$PWt5O2hxy|z~x5Tc0E*D~(k z{H1mSvU7tZ2*ShkYuDBje#E&$fe}TYm*{(>?VG;(c3+LG;6<$}gv!{^AI$Ire)kuA zHj)q{>%IMTr>90<*Nu1wz>}I>S_2uz{u)9jRQ4`SWqixFe-#O}@W39o{>g5zG*bU} zF6~Q+sb1z@Xx59!fbgIYED6Z~j$JbF{ZGIXzHovz`aA%ot>Vj(eWa5;suAT0SQNVC zn>z!iVnr~jqp^km9$n1+!sqT1RKfp$hvE`COlh4UHWy*>|sIJyX1S2?SIo1mS?Q@dwr7#h?s%dqr_pz1NZ(+cT2iWh^WZ_>xv zg#O0&sO?wJ&k&At?SmRaSSBoPN^4YwA^#+y{eeQc?A4uv+FYe{|3NMu{Jmo&EzEWk z{O~a7vXoLlWaX(>0C{RulX;|+_KlO4`o0ZHo|7`pxZ?sFCvZr2at(-l#akfCP48D@6Yd{qVTr^9_SaSHc*a zbyW8B4k^Zs-|=E2BCl320P9;&z{;J6AS!C#Nl0O2dcmXQR@m7OoXOOi&0_m}W3b6atdrgfCkGZvtn-J`kN zyuLIy;xCLoBkGh{3{Zo8cYa?hK_8ac8;(s9VKV?ylV6DPiH31v<}a!e&R)Em4p?^* zO%3d$PMQ1H-|^E@SFOJVyx^<MCy_LQnY_avwK418l z!W)h6$D&=N=-WbI?WiovNzjW(CwZXAy~4gHh(Z`b9%3pH6~Dspl12iRg@ePVGUnHN zZBHJNEpY>nCRkn8A2oENL+N*O8eFH@8p`<_rBB3{BHX3?I8l*~rvg$djEo?COzI^B z1pz-Ev^Pas$ukm;tlyKP=PEmIjGxYu)bR-)5wfrOuof|^r1}s(P7~b9KUYo@)JVFF zdq;^32|R9II_xqk;)=^4F|`@Q7c5+T8W~EK-UQI>$pL{Qx_N6<;0{J$w>UmU4HP6` zcCONkFx}$^KD7hX5ToSqyG`=_$cn;4A%u5?`%#ze%Bggj#=9UrqRfAjjagZ=A$S)| zY$D`eK?k+u5TNuBAHfocG*UEpty2;aKV~#}SWRkYY1U^i7B@^NMQqFJ#uz<9_zT`C zYbIg1&Uybq^lhR4E4fUWmoTBHFjRQST!j`qOj+cYsxg!(%nmqsb~XaHg=ga-A6J|E zC4gxCa3)BOpI5zNAiIOWdWShg?^9GGbj!=;lMqj;M&3-sUrH!c2>xNEs3V=|pe#r@ zUp+$$J!ubTGd-x11QVCzw|^8o-dJ?6U_AhT$XU&_W+|;RZVIL!7$SlYP z>0|$Y88(C%V#G9dv4cO#;I6NcChx{+{IDCEoX*Vw&bd)!I`?CmAR2=*&M8i=?TPE^ ztkgY{0VyDU_;4&EP;RXJAG3@LgW8@T$HJ5wz8;daOEp=EA5A^-FZja#S>A*oR#aS3 z_)eY6B6U!FRTW5!A3T-qMn_zkRFBC(M*n{U!X{C;7dA&Y|6+;c-r>0lM~3M&M$tE; zpUlzxdGNVP4=R>^eHNk_2|9=VqvWGAqzF$Zw0)QxY=>2(r6`A427!zT3.0 + + SDEN_ON_SURFACE + SDEN + 6.0 + + diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index 2f961ff51..789caf734 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -3624,5 +3624,11 @@ 4.0 + + SDEN_ON_SURFACE + SDEN + 6.0 + + diff --git a/parm/global_1x1_paramlist_g2 b/parm/global_1x1_paramlist_g2 index 909261ccf..3d37d4036 100644 --- a/parm/global_1x1_paramlist_g2 +++ b/parm/global_1x1_paramlist_g2 @@ -364,6 +364,7 @@ RWMR:950 mb RWMR:975 mb RWMR:1 hybrid level SHTFL:surface +SDEN:surface SFCR:surface SOILW:0-0.1 m below ground SOILW:0.1-0.4 m below ground diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index 77675b46b..a3a3d0dcd 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -8191,5 +8191,14 @@ surface 4.0 + + + 1006 + SDEN_ON_SURFACE + SDEN + surface + 6.0 + + diff --git a/parm/postcntrl_gfs.xml b/parm/postcntrl_gfs.xml index 8ad9f86ea..07cb23077 100755 --- a/parm/postcntrl_gfs.xml +++ b/parm/postcntrl_gfs.xml @@ -1219,6 +1219,11 @@ 9.0 + + SDEN_ON_SURFACE + 6.0 + + diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml index 2c8613c6f..b55f7cf66 100755 --- a/parm/postcntrl_gfs_two.xml +++ b/parm/postcntrl_gfs_two.xml @@ -1219,6 +1219,11 @@ 9.0 + + SDEN_ON_SURFACE + 6.0 + + diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt index 16ae86598..ba22c218f 100644 --- a/parm/postxconfig-NT-GFS-TWO.txt +++ b/parm/postxconfig-NT-GFS-TWO.txt @@ -1,6 +1,6 @@ 2 112 -209 +210 GFSPRS 0 ncep_nco @@ -7750,6 +7750,43 @@ between_first_second_limit ? ? ? +1006 +SDEN_ON_SURFACE +? +1 +tmpl4_0 +SDEN +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? GFSFLX 0 ncep_nco diff --git a/parm/postxconfig-NT-GFS.txt b/parm/postxconfig-NT-GFS.txt index ee9f0db08..47cc36f4c 100644 --- a/parm/postxconfig-NT-GFS.txt +++ b/parm/postxconfig-NT-GFS.txt @@ -1,5 +1,5 @@ 1 -209 +210 GFSPRS 0 ncep_nco @@ -7749,3 +7749,40 @@ between_first_second_limit ? ? ? +1006 +SDEN_ON_SURFACE +? +1 +tmpl4_0 +SDEN +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-fv3lam.txt b/parm/postxconfig-NT-fv3lam.txt index db3ccdde6..5881aa4a1 100644 --- a/parm/postxconfig-NT-fv3lam.txt +++ b/parm/postxconfig-NT-fv3lam.txt @@ -1,5 +1,5 @@ 2 -219 +220 264 PRSLEV 32769 @@ -17904,3 +17904,40 @@ surface ? ? ? +1006 +SDEN_ON_SURFACE +? +1 +tmpl4_0 +SDEN +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index 790bb1209..a55dcf752 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,5 +1,5 @@ 2 -241 +242 290 PRSLEV 32769 @@ -19680,3 +19680,40 @@ top_of_atmos ? ? ? +1006 +SDEN_ON_SURFACE +? +1 +tmpl4_0 +SDEN +? +? +surface +0 +? +0 +? +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +6.0 +0 +0 +0 +? +? +? diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f index a430c8e1e..93a070788 100644 --- a/sorc/ncep_post.fd/MDL2P.f +++ b/sorc/ncep_post.fd/MDL2P.f @@ -33,6 +33,7 @@ !> 2022-08-03 | W Meng | Modify total cloud fraction(331) !> 2022-09-22 | L Zhang | Remove DUSTSL !> 2022-11-16 | E James | Adding dust from RRFS +!> 2022-12-21 | J Meng ! Adding snow density SDEN !> !> @author T Black W/NP2 @date 1999-09-23 SUBROUTINE MDL2P(iostatusD3D) @@ -64,7 +65,7 @@ SUBROUTINE MDL2P(iostatusD3D) IEND_2U,nasa_on use rqstfld_mod, only: IGET, LVLS, ID, IAVBLFLD, LVLSXML use gridspec_mod, only: GRIDTYPE, MAPTYPE, DXVAL - use upp_physics, only: FPVSNEW, CALRH, CALVOR + use upp_physics, only: FPVSNEW, CALRH, CALVOR, CALSLR_ROEBBER !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! implicit none @@ -91,6 +92,7 @@ SUBROUTINE MDL2P(iostatusD3D) integer,intent(in) :: iostatusD3D INTEGER, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: NL1X, NL1XF real, dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM) :: TPRS, QPRS, FPRS + real, dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM) :: RHPRS ! INTEGER K, NSMOOTH ! @@ -1236,7 +1238,7 @@ SUBROUTINE MDL2P(iostatusD3D) !*** RELATIVE HUMIDITY. ! - IF(IGET(017) > 0 .OR. IGET(257) > 0)THEN + IF(IGET(017) > 0 .OR. IGET(257) > 0 .OR. IGET(1006) > 0)THEN ! if ( me == 0) print *,'IGET(17)=',IGET(017),'LP=',LP,IGET(257), & ! 'LVLS=',LVLS(1,4) log1=.false. @@ -1246,7 +1248,7 @@ SUBROUTINE MDL2P(iostatusD3D) IF(IGET(257) > 0) then if(LVLS(LP,IGET(257)) > 0 ) log1=.true. endif - if ( log1 ) then + !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=ISTA,IEND @@ -1274,6 +1276,8 @@ SUBROUTINE MDL2P(iostatusD3D) CALL SMOOTH(GRID1,SDUMMY,IM,JM,0.5) end do ENDIF + + if ( log1 ) then if(grib == 'grib2')then cfld = cfld + 1 fld_info(cfld)%ifld=IAVBLFLD(IGET(017)) @@ -1292,10 +1296,16 @@ SUBROUTINE MDL2P(iostatusD3D) DO J=JSTA,JEND DO I=ISTA,IEND SAVRH(I,J) = GRID1(I,J) - ENDDO - ENDDO + ENDDO + ENDDO + ENDIF !if (log1 ) - ENDIF +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + RHPRS(I,J,LP) = GRID1(I,J) + ENDDO + ENDDO ENDIF ! !*** CLOUD FRACTION. @@ -3842,10 +3852,40 @@ SUBROUTINE MDL2P(iostatusD3D) END DO ENDIF ENDIF + +! SNOW DESITY SOLID-LIQUID-RATION SLR + IF ( IGET(1006)>0 ) THEN + if(me==0)PRINT*,'CALLING SLR' + egrid1=spval + call calslr_roebber(TPRS,RHPRS,EGRID1) +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + if(egrid1(i,j) < spval) then + grid1(i,j)=1000./egrid1(i,j) + else + grid1(i,j)=spval + endif + enddo + enddo + if(grib=='grib2') then + cfld=cfld+1 + fld_info(cfld)%ifld=IAVBLFLD(IGET(1006)) +!$omp parallel do private(i,j,ii,jj) + do j=1,jend-jsta+1 + jj = jsta+j-1 + do i=1,iend-ista+1 + ii=ista+i-1 + datapd(i,j,cfld) = GRID1(ii,jj) + enddo + enddo + endif + ENDIF ! if(allocated(d3dsl)) deallocate(d3dsl) if(allocated(smokesl)) deallocate(smokesl) if(allocated(fv3dustsl)) deallocate(fv3dustsl) + if(me==0)PRINT*,'MDL2P completed' ! END OF ROUTINE. ! RETURN diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f index cb059ba1f..11ef417e3 100644 --- a/sorc/ncep_post.fd/UPP_PHYSICS.f +++ b/sorc/ncep_post.fd/UPP_PHYSICS.f @@ -14,6 +14,8 @@ !> !> calrh_pw() algorithm use at GSD for RUC and Rapid Refresh. !> +!> calslr_roebber() computes snow solid-liquid-ratio slr using the Roebber algorithm. +!> !> fpvsnew() computes saturation vapor pressure. !> !> tvirtual() computes virtual temperature. @@ -36,6 +38,7 @@ module upp_physics public :: CALRH public :: CALRH_GFS, CALRH_GSD, CALRH_NAM public :: CALRH_PW + public :: CALSLR_ROEBBER public :: CALVOR public :: FPVSNEW @@ -2638,6 +2641,1656 @@ SUBROUTINE CALGRADPS(PS,PSX,PSY) ! END IF END SUBROUTINE CALGRADPS + +!> calslr_roebber() computes snow solid-liquid-ratio slr using the Roebber algorithm. +!> +!> Obtained the code and data from WPC. WPC's SLR products include SLR computed from +!> GFS and NAM, SLR climotology, and averaged SLR. UPP computes SLR for GFS and RRFS. +!> SLR climatology is not used in UPP calculation but the data is saved in fix directory +!> for reference. Breadboard coefficients are included in this module to enhance the +!> performance. Original Breadboard coefficients files are also saved in fix directory. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 2022-07-11 | Jesse Meng | Initial +!> 2023-01-06 | Jesse Meng ! Import Breadboard coefficients into module +!> +!> @author Jesse Meng @date 2022-07-11 + + SUBROUTINE CALSLR_ROEBBER(tprs,rhprs,slr) + + use masks, only: lmh + use vrbls2d, only: slp, avgprec_cont, u10, v10, pshltr, tshltr, qshltr + use vrbls3d, only: T, Q, PMID, PINT + use ctlblk_mod, only: ista, iend, jsta, jend, & + ista_2l, iend_2u, jsta_2l, jend_2u, & + IM, JM, LM, LSM, SPL, MODELNAME, spval, me, idat + use params_mod, only: CAPA, H1, H100 + use grib2_module, only: read_grib2_sngle + + implicit none + + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lsm),intent(in) :: tprs + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lsm),intent(in) :: rhprs + real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(out) :: slr !slr=snod/weasd=1000./sndens + +! local variables + + character*256 :: climoFile + logical file_exists + integer :: ntot, height + real,dimension(im,jm) :: CLIMO + real,dimension(ista:iend,jsta:jend) :: CLIMOSUB + + real,dimension(ista:iend,jsta:jend) :: P1D,T1D,Q1D,RH1D + real,dimension(ista:iend,jsta:jend) :: T2M,RH2M + + type all_grids + real :: grid + real :: sigma + end type all_grids + + real prob1, prob2, prob3 + real,dimension(0:14), parameter :: sig = & + (/0.0, 1.0, 0.975, 0.95, 0.925, 0.9, 0.875, 0.85, & + 0.8, 0.75, 0.7, 0.65, 0.6, 0.5, 0.4/) + real,dimension(12), parameter :: mf = & + (/1.0, 0.67, 0.33, 0.0, -0.33, -0.67, -1.00, -0.67, -0.33, 0.0, 0.33, 0.67/) + integer, dimension(0:37), parameter :: levels = & + (/2, 1000, 975, 950, 925, 900, 875, 850, 825, 800, 775, 750, 725, 700, & + 675, 650, 625, 600, 575, 550, 525, 500, 475, 450, 425, 400, & + 375, 350, 325, 300, 275, 250, 225, 200, 175, 150, 125, 100/) + + real,dimension(0:14) :: tm, rhm + + real,dimension(0:30), parameter :: co1 = & + (/0.0, -.2926, .0070, -.0099, .0358, .0356, .0353, .0333, .0291, & + .0235, .0169, .0060, -.0009, -.0052, -.0079, -.0093,& + -.0116, -.0137, .0030, .0033, -.0005, -.0024, -.0023,& + -.0021, -.0007, .0013, .0023, .0024, .0012, .0002, -.0010/) + + real,dimension(0:30), parameter :: co2 = & + (/0.0, -9.7961, .0099, -.0222, -.0036, -.0012, .0010, .0018, .0018,& + .0011, -.0001, -.0016, -.0026, -.0021, -.0015, -.0010,& + -.0008, -.0017, .0238, .0213, .0253, .0232, .0183, .0127,& + .0041, -.0063, -.0088, -.0062, -.0029, .0002, .0019/) + + real,dimension(0:30), parameter :: co3 = & + (/0.0, 5.0037, -0.0097, -.0130, -.0170, -.0158, -.0141, -.0097,& + -.0034, .0032, .0104, .0200, .0248, .0273, .0280, .0276,& + .0285, .0308, -.0036, -.0042, -.0013, .0011, .0014, .0023,& + .0011, -.0004, -.0022, -.0030, -.0033, -.0031, -.0019/) + + real,dimension(0:30), parameter :: co4 = & + (/0.0, -5.0141, .0172, -.0267, .0015, .0026, .0033, .0015, -.0007,& + -.0030, -.0063, -.0079, -.0074, -.0055, -.0035, -.0015,& + -.0038, -.0093, .0052, .0059, .0019, -.0022, -.0077, -.0102,& + -.0109, -.0077, .0014, .0160, .0217, .0219, .0190/) + + real,dimension(0:30), parameter :: co5 = & + (/0.0, -5.2807, -.0240, .0228, .0067, .0019, -.0010, -.0003, .0012,& + .0027, .0056, .0067, .0067, .0034, .0005, -.0026, -.0039,& + -.0033, -.0225, -.0152, -.0157, -.0094, .0049, .0138,& + .0269, .0388, .0334, .0147, .0018, -.0066, -.0112/) + + real,dimension(0:30), parameter :: co6 = & + (/0.0, -2.2663, .0983, .3666, .0100, .0062, .0020, -.0008, -.0036,& + -.0052, -.0074, -.0086, -.0072, -.0057, -.0040, -.0011,& + .0006, .0014, .0012, -.0005, -.0019, .0003, -.0007, -.0008,& + .0022, .0005, -.0016, -.0052, -.0024, .0008, .0037/) + + type(all_grids), dimension(ista:iend,jsta:jend,0:lsm) :: tmpk_grids, rh_grids + integer, dimension(ista:iend,jsta:jend,0:lsm) :: tmpk_levels, rh_levels + + real,dimension(ista:iend,jsta:jend) :: hprob,mprob,lprob + real,dimension(ista:iend,jsta:jend) :: slrgrid, slrgrid2 + real,dimension(ista:iend,jsta:jend) :: psfc,pres,qpf,swnd,prp + + character*20 nswFileName + real :: psurf,p,sgw,sg1,sg2,dtds,rhds + real :: f1,f2,f3,f4,f5,f6 + real :: p1,p2,p3 + real :: hprob_tot + real :: mprob_tot + real :: lprob_tot + + integer :: i,j,k,ks,L,LL,imo,iday +! +!*************************************************************************** +! +! day and month of the year + + imo = idat(1) + iday= idat(2) + +! climatology +! currently not used, snoden climatology files saved in fix directory +! +! climoFile='climo_snoden' +! ntot=im*jm +! CLIMO = spval +! CLIMOSUB = spval +! INQUIRE(FILE=climoFile, EXIST=file_exists) +! if(file_exists) then +! print*,trim(climoFile),' FOUND' +! call read_grib2_sngle(climoFile,ntot,height,CLIMO) +! do j=jsta,jend +! do i=ista,iend +! if(CLIMO(i,j).gt.0 .and. CLIMO(i,j).lt.1000) CLIMOSUB(i,j)=1000./CLIMO(i,j) +! endif +! end do +! end do +! else +! print*,trim(climoFile),' NOT FOUND' +! endif !if(file_exist) + +! surface variables + +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + PSFC(I,J)=PINT(I,J,NINT(LMH(I,J))+1) + PRES(I,J)=SLP(I,J) + QPF(I,J)=AVGPREC_CONT(I,J)*3600.*3. + SWND(I,J)=SPVAL + IF(U10(I,J)/=SPVAL .AND. V10(I,J)/=SPVAL) & + SWND(I,J)=SQRT(U10(I,J)*U10(I,J)+V10(I,J)*V10(I,J)) + END DO + END DO + +! T2M and RH2M + +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + IF(MODELNAME=='RAPR')THEN + P1D(I,J) = PMID(I,J,NINT(LMH(I,J))) + T1D(I,J) = T(I,J,NINT(LMH(I,J))) + ELSE + P1D(I,J) = PINT(I,J,LM+1)*EXP(-0.068283/TSHLTR(I,J)) + T1D(I,J) = TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA + ENDIF + Q1D(I,J) = QSHLTR(I,J) + T2M(I,J) = T1D(I,J) + ENDDO + ENDDO + + CALL CALRH(P1D,T1D,Q1D,RH1D) + +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + if(qshltr(i,j) /= spval)then + RH2M(I,J) = RH1D(I,J)*100. + else + RH2M(I,J) = spval + endif + ENDDO + ENDDO + CALL BOUND(RH2M,H1,H100) + +!$omp parallel do private(i,j) + do j=jsta,jend + do i=ista,iend + tmpk_grids(i,j,0)%grid=T2M(I,J)-273.15 + tmpk_levels(i,j,0)=pres(i,j) + rh_grids(i,j,0)%grid=RH2M(I,J) + rh_levels(i,j,0)=pres(i,j) + end do + end do + +! T and RH all pressure levels + + DO L=1,LSM + LL=LSM-L+1 +!!!$omp parallel do private(i,j,ll) + do j=jsta,jend + do i=ista,iend + tmpk_grids(i,j,LL)%grid=tprs(I,J,L)-273.15 + tmpk_levels(i,j,LL)=SPL(L) + rh_grids(i,j,LL)%grid=rhprs(I,J,L) + rh_levels(i,j,LL)=SPL(L) + end do + end do + END DO + +! convert to sigma + + tmpk_grids(:,:,0)%sigma = 1.0 + rh_grids(:,:,0)%sigma = 1.0 + + DO L=1,LSM + LL=LSM-L+1 +!!!$omp parallel do private(i,j,ll) + do j=jsta,jend + do i=ista,iend + if(pres(i,j) == spval) then + tmpk_grids(i,j,LL)%sigma=spval + rh_grids(i,j,LL)%sigma=spval + else + tmpk_grids(i,j,LL)%sigma=tmpk_levels(i,j,LL)/pres(i,j) + rh_grids(i,j,LL)%sigma=rh_levels(i,j,LL)/pres(i,j) + prp(i,j)=pres(i,j)/psfc(i,j) + prp(i,j)=prp(i,j)*100000./psfc(i,j) + endif + end do + end do + END DO + +! main slr i/j loop starts + + do j=jsta,jend + do i=ista,iend + tm=spval + rhm=spval + slr(i,j)=spval + slrgrid(i,j)=spval + slrgrid2(i,j)=spval + hprob(i,j)=spval + mprob(i,j)=spval + lprob(i,j)=spval + + if(pres(i,j)/=spval .and. qpf(i,j)/=spval .and. swnd(i,j)/=spval) then + +! Interpolate T and RH to the 14 sigma levels + + do ks=1,14 + psurf=pres(i,j) + sgw=sig(ks) + p=prp(i,j) + do LL=0,LSM-1 + if(LL==0) then + sg1 = psurf/psurf + else + sg1 = tmpk_levels(i,j,LL)/psurf + endif + sg2 = tmpk_levels(i,j,LL+1)/psurf + + if(sg1 == sgw) then + tm(ks) = tmpk_grids(i,j,LL)%grid + rhm(ks)= rh_grids(i,j,LL)%grid + elseif (sg2 == sgw) then + tm(ks) = tmpk_grids(i,j,LL+1)%grid + rhm(ks)= rh_grids(i,j,LL+1)%grid + elseif ((sgw < sg1) .and. (sgw > sg2)) then + dtds = (tmpk_grids(i,j,LL+1)%grid - tmpk_grids(i,j,LL)%grid)/(sg2-sg1) + tm(ks) = ((sgw - sg1) * dtds) + tmpk_grids(i,j,LL)%grid + rhds = (rh_grids(i,j,LL+1)%grid - rh_grids(i,j,LL)%grid)/(sg2-sg1) + rhm(ks)= ((sgw - sg1) * rhds) + rh_grids(i,j,LL)%grid + endif + end do + end do !loop ks + +! Have surface wind, QPF, and temp/RH on the 14 sigma levels. +! Convert these data to the factors using regression equations + + f1 = co1(1)+co1(2)*qpf(i,j)+co1(3)*swnd(i,j)+co1(4)*tm(1)+co1(5)*tm(2)+co1(6)*tm(3)+ & + co1(7)*tm(4)+co1(8)*tm(5)+co1(9)*tm(6)+co1(10)*tm(7)+co1(11)*tm(8)+ & + co1(12)*tm(9)+co1(13)*tm(10)+co1(14)*tm(11)+co1(15)*tm(12)+co1(16)*tm(13)+ & + co1(17)*tm(14)+co1(18)*rhm(1)+co1(19)*rhm(2)+co1(20)*rhm(3)+co1(21)*rhm(4)+ & + co1(22)*rhm(5)+co1(23)*rhm(6)+co1(24)*rhm(7)+co1(25)*rhm(8)+co1(26)*rhm(9)+ & + co1(27)*rhm(10)+co1(28)*rhm(11)+co1(29)*rhm(12)+co1(30)*rhm(13) + + f2 = co2(1)+co2(2)*qpf(i,j)+co2(3)*swnd(i,j)+co2(4)*tm(1)+co2(5)*tm(2)+co2(6)*tm(3)+ & + co2(7)*tm(4)+co2(8)*tm(5)+co2(9)*tm(6)+co2(10)*tm(7)+co2(11)*tm(8)+ & + co2(12)*tm(9)+co2(13)*tm(10)+co2(14)*tm(11)+co2(15)*tm(12)+co2(16)*tm(13)+ & + co2(17)*tm(14)+co2(18)*rhm(1)+co2(19)*rhm(2)+co2(20)*rhm(3)+co2(21)*rhm(4)+ & + co2(22)*rhm(5)+co2(23)*rhm(6)+co2(24)*rhm(7)+co2(25)*rhm(8)+co2(26)*rhm(9)+ & + co2(27)*rhm(10)+co2(28)*rhm(11)+co2(29)*rhm(12)+co2(30)*rhm(13) + + f3 = co3(1)+co3(2)*qpf(i,j)+co3(3)*swnd(i,j)+co3(4)*tm(1)+co3(5)*tm(2)+co3(6)*tm(3)+ & + co3(7)*tm(4)+co3(8)*tm(5)+co3(9)*tm(6)+co3(10)*tm(7)+co3(11)*tm(8)+ & + co3(12)*tm(9)+co3(13)*tm(10)+co3(14)*tm(11)+co3(15)*tm(12)+co3(16)*tm(13)+ & + co3(17)*tm(14)+co3(18)*rhm(1)+co3(19)*rhm(2)+co3(20)*rhm(3)+co3(21)*rhm(4)+ & + co3(22)*rhm(5)+co3(23)*rhm(6)+co3(24)*rhm(7)+co3(25)*rhm(8)+co3(26)*rhm(9)+ & + co3(27)*rhm(10)+co3(28)*rhm(11)+co3(29)*rhm(12)+co3(30)*rhm(13) + + f4 = co4(1)+co4(2)*qpf(i,j)+co4(3)*swnd(i,j)+co4(4)*tm(1)+co4(5)*tm(2)+co4(6)*tm(3)+ & + co4(7)*tm(4)+co4(8)*tm(5)+co4(9)*tm(6)+co4(10)*tm(7)+co4(11)*tm(8)+ & + co4(12)*tm(9)+co4(13)*tm(10)+co4(14)*tm(11)+co4(15)*tm(12)+co4(16)*tm(13)+ & + co4(17)*tm(14)+co4(18)*rhm(1)+co4(19)*rhm(2)+co4(20)*rhm(3)+co4(21)*rhm(4)+ & + co4(22)*rhm(5)+co4(23)*rhm(6)+co4(24)*rhm(7)+co4(25)*rhm(8)+co4(26)*rhm(9)+ & + co4(27)*rhm(10)+co4(28)*rhm(11)+co4(29)*rhm(12)+co4(30)*rhm(13) + + f5 = co5(1)+co5(2)*qpf(i,j)+co5(3)*swnd(i,j)+co5(4)*tm(1)+co5(5)*tm(2)+co5(6)*tm(3)+ & + co5(7)*tm(4)+co5(8)*tm(5)+co5(9)*tm(6)+co5(10)*tm(7)+co5(11)*tm(8)+ & + co5(12)*tm(9)+co5(13)*tm(10)+co5(14)*tm(11)+co5(15)*tm(12)+co5(16)*tm(13)+ & + co5(17)*tm(14)+co5(18)*rhm(1)+co5(19)*rhm(2)+co5(20)*rhm(3)+co5(21)*rhm(4)+ & + co5(22)*rhm(5)+co5(23)*rhm(6)+co5(24)*rhm(7)+co5(25)*rhm(8)+co5(26)*rhm(9)+ & + co5(27)*rhm(10)+co5(28)*rhm(11)+co5(29)*rhm(12)+co5(30)*rhm(13) + + f6 = co6(1)+co6(2)*qpf(i,j)+co6(3)*swnd(i,j)+co6(4)*tm(1)+co6(5)*tm(2)+co6(6)*tm(3)+ & + co6(7)*tm(4)+co6(8)*tm(5)+co6(9)*tm(6)+co6(10)*tm(7)+co6(11)*tm(8)+ & + co6(12)*tm(9)+co6(13)*tm(10)+co6(14)*tm(11)+co6(15)*tm(12)+co6(16)*tm(13)+ & + co6(17)*tm(14)+co6(18)*rhm(1)+co6(19)*rhm(2)+co6(20)*rhm(3)+co6(21)*rhm(4)+ & + co6(22)*rhm(5)+co6(23)*rhm(6)+co6(24)*rhm(7)+co6(25)*rhm(8)+co6(26)*rhm(9)+ & + co6(27)*rhm(10)+co6(28)*rhm(11)+co6(29)*rhm(12)+co6(30)*rhm(13) + + hprob_tot = 0. + mprob_tot = 0. + lprob_tot = 0. + do k=1,10 + if(k==1) then + nswFileName='Breadboard1.nsw' + call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==2) then + nswFileName='Breadboard2.nsw' + call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==3) then + nswFileName='Breadboard3.nsw' + call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==4) then + nswFileName='Breadboard4.nsw' + call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==5) then + nswFileName='Breadboard5.nsw' + call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==6) then + nswFileName='Breadboard6.nsw' + call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==7) then + nswFileName='Breadboard7.nsw' + call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==8) then + nswFileName='Breadboard8.nsw' + call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==9) then + nswFileName='Breadboard9.nsw' + call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + elseif(k==10) then + nswFileName='Breadboard10.nsw' + call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3) + endif + hprob_tot = hprob_tot+p1 + mprob_tot = mprob_tot+p2 + lprob_tot = lprob_tot+p3 + enddo + hprob(i,j) = hprob_tot/10. + mprob(i,j) = mprob_tot/10. + lprob(i,j) = lprob_tot/10. + + if(hprob(i,j) > mprob(i,j) .and. hprob(i,j) > lprob(i,j)) then + slrgrid(i,j) = 8.0 + elseif(mprob(i,j) >= hprob(i,j) .and. mprob(i,j) >= lprob(i,j)) then + slrgrid(i,j) = 13.0 + elseif(lprob(i,j) > hprob(i,j) .and. lprob(i,j) > mprob(i,j)) then + if(lprob(i,j) < .67) then + slrgrid(i,j) = 18.0 + else + slrgrid(i,j) = 27.0 + endif + endif + +! Weighted SLR + + if(lprob(i,j) < .67) then + slrgrid2(i,j) = hprob(i,j)*8.0+mprob(i,j)*13.0+lprob(i,j)*18.0 + slrgrid2(i,j) = slrgrid2(i,j)*p/(hprob(i,j)+mprob(i,j)+lprob(i,j)) + else + slrgrid2(i,j) = hprob(i,j)*8.0+mprob(i,j)*13.0+lprob(i,j)*27.0 + slrgrid2(i,j) = slrgrid2(i,j)*p/(hprob(i,j)+mprob(i,j)+lprob(i,j)) + endif + +! slr(i,j) = climosub(i,j) +! slr(i,j) = slrgrid(i,j) + slr(i,j) = slrgrid2(i,j) + slr(i,j) = max(1.,min(25.,slr(i,j))) + + endif !if(pres(i,j), qpf(i,j), swnd(i,j) /= spval) + enddo + enddo + +! main slr i/j loop ends + + END SUBROUTINE CALSLR_ROEBBER +! +!------------------------------------------------------------------------------------- +! + SUBROUTINE breadboard1_main(nswFileName,mf,f1,f2,f3,f4,f5,f6,p1,p2,p3) + + implicit none + + character*20 nswFileName + real mf, f1, f2, f3, f4, f5, f6 + real p1, p2, p3 + + real f(7) + + real inputFile(2,7) + real inputAxon(7) + real hidden1Axon(40) + real outputAxon(3) + real hidden1Synapse(7,40) + real outputSynapse(40,3) + real activeOutputProbe(2,3) + + real fgrid1(40), fgrid2(3), fgridsum + + integer i,j +! + f(1) = mf + f(2) = f1 + f(3) = f2 + f(4) = f3 + f(5) = f4 + f(6) = f5 + f(7) = f6 + +! Read nsw file and load weights + + inputFile(1,:)=1. + inputFile(2,:)=0. + inputAxon=0. + hidden1Axon=0. + outputAxon=0. + hidden1Synapse=1. + outputSynapse=1. + activeOutputProbe(1,:)=1. + activeOutputProbe(2,:)=0. + + if(trim(nswFileName)=='Breadboard1.nsw') then + call Breadboard1(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard2.nsw') then + call Breadboard2(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard3.nsw') then + call Breadboard3(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard4.nsw') then + call Breadboard4(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard5.nsw') then + call Breadboard5(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + endif + + if(activeOutputProbe(1,1)==1.) then + do j=1,3 + activeOutputProbe(1,j)=8.999999761581421e-001 + activeOutputProbe(2,j)=5.000000074505806e-002 + enddo + endif + +! Run Network + + do j=1,7 + inputAxon(j) = inputFile(1,j) * f(j) + inputFile(2,j) + enddo + + fgrid1=0. +!$omp parallel do private(i,j) + do j=1,40 + do i=1,7 + fgrid1(j) = fgrid1(j) + hidden1Synapse(i,j) * inputAxon(i) + enddo + fgrid1(j) = fgrid1(j) + hidden1Axon(j) + fgrid1(j) = (exp(fgrid1(j))-exp(-fgrid1(j)))/(exp(fgrid1(j))+exp(-fgrid1(j))) + enddo + + fgrid2=0. + fgridsum=0. + do j=1,3 + do i=1,40 + fgrid2(j) = fgrid2(j) + outputSynapse(i,j) * fgrid1(i) + enddo + fgrid2(j) = fgrid2(j) + outputAxon(j) + fgrid2(j) = exp(fgrid2(j)) + fgridsum = fgridsum + fgrid2(j) + enddo + do j=1,3 + fgrid2(j) = fgrid2(j) / fgridsum +! fgrid2(j) = activeOutputProbe(1,j) * fgrid2(j) + activeOutputProbe(2,j) + enddo + + p1 = fgrid2(1) + p2 = fgrid2(2) + p3 = fgrid2(3) + + END SUBROUTINE breadboard1_main +! +!------------------------------------------------------------------------------------- +! + SUBROUTINE breadboard6_main(nswFileName,mf,f1,f2,f3,f4,f5,f6,p1,p2,p3) + + implicit none + + character*20 nswFileName + real mf, f1, f2, f3, f4, f5, f6 + real p1, p2, p3 + + real f(7) + + real inputFile(2,7) + real inputAxon(7) + real hidden1Axon(7) + real hidden2Axon(4) + real outputAxon(3) + real hidden1Synapse(7,7) + real hidden2Synapse(7,4) + real outputSynapse(4,3) + real activeOutputProbe(2,3) + + real fgrid1(7), fgrid2(4), fgrid3(3), fgridsum + + integer i,j +! + f(1) = mf + f(2) = f1 + f(3) = f2 + f(4) = f3 + f(5) = f4 + f(6) = f5 + f(7) = f6 +! + inputFile(1,:)=1. + inputFile(2,:)=0. + inputAxon=0. + hidden1Axon=0. + hidden2Axon=0. + outputAxon=0. + hidden1Synapse=1. + hidden2Synapse=1. + outputSynapse=1. + activeOutputProbe(1,:)=1. + activeOutputProbe(2,:)=0. + + if(trim(nswFileName)=='Breadboard6.nsw') then + call Breadboard6(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard7.nsw') then + call Breadboard7(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard8.nsw') then + call Breadboard8(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard9.nsw') then + call Breadboard9(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + elseif(trim(nswFileName)=='Breadboard10.nsw') then + call Breadboard10(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + endif + + if(activeOutputProbe(1,1)==1.) then + do j=1,3 + activeOutputProbe(1,j)=8.999999761581421e-001 + activeOutputProbe(2,j)=5.000000074505806e-002 + enddo + endif + +! Run Network + + do j=1,7 + inputAxon(j) = inputFile(1,j) * f(j) + inputFile(2,j) + enddo + + fgrid1=0. +!$omp parallel do private(i,j) + do j=1,7 + do i=1,7 + fgrid1(j) = fgrid1(j) + hidden1Synapse(i,j) * inputAxon(i) + enddo + fgrid1(j) = fgrid1(j) + hidden1Axon(j) + fgrid1(j) = (exp(fgrid1(j))-exp(-fgrid1(j)))/(exp(fgrid1(j))+exp(-fgrid1(j))) + enddo + + fgrid2=0. +!$omp parallel do private(i,j) + do j=1,4 + do i=1,7 + fgrid2(j) = fgrid2(j) + hidden2Synapse(i,j) * fgrid1(i) + enddo + fgrid2(j) = fgrid2(j) + hidden2Axon(j) + fgrid2(j) = (exp(fgrid2(j))-exp(-fgrid2(j)))/(exp(fgrid2(j))+exp(-fgrid2(j))) + enddo + + fgrid3=0. + fgridsum=0. + do j=1,3 + do i=1,4 + fgrid3(j) = fgrid3(j) + outputSynapse(i,j) * fgrid2(i) + enddo + fgrid3(j) = fgrid3(j) + outputAxon(j) + fgrid3(j) = exp(fgrid3(j)) + fgridsum = fgridsum + fgrid3(j) + enddo + do j=1,3 + fgrid3(j) = fgrid3(j) / fgridsum +! fgrid3(j) = activeOutputProbe(1,j) * fgrid3(j) + activeOutputProbe(2,j) + enddo + + p1 = fgrid3(1) + p2 = fgrid3(2) + p3 = fgrid3(3) + + END SUBROUTINE breadboard6_main +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard1(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(40) + real hidden1Synapse(7,40) + real outputSynapse(40,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.295625507831573E-01, 6.163756549358368E-02,& + 2.081887423992157E-01, 6.210270524024963E-01,& + 3.646677434444427E-01, 1.214343756437302E-01,& + 2.430133521556854E-01, 3.004860281944275E-01,& + 1.935067623853683E-01, 4.185551702976227E-01,& + 1.962280571460724E-01, -4.804643988609314E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/-1.150484442710876E+00, -1.461968779563904E+00, 1.349107265472412E+00, 6.686212420463562E-01,& + -8.486616015434265E-01, -1.908162593841553E+00, -1.514992356300354E+00, -1.632351636886597E+00,& + -1.794843912124634E+00, 1.354879975318909E+00, 1.389558911323547E+00, 1.464104652404785E+00,& + 1.896052122116089E+00, 1.401677846908569E+00, 1.436681509017944E+00, -1.590880393981934E+00,& + -1.070504426956177E+00, 2.047163248062134E+00, 1.564107656478882E+00, 1.298712372779846E+00,& + -1.316817998886108E+00, -1.253177642822266E+00, -1.392926216125488E+00, 7.356406450271606E-01,& + 1.594561100006104E+00, -1.532955884933472E+00, -1.021214842796326E+00, 1.341110348701477E+00,& + 6.124811172485352E-01, 1.415654063224792E+00, -8.509962558746338E-01, 1.753035664558411E+00,& + 6.275475621223450E-01, 1.482843875885010E+00, 1.326028347015381E+00, 1.641556143760681E+00,& + 1.339018464088440E+00, -1.374068379402161E+00, -1.220067739486694E+00, 1.714797854423523E+00/) + + hidden1Synapse = reshape((/ & + -4.612099826335907E-01, -3.177818655967712E-01, -2.800635099411011E-01, -6.984808295965195E-02,& + 6.583837419748306E-02, -5.769817233085632E-01, 3.955098092556000E-01, -1.624705344438553E-01,& + -2.889076173305511E-01, -9.411631226539612E-01, -5.058886408805847E-01, -3.110982775688171E-01,& + -3.723000884056091E-01, 8.419776558876038E-01, 2.598794996738434E-01, -1.364605724811554E-01,& + 9.416468143463135E-01, -4.025689139962196E-02, 4.176554381847382E-01, 1.196979433298111E-01,& + -3.846398293972015E-01, -1.414917409420013E-01, -2.344214916229248E+00, -3.556166291236877E-01,& + -7.762963771820068E-01, -1.243659138679504E+00, 4.907984733581543E-01, -1.891903519630432E+00,& + -5.802390575408936E-01, -5.546363592147827E-01, -4.520095884799957E-01, -2.473797500133514E-01,& + -7.757837772369385E-01, -5.350160598754883E-01, 1.817676275968552E-01, -1.932217180728912E-01,& + 5.944451093673706E-01, -6.568105518817902E-02, -1.562235504388809E-01, 4.926294833421707E-02,& + -6.931540369987488E-01, 7.082754969596863E-01, -3.878217563033104E-02, 5.063381195068359E-01,& + -7.642447352409363E-01, -2.539043128490448E-01, -4.328470230102539E-01, -4.773662984371185E-01,& + 6.699458956718445E-01, -1.670347154140472E-01, 6.986252665519714E-01, -6.806275844573975E-01,& + 1.059119179844856E-01, 5.320579931139946E-02, -4.806780517101288E-01, 7.601988911628723E-01,& + -1.864496916532516E-01, -3.076690435409546E-01, -6.505665779113770E-01, 7.355872541666031E-02,& + -4.033335149288177E-01, -2.168276757001877E-01, 5.354191064834595E-01, 2.991014420986176E-01,& + 4.275756180286407E-01, 6.465418934822083E-01, -1.401910781860352E-01, 5.381527543067932E-01,& + 9.247279167175293E-01, -3.687029778957367E-01, 6.354923844337463E-01, -1.423558890819550E-01,& + 9.430686831474304E-01, 1.187003701925278E-01, 5.426434278488159E-01, 7.573884129524231E-01,& + 3.361994773149490E-02, 3.300542756915092E-02, -4.439333379268646E-01, 5.953744649887085E-01,& + 3.412617444992065E-01, 1.421828866004944E-01, 5.224847793579102E-01, -8.267756700515747E-01,& + 5.009499788284302E-01, 2.736742198467255E-01, 8.603093624114990E-01, 9.373022615909576E-02,& + 1.714528501033783E-01, 9.114132076501846E-02, -1.638108491897583E-01, 5.879403948783875E-01,& + 5.585592240095139E-03, 8.149939179420471E-01, -1.340572237968445E-01, 3.880683779716492E-01,& + 3.857498764991760E-01, -8.105239868164062E-01, 5.239543914794922E-01, 7.420576363801956E-02,& + 7.694411277770996E-01, -3.954831138253212E-02, 5.615213513374329E-01, 4.560695886611938E-01,& + -5.006425976753235E-01, -4.725854694843292E-01, 5.887325108051300E-02, -3.199687898159027E-01,& + -5.229111015796661E-02, -6.034490466117859E-01, -8.414428234100342E-01, 1.826022863388062E-01,& + -6.954011321067810E-01, -5.277091860771179E-01, -9.834931492805481E-01, -2.964940369129181E-01,& + 1.752081327140331E-02, -2.412298470735550E-01, 5.861807465553284E-01, 3.650662600994110E-01,& + -1.846716850996017E-01, 3.277707397937775E-01, 1.213769540190697E-01, 1.398152709007263E-01,& + 1.624975651502609E-01, -7.172397375106812E-01, -4.065496101975441E-02, -1.131931394338608E-01,& + 7.050336003303528E-01, 3.453079611063004E-02, 5.642467141151428E-01, 7.171959280967712E-01,& + -3.295499980449677E-01, 5.192958116531372E-01, 7.558688521385193E-01, 6.164067387580872E-01,& + -1.597565859556198E-01, 1.512383669614792E-01, 5.231227278709412E-01, -2.199545800685883E-01,& + -3.987313508987427E-01, -9.710572957992554E-01, -4.689137935638428E-01, -4.037811756134033E-01,& + -4.528387784957886E-01, -4.784810543060303E-01, 1.759306043386459E-01, 7.449938654899597E-01,& + 1.120681285858154E+00, -5.609570741653442E-01, 1.393345594406128E+00, 1.374282408505678E-02,& + -2.458193153142929E-01, 1.237058401107788E+00, -4.854794219136238E-02, -6.664386391639709E-01,& + -8.786886334419250E-01, -3.208510577678680E-01, -4.315690398216248E-01, -5.186472535133362E-01,& + -2.117208093404770E-01, 8.998587727546692E-02, 7.763032317161560E-01, 1.078992128372192E+00,& + 3.667660653591156E-01, 5.805531740188599E-01, 1.517073512077332E-01, 9.344519972801208E-01,& + 3.396262824535370E-01, 2.450248003005981E-01, 9.134629368782043E-01, 7.127542048692703E-02,& + -1.287281513214111E-01, 3.953699469566345E-01, -4.097535610198975E-01, -5.983641743659973E-01,& + 4.500437378883362E-01, -8.147508651018143E-02, -7.916551083326340E-02, -1.505649089813232E-01,& + -1.703914403915405E-01, 1.294612526893616E+00, -4.859757721424103E-01, -1.034098416566849E-01,& + -6.859915256500244E-01, 4.521823674440384E-02, 3.100419938564301E-01, -9.373775720596313E-01,& + 5.841451883316040E-01, 7.020491957664490E-01, -1.681403964757919E-01, 6.397892832756042E-01,& + 1.168430075049400E-01, 4.124156236648560E-01, 5.404921174049377E-01, -3.311195969581604E-01,& + -3.494578003883362E-01, 1.379718184471130E+00, 2.731607258319855E-01, 5.512273311614990E-01,& + 2.997024357318878E-01, 3.475511670112610E-01, 6.777516603469849E-01, 1.471205204725266E-01,& + 1.011002138257027E-01, 8.974244594573975E-01, 8.688372373580933E-02, 4.767233729362488E-01,& + 9.785303473472595E-01, -2.200428694486618E-01, -6.173372268676758E-01, -8.801369071006775E-01,& + -1.111719012260437E+00, -3.223371803760529E-01, -6.491173505783081E-01, -3.894545435905457E-01,& + -2.843862473964691E-01, 7.331426739692688E-01, -3.287445753812790E-02, -5.741032306104898E-03,& + 6.212961673736572E-01, 3.749484941363335E-02, 6.244438700377941E-03, -6.228777766227722E-01,& + -4.667133837938309E-02, 2.016694307327271E+00, 2.834755480289459E-01, 6.229624748229980E-01,& + 6.552317738533020E-01, -9.771268069744110E-02, 7.506207823753357E-01, 6.942567825317383E-01,& + -1.662521809339523E-01, 3.003259599208832E-01, -2.531996071338654E-01, 2.399661689996719E-01,& + 5.109554529190063E-01, -7.031706571578979E-01, 2.836774885654449E-01, 4.888223409652710E-01,& + 1.384589523077011E-01, -3.524579405784607E-01, -2.050135582685471E-01, 1.160808563232422E+00,& + -4.008938968181610E-01, 1.656456440687180E-01, -5.116114616394043E-01, 8.800522685050964E-01,& + 6.836380064487457E-02, -5.902936309576035E-02, 5.672354102134705E-01, -7.219299674034119E-01,& + 3.463289514183998E-02, -1.044675827026367E+00, -8.341925591230392E-02, -3.036961853504181E-01,& + -5.605638027191162E-01, 5.722484588623047E-01, -1.604338049888611E+00, -5.696258544921875E-01,& + -2.531512081623077E-01, -4.675458073616028E-01, -6.486019492149353E-01, -2.437075823545456E-01,& + -2.898264527320862E-01, 3.836293518543243E-01, 4.061043560504913E-01, 3.909072279930115E-01,& + -8.113911151885986E-01, 1.260317683219910E+00, -3.924282491207123E-01, 3.586370870471001E-02,& + 7.703443765640259E-01, 6.714462637901306E-01, -4.909946396946907E-02, 3.536651730537415E-01,& + 1.900762617588043E-01, 3.638494014739990E-01, 2.248179465532303E-01, -6.255846619606018E-01 & + /), shape(hidden1Synapse)) + + outputSynapse = reshape((/ & + -4.825605154037476E-01, -1.119017243385315E+00, 5.116804838180542E-01, -6.694142222404480E-01,& + -5.718530416488647E-01, -7.233589291572571E-01, -8.200560212135315E-01, -6.121573448181152E-01,& + -1.034205436706543E+00, 1.015549778938293E+00, 1.183975338935852E+00, 5.342597365379333E-01,& + 1.186208128929138E+00, 7.657266259193420E-01, 9.990772604942322E-01, -1.051267385482788E+00,& + -7.288008332252502E-01, 9.447612762451172E-01, 6.943449974060059E-01, 5.248318314552307E-01,& + -1.042970657348633E+00, -4.857340827584267E-04, -8.969252705574036E-01, 5.206210613250732E-01,& + 7.825390100479126E-01, -3.175100982189178E-01, -7.697273492813110E-01, 3.042222857475281E-01,& + 7.400255203247070E-01, 1.082547545433044E+00, -1.058874249458313E+00, 3.296852707862854E-01,& + 9.955985546112061E-01, 7.361931800842285E-01, 8.618848919868469E-01, 7.109408378601074E-01,& + 1.148022636771202E-01, -6.803723573684692E-01, -4.462003335356712E-02, 7.384030222892761E-01,& + -2.215545326471329E-01, -8.702403903007507E-01, 8.234908580780029E-01, 6.819239258766174E-01,& + -4.687527120113373E-01, -6.959788203239441E-01, -6.105158329010010E-01, -7.225347757339478E-01,& + -7.860832810401917E-01, 5.608791112899780E-01, 9.937217235565186E-01, 6.797130703926086E-01,& + 8.231667280197144E-01, 1.115462303161621E+00, 5.290299654006958E-01, -4.602016210556030E-01,& + -5.394889116287231E-01, 1.053055644035339E+00, 9.533493518829346E-01, 8.694807887077332E-01,& + -4.802323281764984E-01, -1.070514082908630E+00, -8.236010670661926E-01, 7.932062149047852E-01,& + 1.111655592918396E+00, -1.025945305824280E+00, -2.268178462982178E-01, 6.432797908782959E-01,& + 2.442117929458618E-01, 7.986634969711304E-01, -3.561095297336578E-01, 1.058865070343018E+00,& + 6.459046602249146E-01, 4.042869210243225E-01, 2.976681292057037E-02, 1.033244490623474E+00,& + 9.110773205757141E-01, -6.528528332710266E-01, -8.971995115280151E-01, 1.046785235404968E+00,& + -5.487565994262695E-01, -1.033755183219910E+00, 5.164890289306641E-01, 1.108534336090088E+00,& + -2.507440149784088E-01, -1.150385260581970E+00, -1.040475010871887E+00, -1.114320755004883E+00,& + -9.695596694946289E-01, 9.147439599037170E-01, 3.035557866096497E-01, 1.044997453689575E+00,& + 1.059857130050659E+00, 7.304399013519287E-01, 1.102171182632446E+00, -9.304327964782715E-01,& + -5.997116565704346E-01, 1.120478868484497E+00, 6.444569826126099E-01, 2.137384265661240E-01,& + -4.117920994758606E-01, -1.000458717346191E+00, -2.041520774364471E-01, -1.859422773122787E-01,& + 3.711319267749786E-01, -9.141649603843689E-01, -7.499164938926697E-01, 9.900025129318237E-01,& + -2.189985066652298E-01, 8.942219614982605E-01, -3.195305764675140E-01, 6.445295810699463E-01,& + -2.110123336315155E-01, 9.763143658638000E-01, 8.833498954772949E-01, 1.071311354637146E+00,& + 1.134591102600098E+00, -4.175429344177246E-01, -6.000540852546692E-01, 7.281569838523865E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard1 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard2(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(40) + real hidden1Synapse(7,40) + real outputSynapse(40,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.188449800014496E-01, 1.674167998135090E-02,& + 1.868382692337036E-01, 6.490761637687683E-01,& + 3.361344337463379E-01, 4.151264205574989E-02,& + 2.621995508670807E-01, 2.531536519527435E-01,& + 1.944894641637802E-01, 3.221717774868011E-01,& + 3.179650008678436E-01, -2.033386379480362E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/-9.235364943742752E-02, -5.511198639869690E-01, 1.012191653251648E+00, -1.148184835910797E-01,& + -8.399781584739685E-01, -4.726789295673370E-01, 7.570160627365112E-01, -3.985013365745544E-01,& + 1.164000511169434E+00, 2.212587594985962E-01, 9.570528268814087E-01, -1.504407286643982E+00,& + -1.262813359498978E-01, 9.741528630256653E-01, 2.278975844383240E-01, -3.282702267169952E-01,& + 1.716251969337463E-01, 4.979004263877869E-01, 6.414948105812073E-01, -2.775986790657043E-01,& + -6.721665859222412E-01, 7.226511836051941E-01, -1.020949006080627E+00, -9.638186097145081E-01,& + 4.050622135400772E-02, -8.287806510925293E-01, -2.900803685188293E-01, 1.004199028015137E+00,& + -1.221053838729858E+00, -5.891714692115784E-01, -6.459002494812012E-01, 8.228222727775574E-01,& + 1.921370178461075E-01, 1.575044542551041E-01, -9.904603362083435E-01, 1.186665743589401E-01,& + 1.871918141841888E-01, -6.121324300765991E-01, 1.056765243411064E-01, -5.654883384704590E-01/) + + hidden1Synapse = reshape((/ & + -5.215738341212273E-02, 6.958795785903931E-01, -3.700282871723175E-01, 4.440588057041168E-01,& + -9.248711913824081E-02, 9.709199517965317E-02, 1.255098581314087E-01, -1.359838247299194E-01,& + 3.981630802154541E-01, -4.047442674636841E-01, -5.247595906257629E-01, -5.138890147209167E-01,& + 2.293408364057541E-01, 5.139534473419189E-01, 2.035804986953735E-01, 3.003124892711639E-01,& + -2.340262830257416E-01, 3.037432730197906E-01, 4.666079878807068E-01, 3.753643631935120E-01,& + -5.292671918869019E-02, 3.674933612346649E-01, 3.854512274265289E-01, 1.749511361122131E-01,& + 1.320011764764786E-01, 2.418431788682938E-01, 1.245125234127045E-01, -2.677426636219025E-01,& + 3.884479776024818E-02, -1.385747641324997E-01, -3.117613494396210E-01, 3.016934990882874E-01,& + -2.856997251510620E-01, -4.838032424449921E-01, 4.488031566143036E-01, -3.862534165382385E-01,& + 2.520084977149963E-01, -6.066129356622696E-02, -2.037643343210220E-01, -9.749407321214676E-02,& + 1.909288167953491E-01, -2.689029574394226E-01, 8.022837042808533E-01, 4.543448388576508E-01,& + 1.268999278545380E-01, 2.794430553913116E-01, 4.331161379814148E-01, -1.717756092548370E-01,& + -5.167780518531799E-01, 6.074145808815956E-02, 2.141399085521698E-01, -3.536535203456879E-01,& + -2.548796236515045E-01, -4.349331259727478E-01, 3.771509276703000E-03, 1.351494044065475E-01,& + 8.080910146236420E-02, -2.638687789440155E-01, 1.792310923337936E-01, -5.317723155021667E-01,& + 6.300682574510574E-02, 1.391339004039764E-01, -6.581404209136963E-01, 1.574699729681015E-01,& + -5.979638695716858E-01, -6.864693760871887E-01, -6.892689466476440E-01, -1.189238503575325E-01,& + -1.904999166727066E-01, -4.838389158248901E-01, 4.585682973265648E-02, 3.201213181018829E-01,& + 5.204908251762390E-01, -3.531241044402122E-02, 4.392628967761993E-01, 4.307939708232880E-01,& + -4.227218031883240E-02, 1.247199028730392E-01, 1.489800363779068E-01, -3.146159052848816E-01,& + 2.637389600276947E-01, -8.966535329818726E-02, 2.010040730237961E-01, 3.161593675613403E-01,& + -8.221558481454849E-02, -4.601925909519196E-01, -3.832246661186218E-01, 2.877672016620636E-01,& + -1.351716276258230E-02, -5.320604424923658E-03, -3.493662178516388E-02, -1.777663826942444E-01,& + -1.865815520286560E-01, 6.387206912040710E-01, -4.405377805233002E-01, 4.452396631240845E-01,& + -1.245370283722878E-01, -2.323225736618042E-01, 1.697962284088135E-01, 1.118463352322578E-01,& + -2.475701570510864E-01, -3.791887685656548E-02, 5.509998202323914E-01, 1.247667223215103E-01,& + 3.189268708229065E-01, -3.584641516208649E-01, 8.915060758590698E-01, 9.720049053430557E-02,& + -1.117252558469772E-01, 3.543806076049805E-01, -2.351483702659607E-01, 5.283502340316772E-01,& + 1.746209561824799E-01, 1.741478294134140E-01, 2.738423347473145E-01, 3.764865398406982E-01,& + 3.486587703227997E-01, -3.462808132171631E-01, 9.324266910552979E-01, 2.155355364084244E-01,& + -5.171442404389381E-02, 6.311618685722351E-01, -1.088170856237411E-01, 4.840107262134552E-01,& + -2.310744374990463E-01, -3.167505562305450E-01, -2.271509468555450E-01, -2.800688743591309E-01,& + 4.713648185133934E-02, -1.575807780027390E-01, 3.583298251032829E-02, -3.308865129947662E-01,& + -2.662795484066010E-01, 1.894978582859039E-01, 7.474141567945480E-02, -1.493624746799469E-01,& + -1.482628136873245E-01, -1.058527529239655E-01, -3.737696707248688E-01, -1.093639135360718E-01,& + -4.270362555980682E-01, 1.249950975179672E-01, -1.971846818923950E-01, 3.135327398777008E-01,& + 4.604682624340057E-01, -4.614944458007812E-01, 4.820220768451691E-01, 3.806282877922058E-01,& + 3.629744052886963E-01, 3.986520171165466E-01, -2.283873707056046E-01, 1.246029064059258E-01,& + 3.940442204475403E-01, 2.390366494655609E-01, 8.402416110038757E-02, 3.498363792896271E-01,& + -3.888027667999268E-01, 2.272991091012955E-01, -3.421411216259003E-01, 1.273499727249146E-01,& + 1.342627108097076E-01, 1.159043312072754E-01, 1.274240911006927E-01, -2.915177941322327E-01,& + 6.415430903434753E-01, 1.699399948120117E-01, -6.556300520896912E-01, 9.605846554040909E-02,& + 3.632318377494812E-01, -3.854629993438721E-01, -3.860571384429932E-01, -1.257066577672958E-01,& + -1.186188161373138E-01, -1.368320286273956E-01, -2.300722897052765E-01, -4.762146174907684E-01,& + -3.621844053268433E-01, -4.978014528751373E-02, -1.940275430679321E-01, -1.588442362844944E-02,& + -1.519876420497894E-01, 1.312368810176849E-01, 1.862339228391647E-01, 6.462548375129700E-01,& + 5.544137358665466E-01, -3.416634351015091E-02, 9.995899349451065E-02, -6.969342380762100E-02,& + -1.428494304418564E-01, 2.647481858730316E-01, 1.083492934703827E-01, 5.986538901925087E-02,& + -1.576850377023220E-02, 1.962803453207016E-01, 6.334787011146545E-01, -1.408149152994156E-01,& + -1.756295561790466E-01, -2.156554609537125E-01, -1.412229537963867E-01, -5.801249146461487E-01,& + -5.700040608644485E-02, -3.019523918628693E-01, -1.161280944943428E-01, -3.032382726669312E-01,& + 1.140000447630882E-01, -2.648598253726959E-01, -2.016042023897171E-01, -3.181084990501404E-02,& + 7.931513339281082E-02, 5.399967432022095E-01, -4.595367014408112E-01, 9.602636098861694E-02,& + -4.730868339538574E-01, 2.077568918466568E-01, -2.257115393877029E-01, 3.216529190540314E-01,& + 1.631081402301788E-01, 6.222640164196491E-03, -1.323710232973099E-01, 1.348871737718582E-01,& + 1.123578473925591E-01, 5.462109446525574E-01, 5.289056897163391E-01, 5.155519247055054E-01,& + 2.748569846153259E-01, -3.125837743282318E-01, -3.262098431587219E-01, -8.945185691118240E-03,& + -4.980920553207397E-01, 5.064374208450317E-01, -1.056439951062202E-01, -3.115973472595215E-01,& + 3.343601152300835E-02, -7.157339155673981E-02, 5.459919571876526E-01, 2.175374031066895E-01,& + -2.892075665295124E-02, 1.139620468020439E-01, -4.409461319446564E-01, -4.908669367432594E-02,& + -2.098206430673599E-01, 3.024870157241821E-01, -3.447104394435883E-01, -2.666398882865906E-01,& + -1.739841997623444E-01, -1.120999976992607E-01, 4.268572330474854E-01, 4.144327044487000E-01,& + 4.936498403549194E-01, 5.718982815742493E-01, 5.464938655495644E-02, 3.950506746768951E-01,& + -1.432464718818665E-01, -8.016809076070786E-02, 5.947722792625427E-01, -1.419431418180466E-01,& + -2.328271418809891E-01, -1.958254128694534E-01, -9.914696216583252E-03, -1.478249877691269E-01,& + 4.182004928588867E-01, 7.797469943761826E-02, 3.761124014854431E-01, 4.066407680511475E-01,& + 1.217691525816917E-01, -1.124059110879898E-01, 7.020493596792221E-02, 1.022125557065010E-01,& + -5.025411844253540E-01, -2.482684552669525E-01, -5.819427594542503E-02, -1.587846502661705E-02,& + -1.881837695837021E-01, 4.026338756084442E-01, 3.339109122753143E-01, 2.215891182422638E-01,& + 7.083265781402588E-01, -7.670203596353531E-02, 3.171359598636627E-01, 8.310161828994751E-01 & + /), shape(hidden1Synapse)) + + outputSynapse = reshape((/ & + 2.309078276157379E-01, 8.006124198436737E-02, 5.207773447036743E-01, 3.642434999346733E-02,& + -5.444544181227684E-02, -2.300137132406235E-01, 4.965198636054993E-01, -3.590968847274780E-01,& + 1.392439752817154E-01, -2.941058278083801E-01, 6.655657291412354E-01, -4.931978881359100E-01,& + -1.253394484519958E-01, 1.540697813034058E-01, 1.752252578735352E-01, 4.873855113983154E-01,& + 5.741749405860901E-01, 1.275441497564316E-01, -4.765471443533897E-02, -5.038099363446236E-02,& + -8.334141224622726E-02, 5.842098593711853E-01, -4.490646719932556E-01, -5.416034907102585E-02,& + -2.264686524868011E-01, -1.698177903890610E-01, 3.113179206848145E-01, 4.435532391071320E-01,& + -5.240975022315979E-01, 1.108570247888565E-01, 2.321150526404381E-02, 2.374080866575241E-01,& + -2.570592761039734E-01, 3.205819129943848E-01, -3.468126952648163E-01, 2.772298157215118E-01,& + 1.148034259676933E-01, 1.865169033408165E-03, 3.649827241897583E-01, 5.026416182518005E-01,& + -2.502067089080811E-01, -6.028710007667542E-01, -6.978485733270645E-02, 8.656968921422958E-02,& + -5.227651596069336E-01, 9.525942802429199E-02, -1.903700232505798E-01, 1.426358073949814E-01,& + 5.602359771728516E-01, -2.479453980922699E-01, 1.296138316392899E-01, -4.612154662609100E-01,& + -4.198251068592072E-01, 6.053315401077271E-01, -1.160371229052544E-01, -4.044520258903503E-01,& + -1.530461944639683E-02, 4.267008602619171E-01, 2.162231802940369E-01, 1.101492717862129E-01,& + -9.195729345083237E-02, -3.771322593092918E-02, 3.320552408695221E-02, -4.979051947593689E-01,& + 1.581449210643768E-01, -5.021102428436279E-01, 1.184114068746567E-02, 4.836803376674652E-01,& + -5.539562702178955E-01, -2.782657444477081E-01, -1.547775119543076E-01, 4.582551419734955E-01,& + 2.844007611274719E-01, -4.516306817531586E-01, 1.886052638292313E-02, 3.602048456668854E-01,& + 4.175081476569176E-02, 2.075715661048889E-01, -5.455711483955383E-01, -2.442489415407181E-01,& + -2.680016458034515E-01, 2.636941149830818E-03, 4.164874255657196E-01, 8.120876550674438E-02,& + -4.927250146865845E-01, -3.254565298557281E-01, 5.583248138427734E-01, -1.608870923519135E-01,& + 5.749610066413879E-01, 5.479150414466858E-01, 3.469662666320801E-01, -5.061987638473511E-01,& + 3.353976905345917E-01, 2.548734247684479E-01, 2.064624279737473E-01, -5.114225745201111E-01,& + -4.629626572132111E-01, -1.936426460742950E-01, 2.327886223793030E-01, -4.583241790533066E-02,& + -5.125665068626404E-01, 1.089363321661949E-01, -4.951449036598206E-01, -5.018569827079773E-01,& + 2.582837454974651E-02, 4.913705959916115E-02, -2.441505938768387E-01, -3.174663335084915E-02,& + -1.644173413515091E-01, -2.947083115577698E-01, -5.097694396972656E-01, 7.136650383472443E-03,& + 1.942666023969650E-01, 1.587397605180740E-01, -4.691866040229797E-01, -4.862202703952789E-01,& + 1.432444006204605E-01, -4.405085742473602E-01, 3.072859644889832E-01, -4.172921180725098E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard2 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard3(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(40) + real hidden1Synapse(7,40) + real outputSynapse(40,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.442665100097656E-01, 3.212104737758636E-02,& + 2.107975035905838E-01, 6.168988943099976E-01,& + 3.646677434444427E-01, 1.214343756437302E-01,& + 2.485501170158386E-01, 2.868268489837646E-01,& + 1.976718604564667E-01, 4.469360709190369E-01,& + 3.208556175231934E-01, -2.509090602397919E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/4.393131732940674E-01, -1.290386915206909E-01, 6.327351331710815E-01, 5.494017004966736E-01,& + 4.969031810760498E-01, 2.086368650197983E-01, -2.167895883321762E-01, 9.464725255966187E-01,& + 1.640024334192276E-01, 2.452306896448135E-01, 1.972979009151459E-01, 9.276027083396912E-01,& + 2.502645850181580E-01, 5.485208034515381E-01, -2.839279770851135E-01, 6.810981035232544E-01,& + -2.170253098011017E-01, -3.821973502635956E-01, 8.861125111579895E-01, -6.720829606056213E-01,& + 2.960434183478355E-02, -3.987881243228912E-01, -1.057050973176956E-01, 6.963993310928345E-01,& + -1.413413435220718E-01, 7.551014423370361E-01, 1.243001222610474E-02, -3.603826761245728E-01,& + 7.450697422027588E-01, 7.630060315132141E-01, 5.904716849327087E-01, -5.035977959632874E-01,& + 2.082890830934048E-03, -1.259811818599701E-01, -8.103467822074890E-01, -4.683765172958374E-01,& + -3.666405081748962E-01, -5.880022794008255E-02, -5.269588828086853E-01, -1.594118028879166E-01/) + + hidden1Synapse = reshape((/ & + 2.258135080337524E-01, -8.417334407567978E-02, -6.296884268522263E-02, -1.971755474805832E-01,& + -2.008096426725388E-01, 1.312222182750702E-01, -2.187249064445496E-01, 3.300825655460358E-01,& + -1.458171010017395E-01, -2.447441816329956E-01, 2.373344898223877E-01, -3.369296491146088E-01,& + -2.142974138259888E-01, 7.442125119268894E-03, 2.400149852037430E-01, 5.063241720199585E-01,& + 1.461273133754730E-01, 3.199279010295868E-01, 2.184794545173645E-01, 6.378577351570129E-01,& + 2.826454937458038E-01, 1.467282772064209E-01, 4.167218208312988E-01, 3.410821408033371E-02,& + -1.507616639137268E-01, 1.607457697391510E-01, 1.063031926751137E-01, 4.860900044441223E-01,& + -7.546984404325485E-02, 3.811344206333160E-01, -3.500247746706009E-02, -3.294828236103058E-01,& + -2.355449087917805E-02, 3.319101631641388E-01, 1.341840159147978E-02, -2.975183129310608E-01,& + -2.044427692890167E-01, 7.903610914945602E-02, -2.241216152906418E-01, -1.982768028974533E-01,& + 2.166045308113098E-01, -3.769811093807220E-01, -4.219292849302292E-02, -4.683617055416107E-01,& + 1.365721821784973E-01, -5.708352923393250E-01, -5.482509136199951E-01, -5.697317123413086E-01,& + 3.948671817779541E-01, 4.008982181549072E-01, -6.056785583496094E-01, -6.540334783494473E-03,& + -4.144128859043121E-01, -9.239719808101654E-02, 1.977843493223190E-01, -2.407579571008682E-01,& + -2.472878843545914E-01, -3.429937064647675E-01, -1.058190166950226E-01, -8.456809073686600E-02,& + 4.944565296173096E-01, 4.329789280891418E-01, 2.303941249847412E-01, 2.076211571693420E-01,& + 1.421037223190069E-02, 5.740813165903091E-02, 1.577541381120682E-01, 1.072699949145317E-01,& + 3.550452180206776E-03, -7.603026926517487E-02, 1.787180006504059E-01, 3.000865578651428E-01,& + -4.790667295455933E-01, -1.263711899518967E-01, -1.886992603540421E-01, -1.971553862094879E-01,& + -4.320513010025024E-01, -1.786982715129852E-01, -3.415124714374542E-01, 3.517304956912994E-01,& + 3.841716647148132E-01, 1.595797836780548E-01, 1.466515809297562E-01, 3.235963284969330E-01,& + 3.831133618950844E-02, 3.778985887765884E-02, 4.742037355899811E-01, -1.204959601163864E-01,& + -6.766954064369202E-02, 4.763844013214111E-01, 2.847502529621124E-01, -2.614455521106720E-01,& + 4.211461246013641E-01, 2.459102123975754E-01, -3.291262984275818E-01, 4.159525930881500E-01,& + 1.433917880058289E-01, 5.506788492202759E-01, -4.396528601646423E-01, 3.432570993900299E-01,& + -4.605481028556824E-01, -1.657515168190002E-01, 2.847986221313477E-01, -3.968485295772552E-01,& + 2.652311325073242E-01, 2.413431182503700E-03, 6.885899305343628E-01, -1.771224141120911E-01,& + -2.605379931628704E-02, 1.681880354881287E-01, 4.201361536979675E-01, -2.905318737030029E-01,& + -1.065197512507439E-01, 2.377779632806778E-01, 3.171224892139435E-01, -5.171843245625496E-02,& + 8.248845487833023E-02, -4.904226213693619E-02, 3.065647780895233E-01, 1.610077768564224E-01,& + 8.712385892868042E-01, 3.008154034614563E-01, 5.729283690452576E-01, -1.608658432960510E-01,& + -3.810124993324280E-01, 6.462811827659607E-01, -2.662218213081360E-01, -5.297539830207825E-01,& + -1.356185525655746E-01, 2.623566091060638E-01, -1.624718308448792E-01, -2.004417479038239E-01,& + -3.377428650856018E-02, 3.970716595649719E-01, -1.560127288103104E-01, 4.747187346220016E-02,& + -3.162815868854523E-01, -3.350041508674622E-01, -3.987393081188202E-01, -4.969080090522766E-01,& + -1.142657846212387E-01, -7.119160890579224E-01, 1.153976768255234E-01, -6.001577973365784E-01,& + -3.606468439102173E-01, -3.741255104541779E-01, -7.550917863845825E-01, 1.106901541352272E-01,& + -1.475569456815720E-01, -2.016223073005676E-01, -2.226002812385559E-01, 2.520006597042084E-01,& + -4.015582501888275E-01, -6.874573230743408E-01, -3.860632777214050E-01, 1.074488908052444E-01,& + -3.594025373458862E-01, -2.556712925434113E-01, 2.491754293441772E-01, -1.749203801155090E-01,& + -5.133146420121193E-03, -2.629097700119019E-01, 1.706630140542984E-01, 5.300921797752380E-01,& + 3.016012907028198E-01, 3.024738729000092E-01, 1.334729231894016E-02, 3.605858981609344E-01,& + -3.797290921211243E-01, 2.125910073518753E-01, -3.324515819549561E-01, -2.657738924026489E-01,& + 8.549436926841736E-02, 2.843597829341888E-01, -1.628004312515259E-01, 4.068509638309479E-01,& + -1.096388697624207E-01, 1.842555999755859E-01, -2.429902255535126E-01, 1.793259531259537E-01,& + 6.289024949073792E-01, 4.427114427089691E-01, -8.943214267492294E-02, 1.407862901687622E-01,& + -4.747562706470490E-01, 1.607088744640350E-01, 2.691341638565063E-01, -1.326033025979996E-01,& + -6.888723373413086E-02, 3.347525000572205E-01, 2.391179502010345E-01, -7.601787149906158E-02,& + 3.946174979209900E-01, 4.608300328254700E-01, -4.973608553409576E-01, 2.180006355047226E-02,& + -2.155515551567078E-01, 4.018128812313080E-01, 5.872810482978821E-01, -2.970355451107025E-01,& + 6.164746284484863E-01, -2.832284271717072E-01, -7.214747369289398E-02, 3.505393862724304E-01,& + 3.504253327846527E-01, -3.037774860858917E-01, -3.341494500637054E-01, -2.143821418285370E-01,& + 3.230984508991241E-01, -6.691335439682007E-01, -1.196009963750839E-01, 2.609530091285706E-01,& + 6.332063078880310E-01, -2.495922595262527E-01, -1.421163380146027E-01, 4.370761811733246E-01,& + 2.344440817832947E-01, -4.770855009555817E-01, -1.213536486029625E-01, -4.947537779808044E-01,& + 2.018401175737381E-01, -3.219321966171265E-01, -1.836685538291931E-01, 6.838442683219910E-01,& + -5.349717736244202E-01, 5.601373910903931E-01, -3.152181506156921E-01, 2.578000128269196E-01,& + 4.295753240585327E-01, -1.423847377300262E-01, 6.693964004516602E-01, -2.671292051672935E-02,& + -2.906464338302612E-01, -6.406581997871399E-01, -5.139582753181458E-01, 2.622411847114563E-01,& + 2.534431815147400E-01, -1.518065035343170E-01, -4.292866215109825E-02, 4.628975689411163E-01,& + 1.969320774078369E-01, 4.264309704303741E-01, -4.475159347057343E-01, -5.727919340133667E-01,& + 5.388451814651489E-01, -2.982297539710999E-01, -3.593768924474716E-02, -1.298359930515289E-01,& + -4.535509645938873E-01, -1.963836848735809E-01, -2.640297412872314E-01, 3.889253437519073E-01,& + -2.371201291680336E-02, 5.441716909408569E-01, -3.557947278022766E-01, -1.912423074245453E-01,& + 3.168485462665558E-01, -3.096546828746796E-01, 2.481035888195038E-01, 2.293358147144318E-01,& + -7.027690410614014E-01, -4.839945435523987E-01, -2.963027358055115E-01, -5.126427412033081E-01,& + 2.138081789016724E-01, -2.071801871061325E-01, -9.827529639005661E-02, -4.680003225803375E-01,& + -3.230824470520020E-01, -2.535474896430969E-01, 2.779140770435333E-01, -5.119556188583374E-01,& + 1.893053054809570E-01, -5.211792513728142E-02, 4.212611019611359E-01, -5.767111182212830E-01,& + 3.436119556427002E-01, 1.560586243867874E-01, -1.338404417037964E-01, 2.465801686048508E-01 & + /), shape(hidden1Synapse)) + + outputSynapse = reshape((/ & + -1.504478603601456E-01, 8.304652571678162E-02, 2.053809165954590E-01, 4.613898992538452E-01,& + 3.307471871376038E-01, -2.503668665885925E-01, -4.260648787021637E-01, -2.033478170633316E-01,& + 1.205723360180855E-01, 3.727485835552216E-01, -2.320208251476288E-01, 4.672348499298096E-01,& + -1.567042618989944E-01, 4.181037843227386E-01, -2.018750756978989E-01, 2.649243474006653E-01,& + 2.292609065771103E-01, 2.745892405509949E-01, 2.554303109645844E-01, -3.891312777996063E-01,& + -4.561745524406433E-01, -3.781261444091797E-01, -2.881123721599579E-01, 2.764029800891876E-01,& + 8.924255520105362E-02, 4.471623599529266E-01, 9.589984267950058E-02, 4.323486387729645E-01,& + 4.792469739913940E-01, -9.918873012065887E-02, 4.427296221256256E-01, 3.841804563999176E-01,& + 1.890532523393631E-01, -4.477364718914032E-01, -2.994475699961185E-02, -7.976207137107849E-02,& + 2.607934474945068E-01, -3.710708916187286E-01, -2.811897993087769E-01, 6.034602597355843E-02,& + 4.014556109905243E-01, 2.982565164566040E-01, 4.447779953479767E-01, -3.612459823489189E-02,& + -2.895380258560181E-01, 2.155442684888840E-01, -3.415147066116333E-01, 4.278375506401062E-01,& + 1.896717213094234E-02, -9.841635823249817E-02, 1.671093255281448E-01, 3.151571452617645E-01,& + -1.678100675344467E-01, -4.435905069112778E-02, -2.333792001008987E-01, 4.360995292663574E-01,& + 3.587894737720490E-01, -1.017290875315666E-01, 1.382773071527481E-01, -3.980610668659210E-01,& + -2.268472909927368E-01, -2.996328286826611E-02, 2.546367645263672E-01, 1.532198935747147E-01,& + -1.018586382269859E-02, 3.147244155406952E-01, -3.700032234191895E-01, 2.747226655483246E-01,& + 4.799823760986328E-01, 3.735623657703400E-01, 3.757937550544739E-01, -5.869687348604202E-02,& + 7.807171344757080E-02, -1.428240090608597E-01, -5.030028820037842E-01, -4.323083460330963E-01,& + -2.643692195415497E-01, -4.277939200401306E-01, 3.172474205493927E-01, -4.587580561637878E-01,& + 4.488629996776581E-01, -1.273735053837299E-02, 2.275637537240982E-01, 2.276848852634430E-01,& + 1.995900124311447E-01, -1.224325075745583E-01, -1.321871429681778E-01, 4.938367307186127E-01,& + 3.713837862014771E-01, 4.943797290325165E-01, -8.973516523838043E-02, 3.630679845809937E-01,& + 3.118912279605865E-01, 3.763218820095062E-01, -2.658533453941345E-01, 5.210888572037220E-03,& + -3.098636865615845E-01, -4.516429603099823E-01, 3.575363755226135E-01, 3.780608177185059E-01,& + 3.606519103050232E-01, 4.404914379119873E-01, -4.452764391899109E-01, 2.741447389125824E-01,& + 1.122588440775871E-01, 2.581178247928619E-01, -2.986721992492676E-01, -3.506239950656891E-01,& + -4.466909915208817E-02, 1.343552619218826E-01, -2.677312493324280E-02, -5.070485472679138E-01,& + -5.414816737174988E-01, 3.392856195569038E-02, -4.090670943260193E-01, 2.741051837801933E-02,& + 7.242175936698914E-02, 4.587205946445465E-01, -2.530987001955509E-02, 1.304957270622253E-02 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard3 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard4(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(40) + real hidden1Synapse(7,40) + real outputSynapse(40,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.296211272478104E-01, 6.142363324761391E-02,& + 2.128665894269943E-01, 6.552034020423889E-01,& + 3.361344337463379E-01, 4.151264205574989E-02,& + 2.430133521556854E-01, 3.004860281944275E-01,& + 1.976718604564667E-01, 4.469360709190369E-01,& + 1.951007992029190E-01, -4.725341200828552E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/-1.700838446617126E+00, 1.409139156341553E+00, -1.263895153999329E+00, -1.653346180915833E+00,& + -1.753814935684204E+00, 1.510319232940674E+00, -1.652730584144592E+00, 1.968622922897339E+00,& + -1.764715671539307E+00, -1.920537590980530E+00, 1.703584432601929E+00, 9.688673615455627E-01,& + 1.621924757957458E+00, -1.195185184478760E+00, -1.170735836029053E+00, -1.726262569427490E+00,& + 1.693020582199097E+00, -1.789734363555908E+00, 2.076834440231323E+00, -2.054785251617432E+00,& + 1.735462069511414E+00, -1.377997517585754E+00, 1.685962557792664E+00, -1.505226492881775E+00,& + 1.329061865806580E+00, -1.970339655876160E+00, 1.326048374176025E+00, -1.803932785987854E+00,& + -1.356570959091187E+00, -7.451403737068176E-01, 1.977797389030457E+00, 1.962222456932068E+00,& + -1.924186825752258E+00, -1.927103757858276E+00, 1.772511124610901E+00, 2.267752170562744E+00,& + 1.343345522880554E+00, -1.727791309356689E+00, -1.688525199890137E+00, -2.020093202590942E+00/) + + hidden1Synapse = reshape((/ & + -3.217298686504364E-01, -1.535140275955200E-01, -9.374593496322632E-01, -3.773699328303337E-02,& + -7.610699534416199E-01, 1.124547328799963E-03, 7.987623810768127E-01, 5.171887874603271E-01,& + 1.182283610105515E-01, 1.252476930618286E+00, -2.393243610858917E-01, 8.846385776996613E-02,& + 4.983871877193451E-01, -1.072657704353333E+00, -5.902777314186096E-01, 3.053096830844879E-01,& + -1.245228290557861E+00, -9.408684819936752E-02, -1.261333227157593E+00, 7.626018673181534E-02,& + -3.566111624240875E-01, -2.651087939739227E-01, 5.490935966372490E-02, -1.231116533279419E+00,& + -3.552156984806061E-01, -4.995369017124176E-01, -1.970071047544479E-01, 6.921592950820923E-01,& + -7.216929793357849E-01, -3.322352096438408E-02, -1.040984153747559E+00, -2.749272584915161E-01,& + -3.936901688575745E-01, -5.485629439353943E-01, 2.315377295017242E-01, 3.925201594829559E-01,& + 2.289973348379135E-01, 9.091649055480957E-01, -2.400987595319748E-01, 2.274930775165558E-01,& + 7.657364010810852E-01, -4.531333744525909E-01, -3.045647442340851E-01, -1.612837314605713E-01,& + -6.530205607414246E-01, 6.988145411014557E-02, -3.664937913417816E-01, -1.209497332572937E+00,& + 1.716423481702805E-01, 2.888691425323486E-01, -6.977611780166626E-01, 1.001697182655334E+00,& + -3.773393929004669E-01, -3.817198425531387E-02, 3.071420192718506E-01, -1.018374800682068E+00,& + -3.812201619148254E-01, 2.521711289882660E-01, -1.311386704444885E+00, -4.305998682975769E-01,& + -2.096824795007706E-01, -6.536886692047119E-01, 9.946095943450928E-02, -8.006195425987244E-01,& + 6.314782798290253E-02, -9.162106513977051E-01, 1.249427199363708E-01, -1.967987567186356E-01,& + -2.837883234024048E-01, 4.405716657638550E-01, 7.357195615768433E-01, 2.873047888278961E-01,& + 7.006355524063110E-01, -2.267676740884781E-01, 1.684177815914154E-01, 2.451081871986389E-01,& + -6.897705197334290E-01, -1.359052062034607E-01, -1.217865824699402E+00, 6.268809437751770E-01,& + -1.108817100524902E+00, -1.098538115620613E-01, 6.363938003778458E-02, -2.163156747817993E+00,& + 2.993230819702148E-01, -6.225543469190598E-02, 6.338689923286438E-01, 2.340336740016937E-01,& + 3.334980309009552E-01, 5.768545866012573E-01, -8.454492688179016E-01, -7.557854652404785E-01,& + -6.227542161941528E-01, -1.105716824531555E+00, 2.116404175758362E-01, -2.117430865764618E-01,& + -1.036560058593750E+00, -1.257222741842270E-01, 5.264365077018738E-01, -1.787502527236938E+00,& + -6.102513074874878E-01, -1.036811590194702E+00, -1.041777491569519E+00, 6.762499362230301E-02,& + -1.829331994056702E+00, -1.342972517013550E-01, 2.181535959243774E+00, 7.125011086463928E-01,& + 9.849542975425720E-01, 4.515964090824127E-01, -5.667360424995422E-01, 1.371907234191895E+00,& + 4.193291962146759E-01, -4.483173191547394E-01, 1.056447148323059E+00, -4.035096466541290E-01,& + 2.473213225603104E-01, 4.283659458160400E-01, -1.105738878250122E+00, -3.882422149181366E-01,& + 1.359030008316040E-01, -1.316889882087708E+00, 1.206199750304222E-01, -2.816296517848969E-01,& + -3.856543898582458E-01, -1.341159194707870E-01, 2.931591272354126E-01, -8.115946650505066E-01,& + 1.549627929925919E-01, -3.494594991207123E-02, 1.392071247100830E-01, 8.500702381134033E-01,& + -1.105314135551453E+00, -8.855208158493042E-01, -1.129539161920547E-01, -7.288187742233276E-01,& + 2.031663209199905E-01, -2.040854692459106E-01, -2.651244997978210E-01, 6.747405529022217E-01,& + 6.289814710617065E-01, 3.702930510044098E-01, 8.955963253974915E-01, -1.791490912437439E-01,& + 6.291658878326416E-01, 3.181912600994110E-01, -7.458741664886475E-01, -5.797970294952393E-01,& + 8.048549294471741E-03, -1.517996788024902E+00, 1.586797833442688E-02, -1.968807131052017E-01,& + -6.696819067001343E-01, 2.561997175216675E-01, 1.585537791252136E-01, -3.939553797245026E-01,& + 1.001605153083801E+00, -3.178015723824501E-02, 2.169712930917740E-01, 7.597719430923462E-01,& + -8.711787462234497E-01, -2.590858340263367E-01, -4.994206726551056E-01, -1.350332260131836E+00,& + -1.754350513219833E-01, -5.298053622245789E-01, -1.044484019279480E+00, -5.103482306003571E-02,& + 8.845404386520386E-01, 4.584137201309204E-01, 1.076861619949341E+00, 1.874905377626419E-01,& + 2.787777185440063E-01, 8.369036912918091E-01, -8.217707276344299E-01, -2.826712131500244E-01,& + -2.450734227895737E-01, -8.279343843460083E-01, 3.510917425155640E-01, -3.488889932632446E-01,& + -7.627615332603455E-01, 3.606846034526825E-01, 5.258455872535706E-01, -5.099301040172577E-02,& + 6.352093815803528E-01, -1.835833787918091E-01, 1.247637987136841E+00, 5.917957425117493E-01,& + 1.019452288746834E-01, -5.673841834068298E-01, 1.377126276493073E-01, -1.055184245109558E+00,& + -2.036373913288116E-01, -6.316062808036804E-01, -3.354403078556061E-01, 3.826665878295898E-01,& + -6.721435189247131E-01, -6.410418748855591E-01, -1.417969822883606E+00, -8.955898880958557E-02,& + -6.617363095283508E-01, -6.313887238502502E-01, 1.284139454364777E-01, -7.438000291585922E-02,& + 3.091568231582642E+00, 8.395515084266663E-01, 7.227233052253723E-01, 8.192335367202759E-01,& + -2.106423974037170E-01, 2.122008800506592E+00, 7.060149908065796E-01, 3.394779860973358E-01,& + 6.117095947265625E-01, -3.271679580211639E-01, 1.616740077733994E-01, 1.569840312004089E-01,& + -1.123665213584900E+00, 3.844760954380035E-01, 2.845884263515472E-01, 7.137780785560608E-01,& + 1.460106819868088E-01, -1.021391227841377E-01, 5.172263383865356E-01, -7.423986196517944E-01,& + -2.789774909615517E-02, -1.258952766656876E-01, -1.325458526611328E+00, -5.270438194274902E-01,& + -3.967397287487984E-02, -2.709308564662933E-01, 1.340401768684387E-01, -6.963784694671631E-01,& + -3.221498429775238E-01, -8.531031608581543E-01, 3.377375304698944E-01, 1.652107536792755E-01,& + -3.512997031211853E-01, -1.630981415510178E-01, 3.690161705017090E-01, 1.549807284027338E-02,& + 1.193455934524536E+00, 2.675475478172302E-01, 3.856497108936310E-01, 9.223973155021667E-01,& + -8.005780726671219E-02, 7.949089407920837E-01, 1.678814589977264E-01, 5.589793920516968E-01,& + -2.890521883964539E-01, -6.459630280733109E-02, 1.577395349740982E-01, -6.019581556320190E-01,& + 1.361452788114548E-01, -1.461234450340271E+00, 2.132855653762817E-01, -7.116237878799438E-01,& + -1.837224513292313E-01, 6.981704831123352E-01, -1.456485867500305E+00, -8.896524459123611E-02,& + -6.985316872596741E-01, -9.188821911811829E-01, -1.798982769250870E-01, -3.445543348789215E-01,& + -9.767906665802002E-01, 6.575983762741089E-01, -5.698328614234924E-01, 2.794421613216400E-01,& + -9.889149665832520E-01, 2.113757282495499E-01, -4.894487261772156E-01, -9.110729694366455E-01,& + 3.156659901142120E-01, -8.372070193290710E-01, 1.710339263081551E-02, -7.162731885910034E-01,& + -9.848624467849731E-02, -2.407071143388748E-01, -4.630023241043091E-01, 5.028110146522522E-01 & + /), shape(hidden1Synapse)) + + outputSynapse = reshape((/ & + -1.209702730178833E+00, 1.183213353157043E+00, -1.019356846809387E+00, -1.344744205474854E+00,& + -1.445307731628418E+00, 1.024327754974365E+00, -1.584630727767944E+00, 1.083521246910095E+00,& + -1.308865427970886E+00, -1.247952342033386E+00, 1.239847064018250E+00, 1.287056356668472E-01,& + 9.846584796905518E-01, -1.553632378578186E+00, -1.231866717338562E+00, 4.489912092685699E-02,& + 1.253254055976868E+00, -1.430614471435547E+00, 1.041161060333252E+00, -1.605084300041199E+00,& + 1.527578949928284E+00, -1.474965572357178E+00, 1.355290770530701E+00, -1.745877861976624E+00,& + 1.712602972984314E+00, -1.563431382179260E+00, 8.333104252815247E-01, -1.541154265403748E+00,& + -1.556280970573425E+00, 7.898001670837402E-01, 1.451943874359131E+00, 1.376102089881897E+00,& + -1.475358963012695E+00, -1.508958697319031E+00, 1.723131775856018E+00, 1.577485084533691E+00,& + 2.009120136499405E-01, -1.543342947959900E+00, -1.532042622566223E+00, -1.665173649787903E+00,& + -1.577844977378845E+00, 1.509271860122681E+00, -1.648273229598999E+00, -1.399203181266785E+00,& + -1.230364322662354E+00, 1.090018987655640E+00, -7.097014784812927E-01, 1.677408456802368E+00,& + -1.743194699287415E+00, -1.423129081726074E+00, 7.856354713439941E-01, 1.262704372406006E+00,& + 1.029602646827698E+00, -8.157435655593872E-01, -1.168590903282166E+00, -1.007120013237000E+00,& + 1.498046159744263E+00, -1.094031929969788E+00, 1.288908720016479E+00, -1.570232629776001E+00,& + 1.331548571586609E+00, -1.591911792755127E+00, 1.173869848251343E+00, -1.569446206092834E+00,& + 1.071457147598267E+00, -1.386015534400940E+00, 1.319629669189453E+00, -1.251965403556824E+00,& + -1.506981730461121E+00, -5.631150603294373E-01, 1.476744890213013E+00, 1.224819302558899E+00,& + -1.190375804901123E+00, -4.876171946525574E-01, 1.674062848091125E+00, 1.343202710151672E+00,& + 8.375900387763977E-01, -1.624152183532715E+00, -1.477828741073608E+00, -1.320914030075073E+00,& + -1.082759499549866E+00, 1.309733152389526E+00, -5.913071632385254E-01, -1.292264103889465E+00,& + -1.440814852714539E+00, 1.020094513893127E+00, -1.208431601524353E+00, 1.691915869712830E+00,& + -1.277797341346741E+00, -1.482174158096313E+00, 1.266713261604309E+00, 1.296367645263672E+00,& + 1.238657712936401E+00, -7.025628685951233E-01, 2.491326481103897E-01, -1.536825418472290E+00,& + 1.577931523323059E+00, -1.065637469291687E+00, 1.696800708770752E+00, -1.695444345474243E+00,& + 1.581656932830811E+00, -1.088520646095276E+00, 1.492973804473877E+00, -1.063908934593201E+00,& + 1.496415257453918E+00, -1.486176609992981E+00, 6.039925217628479E-01, -1.485497832298279E+00,& + -1.147870540618896E+00, -1.266431331634521E+00, 1.607187867164612E+00, 1.494379520416260E+00,& + -1.001191616058350E+00, -1.084854602813721E+00, 1.410489916801453E+00, 1.581320643424988E+00,& + 1.205576062202454E+00, -1.245357394218445E+00, -1.343545675277710E+00, -1.709581851959229E+00 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard4 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard5(inputFile,hidden1Axon,hidden1Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(40) + real hidden1Synapse(7,40) + real outputSynapse(40,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.188449800014496E-01, 1.674167998135090E-02,& + 1.918158382177353E-01, 6.903452277183533E-01,& + 3.361344337463379E-01, 4.151264205574989E-02,& + 2.485501170158386E-01, 2.868268489837646E-01,& + 1.839550286531448E-01, 3.534696102142334E-01,& + 1.951007992029190E-01, -4.725341200828552E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/3.177257776260376E-01, -3.444353640079498E-01, 5.270494818687439E-01, -5.221590399742126E-01,& + -2.202716171741486E-01, -4.241476655006409E-01, 2.620704658329487E-02, 6.034846901893616E-01,& + -3.619376122951508E-01, -3.380794525146484E-01, 4.901479184627533E-02, 4.951947927474976E-02,& + 1.800213754177094E-01, -2.407073378562927E-01, -3.286456167697906E-01, -6.795548200607300E-01,& + -5.868792533874512E-01, -3.454326987266541E-01, 1.429300457239151E-01, -2.292728424072266E-01,& + 4.302643239498138E-01, -2.324737906455994E-01, -4.539224207401276E-01, 5.544423460960388E-01,& + -4.054053127765656E-01, -1.476568281650543E-01, -2.141656428575516E-01, 1.077265888452530E-01,& + 5.846756696701050E-01, 3.272875547409058E-01, 1.847147941589355E-03, -4.990870654582977E-01,& + 1.531988829374313E-01, 1.791626960039139E-01, -6.736395359039307E-01, -5.093495845794678E-01,& + -6.099227815866470E-02, 3.861090838909149E-01, -6.592265367507935E-01, -2.490588128566742E-01/) + + hidden1Synapse = reshape((/ & + 3.541271016001701E-02, -7.549672126770020E-01, -4.738137125968933E-01, -2.348672598600388E-03,& + -2.733762562274933E-01, -8.357829414308071E-03, -8.771334886550903E-01, -2.402636408805847E-01,& + -3.840126693248749E-01, -5.802615284919739E-01, 1.073393039405346E-03, -2.714654207229614E-01,& + -1.682563573122025E-01, 2.412795424461365E-01, 6.722061038017273E-01, -2.907541096210480E-01,& + 1.961677670478821E-01, -3.303197622299194E-01, 1.424128562211990E-01, 5.971218943595886E-01,& + -3.415485620498657E-01, -3.709296286106110E-01, 2.636498510837555E-01, -6.461778879165649E-01,& + -4.282482266426086E-01, -1.192058548331261E-01, -7.758595943450928E-01, -4.671352729201317E-02,& + -2.137460708618164E-01, -1.528403162956238E-02, -7.986806631088257E-01, -3.911508247256279E-02,& + -5.328277871012688E-02, -6.519866585731506E-01, 3.402085006237030E-01, 1.100756451487541E-01,& + 6.820629835128784E-01, 7.288114726543427E-02, 2.484970390796661E-01, -1.383271068334579E-01,& + 1.246754452586174E-01, 6.508666276931763E-01, 3.158373534679413E-01, -5.986170172691345E-01,& + 6.103343367576599E-01, -6.012113094329834E-01, -1.359632611274719E-01, -2.586761862039566E-02,& + -4.111338853836060E-01, 1.772232651710510E-01, -6.230232119560242E-01, 3.960133790969849E-01,& + -6.472764015197754E-01, -3.764366805553436E-01, -9.892498701810837E-02, -9.984154999256134E-02,& + -4.294761717319489E-01, -2.304461598396301E-01, -7.071238160133362E-01, -4.068204462528229E-01,& + -4.626799225807190E-01, -3.020684123039246E-01, 6.521416902542114E-01, 1.521919965744019E-01,& + -7.091572284698486E-01, -4.207086861133575E-01, -5.045717954635620E-01, -3.018378615379333E-01,& + -4.485827982425690E-01, -5.111956596374512E-01, -8.567054569721222E-02, 4.856635630130768E-01,& + 2.459491789340973E-01, -1.496585756540298E-01, -1.183001995086670E-01, 4.713786244392395E-01,& + -2.809847891330719E-01, 8.547450602054596E-02, -3.530589640140533E-01, -7.254429459571838E-01,& + -1.860966980457306E-01, -6.639543771743774E-01, 4.769657552242279E-01, -7.412918210029602E-01,& + 3.024796843528748E-01, -6.272576451301575E-01, -5.452296733856201E-01, -2.242822349071503E-01,& + -3.738160133361816E-01, 3.284691274166107E-01, -4.564896821975708E-01, 2.556349933147430E-01,& + 4.318492487072945E-02, -1.320876032114029E-01, -9.898099303245544E-02, 6.774403899908066E-02,& + 1.919083893299103E-01, 2.400640696287155E-01, 4.077304899692535E-01, 2.524036169052124E-01,& + 5.042297840118408E-01, 2.886471152305603E-01, -1.700776815414429E-01, -2.435589283704758E-01,& + -2.057165205478668E-01, 1.996059715747833E-01, 2.711705565452576E-01, 3.861612975597382E-01,& + -2.083975523710251E-01, 7.296724617481232E-02, -2.396509945392609E-01, -1.525006294250488E-01,& + -4.502384066581726E-01, -5.351938009262085E-01, -3.890139460563660E-01, 1.700514107942581E-01,& + -4.677065312862396E-01, -3.514041006565094E-01, 4.196007549762726E-01, 2.812465429306030E-01,& + -2.938374876976013E-01, -3.160441517829895E-01, -4.980419874191284E-01, 3.127529323101044E-01,& + 2.271771281957626E-01, -1.466843336820602E-01, -6.397774219512939E-01, 4.446669816970825E-01,& + 8.942086249589920E-02, 9.681937843561172E-02, -5.533168092370033E-02, -4.528337121009827E-01,& + 6.882410049438477E-01, -3.133308887481689E-01, -2.058080136775970E-01, -2.226170003414154E-01,& + -2.296325266361237E-01, -2.966837584972382E-01, -3.301460444927216E-01, -3.557955026626587E-01,& + 3.304032683372498E-01, -8.399857580661774E-02, 4.199078381061554E-01, 1.194518618285656E-02,& + 7.232509851455688E-01, 9.784302115440369E-02, -1.134829670190811E-01, 1.034526005387306E-01,& + -8.523296117782593E-01, 5.190717577934265E-01, 5.323929339647293E-02, 1.697375029325485E-01,& + 5.581731796264648E-01, -9.171869754791260E-01, -1.815564483404160E-01, 3.742720186710358E-01,& + -2.523972094058990E-01, 1.490504741668701E-01, -6.334505081176758E-01, 2.519290745258331E-01,& + 2.056387513875961E-01, -1.307390183210373E-01, -9.355121254920959E-01, -2.585434913635254E-01,& + -4.636541008949280E-02, -1.257960349321365E-01, 1.712975054979324E-01, -7.756385207176208E-01,& + -2.476336807012558E-01, 2.972539961338043E-01, 4.443784654140472E-01, 4.029458761215210E-02,& + -2.695891633629799E-02, -1.858536303043365E-01, -1.682455986738205E-01, -1.443968862295151E-01,& + 3.042537868022919E-01, -4.171138703823090E-01, -1.896526068449020E-01, 1.934753060340881E-01,& + -5.211362838745117E-01, -4.224704951047897E-02, -5.408123731613159E-01, -2.546814382076263E-01,& + -3.727044463157654E-01, -4.361395835876465E-01, 1.507636755704880E-01, 8.203987777233124E-02,& + 1.366124451160431E-01, 5.710709095001221E-01, 3.028809726238251E-01, 9.636782407760620E-01,& + -3.770071640610695E-02, 3.973050415515900E-01, 2.884645946323872E-03, -8.364310860633850E-01,& + 5.341901779174805E-01, -1.418879022821784E-03, 5.416565537452698E-01, 3.877540528774261E-01,& + -1.585132908076048E-03, 1.770619601011276E-01, 4.701207578182220E-02, 4.187163114547729E-01,& + 9.934148788452148E-01, 2.260543704032898E-01, 7.113759517669678E-01, 4.728879332542419E-01,& + -3.471966087818146E-01, 7.732371240854263E-02, -2.182047963142395E-01, 8.698941469192505E-01,& + 6.959328651428223E-01, 1.184082403779030E-01, 1.408587545156479E-01, 2.005882859230042E-01,& + 3.091167509555817E-01, -1.955157965421677E-01, -2.792426571249962E-02, -7.336559891700745E-02,& + 1.834385395050049E-01, -3.164150416851044E-01, -5.837532281875610E-01, 9.843266010284424E-01,& + -5.053303837776184E-01, 9.432902336120605E-01, 2.762463316321373E-02, 3.678649663925171E-01,& + -8.084134012460709E-02, 2.041484862565994E-01, 5.061163306236267E-01, 7.991071939468384E-01,& + 2.264233529567719E-01, 7.115226387977600E-01, -5.186138153076172E-01, 4.093891084194183E-01,& + -1.001899018883705E-01, -1.933344826102257E-02, 1.815729439258575E-01, -1.810713559389114E-01,& + -5.504883527755737E-01, 7.005249857902527E-01, -1.967341639101505E-02, 1.448700390756130E-02,& + 3.791421651840210E-01, -3.687309324741364E-01, 6.238684058189392E-01, 2.549594640731812E-02,& + 6.611171960830688E-01, -2.348230034112930E-01, 4.087108075618744E-01, 1.835047304630280E-01,& + 2.745413780212402E-01, -5.477424860000610E-01, 4.227129369974136E-02, 1.370747834444046E-01,& + -1.771535575389862E-01, 2.915630638599396E-01, 8.117929100990295E-02, -5.147354602813721E-01,& + -7.195407748222351E-01, -2.950702905654907E-01, -8.272841572761536E-01, -8.926602080464363E-03,& + 6.488984823226929E-01, -7.542604207992554E-01, -1.718278229236603E-01, -4.908424615859985E-02,& + -3.619753718376160E-01, -9.747832268476486E-02, -9.625122696161270E-02, -1.545960754156113E-01,& + 4.842050671577454E-01, -9.618758410215378E-02, 1.017526090145111E-01, -1.527849882841110E-01,& + 5.150741338729858E-01, -2.614658325910568E-02, -4.681808650493622E-01, 6.698484718799591E-02 & + /), shape(hidden1Synapse)) + + outputSynapse = reshape((/ & + -4.252142608165741E-01, -5.190939903259277E-01, 2.900628745555878E-01, -4.749988615512848E-01,& + -2.432068884372711E-01, 2.475018054246902E-01, 1.508098654448986E-02, -1.032671928405762E-01,& + -5.695398449897766E-01, -4.341589808464050E-01, 3.563072979450226E-01, -1.610363721847534E-01,& + -1.529531776905060E-01, 3.572074323892593E-02, -1.639768481254578E-01, -2.103261351585388E-01,& + -5.111085772514343E-01, -9.769214689731598E-02, -1.570120900869370E-01, -1.928524225950241E-01,& + 4.143640100955963E-01, -3.950143232941628E-02, -2.028328180313110E-01, -1.475265175104141E-01,& + -2.296919003129005E-02, -3.979336936026812E-03, -3.908852040767670E-01, 4.192969501018524E-01,& + 2.397747188806534E-01, 4.962041378021240E-01, 4.480696618556976E-01, -2.336141020059586E-01,& + 3.938802778720856E-01, 2.352581322193146E-01, 1.772783696651459E-02, -5.289353057742119E-02,& + -3.967223316431046E-02, -4.341553747653961E-01, -2.162312269210815E-01, 4.311326891183853E-02,& + 4.480128586292267E-01, 1.783114373683929E-01, 5.068565607070923E-01, -4.451447725296021E-01,& + -5.096289515495300E-01, -4.807172119617462E-01, 1.144711822271347E-01, 3.887178003787994E-01,& + -3.575057387351990E-01, -1.148879528045654E-01, -3.399987518787384E-02, -2.313354164361954E-01,& + -7.217752188444138E-02, 3.657472431659698E-01, 3.738324940204620E-01, 4.177713990211487E-01,& + -4.159389436244965E-01, -1.484509706497192E-01, 2.662932872772217E-01, -4.467738270759583E-01,& + 7.071519643068314E-02, 3.344006240367889E-01, -5.436876043677330E-02, 3.525221049785614E-01,& + -2.395160868763924E-02, -3.141686320304871E-01, 3.852373957633972E-01, 4.932067096233368E-01,& + -1.492380946874619E-01, 4.595996737480164E-01, 3.445216640830040E-02, -5.653984546661377E-01,& + -4.437799155712128E-01, 1.460446715354919E-01, -4.742037057876587E-01, 1.456019878387451E-01,& + 3.867210447788239E-01, 4.871259629726410E-01, -4.954726397991180E-01, 1.770049333572388E-02,& + 2.028178423643112E-01, -3.220860958099365E-01, 2.971330881118774E-01, -1.783177554607391E-01,& + -2.126741260290146E-01, -2.823735475540161E-01, 4.713099896907806E-01, 2.155631184577942E-01,& + -3.713304102420807E-01, 2.199546098709106E-01, 2.943331003189087E-01, 4.534626007080078E-01,& + 3.414066731929779E-01, -1.535274535417557E-01, -1.036400645971298E-01, -4.483501911163330E-01,& + 8.723334968090057E-02, -1.368855964392424E-02, -5.010653138160706E-01, 4.472654759883881E-01,& + 1.106471717357635E-01, 5.139253139495850E-01, -2.296521663665771E-01, 4.545788764953613E-01,& + 1.664130948483944E-02, 2.438283525407314E-02, -1.943250745534897E-01, 4.952348470687866E-01,& + 3.839295804500580E-01, -3.456721901893616E-01, -1.650201976299286E-01, -3.892767727375031E-01,& + -3.154349029064178E-01, 3.591218292713165E-01, -2.804268598556519E-01, -4.606449007987976E-01,& + 1.020256653428078E-01, 2.229744791984558E-01, -4.180959761142731E-01, -4.198006689548492E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard5 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard6(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(7) + real hidden2Axon(4) + real hidden1Synapse(7,7) + real hidden2Synapse(7,4) + real outputSynapse(4,3) + + inputFile = reshape((/ & + 1.353383421897888E+00, -4.533834457397461E-01,& + 2.269289046525955E-01, -1.588500849902630E-02,& + 1.868382692337036E-01, 6.490761637687683E-01,& + 4.038590788841248E-01, 3.776083141565323E-02,& + 2.430133521556854E-01, 3.004860281944275E-01,& + 1.935067623853683E-01, 4.185551702976227E-01,& + 1.951007992029190E-01, -4.725341200828552E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/ 7.384125608950853E-03, -2.202851057052612E+00, 2.003432661294937E-01, -2.467587143182755E-01,& + 5.973502993583679E-01, 3.834692537784576E-01, 2.687855064868927E-01/) + + hidden2Axon = & + (/ 3.643750846385956E-01, 2.449363768100739E-01, 4.754272103309631E-01, 7.550075054168701E-01/) + + hidden1Synapse = reshape((/ & + 7.333400845527649E-01, 5.450296998023987E-01, -7.700046896934509E-01, 1.426693439483643E+00,& + -1.024212338961661E-03, -6.459779292345047E-02, 1.028800487518311E+00, -2.116347402334213E-01,& + 3.591781139373779E+00, 2.435753583908081E+00, -6.687584519386292E-01, 1.201278567314148E+00,& + -3.478864133358002E-01, 1.830960988998413E+00, -3.111673295497894E-01, -4.177703261375427E-01,& + -3.920616805553436E-01, -5.040770769119263E-01, -5.354442000389099E-01, -1.534618530422449E-02,& + -1.089364647865295E+00, -3.010036647319794E-01, 1.486289381980896E+00, 1.059559464454651E+00,& + 1.640596628189087E+00, 2.254628390073776E-01, 4.839954376220703E-01, 8.484285473823547E-01,& + -6.926012784242630E-02, 4.926209524273872E-02, 2.834132313728333E-01, 3.028324842453003E-01,& + 2.161216735839844E-01, 7.251360416412354E-01, 2.851752638816833E-01, -5.653074979782104E-01,& + 3.640621304512024E-01, 1.341893225908279E-01, 7.511208057403564E-01, -1.088509336113930E-01,& + 1.044083759188652E-01, 6.529347300529480E-01, -6.885128021240234E-01, -1.003871187567711E-01,& + 9.337020665407181E-02, -4.425194561481476E-01, -3.668845295906067E-01, -2.661575675010681E-01,& + -5.936880707740784E-01 & + /), shape(hidden1Synapse)) + + hidden2Synapse = reshape((/ & + -5.461466908454895E-01, -1.490996479988098E+00, 7.721499800682068E-01, -3.842977285385132E-01,& + 1.134691461920738E-01, -7.171064615249634E-01, 4.990165829658508E-01, -4.233781099319458E-01,& + 5.502462983131409E-01, -1.000102013349533E-01, 1.481512188911438E+00, 1.637827455997467E-01,& + 5.879161506891251E-02, -3.256742060184479E-01, 4.237195849418640E-01, 1.471476674079895E+00,& + -1.982609331607819E-01, 6.787789463996887E-01, 5.525223612785339E-01, 4.395257532596588E-01,& + 1.643348783254623E-01, 8.910947442054749E-01, 1.772162079811096E+00, -2.550726830959320E-01,& + 4.305597543716431E-01, 1.965346336364746E-01, -2.251276820898056E-01, -5.650298595428467E-01 & + /), shape(hidden2Synapse)) + + outputSynapse = reshape((/ & + 4.605286195874214E-02, 1.636024713516235E-01, 7.045555710792542E-01, 4.994805455207825E-01,& + 5.167593955993652E-01, 2.924540340900421E-01, -1.490857079625130E-02, -1.826021969318390E-01,& + 3.571106493473053E-01, -3.790216147899628E-01, -6.031348705291748E-01, -4.664786159992218E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard6 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard7(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(7) + real hidden2Axon(4) + real hidden1Synapse(7,7) + real hidden2Synapse(7,4) + real outputSynapse(4,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.295625507831573E-01, 6.163756549358368E-02,& + 2.081165313720703E-01, 6.204994320869446E-01,& + 3.565062582492828E-01, -1.051693689078093E-02,& + 2.430133521556854E-01, 3.004860281944275E-01,& + 1.839550286531448E-01, 3.534696102142334E-01,& + 1.951007992029190E-01, -4.725341200828552E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/-4.191969335079193E-01, 1.229978561401367E+00, -2.403785735368729E-01, 5.233071446418762E-01,& + 8.062141537666321E-01, 1.000604867935181E+00, -1.015548110008240E-01/) + + hidden2Axon = & + (/-5.321261882781982E-01, -2.396449327468872E+00, -1.170158505439758E+00, -4.097367227077484E-01/) + + hidden1Synapse = reshape((/ & + 1.341468811035156E+00, -4.215665817260742E+00, -1.636691570281982E+00, -2.792109727859497E+00,& + -1.489341259002686E+00, 4.075187742710114E-01, -2.091729402542114E+00, -5.029736161231995E-01,& + -4.151493072509766E+00, -1.452428579330444E+00, 2.398953676223755E+00, -8.748555183410645E-01,& + 1.340690374374390E+00, -2.277854681015015E+00, 6.057588458061218E-01, 1.353034019470215E+00,& + -1.214678883552551E+00, -3.864320814609528E-01, 1.148570895195007E+00, 5.792776346206665E-01,& + 1.344245020300150E-02, -8.885311484336853E-01, -1.594583272933960E+00, 4.960928857326508E-01,& + -1.118881464004517E+00, -2.252289772033691E+00, 6.328870654106140E-01, -1.946701169013977E+00,& + -2.910976111888885E-01, 2.447998225688934E-01, 2.001658976078033E-01, -1.229660585522652E-02,& + 6.969845890998840E-01, -5.897524300962687E-03, -5.688555836677551E-01, 2.619750201702118E-01,& + -4.162483692169189E+00, -1.468571424484253E+00, -3.118389844894409E+00, 6.947994828224182E-01,& + -2.687734663486481E-01, -2.110401153564453E+00, 3.224660456180573E-02, 8.378994464874268E-01,& + 9.896742701530457E-01, -7.354493737220764E-01, 6.684727072715759E-01, 1.465887904167175E+00,& + -3.726872503757477E-01 & + /), shape(hidden1Synapse)) + + hidden2Synapse = reshape((/ & + -3.395457863807678E-01, -5.815528631210327E-01, 2.929831743240356E-01, -5.629656314849854E-01,& + 4.701104387640953E-02, -9.300172328948975E-01, -1.461120098829269E-01, -3.458845615386963E-01,& + 1.266251802444458E-01, 6.342335790395737E-02, 1.869771480560303E-01, -1.476681977510452E-01,& + 5.144428834319115E-02, -3.145390946883708E-04, 8.697064518928528E-01, 1.057970225811005E-01,& + 2.603019773960114E-01, 4.393529295921326E-01, -2.832717299461365E-01, 5.771816968917847E-01,& + -3.896601796150208E-01, -7.260112762451172E-01, -7.957320213317871E-01, 6.776907294988632E-02,& + -3.073690235614777E-01, -1.540119051933289E-01, -6.733091473579407E-01, 2.009786069393158E-01 & + /), shape(hidden2Synapse)) + + outputSynapse = reshape((/ & + 3.156347572803497E-01, -8.236174583435059E-01, -9.946570396423340E-01, 4.212915897369385E-01,& + -7.918102145195007E-01, -2.033229321241379E-01, -1.056663155555725E+00, -5.699685215950012E-01,& + -9.666987657546997E-01, -5.505290031433105E-01, 8.724089711904526E-02, -9.536570906639099E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard7 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard8(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(7) + real hidden2Axon(4) + real hidden1Synapse(7,7) + real hidden2Synapse(7,4) + real outputSynapse(4,3) + + inputFile = reshape((/ & + 1.353383421897888E+00, -4.533834457397461E-01,& + 2.188449800014496E-01, 1.674167998135090E-02,& + 1.906577646732330E-01, 6.807435750961304E-01,& + 3.361344337463379E-01, 4.151264205574989E-02,& + 2.491349428892136E-01, 3.307266235351562E-01,& + 1.839550286531448E-01, 3.534696102142334E-01,& + 1.951007992029190E-01, -4.725341200828552E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/-3.274627029895782E-01, 2.668272238224745E-03, -3.019839525222778E-01, -4.557206928730011E-01,& + -5.515558272600174E-02, 3.119016764685512E-04, 8.753398060798645E-02/) + + hidden2Axon = & + (/ 2.733168303966522E-01, -3.423235416412354E-01, 8.666662573814392E-01, -6.124708056449890E-01/) + + hidden1Synapse = reshape((/ & + 2.732226848602295E-01, 1.847893238067627E+00, -1.084923520684242E-01, 1.385403037071228E+00,& + 2.885355055332184E-01, -3.135629594326019E-01, 1.057805895805359E+00, -5.868541821837425E-02,& + 3.278825521469116E+00, 4.641786217689514E-01, 4.461606740951538E-01, -1.952850073575974E-01,& + -5.789646506309509E-01, 1.945697903633118E+00, -9.578172862529755E-02, 2.150904417037964E+00,& + 9.114052653312683E-01, 1.107189536094666E+00, 6.752110123634338E-01, 2.475811988115311E-01,& + 1.050705909729004E+00, 3.205673992633820E-01, 2.478840798139572E-01, -5.084273815155029E-01,& + -2.407394796609879E-01, -1.702371835708618E-01, 1.456947028636932E-01, 3.221787512302399E-01,& + -2.719256579875946E-01, -5.116361379623413E-01, 3.973563387989998E-02, -1.733802706003189E-01,& + -1.649789661169052E-01, -4.471102654933929E-01, -4.071239829063416E-01, -1.492276042699814E-01,& + -1.245773434638977E+00, -6.851593255996704E-01, -8.733592033386230E-01, -4.348643422126770E-01,& + -3.520536422729492E-01, -9.930510520935059E-01, 1.956800930202007E-02, -9.781590104103088E-01,& + -6.039583683013916E-01, -6.923800706863403E-01, -6.682770848274231E-01, 4.162513464689255E-02,& + -1.004322052001953E+00 & + /), shape(hidden1Synapse)) + + hidden2Synapse = reshape((/ & + -8.183520436286926E-01, -1.621446132659912E+00, -1.045793533325195E+00, -5.855653062462807E-02,& + 4.404523968696594E-01, 7.002395391464233E-01, 2.097517400979996E-01, -9.925779700279236E-02,& + -8.263560533523560E-01, -1.043026208877563E+00, 4.524357020854950E-01, 2.231711596250534E-01,& + 8.736496567726135E-01, 8.797182440757751E-01, 6.963157653808594E-01, 2.816314399242401E-01,& + 1.525615751743317E-01, 1.936565339565277E-01, 1.900831162929535E-01, 1.180221140384674E-01,& + 1.027775928378105E-01, 9.149055480957031E-01, 1.129598617553711E+00, 6.131598353385925E-01,& + 2.547058761119843E-01, 2.556352131068707E-02, -3.627143800258636E-02, -6.722733378410339E-01 & + /), shape(hidden2Synapse)) + + outputSynapse = reshape((/ & + -5.266965627670288E-01, -1.973343640565872E-01, 1.362649053335190E-01, 9.479679167270660E-02,& + 2.987665235996246E-01, -3.116582632064819E-01, -1.842434853315353E-01, -4.986568093299866E-01,& + 6.261917948722839E-01, 5.454919338226318E-01, -3.484728187322617E-02, -4.687039256095886E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard8 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard9(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(7) + real hidden2Axon(4) + real hidden1Synapse(7,7) + real hidden2Synapse(7,4) + real outputSynapse(4,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.188449800014496E-01, 1.674167998135090E-02,& + 1.868382692337036E-01, 6.490761637687683E-01,& + 3.733665347099304E-01, 1.051026657223701E-01,& + 2.430133521556854E-01, 3.004860281944275E-01,& + 2.083092182874680E-01, 3.581876754760742E-01,& + 1.951007992029190E-01, -4.725341200828552E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/ 1.012814998626709E+00, -3.782782554626465E-01, -2.220184087753296E+00, -3.424299955368042E-01,& + 1.449530482292175E+00, -2.592789530754089E-01, -4.670010507106781E-01/) + + hidden2Axon = & + (/ 3.516010642051697E-01, 3.293374776840210E-01, -1.675553172826767E-01, 3.799068629741669E-01/) + + hidden1Synapse = reshape((/ & + 1.390573829412460E-01, -3.110583126544952E-01, 1.105552077293396E+00, 4.394045472145081E-01,& + 4.795211851596832E-01, 1.969023197889328E-01, 5.574952811002731E-02, 1.690310984849930E-01,& + 2.208244323730469E+00, 2.111947536468506E+00, 3.239532709121704E-01, 7.690296173095703E-01,& + 1.264077782630920E+00, 1.672740578651428E+00, 1.320844173431396E+00, 7.965675592422485E-01,& + -7.341063618659973E-01, 3.702043294906616E+00, 1.716022133827209E+00, -6.642882823944092E-01,& + 1.686427950859070E+00, -4.863217473030090E-01, 1.285641908645630E+00, 1.281449794769287E+00,& + 2.356275558471680E+00, -1.406845331192017E+00, 6.027717590332031E-01, 6.652191877365112E-01,& + -9.871492385864258E-01, -5.513690948486328E+00, -2.750334143638611E-01, 1.229651212692261E+00,& + -2.504641294479370E+00, -3.219850361347198E-01, -2.744197607040405E+00, -4.023179113864899E-01,& + 9.932321496307850E-03, -6.916724443435669E-01, -2.260914087295532E+00, 1.261568814516068E-01,& + 3.248662948608398E-01, 6.963043808937073E-01, 1.830800414085388E+00, -2.054267644882202E+00,& + -9.595731496810913E-01, -8.711494207382202E-01, -1.330682396888733E+00, 2.109736204147339E+00,& + -6.145163774490356E-01 & + /), shape(hidden1Synapse)) + + hidden2Synapse = reshape((/ & + -3.299105465412140E-01, 4.235435724258423E-01, 9.191738963127136E-01, 6.795659661293030E-01,& + -1.440919041633606E+00, 4.634908214211464E-02, -1.265781879425049E+00, 2.394487708806992E-01,& + 1.205053567886353E+00, 5.790516138076782E-01, 1.087130665779114E+00, -6.723164916038513E-01,& + -1.834900081157684E-01, -4.767680168151855E-01, 8.402896672487259E-02, 1.035530328750610E+00,& + 1.644443035125732E+00, 4.317290484905243E-01, -1.714672803878784E+00, 5.225644707679749E-01,& + -5.602287650108337E-01, 1.068559288978577E+00, -2.211284125223756E-03, -2.943626642227173E-01,& + 1.341261714696884E-01, 4.324447214603424E-01, -5.482236146926880E-01, -4.985276758670807E-01 & + /), shape(hidden2Synapse)) + + outputSynapse = reshape((/ & + 3.726457059383392E-01, 7.749153375625610E-01, 4.159255921840668E-01, 5.234625935554504E-01,& + -1.592817008495331E-01, 5.884559154510498E-01, -7.756121158599854E-01, 2.137655019760132E-01,& + -6.172903776168823E-01, -4.417923986911774E-01, -4.576872885227203E-01, 4.440903961658478E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard9 +! +!------------------------------------------------------------------------------ +! + SUBROUTINE Breadboard10(inputFile,hidden1Axon,hidden2Axon,& + hidden1Synapse,hidden2Synapse,outputSynapse) + + implicit none + + real inputFile(2,7) + real hidden1Axon(7) + real hidden2Axon(4) + real hidden1Synapse(7,7) + real hidden2Synapse(7,4) + real outputSynapse(4,3) + + inputFile = reshape((/ & + 1.077844262123108E+00, -1.778443008661270E-01,& + 2.269289046525955E-01, -1.588500849902630E-02,& + 1.906577646732330E-01, 6.807435750961304E-01,& + 3.703703582286835E-01, -4.592590779066086E-02,& + 2.611723542213440E-01, 3.901915252208710E-01,& + 1.911842674016953E-01, 4.027296602725983E-01,& + 1.951007992029190E-01, -4.725341200828552E-01 & + /), shape(inputFile)) + + hidden1Axon = & + (/ 1.307985544204712E+00, -1.960705667734146E-01, -1.105142459273338E-01, -1.207442641258240E+00,& + -1.665081620216370E+00, 1.251117825508118E+00, -7.307677268981934E-01/) + + hidden2Axon = & + (/ 2.186001092195511E-02, 3.369570672512054E-01, 1.165086925029755E-01, 2.747000660747290E-03/) + + hidden1Synapse = reshape((/ & + -3.375437259674072E-01, -3.020816326141357E+00, -1.435481071472168E+00, 1.473870635032654E+00,& + -7.776365280151367E-01, 6.734371185302734E-01, -1.643768787384033E+00, -1.227448821067810E+00,& + -7.365036606788635E-01, -4.473563134670258E-01, -5.696173906326294E-01, -2.562220990657806E-01,& + 8.557485342025757E-01, -8.057124614715576E-01, 4.266147911548615E-01, 2.171551227569580E+00,& + 3.776189982891083E-01, 5.574828386306763E-01, 3.814708292484283E-01, 2.591066062450409E-01,& + 1.959651827812195E+00, 1.003962755203247E-01, -1.228965446352959E-02, -3.882043361663818E-01,& + -2.722288109362125E-02, -3.378733694553375E-01, -7.981095314025879E-01, 4.839731752872467E-01,& + 1.432798147201538E+00, 1.885666996240616E-01, -6.051751971244812E-01, 2.924412488937378E+00,& + 1.136252880096436E+00, 2.994727194309235E-01, 1.604383468627930E+00, -8.440219759941101E-01,& + 6.088087558746338E-01, -3.722844421863556E-01, 5.441566109657288E-01, 3.944540619850159E-01,& + 7.044004201889038E-01, 3.459328413009644E-01, 1.054268121719360E+00, -3.348083496093750E+00,& + -7.199336886405945E-01, -1.489133596420288E+00, -4.090557992458344E-01, 8.203456401824951E-01,& + -1.118073821067810E+00 & + /), shape(hidden1Synapse)) + + hidden2Synapse = reshape((/ & + -6.871775984764099E-01, -1.148896694183350E+00, -2.102893590927124E-01, -5.890849828720093E-01,& + 5.899340510368347E-01, 7.098034024238586E-01, -1.422515869140625E+00, -1.206974506378174E+00,& + 4.104525446891785E-01, 3.567897081375122E-01, 2.746991515159607E-01, 1.193219542503357E+00,& + 3.167707324028015E-01, -1.222744822502136E+00, -9.918631613254547E-02, 4.355156719684601E-01,& + 2.938420772552490E-01, -1.012830615043640E+00, -1.290418803691864E-01, 7.479285597801208E-01,& + -2.292920649051666E-01, -1.372484922409058E+00, -6.534293759614229E-03, 1.525195717811584E+00,& + 2.076585590839386E-01, 1.434590101242065E+00, 7.887706905603409E-02, -1.401232123374939E+00 & + /), shape(hidden2Synapse)) + + outputSynapse = reshape((/ & + 6.101396083831787E-01, 3.122945129871368E-01, 3.869898915290833E-01, 4.438063502311707E-01,& + 5.161536335945129E-01, -2.700618803501129E-01, -3.105166740715504E-02, -5.569267272949219E-01,& + -5.549081563949585E-01, -3.867979049682617E-01, 1.623111665248871E-01, -6.052750945091248E-01 & + /), shape(outputSynapse)) + + END SUBROUTINE Breadboard10 ! !------------------------------------------------------------------------------------- ! diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index bb24fc660..94136b823 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -1182,7 +1182,7 @@ subroutine read_grib2_sngle(filenameG2,ntot,height,var) integer :: grib_edition integer :: itot integer :: nx,ny - real :: dx,dy,lat1,lon1,rtnum + real :: dx,dy,lat1,lon1,rtnum, nlat real :: ref_value,bin_scale_fac,dec_scale_fac,bit_number,field_type real :: bit_map real :: scale_factor,scale_factor2 @@ -1306,7 +1306,15 @@ subroutine read_grib2_sngle(filenameG2,ntot,height,var) ! write(*,*) 'bit_number=',bit_number ! write(*,*) 'field_type=',field_type ! write(*,*) 'bit map indicator=',bit_map - else + else if (gfld%igdtnum.eq.40) then ! Gaussian Grid (GFS) + nx = gfld%igdtmpl(8) + ny = gfld%igdtmpl(9) + lat1 = gfld%igdtmpl(12)/scale_factor + lon1 = gfld%igdtmpl(13)/scale_factor + dx = gfld%igdtmpl(17)/scale_factor + nlat = gfld%igdtmpl(18) + write(*,*) gfld%igdtnum, nx, ny, lat1, lon1, dx, nlat + else write(*,*) 'unknown projection' stop 1235 endif From cf17f28876b10f3c24e94041afb5ec31f73f7a97 Mon Sep 17 00:00:00 2001 From: Alex Richert <82525672+AlexanderRichert-NOAA@users.noreply.github.com> Date: Fri, 20 Jan 2023 06:21:32 -0800 Subject: [PATCH 093/107] Clean spack caches after installation (#615) --- .github/workflows/gcc.yml | 1 + .github/workflows/intel.yml | 1 + 2 files changed, 2 insertions(+) diff --git a/.github/workflows/gcc.yml b/.github/workflows/gcc.yml index ef6d496c6..af627a375 100644 --- a/.github/workflows/gcc.yml +++ b/.github/workflows/gcc.yml @@ -62,6 +62,7 @@ jobs: spack add mpich@3.4.2 spack concretize spack install -v --fail-fast --dirty + spack clean --all build: needs: setup diff --git a/.github/workflows/intel.yml b/.github/workflows/intel.yml index 326ae143d..6eb75b8ce 100644 --- a/.github/workflows/intel.yml +++ b/.github/workflows/intel.yml @@ -77,6 +77,7 @@ jobs: spack add intel-oneapi-mpi spack concretize spack install --dirty -v --fail-fast + spack clean --all build: needs: setup From 90c26de965427a953a236d0baceeaa72007b13f2 Mon Sep 17 00:00:00 2001 From: "Samuel Trahan (NOAA contractor)" <39415369+SamuelTrahanNOAA@users.noreply.github.com> Date: Thu, 26 Jan 2023 06:52:03 -0700 Subject: [PATCH 094/107] add in-flight icing products through libIFI (#536) * Connect to IFI * Correct CAPE&CIN calculations * Changes to get IFI working. * Connect to latest version of libIFI, but in an ugly way. Also, this is sending the wrong CAPE, CIN, and APCP * Output libIFI-style diagnostic NetCDF files on full grid instead of per-rank. * Send the right CAPE, CIN, and APCP to libIFI * IFI connection: disable smoothing and precision drop. Add more diagnostic output. All results match standalone program. * IFI smoother works in MPI * Without IFI, output missing values for IFI fields. If IFI is requested and missing, build anyway. * delete old file RQSTFLD.F * bug fixes to get IFI to run * IFI works 2D * Missing value in ifi debug files & some logging * missing EXCH_c_float.f file * double-specified access specification * fix two syntax errors (missing <0) * Build with IFI by default, if it is present. * bug fixes for build and namelist reporting * disable ifi by default * Add c++ linker flags * Bug fixes to allow IFI fields to be generated when nothing else is requested * add ifi fields to fv3lam xml & txt files * remove cpp directives from a file that is not passed through cpp * -i flag to compile ifi * Missing IGET(ient)>0 check in IFI.F caused crashes * compile_upp.sh -i can compile with libIFI on hera * many bug fixes * update ifi module version on hera * remove unused variable * add a missing allocate() * remove unused code and switch from abort to mpi_abort * Point to ifi on acorn * remove halo regions from variables sent to libIFI * Change loops 1,IM -> ISTA,IEND in several places * revert some problematic changes * IFI fields * can build with ifi inside upp * simplify code a bit * update hera ifi module version for unit conversion bugfix * update internal ifi for unit conversion bugfix * revert to develop version of post_gtg.fd * bug fixes to get UPP to run IFI build internally, after latest few merges * updated libifi * correct error in postxconfig-NT-fv3lam_rrfs.txt * switch to 1007-1010 IGET numbers for IFI * IFI_APCP(i,jj) -> IFI_APCP(ii,jj) * missing variables from postxconfig-NT-fv3lam_rrfs.txt * 20220901 => 20230112 on jet * update ifi module version * remove duplicate code * bug fix in libifi test program (will not affect post) * comment-out wordy print statement * libIFI submodule: https & update=none * update changelogs * remove NCEP table from non-NCEP-table variable Co-authored-by: samuel trahan --- .gitmodules | 4 + CMakeLists.txt | 49 +- modulefiles/hera.lua | 3 + modulefiles/jet | 3 + modulefiles/wcoss2_a.lua | 4 + parm/fv3lam_post_avblflds.xml | 46 + parm/fv3lam_rrfs.xml | 53 ++ parm/post_avblflds.xml | 47 + parm/postxconfig-NT-fv3lam_rrfs.txt | 167 +++- sorc/CMakeLists.txt | 4 + sorc/libIFI.fd | 1 + sorc/ncep_post.fd/ALLOCATE_ALL.f | 12 +- sorc/ncep_post.fd/CMakeLists.txt | 20 +- sorc/ncep_post.fd/CTLBLK.f | 11 +- sorc/ncep_post.fd/EXCH_c_float.f | 409 ++++++++ sorc/ncep_post.fd/IFI.F | 1349 +++++++++++++++++++++++++++ sorc/ncep_post.fd/INITPOST.F | 37 +- sorc/ncep_post.fd/MISCLN.f | 100 +- sorc/ncep_post.fd/PROCESS.f | 10 +- sorc/ncep_post.fd/SET_LVLSXML.f | 69 +- sorc/ncep_post.fd/SURFCE.f | 20 +- sorc/ncep_post.fd/VRBLS2D_mod.f | 2 + sorc/ncep_post.fd/VRBLS3D_mod.f | 1 - sorc/ncep_post.fd/WRFPOST.f | 9 +- sorc/ncep_post.fd/grib2_module.f | 29 +- tests/compile_upp.sh | 16 +- 26 files changed, 2382 insertions(+), 93 deletions(-) create mode 160000 sorc/libIFI.fd create mode 100644 sorc/ncep_post.fd/EXCH_c_float.f create mode 100644 sorc/ncep_post.fd/IFI.F diff --git a/.gitmodules b/.gitmodules index 742a824df..42ffe2a3d 100644 --- a/.gitmodules +++ b/.gitmodules @@ -2,3 +2,7 @@ path = sorc/ncep_post.fd/post_gtg.fd url = https://github.com/NCAR/UPP_GTG update = none +[submodule "sorc/libIFI.fd"] + path = sorc/libIFI.fd + url = https://github.com/NCAR/UPP_IFI + update = none diff --git a/CMakeLists.txt b/CMakeLists.txt index 483d8defd..5874d98ac 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -7,7 +7,7 @@ file(STRINGS "VERSION" pVersion LIMIT_COUNT 1) project( upp VERSION ${pVersion} - LANGUAGES Fortran) + LANGUAGES Fortran C CXX) list(APPEND CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/cmake") @@ -15,6 +15,8 @@ list(APPEND CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/cmake") option(OPENMP "use OpenMP threading" ON) option(BUILD_POSTEXEC "Build NCEPpost executable" ON) option(BUILD_WITH_WRFIO "Build NCEPpost with WRF-IO library" OFF) +option(BUILD_WITH_IFI "Build NCEPpost with In-Flight Icing (IFI) library if present" OFF) +option(REQUIRE_IFI "Abort if libIFI is not found ; enables BUILD_WITH_IFI=ON" OFF) option(BUILD_WITH_GTG "Build NCEPpost with NCAR/GTG" OFF) option(ENABLE_DOCS "Enable generation of doxygen-based documentation." OFF) @@ -52,6 +54,35 @@ if(BUILD_WITH_GTG) find_package(ip REQUIRED) endif() +if(INTERNAL_IFI) + if(BUILD_WITH_IFI) + message(SEND_ERROR "Cannot use INTERNAL_IFI with either BUILD_WITH_IFI or REQUIRE_IFI.") + endif() + if(IFI_DIR) + message(SEND_ERROR "When INTERNAL_IFI is specified, do not set IFI_DIR.") + endif() + set(REQUIRE_IFI ON) + set(BUILD_WITH_IFI ON) + set(IFI_FOUND ON) + set(IFI_DIR ${CMAKE_INSTALL_DIR}) + message(NOTICE "Building IFI inside the post.") +else() + if(REQUIRE_IFI) + set(BUILD_WITH_IFI ON) + endif() + + if(BUILD_WITH_IFI) + if(REQUIRE_IFI) + find_package(IFI REQUIRED) + else() + find_package(IFI) + endif() + endif() + if(IFI_FOUND) + message(NOTICE "Linking to IFI external to the post.") + endif() +endif() + if(BUILD_POSTEXEC) find_package(nemsio REQUIRED) find_package(sfcio REQUIRED) @@ -61,6 +92,22 @@ if(BUILD_POSTEXEC) if(BUILD_WITH_WRFIO) find_package(wrf_io REQUIRED) endif() + if(IFI_FOUND) + if(CMAKE_Fortran_COMPILER_ID MATCHES "^Intel$") + set(CMAKE_EXE_LINKER_FLAGS "${CMAKE_EXE_LINKER_FLAGS} -cxxlib") + elseif(CMAKE_Fortran_COMPILER_ID MATCHES "^GNU$") + set(CMAKE_EXE_LINKER_FLAGS "${CMAKE_EXE_LINKER_FLAGS} -lstdc++") + elseif(CMAKE_Fortran_COMPILER_ID MATCHES "^(GNU|AppleClang)$") + # This one is a wild guess. I haven't tried linking a Fortran + # executable with C++ libraries in clang. + set(CMAKE_EXE_LINKER_FLAGS "${CMAKE_EXE_LINKER_FLAGS} -stdlib=libc++ -lc++abi") + endif() + endif() +endif() + +if(IFI_FOUND OR INTERNAL_IFI) + message(NOTICE "Enabling USE_IFI in the post.") + add_definitions(-DUSE_IFI=1) endif() add_subdirectory(sorc) diff --git a/modulefiles/hera.lua b/modulefiles/hera.lua index e3ede5b9a..85bdd8fb5 100644 --- a/modulefiles/hera.lua +++ b/modulefiles/hera.lua @@ -55,4 +55,7 @@ setenv("CC","mpiicc") setenv("CXX","mpiicpc") setenv("FC","mpiifort") +prepend_path("MODULEPATH", "/scratch2/BMC/ifi/modulefiles") +try_load("ifi/20230118-intel-2022.1.2") + whatis("Description: post build environment") diff --git a/modulefiles/jet b/modulefiles/jet index e789ff698..6562100ca 100644 --- a/modulefiles/jet +++ b/modulefiles/jet @@ -32,3 +32,6 @@ module load sigio/2.3.2 module load sp/2.3.3 module load w3emc/2.9.2 module load wrf_io/1.1.1 + +module use /lfs4/BMC/ifi/modulefiles +module try-load ifi/20230118-intel-18.0.5.274 diff --git a/modulefiles/wcoss2_a.lua b/modulefiles/wcoss2_a.lua index ead1b9562..91343ac99 100644 --- a/modulefiles/wcoss2_a.lua +++ b/modulefiles/wcoss2_a.lua @@ -66,4 +66,8 @@ setenv("CC","cc") setenv("CXX","CC") setenv("FC","ftn") + +prepend_path("MODULEPATH", "/lfs/h1/oar/esrl/noscrub/samuel.trahan/ifi/modulefiles") +try_load("ifi/20221006-intel-" .. intel_ver) + whatis("Description: post build environment") diff --git a/parm/fv3lam_post_avblflds.xml b/parm/fv3lam_post_avblflds.xml index 4f9b7b4ab..ff331dbc0 100644 --- a/parm/fv3lam_post_avblflds.xml +++ b/parm/fv3lam_post_avblflds.xml @@ -5678,6 +5678,52 @@ 4.0 + + 1007 + ICE_PROB_IFI_FLIGHT_LEVEL + ICPRB + NCEP + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + 1008 + SLD_IFI_FLIGHT_LEVEL + SIPD + NCEP + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + 1009 + ICE_SEV_CAT_IFI_FLIGHT_LEVEL + ICSEV + NCEP + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + 1010 + WMO_ICE_SEV_CAT_IFI_FLIGHT_LEVEL + ICESEV + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index 789caf734..d5b68a93c 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -3631,4 +3631,57 @@ + + + IFIFIP + 4 + ncep_emc + v2003 + local_tab_yes1 + fcst + oper + fcst + fcst + hour + nws_ncep + hrrr + complex_packing_spatial_diff + 2nd_ord_sptdiff + fltng_pnt + lossless + + + + + ICE_PROB_IFI_FLIGHT_LEVEL + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + SLD_IFI_FLIGHT_LEVEL + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + ICE_SEV_CAT_IFI_FLIGHT_LEVEL + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + WMO_ICE_SEV_CAT_IFI_FLIGHT_LEVEL + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index a3a3d0dcd..a094830f1 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -8200,5 +8200,52 @@ 6.0 + + 1007 + ICE_PROB_IFI_FLIGHT_LEVEL + ICPRB + NCEP + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + 1008 + SLD_IFI_FLIGHT_LEVEL + SIPD + NCEP + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + 1009 + ICE_SEV_CAT_IFI_FLIGHT_LEVEL + ICSEV + NCEP + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + + + 1010 + WMO_ICE_SEV_CAT_IFI_FLIGHT_LEVEL + ICESEV + spec_alt_above_mean_sea_lvl + 4.0 + + 1 + 5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. + + diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index a55dcf752..37bbec810 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,4 +1,5 @@ -2 +3 +4 242 290 PRSLEV @@ -19717,3 +19718,167 @@ surface ? ? ? +IFIFIP +4 +ncep_emc +v2003 +local_tab_yes1 +fcst +oper +fcst +fcst +hour +nws_ncep +hrrr +complex_packing_spatial_diff +2nd_ord_sptdiff +fltng_pnt +lossless +1007 +ICE_PROB_IFI_FLIGHT_LEVEL +? +1 +tmpl4_0 +ICPRB +NCEP +? +spec_alt_above_mean_sea_lvl +1 +1 +60 +5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1008 +SLD_IFI_FLIGHT_LEVEL +? +1 +tmpl4_0 +SIPD +NCEP +? +spec_alt_above_mean_sea_lvl +1 +1 +60 +5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1009 +ICE_SEV_CAT_IFI_FLIGHT_LEVEL +? +1 +tmpl4_0 +ICSEV +NCEP +? +spec_alt_above_mean_sea_lvl +1 +1 +60 +5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? +1010 +WMO_ICE_SEV_CAT_IFI_FLIGHT_LEVEL +? +1 +tmpl4_0 +ICESEV +? +? +spec_alt_above_mean_sea_lvl +1 +1 +60 +5000. 10000. 15000. 20000. 25000. 30000. 35000. 40000. 45000. 50000. 55000. 60000. 65000. 70000. 75000. 80000. 85000. 90000. 95000. 100000. 105000. 110000. 115000. 120000. 125000. 130000. 135000. 140000. 145000. 150000. 155000. 160000. 165000. 170000. 175000. 180000. 185000. 190000. 195000. 200000. 205000. 210000. 215000. 220000. 225000. 230000. 235000. 240000. 245000. 250000. 255000. 260000. 265000. 270000. 275000. 280000. 285000. 290000. 295000. 300000. +? +0 +? +0 +? +? +? +0 +0.0 +0 +0.0 +? +0 +0.0 +0 +0.0 +1 +4.0 +0 +0 +0 +? +? +? diff --git a/sorc/CMakeLists.txt b/sorc/CMakeLists.txt index b454c0fb2..c2ed647c4 100644 --- a/sorc/CMakeLists.txt +++ b/sorc/CMakeLists.txt @@ -1 +1,5 @@ +if(INTERNAL_IFI) + add_subdirectory(libIFI.fd) +endif() + add_subdirectory(ncep_post.fd) diff --git a/sorc/libIFI.fd b/sorc/libIFI.fd new file mode 160000 index 000000000..2074e8394 --- /dev/null +++ b/sorc/libIFI.fd @@ -0,0 +1 @@ +Subproject commit 2074e83946005f52aa295a85570a040064ec689a diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f index 84c35bd5b..4e5368dcc 100644 --- a/sorc/ncep_post.fd/ALLOCATE_ALL.f +++ b/sorc/ncep_post.fd/ALLOCATE_ALL.f @@ -21,6 +21,7 @@ !! - 22-03-22 Wen Meng - Initializing pwat. !! - 22-09-22 Li(Kate) Zhang - Initializing NASA GOCART tracers of Nitrate, NH4,and their column burden. !! - 22-11-08 Kai Wang - Replace acfcmaq_on with aqf_on +!! - 23-01-24 Sam Trahan - CAPE, CIN, and IFI_APCP varibles for input to IFI !! !! OUTPUT FILES: !! - STDOUT - RUN TIME STANDARD OUT. @@ -32,6 +33,7 @@ !! SUBROUTINE ALLOCATE_ALL() ! + use upp_ifi_mod, only: set_ifi_dims use vrbls4d use vrbls3d use vrbls2d @@ -78,6 +80,8 @@ SUBROUTINE ALLOCATE_ALL() allocate(tcucn(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) allocate(EL_PBL(ista_2l:iend_2u,jsta_2l:jend_2u,lm)) + call set_ifi_dims() ! set ifi_nflight and ifi_flight_levels + !Initialization !$omp parallel do private(i,j,l) do l=1,lm @@ -117,7 +121,7 @@ SUBROUTINE ALLOCATE_ALL() exch_h(i,j,l)=spval train(i,j,l)=spval tcucn(i,j,l)=spval - EL_PBL(i,j,l)=spval + EL_PBL(i,j,l)=spval enddo enddo enddo @@ -337,6 +341,9 @@ SUBROUTINE ALLOCATE_ALL() ! ! FROM VRBLS2D ! + allocate(CAPE(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(CIN(ista_2l:iend_2u,jsta_2l:jend_2u)) + allocate(IFI_APCP(ista_2l:iend_2u,jsta_2l:jend_2u)) ! SRD allocate(wspd10max(ista_2l:iend_2u,jsta_2l:jend_2u)) allocate(w_up_max(ista_2l:iend_2u,jsta_2l:jend_2u)) @@ -357,6 +364,9 @@ SUBROUTINE ALLOCATE_ALL() !$omp parallel do private(i,j) do j=jsta_2l,jend_2u do i=ista_2l,iend_2u + CAPE(i,j)=spval + CIN(i,j)=spval + IFI_APCP(i,j)=spval wspd10max(i,j)=spval w_up_max(i,j)=spval w_dn_max(i,j)=spval diff --git a/sorc/ncep_post.fd/CMakeLists.txt b/sorc/ncep_post.fd/CMakeLists.txt index 3bd218cf3..1506fa341 100644 --- a/sorc/ncep_post.fd/CMakeLists.txt +++ b/sorc/ncep_post.fd/CMakeLists.txt @@ -46,6 +46,7 @@ list(APPEND LIB_SRC ETCALC.f ETAMP_Q2F.f EXCH.f + EXCH_c_float.f FDLVL.f FGAMMA.f FILL_PSETFLD.f @@ -62,6 +63,7 @@ list(APPEND LIB_SRC grib2_module.f GRIDSPEC.f ICAOHEIGHT.f + IFI.F kinds_mod.F LFMFLD.f LFMFLD_GFS.f @@ -169,7 +171,7 @@ if(CMAKE_Fortran_COMPILER_ID MATCHES "^(Intel)$") set(CMAKE_Fortran_FLAGS "-g -traceback -fp-model source -free -convert big_endian") set(CMAKE_Fortran_FLAGS_RELEASE "-O3") - set(CMAKE_Fortran_FLAGS_DEBUG "-O0") + set(CMAKE_Fortran_FLAGS_DEBUG "-O0 -check bounds -check pointers -check shape -check stack -check uninit") elseif(CMAKE_Fortran_COMPILER_ID MATCHES "^(GNU|Clang|AppleClang)$") set(CMAKE_Fortran_FLAGS "-g -fbacktrace -ffree-form -ffree-line-length-none -fconvert=big-endian") @@ -203,6 +205,17 @@ target_link_libraries(${LIBNAME} PUBLIC MPI::MPI_Fortran NetCDF::NetCDF_Fortran) +if(IFI_FOUND) + if(INTERNAL_IFI) + target_link_libraries(${LIBNAME} PRIVATE IFI) + target_link_libraries(${LIBNAME} PRIVATE tdrp) + target_include_directories(${LIBNAME} PUBLIC $/include $) + else() + target_link_libraries(${LIBNAME} PUBLIC IFI) + target_link_libraries(${LIBNAME} PUBLIC tdrp) + endif() +endif() + if(BUILD_WITH_GTG) target_link_libraries(${LIBNAME} PUBLIC ip::ip_4) @@ -221,6 +234,11 @@ if(BUILD_POSTEXEC) sp::sp_4 sfcio::sfcio sigio::sigio) + set_target_properties(${EXENAME} PROPERTIES LINKER_LANGUAGE Fortran) + if(IFI_FOUND) + target_link_libraries(${EXENAME} PRIVATE IFI) + target_link_libraries(${EXENAME} PRIVATE tdrp) + endif() if(wrf_io_FOUND) target_link_libraries(${EXENAME} PRIVATE wrf_io::wrf_io) diff --git a/sorc/ncep_post.fd/CTLBLK.f b/sorc/ncep_post.fd/CTLBLK.f index 7e1ae9baf..4b5983ad9 100644 --- a/sorc/ncep_post.fd/CTLBLK.f +++ b/sorc/ncep_post.fd/CTLBLK.f @@ -12,6 +12,7 @@ module CTLBLK_mod ! 2021-09-30 JESSE MENG- 2D DECOMPOSITION ! 2022-09-22 Li(Kate) Zhang- Add option for NASA GOCART as "nasa_on", add NBIN for NO3 and NH4 ! 2022-11-08 Kai Wang - Replace aqfcmaq_on with aqf_on +! 2023-01-24 Sam Trahan - IFI flight levels, runtime of IFI, and record of the bucket time !----------------------------------------------------------------------- ! implicit none @@ -85,7 +86,8 @@ module CTLBLK_mod real(kind=8) :: ETAFLD2_tim=0.,ETA2P_tim=0.,SURFCE2_tim=0., & CLDRAD_tim=0.,MISCLN_tim=0.,FIXED_tim=0., & MDL2SIGMA_tim=0.,READxml_tim=0.,MDL2AGL_tim=0., & - MDL2STD_tim=0.,MDL2THANDPV_tim=0.,CALRAD_WCLOUD_tim=0.!comm tim_info + MDL2STD_tim=0.,MDL2THANDPV_tim=0., & + CALRAD_WCLOUD_tim=0.,RUN_IFI_TIM=0. !comm tim_info ! real(kind=8) :: time_output=0., time_e2out=0. !comm jjt ! @@ -118,5 +120,12 @@ module CTLBLK_mod DATA SIGBND / 0.985,0.955,0.925,0.895,0.865,0.835 / DATA PETABND / 15.,45.,75.,105.,135.,165./ ! +! Precipitation bucket time + real :: ITPREC=-1 +! +! Flight levels in feet, provided by libIFI + integer :: ifi_nflight = 0 + real, allocatable :: ifi_flight_levels(:) ! units are FEET +! !----------------------------------------------------------------------- end module CTLBLK_mod diff --git a/sorc/ncep_post.fd/EXCH_c_float.f b/sorc/ncep_post.fd/EXCH_c_float.f new file mode 100644 index 000000000..8404f80f9 --- /dev/null +++ b/sorc/ncep_post.fd/EXCH_c_float.f @@ -0,0 +1,409 @@ +!> @file +!> @brief Subroutines that exchange one halo row. +!> +!> These routines are to exchange one halo row. +!> +!> @param[in] A Array to have halos exchanged. +!> @param[out] A Array with halos exchanged. +!> +!> ### Program history log: +!> Date | Programmer | Comments +!> -----------|---------------------|---------- +!> 2000-01-06 | Jim Tuccillo | Initial +!> 2021-06-01 | George Vandenberghe | 2D decomposition +!> +!> @note The 1st line is an inlined compiler directive that turns off -qcheck +!> during compilation, even if it's specified as a compiler option in the +!> makefile (Tuccillo, personal communication; Ferrier, Feb '02). +!> +!> @author Jim Tuccillo IBM @date 2000-01-06 + SUBROUTINE EXCH_c_float(A) + + use ctlblk_mod, only: num_procs, jend, iup, jsta, idn, mpi_comm_comp, im,& + icoords,ibcoords,bufs,ibufs,me,numx, & + jsta_2l, jend_2u,ileft,iright,ista_2l,iend_2u,ista,iend,jm,modelname +!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + use iso_c_binding, only: c_sizeof, c_float + use mpi + implicit none +! + real(kind=c_float),intent(inout) :: a ( ista_2l:iend_2u,jsta_2l:jend_2u ) + real(kind=c_float), allocatable :: coll(:), colr(:) + integer, allocatable :: icoll(:), icolr(:) + integer status(MPI_STATUS_SIZE) + integer ierr, jstam1, jendp1,j + integer size,ubound,lbound + integer msglenl, msglenr + integer i,ii,jj, ibl,ibu,jbl,jbu,icc,jcc + integer iwest,ieast + integer ifirst + integer mpi_kind + + logical, parameter :: checkcoords = .false. + + data ifirst/0/ + allocate(coll(jm)) + allocate(colr(jm)) + allocate(icolr(jm)) + allocate(icoll(jm)) + ibl=max(ista-1,1) + ibu=min(im,iend+1) + jbu=min(jm,jend+1) + jbl=max(jsta-1,1) +! + +! write(0,*) 'mype=',me,'num_procs=',num_procs,'im=',im,'jsta_2l=', & +! jsta_2l,'jend_2u=',jend_2u,'jend=',jend,'iup=',iup,'jsta=', & +! jsta,'idn=',idn + if ( num_procs <= 1 ) return +! +! for global model apply cyclic boundary condition + + IF(MODELNAME == 'GFS') then + if(ifirst .le. 0 .and. me .eq. 0) print *,' CYCLIC BC APPLIED' + if(ileft .eq. MPI_PROC_NULL) iwest=1 ! get eastern bc from western boundary of full domain + if(iright .eq. MPI_PROC_NULL) ieast=1 ! get western bc from eastern boundary of full domain + if(ileft .eq. MPI_PROC_NULL) ileft=me+(numx-1) + if(iright .eq. MPI_PROC_NULL) iright=(me-numx) +1 + endif + + jstam1 = max(jsta_2l,jsta-1) ! Moorthi + +! send last row to iup's first row+ and receive first row- from idn's last row + + call mpi_sendrecv(a(ista,jend),iend-ista+1,MPI_REAL4,iup,1, & + & a(ista,jstam1),iend-ista+1,MPI_REAL4,idn,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with first sendrecv in exch, ierr = ',ierr + stop 6661 + endif + + if (checkcoords) then + if(ifirst .le. 0) then !IFIRST ONLY + call mpi_sendrecv(ibcoords(ista,jend),iend-ista+1,MPI_INTEGER,iup,1, & + & ibcoords(ista,jstam1),iend-ista+1,MPI_INTEGER,idn,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with second sendrecv in exch, ierr = ',ierr + stop 7661 + endif + do i=ista,iend + ii=ibcoords(i,jstam1)/10000 + jj=ibcoords(i,jstam1)-(ii*10000) + if(ii .ne. i .or. jj .ne. jstam1 ) print *,' GWVX JEXCH CHECK FAIL ',ii,jj,ibcoords(i,jstam1),i + end do + endif !IFIRST + endif !checkcoords + +! build the I columns to send and receive + + msglenl=jend-jsta+1 + msglenr=jend-jsta+1 + if(iright .lt. 0) msglenr=1 + if(ileft .lt. 0) msglenl=1 + + do j=jsta,jend + coll(j)=a(ista,j) + end do + + call mpi_barrier(mpi_comm_comp,ierr) + +! send first col to ileft last col+ and receive last col+ from ileft first col + + call mpi_sendrecv(coll(jsta),msglenl ,MPI_REAL4,ileft,1, & + & colr(jsta),msglenr ,MPI_REAL4,iright,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with third sendrecv in exch, ierr = ',ierr + stop 6662 + endif + + if(ifirst .le. 0) then ! IFIRST ONLY + call mpi_sendrecv(icoll(jsta),msglenl ,MPI_INTEGER,ileft,1, & + & icolr(jsta),msglenr ,MPI_INTEGER,iright,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with fourth sendrecv in exch, ierr = ',ierr + stop 7662 + endif + endif !IFIRST + + if(iright .ge. 0) then + do j=jsta,jend + a(iend+1,j)=colr(j) + if(checkcoords) then + if(ifirst .le. 0) then !IFIRST ONLY + ibcoords(iend+1,j)=icolr(j) + ii=ibcoords(iend+1,j)/10000 + jj=ibcoords( iend+1,j)-(ii*10000) + if( j .ne. jj .or. ii .ne. iend+1 .and. ii .ne. im .and. ii .ne. 1) & + write(0,921) j,iend+1,ii,jj,ibcoords(iend+1,j),'IEXCH COORD FAIL j,iend+1,ii,jj,ibcoord ' + endif !IFIRST + endif !checkcoords + end do + endif ! for iright + + 921 format(5i10,a50) + +! print *,'mype=',me,'in EXCH, after first mpi_sendrecv' + + if ( ierr /= 0 ) then + print *, ' problem with fifth sendrecv in exch, ierr = ',ierr + stop 6663 + end if + jendp1 = min(jend+1,jend_2u) ! Moorthi + +!GWV. change from full im row exchange to iend-ista+1 subrow exchange, + + do j=jsta,jend + colr(j)=a(iend,j) + end do + +! send first row to idown's last row+ and receive last row+ from iup's first row + + call mpi_sendrecv(a(ista,jsta),iend-ista+1,MPI_REAL4,idn,1, & + & a(ista,jendp1),iend-ista+1,MPI_REAL4,iup,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with sixth sendrecv in exch, ierr = ',ierr + stop 6664 + endif + + if (checkcoords) then + if (ifirst .le. 0) then + call mpi_sendrecv(ibcoords(ista,jsta),iend-ista+1,MPI_INTEGER,idn,1, & + & ibcoords(ista,jendp1),iend-ista+1,MPI_INTEGER,iup,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with seventh sendrecv in exch, ierr = ',ierr + stop 7664 + endif + endif ! IFIRST + endif ! checkcoords + +! send last col to iright first col- and receive first col- from ileft last col + + call mpi_sendrecv(colr(jsta),msglenr ,MPI_REAL4,iright,1 , & + & coll(jsta),msglenl ,MPI_REAL4,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with eighth sendrecv in exch, ierr = ',ierr + stop 6665 + endif + + if (ifirst .le. 0) then + call mpi_sendrecv(icolr(jsta),msglenr ,MPI_integer,iright,1 , & + & icoll(jsta),msglenl ,MPI_integer,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with ninth sendrecv in exch, ierr = ',ierr + stop 7665 + endif + endif !IFIRST + + if(ileft .ge. 0) then + do j=jsta,jend + a(ista-1,j)=coll(j) + if(checkcoords) then + if(ifirst .le. 0) then + ibcoords(ista-1,j)=icoll(j) + ii=ibcoords(ista-1,j)/10000 + jj=ibcoords( ista-1,j)-(ii*10000) + if( j .ne. jj .or. ii .ne. ista-1 .and. ii .ne. im .and. ii .ne. 1) & + write(0,921) j,ista-1,ii,jj,ibcoords(ista-1,j),'EXCH COORD FAIL j,ista-1,ii,jj,ibcoord ' + endif !IFIRST + endif !checkcoords + end do + endif + +! interior check + + if(checkcoords) then + if(ifirst .le. 0) then + do j=jsta,jend + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'INFAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + end do + endif !IFIRST + endif !checkcoords + +!! corner points. After the exchanges above, corner points are replicated in +! neighbour halos so we can get them from the neighbors rather than +! calculating more corner neighbor numbers +! A(ista-1,jsta-1) is in the ileft a(iend,jsta-1) location +! A(ista-1,jend+1) is in the ileft a(iend,jend+1) location +! A(iend+1,jsta-1) is in the iright a(ista,jsta-1) location +! A(iend+1,jend+1) is in the iright a(ista,jend+1) location +!GWVx ibl=max(ista-1,1) +!GWVx ibu=min(im,iend+1) + + ibl=max(ista-1,1) + ibu=min(im,iend+1) + if(modelname == 'GFS') then + ibl=max(ista-1,0) + ibu=min(im+1,iend+1) + endif + + jbu=min(jm,jend+1) + jbl=max(jsta-1,1) + + call mpi_sendrecv(a(iend,jbl ),1, MPI_REAL4,iright,1 , & + & a(ibl ,jbl ),1, MPI_REAL4,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + if ( ierr /= 0 ) then + print *, ' problem with tenth sendrecv in exch, ierr = ',ierr + stop 6771 + endif + + call mpi_sendrecv(a(iend,jbu ),1, MPI_REAL4,iright,1 , & + & a(ibl ,jbu ),1, MPI_REAL4,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with eleventh sendrecv in exch, ierr = ',ierr + stop 6772 + endif + + call mpi_sendrecv(a(ista,jbl ),1, MPI_REAL4,ileft ,1, & + & a(ibu ,jbl ),1, MPI_REAL4,iright,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with twelft sendrecv in exch, ierr = ',ierr + stop 6773 + endif + + call mpi_sendrecv(a(ista,jbu ),1, MPI_REAL4,ileft ,1 , & + & a(ibu ,jbu ),1, MPI_REAL4,iright,1, & + & MPI_COMM_COMP,status,ierr) + + if ( ierr /= 0 ) then + print *, ' problem with thirteenth sendrecv in exch, ierr = ',ierr + stop 6774 + endif + + 139 format(a20,5(i10,i6,i6,'<>')) + + if(checkcoords) then + if(ifirst .le. 0) then + call mpi_sendrecv(ibcoords(iend,jbl ),1 ,MPI_INTEGER,iright,1 , & + & ibcoords(ibl ,jbl ),1 ,MPI_INTEGER,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + + call mpi_sendrecv(ibcoords(iend,jbu ),1 ,MPI_INTEGER,iright,1, & + & ibcoords(ibl ,jbu ),1 ,MPI_INTEGER,ileft ,1, & + & MPI_COMM_COMP,status,ierr) + call mpi_sendrecv(ibcoords(ista,jbl ),1 ,MPI_INTEGER,ileft ,1, & + & ibcoords(ibu ,jbl ),1 ,MPI_INTEGER,iright,1, & + & MPI_COMM_COMP,status,ierr) + call mpi_sendrecv(ibcoords(ista,jbu ),1 ,MPI_INTEGER,ileft ,1 , & + & ibcoords(ibu ,jbu ),1 ,MPI_INTEGER,iright,1, & + MPI_COMM_COMP,status,ierr) + +! corner check for coordnates + + icc=ibl + jcc=jbl + ii=ibcoords(icc,jcc)/10000 + jj=ibcoords(icc,jcc)-(ii*10000) + + if(ii .ne. icc .and. icc .ne. 0) write(0,151) ' CORNER FAILI ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc) write(0,151) ' CORNER FAILJ ilb ll ',icc,jcc,ibcoords(icc,jcc),ii,jj + + icc=ibu + jcc=jbl + ii=ibcoords(icc,jcc)/10000 + jj=ibcoords(icc,jcc)-(ii*10000) + if(ii .ne. icc .and. icc .ne. im+1 ) write(0,151) ' CORNER FAILI ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + + icc=ibu + jcc=jbu + ii=ibcoords(icc,jcc)/10000 + jj=ibcoords(icc,jcc)-(ii*10000) + if(ii .ne. icc .and. icc .ne. im+1) write(0,151) ' CORNER FAILI ilb uu ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + + icc=ibl + jcc=jbu + ii=ibcoords(icc,jcc)/10000. + jj=ibcoords(icc,jcc)-(ii*10000) + if(ii .ne. icc .and. icc .ne. 0 ) write(0,151) ' CORNER FAILI ilb lu ',icc,jcc,ibcoords(icc,jcc),ii,jj + if( jj .ne. jcc ) write(0,151) ' CORNER FAILJ ilb ul ',icc,jcc,ibcoords(icc,jcc),ii,jj + +! if(ileft .ge. 0) then +!119 format(' GWX LEFT EXCHANGE ileft,me,ibcoords(ista-1,jend+1),ibcoords(ista-1,jend-1),ista-1,jend-1,jend+1', & +! 10i10) +! endif + +! if(iright .ge. 0) then +!! write(0,129) iright,me,ibcoords(ista+1,jend+1),ibcoords(ista+1,jend-1),ista-1,jend-1,jend+1 !GWVX +!129 format(' GWX RIGHT EXCHANGE iright,me,ibcoords(ista+1,jend+1),ibcoords(ista-1,jend+1),ista-1,jend-1,jend+1', & +! 10i10) +! endif + +! interior check + + do j=jsta,jend + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILED IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + end do + + 151 format(a70,10i10) + +! bounds check +! first check top and bottom halo rows + + j=jbu + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBU IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + + j=jbl + do i=ista,iend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .or. jj .ne. j) write(0,151) 'GWVX FAILEDI JBL IJ ',i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + +! second and last, check left and right halo columns + + i=ibl + do j=jsta,jend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .and. ii .ne. im .or. jj .ne. j) write(0,151) 'GWVX FAILED IBL IJ ',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + + i=ibu + do j=jsta,jend + ii=ibcoords(i,j)/10000 + jj=ibcoords( i,j)-(ii*10000) + if(ii .ne. i .and. ii .ne. 1 .or. jj .ne. j) write(0,151) 'GWVX FAILED IBU ii i j ibcoords ibl,jbl,ibu,jbu',ii,i,j,ibcoords(i,j),ibl,jbl,ibu,jbu + end do + + if(me .eq. 0) write(0,*) ' IFIRST CHECK' + + endif ! IFIRST + endif !checkcoords + +! end halo checks + if ( ierr /= 0 ) then + print *, ' problem with second sendrecv in exch, ierr = ',ierr + stop + end if + call mpi_barrier(mpi_comm_comp,ierr) + ifirst=ifirst+1 + end diff --git a/sorc/ncep_post.fd/IFI.F b/sorc/ncep_post.fd/IFI.F new file mode 100644 index 000000000..6df7215d1 --- /dev/null +++ b/sorc/ncep_post.fd/IFI.F @@ -0,0 +1,1349 @@ +#ifndef USE_IFI + +! IFI stubs + +module upp_ifi_mod + use iso_c_binding, only: c_float + implicit none + + private + public run_ifi, set_ifi_dims, ifi_real_t, write_ifi_debug_files + + integer, parameter :: ifi_real_t = c_float + logical :: write_ifi_debug_files = .false. + +contains !============================================================== + + subroutine set_ifi_dims() + use CTLBLK_mod, only: ifi_nflight, ifi_flight_levels + implicit none + integer :: i + + ! Bogus fill value for flight levels to prevent a crash + ifi_nflight = 60 + allocate(ifi_flight_levels(ifi_nflight)) + do i=1,ifi_nflight + ifi_flight_levels(i) = 500*i + enddo + end subroutine set_ifi_dims + + ! -------------------------------------------------------------------- + + subroutine run_ifi() + ! Fill any requested IFI fields with missing data. + call send_missing_data(1007) ! ICE_PROB = missing + call send_missing_data(1008) ! SLD = missing + call send_missing_data(1009) ! ICE_SEV_CAT = missing + call send_missing_data(1010) ! ICE_SEV_CAT = missing + end subroutine run_ifi + + ! -------------------------------------------------------------------- + + subroutine send_missing_data(ient) + use CTLBLK_mod, only: ifi_nflight, ifi_flight_levels + use ctlblk_mod, only: spval, ista, iend, jsta, jend, lm, im, cfld, datapd, fld_info, ifi_flight_levels, jsta_2l, jend_2u + use rqstfld_mod, only: iget, iavblfld, lvlsxml, lvls + implicit none + + integer, intent(in) :: ient + + ! Locals + integer :: i,j,k + + logical, save :: wrote_message = .false. ! guarded by an OMP CRITICAL below + + if(size(IGET)0) then + if(.not.wrote_message) then + !$OMP CRITICAL + if(.not.wrote_message) then + write(0,'(A)') 'This post cannot produce IFI icing products because it was not compiled with libIFI.' + wrote_message = .true. + endif + !$OMP END CRITICAL + endif + + cfld = cfld+1 + fld_info(cfld)%ifld = IAVBLFLD(IGET(ient)) + fld_info(cfld)%lvl = k + + !$OMP PARALLEL DO PRIVATE(i,j) COLLAPSE(2) + do j=jsta,jend + do i=ista,iend + datapd(i-ista+1,j-jsta+1,cfld) = spval + enddo + enddo + endif + enddo + end subroutine send_missing_data +end module upp_ifi_mod + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +#else + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Actual IFI code. +module upp_ifi_mod + use ifi_type_mod + use ifi_mod + use iso_c_binding, only: c_bool, c_int64_t, c_ptr, c_double + + implicit none + + private + public run_ifi, set_ifi_dims, ifi_real_t + + real, parameter :: feet2meters = 0.3048 + + type(IFIConfig) :: ifi_config + logical :: have_read_ifi_config = .false. + logical, public :: write_ifi_debug_files = .false. + + ! Communication-related variables for gathers and + ! scatters. Gathering is done in the i direction first, all to one + ! rank in each row. Then that rank in each row gathers to the + ! destination rank. Scatter follows the same process, in reverse. + + integer :: ifi_mpi_real_kind=-999 + integer :: row_comm = -999 ! communicator for i-direction messages + integer :: col_comm = -999 ! communicator for j-direction messages + integer :: row_comm_rank=-999, col_comm_rank=-999 ! Rank in the i & j comm communicators + integer :: row_comm_size=-999, col_comm_size=-999 ! Size of the i & j comm communicators + integer :: grid_rank ! rank within mpi_comm_comp + + integer, allocatable :: ista_grid(:) ! ista for each rank in mpi_comm_comp in i direction + integer, allocatable :: jsta_grid(:) ! jsta for each rank in mpi_comm_comp in j direction + + real, allocatable :: rearrange(:,:) ! for rearranging data on local processor + integer, allocatable :: row_comm_count(:) ! scatterv&gatherv receive counts for i-direction collectives + integer, allocatable :: row_comm_displ(:) ! scatterv&gatherv displacements for i-direction collectives + integer, allocatable :: row_ista(:) ! i starts for rearranging data (icomm_size) + integer, allocatable :: row_iend(:) ! i ends for rearranging data (icomm_size) + real, allocatable :: rearrange_row1d(:) ! for rearranging data for an entire row (roots of icomm communicators) + + real, allocatable :: rearrange_row2d(:,:) ! for rearranging data for an entire row (roots of icomm communicators) + integer, allocatable :: col_comm_count(:) ! scatterv&gatherv receive counts for j-direction collectives + integer, allocatable :: col_comm_displ(:) ! scatterv&gatherv displacements for j-direction collectives + integer, allocatable :: col_jsta(:) ! j starts for rearranging data (jcomm_size) + integer, allocatable :: col_jend(:) ! j ends for rearranging data (jcomm_size) + + integer, allocatable :: isize_grid(:) ! iend-ista+1 for each gridpoint + +contains !============================================================== + + subroutine make_communicators + use ctlblk_mod, only: jsta, jend, ista, iend, mpi_comm_comp, im, jm + use mpi + use iso_c_binding, only: c_sizeof + implicit none + + integer, allocatable :: key(:) ! ensure ranks are in a consistent order + integer :: size, ierr, local_count, accum, irank, i + real(kind=ifi_real_t) :: testreal + + if(allocated(jsta_grid)) then + return ! Already made communicators + endif + + ! Use the right MPI type for the ifi real kind + if(c_sizeof(testreal)==4) then + ifi_mpi_real_kind=MPI_REAL4 + else + ifi_mpi_real_kind=MPI_REAL8 + endif + + ! Get the correct size of the communicator before we try to split it. + call MPI_Comm_size(mpi_comm_comp,size,ierr) + call MPI_Comm_rank(mpi_comm_comp,grid_rank,ierr) + +! 929 format('Rank ',I0,' ista=',I0,' jsta=',I0) +! print 929,grid_rank,ista,jsta + + ! Get the start locations on every rank. We need this for the key, + ! and for determining root ranks. + allocate(ista_grid(size)) + allocate(jsta_grid(size)) + ista_grid=-1 + jsta_grid=-1 + call MPI_Allgather(ista,1,MPI_INTEGER,ista_grid,1,MPI_INTEGER,mpi_comm_comp,ierr) + call MPI_Allgather(jsta,1,MPI_INTEGER,jsta_grid,1,MPI_INTEGER,mpi_comm_comp,ierr) + + ! Ensure ranks are arranged in a consistent order. + allocate(key(size)) + do i=1,size + if(ista_grid(i)==-1) then + write(0,*) 'invalid ista_grid ',ista_grid(i) + call mpi_abort(mpi_comm_world,1,ierr) + endif + if(jsta_grid(i)==-1) then + write(0,*) 'invalid jsta_grid ',jsta_grid(i) + call mpi_abort(mpi_comm_world,1,ierr) + endif + key(i) = ista_grid(i) + im*(jsta_grid(i)-1) + enddo + + ! Create a communicator for row gather/scatter (all ranks that share a jsta) + if(all(jsta_grid==jsta_grid(1))) then + row_comm = mpi_comm_comp + else + call mpi_comm_split(mpi_comm_comp,jsta_grid(grid_rank+1),key(grid_rank+1),row_comm,ierr) + endif + if(row_comm==MPI_COMM_NULL .or. row_comm==0) then + write(0,*) 'MPI_Comm_split gave MPI_COMM_NULL for row_comm' + call mpi_abort(mpi_comm_world,1,ierr) + endif + call mpi_comm_rank(row_comm,row_comm_rank,ierr) + call mpi_comm_size(row_comm,row_comm_size,ierr) + + ! Create a communicator for column gather/scatter (all ranks that share an ista) + if(all(ista_grid==ista_grid(1))) then + col_comm = mpi_comm_comp + else + call mpi_comm_split(mpi_comm_comp,ista_grid(grid_rank+1),key(grid_rank+1),col_comm,ierr) + endif + if(col_comm==MPI_COMM_NULL .or. col_comm==0) then + write(0,*) 'MPI_Comm_split gave MPI_COMM_NULL for col_comm' + call mpi_abort(mpi_comm_world,1,ierr) + endif + call mpi_comm_rank(col_comm,col_comm_rank,ierr) + call mpi_comm_size(col_comm,col_comm_size,ierr) + + ! Done with the key. + deallocate(key) + + ! Allocate the arrays used to rearrange data. + allocate(rearrange(ista:iend,jsta:jend)) + allocate(rearrange_row1d(im*(jend-jsta+1))) + allocate(rearrange_row2d(1:im,jsta:jend)) + + ! Calculate information for row MPI_Gatherv and MPI_Scatterv calls. + allocate(row_ista(row_comm_size)) + call MPI_Allgather(ista,1,MPI_INTEGER,row_ista,1,MPI_INTEGER,row_comm,ierr) + allocate(row_iend(row_comm_size)) + call MPI_Allgather(iend,1,MPI_INTEGER,row_iend,1,MPI_INTEGER,row_comm,ierr) + allocate(row_comm_count(row_comm_size)) + allocate(row_comm_displ(row_comm_size)) + call get_count_and_displ(row_comm,row_comm_size,(iend-ista+1)*(jend-jsta+1), & + row_comm_count,row_comm_displ) + + ! Calculate information for j-direction MPI_Gatherv and MPI_Scatterv calls. + allocate(col_jsta(col_comm_size)) + call MPI_Allgather(jsta,1,MPI_INTEGER,col_jsta,1,MPI_INTEGER,col_comm,ierr) + allocate(col_jend(col_comm_size)) + call MPI_Allgather(jend,1,MPI_INTEGER,col_jend,1,MPI_INTEGER,col_comm,ierr) + allocate(col_comm_count(col_comm_size)) + allocate(col_comm_displ(col_comm_size)) + call get_count_and_displ(col_comm,col_comm_size,im*(jend-jsta+1), & + col_comm_count,col_comm_displ) + + end subroutine make_communicators + + ! -------------------------------------------------------------------- + + subroutine get_count_and_displ(comm,comm_size,here,counts,displacements) + use mpi + implicit none + integer, intent(in) :: comm,comm_size,here + integer, intent(inout) :: counts(comm_size),displacements(comm_size) + integer :: accum, ierr, i + + ! Get counts from all ranks + call MPI_Allgather(here,1,MPI_INTEGER,counts,1,MPI_INTEGER,comm,ierr) + + ! Displacements are a cumulative sum starting at 0 for rank 0 + accum=0 + do i=1,comm_size + displacements(i) = accum + accum = accum+counts(i) + end do + end subroutine get_count_and_displ + + ! -------------------------------------------------------------------- + + subroutine find_comm_roots(global_rank,row_root,col_root) + ! Find the roots of the row and column communicators for a gather + ! or scatter with the specified rank as the location of the global + ! array. + use mpi + implicit none + + integer, intent(in) :: global_rank + integer, intent(inout) :: row_root,col_root + integer :: r, destination_ista, destination_jsta, ierr + + ! print *,'find roots for rank ',global_rank + + destination_ista=ista_grid(global_rank+1) + destination_jsta=jsta_grid(global_rank+1) + + row_root=-1 + do r=1,row_comm_size + if(row_ista(r)==destination_ista) then + row_root=r-1 + exit + endif + enddo + + col_root=-1 + do r=1,col_comm_size + if(col_jsta(r)==destination_jsta) then + col_root=r-1 + exit + endif + enddo + +! 201 format('root is row_root=',I0,' col_root=',I0,' for rank ',I0) +! print 201,row_root,col_root,global_rank + + if(col_root==-1) then + write(0,'(A,I0)') 'ABORT: Could not find column root rank for rank ',global_rank + call mpi_abort(mpi_comm_world,1,ierr) + endif + if(row_root==-1) then + write(0,'(A,I0)') 'ABORT: Could not find row root rank for rank ',global_rank + call mpi_abort(mpi_comm_world,1,ierr) + endif + end subroutine find_comm_roots + + ! -------------------------------------------------------------------- + + subroutine global_gather(local,global,global_rank,ista_local,iend_local,jsta_local,jend_local) + ! Gather from local arrays on all ranks to global array on specified rank + use mpi + use ctlblk_mod, only: jsta, jend, ista, iend, im, jm + use iso_c_binding, only: c_sizeof + implicit none + + real(kind=ifi_real_t), intent(in) :: local(ista_local:iend_local,jsta_local:jend_local) + real(kind=ifi_real_t), intent(out) :: global(im,jm) + integer, intent(in) :: global_rank,ista_local,iend_local,jsta_local,jend_local + + integer :: i,j,r,inindex,row_root,col_root, destination_ista, destination_jsta,ni_rank,nj_rank,idxstart, ierr + + if(col_comm==0 .or. col_comm==MPI_COMM_NULL) then + write(0,*) 'somehow, col_comm became invalid ',col_comm + call mpi_abort(mpi_comm_world,1,ierr) + endif + + if(row_comm==0 .or. row_comm==MPI_COMM_NULL) then + write(0,*) 'somehow, row_comm became invalid ',row_comm + call mpi_abort(mpi_comm_world,1,ierr) + endif + + ! Find out who is the root of the i and j direction communications. + call find_comm_roots(global_rank,row_root,col_root) + + ! Store the data in a contiguous local array + !$OMP PARALLEL DO COLLAPSE(2) PRIVATE(i,j) + do j=jsta,jend + do i=ista,iend + rearrange(i,j) = local(i,j) + enddo + enddo + + ! Gather across all ranks in row + call MPI_Gatherv(rearrange,(jend-jsta+1)*(iend-ista+1),ifi_mpi_real_kind, & + rearrange_row1d,row_comm_count,row_comm_displ,ifi_mpi_real_kind,row_root,row_comm,ierr) + + if(row_comm_rank==row_root) then + ! Rearrange from i-j-rank dimensions to i-j dimensions. + idxstart=1 + do r=1,row_comm_size + + ni_rank=row_iend(r)-row_ista(r)+1 + nj_rank=jend-jsta+1 + ! print *,'r,ista,iend=',r,row_ista(r),row_iend(r) + + !$OMP PARALLEL DO COLLAPSE(2) PRIVATE(inindex) + do j=0,nj_rank-1 + do i=0,ni_rank-1 + inindex = idxstart + i + ni_rank*j + rearrange_row2d(i+row_ista(r),j+jsta) = rearrange_row1d(inindex) + enddo + enddo + + idxstart = idxstart + ni_rank*nj_rank + enddo + + ! Gather along columns + ! print *,'global gatherv to rank ',grid_rank + call MPI_Gatherv(rearrange_row2d,im*(jend-jsta+1),ifi_mpi_real_kind, & + global,col_comm_count,col_comm_displ,ifi_mpi_real_kind,col_root,col_comm,ierr) + endif + + ! print *,'global_gather success' + end subroutine global_gather + + ! -------------------------------------------------------------------- + + subroutine global_scatter(local,global,global_rank,ista_local,iend_local,jsta_local,jend_local) + ! Scatter from global array at specified rank to local arrays on all ranks. + ! NOTE: Does NOT update halo regions! + use mpi + use ctlblk_mod, only: jsta, jend, ista, iend, im, jm + use iso_c_binding, only: c_sizeof + implicit none + + real(kind=ifi_real_t), intent(out) :: local(ista_local:iend_local,jsta_local:jend_local) + real(kind=ifi_real_t), intent(in) :: global(im,jm) + integer, intent(in) :: global_rank,ista_local,iend_local,jsta_local,jend_local + + integer :: i,j,r,outindex,idxstart,ni_rank,nj_rank,col_root,ierr,row_root + + if(col_comm==0 .or. col_comm==MPI_COMM_NULL) then + write(0,*) 'somehow, col_comm became invalid ',col_comm + call mpi_abort(mpi_comm_world,1,ierr) + endif + + if(row_comm==0 .or. row_comm==MPI_COMM_NULL) then + write(0,*) 'somehow, row_comm became invalid ',row_comm + call mpi_abort(mpi_comm_world,1,ierr) + endif + + ! Find out who is the root of the i and j direction communications. + call find_comm_roots(global_rank,row_root,col_root) + + if(row_comm_rank==row_root) then + ! Distribute in J direction. + ! print *,'global scatterv from rank ',grid_rank + call MPI_Scatterv(global, col_comm_count, col_comm_displ, ifi_mpi_real_kind, & + rearrange_row2d ,im*(jend-jsta+1), ifi_mpi_real_kind, col_root, col_comm, ierr) + ! Rearrange from i-j dimensions to i-j-rank dimensions + idxstart=1 + do r=1,row_comm_size + + ni_rank=row_iend(r)-row_ista(r)+1 + nj_rank=jend-jsta+1 + + !$OMP PARALLEL DO COLLAPSE(2) PRIVATE(outindex) + do j=0,nj_rank-1 + do i=0,ni_rank-1 + outindex = idxstart + i + ni_rank*j + rearrange_row1d(outindex) = rearrange_row2d(i+row_ista(r),j+jsta) + enddo + enddo + + idxstart = idxstart + ni_rank*nj_rank + enddo + endif + + ! Distribute across row + call MPI_Scatterv(rearrange_row1d,row_comm_count,row_comm_displ,ifi_mpi_real_kind, & + rearrange,(iend-ista+1)*(jend-jsta+1),ifi_mpi_real_kind,row_root,row_comm,ierr) + + ! Copy back to contiguous local array. + ! NOTE: Does NOT update the halo! + !$OMP PARALLEL DO COLLAPSE(2) PRIVATE(i,j) + do j=jsta,jend + do i=ista,iend + local(i,j) = rearrange(i,j) + enddo + enddo + + ! print *,'global_scatter success' + + end subroutine global_scatter + + ! -------------------------------------------------------------------- + + subroutine ifi_check(status,error_message) + use mpi, only: MPI_Abort, MPI_COMM_WORLD + implicit none + integer(c_int64_t), intent(in) :: status + character(*), intent(in) :: error_message + integer :: ierr + + ! Exit program if status is non-zero + if(status/=0) then + write(0,'("IFI Failed: ",A)') trim(error_message) + call MPI_Abort(MPI_COMM_WORLD,1,ierr) + endif + end subroutine ifi_check + + ! -------------------------------------------------------------------- + + subroutine read_ifi_config() + implicit none + ! Only read the config if we haven't already: + if(.not.have_read_ifi_config) then + call ifi_check(ifi_config%init(),'read IFI config') + have_read_ifi_config = .true. + endif + end subroutine read_ifi_config + + ! -------------------------------------------------------------------- + + subroutine set_ifi_dims() + use CTLBLK_mod, only: ifi_nflight, ifi_flight_levels + implicit none + + ! Warning: do not deallocate config_flight_levels_feet. + ! The IFI C++ library manages that array. + integer(kind=c_int64_t), pointer :: config_flight_levels_feet(:) + integer :: i + + ! Make sure the config was read in + call read_ifi_config() + + ! Get the flight levels + call ifi_check(ifi_config%get_flight_levels_feet(config_flight_levels_feet), & + 'cannot get flight levels in feet from IFI config') + + ! Convert from integer to real: + ifi_nflight = size(config_flight_levels_feet) + allocate(ifi_flight_levels(ifi_nflight)) + ifi_flight_levels = config_flight_levels_feet + +! print '(A)','IFI flight levels:' +! 38 format(' ifi_flight_level[',I0,'] = ',F15.5) +! do i=1,ifi_nflight +! print 38,i,ifi_flight_levels(i) +! enddo + + end subroutine set_ifi_dims + + ! -------------------------------------------------------------------- + + subroutine send_data(vars,name,ient) + use ctlblk_mod, only: spval, jsta, jend, lm, cfld, datapd, fld_info, ifi_flight_levels, jsta_2l, jend_2u, ista, iend, ista_2l, iend_2u + use rqstfld_mod, only: iget, iavblfld, lvlsxml, lvls + implicit none + + class(IFIData) :: vars + integer, intent(in) :: ient + character(*), intent(in) :: name + + ! Locals + integer(c_int64_t) :: & + ims,ime,jms,jme,kms,kme, ids,ide,jds,jde,kds,kde, ips,ipe,jps,jpe,kps,kpe + real(kind=ifi_real_t), pointer :: data(:) + logical(c_bool) :: missing_value_is_set + real(kind=ifi_real_t) :: missing_value + integer :: i,j,k,nj_local,jpad,ilen,jlen,kstartm1,jstartm1,iloc,ndata,ji,ni_local,ipad + + if(.not. IGET(ient)>0) then + return + endif + + ! WARNING: do not deallocate the data pointer. It is managed by the IFI C++ library. + data => vars%get_data(trim(name),missing_value_is_set,missing_value, & + ims,ime,jms,jme,kms,kme, ids,ide,jds,jde,kds,kde, ips,ipe,jps,jpe,kps,kpe) + if(.not.missing_value_is_set) then + missing_value = MISSING + endif + + ! Get dimensions and do some sanity checks + nj_local = jpe-jps+1 + ni_local = ipe-ips+1 + jpad = jps-jms + ipad = ips-ims + if(nj_local/=jend-jsta+1 .or. jpad/=jsta-jsta_2l .or. ni_local/=iend-ista+1 .or. ipad/=ista-ista_2l) then +94 format(' ',A,' = ',I0,', ',I0) +83 format('Warning: ',A,': IFI output j bounds do not match UPP j bounds') + print 83,trim(name) + print 94,'jps,jsta',jps,jsta + print 94,'jpe,jend',jpe,jend + print 94,'jms,jsta_2l',jms,jsta_2l + print 94,'jme,jend_2u',jme,jend_2u + print 94,'jpad,jsta-jsta_2l',jpad,jsta-jsta_2l + print 94,'nj_local,jend-jsta+1',nj_local,jend-jsta+1 + print 94,'ips,ista',ips,ista + print 94,'ipe,iend',ipe,iend + print 94,'ims,ista_2l',ims,ista_2l + print 94,'ime,iend_2u',ime,iend_2u + print 94,'ipad,ista-ista_2l',ipad,ista-ista_2l + print 94,'ni_local,iend-ista+1',ni_local,iend-ista+1 + !call ifi_check(-1,'Internal error: IFI output j bounds do not match UPP j bounds') + end if + ilen=ime-ims+1 + jlen=jme-jms+1 + ndata=ilen*jlen*(kme-kms+1) + + ! Go level-by-level writing grib2 if requested + do k=kps,kpe + kstartm1=ilen*jlen*(k-kms) + if(LVLS(k,IGET(ient))>0) then + cfld = cfld+1 + fld_info(cfld)%ifld = IAVBLFLD(IGET(ient)) + fld_info(cfld)%lvl = k ! ifi_flight_levels(k)*feet2meters + !$OMP PARALLEL DO PRIVATE(i,j,iloc,jstartm1) COLLAPSE(2) + do j=jps,jpe + do i=ips,ipe + jstartm1 = kstartm1 + (j-jms)*ilen + iloc = jstartm1+(i-ims)+1 + if(iloc<1 .or. iloc>size(data)) then + call ifi_check(-1,'Internal error: out of bounds in send_data.') + endif + if(data(iloc)==missing_value) then + datapd(i-ips+1,j-jps+1,cfld) = spval + else + datapd(i-ips+1,j-jps+1,cfld) = data(iloc) + endif + enddo + enddo + endif + enddo + end subroutine send_data + + ! -------------------------------------------------------------------- + + subroutine gather_ifi(local_buf_c,global_buf_c,receiving_rank) bind(C) + use iso_c_binding, only: c_float, c_double,c_int64_t,c_f_pointer + use mpi + use ctlblk_mod, only: ME, MPI_COMM_COMP, JSTA, JEND, IM, JM, ICNT, IDSP, ISTA, IEND + implicit none + + integer(kind=c_int64_t), value :: receiving_rank + type(c_ptr), value :: global_buf_c, local_buf_c + real(kind=ifi_real_t), pointer :: global_buf(:,:), local_buf(:,:) + + integer :: type, iret + + call c_f_pointer(local_buf_c,local_buf,(/ iend-ista+1, jend-jsta+1 /)) + if(me==receiving_rank) then + call c_f_pointer(global_buf_c,global_buf,(/ im, jm /)) + else + call c_f_pointer(global_buf_c,global_buf,(/ 1,1 /)) + endif + + call gather_for_write(local_buf,global_buf,receiving_rank) + + end subroutine gather_ifi + + ! -------------------------------------------------------------------- + + subroutine gather_for_write(local_buf,global_buf,receiving_rank_c) bind(C) + use iso_c_binding, only: c_float, c_double,c_int64_t,c_f_pointer + use mpi + use ctlblk_mod, only: ME, MPI_COMM_COMP, JSTA, JEND, IM, JM, ISTA, ISTA, IEND + implicit none + + integer(kind=c_int64_t), value :: receiving_rank_c + real(kind=ifi_real_t) :: global_buf(:,:), local_buf(:,:) + integer :: receiving_rank + receiving_rank = receiving_rank_c + call global_gather(local_buf,global_buf,receiving_rank,ista,iend,jsta,jend) + end subroutine gather_for_write + + ! -------------------------------------------------------------------- + + subroutine scatter_ifi(local_buf_c,global_buf_c,sending_rank_c)bind(C) + use iso_c_binding, only: c_float, c_double, c_int64_t, c_f_pointer + use mpi + use ctlblk_mod, only: JSTA, JEND, IM, JM, ISTA, IEND, ME + implicit none + + integer(kind=c_int64_t), value :: sending_rank_c + type(c_ptr), value :: global_buf_c, local_buf_c + real(kind=ifi_real_t), pointer :: global_buf(:,:), local_buf(:,:) + integer :: sending_rank + + sending_rank=sending_rank_c + + call c_f_pointer(local_buf_c,local_buf,(/ iend-ista+1, jend-jsta+1 /)) + if(me==sending_rank) then + call c_f_pointer(global_buf_c,global_buf,(/ im, jm /)) + else + call c_f_pointer(global_buf_c,global_buf,(/ 1,1 /)) + endif + + call global_scatter(local_buf,global_buf,sending_rank,ista,iend,jsta,jend) + end subroutine scatter_ifi + + ! -------------------------------------------------------------------- + + subroutine run_ifi() + use ctlblk_mod, only: spval, lm, lp1, im, jsta_2l,jend_2u, ITPREC, IFHR, IFMIN, grib, & + jm, jsta,jend, me, num_procs, mpi_comm_comp, ista, iend, ista_2l, iend_2u, dtq2 + use vrbls3d, only: & + zmid, & ! = IFI "HGT" + zint, & ! zint(:,:,LM+1) = IFI "HGT_surface" + QQI, & ! = IFI "CIMIXR" + QQG, & ! = IFI "GRLE" + QQW, & ! = IFI "CLMR" + pmid, & ! = IFI "PRES" + QQR, & ! "RWMR" + q, & ! "SPFH" + t, & ! "TMP" + QQS, & ! "SNMR" + OMGA ! "VVEL" + use vrbls2d, only : & + IFI_APCP, & ! IFI "APCP_surface" over ITPREC bucket time + CAPE, CIN, & + AVGPREC_CONT ! Backup plan for points where IFI_APCP is invalid or 0 + use rqstfld_mod, only: IGET + use iso_c_binding, only: c_bool, c_int64_t + + implicit none + + INTERFACE ! implemented in EXCH_c_float.f + SUBROUTINE EXCH_c_float(A) BIND(C) + use ifi_type_mod, only: ifi_real_t + implicit none + real(kind=ifi_real_t) :: a(*) + END SUBROUTINE EXCH_c_float + END INTERFACE + + type(IFIData) :: hybr_vars, pres_vars, derived_vars, fip_algo_vars, flight_vars, cat_vars + type(IFIAlgo) :: algo + character(88) :: outfile + real :: to_hourly + real(c_double) :: fcst_lead_sec + integer :: i, j + + ! FIXME: Once the post is i-decomposed, replace the appropriate 1..im in this routine. + + if(grib/='grib2' .or. (IGET(1007)<=0 .and. IGET(1008)<=0 .and. IGET(1009)<=0 .and. IGET(1010)<=0)) then + if(me==0) then + print '(A)','IFI fields were not requested; skipping IFI' + endif + return ! nothing to do + endif + + if(me==0) then + print '(A)','Running libIFI to get icing products.' + call ifi_print_copyright() + + if(write_ifi_debug_files) then + print '(A)','Will output IFI debug files.' + else + print '(A)','Will NOT output IFI debug files.' + endif + endif + + if(write_ifi_debug_files) then + call make_communicators() + endif + + ! Read config and initialize input data structures: + + call read_ifi_config() + call ifi_check(hybr_vars%init(int(1,c_int64_t),int(im,c_int64_t),int(1,c_int64_t),int(jm,c_int64_t),& + int(1,c_int64_t),int(lm,c_int64_t),int( ista,c_int64_t),int(iend,c_int64_t),int(jsta,c_int64_t),& + int(jend,c_int64_t),int(1,c_int64_t),int(lm,c_int64_t)),& + 'could not initialize IFI input data structures') + + ! Copy 2D vars to IFI internal structures: + + call ifi_check(hybr_vars%add_ij_var('topography',int(ista_2l,c_int64_t),int(iend_2u,c_int64_t),& + int(jsta_2l,c_int64_t),int(jend_2u,c_int64_t), & + zint(:,:,LP1)),'could not send topography to IFI') + + to_hourly=3600*1000.0/dtq2 +!$OMP PARALLEL DO COLLAPSE(2) + do j=jsta,jend + do i=ista,iend + if(ifi_apcp(i,j)>9e9 .or. ifi_apcp(i,j)<-9e9 .or. ifi_apcp(i,j)==0) then + ifi_apcp(i,j) = avgprec_cont(i,j)*to_hourly + else if(ITPREC>1e-5) then + ifi_apcp(i,j) = ifi_apcp(i,j)/itprec + endif + enddo + enddo + + call ifi_check(hybr_vars%add_ij_var('APCP_surface',int(ista_2l,c_int64_t),int(iend_2u,c_int64_t),& + int(jsta_2l,c_int64_t),int(jend_2u,c_int64_t), & + IFI_APCP),'could not send IFI_APCP to IFI') + call ifi_check(hybr_vars%add_ij_var('CAPE_surface',int(ista_2l,c_int64_t),int(iend_2u,c_int64_t), & + int(jsta_2l,c_int64_t),int(jend_2u,c_int64_t),CAPE), & + 'could not send CAPE to IFI') + call ifi_check(hybr_vars%add_ij_var('CIN_surface',int(ista_2l,c_int64_t),int(iend_2u,c_int64_t), & + int(jsta_2l,c_int64_t),int(jend_2u,c_int64_t),CIN), & + 'could not send CIN to IFI') + + ! Copy 3D vars to IFI internal structures, inverting K dimension + + call add_ijk_var('HGT','zmid',zmid) + call add_ijk_var('CIMIXR','QQI',QQI) + call add_ijk_var('CLMR','QQW',QQW) + call add_ijk_var('GRLE','QQG',QQG) + call add_ijk_var('PRES','pmid',pmid) + call add_ijk_var('RWMR','QQR',QQR) + call add_ijk_var('SPFH','Q',Q) + call add_ijk_var('TMP','T',T) + call add_ijk_var('SNMR','QQS',QQS) + call add_ijk_var('VVEL','OMGA',OMGA) + +308 format(A,'_',I0,'.nc') + + fcst_lead_sec=IFHR*3600.0+IFMIN*60.0 + + if(write_ifi_debug_files) then + write(outfile,308) 'hybr_vars',me + call write_fip_output(hybr_vars,fcst_lead_sec,trim(outfile),.true.,'z0','z1') + endif + + ! Initialize the IFI algorithm + + call ifi_check(algo%init(ifi_config,fcst_lead_sec,hybr_vars,ME,NUM_PROCS,MPI_COMM_COMP), & + 'could not initialize IFI algorithm') + + ! Run the IFI algorithm + + call ifi_check(algo%calc_exner(),'calc_exner() failed') + call ifi_check(algo%hybrid_to_pressure(),'hybrid_to_pressure() failed') + + call ifi_check(algo%get_pres_vars(pres_vars),'get_pres_vars()') + if(write_ifi_debug_files) then + write(outfile,308) 'pres_vars',me + call write_fip_output(pres_vars,fcst_lead_sec,trim(outfile),.true.,'z1','z0') + endif + + call ifi_check(algo%discard_hybrid_level_vars(),'discard_hybrid_level_vars() failed') + + call ifi_check(algo%derive_fields(),'derive_fields() failed') + + call ifi_check(algo%get_derived_vars(derived_vars),'get_derived_vars()') + if(write_ifi_debug_files) then + write(outfile,308) 'derived_vars',me + call write_fip_output(derived_vars,fcst_lead_sec,trim(outfile),.false.,'z1','z0') + endif + + call ifi_check(algo%run_fip_algo(),'run_fip_algo() failed') + + call ifi_check(algo%get_fip_algo_vars(pres_vars),'get_fip_algo_vars()') + if(write_ifi_debug_files) then + write(outfile,308) 'fip_algo_vars',me + call write_fip_output(pres_vars,fcst_lead_sec,trim(outfile),.false.,'z1','z0') + endif + + call ifi_check(algo%discard_pressure_level_vars(),'discard_pressure_level_vars() failed') + call ifi_check(algo%discard_derived_vars(),'discard_derived_vars() failed') + call ifi_check(algo%pressure_to_flight(),'pressure_to_flight() failed') + + call ifi_check(algo%get_flight_vars(flight_vars),'get_flight_vars()') + if(write_ifi_debug_files) then + write(outfile,308) 'flight_vars',me + call write_fip_output(flight_vars,fcst_lead_sec,trim(outfile),.false.,'z1','z0') + endif + + call ifi_check(algo%discard_fip_algo_vars(),'discard_fip_algo_vars() failed') + call ifi_check(algo%make_icing_category(),'make_icing_category() failed') + + ! Get the final output fields: + + call ifi_check(algo%get_cat_vars(cat_vars),'get_cat_vars()') + + if(write_ifi_debug_files) then + write(outfile,308) 'cat_vars',me + call write_fip_output(cat_vars,fcst_lead_sec,trim(outfile),.false.,'z1','z0') + endif + + call send_data(cat_vars,'ICE_PROB',1007) + call send_data(cat_vars,'SLD',1008) + call send_data(cat_vars,'ICE_SEV_CAT',1009) + call send_data(cat_vars,'WMO_ICE_SEV_CAT',1010) + + ! When this subroutine ends, a Fortran-2003-compliant compiler + ! will free all memory IFI uses, by calling the destructors (final + ! routines) for cat_vars, hybr_vars, algo, and config. + + contains + + subroutine add_ijk_var(ifi_name,upp_name,upp_var) + implicit none + character(len=*), intent(in) :: ifi_name,upp_name + real, intent(in) :: upp_var(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM) + real(kind=ifi_real_t) :: ifi_var(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LM) + integer i,j,k + +!$OMP PARALLEL DO COLLAPSE(2) + do k=1,lm + do j=jsta_2l,jend_2u + do i=ista_2l,iend_2u + ifi_var(i,j,k) = upp_var(i,j,lm-k+1) + enddo + enddo + enddo + + call ifi_check(hybr_vars%add_ijk_var(ifi_name,int(ista_2l,c_int64_t),int(iend_2u,c_int64_t),& + int(jsta_2l,c_int64_t),int(jend_2u,c_int64_t),& + int(1,c_int64_t),int(lm,c_int64_t),ifi_var), & + 'could not send '//ifi_name//' ('//upp_name//') to IFI') + end subroutine add_ijk_var + + end subroutine run_ifi + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + subroutine find_range(var,count,missing_value_is_set,missing_value,min_not_miss,max_not_miss,all_missing) + USE ieee_arithmetic + use mpi + use ctlblk_mod, only: mpi_comm_comp + implicit none + real(kind=ifi_real_t), intent(in) :: var(*) + real(kind=ifi_real_t), intent(in) :: missing_value + real(kind=ifi_real_t), intent(out) :: min_not_miss,max_not_miss + integer, intent(in) :: count + logical, intent(out) :: all_missing + logical(c_bool), intent(in) :: missing_value_is_set + + real(kind=ifi_real_t) :: minv,maxv,epsilon, global_minv,global_maxv + integer :: i,type,iret + real(kind=ifi_real_t), parameter :: zero = 0 + + print *,'find range begin' + + if(missing_value_is_set) then + epsilon = abs(missing_value)*1e-4 + if(.not. epsilon+1>epsilon) then + epsilon=1 + endif + endif + + ! Initialize to out-of-bounds values so they'll stay that way if no valid values are found: + minv = 1e30 + maxv = -1e30 + + ! Find the min and max values in the array: + if(missing_value_is_set) then + !$OMP PARALLEL DO REDUCTION(min:minv) REDUCTION(max:maxv) + do i=1,count + if(.not. abs(var(i)-missing_value)>epsilon .and. var(i)<9e9 .and. var(i)>-9e9) then + minv=min(minv,var(i)) + maxv=max(maxv,var(i)) + endif + end do + else + !$OMP PARALLEL DO REDUCTION(min:minv) REDUCTION(max:maxv) + do i=1,count + if(var(i)+1>var(i)) then + if(var(i)<9e9 .and. var(i)>-9e9) then + minv=min(minv,var(i)) + maxv=max(maxv,var(i)) + endif + endif + end do + endif + + if(ifi_real_t==c_double) then + type=MPI_REAL8 + else + type=MPI_REAL4 + endif + + ! call MPI_Allreduce(minv,global_minv,1,type,MPI_MIN,mpi_comm_comp,iret) + ! call MPI_Allreduce(maxv,global_maxv,1,type,MPI_MAX,mpi_comm_comp,iret) + global_minv=minv + global_maxv=maxv + + ! If min or max are inf, -inf, or NaN, assume all values are missing. + all_missing = global_minv<-9e9 .or. global_minv>9e9 .or. global_maxv<-9e9 .or. global_maxv>9e9 + + print *,'range min,max = ',global_minv,global_maxv + + if(all_missing) then + min_not_miss=-1 + max_not_miss=1 + else + min_not_miss=global_minv + max_not_miss=global_maxv + endif + + print *,'find range end' + end subroutine find_range + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + subroutine nc_check(code,file,message) + use netcdf + use mpi + implicit none + integer, intent(in) :: code + character(*), intent(in) :: file, message + integer :: i, ierr + if(code/=0) then + write(0,93) trim(file),trim(message),trim(nf90_strerror(code)),code + call mpi_abort(mpi_comm_world,1,ierr) + endif + 93 format(A,': ',A,': ',A,'(',I0,')') + end subroutine nc_check + + subroutine write_fip_output(ifi_data,fcst_lead_sec,output_file,rename,z2dname,z3dname) + use ifi_mod + use iso_c_binding + use netcdf + use ctlblk_mod, only: me + implicit none + integer, parameter :: maxname=80 + integer, parameter :: maxvars=999 + logical, intent(in) :: rename + double precision, intent(in) :: fcst_lead_sec + character(len=*), intent(in) :: z2dname,z3dname + type var_info + character(len=maxname) :: varname, outname + integer :: varid, ndims, dims(4), dimids(4), count + real(ifi_real_t), pointer :: data(:) + integer :: ims,ime,jms,jme,kms,kme + integer :: ids,ide,jds,jde,kds,kde + integer :: ips,ipe,jps,jpe,kps,kpe + logical :: should_dealloc + real(kind=ifi_real_t) :: missing_value + real(kind=ifi_real_t) :: min_not_miss,max_not_miss + logical(c_bool) :: missing_value_is_set + logical :: all_missing + end type var_info + character(len=*), intent(in) :: output_file + + type(IFIData) :: ifi_data + integer(c_int64_t) :: ids,ide, jds,jde, kds,kde + integer(c_int64_t) :: ips,ipe, jps,jpe, kps,kpe + integer(c_int64_t) :: ims,ime, jms,jme, kms,kme + integer :: count + + character(len=200) :: varname,nextname + + integer :: dimids(4), ncid, ivar, id, nvars, nx0, ny0, nz0, ntime, dims(4) + type(var_info),target :: var_data(maxvars) + + if(me==0) then + write(0,'(A,A)') trim(output_file),': writing IFI debug data' + endif + + call ifi_check(ifi_data%get_dims(ids,ide, jds,jde, kds,kde, ips,ipe, jps,jpe, kps,kpe),"get_dims") + + nx0=ide-ids+1 + ny0=jde-jds+1 + nz0=kde-kds+1 + ntime=1 + + dims = (/nx0,ny0,nz0,ntime/) + + varname=' ' ! special value indicating "start at the beginning" + + ivar=0 + do while(ivar read_var(var_data(ivar),trim(varname),var_data(ivar)%should_dealloc) + if(me==0) then + call set_dims(var_data(ivar),dims,dimids) + var_data(ivar)%varid = def_var(var_data(ivar),rename) + endif + enddo + + if(me/=0) then + ! Ranks that are not writing are done now + return + endif + + nvars=ivar + + if(nvars<1) then + write(0,"(A,A)") output_file,': no data to write!' + return + endif + + call nc_check(nf90_enddef(ncid),output_file,'nf90_enddef') + + write(0,*) 'before write loop ',me + do ivar=1,nvars +24 format(' put var ',A) + print 24,trim(var_data(ivar)%varname) + + call find_range(var_data(ivar)%data,var_data(ivar)%count, & + var_data(ivar)%missing_value_is_set,var_data(ivar)%missing_value,& + var_data(ivar)%min_not_miss,var_data(ivar)%max_not_miss, & + var_data(ivar)%all_missing) + call write_var(var_data(ivar)) + if(var_data(ivar)%should_dealloc) then + deallocate(var_data(ivar)%data) + endif + nullify(var_data(ivar)%data) + enddo + + call nc_check(nf90_close(ncid),output_file,"nf90_close") + contains + + subroutine set_dims(var,dims,dimids) + implicit none + type(var_info), intent(inout), target :: var + integer, intent(in) :: dims(:), dimids(:) + character(len=:), pointer :: varname + + varname=>var%varname(1:len_trim(var%varname)) + + if(me/=0) then + ! Ranks that are not writing are done now + return + endif + + ! These must also be in IFITest.cc IFITest::write_netcdf + + if(varname=='x' .or. varname=='x0') then + var%dims=(/nx0,1,1,1/) + var%dimids=(/dimids(1),-1,-1,-1/) + var%ndims=1 + else if(varname=='y' .or. varname=='y0') then + var%dims=(/ny0,1,1,1/) + var%dimids=(/dimids(2),-1,-1,-1/) + var%ndims=1 + else if(varname=='z' .or. varname=='z0' .or. varname=='z1' .or. & + varname=='pressure_levels' .or. varname=='exner_levels') then + var%dims=(/nz0,1,1,1/) + var%dimids=(/dimids(3),-1,-1,-1/) + var%ndims=1 + else if(varname=='latitude' .or. varname=='longitude') then + var%dims=(/nx0,ny0,1,1/) + var%dimids=(/dimids(1),dimids(2),-1,-1/) + var%ndims=2 + else if(varname=='time') then + var%dims=(/ntime,1,1,1/) + var%dimids=(/dimids(4),-1,-1,-1/) + var%ndims=1 + else if(kme<=kms) then + var%dims=(/nx0,ny0,ntime,1/) + var%dimids=(/dimids(1),dimids(2),dimids(4),-1/) + var%ndims=3 + else + var%dims=(/nx0,ny0,nz0,ntime/) + var%dimids=dimids + var%ndims=4 + endif + + var%count=var%dims(1)*var%dims(2)*var%dims(3)*var%dims(4) + end subroutine set_dims + + subroutine write_var(var) + implicit none + type(var_info), intent(inout) :: var + + integer :: ones(var%ndims), dims(var%ndims) + real(ifi_real_t) :: put(var%count) + integer :: i,j,k,n,ilen,jlen,m,imlen,jmlen + + ones = 1 + dims = var%dims(1:var%ndims) + + if(me/=0) then + ! Ranks that are not writing are done now + return + endif + + call nc_check(nf90_put_var(ncid=ncid,varid=var%varid,values=var%data, & + start=ones,count=dims), & + output_file,"nf90_put_var "//trim(var%outname)) + + call nc_check(nf90_put_att(ncid,var%varid,"min_value",var%min_not_miss), & + output_file,"nf90_put_att "//trim(var%outname)//" min_value") + + call nc_check(nf90_put_att(ncid,var%varid,"max_value",var%max_not_miss), & + output_file,"nf90_put_att "//trim(var%outname)//" max_value") + + end subroutine write_var + + integer function def_var(var,rename) + use iso_c_binding, only: c_float + implicit none + logical :: rename + type(var_info), intent(inout) :: var + + integer :: varid, xtype, dimids(var%ndims) + character(len=100) :: outname + + if(rename) then + var%outname=var%varname + select case(trim(var%varname)) + case('CIMIXR') + var%outname = 'ICMR' + case('SPFH') + var%outname = 'MIXR' + case('GRLE') + var%outname = 'GRMR' + case('CAPE_surface') + var%outname = 'CAPE' + case('CIN_surface') + var%outname = 'CIN' + case('CLMR') + var%outname = 'CLWMR' + case('APCP_surface') + var%outname = 'APCP1Hr' + end select + endif + + var%ims=ims ; var%ime=ime ; var%jms=jms ; var%jme=jme ; var%kms=kms ; var%kme=kme + var%ids=ids ; var%ide=ide ; var%jds=jds ; var%jde=jde ; var%kds=kds ; var%kde=kde + var%ips=ips ; var%ipe=ipe ; var%jps=jps ; var%jpe=jpe ; var%kps=kps ; var%kpe=kpe + + dimids = var%dimids(1:var%ndims) + + if(ifi_real_t==c_float) then + xtype = NF90_FLOAT + else + xtype = NF90_DOUBLE + endif + + call nc_check(nf90_def_var(ncid,trim(var%outname),xtype,dimids,def_var), & + output_file,"nf90_def_var "//trim(var%outname)) + + call nc_check(nf90_put_att(ncid,def_var,"min_value",var%min_not_miss), & + output_file,"nf90_put_att "//trim(var%outname)//" min_value") + + call nc_check(nf90_put_att(ncid,def_var,"max_value",var%max_not_miss), & + output_file,"nf90_put_att "//trim(var%outname)//" max_value") + + if(var%missing_value_is_set) then + call nc_check(nf90_put_att(ncid,def_var,"_FillValue",-9999.0), & + output_file,"nf90_put_att "//trim(var%outname)//" _FillValue") + end if + + end function def_var + + function read_var(var,varname,should_dealloc) + use mpi + implicit none + type(var_info), intent(inout) :: var + real(kind=ifi_real_t), pointer :: read_var(:) + real(kind=ifi_real_t), pointer :: local_data_1D(:) + character(len=*), intent(in) :: varname + logical, intent(out) :: should_dealloc + + real(kind=ifi_real_t), allocatable :: local_data(:,:),global_data(:,:) + real(kind=ifi_real_t), pointer :: global_data_1D(:) + + integer :: nxny_local,nxny_global,nz,count,i,j,k + integer :: local_ilen,local_jlen,local_klen,local_index + integer :: global_ilen,global_jlen,global_klen,global_index, ierr + type(c_ptr) :: global_cptr,local_cptr + + local_data_1D => ifi_data%get_data(trim(varname),var%missing_value_is_set,var%missing_value, & + ims,ime,jms,jme,kms,kme, ids,ide,jds,jde,kds,kde, ips,ipe,jps,jpe,kps,kpe) + + global_ilen=ide-ids+1 + global_jlen=jde-jds+1 + global_klen=kde-kds+1 + local_ilen=ipe-ips+1 + local_jlen=jpe-jps+1 + local_klen=kpe-kps+1 + + if(.not.associated(local_data_1D)) then + write(0,38) trim(varname) +38 format("IFI did not produce ",A," variable.") + call mpi_abort(mpi_comm_world,1,ierr) + end if + + count=global_ilen*global_jlen*global_klen + if(count<=0) then + write(0,39) trim(varname),count +39 format("IFI variable ",A," had no data (size=",I0,")") + call mpi_abort(mpi_comm_world,1,ierr) + endif + + if(ids==ide .or. jds==jde) then + ! This is a 1D variable so we write it as is from rank 0 + read_var => local_data_1D + should_dealloc = .false. + return + endif + +40 format('var ',A,' has bad ',A,'. Got: ',I0,' but expected: ',I0) + + if(global_ilen /= nx0) then + write(0,40) trim(varname),'global_ilen',global_ilen,nx0 + call mpi_abort(mpi_comm_world,1,ierr) + endif + + if(global_jlen /= ny0) then + write(0,40) trim(varname),'global_jlen',global_jlen,ny0 + call mpi_abort(mpi_comm_world,1,ierr) + endif + + if(global_klen/=1 .and. global_klen /= nz0) then + write(0,40) trim(varname),'global_klen',global_klen,nz0 + call mpi_abort(mpi_comm_world,1,ierr) + endif + + + allocate(local_data(local_ilen,local_jlen)) + if(me==0) then + allocate(global_data(global_ilen,global_jlen)) + allocate(global_data_1D(global_ilen*global_jlen*global_klen)) + else + allocate(global_data(1,1)) + allocate(global_data_1D(1)) + endif + + do k=kds,kde + do j=jps,jpe + do i=ips,ipe + local_data(i-ips+1,j-jps+1) = local_data_1D( 1 + (i-ims) + ((j-jms) + (k-kms)*(jme-jms+1))*(ime-ims+1) ) + enddo + enddo + call gather_for_write(local_data,global_data,0) + if(me==0) then + do j=1,global_jlen + do i=1,global_ilen + global_data_1D(1 + (i-1) + ((j-1) + (k-kds)*global_jlen)*global_ilen) = & + global_data(i,j) + enddo + enddo + endif + enddo + + ! Ranks that are not writing data are done. + if(me/=0) then + ! This rank does not have the global data, and will not use the data anyway, + ! but it wants an array, so we'll send it the local data that is managed + ! internally by libIFI. + read_var => local_data_1D + should_dealloc = .false. + deallocate(global_data_1D) + else + read_var => global_data_1D + should_dealloc = .true. + endif + + deallocate(global_data) + deallocate(local_data) + end function read_var + end subroutine write_fip_output + + +end module upp_ifi_mod + + +#endif diff --git a/sorc/ncep_post.fd/INITPOST.F b/sorc/ncep_post.fd/INITPOST.F index 5e74564ab..195189381 100644 --- a/sorc/ncep_post.fd/INITPOST.F +++ b/sorc/ncep_post.fd/INITPOST.F @@ -19,6 +19,7 @@ !> 2002-06-19 | Mike Baldwin | WRF Version !> 2002-08-15 | H CHuang | Unit correction and generalize projection options !> 2021-03-11 | Bo Cui | Change local arrays to dimension (im,jsta:jend) +!> 2023-01-24 | Sam Trahan | Comment-out wordy debug writes !> !> @author Russ Treadon W/NP2 @date 1993-11-10 SUBROUTINE INITPOST @@ -373,15 +374,15 @@ SUBROUTINE INITPOST do j = jsta_2l, jend_2u do i = 1, im if((PMID(I,J,ll-1) - PMID(I,J,ll))>=0.) then - write(*,*) 'non-monotonic PMID, i,j,ll ', i,j,ll - write(*,*) 'PMID: ll-1,ll,ll+1', PMID(I,J,LL-1) & - ,PMID(I,J,LL), PMID(I,J,LL+1) +! write(*,*) 'non-monotonic PMID, i,j,ll ', i,j,ll +! write(*,*) 'PMID: ll-1,ll,ll+1', PMID(I,J,LL-1) & +! ,PMID(I,J,LL), PMID(I,J,LL+1) PMID(I,J,LL)=0.5*(PMID(I,J,LL+1)+PMID(I,J,LL-1)) - write(*,*) 'after adjustment-i,j,ll ', i,j,ll - write(*,*) 'PMID: ll-1,ll,ll+1', PMID(I,J,LL-1) & - ,PMID(I,J,LL), PMID(I,J,LL+1) +! write(*,*) 'after adjustment-i,j,ll ', i,j,ll +! write(*,*) 'PMID: ll-1,ll,ll+1', PMID(I,J,LL-1) & +! ,PMID(I,J,LL), PMID(I,J,LL+1) endif end do end do @@ -400,16 +401,16 @@ SUBROUTINE INITPOST do j = jsta_2l, jend_2u do i = 1, im if((PMID(I,J,ll-1) - PMID(I,J,ll))>=0.) then - write(*,*) 'non-monotonic PMID, i,j,ll ', i,j,ll - write(*,*) 'PMID: ll-2,ll-1,ll', PMID(I,J,LL-2) & - ,PMID(I,J,LL-1), PMID(I,J,LL) + ! write(*,*) 'non-monotonic PMID, i,j,ll ', i,j,ll + ! write(*,*) 'PMID: ll-2,ll-1,ll', PMID(I,J,LL-2) & + ! ,PMID(I,J,LL-1), PMID(I,J,LL) PMID(I,J,LL)=PMID(I,J,ll-1) + & fact*(PMID(I,J,LL-1)-PMID(I,J,LL-2)) - write(*,*) 'after adjustment-i,j,ll ', i,j,ll - write(*,*) 'PMID: ll-2,ll-1,ll', PMID(I,J,LL-2) & - ,PMID(I,J,LL-1), PMID(I,J,LL) + ! write(*,*) 'after adjustment-i,j,ll ', i,j,ll + ! write(*,*) 'PMID: ll-2,ll-1,ll', PMID(I,J,LL-2) & + ! ,PMID(I,J,LL-1), PMID(I,J,LL) endif end do end do @@ -846,10 +847,10 @@ SUBROUTINE INITPOST DO J=Jsta,jend DO I=1,IM if((PINT(I,J,lm) - DUMMY(I,J))>=0.) then - write(*,*) 'non-monotonic PINT, i,j,lm ', i,j,lm - write(*,*) 'PINT: lm,lm+1, PMID: lm', PINT(I,J,LM),DUMMY(I,J), PMID(I,J,LM) + ! write(*,*) 'non-monotonic PINT, i,j,lm ', i,j,lm + ! write(*,*) 'PINT: lm,lm+1, PMID: lm', PINT(I,J,LM),DUMMY(I,J), PMID(I,J,LM) DUMMY(I,J)=PMID(I,J,LM)*1.001 - write(*,*) 'after adjustment-i,j,lm+1 ', i,j,lm+1,DUMMY(I,J) + ! write(*,*) 'after adjustment-i,j,lm+1 ', i,j,lm+1,DUMMY(I,J) endif PINT(I,J,LM+1)=DUMMY(I,J) ALPINT(I,J,LM+1)=ALOG(PINT(I,J,LM+1)) @@ -944,10 +945,10 @@ SUBROUTINE INITPOST ! KRF - check surface pressure for monotonic correctness if((PINT(I,J,lm) - PINT(I,J,LM+1))>=0. ) then - write(*,*) 'non-monotonic PINT, i,j,lm ', i,j,lm - write(*,*) 'PINT: lm,lm+1, PMID: lm', PINT(I,J,LM), PINT(I,J,LM+1), PMID(I,J,LM) + ! write(*,*) 'non-monotonic PINT, i,j,lm ', i,j,lm + ! write(*,*) 'PINT: lm,lm+1, PMID: lm', PINT(I,J,LM), PINT(I,J,LM+1), PMID(I,J,LM) PINT(I,J,LM+1) = PINT(I,J,LM)*1.001 - write(*,*) 'after adjustment-i,j,lm+1 PINT ', i,j,lm+1, PINT(I,J,LM+1) + ! write(*,*) 'after adjustment-i,j,lm+1 PINT ', i,j,lm+1, PINT(I,J,LM+1) endif ALPINT(I,J,LM+1)=ALOG(PINT(I,J,LM+1)) ENDDO diff --git a/sorc/ncep_post.fd/MISCLN.f b/sorc/ncep_post.fd/MISCLN.f index d286fe38e..eabd6d042 100644 --- a/sorc/ncep_post.fd/MISCLN.f +++ b/sorc/ncep_post.fd/MISCLN.f @@ -51,6 +51,7 @@ !! 21-10-14 J MENG - 2D DECOMPOSITION !! 22-09-22 L Zhang - Li(Kate) Zhang - Remove Dust=> AERFD !! 22-10-06 W Meng - Generate SPC fields with RRFS input +!! 23-01-24 Sam Trahan - when IFI is enabled, calculate and store CAPE & CIN. Add allocate_cape_arrays !! !! USAGE: CALL MISCLN !! INPUT ARGUMENT LIST: @@ -92,14 +93,15 @@ SUBROUTINE MISCLN use vrbls3d, only: pmid, uh, vh, t, zmid, zint, pint, alpint, q, omga use vrbls3d, only: catedr,mwt,gtg use vrbls2d, only: pblh, cprate, fis, T500, T700, Z500, Z700,& - teql,ieql + teql,ieql, cape,cin use masks, only: lmh use params_mod, only: d00, d50, h99999, h100, h1, h1m12, pq0, a2, a3, a4, & rhmin, rgamog, tfrz, small, g use ctlblk_mod, only: grib, cfld, fld_info, datapd, im, jsta, jend, jm, jsta_m, jend_m, & nbnd, nbin_du, lm, htfd, spval, pthresh, nfd, petabnd, me,& jsta_2l, jend_2u, MODELNAME, SUBMODELNAME, & - ista, iend, ista_m, iend_M, ista_2l, iend_2u + ista, iend, ista_m, iend_M, ista_2l, iend_2u, & + ifi_flight_levels use rqstfld_mod, only: iget, lvls, id, iavblfld, lvlsxml use grib2_module, only: pset use upp_physics, only: FPVSNEW,CALRH_PW,CALCAPE,CALCAPE2,TVIRTUAL @@ -126,7 +128,7 @@ SUBROUTINE MISCLN ! ! DECLARE VARIABLES. ! - LOGICAL NORTH, FIELD1,FIELD2 + LOGICAL NORTH, FIELD1,FIELD2, NEED_IFI LOGICAL, dimension(ISTA:IEND,JSTA:JEND) :: DONE, DONE1 INTEGER, allocatable :: LVLBND(:,:,:),LB2(:,:) @@ -203,6 +205,7 @@ SUBROUTINE MISCLN ! debugprint = .FALSE. + NEED_IFI = IGET(1007)>0 .or. IGET(1008)>0 .or. IGET(1009)>0 .or. IGET(1010)>0 allocate(USHR1(ista_2l:iend_2u,jsta_2l:jend_2u),VSHR1(ista_2l:iend_2u,jsta_2l:jend_2u), & USHR6(ista_2l:iend_2u,jsta_2l:jend_2u),VSHR6(ista_2l:iend_2u,jsta_2l:jend_2u)) @@ -1635,17 +1638,14 @@ SUBROUTINE MISCLN (IGET(090)>0).OR.(IGET(075)>0).OR. & (IGET(109)>0).OR.(IGET(110)>0).OR. & (IGET(031)>0).OR.(IGET(032)>0).OR. & - (IGET(573)>0).OR. & + (IGET(573)>0).OR. NEED_IFI .OR. & (IGET(107)>0).OR.(IGET(091)>0).OR. & (IGET(092)>0).OR.(IGET(093)>0).OR. & (IGET(094)>0).OR.(IGET(095)>0).OR. & (IGET(096)>0).OR.(IGET(097)>0).OR. & (IGET(098)>0).OR.(IGET(221)>0) ) THEN ! - allocate(OMGBND(ista:iend,jsta:jend,NBND),PWTBND(ista:iend,jsta:jend,NBND), & - QCNVBND(ista:iend,jsta:jend,NBND),LVLBND(ista:iend,jsta:jend,NBND), & - LB2(ista:iend,jsta:jend)) - + call allocate_cape_arrays ! COMPUTE ETA BOUNDARY LAYER FIELDS. CALL BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND, & WBND,OMGBND,PWTBND,QCNVBND,LVLBND) @@ -1977,7 +1977,7 @@ SUBROUTINE MISCLN ! IF (IGET(031)>0 .OR. IGET(573)>0 ) THEN ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! EGRID1(I,J) = H99999 ! EGRID2(I,J) = H99999 ! ENDDO @@ -1987,7 +1987,7 @@ SUBROUTINE MISCLN ! CALL OTLFT(PBND(1,1,LBND),TBND(1,1,LBND), & ! QBND(1,1,LBND),EGRID2) ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! EGRID1(I,J)=AMIN1(EGRID1(I,J),EGRID2(I,J)) ! ENDDO ! ENDDO @@ -2049,8 +2049,9 @@ SUBROUTINE MISCLN ! LVLSXML(1,IGET(566)),'LVLSXML(1,IGET(567)=', & ! LVLSXML(1,IGET(567)),'field1=',field1,'field2=',field2 ! - IF(FIELD1.OR.FIELD2)THEN + IF(FIELD1.OR.FIELD2.OR.NEED_IFI)THEN ITYPE = 2 + call allocate_cape_arrays ! !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -2080,9 +2081,9 @@ SUBROUTINE MISCLN DPBND = 0. CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,LB2,EGRID1, & EGRID2,EGRID3,EGRID4,EGRID5) + ! - IF (IGET(566)>0) THEN -! dong add missing value for cape + IF(IGET(566)>0 .or. NEED_IFI) THEN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -2090,7 +2091,16 @@ SUBROUTINE MISCLN IF(T1D(I,J) < spval) GRID1(I,J) = EGRID1(I,J) ENDDO ENDDO - CALL BOUND(GRID1,D00,H99999) + CALL BOUND(GRID1,D00,H99999) +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + CAPE(I,J) = GRID1(I,J) + ENDDO + ENDDO + ENDIF + + IF (IGET(566)>0) THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(566)) @@ -2100,14 +2110,14 @@ SUBROUTINE MISCLN jj = jsta+j-1 do i=1,iend-ista+1 ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) + datapd(i,j,cfld) = CAPE(ii,jj) enddo enddo endif ENDIF ! - IF (IGET(567) > 0) THEN -! dong add missing value for cape + IF (IGET(567) > 0 .or. NEED_IFI) THEN +! dong add missing value for CIN GRID1=spval !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -2122,9 +2132,12 @@ SUBROUTINE MISCLN DO J=JSTA,JEND DO I=ISTA,IEND IF(T1D(I,J) < spval) GRID1(I,J) = - GRID1(I,J) + CIN(I,J) = GRID1(I,J) ENDDO ENDDO -! + ENDIF + + IF(IGET(567) > 0) THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(567)) @@ -2134,7 +2147,7 @@ SUBROUTINE MISCLN jj = jsta+j-1 do i=1,iend-ista+1 ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) + datapd(i,j,cfld) = CIN(ii,jj) enddo enddo endif @@ -3185,7 +3198,7 @@ SUBROUTINE MISCLN ! ! IF (IGET(110)>0) THEN ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! GRID1(I,J)=EGRID1(I,J) ! ENDDO ! ENDDO @@ -3217,8 +3230,9 @@ SUBROUTINE MISCLN FIELD2=.TRUE. ENDIF ! - IF(FIELD1.OR.FIELD2)THEN + IF(FIELD1.OR.FIELD2.OR.NEED_IFI)THEN ITYPE = 1 + call allocate_cape_arrays ! !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -3231,15 +3245,15 @@ SUBROUTINE MISCLN DPBND = 300.E2 CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,LB2,EGRID1, & EGRID2,EGRID3,EGRID4,EGRID5) - IF (IGET(584)>0) THEN + IF (IGET(584)>0 .or. NEED_IFI) THEN ! dong add missing value to cin GRID1 = spval !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=ISTA,IEND IF(T1D(I,J) < spval) THEN - GRID1(I,J) = EGRID1(I,J) - IF (SUBMODELNAME == 'RTMA') MUCAPE(I,J)=GRID1(I,J) + GRID1(I,J) = EGRID1(I,J) + IF (SUBMODELNAME == 'RTMA') MUCAPE(I,J)=GRID1(I,J) ENDIF ENDDO ENDDO @@ -3247,7 +3261,13 @@ SUBROUTINE MISCLN ! IF (SUBMODELNAME == 'RTMA') THEN ! CALL BOUND(MUCAPE,D00,H99999) ! ENDIF - if(grib=='grib2') then +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + CAPE(I,J) = GRID1(I,J) + ENDDO + ENDDO + if(IGET(584)>0 .and. grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(584)) fld_info(cfld)%lvl=LVLSXML(1,IGET(584)) @@ -3263,7 +3283,7 @@ SUBROUTINE MISCLN ENDIF - IF (IGET(585)>0) THEN + IF (IGET(585)>0 .or. NEED_IFI) THEN ! dong add missing value to cin GRID1 = spval !$omp parallel do private(i,j) @@ -3284,7 +3304,15 @@ SUBROUTINE MISCLN ENDIF ENDDO ENDDO - if(grib=='grib2') then + +!$omp parallel do private(i,j) + DO J=JSTA,JEND + DO I=ISTA,IEND + CIN(I,J) = GRID1(I,J) + ENDDO + ENDDO + + if(IGET(585)>0 .and. grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(585)) fld_info(cfld)%lvl=LVLSXML(1,IGET(585)) @@ -3548,6 +3576,8 @@ SUBROUTINE MISCLN IF(FIELD1.OR.FIELD2)THEN ITYPE = 2 + call allocate_cape_arrays + ! !$omp parallel do private(i,j) DO J=JSTA,JEND @@ -3563,7 +3593,7 @@ SUBROUTINE MISCLN ! ENDDO ! ENDDO ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND LB2(I,J) = (LVLBND(I,J,1) + LVLBND(I,J,2) + & LVLBND(I,J,3))/3 P1D(I,J) = (PBND(I,J,1) + PBND(I,J,2) + PBND(I,J,3))/3 @@ -4431,7 +4461,7 @@ SUBROUTINE MISCLN ! ITYPE = 1 ! DO J=JSTA,JEND -! DO I=1,IM +! DO I=ISTA,IEND ! LB2(I,J) = (LVLBND(I,J,1) + LVLBND(I,J,2) + & ! LVLBND(I,J,3))/3 ! P1D(I,J) = (PBND(I,J,1) + PBND(I,J,2) + PBND(I,J,3))/3 @@ -4522,4 +4552,14 @@ SUBROUTINE MISCLN ! END OF ROUTINE. ! RETURN - END + CONTAINS + + subroutine allocate_cape_arrays + if(.not.allocated(OMGBND)) allocate(OMGBND(ista:iend,jsta:jend,NBND)) + if(.not.allocated(PWTBND)) allocate(PWTBND(ista:iend,jsta:jend,NBND)) + if(.not.allocated(QCNVBND)) allocate(QCNVBND(ista:iend,jsta:jend,NBND)) + if(.not.allocated(LVLBND)) allocate(LVLBND(ista:iend,jsta:jend,NBND)) + if(.not.allocated(LB2)) allocate(LB2(ista:iend,jsta:jend)) + end subroutine allocate_cape_arrays + + END SUBROUTINE MISCLN diff --git a/sorc/ncep_post.fd/PROCESS.f b/sorc/ncep_post.fd/PROCESS.f index 64c9c35de..1f0423a68 100644 --- a/sorc/ncep_post.fd/PROCESS.f +++ b/sorc/ncep_post.fd/PROCESS.f @@ -23,6 +23,7 @@ !> 2001-10-25 | H CHUANG | Modified to process hybrid model output !> 2002-06-19 | Mike Baldwin | WRF Version !> 2011-02-04 | Jun Wang | Add grib2 option +!> 2023-01-24 | Sam Trahan | run IFI and compute its runtime !> !> @author Russ Treadon W/NP2 @date 1992-12-21 SUBROUTINE PROCESS(kth,kpv,th,pv,iostatusD3D) @@ -30,10 +31,10 @@ SUBROUTINE PROCESS(kth,kpv,th,pv,iostatusD3D) !---------------------------------------------------------------------------- ! use mpi, only: mpi_wtime - + use upp_ifi_mod, only: run_ifi use CTLBLK_mod, only: cfld, etafld2_tim, eta2p_tim, mdl2sigma_tim, surfce2_tim,& mdl2agl_tim, mdl2std_tim, mdl2thandpv_tim, calrad_wcloud_tim,& - cldrad_tim, miscln_tim, fixed_tim, ntlfld, me + cldrad_tim, miscln_tim, fixed_tim, ntlfld, me, run_ifi_tim !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -128,6 +129,11 @@ SUBROUTINE PROCESS(kth,kpv,th,pv,iostatusD3D) if(me==0) write(0,*) "PROCESS CALRAD_WCLOUD done" CALRAD_WCLOUD_tim = CALRAD_WCLOUD_tim +(mpi_wtime() - btim) ! +! IN-FLIGHT ICING PRODUCTS + btim = mpi_wtime() + CALL RUN_IFI + RUN_IFI_tim = RUN_IFI_tim +(mpi_wtime()-btim) +! ! END OF ROUTINE. ! NTLFLD=cfld diff --git a/sorc/ncep_post.fd/SET_LVLSXML.f b/sorc/ncep_post.fd/SET_LVLSXML.f index ed51e12d1..3073aeb4e 100644 --- a/sorc/ncep_post.fd/SET_LVLSXML.f +++ b/sorc/ncep_post.fd/SET_LVLSXML.f @@ -16,6 +16,7 @@ subroutine SET_LVLSXML(param,ifld,irec,kpv,pv,kth,th) ! 03_10_2015 Lin Gan - Replace XML file with flat file implementation ! 07_08_2016 J. Carley - Comment out debug prints ! 06_01_2017 Y Mao - For MISCLN.f and FDLVL.f, allow FD levels input from control file +! 01-24-2023 Sam Trahan - IFI flight levels and related unit conversions ! ! USAGE: CALL SET_LVLSXML(param,ifld,irec,kpv,pv,kth,th) ! INPUT ARGUMENT LIST: @@ -47,7 +48,7 @@ subroutine SET_LVLSXML(param,ifld,irec,kpv,pv,kth,th) ! use xml_perl_data, only: param_t use ctlblk_mod, only: lsm, spl, nsoil, isf_surface_physics, nfd, htfd, & - petabnd, nbnd + petabnd, nbnd, ifi_nflight, ifi_flight_levels use soil, only: SLDPTH,SLLEVEL use rqstfld_mod,only : mxlvl,LVLS,LVLSXML implicit none @@ -65,7 +66,7 @@ subroutine SET_LVLSXML(param,ifld,irec,kpv,pv,kth,th) real,parameter :: small2=1 integer,parameter :: LSIG1=22,LSIG2=5 integer i,j,l,nlevel,scalef,lvlcape,lvlcin - logical READTHK,logrec + logical READTHK,logrec,found REAL :: SIGO2(LSIG2+1),ASIGO2(LSIG2),DSIGO2(LSIG2) REAL :: SIGO1(LSIG1+1),ASIGO1(LSIG1),DSIGO1(LSIG1) ! @@ -187,23 +188,48 @@ subroutine SET_LVLSXML(param,ifld,irec,kpv,pv,kth,th) endif ! if(trim(param%fixed_sfc1_type)=='spec_alt_above_mean_sea_lvl') then - if(index(param%shortname,"GTG_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL")<=0) then - do j=1, nlevel + if(index(param%shortname,"SPECIFIC_IFI_FLIGHT_LEVEL")>0) then + do j=1, nlevel + found=.false. + iloop411: do i=1, ifi_nflight + if(nint(param%level(j)/10)==nint(ifi_flight_levels(i)/10) )then + LVLS(i,ifld)=1 + LVLSXML(i,ifld)=j + !print *,'SPECIFIC_IFI_FLIGHT_LEVEL ',j,' is ',param%level(j) + irec=irec+1 + found=.true. + exit iloop411 + endif + enddo iloop411 + if(.not.found) then + write(0,*) 'ERROR: No such IFI flight level: ',param%level(j)/10 + LVLS(i,ifld)=0 + endif + enddo + else if(index(param%shortname,"IFI_FLIGHT_LEVEL")>0) then + do j=1, ifi_nflight + LVLS(j,ifld)=1 + LVLSXML(j,ifld)=j + !print *,'IFI_FLIGHT_LEVEL ',j,' is ',param%level(j) + irec=irec+1 + enddo + elseif(index(param%shortname,"GTG_ON_SPEC_ALT_ABOVE_MEAN_SEA_LVL")<=0) then + do j=1, nlevel iloop4: do i=1, NFD - if(nint(param%level(j))==nint(HTFD(i)) )then - if(HTFD(i)>300.) then - LVLS(i,ifld)=1 - else - LVLS(i,ifld)=2 + if(nint(param%level(j))==nint(HTFD(i)) )then + if(HTFD(i)>300.) then + LVLS(i,ifld)=1 + else + LVLS(i,ifld)=2 + endif + LVLSXML(i,ifld)=j + irec=irec+1 + exit iloop4 endif - LVLSXML(i,ifld)=j - irec=irec+1 - exit iloop4 - endif - enddo iloop4 - enddo - return - endif + enddo iloop4 + enddo + return + endif ! Allow inputs of FD levels from control file. For GTG (EDPARM CATEDR MWTURB) ! SET LVLS to 1 do j=1, nlevel @@ -277,15 +303,16 @@ subroutine SET_LVLSXML(param,ifld,irec,kpv,pv,kth,th) endif enddo iloop41 enddo - return + return endif do j=1, nlevel - LVLS(j,ifld)=1 - LVLSXML(j,ifld)=j - irec=irec+1 + LVLS(j,ifld)=1 + LVLSXML(j,ifld)=j + irec=irec+1 enddo return endif +! !for hpc tmp at sigma lvl if(trim(param%shortname)=='TMP_ON_SIGMA_LVL_HPC') then IF(READTHK)THEN ! EITHER READ DSG THICKNESS diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index d209b30b5..b58257600 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -44,6 +44,7 @@ !! that cause issues with newer wgrib2 builds in RRFS system. !! - 22-11-16 E JAMES - Adding dust from RRFS !! - 22-12-23 E Aligo - Read six winter weather diagnostics from model. +!! - 23-01-24 Sam Trahan - store hourly accumulated precip for IFI and bucket time !! !! USAGE: CALL SURFCE !! INPUT ARGUMENT LIST: @@ -96,7 +97,7 @@ SUBROUTINE SURFCE snow_bucket1, rainc_bucket1, graup_bucket1, & frzrn_bucket, snow_acm, snow_bkt, & shdmin, shdmax, lai, ch10,cd10,landfrac,paha,pahi, & - tecan,tetran,tedir,twa + tecan,tetran,tedir,twa,IFI_APCP use soil, only: stc, sllevel, sldpth, smc, sh2o use masks, only: lmh, sm, sice, htm, gdlat, gdlon use physcons_post,only: CON_EPS, CON_EPSM1 @@ -165,7 +166,7 @@ SUBROUTINE SURFCE character(len=256) :: ffgfile character(len=256) :: arifile - logical file_exists + logical file_exists, need_ifi logical, parameter :: debugprint = .false. @@ -3771,17 +3772,22 @@ SUBROUTINE SURFCE ! PRECIPITATION BUCKETS - accumulated between output times ! 'BUCKET TOTAL PRECIP ' - IF (IGET(434)>0.) THEN + NEED_IFI = IGET(1007)>0 .or. IGET(1008)>0 .or. IGET(1009)>0 .or. IGET(1010)>0 + IF (IGET(434)>0. .or. NEED_IFI) THEN !$omp parallel do private(i,j) DO J=JSTA,JEND DO I=ISTA,IEND IF (IFHR == 0) THEN - GRID1(I,J) = 0.0 + IFI_APCP(I,J) = 0.0 ELSE - GRID1(I,J) = PCP_BUCKET(I,J) + IFI_APCP(I,J) = PCP_BUCKET(I,J) ENDIF ENDDO ENDDO + ! Note: IFI.F may replace IFI_APCP with other values where it is spval or 0 + ENDIF + + IF (IGET(434)>0.) THEN ID(1:25) = 0 ITPREC = NINT(TPREC) !mp @@ -3804,7 +3810,7 @@ SUBROUTINE SURFCE IF(IFMIN >= 1)ID(18)=IFHR*60+IFMIN-IFINCR ENDIF IF (ID(18)<0) ID(18) = 0 - if(grib=='grib2') then + if(grib=='grib2' .and. IGET(434)>0) then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(434)) if(ITPREC>0) then @@ -3826,7 +3832,7 @@ SUBROUTINE SURFCE jj = jsta+j-1 do i=1,iend-ista+1 ii = ista+i-1 - datapd(i,j,cfld) = GRID1(ii,jj) + datapd(i,j,cfld) = IFI_APCP(ii,jj) enddo enddo endif diff --git a/sorc/ncep_post.fd/VRBLS2D_mod.f b/sorc/ncep_post.fd/VRBLS2D_mod.f index d953325c9..8e919dd98 100644 --- a/sorc/ncep_post.fd/VRBLS2D_mod.f +++ b/sorc/ncep_post.fd/VRBLS2D_mod.f @@ -29,6 +29,8 @@ module vrbls2d ,CLDEFI(:,:),ALBASE(:,:),SI(:,:),LSPA(:,:) & ,RSWINC(:,:),VIS(:,:),PD(:,:),MXSNAL(:,:),MIXHT(:,:) & ,SNONC(:,:),EPSR(:,:),RSWTOA(:,:),TEQL(:,:) & +! Variables saved for input to IFI + ,IFI_APCP(:,:),CAPE(:,:),CIN(:,:) & ! HWRF additions ,MDLTAUX(:,:),MDLTAUY(:,:),CD10(:,:),CH10(:,:) & ,ACSWUPT(:,:),SWDNT(:,:),ACSWDNT(:,:) & diff --git a/sorc/ncep_post.fd/VRBLS3D_mod.f b/sorc/ncep_post.fd/VRBLS3D_mod.f index cfa22592e..0db1423d2 100644 --- a/sorc/ncep_post.fd/VRBLS3D_mod.f +++ b/sorc/ncep_post.fd/VRBLS3D_mod.f @@ -80,7 +80,6 @@ module vrbls3d ,icing_gfip(:,:,:),icing_gfis(:,:,:) & ! Add NCAR GTG turbulence ,catedr(:,:,:),mwt(:,:,:),gtg(:,:,:) & - ! AQF ,avgozcon(:,:,:),avgpmtf(:,:,:) diff --git a/sorc/ncep_post.fd/WRFPOST.f b/sorc/ncep_post.fd/WRFPOST.f index 37e8d42f6..05707b0a8 100644 --- a/sorc/ncep_post.fd/WRFPOST.f +++ b/sorc/ncep_post.fd/WRFPOST.f @@ -30,6 +30,7 @@ !> 2022-03-15 | W Meng | Unify FV3 based interfaces !> 2022-09-22 | L Zhang | Add option of nasa_on to process ufs-aerosols !> 2022-11-08 | K Wang | Replace aqfamaq_on with aqf_on +!> 2023-01-24 | Sam Trahan | write_ifi_debug_files flag for IFI debug capability !> !> @author Mike Bladwin NSSL/SPC @date 2002-06-18 PROGRAM WRFPOST @@ -117,8 +118,10 @@ PROGRAM WRFPOST lsm, fld_info, etafld2_tim, eta2p_tim, mdl2sigma_tim, cldrad_tim, miscln_tim, & mdl2agl_tim, mdl2std_tim, mdl2thandpv_tim, calrad_wcloud_tim,nasa_on, & fixed_tim, time_output, imin, surfce2_tim, komax, ivegsrc, d3d_on, gocart_on,rdaod, & - readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqf_on,numx + readxml_tim, spval, fullmodelname, submodelname, hyb_sigp, filenameflat, aqf_on,numx, & + run_ifi_tim use grib2_module, only: gribit2,num_pset,nrecout,first_grbtbl,grib_info_finalize + use upp_ifi_mod, only: write_ifi_debug_files !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - implicit none ! @@ -143,7 +146,7 @@ PROGRAM WRFPOST integer :: kpo,kth,kpv real,dimension(komax) :: po,th,pv namelist/nampgb/kpo,po,kth,th,kpv,pv,fileNameAER,d3d_on,gocart_on,nasa_on,popascal & - ,hyb_sigp,rdaod,aqf_on,vtimeunits,numx + ,hyb_sigp,rdaod,aqf_on,vtimeunits,numx,write_ifi_debug_files integer :: itag_ierr namelist/model_inputs/fileName,IOFORM,grib,DateStr,MODELNAME,SUBMODELNAME & ,fileNameFlux,fileNameFlat @@ -273,6 +276,7 @@ PROGRAM WRFPOST fileNameFlat='postxconfig-NT.txt' read(5,nampgb,iostat=iret,end=119) 119 continue + if (me==0) print*,'in itag, write_ifi_debug_files=', write_ifi_debug_files if (me==0) print*,'in itag, mod(num_procs,numx)=', mod(num_procs,numx) if(mod(num_procs,numx)/=0) then if (me==0) then @@ -767,6 +771,7 @@ PROGRAM WRFPOST print*, 'FIXED_tim = ',FIXED_tim print*, 'MDL2THANDPV_tim = ',MDL2THANDPV_tim print*, 'CALRAD_WCLOUD_tim = ',CALRAD_WCLOUD_tim + print*, 'RUN_IFI_tim = ',RUN_IFI_tim print*, 'Total time = ',(mpi_wtime() - bbtim) print*, 'Time for OUTPUT = ',time_output print*, 'Time for READxml = ',READxml_tim diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index 94136b823..dadeacb10 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -12,6 +12,7 @@ module grib2_module ! with parameter marshalling ! July, 2021 Jesse Meng 2D decomsition ! June, 2022 Lin Zhu change the dx/dy to reading in from calculating for latlon grid +! January, 2023 Sam Trahan foot&meter Unit conversions for IFI !------------------------------------------------------------------------ use xml_perl_data, only: param_t,paramset_t ! @@ -225,6 +226,7 @@ subroutine gribit2(post_fname) logical, parameter :: debugprint = .false. ! character(1), dimension(:), allocatable :: cgrib + real :: level_unit_conversion ! ! !---------------- code starts here -------------------------- @@ -324,10 +326,14 @@ subroutine gribit2(post_fname) ' category ',icatg, & ' parameter ',iparm, & ' for var ',trim(pset%param(nprm)%pname) - + if(index(pset%param(nprm)%shortname,'IFI_FLIGHT_LEVEL')>0) then + level_unit_conversion=0.3048 ! convert feet->meters + else + level_unit_conversion=1 + endif call gengrb2msg(idisc,icatg, iparm,nprm,nlvl,fldlvl1,fldlvl2, & fld_info(i)%ntrange,fld_info(i)%tinvstat,datafld(:,i), & - cgrib,clength) + cgrib,clength,level_unit_conversion) ! print *,'finished gengrb2msg field=',i,'ntlfld=',ntlfld,'clength=',clength call wryte(lunout, clength, cgrib) else @@ -419,8 +425,14 @@ subroutine gribit2(post_fname) ! !--- generate grib2 message --- ! + if(index(pset%param(nprm)%shortname,'IFI_FLIGHT_LEVEL')>0) then + level_unit_conversion=0.3048 ! convert feet->meters + else + level_unit_conversion=1 + endif call gengrb2msg(idisc,icatg, iparm,nprm,nlvl,fldlvl1,fldlvl2,ntrange, & - leng_time_range_stat,datafld(:,i),cgrib(cstart),clength) + leng_time_range_stat,datafld(:,i),cgrib(cstart),clength, & + level_unit_conversion) cstart=cstart+clength ! else @@ -479,7 +491,7 @@ end subroutine gribit2 !---------------------------------------------------------------------------------------- ! subroutine gengrb2msg(idisc,icatg, iparm,nprm,nlvl,fldlvl1,fldlvl2,ntrange,tinvstat, & - datafld1,cgrib,lengrib) + datafld1,cgrib,lengrib,level_unit_conversion) ! !---------------------------------------------------------------------------------------- ! @@ -498,6 +510,7 @@ subroutine gengrb2msg(idisc,icatg, iparm,nprm,nlvl,fldlvl1,fldlvl2,ntrange,tinvs real,dimension(:),intent(in) :: datafld1 character(1),intent(inout) :: cgrib(max_bytes) integer, intent(inout) :: lengrib + real, intent(in) :: level_unit_conversion ! integer, parameter :: igdsmaxlen=200 ! @@ -734,6 +747,14 @@ subroutine gengrb2msg(idisc,icatg, iparm,nprm,nlvl,fldlvl1,fldlvl2,ntrange,tinvs scale_fct_fixed_sfc2=0 endif + if(abs(level_unit_conversion-1)>1e-4) then +! print *,'apply level unit conversion ',level_unit_conversion +! print *,'scaled_val_fixed_sfc1 was ',scaled_val_fixed_sfc1 + scaled_val_fixed_sfc1=nint(scaled_val_fixed_sfc1*real(level_unit_conversion,kind=8)) + scaled_val_fixed_sfc2=nint(scaled_val_fixed_sfc2*real(level_unit_conversion,kind=8)) +! print *,'scaled_val_fixed_sfc1 now ',scaled_val_fixed_sfc1 + endif + ihr_start = ifhr-tinvstat if(modelname=='RAPR'.and.vtimeunits=='FMIN') then ifhrorig = ifhr diff --git a/tests/compile_upp.sh b/tests/compile_upp.sh index 432231359..f29043bf1 100755 --- a/tests/compile_upp.sh +++ b/tests/compile_upp.sh @@ -1,16 +1,19 @@ #!/bin/bash # Wen Meng 01/2020, Set up for cmake build. # Wen Meng 01/2022, Add option for building with gtg code +# Sam Trahan 01/2023, Add option for building with libIFI ############################################################ set -eu usage() { echo - echo "Usage: $0 [-p] [-g] [-w] [-v] [-c] -h" + echo "Usage: $0 [-p] [-g] [-w] [-v] [-c] [-i] -h" echo echo " -p installation prefix DEFAULT: ../install" echo " -g build with GTG(users with gtg repos. access only) DEFAULT: OFF" + echo " -I build with libIFI(users with ifi repos. access only) DEFAULT: OFF" + echo " -i build with libIFI(users with ifi install access only) DEFAULT: OFF" echo " -w build without WRF-IO DEFAULT: ON" echo " -v build with cmake verbose DEFAULT: NO" echo " -c Compiler to use for build DEFAULT: intel" @@ -20,11 +23,12 @@ usage() { } prefix="../install" +ifi_opt=" -DBUILD_WITH_IFI=OFF" gtg_opt=" -DBUILD_WITH_GTG=OFF" wrfio_opt=" -DBUILD_WITH_WRFIO=ON" compiler="intel" verbose_opt="" -while getopts ":p:gwc:vh" opt; do +while getopts ":p:gwc:vhiI" opt; do case $opt in p) prefix=$OPTARG @@ -35,6 +39,12 @@ while getopts ":p:gwc:vh" opt; do w) wrfio_opt=" -DBUILD_WITH_WRFIO=OFF" ;; + I) + ifi_opt=" -DINTERNAL_IFI=ON" + ;; + i) + ifi_opt=" -DREQUIRE_IFI=ON" + ;; c) compiler=$OPTARG ;; @@ -46,7 +56,7 @@ while getopts ":p:gwc:vh" opt; do ;; esac done -cmake_opts=" -DCMAKE_INSTALL_PREFIX=$prefix"${wrfio_opt}${gtg_opt} +cmake_opts=" -DCMAKE_INSTALL_PREFIX=$prefix"${wrfio_opt}${gtg_opt}${ifi_opt} source ./detect_machine.sh if [[ $(uname -s) == Darwin ]]; then From 47fd5f23f567345f65ed9ba82053134f0fd825dd Mon Sep 17 00:00:00 2001 From: "Samuel Trahan (NOAA contractor)" <39415369+SamuelTrahanNOAA@users.noreply.github.com> Date: Fri, 27 Jan 2023 11:01:57 -0700 Subject: [PATCH 095/107] Urgent bug fix: libIFI changes broke inline post due to missing deallocates (#621) * inline post bug fix: deallocate ifi arrays before next iteration of post * Update sorc/ncep_post.fd/IFI.F --- sorc/ncep_post.fd/DEALLOCATE.f | 3 +++ sorc/ncep_post.fd/IFI.F | 22 ++++++++++++++++++++++ 2 files changed, 25 insertions(+) diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f index 4c0c0d094..75301bfc5 100644 --- a/sorc/ncep_post.fd/DEALLOCATE.f +++ b/sorc/ncep_post.fd/DEALLOCATE.f @@ -139,6 +139,9 @@ SUBROUTINE DE_ALLOCATE deallocate(stc) deallocate(sh2o) deallocate(SLDPTH) + deallocate(CAPE) + deallocate(CIN) + deallocate(IFI_APCP) deallocate(RTDPTH) deallocate(SLLEVEL) ! diff --git a/sorc/ncep_post.fd/IFI.F b/sorc/ncep_post.fd/IFI.F index 6df7215d1..2b910cc99 100644 --- a/sorc/ncep_post.fd/IFI.F +++ b/sorc/ncep_post.fd/IFI.F @@ -21,6 +21,9 @@ subroutine set_ifi_dims() ! Bogus fill value for flight levels to prevent a crash ifi_nflight = 60 + if(allocated(ifi_flight_levels)) then + deallocate(ifi_flight_levels) + endif allocate(ifi_flight_levels(ifi_nflight)) do i=1,ifi_nflight ifi_flight_levels(i) = 500*i @@ -176,6 +179,22 @@ subroutine make_communicators ! 929 format('Rank ',I0,' ista=',I0,' jsta=',I0) ! print 929,grid_rank,ista,jsta + if(allocated(ista_grid)) then + deallocate(ista_grid) + deallocate(jsta_grid) + deallocate(rearrange) + deallocate(rearrange_row1d) + deallocate(rearrange_row2d) + deallocate(row_ista) + deallocate(row_iend) + deallocate(row_comm_count) + deallocate(row_comm_displ) + deallocate(col_jsta) + deallocate(col_jend) + deallocate(col_comm_count) + deallocate(col_comm_displ) + endif + ! Get the start locations on every rank. We need this for the key, ! and for determining root ranks. allocate(ista_grid(size)) @@ -508,6 +527,9 @@ subroutine set_ifi_dims() ! Convert from integer to real: ifi_nflight = size(config_flight_levels_feet) + if(allocated(ifi_flight_levels)) then + deallocate(ifi_flight_levels) + endif allocate(ifi_flight_levels(ifi_nflight)) ifi_flight_levels = config_flight_levels_feet From 7477b93eda5c9d08fa7855dec42a59aa9afe7d69 Mon Sep 17 00:00:00 2001 From: "Samuel Trahan (NOAA contractor)" <39415369+SamuelTrahanNOAA@users.noreply.github.com> Date: Tue, 31 Jan 2023 14:31:15 -0700 Subject: [PATCH 096/107] GSL UPP developments up to January 2023 (#620) * GSL UPP developments up to January 2023 1. Increases precision of VIL_ON_ENTIRE_ATMOS from `4.0` to `7.0` 2. Adds an experimental diagnostic, developed for the HRRR to correct for the HRRR's low bias in cloud cover. For an FAA deliverable due Feb 2023. 3. Switches from cldfra to cldfra_bl when reading cloud fraction from INITPPOST_NETCDF * inline post bug fix: deallocate ifi arrays before next iteration of post * Update sorc/ncep_post.fd/IFI.F * automatically choose cldfra or cldfra_bl * update author info --- parm/fv3lam_rrfs.xml | 2 +- parm/postxconfig-NT-fv3lam_rrfs.txt | 2 +- sorc/ncep_post.fd/CLDRAD.f | 37 ++++++++++++++++++----------- sorc/ncep_post.fd/INITPOST_NETCDF.f | 25 +++++++++++++++---- 4 files changed, 46 insertions(+), 20 deletions(-) diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index d5b68a93c..fd384ad89 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -1790,7 +1790,7 @@ VIL_ON_ENTIRE_ATMOS VIL - 4.0 + 7.0 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index 37bbec810..034aa0234 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -9742,7 +9742,7 @@ entire_atmos_single_lyr 0 0.0 1 -4.0 +7.0 0 0 0 diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index 58bf95eb6..ed0aeb3c3 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -68,6 +68,7 @@ !> 2022-10-20 | Li(Kate Zhang) | Add nitrate look-up table and nitrate AOD for NASA GOCART (UFS-Aerosols). !> 2022-11-16 | Eric James | Adding total column dust, biomass burning emissions, hourly wildfire potential from RRFS !> 2022-1207 | Wen Meng | Add AOD for AQM +!> 2022-12-15 | Eric James | experimental cloud base height diagnostic from HRRR, to correct a low bias in cloud cover !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD @@ -2098,11 +2099,18 @@ SUBROUTINE CLDRAD ! However, for RAPv5/HRRRv4, paramater 711 will be supplied as ! the GSD cloud-base height, and parameter 798 will be the ! corresponding cloud-base pressure. (J. Kenyon, 4 Nov 2019) +! -- E. James, 15 Dec 2022 +! The above experimental diagnostic, developed for the HRRR with +! lots of "add-ons" to correct for the HRRR's low bias in cloud +! cover, needs to be revised for the RRFS with its more extensive +! cloudiness. For an FAA deliverable due Feb 2023, the diagnostic +! is being modified to get rid of some of the add ons. ! Parameters 711/798: experimental ceiling diagnostic #2 (height and pressure, respectively) IF ((IGET(711)>0) .OR. (IGET(798)>0)) THEN ! set minimum cloud fraction to represent a ceiling - ceiling_thresh_cldfra = 0.4 +! ceiling_thresh_cldfra = 0.4 + ceiling_thresh_cldfra = 0.5 ! set some constants for ceiling adjustment in snow (retained from legacy algorithm, also in calvis.f) rhoice = 970. coeffp = 10.36 @@ -2192,23 +2200,24 @@ SUBROUTINE CLDRAD end do !-- end of search 2 - zceil = min(zceil1,zceil2) ! choose lower of zceil1 and zceil2 +! zceil = min(zceil1,zceil2) ! choose lower of zceil1 and zceil2 + zceil = zceil1 !-- Search for "indefinite ceiling" (vertical visibility) conditions: consider ! lowering of apparent ceiling due to falling snow (retained from legacy ! diagnostic); this is extracted from calvis.f (visibility diagnostic) - if (QQS(i,j,LM)>1.e-10) then - TV=T(I,J,lm)*(H1+D608*Q(I,J,lm)) - RHOAIR=PMID(I,J,lm)/(RD*TV) - vovermd = (1.+Q(i,j,LM))/rhoair + QQS(i,j,LM)/rhoice - concfp = QQS(i,j,LM)/vovermd*1000. - betav = coeffp*concfp**exponfp + 1.e-10 - vertvis = 1000.*min(90., const1/betav) - if (vertvis < zceil-FIS(I,J)*GI ) then ! if vertvis is more restictive than zceil found above; set zceil to vertvis - ! note that FIS is geopotential of the surface (ground), and GI is 1/g - zceil = FIS(I,J)*GI + vertvis - end if - end if +! if (QQS(i,j,LM)>1.e-10) then +! TV=T(I,J,lm)*(H1+D608*Q(I,J,lm)) +! RHOAIR=PMID(I,J,lm)/(RD*TV) +! vovermd = (1.+Q(i,j,LM))/rhoair + QQS(i,j,LM)/rhoice +! concfp = QQS(i,j,LM)/vovermd*1000. +! betav = coeffp*concfp**exponfp + 1.e-10 +! vertvis = 1000.*min(90., const1/betav) +! if (vertvis < zceil-FIS(I,J)*GI ) then ! if vertvis is more restictive than zceil found above; set zceil to vertvis +! ! note that FIS is geopotential of the surface (ground), and GI is 1/g +! zceil = FIS(I,J)*GI + vertvis +! end if +! end if ceil(I,J) = zceil ENDDO ! i loop diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index 046753a84..e6220ff87 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -27,6 +27,7 @@ !> 2022-11-16 | Eric James | Read smoke, dust, biomass burning, and hourly wildfire potential from RRFS !> 2022-12-07 | Wen Meng | Read AOD from AQM model !> 2022-12-23 | Eric Aligo | Read six winter weather diagnostics from model +!> 2023-01-30 | Sam Trahan | Read cldfra or cldfra_bl, whichever is available !> !> @author Hui-Ya Chuang @date 2016-03-04 SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) @@ -153,7 +154,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) integer ii,jj,js,je,iyear,imn,iday,itmp,ioutcount,istatus, & I,J,L,ll,k,kf,irtn,igdout,n,Index,nframe, & nframed2,iunitd3d,ierr,idum,iret,nrec,idrt - integer ncid3d,ncid2d,varid,nhcas + integer ncid3d,ncid2d,varid,nhcas,varid_bl,iret_bl real TSTART,TLMH,TSPH,ES,FACT,soilayert,soilayerb,zhour,dum, & tvll,pmll,tv, tx1, tx2 @@ -889,9 +890,25 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) call read_netcdf_3d_para(ncid3d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & spval,VarName,cfr(ista_2l,jsta_2l,1),lm) else - VarName='cldfra' - call read_netcdf_3d_para(ncid2d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & - spval,VarName,cfr(ista_2l,jsta_2l,1),lm) + + iret_bl = nf90_inq_varid(ncid2d,'cldfra_bl',varid_bl) + iret = nf90_inq_varid(ncid2d,'cldfra',varid) + + if(iret_bl==NF90_NOERR .and. iret==NF90_NOERR) then + write(0,*) 'WARNING: BOTH cldfra_bl AND cldfra ARE AVAILABLE. USING cldfra.' + VarName='cldfra' + else if(iret_bl==NF90_NOERR) then + VarName='cldfra_bl' + else if(iret==NF90_NOERR) then + VarName='cldfra' + else + VarName='nope' + endif + + if(VarName /= 'nope') then + call read_netcdf_3d_para(ncid2d,im,jm,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, & + spval,VarName,cfr(ista_2l,jsta_2l,1),lm) + endif endif ! do l=1,lm ! if(debugprint)print*,'sample ',VarName,'isa,jsa,l =' & From 14126a5751c8207e42e8ae5a33fda2c78cbe3655 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Sun, 5 Feb 2023 21:15:49 -0500 Subject: [PATCH 097/107] Remove rap/hrrr specified instant upward/downward clear-sky SW. (#625) --- sorc/ncep_post.fd/CLDRAD.f | 29 +---------------------------- 1 file changed, 1 insertion(+), 28 deletions(-) diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index ed0aeb3c3..5c40279a5 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -69,6 +69,7 @@ !> 2022-11-16 | Eric James | Adding total column dust, biomass burning emissions, hourly wildfire potential from RRFS !> 2022-1207 | Wen Meng | Add AOD for AQM !> 2022-12-15 | Eric James | experimental cloud base height diagnostic from HRRR, to correct a low bias in cloud cover +!> 2023-02-02 | Wen Meng | Remove GSL specified clear-sky upward/downward SW !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD @@ -3832,20 +3833,6 @@ SUBROUTINE CLDRAD endif ENDIF -! Instantaneous clear-sky upwelling SW at the surface - IF (IGET(743)>0) THEN - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J) = SWUPBC(I,J) - ENDDO - ENDDO - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(743)) - datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) - endif - ENDIF - ! CURRENT OUTGOING LW RADIATION AT THE SURFACE. IF (IGET(142)>0) THEN !$omp parallel do private(i,j) @@ -3962,20 +3949,6 @@ SUBROUTINE CLDRAD endif ENDIF -! Instantaneous clear-sky downwelling SW at surface (GSD version) - IF (IGET(742)>0) THEN - DO J=JSTA,JEND - DO I=ISTA,IEND - GRID1(I,J) = SWDNBC(I,J) - ENDDO - ENDDO - if(grib=='grib2') then - cfld=cfld+1 - fld_info(cfld)%ifld=IAVBLFLD(IGET(742)) - datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend) - endif - ENDIF - ! Instantaneous SWDDNI IF (IGET(772)>0)THEN !$omp parallel do private(i,j) From c48e0fde2131b1a7e0684a048d93bbea59913f9d Mon Sep 17 00:00:00 2001 From: YaliMao-NOAA <53870326+YaliMao-NOAA@users.noreply.github.com> Date: Fri, 10 Feb 2023 09:20:31 -0500 Subject: [PATCH 098/107] Add debug mode option to compile_upp.sh (#628) * To make 'cmake' go through for GTG, 1. GTG source code file extensions are changed from f90 to F90 2. Add ip::ip_4 back to sorc/ncep_post.fd/CMakeLists.txt * Made a new tag of NCAR GTG to change file extension from f90 to F90, then updated Externals.cfg with this new tag * Update GTG tag to fix two issues: 1. Fix buzillar #1207 http://www2.spa.ncep.noaa.gov/bugzilla/show_bug.cgi?id=1207 2. EMC_post issue #272 * Pick up GTG new tag fixing the failure because of strong wind * Add debug mode option to tests/compile_upp.sh --------- Co-authored-by: wx20yam Co-authored-by: yali mao --- tests/compile_upp.sh | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/tests/compile_upp.sh b/tests/compile_upp.sh index f29043bf1..30f1642ce 100755 --- a/tests/compile_upp.sh +++ b/tests/compile_upp.sh @@ -8,7 +8,7 @@ set -eu usage() { echo - echo "Usage: $0 [-p] [-g] [-w] [-v] [-c] [-i] -h" + echo "Usage: $0 [-p] [-g] [-w] [-v] [-c] [-i] [-d] -h" echo echo " -p installation prefix DEFAULT: ../install" echo " -g build with GTG(users with gtg repos. access only) DEFAULT: OFF" @@ -17,6 +17,7 @@ usage() { echo " -w build without WRF-IO DEFAULT: ON" echo " -v build with cmake verbose DEFAULT: NO" echo " -c Compiler to use for build DEFAULT: intel" + echo " -d Debug mode of CMAKE_BUILD_TYPE DEFAULT: Release" echo " -h display this message and quit" echo exit 1 @@ -28,7 +29,8 @@ gtg_opt=" -DBUILD_WITH_GTG=OFF" wrfio_opt=" -DBUILD_WITH_WRFIO=ON" compiler="intel" verbose_opt="" -while getopts ":p:gwc:vhiI" opt; do +debug_opt="" +while getopts ":p:gwc:vhiI:d" opt; do case $opt in p) prefix=$OPTARG @@ -51,12 +53,15 @@ while getopts ":p:gwc:vhiI" opt; do v) verbose_opt="VERBOSE=1" ;; + d) + debug_opt=" -DCMAKE_BUILD_TYPE=Debug" + ;; h|\?|:) usage ;; esac done -cmake_opts=" -DCMAKE_INSTALL_PREFIX=$prefix"${wrfio_opt}${gtg_opt}${ifi_opt} +cmake_opts=" -DCMAKE_INSTALL_PREFIX=$prefix"${wrfio_opt}${gtg_opt}${ifi_opt}${debug_opt} source ./detect_machine.sh if [[ $(uname -s) == Darwin ]]; then From b37f8ab7b0f298346d79a37e0c5d4a64037fd4d4 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Mon, 13 Feb 2023 09:43:43 -0500 Subject: [PATCH 099/107] Add a fix in bucket graupel. (#634) --- sorc/ncep_post.fd/SURFCE.f | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index b58257600..e08cd122d 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -45,6 +45,7 @@ !! - 22-11-16 E JAMES - Adding dust from RRFS !! - 22-12-23 E Aligo - Read six winter weather diagnostics from model. !! - 23-01-24 Sam Trahan - store hourly accumulated precip for IFI and bucket time +!! - 23-02-11 W Meng - Add fix of time accumulation in bucket graupel for FV3 based models !! !! USAGE: CALL SURFCE !! INPUT ARGUMENT LIST: @@ -4077,6 +4078,10 @@ SUBROUTINE SURFCE endif fld_info(cfld)%ntrange=1 end if + if(MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R') then + fld_info(cfld)%ntrange=1 + fld_info(cfld)%tinvstat=IFHR-ID(18) + endif !$omp parallel do private(i,j,ii,jj) do j=1,jend-jsta+1 jj = jsta+j-1 From 8c7ca6f36a0347b457e5de89b3b40c79a87ca353 Mon Sep 17 00:00:00 2001 From: EricJames-NOAA Date: Mon, 13 Feb 2023 18:09:04 -0700 Subject: [PATCH 100/107] Small changes to exp2 ceiling and SLP output (#629) * Correcting name of MAPS SLP variable in post_avblflds.xml, and removing from RRFS postxconfig file, and a slight change to exp2 ceiling diagnostic. * Small change to MDLFLD to make sure REFD at -10C still gets output after getting rid of MSLMA output. * Adding change logs. * Adding NCEP local use for MSLMA --- parm/fv3lam_rrfs.xml | 12 ----- parm/post_avblflds.xml | 3 +- parm/postxconfig-NT-3drtma.txt | 4 +- parm/postxconfig-NT-fv3lam_rrfs.txt | 78 +---------------------------- sorc/ncep_post.fd/CLDRAD.f | 5 +- sorc/ncep_post.fd/MDLFLD.f | 3 +- 6 files changed, 11 insertions(+), 94 deletions(-) diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml index fd384ad89..dc09f31f9 100755 --- a/parm/fv3lam_rrfs.xml +++ b/parm/fv3lam_rrfs.xml @@ -282,12 +282,6 @@ 6.0 - - MAPS_PRMSL_ON_MEAN_SEA_LVL - PRMSL - 6.0 - - TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m TMP @@ -2107,12 +2101,6 @@ 6.0 - - MAPS_PRMSL_ON_MEAN_SEA_LVL - PRMSL - 6.0 - - TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m TMP diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml index a094830f1..591f1be5b 100755 --- a/parm/post_avblflds.xml +++ b/parm/post_avblflds.xml @@ -3883,7 +3883,8 @@ 445 MAPS_PRMSL_ON_MEAN_SEA_LVL - PRMSL + MSLMA + NCEP mean_sea_lvl 4.0 diff --git a/parm/postxconfig-NT-3drtma.txt b/parm/postxconfig-NT-3drtma.txt index 20bd9d9b8..d480e0ba7 100644 --- a/parm/postxconfig-NT-3drtma.txt +++ b/parm/postxconfig-NT-3drtma.txt @@ -356,8 +356,8 @@ MAPS_PRMSL_ON_MEAN_SEA_LVL ? 1 tmpl4_0 -PRMSL -? +MSLMA +NCEP ? mean_sea_lvl 0 diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt index 034aa0234..098022236 100644 --- a/parm/postxconfig-NT-fv3lam_rrfs.txt +++ b/parm/postxconfig-NT-fv3lam_rrfs.txt @@ -1,7 +1,7 @@ 3 4 -242 -290 +241 +289 PRSLEV 32769 ncep_nco @@ -1313,43 +1313,6 @@ mean_sea_lvl ? ? ? -445 -MAPS_PRMSL_ON_MEAN_SEA_LVL -? -1 -tmpl4_0 -PRMSL -? -? -mean_sea_lvl -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? 106 TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m ? @@ -11430,43 +11393,6 @@ mean_sea_lvl ? ? ? -445 -MAPS_PRMSL_ON_MEAN_SEA_LVL -? -1 -tmpl4_0 -PRMSL -? -? -mean_sea_lvl -0 -? -0 -? -? -0 -? -0 -? -? -? -0 -0.0 -0 -0.0 -? -0 -0.0 -0 -0.0 -1 -6.0 -0 -0 -0 -? -? -? 106 TMP_ON_SPEC_HGT_LVL_ABOVE_GRND_2m ? diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f index 5c40279a5..6f7ddfb71 100644 --- a/sorc/ncep_post.fd/CLDRAD.f +++ b/sorc/ncep_post.fd/CLDRAD.f @@ -68,8 +68,9 @@ !> 2022-10-20 | Li(Kate Zhang) | Add nitrate look-up table and nitrate AOD for NASA GOCART (UFS-Aerosols). !> 2022-11-16 | Eric James | Adding total column dust, biomass burning emissions, hourly wildfire potential from RRFS !> 2022-1207 | Wen Meng | Add AOD for AQM -!> 2022-12-15 | Eric James | experimental cloud base height diagnostic from HRRR, to correct a low bias in cloud cover +!> 2022-12-15 | Eric James | Modifying GSL exp2 ceiling diagnostic from HRRR, to correct a low bias in cloud cover !> 2023-02-02 | Wen Meng | Remove GSL specified clear-sky upward/downward SW +!> 2023-02-10 | Eric James | Removing neighbourhood check from GSL exp2 ceiling diagnostic !> !> @author Russ Treadon W/NP2 @date 1993-08-30 SUBROUTINE CLDRAD @@ -2259,7 +2260,7 @@ SUBROUTINE CLDRAD do jc = max(1,J-numr),min(JM,J+numr) do ic = max(1,I-numr),min(IM,I+numr) ceil_neighbor = max( full_ceil(ic,jc)-full_fis(ic,jc)*GI , 5.0) ! ceil_neighbor in AGL - ceil_min = min( ceil_min, ceil_neighbor ) +! ceil_min = min( ceil_min, ceil_neighbor ) enddo enddo CLDZ(I,J) = ceil_min + FIS(I,J)*GI ! convert back to ASL and store diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index 262085bd9..776ae1e1f 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -48,6 +48,7 @@ !! 22-10-20 W Meng - Bug fix for cloud fraction and vertically integrated liquid !! 22-11-08 W Meng - Output hourly averaged PM2.5 and O3 for AQM model only (aqf_on) !! 22-11-16 E James - Adding dust from RRFS +!! 23-02-10 E James - Adding an extra IGET value to if statement for NGMSLP calculation !! !! USAGE: CALL MDLFLD !! INPUT ARGUMENT LIST: @@ -207,7 +208,7 @@ SUBROUTINE MDLFLD ALLOCATE(PBLRI (ista_2l:iend_2u,JSTA_2L:JEND_2U)) ! ! SECOND, STANDARD NGM SEA LEVEL PRESSURE. - IF (IGET(105) > 0 .OR. IGET(445) > 0) THEN + IF (IGET(023) > 0 .OR. IGET(105) > 0 .OR. IGET(445) > 0) THEN CALL NGMSLP ! this value is used in some later calculation. ENDIF IF (IGET(105) > 0) THEN From ad56e5ca699728df7b300e3624807a6d21dcf186 Mon Sep 17 00:00:00 2001 From: Gillian Petro <96886803+gspetro-NOAA@users.noreply.github.com> Date: Tue, 14 Feb 2023 10:21:31 -0500 Subject: [PATCH 101/107] Update documentation for variables in CALGUST.f and CALHEL.f (#630) * Correct DEPTH param in CALHEL * add def for LPBL and ZPBL * reorder variables in header --------- Co-authored-by: gspetro --- sorc/ncep_post.fd/CALGUST.f | 6 ++++-- sorc/ncep_post.fd/CALHEL.f | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/sorc/ncep_post.fd/CALGUST.f b/sorc/ncep_post.fd/CALGUST.f index cef7b692e..47d1f8c86 100644 --- a/sorc/ncep_post.fd/CALGUST.f +++ b/sorc/ncep_post.fd/CALGUST.f @@ -3,8 +3,10 @@ ! !> This routine computes surface wind gust by mixing !> down momentum from the level at the height of the PBL. -!> -!> @param[out] GUST Speed of the maximum surface wind gust. +!> +!> @param[in] LPBL Model level that is closest to the planetary boundary layer height. +!> @param[in] ZPBL Height of the planetary boundary layer. +!> @param[inout] GUST Speed of the maximum surface wind gust. !> !> ### Program history log: !> Date | Programmer | Comments diff --git a/sorc/ncep_post.fd/CALHEL.f b/sorc/ncep_post.fd/CALHEL.f index a0fbceba2..eedc4feeb 100644 --- a/sorc/ncep_post.fd/CALHEL.f +++ b/sorc/ncep_post.fd/CALHEL.f @@ -13,7 +13,7 @@ !> 'non-classic' hodographs (such as Northwest-flow events) and do as well or !> better than the old method in more classic situations. !> -!> @param[in] DPTH Depth in meters over whcih helicity should be computed; allows one to distinguish 0-3 km and 0-1 km values. +!> @param[in] DEPTH Depth in meters over whcih helicity should be computed; allows one to distinguish 0-3 km and 0-1 km values. !> @param[out] UST Estimated U Component (m/s) Of Storm motion. !> @param[out] VST Estimated V Component (m/s) Of Storm motion. !> @param[out] HELI Storm-relative heliciry (m**2/s**2). From 84cb0b8ff4d72506edddff6204d00f39bc3f035a Mon Sep 17 00:00:00 2001 From: YaliMao-NOAA <53870326+YaliMao-NOAA@users.noreply.github.com> Date: Wed, 15 Feb 2023 21:27:43 -0500 Subject: [PATCH 102/107] update gtg code revision (#632) Co-authored-by: yali mao --- sorc/ncep_post.fd/post_gtg.fd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sorc/ncep_post.fd/post_gtg.fd b/sorc/ncep_post.fd/post_gtg.fd index b7e077699..d0ad32416 160000 --- a/sorc/ncep_post.fd/post_gtg.fd +++ b/sorc/ncep_post.fd/post_gtg.fd @@ -1 +1 @@ -Subproject commit b7e077699ca1054104cc93342a038941346bef04 +Subproject commit d0ad3241659fd2b30ea24fc9daecebde5c51806f From a362578d16e7dbc02c1ad2d35acaa654993ec66a Mon Sep 17 00:00:00 2001 From: Wen Meng Date: Thu, 23 Feb 2023 00:24:13 +0000 Subject: [PATCH 103/107] Update gust calculation for fv3 based models. --- sorc/ncep_post.fd/CALGUST.f | 15 +++++++++------ sorc/ncep_post.fd/MDLFLD.f | 2 +- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/sorc/ncep_post.fd/CALGUST.f b/sorc/ncep_post.fd/CALGUST.f index 47d1f8c86..2d1d8dbaf 100644 --- a/sorc/ncep_post.fd/CALGUST.f +++ b/sorc/ncep_post.fd/CALGUST.f @@ -16,6 +16,7 @@ !> 2005-07-07 | Binbin Zhou | Add RSM !> 2015-03-11 | S Moorthi | Set sfcwind to spval if u10 and v10 are spvals for A grid and set gust to just wind (in GSM with nemsio, it appears u10 & v10 have spval) !> 2021-09-02 | Bo Cui | Decompose UPP in X direction +!> 2023-02-21 | Weizhong Zheng| Switch to GSL algorithm for FV3 based models !> !> @author Geoff Manikin W/NP2 @date 1997-03-04 @@ -70,13 +71,13 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) JSTART = JSTA_M JSTOP = JEND_M if ( num_procs > 1 ) then - !CALL EXCH(U10(1,jsta_2l)) - !CALL EXCH(V10(1,jsta_2l)) + !CALL EXCH(U10(ISTA_2L,jsta_2l)) + !CALL EXCH(V10(ISTA_2L,jsta_2l)) LMIN = max(1, minval(lpbl(ista:iend,jsta:jend))) CALL MPI_ALLREDUCE(LMIN,LXXX,1,MPI_INTEGER,MPI_MIN,MPI_COMM_COMP,IERR) DO L=LXXX,LM - CALL EXCH(UH(1,jsta_2l,L)) - CALL EXCH(VH(1,jsta_2l,L)) + CALL EXCH(UH(ISTA_2L,jsta_2l,L)) + CALL EXCH(VH(ISTA_2L,jsta_2l,L)) END DO END IF END IF @@ -133,7 +134,8 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) else sfcwind = spval endif - if(MODELNAME == 'RAPR') then + if(MODELNAME == 'RAPR' .OR. MODELNAME == 'GFS' .OR. & + MODELNAME == 'FV3R') then ZSFC = ZINT(I,J,LM+1) L = LPBL(I,J) ! in RUC do 342 k=2,k1-1, where k1 - first level above PBLH @@ -167,7 +169,8 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) return END IF - if(MODELNAME /= 'RAPR')then + if(MODELNAME /= 'RAPR' .AND. MODELNAME /= 'GFS' .AND. & + MODELNAME /= 'FV3R') then if (sfcwind < spval) then DELWIND = WIND - SFCWIND ZSFC = FIS(I,J)*GI diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f index 776ae1e1f..f59602eac 100644 --- a/sorc/ncep_post.fd/MDLFLD.f +++ b/sorc/ncep_post.fd/MDLFLD.f @@ -3774,7 +3774,7 @@ SUBROUTINE MDLFLD ! should only compute pblri if pblh from model is not computed based on Ri ! post does not yet read pbl scheme used by model. Will do this soon ! For now, compute PBLRI for non GFS models. - IF(MODELNAME == 'GFS')THEN + IF(MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R')THEN PBLRI=PBLH ELSE CALL CALPBL(PBLRI) From a7c6d950966021acd2b73e5d3518a66ea6b91ae0 Mon Sep 17 00:00:00 2001 From: Alex Richert Date: Thu, 23 Feb 2023 11:56:59 -0800 Subject: [PATCH 104/107] CI fail testing... --- .github/workflows/intel.yml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/workflows/intel.yml b/.github/workflows/intel.yml index 6eb75b8ce..f468fccda 100644 --- a/.github/workflows/intel.yml +++ b/.github/workflows/intel.yml @@ -51,7 +51,7 @@ jobs: spack ~/.spack /opt/intel - key: spack-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} + key: spack2-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} - name: install-intel-compilers run: | @@ -101,7 +101,7 @@ jobs: spack ~/.spack /opt/intel - key: spack-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} + key: spack2-${{ runner.os }}-${{ env.cache_key }}-${{ hashFiles('UPP/ci/spack.yaml') }} - name: build-upp run: | From 3e90715de40bf5ae50610b378ca2cfe2fcecfc36 Mon Sep 17 00:00:00 2001 From: Weizhong Zheng <47982059+wzzheng90@users.noreply.github.com> Date: Mon, 27 Feb 2023 18:30:43 -0500 Subject: [PATCH 105/107] Revised calculation of wind GUST for UFS applications (#637) * Revised calculation of wind GUST for UFS applications * Revised calculation of wind GUST for UFS applications * Revised Calculation of Wind Gust for UFS Applications * Revised calculation of wind GUST for UFS applications * Revised calculation of wind GUST for UFS applications --- sorc/ncep_post.fd/CALGUST.f | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/sorc/ncep_post.fd/CALGUST.f b/sorc/ncep_post.fd/CALGUST.f index 47d1f8c86..977518626 100644 --- a/sorc/ncep_post.fd/CALGUST.f +++ b/sorc/ncep_post.fd/CALGUST.f @@ -16,6 +16,7 @@ !> 2005-07-07 | Binbin Zhou | Add RSM !> 2015-03-11 | S Moorthi | Set sfcwind to spval if u10 and v10 are spvals for A grid and set gust to just wind (in GSM with nemsio, it appears u10 & v10 have spval) !> 2021-09-02 | Bo Cui | Decompose UPP in X direction +!> 2023-02-24 | Weizhong Zheng| Revised calculation of wind gust for UFS applications !> !> @author Geoff Manikin W/NP2 @date 1997-03-04 @@ -75,8 +76,8 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) LMIN = max(1, minval(lpbl(ista:iend,jsta:jend))) CALL MPI_ALLREDUCE(LMIN,LXXX,1,MPI_INTEGER,MPI_MIN,MPI_COMM_COMP,IERR) DO L=LXXX,LM - CALL EXCH(UH(1,jsta_2l,L)) - CALL EXCH(VH(1,jsta_2l,L)) + CALL EXCH(UH(ista_2l,jsta_2l,L)) + CALL EXCH(VH(ista_2l,jsta_2l,L)) END DO END IF END IF @@ -133,7 +134,7 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) else sfcwind = spval endif - if(MODELNAME == 'RAPR') then + if(MODELNAME == 'RAPR' .OR. MODELNAME == 'GFS' .OR. MODELNAME == 'FV3R') then ZSFC = ZINT(I,J,LM+1) L = LPBL(I,J) ! in RUC do 342 k=2,k1-1, where k1 - first level above PBLH @@ -167,7 +168,7 @@ SUBROUTINE CALGUST(LPBL,ZPBL,GUST) return END IF - if(MODELNAME /= 'RAPR')then + if(MODELNAME /= 'RAPR' .AND. MODELNAME /= 'GFS' .AND. MODELNAME /= 'FV3R')then if (sfcwind < spval) then DELWIND = WIND - SFCWIND ZSFC = FIS(I,J)*GI From 4b4d9b8951bd2da02092ceaca069c4b500e30b99 Mon Sep 17 00:00:00 2001 From: Alex Richert Date: Mon, 27 Feb 2023 17:20:08 -0800 Subject: [PATCH 106/107] Try ubuntu-20.04 image --- .github/workflows/intel.yml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/workflows/intel.yml b/.github/workflows/intel.yml index f468fccda..373dd252d 100644 --- a/.github/workflows/intel.yml +++ b/.github/workflows/intel.yml @@ -33,7 +33,7 @@ env: jobs: setup: - runs-on: ubuntu-latest + runs-on: ubuntu-20.04 steps: - name: checkout-upp # This is for getting spack.yaml @@ -81,7 +81,7 @@ jobs: build: needs: setup - runs-on: ubuntu-latest + runs-on: ubuntu-20.04 steps: - name: checkout-upp From 66f1dbc41b1df09c3d38547c2732f12599f7ab27 Mon Sep 17 00:00:00 2001 From: Alex Richert <82525672+AlexanderRichert-NOAA@users.noreply.github.com> Date: Mon, 27 Feb 2023 17:57:01 -0800 Subject: [PATCH 107/107] Update intel.yml --- .github/workflows/intel.yml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/workflows/intel.yml b/.github/workflows/intel.yml index 373dd252d..f468fccda 100644 --- a/.github/workflows/intel.yml +++ b/.github/workflows/intel.yml @@ -33,7 +33,7 @@ env: jobs: setup: - runs-on: ubuntu-20.04 + runs-on: ubuntu-latest steps: - name: checkout-upp # This is for getting spack.yaml @@ -81,7 +81,7 @@ jobs: build: needs: setup - runs-on: ubuntu-20.04 + runs-on: ubuntu-latest steps: - name: checkout-upp

8^VKZ<%7(OK@WLH>bjE`26C1-zDdk4n$q95`fHv+Keeg+N1f9_b z9&OyZgQv}f3K$fUQWp|hA;d~ot~x49dx{3Q@8E)41v&-_ux}preWI-ons9NaItru{!$|XU8bUc>_0Cjju~V&ErHKrWh4vPF{pt^3ZPL| zMPt5fa%JQAq_s4qTWLz2% z327W*=o}*8oI+m$QABL*pI)Gh5GaaNKuDes1bJ=XVDAL4KOj}6k|>+Y1VX-D%h}e!F5!?4Y#b?zW>I5hbycph&HlyqZB)}DF z5ds$9%2W^+Z*LoHNwdCvKHy)J-iN8f{CyFG`C*_f zQ&a$|`jt-rYQh0Tkd=gWykw4i1y2(y3wQvLIaM}diNOIB!?cz2%%hz6I=fspFJE{) zFVZ`I$=17{eEQk*FTC{ft31K!Jd%J%^E7E)V?&om)x{)~laF_<&GAZ-5u;TQ#PPDTJt4aRzw_?9U9kX&F=1rTK$!)9jyS50S|D?EGlc&0lOD zPC0J#wGaU9-&!A!+uqMKV$+r>T+fvXh?E`km^{U7{-=XfxW2FmFCYkf> z@cy}WNk8m?Gdj8kBNhd~0bo2>y@@`qGk#c}x5fB52#n~D9!^WQmhT?p57qwq>X42e z(*D``VSU(t>vk6JiU8;aiUKkrD9N+7f?nVmnA|C^jyek?X;j}k0Z;*KIHJ{SQFY+F z!9?5ITW@6lzjo2OgAY9d1w8c(rv^|I#swX5oi6;QJpF%Oq%N)F(99tj{)L7E?>zqNiCzuFryyKQ_uY=*C;&C~nvVXY#__OSjY!W%|zjgJ0RQZr;X%Fxj_ zTk}&uG=F>sJ|vnh>AkbA_1O(Qn(feb?SY$L^r-XXlU0&K;or(Rk7F?#hJB zV0e}@^D*^h^m~of;BaY$NNnW*Wce5w$YB?C$7X4M6%|!iM&QSr75e!*3#IcYj>`Np zGDjapNQ1VQ&*u&MZZ#ZDPq$xeFPjhEKo!j0;>*iYaa8u)|S4wh>W#`U#$W$-Q@E7FFqlmgQJ?Ao;rSig}- zDI{nV$s~f88B^vHpece{c?ecCJ{}F&zM5WUtH$s8Jq+C1JhQR5!yg*+(==*L&yTzz z_K8ZOn0O&gUPnm^NCDI!pmd+Eh6=zz@FH2VKAzG1OaN61%3f4@y+#DfR;}Co89jM~ zKW|#IV(F4wZo2+P6kBfLDbzCl4qT_{ATGy0@yq%!c{W~A4AEiVzCHYfm8=cR zLw1zd)d($)NTV8yg$0X8pnK`Bn#uS->|Vqvaev!$8aAljbB`T zXZh^-8S^!Qihduq@0lD!>l|J4Wsb|jF!KJiJ`O0oK5ZYn6Stv)t>`sqJq2`G06rWa z%0>ln9H)w5_!uc#xacv{kLJOl>n~fie&(Nq8Nu$_1Zmsm^~-O$5yt1~^U?8n**0Di z`b2Adc7C)&Y=;jYRwfWvv8H}WDdMuSv-+@ae%idW>a9zkE!K|=QQ1MUJtteyP0MdO z$RW%4@geN@N{z$zJwzIuQg({(hx3QKi%QRnX>K5P%8vmdKTlJx)E zxQs*BvnmdNAt3Fa6%z^zjT3xXF79FhI}k*skSPy9^V9ZNSv>q##0C!FQlD;Fy=1}7 zx^ePQ5T0mS;nZQJC_;FHyu*`k$sFm?X0Ee-^| z8;uWeU^H7g?0kd5gHi)d`EVg1f5j2qBwO~!^*CiPI!1oNP{U6%Jt`+!ZIgx%TbElJ zi7o6eS*pqrwrw@)WZHZf#{1^M5Pxf<4e_; zTZgG*1gSL}J{Q|hty{jBrpL7ySc;%u zv5oTDbeOPyg!PbdV|-d4K2Cq;frd5|7wGWugPSOM;`i2oG(;_v;IrBBX?8RQdzyZr z$MdNoHM_l%bQq4NmxW{mnY!LEO0&r$r+hTyJ5 z5LW=lyV4!-qWZmtk8MT(_(og`g1;YB=Lp$nlr!L>SlMTy(=h+Tr4i}(hTCq;S2wR+ zfhl!ffMx6UoqKT2c|>~rLaBa84zoP4ylh{4Jj{OV7;-=*f#~`2`#cPhkO1fjc{oki z&!kUTUwHk_?W@~l`xO+`{%UqEnMF)YNR9RquXY2ZW&*J3?EUzSuwxi`>I67S| zsFGP^a#SzWG?ryaQ~gptS@~u5c$M0y8?-RK_Kf{DKb$VVY4}he!UsxSF#K*_SYOu; z{5||G&L+;g7P&^6)p<9cNc%3`7#S2n?E#dneuL&ix(| z2pAAV&;fO3)X~)$cb(6^&;Ng_-hMkIVs=PGx9ayJ=`@{7pQp~LbE~R<5%Qtm&L+G5 z1U|WV+#|T?F)#8)U*isT5245ZBl1t_p0r9PRY*}%GM9Q24q=R57GDDc-~bJF!BBb} zYq%GBqi4#KMi#y_F8fFb*~ zbUtD|dGQ$hz@CyrHu-$u>8$iRA;vpa>Z`lIDZINH_&hy&KIgE^)W*^9Swwy(0r&SN}`_KJ85|j@9r0s zhZZUy0hqAMv@2aj*edrG=IwSTMK^?7F^#+lX~h z0?@UT*M^imT~4L@?4xVJ8R@-r-pgO|T$F{8<+92Pd!%&@Gtum!p1@n@ z-@Wqgg@M{D!#;GWC$B!RJFB1%6?J_PA(=gUTVv^aSod^8v@Ywzt(AMDyX<_0iS9Fu zUMBGgkI;q!|BU$(E1VrpYiH)J`;fY0ve{YU4&TkKn>#z}i?a%d8qLnaTvGW2UMkJ6 z2=74;BtC=xzno_NGYy0~wyo{WHa4D_$%Q&AYys{aHR^ikNfF$g?P4s@y(8T607J6f z`)0si-ToZV=kREK3HKWFKHWa%Yw6_a*%?%t4kID^P`Ng~5m@dR0poS0b9$Y-sn){U z#@6-@MN*Dia90dheW!hNV@Xtj-I0b%09r2-_>=PK^(!$e!z0`p-dSAXZ)9w4uF%MT z=#Zj&XjX`OSo%fKuKB>)?~@qW zhQzDP9qe6IH*$Rt_A14y@T&*Bqp=9&L*1?Iv8HG14)uV(jtIE&QWuQrA}Nzcx064h z+2ZRkQYOPUL1(w$*KGEv`*@?hymfQ;*4|wXhIUI7KYM+RopWrYbtvp`NGnKkJLChf zV7hOb$d#4pXR7b!@4VYt(e;& z$0fMAWkt4GBRK-TBQr1lP$RD(bw}S74a;+@jp?~HRQ;|RVjewu_)zD;>o|Cwy)@1F zd~y)9!uL834kdjk)5~wvs%8h!S=h1gtG+CJ8+F$?K!*e8+06Vo>Q?q_O+Q3bBxTebY0M^ z6&e0h{I(}_=es+elbws@jU0$)ipLxUG(3trMJS$Ky_kot9#%wb1+l;M^ zBW-*j4+q}{9(j1B%S(Gj-Pna(o+(y7Q@5)BA&-Q;tLA1N+<6kS4t50qUFa3=Dj^#_ zd~)3adzZZ)kqWChbWjiIxTwTeI5ha$8`ARK+k3jU;jV7?+1=UBEo${x7Up=gGW~=w z+QL#%*D`Fkp{wh_gO476`s|C(Kl|({N4!4)JGNcKqpJAJg%Zewn~k?yR)Pta5NrYql2bu?WWX>7Zh z<8-n9-nqMf@52Wl-oNkLTIfvOREyd?^@<$VAPwZwRrW4*nRs1_RJZUG?bX}&A3l2W zr)OVqa`&IVc=q(^Q?T#d+*oNh#^eE6QWzj%SN_f(y`GoDC6zfT==!V@Z zj$06A;q~Tv&3un(kF>oiwOa4w&t>kO!Ti~#?szoHwko3wI?UhnfPA9<9P_|#?&0h? zxQ_x%5AhVL_c9lEMgq^HoM{U;+ZR|T=Aq|uv~LUfy$_`3Y24b~p+^nJF7BsKTF~hz zpMllyo_WQB!tc69gsp1?J*@AOosADZdi=@L&%XHUS6_Yk)#o4G)xsfXak1wnY#=+; z)k_!~d7{k6W)^kR;VxqMZ$0T`ksH!WlI+@9VRpXLXmSmyLVnxMl7UnTO97YqzT#th4pOb7_H$H9c3G zvzl+B=0c8}y}Q21RkSKgEUj&`zV9FoMRHWA=Aa!zqEH?$4l!|ff(Ie{ZdW`^G;0Xf z{Xu(r;+FNPiNl1({lVe)WyCds-_n8xaG&;Sw?KMnWt!ANGT?5=|wUxS9 z=DryduYlXGH@Gp?lSA(#oLamPg|}uNGZmH3%!%3hjQkA-*sbWY<2}gV@(3fZub?Nq0jY^u!Yh*4{^-JVnXB;pFx2zI(FSL;)P1B};zdTz~2p+?Z@J zz3Hn|HVTJge9F*qS0<<1OBqlQW^?BhHs7D1Tgz?cX~=Y= zM3{C?T3{zlK+lREY92v+K$osFAH>{=*jgJOdY+SSQgTIRcGtwWuHk-sfH^qTRN_F* z$Rn6$Er0lEf3@jl6M;0^Fbqlpnv@)9X%g-gg4dZ6er;brByWJ!nP+p_CGGHstUbXN3i+mB%G z^i3Bz);-(xihF`?>UHPMkD(rx-F;0&DcD@KkdYlDJ&ux_xb~Jj_~_&P)tQW(i(HpC zZr;)+BO`Z7%FJV#Gje57a9fm&P$9p@addiN>-GoSzVgN2zW@6V|MTOIKmPO4TBG)Y zU;3f$O{x72BNPlod}?fXthvm^wYxW0MZCsaJvg(@*ynt81TbFC<-`bk3?1ZW;^*<% zW!H7Mi;?Fold|l+tGUg(v^)}auD1}M*CMqU%AJAB#)6Om>|z z7|Ydi0GIRjfnutUpWIuW$zm8DooKX|wr=n0LRM#HrR36bh}(tJAwqxnt7#;7bcLO!)P=aTT zUske`CBexH846|O?6I;S>I>HP;rF<gdMCDRjb5}mb+;*(T+9iGf;wV|T&7Hmd2Tz{;`OB{{>_7b1{^Iz77rjDX(oN-{iz|k?TyjJAQLinw zvpLraKGW7M_auZ=HGbbrJ8Lj}lg$C_Ie- zpLAZ{e802uS<4Tk+`G*4%C2Xu|2z>%8ti(G%ax3g>n5ANywGlvU5m6kB~{j^xtSg) z6RlONIPp1M2C-d{+(&t_t}2QoCBdiNe`Np(Ms8&_SLm5)e0X=cXGkfF;LgLyZ=+d+9870=Tt23| zDxz|xv!!ceVs<4iR9?WA%bKSMEg5wV7(5dAjj_p@xs|QmJNL=CKKtz1XJ0(tZjaP{ z_AC2vthFrO8%v#;@Xn!)$EHq;rB$->PAh2hq>MVtygYdRxrg3eTj0}Trur5Uch^-(TNzO zl^UpUQ)BSPly=jt14j-!`T*a*|8Re6vDKJ(!EZbA2c7DF+-S^g+@#8~GT%z1^Cwk= zQG68Kyxm5}ycc0Fijs`dOI*j`O5xDE1AP^4pMo7Rnbv315wJYOjr1Ht3wrLO3tR7` zd%uhVXw!G{NuaeP_(l4^fx$~xl=O=v(2yFG)2<#xWUDX4Ju)^GD-u2l{s<Oxj(?4KgTaEzO??IlhEEjEMIRg=@)o&&;LK0a}woFXuMq^Me<9 zw+c`ot|ipxo0BhEPMtMNRV}`^5$RFUj+DbsYBvdXYBqKbXB%Uus-pkGFB@;Ih&Bye zIAT3xc4-k=O`68*UuY(To`*^Y=k&t9zWzZSA5{;G6_2T7MTN6QV|sF|$1{78h=y^$ zuv}@#OPOSidck)&1a!^&1uuM6{+q&zXm2jJr+ZjWO|=#`$;5QETLEeSHfg#CQ+mP$ zrm4yIE`)CDE(0aj&i41q-U@X9PTqC?H2C(}OqkQH7-uw8b~z)T-qkh}CtQ<4drHL1 z_`iN`TJK4EA-CQsH^BypjB^*CzNu=TN}D`4nwZJ(O6lGw;^Y;{+xqnr%5hz2QsilIXDY5 ziT5i14)CPmChga1IzSq|KY#J%Zt}HZ=oUZeQ&E@7Z*1I{>a3&MTPt(T1UpUbMst4s zmd>$RjWY~!b`#zJ?X557ol@%~m*19?_QqTNY`{v}|8!KVM$|t7va_MQ;=*~-a24pF zOp385Jo<_GfIW6~fDGyzulEhS>&8}B5d*J?>ru*dtG0RN%EbX+ zLj!MXG$uiq$;L69g2kL$i&0}40F!>>&A#(Kw4}FG^;?5-LhpwlVqU2erOI$?R2GjS z;_?!zo;RSg98NSTJ6N05=bwjY3wEnH$wqgbCkJcQ4uzBb2QdT_&?Uh0%xUl zQM;AUq_ySP>P-GiIT5ZGS8?MVkp>}Qxj6s3$M1C9eW146?E|Ofo}<+7Ts_wND=)4j zfc+L{CBe;-tz0jx!9F%&rZ=uT>b=Fqo&}tTI($LyurVTR(P#;429EXB( zG#Cc_?Y>ki3(o(>(2@2^$0$s%NUKJUDHym^R_cn~u^w<_#3XfUbt6pAttZIzv23li zr|LOI1t8)a{JZ2SWP{n>M(<2Yx!0_1{!~ylI4MSGdk7IpciHv z3cdK!I_+S~^}y)yP#;&dP(Ke^`wUbP0s7fo9(yfFOQCg1#X->h7fJ%3`3^g|i5}l%cZb#$r=j;SSFa(VR>m?Q(BxYIK;= zuhbjR@tiWFBw0u$^6hbIibHC43nrgiXMj|kBhhKI?0R=N-O}coIs@6EG@Q%Q{8A_n z4Y9pxy*+t2Vr`J10l8M+8%kC@VU9Fe6!zg9E3^_P(q?Xc!+N{_LH6~%=^mxJik{}NajWybH)6cER`tcO~qa-MYO*=!RurlJxhjS{3vL;lz zlwpgVv9WJiIg?(>&Xm}0%W$hi1;lK(Bf84>ygM^S4ixjw7(AK73tyV-emy^k$f~~%CCO)I7or2xU8c6$a=2NXG1=9^>}*)oM3VHmj@jwY*Iuh2 zN563&$BAJIikJP;rV*al5%zj)x+BZn>FKW+9&awpH79RO%*<(RR^gg-w|kDz_1NL5 z?c6?{sSDX1Bw3w}nbkSGFr~S%*Oiy80{8igSH1V5-g5BL-f{UsH3?wK1sQW*dva)e zy3KavVb6dlVRcQmEOxTjE?`i@U>CRSb%I=1W<|zIh*8c^Eu*$5_njL!nInel@1s1n z1n{#2nFy+`>YUxvm>3xz)eK-^MwzkL4#a$Rfzl)1^p-Z;UB2k@#dDNn_r4O`#$07O z-Cj^2pVky~1hue0*L*!!LZ6&sCVOB}ufz{?w5?#9W7J7}>cE|JFvGRWoQW7ijbMxj zoaKI{0);WV)xgDPI>*ip7DYZC$~VTQno4aQ>XoGs+L}C%BCGLxbVNJ$de8O!W0x@j zvqyp~O*UmKvn$RDpWGZ+7@rPeowKB!mxs1P(sr;QTa7JG*Q06c;?VVL2aflvBd#%4 z_6x>_tdKc2XJ^7ijZcU0keexw`d#?fYBw%T*rDrJ51ib2{qlvX8=pF*ngsdh zODQ8(mL>za+ag4fvLHT6?5Fws`1G8Nv=D2b7M7YFIuPdc)OzWNCoXE>U(-dBJHsvw z#zrjVLr`Qvb|RC0KQ$cSZFXF%(3S0mm6xiv1 zePgoeofnwtHWBktDbU0JuxpnGBWzN5>=0RB+8y(zoRev@Km2bg&mJlP<)^jfg7kEY z0}hTixWS;>KZgSrM-%1#e7XyC!e1G`qy&a(-gY5*=D1rA`K!r#;dL>t=?E!jz#;+m zb8P!B`L6%p{BG?f=3p8h3$Ft5@kYUTJb9h^tG!k1cuVf7|BdAr76}vy6bTdw6bTdw z6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw z6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw z6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw v6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdw6bTdwgao)#YT|zZ=yrO> literal 0 HcmV?d00001 diff --git a/fix/Breadboard/2.5km_climo_snoden_fall-SON.grb b/fix/Breadboard/2.5km_climo_snoden_fall-SON.grb new file mode 100644 index 0000000000000000000000000000000000000000..f0c5d27ce6a90793c186eb3129bb65624bc1866f GIT binary patch literal 129397 zcmYg$W0WYc&fs|N*tTukwr$(CZQHhO+r}N+_UwJ{+i%bIG-(=~^z=vDG!avj5Ci}K z0Qv_20D$i<|1b(505||B5FjA0{~-W*fB^6Set-X; zpMNZXe=7f(qk;a{Be|gTe>4FA{r~{{{u{u+egOdAy1{?teiZ;H{ww&e`~Oh?)Ba~U z|2qQ!1P28CH3lF802FdGF>tnXcT1Yf03NztqK$Y3K!^AR0zUTxhQ{F zoTjFo0ZMWvYyj4yR}0dK>q9zcyc{)sWq!u&2Snw7rO$)PQG8Bhz%GEPwpZ$ZeH6+n zyY!!UO~KBkyq*qffNUB!ALd(uPwwc}yOKm8gr-;VhNwhsCU<58e2mOBgn#jb74`*}xE)G(G3s*y3E=@^Dz^8NfLS0qPCP^^f<58japo7jrai8l4$!FZ|BHR zUZtmVw?57)4!KJU(|3^&;j-%{|9LjnS6Jr^0x%$;d-o>)xqERdV!c9*c=@*jD zvo~ihDTbUjpB&nJzRdc?FzOKelG~0vDdL@C;pFz~-k6uy1acX*7Ix2&8zd3WxHv-| z>gCSvIADO1*l5wC9zuG|krl1{z-x^ZF){q(BtYqdDs*GgGDq$KL2b~ujZ`LPum zZUEu1%FAe=H9;7S|CZ#)d2QoPGjy?M8kbXDC+&Y~EBEtIBr1O?FYu=8ub|CmF-1IF zEO-_}3meptz7}*M1+6_$R{S&P^cn50rM)By24_Aj5^}3^GX_ngMeJ1#7)I68q%AFJ z#&FR~FH2*X=A%}tl97)KZ8J4O4U_%GY63QVu`tfoGVVllP@Q7k3z`M0+83O2i#*0J z)`u7)k=y>%*n`^{WMDTUJb2Lnb(hWkNqC#Lqi}j)8d}=A}Kd}EpQUhXtWW-Dlm07Oc9-8 zNKy*K@NaASlf!FB*32{wVS|JDT9{&(sd_0mRL@>Z1xES4s1HjA(3=FfRQmWJDRtZw zBLo|0v9s2X#hK)<_v_THt!IW5nPqhjYqq_C7~{JO(y9K)lhjin0x~bCmX4$q}s&VV8xSj0Xkcw#_N1erF#Fvc~(!;X^cW5r9a$optO@Pn33n-wtY##c`$aX49m6Ssk|6Oc7><%bY4H}~ zq*y%jQ4Ut0D#rsMH$6k@Qt=1{`FE(-*0S4P--o@;0no>%@gwX5$Tb0^-DdFrwYZB> zyQH*Qc|Cl2CW8yE=2KHdxXTH8c0R^~&_9F5<6VK-kDJ@(gUYmixrHvm!m?CVTeo7W z{?%PHEhAY}G)Z-#kO-4mq^Eh`*5Stv7hb2NnORV-;Ei@mS67rlSst_;cI&F<@(=f> zmTN4lG=Vq4!y@gN6k$TIWen=yWVhX0AdEIyfxazB<)=?!RCfnIa#7|8xkbl3%TbCL zn*?z!kG`xGDNXdv_BDd>zceV&_7~35I zWF8>2d=LfAA!)`hq2W6NU^<;V-dY_5+Lp}qEPujC+IY0`?Di(5?d#PAV?NxO+v?{}V8)rB zZ=BVsl);@wU&rCx2jtq;3*ZEm&r-w8s&Kca5C4-xJAr&CQO;ACP&ummm$Sq2f%&PE z{*Zt}spiA)_O6OGKo6L7OoM6uCU@0y;^H!`)$N&1pz7DF8J;TlgRwhO4l_ai*XcC* zgl((@DR6-WY?Isolc6;Zl-9+-8|%oZZ8Vz2B`0(e-=xKrn-QZI=%fYd%sneJ975j-T(( zRXy0LEU$>&Oy)yBl<_f#we0kv*MUBq@=(EUh_43fj$L0aE?;vT_($w9Jqs z+7WRWkuI?5i;p3q1N>Wak&JhIM-!qG=pEM_wkqyMMK{s3QF24?`QZ$OtUH;90^PbS zXoUhstTCsdl#+L@x1<2n3mB!jecujknmM@?!PizgHK^4sv<$()b4^!-5}(xa;Q*K= zgyE}cbwT6nQEU9q+5G%KrE)c=SDK&Ws;_F0HP|96w&Pt!QI{5_4jA}@g*y`-Mdeh@ zAl8;PSHOt9Y3u0rFboNYNKwi`T@3rzY<+_kN4D%V$E->_zQn@O({TM;?nEgxyUK$% zES>7sESW>vW10@$zC2MjCdc?!)ANpi`OLST~5KW~DWh|oaLXr@@BHQ6q#365;_ng0Hbg5p)CF6+a zTCRuohLMa9@hcr+k^Wj)ANO?JLn55K-e^>1uz49wc?jm9a;@eH7A5_4~OhTR~UFB!B>o374k#68k^YI;NB%0 zbpsA0M>Bb_iUOpIeUr6op83+W=YY=HhxB7{5dB)J*oGg8HJ#Tc>ye37PWe0nT^^F` z-0!!%%xET8Tz8;Bs@k}+%pCB5miaR&-`NWp<|B$J8w-{^*0^6}zdD#xoC}P}rre)k zrfM+bvIPFPdYpGQtr$?LKNyBv1`g!CCQsA26$J3k*Lpni0Tzfw-PpFXZRY{f&p2zz z3K#Rv!h}L8$j;+N+gGMIcslkIn|?S~R!m4&&53G2*FmmDhlKk9DqZ*0+n`*F1;!c7 z7dUW`@c78v?6r@2#1;Q%AJU{n@qRL4883({=L$=;~ScC;V8yx1-THyG{Jv%>KWWNeQOu8epXNe!* zi@Ir`WHzxL;1Kp6OO2`ARGGjbMzp=0o>6?Z(wCU&lzdpYFA)gVW&@Bb>3wZk7*>|*^b(qchKN$ zZLW)8H~py=_?-v!FI+2!)H~but&*qwn>;PP85E-%dS>?reW?>O*x7lVZfWLTJ!5hz zgM7s~nL6_01_A5qEYMcV0QJn?PC(_fsabdXvV*x-PWQ+O+kqIL%pea3{&fb^ykL_J zN5EudYI?fQ*FfagaGKX~mB7na4iv7z-1s_W&XG-;xeptEIl`h&|nc}xVE03I>{gQ;~tJ3BNJR!g&+#amjDdW9gx6%nsAa}D~wACWVv z&%R^Ngz_exK~k#FQOO}na;F~0iv*Ow8*bQql~Jq>XH%V;?tA|$uaaUXvg4e&Oifph zez}Rd7$LWj#&Q0-R{Dff;)}A|+ioq^uegMxr@Vu@mbW713QJ$%(!IfeOp|DQwOIIz5!trAFc{fzuT-jD6B_A8x-F6+(c zAoer*ow0tRJq%Mya~=&Q;L&vf+Gt;)MABzU6~ui>^ptz6C+rmFKyZGZcRZZcMIi|9+Jyvy+(v5%tL%rnzdo;SYLE3i z+B=&C?C%CjKH@uwN+89USz7X3Kz70f23f$Pi^mGCP;P2ORag`5e<79-)<-3@mwKzE z1h3A%ASUGT9mZtRmIYrmjf-e*AXt+($@VpOThy?V4~uOXcd<-jK2_+&94BOrNw_`A zMS9vjT|-EcHH&&6$o%FkzN0b~W$Pfa`O8*CJcQEo742afn*{kZ{7tcCCSn`ViR6Zm z1z0%(Pfa!oL9No~MZO{+0|Zq%9wrYz1Q6EHIB8_Q>CEXb%b6OVvwX8(-!!vJg@Nv* z9e)XRFnpRFO@R`0%>j_-3~=Tuy`kNb&n4-_2tI2&{xq8pxcTvB+cGmd!&OZ?uRwOyGOuE>Z`6Jjp3$vY37qgdJO<0vbQILa+zi9P5Jf% z`Ba<ajPOf#lu3G=M2rNTkb-2Xc1U-| z^VGSxuu~#6CpbJ_q{*SB!_Wo~0|dLjCsHp#4&3v#fV>g&@ZKrk)Dd?&9HgaW{Ty1E zc}+)&Nr3aBjEA#?;TU?V8n&SQB6FzPI%XM?SN8rg{MkeW%l3MUjW=wS*im-z8;xz1 zJaq^2gV2Q2b*d zkP})4eJJz)Q5O*JdrB(Zjp~0C;Pdl>Sh`c@o)4c#0@^dg)H#xKAax9!%tXGpFG(Q9{8{>^Zi4L>3it8dAZ19|_E z9XlsD%)UB_?kB_8n1&X&OPSFd;noJKQ~4R;7cKwrI=kYL{ES z^W&UMCUy`=Zhm(X@095KSR@f37EzR?Aa6%kOt~q_Zd3-mQ!QNI#f2HyF5G-w5*pd< zo%CFU9tu0-f0J&MoO8weZ~@0Rm#Q~LZ+i@>5iA(uGR@=9T#`qRaP=rfsJ`*qgM+C|9XSyI&WNG|Xig>S^_ZS9=Zv@^24h>+WZ6ou(KxWn=PTo%v^RRK6`-qFjEA{&HBTeF~cQ z6fCKQ<}5N-8%E*8a0GH;;elVP=4R5+XPHqbvrJoQ|SmPbd&qka}Kbc~6p^lnm(VZk{KKu6vQpZKHD^7PwSMOYAma^~YTB z2g=?J958%L%JWC#6sf^&Z;b;sC2IS?$r&%c&ccr_*wNjn=V<+uikWr@0W6TAYXVE; zcH%F(9oa{n$NUB87j%NypI9Y4ZG0|ifFDtc#6P06 ztnXMb@XVzhw)|sqHXFKNVW0il+;9lT$Jmvc==V-@g!@5xGzF}owg^#)y+?^)GiD`i z6@;+~S9m=_CZ6CsCtKBwlT6@$5bO{85yG`&Ey+xJx_<&l@DTeGdqy*B(-FsrnbTc4-Cve} zB&W$)HSq;lG1NIlT^vF*OmlHNOUG;ai*46{3H`1aYihVycfpL@KG215AIlD961gWO z*3OO%C2p>1jCL8J{cgF5LDV*HWT|qnV9fD*F0TjQnE`1>^t$t0)PhfBova|}AAKrD z<%y5Z!ogIZ-uz(vSr&MLm<>^&U`Hl^yiP~9(DR^%D*Biz-0QpRBkxJ9<(PGO1iyt5 zi+Ck|k+hX>nV68~#GxC@Rck&6X~fZTs_}@@ABe(^)3`#?PWQOh+yF@JD)VnM4;yAU z#QcdlLFQW6y>B~M@E9`csp6=&4EFJ1)rn4jo*_U5>P76Dl*b0rY6`Hk%_Rs)HmT`THWDS(HysQjov&qC-Pb1Y?^%?1GcjuR< zwDh(C=wrFd_nISY0!~~!6}yZFy}a0pT89JKi05DQLJ7;97UfLaZL>5rvFeA5o3;#R z?CW{Ig0}6~NLGkKdck%x9OJ-1XJfPQhG2vLRD_MO zw-UC{xiq8?D6j7%`pZqOQt7dh6Fiht@LXRJe3uGm@3zpj-ETFP5i&ajZ@yP z=XC5aO_wK{5CMs0KRA_O85-H{cq;)-o!$VlQ7RssuU+_?IzkgsvkQF2uV6?Kb9wZw ztak+lSEI0OVlN$hwYZPK6)Lqk3FB zv$n-elyZ>_vG>));mv{?XOZdJCruR@G;oIg)!V+5Y>to$Y}Uv*4n!NB#gNSk59eB` z>3pK23{s!LW4z_7At}sCz)oJHc(Tt2{@puZv+|WTJ#>;4Y^4x}_ z{nIIUuoUI!7l?~KpY{WdKo-)Fcg%%Mc)Wo%sMDr$$H@T9uJboGX3}MlUi!o9%UbtO zN2S(CNo%04(h{d#EVd73UjID6*jS_i=nEV`sg<{;a(41FO}4*|%ng=CX2}m?kSLrxK<%|T#?$8_dO&!-6Yge-` zs@u`i2Gp$(d5YZV)~&VdVF~ zI0S%zF~$<>d2OK>g~{C2bA42M$tPN-`&n#I91mdUC&rWL|T-7>t%29&x_36x({t`|WX?iWOj0)|ql^D>#Yg+fe&|l6cEC|QnZHJdK zVJ%fjTAXOBT?;+f-ZJ6Yx3Hme`?$)(T6FViKB5FR0qn!8jSSj5_}W`OOc%pNx2!z8 z!@<>iBaWulkfTG|@_8(by+uI+xNL1O(Wup|O1AOWx%l?b;u;k}SIs!_6GoA# zN`VepH&qEc6kN8hEf3-E7}Hme2ev`LsxI{<(GSV1$|oXyFK5k&{Di2!L&%Vuxg@rf zdDZzHX{1+f_$lhRR{T`VH_tk}YQ#cZ414HcRx1p{u4tLs{_^9!$hErZS!dSPp*6H6 zI#n}21z&)$!wKKs5;w36oa?^xiPWCluhVaA(o-`Y{*pm+Z#pKLlu&edJbI)YW>Tme z7)YTlildGaaMv(SMw*beZ2GGBTA+w-hN}MB@=c)RCv}TgQN38vnX*kVHhqrWoxmQr z3R*$)_l@FTO|rAgtv_>f-fRd=d2cn5o-1xT_OTj70Iu){{-6f;OtCTb64rVQz8o&E zCTKXa(@n&ix+yAgOl_p0^Le#Gg4i&YR?HOsywX840lug1kth|XlBv8PKk3++=OSMa zf!9Eua&mkJ9k6g4$b$Inuva}~bUf%gYNl#0HzHKe8Y7aW>fgMc3(Y2YTuwGE(%-Mq z44~MWg5NOjKgM63aB=rt^9qjf(mGPqY00{P-qcNuA>;M7^l06uhZ%1|lK0r_($0ie zI&U`2_LbEgW*}e%-A=6|7rK`Wdk#U{#noQ99#D=zS|K>_g@N8Wv`370nMgGd`tU8$ za$!mk4tPtNuO=f3ZOXQRnvbZ}qtB?pb( zAV_SiY8);Sr5Vp()AuSaNuYQtHjX2s7^F`sa-*k|x>F}oq{JK7N#!diYiHmb6Bl2T z+%`cOecz1g=h}1rknXCPAHX&7P<(TX1p>S$i4tMX>Qh~?$3tg)w7YPRF#3X%>qee} zce%;?Z8bD#A&ji2qP>ZF0Bmd`B~s1@-`ng%=t6wlryButuL!*{2#YjC;5D&AA}=?F z1IldG$G zVxf)dCPLZ_)6jl{R6>7|)B}qvtf2DCE=1!>IDq! zp0s5k`-VuAC34X^xBc2z(5S_C_JU3Spw68~FTiMp!@-5C%I@atsmL_5`xkDv-O!69 zP|P^ZRKm-4Q3O!yTo|qs-C5IsfU6D^uIXV3f0YRbMNlk0*KJ7iNQtf;t20Ar0+@md z^R_+duy9FuJAa16p} z_&CGneZ6xvCdsAs^pW!&OE22SJC*GLo&U>rj~=98G+Rf;w%U2j{|fx2mPxr1A$14> zUVVA0aua4#>v6(}t4r+wYiLVN1RU5zpo4^4Cirtwf3CDmNte#2{L0DWMAjJjNy!J` zTei0`MA&{{mB{XVUz$^?&uv(-UL`-n&Rl?VV?5M5}4JwS})q!PG$_A+%aqwuSLY~F^H17RDb z;&-}Kq(o2AOk9xGCJXvta6r;0zO(^y#s4;zxO&KGXzUlQ$Tx~^ojjNbC8wRrg7s~9K44{R!qWNOH?tWN)>fAB+_sd?r-MU&XyYw*Cz_Yhb z{uo1_U(Pf>MWChhDFlo#b=GEU0l4zPS_t_kj>0!M-)lkZw7X-?md>n=Z=E0?@2Gsj ze1PG(yM<%S8KE#rDbLD4&P^*a+RJwmgpQxfEd47_$iU*9*L@1+@AN zpNRug(&ui!2;705Az~j{!=~pU@Bn3s?nL5|1tD-*&(uzxr5aZoQh@Z$ zm=_o4;4jU0>R%`$ndK@67KY-M-EUwdYozSC>s#IB47^kP>rSoK zxY{5;)ibl)zw%lH_w8sRzrv@H7cW12Xnfx$Rl|VMw?&#s+MzZwPRCLec+TnC6}TEn zjd_hf{s^ouY}<`<@Lx{1Aaka8#&?w7Z3S@VcD{ECbmG&=oE+l}Vc#aIPTdg*PoCuqdB&W=RzI1#jC)mygWHx{I){Ev@#*) zPU?hf$BMfHO?=X)H^XX1BElML+^qWim33(P$S$$PaOM5Q%A-kRAqL&KFt=M{9U1-^oCD$qGwoEm zsJo=?Xc=`m1Fl{Gx1zKb>27#XhNk08E_f+z1QHj=j z%G40qk-J61`FGj>VHtMa+7AsY@R4Z)GP(m=!=^g)Uy+7!P8}SXMU?PH4qS^rYqX{Q zHj?1;SMop}oCLlm2>S;5Tf3v*-{>@i%iScqXvTc$|ty~#)Y0-9iF_K=^{ zWEV+E8R`h4;!*el)nsg`7Y;N>YgZ4XT&nGF{U?X>vUGD<2 zKw9lJO3Fm~4OAW2A4{<1#A<`X$JWmhaZ9c`3=Q&K2NpC)5_K(7HpzjN(M4~_ha3E& zn=>d(SoJmXf+e=jBWEx4%XQICR3Ui=>tA!8bNO@8OOY|5fqe(hE~vtHvtL_bVqo}L zyW4E5v4`PRnw7(rsf@<`MLLRTzzBkWCg8jpV{jxr=e1)x1MzKai z;2-?`?VIN{M5d_^^6t}2vuG9DL_Zshmx~maxL}3AL!|sbT0xxJu%j)xE(K_6n{d@1 zf`G@jNE9krP#&gYO@+k_wRpBhj&`=a*82r5=0)|cNvr~LBtjYrDL&GP(}UiRrZsm) zukRHudeBOK8_r2FEbHy4sACes5n$>|AmTcU_9a+l6gVw%N-NG^meiV;2X53`d3!eJ zF}G40Eqc{Emj(Zlpr-hPVRYX{@0$j@BbhwfQg}8@++s`x<-3DI8$Ky-rmk#W>0!T7 zyLxrJy#IKO_yZ?)4JXNv0Nk@Q>nbfU{;cA()_qTZ`WaPL$H!Skc8nYMuOB~ z*C<=pQXP*+z8tByy=!kqq}I{Wb3yu!pOtOEwVw|WW@ZP1Ke+5Q81Smj1o5!D6tr4{WbuP+84(IfN?dH!fY!H*rzNnVlaVI%lQS_FC{-o3(6F z!u-f@r7Feq-z5sd#FaXL#O)ws&BcU--J6BTCooLdHTk+j8r>4&uiJFPZQwe@yDEW z#a%}^JEa(hSjsAui10k=cOzGp9o;f|s5~$&*ZRN^u>UJI+^B;dc?ksJhJB z<~ox(DFqo``BsQHHe{djl4H0GBCE{4T0y z%L~Q0tJGkobx+N!lJe_Ga_EZ5{Y}>~zV6oIoM$oBx&SFp#Z(*l$cTgps#tM%{Q41A zkfhR|+^T*02KUX~w$rJL{LK#2&gIEpZApc&5Yv~#V{vbkU_0ixlIe||icvZjey_k_ z&ame;>KF(iHEqaLDMcQvQPe^Jgm`P*F!2ySUh9Od+Pfv3RoOS)!7&#^8fQC9Dp~Kn zRoItUEn)oXBM2-O64WN0mmM1Q;v#Xx@^inH+b!fjICjiAGye&8oi;&-4uf)DVsG{^ zW+CcfuQMmfO|U@)TEkw>_7aJ_;(4~;2~rC-;Nm#zgQq81=~|HmU72SmL2q_eTePjv zt$u@HMqH)FtX-Rokqd}2NYGwsq+@}tQ#9|jtfxKzzcIgLVNTz`0(-t7J&5K^Yi~cx3V0{2A}U|MA!Nl}ai(tE6U(?U zX%<@Vrw2X>x>NRmcPv|FJ-z!kI@jt7a?xCUhZ)jaWTO4#}a#}h1rRh)? zB6r8m^~SVS;MNrs3w*-XU2^{4Z$(vB&!&-a85ZZAZExn=r1bKo(M0;M$dw<8Tg2H- zjI-en?A-3KSgw)RyyeYDrN9T83vM`l8T>P`t0cj#;P;Bw^X$GMW0(vwdZVD$z+J9J zB+oIpMlU?+&;SiTu^>Tk?Ao`sge+A2hZI;InQn*8-I1aSX)(whC1nxB$C=Fz{Evxm zBI2s#i-KS$nC*9z?Hk&=tv5mMI?pf2O15p~bd1eqCVxDht+(*~xxXb3&+g;;*6_!{ zZzsnO_M7etE$^;o1lY+5(I&qtr{>X3?_tn{QVG!{9D;w3EM*m-!F;;v_j3n_H7F&R z5SNp)UVTGL8Hu_oC-RC&W}E~zVyU2r>j2$_{S58)l1^Uz&i*2fUbVoEm@O4v;9(z$ zdnl8#*|MkHTJb?UvG`qMN099j);|rV0f)5Ak8lDQJkmTcWQT1{qN`X{XZneWS0*jc z_{9YKak$IAzQ>M;Ur7x(jzx$#%&u6hmM%IbE?5T76^O zw&6?|R1RLuFRPkS?T67Ml6VRv2$NYTM>B`iTk5FPgJ~^kg$!I5Ma7LoqoUw=lrFgC zqtdR1F3wnuI^LtXl!dcV8?yhmL%gI-CdWajs5bVL62> z#CLM$xrNmRo3rW9C?mlg{t9iQ%x0nkVB!+xg6sf%eu~{P1Bsr(HNdKl2dJxKo@LQp z&pj;vc(H>ak97!$v<@x%w}@;y*CH+rse1^LNyNnMBMq=EtpehP81Hyj#d#yQ#os`1 zuQiN^zMXxGLo)}lUqW{ z)zLOIbJU)ylB@@8fxaXv|Mwn{IvF7B2&4iMZ+@ce%Q+}_>2Qy3$%Tdb1 z`3UWA&|NY}elWz_Jr@i=UT;R9HHv{vV)^Tm%GkH7rvd+ox?fsCJZhhqh5~MFg1*~n z&Hm+qlPUi`2ne@$v^VwTiah-7T_5 z&E=s>0n`uCv0I;HCMYEtj6?|v;k9_lw3pTxdp+#I6W2l0C zi$bJ~-uo%E|joJ@2Rc#BjeKys=;-q38*xZ#l>-cw3tkJAqC0;rI1Z$ z_;h#Bl+WfWSc%BKEoP53zS&iuSH)hiLG|KQMT46c*r&x3&aIQgqF22jR{J37X7~zz z%iFhc1bn`&NZ`n8lZ!xOqAipEaY9N}gy2FmA_AXg(#$JUe*6`-hBzRAR`$=0CAB(j zUzA&>AXwdl_Zw{o*Mbr0l!lJw+pog+@k-FSRVJ=xFIBlMMpaz(ya3OX4)ix0)wE*Q zRR0f-HaXD<^^wd|uE8_9#t>)@fJh|oerw;j!g!ZBqt857hAbh1I^gAv<1%UQrJ^h$ zZEcU~t(lxvP6_XK=FUSP9E8r0w^H6s>9W1tB*dc%^XO%V#h|LBZ0cR)vjLy8{PS%p z)2&GCZWq^|=^1damF{AzGmKxU3IcaIu6dVg4gLynE2f+BmJ&qjCi#N$zBR2Zv&Fs{ zS$vZu-JmjN@bfL`)e8&?aOL1xpc*~4QM7&&T{@CezO^Gnt|#CE1;H$wemNCGLW5o? z>!w1ptBq=%*{4!0Xo>jgp&se%?#J{JAl4Sm7pNcpF#@tE?y3=I4?2j>LG$9=L=LBu zbwd~wQ^$S*sxRJTgH9>TTQHn&AFm4Xh1kh#zZ)2;N%yoZG`C+3@e-JO5NhU-k-cpX z_U~dv%E9L@J&XAwx1aTv;1JqY$l5hEtHO(T8fx(UM3jpW>r=;PY`|OxIFdjOfZgxQ);_C4!R~rShG(#({zCt_mO~*BA*UMTkUqJ|kAYh~WY7X5- z_DQL*IQ=yZY{?mINVx-JrOZzb4tz$Lg}JsO@-NNB&eaT4(BO6=ht12$L@clpwQUqA zE*i0GxswQenHi`^5^9bHY1C*4r^x8-j9VocC8%!HcyUX!qF9l=*b=6&QOjr;QiyE> z_L_1IaE+wRA9F){nW%upcld^)W(@l{0BE3cxt4sk*K|U1=1JW$hqd6GIM^_ptT)XZ z^l(7PcmUD>YtJiRgFs(oR0qJ3(MJQU*j4l7>~XGzH8w{-h~kqUWdPdjQ1S`(Wz6ru zx_g?;2*5;|`Zy0-kxl$GN(zM=TftVz!H$Gh**X)OvyaiG^$fUFX|;Jo_dnLeo2B^0 z>ry_KfHf{E1)_(rR6=O{t3dK58FkGLmW&PTZ45%y3Is(_#xk*x5`3taD42`sm3^W3 z**>bz#O5$;|FnN)7FLvn-jzrGH?)<)~*+Z9d^$K4A0yRNx%?m(-KCk z3SP7P=7bi%3{jzk`!BRpNs=shjCBHPY|X|Xobj!PPx}pPhS5I*6BinaqXCV+a&88iB3J3REa;HzFEraSYIs zh8xYS{xgf#GxE_Z1s4`t8kbwb#&Q2v@r&BzGe#Vf+2YHG z!c3WoE#TtWopFDgXBouR(hb_-^->EJoz#)qcfW5!Kd8r85EjunEWL%l>%c}f)iua5 z*M+p)f*Eg1x7f#vfMOE`nP!2yFLh8aE*RkbQVT=A0^t3zDMHZ1(IiK6T8lhMuooAd zECUPmo);h;eFF+d2jIioOYV%zamwLgQPrmlY(*AQL8#)pp$clYiiu-T?w&c!&E_s4 z_znI^ojOy?RtwKymS4KI!h5{1Nh)gZ8ck3Ogjpv%#=&rCc+wn!qKcy|VW3yb@r^)( z_wJ?lS0Gg>*4&3cCrRCf$Xf|a-;5XfNc(V&* zZ~D|mUKnBeQ-6Yw&4`?r(|hyTmSHCR!JQ<9#QVEhm`UoVZ$YWfdk$Z3eTX2+w_eq}$W`zH(FWw+1cgX^r0RigM3a^&@3G6L?&0(**`!aHPC%Jj9L*AyFTE4H*#`spwr$h_=ogts_K zt6X8rmq(Z?QBk4R(6llAq;Vh~$X2;+JwZD6>oC0uvXYrc03LFwi?_xeZzpK+B@W(Q zKM7j)=SQL|HhY2c#}U(V1<5uUQqnZwJI(?v>E^t$TBK+EfLPT}oU+YkgNf*ul!e`E zv2Cb#;TfwxGIk*oKjLEY~$P2{Xm;mt+oW#R=o8BY6)&(w@I~7W?-C0s%f1))=CUF>Od1t zuP|2T9Pl3c4rpT+oH>Tkf;K&Kb6T$%?>+ZX=^Aw&KWS2VNU{GxJM7*nOQ-mft|Dme z0op5ObzvHNhRsQ=6h?wbXP*iem-jY(PCsPtpaRs>hz)4Yk{$UKPTr*61m;A=%|BV$ zcB8X+79*Xe=ti4cO(cN@qowO157ZstRDAz@4qZto3O;-AfplR`8Z>kA+kaA-ISF86EwPuQHF>6L z^Un6-XXKnD*}_kwur*7jy7KxyKQ~^yi-P#cmF|qd`xzo}9ug5!W!YD%(&rW5)xF;1 zah!Efi4$id3uhbfV;2}$1YXce*{55GLGK0kCMvxANh=mA0RIjw6;@nLM#XW2ADj#? z*OHDCx#U|?Fl*qcq%`Zk??z57wr3<%Ezj_Z{Pn~06`B0Th)Mer4@`Ol`T=!=K+H;8 zL(S&EcKEgrYfHsO(&E-n;)VIvn-&!#FgAsKE`=or=mtt(Y<9|$)fQ>{2aDluAQz}7 z3Gle%G*ET=A`{`|RO^B0z*aen>2IrUh}KOR5}&R))zz1a!oEZ*z*qn%2vO>51VkkC z-#Z3Wgg=jXc;ox1-XpzWo;xR|?eWT#!dz@0eS|CExPdQvrerZgw{tvQ48oH}g`f(OLA@k3_ zEnjn&kHx-WRnlW$G9^-kw;9QWsckk`MKReO-Qd-jrpzd94^hqC+hPq*rR~P^tRwj2 zz(&+{0k?-TaY)#Vt|eluGSxCKgs#?%vORX{iUi8dzcBq>PT{GEJa(#u_G@u)(*=%e zDN_a=r!!{bND`vKJFurVyoA)q66SsG^6Ub};1!3ADM){93roqj-g8;IMKX9@u&lY8n_A%o5crp%eRm^eC& z?kW%|%ST46C#p^uScZVF%@y>1x*bo?6P!>BUF9YSv(MpY>-X_8#jS4hl7xIi`?mRI z#*ho2i$j7UC}V#Rz9sembwtjn8ClAm=M&7&sf@DrkKDssObu-bQ4NqW;c=k5A*FfU z#RnE|77heopPn|tja^@_`_;`mr@)K(@+%(B$(kDHa{WzX`Nta)uw7AO>L7_rrd)A_ zpzRVV!3G(|4Zp$?JrX)pNjoBFuSMcbH2B*g2J38pcT@`)_icn@2@7)J2?YK5eNoV_;3k2qncr}9J^~RRWslM2wnYf;i=x_;bU~{F>+ENxt)*tX zReD6DoPIGNzwiT;>((%(AkTWyM7;*^=RcU7an;Zhz=e`mwE1!uG)5hA?U&&9(^b45 zPiPx0paRrkPrX*VIRukQvkHoU#XN%-RDWc$(ylBW+1FGbRvJuwRl^pnqiAm0W8zm> zbdbQ$`UZ#N$0LL2ZTd-~itbPb#7PI@s%ng{!M<+#J>9MyrMB8^`+dY_VB(xZFrkDV zEMJ}Cw#qD$7Q?=dUD-7~zXHH-mu=&pL4_*hr6~h9DTdF1eKP>=m8fP{c@y0s6PqNf zmc)y6R81bjHx@=zKMk$M+N&lFUz}2Jp)J#6d=hn0Q_hq`o@X_}hemV^njhS7Lf%=W zffBpY7At@QobfQNx8b<{hrKslv;*5G?qJzSUSOffrIt+AF$KV(5{1ca zVF_|Mb7G!85n|r$dD=4lQ|+@9(vcdjr6kuVahDJ#G?7$lfK#L_Nt*vDlUv0>ID^`Y z)pxMlVaddZ?inf z&;VBHJzSpn<4mSWn3yYZ`^9Bp>%utUYIyJD;%DZN^@H@_w383%j#ICJ*AJ~Ov9o7O zSxJi`95(87NjVNufX?+!sTO?5Md|oU6j}oUeKhT8{!|?n6{XK&ma9|-IMv8&28?!H zy4L;K@u{JCm#wcMeq3S^IJYs-+rcfFo1?Po9tRod2$3g)ZiKPArwGCX^5S(o>D&gq zzZ1XS)@YppLwTgpX@C$(VQJS z-2FHDe*=NDRWJonFs2M1h902nP_)7TCRN6$kqO0dwwnPm_tbhfBiH4vR&g7K5zeCO zPnR5P|9=@&nt#m~%h20d;yc?=(!W<@IgmTK&=&ov=#L6r1}K+ zk|h@-RQjxwYiEE1sONJ3dfe&lhP|y}wD4gg<3l~qPIKoS%>JL={daRL0!1<#^9~l# z<9l;Gei|@0fu3OS{exX(862aj$b6&AU;ZcTec^YN$fq8gISK!AsTN;{<>2s#{D29w z2uC?Bfd_Hbfj}p3g$)H(ygetJ0NBJ^n4)xD_=J(j|eO|ux)qN>$ z@!j?g@4GwSUcL28_tg)5oc;GZ-m1S3(q-RkJ?@(QN%z-Zea-jVkA14YUhlt1e)`k< z=^wqj+WkiN)6d?o_ty^Y-oAqOqdnYf)IHGY)qBa4KzFTs=oRm){`(t!>Th~y?d!Yh z_1|@OzQ6nG@9(pI`-2};RK51|-)cSf-}_Jg{Xy+;`a{zI_(fZPDG6QxmDHLxsrTtgW>kEMd!YhWog-%l z?rB>wuxmNN2rGw|&dCF!`*hLy8(Od-n+%GJA#LO}MDT6UvELl)Auo$!scnxI_h;_mh?BsV4f;L$#TD#z> z9VB<+Bl{_;6?Qx_7cM}oQ`-QD8^|rN|j7tp~RR`!e2E zM|;gIRTsNIcZm#u7$JA~1%8-=+LbU){I?VwpcQZL1^2Hj9ol^k`BO9D_fCC$3;dsU z3r(aIivh7~ms&e#BgD|gRh<^`ff%fVEUyQ4-Vcfw)A33+@ov`cdpmgpEAAzK>6n2* z%K#jQ$V#rd{|ql8noJI$TY^yf7|d`Vk@PRalR}J;r#-jEl5E*D2rhJEtTpPE3^d(T@;HcP7rHrsz-~b!F z)DEOQF+bo0U54LAQ2k&MlBDW5FbM0W@OsAEak)gGfa9x6elSzPUSA+@#$1SC1TqoB zIdrpY&x7agl^aa2_rS9A7R~~nc^Mz@-D9FjZG~M;rJ>V|tmp0|8&I8M+7}CJ%lMTb@98r0;?(kl8SXu3%s|MDWtV_#WFPu; zsFx`a8_o?}Klvp!0WH1PFgW3|8Oihhla$%p`b%&Ipc>SyhjfP>k$Mva|e4OP#(=`GoW= zU6!U$Ng)F2)YMul+Sk&zpT~}O5b+zYGjx<_X9`O}0uB)d*9W&y`||Kn9hlqN6Me0Q zh4WQDN(ye}b5&yL?H$bT)KP!&l?VvY5)8G#6k`+(ov@j{RaAfeWv42paw6bj{^{99 zY?hR|HkWm+Hrj~Z*!2cFSLr(Y*iQSG=^iQDN7TU*ednVQd^JE_=1rO+Q%zKZUn}6d9Em} z4>8qK{KSX9RNit$^^LUI@4xCu9mxz&F!G)uPJ4?-(gSTmZmap9@<}Ye^{!N}raTI{ zf-I=$lHHaOsUfA*j=Fec!&^W8z3{d1mwJK$i) z{$csaO`zuATcqIxDL9 z@rtFppD8X#bMCcAfiBz!IvX?Bw2BiG;s-Y@J;nzLf4FX{D%6yfh5_>i6P*p6?k`l zx~@lUH!8NL7fE6le&GzdV>Y82aT1{B40wGrSlZvyZsjgTBSH{ahA_Qm`lJe`jWQPt z)t@}JdZmfek)EjN;MLdhhDZD}B2dhm?P!b!Vx|c3J?}tSMf%k#owtylw@lG#Y9(4J zgqe1CG6tKHsuj!3A4R72rmA-Fw2CLG0Wp4gtx2+biRcFIXC`>E`pqKVVO_z3f0y5A zuLYmVDgPekuGqliT+#{mF-7&(+`X7r0@iedwsHbGLppZ#FC-H>f8@o7%%e`Eu3Yep zOxRY&-P{|F08t`QZEy2|02ok!V9#cTe#PiYE&2B*}zs`Q0nMZWXC_HrQS^FjDZLn$A#&x9%t2%pY zy(gZ`ek4Ph<(7GuX4G~lWoEa2a;O4_Z|^Ra8d_ zLau~Q)~c?raI>+Pw1?%9_IJNsQ~sTG)y^Vx(Lqx=UtKIgx|xpLU@Q4SB>`xnnUE0i zeM5)XHm&pF7x~Xg^)1%472Jo!-7gz2`sOf4fxLRrK+RfmedU%d{~~}QywSjHT%L51 z>MHi^t0ZNycv4;mtoH+tKk+h`{U{qsWf!ek(l)YE8cAtW{=#}xf=dj*;Vu zXWU)X2r`rlv{w>PnE`O z$1%?hJ|YSlYncm)7P)r*%Hj21>i0={lXd_p$6c+{m0O|r3Jnuj-;17PB@{A!YckZ^ z470N9{RqyIOR@hl!eKF7B`=5y=0PYa9-!#6PD}_%Su2^ZyZGy5cynNE%kQXqG8tZ@>-`PNcjPU@D6uZT3L|?qE4Vm| z2D|Oy5lfIijQ0sEYdYTbb@4;_uWu`15Chx5&XiIG zo`{2EuJkZuwGxqb;;{oXHhwLe4s#RbC6m$vN&3dc6W}AQ=2He9qUMWg*b3O-grYD} zJfeH~Up%F$jSHWcdTCWs7oz|er~HrWQV&CFx~DSCjcmd*Jt5kvFb7oK6ozr}K|^ic zz26-C1k85q?sK@}C$c0u?yq8HdE+o9tq8Au;ohe3KI-Rj%_h;|zTU%jNxFc)TKi6Fko||25)+B+>A|hZi)7A51*s1k!JSKY=_`KmMvOLYFuy6HIYC zE0kdD-3r7;tIx^VJzr=zez0C(%#hXXg)V}N0&xw&9&Q+QB#d#5SnM#wM1+T>BxBQ*M$ zluC>bs=g+caEQ6!l~;jDLPVmuTR1D1liCYk1YX|+^yj}et9d!d?zlU06cR;?%a>{b zdFOMJSslppFKGPU-Qn;1nb!1@3>TBMuO9m!ffeC{{(>q_Ri{--ulvX4c`#rI=Tyd2 zAcsBfP7CZ3aSQhM`P=C7`Ft$MzFUJ)C*K8SXu)D*mNkx8n?9hud4qq!f9Qqs3Z5Ux z9T>zST~2LzY+S}^S~$kEx|@rzndutZt)lt|oO}%Km{sI52<54I7a1E>VmM4nvN7#w zqG|sVAzbk%AJiqXsSsj-_0T=Nnc7=kBxKz63C4tG4Y!vE#MA?YsXZ{%u4LZj&{Op*p{1WLV2tojyp92?k&iFO8Du2m)ad4 zNq;JzC%A>6ru1Y1RAO`7q-5wDI-0s@bENarO`6|kEhf|QY;P@iYO7YSU3^OdbJ64kjv>s~HTht5i8DM0ImTirMb z2u!2$16dM~HjvZSF>W(rcQ~HP9%vpHkCkHC_ll35&?mPQniO|(DcE;77+#yJ)3wS$ z-$&P(VVSFsvDeZ?1Fgx=rcR-CE!CDr(+~|QUTRqvLC6sMVfsWpzYz2idwd=;57GTR*UoC0d#k7q_Bd zO*V-hZ1P5s)BBGF*MoxT2<7Y>vfk6mZn}U0&V!_yr)Dy!*lXp6MC(%{Z7IQUYDkyn zlG8d!kbh%dM+^|?$`6Sw2jrM96-FO3O}4Zw?Vnf;V5|74xU>|!#D#T3FO?j3LK~t( z7#>rRKKXS#GkNULA1Pis8)@%nHRRDw8ZQn1YRQ(i*J7%tBZbM}rhR$@$=Q^sJN;>ZZvDj3RTH3_=iep|sn;kCDCK6B&AR58 zRRFumUXz*36+75hwmw)@?it-i_&du|{yqifmc3`sAp10QPKSgyYSFO9js)DEGM>ln zAv%p>YVuk+$L=xqwSWCSs_7dU0xvv6_z;Yehqh?>g**1`4 zFbas))~;1DYx=JjJ%-%YExo%WNldTmI~k`H3wpPW>o~NDE?U(^(xjRB$azLYJ}KIh zWXG!FX)sQB$6@HPv`PGC$>+8^1shDF?_mkJ{G6}3xrzHQZ^jkjvF2WXRP~AQKwYnQ zbfbyFVwNljW=7uM8iRt2#i-3{@Ml2b769DsX&4UgMrHF&x?7MEUJh5?_{-Y{3avz0 zBkgO+o}?>Os-+~m9qLXnq2;c>UPN|!dRZvn?>Aw9{HK@RGs+rd1lq(b>qpyhdemK= z?6AK(9_HXxvfbLhF}?}pEwm$!jU;cyre=z)KUbJlHi<}d)vgA92d!w!xDR&cBM?=l zkr^~JtS-B^Su}u*oe~4>(lQX$b@ib%u}LnkJ9vI8lY%;Gjr%l~e^pqlnGwLb;AXO02)(((g7E*o)4Mx9NC{h5|h`m%zLiRTm8U9+={2Jk1LN z*Ri=WqDF!3b*Zi2zFhxXu#02a=V(!~aZ-J&+f5jo6H^u=n2@TY*ey?vZ-k`GrZ#Re zoT`cg!Fuj;!>U>UNAJx#(SF$h0WE$R=`urSa}E}YXuE=tC|UvNu*%(-62DM?7LoPj zU&Ik6ILb~_Mj?HeggFRk4atZM7!WFR1Dlo@==}IwR27268WU7lKrh*&JXa>0w;ntx8U9wjb{yreYN-WV{OHIN?=179Wt^M;4xK6Avh1e*hO+-zk?&5E}?1PY`wnZ2zDm8nz*^exW{P) zc?hqPMOBpN=tsR%x*V3cSFkie($*Oj*78ENi@|09+8emFbgx>Rp*`pgVOGA z;M@VXU=NvokW3%$G$B!+G!!r=b%X%&T7Q zv!E1a;nr~_DZ6-zXymz@)6r&CxVH`E%c8HhKkMs2QPHs<5OZ1HJ*(q1^>3XFwYXmD z*GXm#a3D0LL6nG4O6qE?-3M*%SQ;E68(*UXKbA{z%!=;#F^<&^H^$rVqKI1P}JL}fHM>i3?SbyR*; z-qFVa=$fuJfPoJ@*XaqjheyNo_UkXIZ)KWRGid2VVWzodLUpAzrKRzd_I-Ov#g?r%eybOH-(TknzAR*td%aD7t=oI7p7Is+I&!04=67 z2~j{1St``$yJ)TYz{IhQqYcG1VX1})4}N@v)7>TziBn&If6R=Q3XSekFdT7x~?r01So43mzlZsyyrFg1!1*{`g%DVd@qylSg(}U&J9GIO3W@31a zt@AfzNYonfa3vf$f}-HMf@v!@|9ytR$XpLhlO8b%9YFYXW}4bDMi=c-o9=*NyV&O^ zF9k;%N~>I8n*;rKLp?kqr)>bLHKYu)(z5?ukNDIb8o!G|z8gLRXeiv{XH zZ|~z0a=#otdoR0rgoWYFgiM+mWx!!I>r`K(cy}lU&2}j3?dLaz2}fPH@c(5n*37cN zBfI7!(Lh}7jg0sdUH=~JKv>D54NuG&vSiIExa4CAgV|JuW+U`UPJcWMsXs?Gy~kzj zdo1+cmoyMk0DyycZy%4JP7+|ClB}j6_v=?J#aaJa4JMR74_by&e2CW|;QiQ_0g|;6 zv|ohRaEJ0VXW>nqc#BdwG_jX@!4tl|Tbj9aU352K=vb7#FIz<+_s6`sN`9{w z=(f7>tg2V!{co|aOQa#PsGG1! z7E4`GGJ{hEnCJzhd+(^E_($?kIH)R7+)?(rJ18-I~5PgWgr70t*=DpaBK!r3>fv|>7HNj(c_}s5_w#Tq%C9qABp*~pr5qZ~}uvJz>(#ce3&CaDxLz=;32mzn7Il zH-cYSs8@6$9I+4AfMnsLVR72|6u4^@(EPi~oa7=$v7NYRT9oxIDyGXakt+w98Eas4 z^@pvDPQ!gx5mlhjGhD&3dVC&-0vjejMFA^ zSYL7tcMY&w4#S?cUkhXwoaOwovg`o83B~_Xp6#fAYa-dB>E|`1nU`%*Ve@GIN4692 z>8rc87chDCuz)_Oe^#?{nVPF8RL8s=EvM zoh=*-l*}X~zUy<&k?p9t2CRQ|r$D3{mJtcOd;!xFS>OY=TYU*sP{M_G)Pzv6fq{ho zH-(5fd?8Us4u#Su{O7jN*WC6phop^68&oIh-lYyuz7r-{cy#j>2YUu}g-|9hDP>$V zKLYM~R>^o!m!(k98OQ600i)=^u?h4zg~k)wl3x)0`t=*gjXYV*Z8ewI-As;}1FV-` zUsw}QpS@w~jUX1f5+**TO81>uDSx%zZX*{+;JC!!nuI4K62<=9n=^Z&dk3*mB{<$* zk*CnU9N0&29H});AoAcRAfP-{{s!t8qBD2uujeEEF4QMr>HLQ?$w}OAE1)@T`ape~ z+&>g`AIZbvL?}l>N82LeV^nYK7+*-N0_T4z@(tWV36NR&G1{V%NmFp7WlBAr{}+Gb zMTg6`DLX|YuWEz9hhP@FYZ!(i;DaoL@6(WJ8+7kVPmuT$O6){%MeT3^ z2-%z+N{4Cg?i_)Z^tUl57GlIqv#Lh`$VWHKE!m(g;$^Z8aEy!CoP4u(eYF*ezIjr8 zdImnZRegqR3Pme>3TnncdkoolRCj714_$+QFfnlddIS71aMc&sR}@Yp7UkG*s7cM$71!{+#(+BmEIOv{tn3F_?Z6(*bSL_FndOp3eU&aN@zPufZ0kH9{g{l8utpY zK`K1tC?Q#*2M|bZO=Uge4Sw@%c|&-dxrHL8D!I(k2UHA2ukfnvx;7Y{H-X^r+TVy$ z7&#;)@2fA{I;wNYu1bV;z$UK55bI35G8={WFDfj4T{io3@=A)#d#|_<*ocG zucyCxKcHcqI8QO~Zyvzsef;FX(g%()1>o5tY127pGcIs-58owA3h7x?H#$j?t~&DVTDcW?>1~t=5Yn% zNBf38QtVYSb)y!(B9%mDF>?}osevc-ZusjRfbAnTjNf90(DQwM+r&$;v-gMw9K^Wz z5sPym^UhVP#wqDZld56Uq95!KKkROQcrswAE+&jX*$ymrB5nAUYd1=PY#)u%7A&p& zGbOvuMfkX8RjMHCOoW=Yt!%7u+2$0}K9y+zu2*C1zMz&SqNcw%? zBNc-dG#QWl%=3`10=bf^sdbt0gAo|(KoEbl#D$1v>FS)V39>CqEkKKd-)Cs3Tx4rF zHB(^3iN{!uFXi@zy&c$!oY>J63QCQ^FXh0y8I`|L(_87r3V|Fu0(%=cyc?3UnzDSC z1u?a|O+xCRR9H&<7npzYTlt0<_;??;^`wR*AOg)@mcXy2Y6$q-#SFdh2R`sMY?k+P zWAG}45`$kslAAUcJW|BrqLJ{x;G0@7W0F6G!SSp!Y4d z23HkErN*eo1qCm)`0Zd1M)<-uj%8_5PBlW@ya}j~x(T`}t{u67qvi^088vFJEht;` z2OZxS+z!+xl)h7wofO|VyxV&dFj89iddCly8V!J|jp+zZ9aQL>ub;}sD;&agbXVJ~ zji=bfu?g$~BKv!*42{%6dz-Z+%) z!7f5LkTmH_0ar4~@Me3}k&ots9+vi(?T_l5seW;uUjH^6B(rkmeoFs#RrLQ`{Co{& z0RiN%kG`8_L>+*!87ViZ}>ZXx_(uHa8xE6!t%7t?lUj&aXAMqdcI`msWlIXVQt`IE zXZ9MCWai>E)KqNd%Ag=bj1!in$+W#hVB%ealkpayvM(b9JB1*l4J>k08fwV0hW_Hq zD>;wRB*W~Ew)5a4;Havj5!@R!C^$S@n9t-jaGuT<=J}edoz857 z?ZTs4`@cx=N!*tN&J@$k7F(a$a&hme@^~Hx3rp&=CE&<23&(&MtO@%NeY~yK1b85i zq{!nJ1j|vE__=Mi<8d%%@>n+U2YHK}BjFVu9rzp749-t0E|3lfqyBN!P*-9(sF?^3Yh@pmUe}vx~FcBJh0FX{{g0L+IZgjDM zUGS)4kS(3FqWUeX5Lb50M+3ldpMkgi){>>5HF|%cK0By#hWRgr z`79X?na~H8PsPQp`MXL!#COaf+ji<9L)S#e>UoCp9yP%e}M5$7>Jt#fuXPmjZi4EsuAo_b8N zzV8{?mJaUS{&D(&3|KV!-M{%k*7W}Bv4Dt1Tvr|RZ)BjUQYkiWnkp8wYJd<@%Z%yt zU*;e;xiR`&X@@DtrF=6~*O(tse1Z0nd8&i18d1gJ)YqSbVLNtO*C6|`#S#&?T#q9R zx443Ep3qAzt!^flC0OiaG=W1-d}m?if)|U|)?c-&rON6uoAl}?2}9_>5HbIM2G{kT zLnp}0{EX)x&20KLSA}o7@j4G~W2r4+xJ0*8_gZS94lJy~^SdDoF8^%e+mR5WKe~Z~ z=|Z}p;HQS=P~qZ^p;&OG7b`@&WfG@fuXaM&x&z{>HAw4rh|d9Sl6($foY-VZTYAM+ z7u6T4ng@QA$1#?*i?3*x9}5(TUdBcEDs9L_^dce^MfsN54F=_7rLSSf8TNZVdM0$C z+fcMXXt*zTU@Bb{P%(^UD-=$KyO_J7f0s(V-0mk7)|%STl`hC@b1d3?O}$;z6MT)J zP|V4+OjBHqv&M>l6Q^0SaDS{^rH+VAP-~{MUn{L&<#RD^+_3c*jI)b9C=2ZQ*2Zca z!t5>M>#4AP!ASTf9qr{PCkM?4@`NI&E)q~uL|qI8Hm(Qx;*h;FQI{c5*O9o-?BAO9 zT&p}rL2Gb~f85C^#hAk>mX?A~h6mgB%XoiRrYrpl9r@TPkcK1%Ga5 z#5^@^PWk#zPoR6GoJuo6c?|sE?rSUDhe~{5=qxv96XL|9_spa3{8Z z8wl|I&i#Qg_A$D+*RGsAMDx{pPpG1mS;uE{adYbaLU6V?XzwWU^*&@c!_^sW%g(l8ds;}WEHd4`|aQ{04FbJ zxAw_8_wDS&%;XM!b+d+t3JRtr_X|!MHcV_)fA(a*JFmPL?*JjF`NirGQNSGHBnwRh zjI^HL|3?o)oUqz*A|0I#EKwAc;Nm`lFa+OQzZ>xc?&Vz^2NM4uYFLx^dY0XnEgXr0 z8FfS}yXKqOM%2E4pRhPApjSW-PKBe1VRWR_FM<8*_K5;m){2l1q#uN#VsSagiqG6L zWf|u6ebebC&>GWTT&1Je%BIC+;kT|sHlRi9_WN0RQ&Y?}Ql=*t?Ky+OXnlk!Hv4Xp_|~f#^k;GIia`eB&{VbHxc6)akD(*1DNXOIvB_9N#rAA5!5K?H3O_ z%XBZT*!UqMG3rg|iQMpmsv_~wh zeacHuQ5ZEe0p&$ffka9FL7f$3CPxcsN_*+S7 z#A@Y8dec~&IuSPO`Z%ojE+hRk)Jw(;boVq0Bq%mPn79=kXK8`;EOH%%FliX@`q>|F zuzf0LLk~+_su->kHxsQNDDQE1qn_5XNhqQa^4`NTm36F4pcGIApU(SX6QiyuXJ9cmDSuk*ioEy-Oq zog?d;nJ!X*E#8eXj6BcLfp5{kCfN=^SZe|Z+3EPSr^HXsBj4dBAV|M_;ho!Bg!Em& zMZoRbj{>nK?wFPH-@K!5g&7&yo9rAy)R#5Jcg^H-bSiPadkD7%PA6CugFBpJUCo@M z&UYN4{UxHvD&>6Tl%+Ge$t8E_=lyN+j0 zj+rbf2#VcGkaS8A*7KkPT923goT5$`INWXy%+ed6DfE90ZDdpE3$3cn zD~s>Ul9tAsOSLV^H0n1vPu6w5rjStRO>PLz>srRp2iDl`=y1B6(v@u7 z#_SQZ!l}J33Hi{RUWV4-@)@k{R-aV&%^{GVX+{zDdLeR(-)-1+mj;asC$QTw@5vp_ zfi$%(L02r9g@lcnTIuPN={GXIZOpJrqfsbIt3hYE=k&JHkwaP##^)Gu(newZk#w0_ zS5HdXP(ii8UzxCkt0vbo9_)4c7gl6nhhWL3#at>lTQtiG=j|iC?f(T{vv4nS-IMp@ zaX(6&D%0m>hJJs$^obw04(;(W|3yjH${$9%1Jlcc7PtR~H4qs0<@0r8K3ot_PhUc- zj1$*Xc-Hp0sEq%9{$W_zAqIfn z7`gnu#&m1_x=p-ZDq$8UOhUva;fS(6guu*bAchorq*kl0iRrJ};0u=V@=tUeTV-mp zmq*|R2;PPQ&Y`r(#hj0DKZ)cOTuDL{lEI@F8}(cfx=>n&#mLz<&4;&sxeAS&Z6aY~ z5M7zbz(2bi>=h!V{JU|h6;$~;)$d3&ZT&#vi^AehS(bKtFtcM#cM8o;i`pNRQoI#G zf4m2=koq#kt4sCKbcV2T>$ z9QN%I>=YK)QHz?f!iEK!LrwBt8p$mCPc`4fh!sVoFPZ_g&ZDVb0h`c z9$P6rU={%dd+Ri*YNxQ`;tRDT+Sl*9ftH)~%{a^?0;WkC+m3(9#jAd=YhIKmUK4Ws z$ave$82wvr5~xuWsFg1o6B&Z6cSIFi&lz4mE^<`{kl9{FOp_g?RHZUpajakd6t4Z6 znpcy!V<_k;3ip&5075{$zh!yB$2-O`Eh2^L(NV)@ zz+!>S?(y6Qa9GtZHJ5grt(D1W!t|TzZ#(B+SubY}){AB2IZ3B^DC9;fIRe+K0-#L8D_f-u5N z+1ci4m(;Xk)Dt0RS5jLln$=rr@x~;)7!MQvvou3`9uxv-V5qq z{8iaQ8&*Bs04tsVqbwK%0r5XVUtbT6y-^wA zcFAlaE-~rVMtik*gl|(zB~c8Qg`vHlzXiP=y6A**J)j7xP_XpwD0w%nYWZ`Y2 zLwP?`N#ih}H`NIp?eyz=hQrz0tFHpX4qN>1LdVTXxIflZCF@)z2~7K(`>%J(ZqaLv zyu|gF@P@D%?O$1XY|#Cn5h$mt%f-7OonF%l_{WmhuSoqi*lyjwnxRTgk!U?;fj~n% zFH$TTOTiI4&)E=n7d(fxUS|^eYY8mMq>p0qR(-DSab;Dm;yZxn#IZ$9B+1Bs>=n~A zodgS;x}S++^Bn^KS$!!__Vrda>$(#GgIfAfb>WAN$LkbWB}6`IIs&gD+8?tFbJ}$O zRDT19O4fuZrYysobknBGXFhbLnkDj6Y6qXLHf53qGjAb-I5 z3Q|Ti4*FjVnEI1tk6lt^MV2gr2>st5V7q4yolXP8j>im^^ z7KYmDlVL(z9fZ6+PxY|GMG?2E40jS@-)Jd^FU>~`rPe>Ny>ar^n;Iu`%=grGLM8@N zSPRK%?feQvEZciHWRESu@xx*4S`-zTmfdo*#~`UYH}mYI9qVsYfoRUSTe|Uhmgo=u`_n&?zze z{szZX=O7WCfArYipo~f%dbT7TbImXgQs}4UwhGavlD2uJ;jYjTWmG))tTi+s${qfxUAxmPz0 z)DEZnbXO@ecd3ws7k>XB22-z3H|kl4y1j?WWlsa{rZR}lE@WU;*l3=Iv)l_^OG_5b z7FIk|a1?NJzPa)25E2NkPv@5kAeDkrrZpo75rEA`=#`@p*M>1sAka&WsXuy1T0G=& zL}!P(#@sUxrH;>dLTSzAyWo%>17uGKwVIbqw!8%uFD6dNmr(gqXlqJ;H8^~LSFfLD|Qk4rZqd-+lkqt zJ&1{}aj5S9EIM@2Kn5U2+#Pq^Q(LeiX0Aahu!Zt66M9=$yE3Ue`G|>;pLwV?R2Bmn z>_vUaQ3hhKB-oEj0~42S%1O%s<~nbt@h=i~=Rzl|j^#xiC#~2=N7B37LZi-Jl z7L-wnZz12(BYW+o)i=9ot)K1bORyT7BPK?5h7am{28YUDol*O@JD(y(_^o0vFHLq6 zZ|KIWmRcleO7)mpz;-ozV<5pBd__t_#BRgJ*J)!WS?S+RtE{skI#Dr3yJ_5THRuq+3aiLT!E!0-%5=#i%P=@x18X%%j`(MV+!e-6SFRprWD#C(m#!4mf|1Lz! zm1#PeXcC0&>U@&vYo2z^#DvxA1`GG;Mi;3r2U6lo!iXlrP-TCp#Hrp(0{k!c&ZT@+Y^X z*c-|xeK#Ncy;q%^j-J}5fh(O|%FfNu?8(Gs=;_HzQxl4ts8&vb{k2>#YlfH%>{$KS zvuKpQjObT_J?4V-A~+J|O^a&kt|XteRlm&=A7GUGSgkN=qavcJ4X^yA@CuBYD8<9k zo!*gyh>~D!jPc{W1q@i%3)kaldOAd`Ld_f!{>f|nLC~r+QevGbr}ng)x=y)@Ll=@g z|1NqqP!gk_tPa^!Q{*XJsLT)aUCu@MU#iPrvjjZDnuE)R@6NiLlVJQrIE)DcLvpQy zz%!0wXHJIotN#*INdBB9pp$9Oc5}Mc*wu<=V&Y zz2G;Y&loVG5GG5q8aUmsS+Gq|?*eg~Jz$el2A~!jK;Pi6D`pz6`Bu|?6lzM2AVWPj=ngNjB34Jv zPl$}?tp7Vb$XrR^U~~pCd2k!qt#3k#eByv(`hoq%`8_`_MQ`NRqp@4bGoi=gpuJe} zCiE4BX<-r|FgGzro@a4|=K{@jSh5L3zdm7)7>e?={T+wSAz;#PA4f!Q3dJ#$tW4({ z43*wj=UKY8O`HtY=$r0}VZ>DCG|;Q>K5tbgu`mGSzl+`3J9V4l1aWF z6ZxZ9;`YbIGf5NP;%_AE7@K|Tbx2N)ssOkq-@U%c-H0f&xfe0pKBPgKP^l)m3mf9= z%)pe8=_7X0w(g|09QHUmGSGoV`@zkZEJ#*Z-~#!WNEmO->c|}yOKHJGO#6L)6Ps@s zjdP(Ra|e1hv$@Dg55(lO1pa_JQIMNIs<8vGCh$SSvJ(F>jL{?$z~nE%dSB;3l9LCO zQxkSJd(-QKfBM8v%6sC;er-WOd7&De~gB(9DlcO%RDj{$4< zMFy$hJ&fI%%i-cZsDQhX43nZ?XNt_N{z_?E$rOFIPL^Cf!C7_iBAQP2yz0Acm_%i$mi8PnGtH^w{jh;b7S>`-;|3*?XY^r=A-r-X{8qd>DtW5;V_+;7;Us_` zBxEiFe8&?@(V2M4^Q-_F8#5}}!W(h@93#`SHIHWOqt7h|@oviz$+_U8l#&t?yVhUK zjei4}f(P3F19P~LyF`QL(6{rc6|)j^wz^+rmZ%gPUd_+=*flYOz~RBn;#is7>r=ox zVifnMOG1b1Z{Zfne6+2^OUtyAE(AmQ!HAj90%b#p2JmWP6QZmNP|8@!Xb<)9kOBPF z0c@#WNX(-ESS4L{!?iuvY~H7NsH+&pCz;0|8#Ynvvjesm`PB4|tr`DCL?@e`@D}k_ zbkKCUPae7pJd|9PfCe!vR>cuPJQA}Iw^T~Z#{dO1O>$!0QU}!iX`yA#;)F6{RiRld z)TS-r#i(M!ImZ+#A1^qJMyqoA)-S_bvob&{Y~6+Vo)z;pHS>1#SBJwKJb50j{iq&l zQJLRq$nXbsx*?O-pUd|^qOck)^kwc%L>?Ou`qrH^(^%OU20IL<%Rx>B2eS_ybBEGhFp5-zEgWMk?OdwTKS(Zk$t^_`k;CIp%`#d0mJodkt znC0w$2F`< z9n|qYbx~k2(mryWZkVb)+B(8LIuU&_OFCOVN=bc$172f? z+b6M2119m|7|c1&S&loawa6Oj(%I)kYGW1N#_};`aCvs_8(uh`#Rm+p?bQB>r1 zy5`fP?k$6XCU<)!>CkGL{AiYV3vHc6Rfe}IGo{5EH(tMstRX;E`~s4f!@`@+z$R ztTM<2S1i?PGpMBjq#<94;d3ecMrEM}Fch8OCWHp@{QLqv>kcS$K*Y#4VtHWH*u5|q zNPQbRO#U?iu<4z>Xri|(t{p?napBKhEcp+%{Z!RMgC{(}znWqzWiYDvL||)aHNGM6 z8u-LuP-`$`nX}=RqWONzc*_Qa8~;~WWLF{gyzUPgGaFbMm)dqM)q&ziwsEMG>3atI zq+s=i-83YsMLKWUuc5Z|;Hf|+HaJ-~%0Nq)nzb|v1?BU}Gh1sc8}4**CS!Vql{F!} zMakHR)fq-V($ccO%%%M~THY)6IhiHLj^2_T!D~J`>;F32U12nw_>NO1{(46_Bk zrJ6D6&JLgFU6h?QY)#9r<*kXOA14upr9+$;S3h)A;1q(}|4mt`7DCdKL{V=nAh`_m zirLlz%GWQa(M#7-Sv>?i)wusxB7h}ciVRDmu*9s5Haq9tlO)+twK zPi%lt*$RY7$|$YxUBE3i{^B}^%U(#uPZ8KTh5T2Rgax`w1gQct6h-Z6Yba&L6+SbY zstUchXvJ_#^c=y75pve;^xBlE+mCW+hsjWDRyQD`!YcX9%?Ylqbp%#0i0(%Z^d5y} zlh;eiint=H83W9WPS`)Jj5V9NDfv%s6$7NXN5cgV-zd(RobB;_fj!^o9-jG*OVFi8 z&#c(_Q3J77vK@sjci5}phxyiPA>i*#t$obiN#w!yLrCG`t*;*G zN#9~blZWiGB~8Papmic$cXg}-(Y^Qzu}fmt@#x%YKX7*;hsS(bDE<5lVS3byq}b)- zD?g%>R%X#7AZ&`zadRP9J>ctmy*-bwaE@}iZGf>OhysIl2n}Z|X-6EX8#-gc)BU*ax~0NSK`$)zgN>`sEvpN7oj*Tv9x8qb5zG zxSr|T{{yi1KBBT(7dbv5<8FeO+Uv{oB|*-*IHXb^R~A=Cjp-&xM_ix~jy3LSaqVa; z**YBJ8~k;BsnTz)jPdWcVNq3KoLsY!QSOl&8NEVXE+IxgRONP^xD$EO;4)6f_*__^ zESx0ni}la>*bIEwFtAM-3`D>MCJh14k5?D%_^o+MUn$k90kD9kQl8E|klGrEd8{x2 z5%psKa%BLFK6pOo_1Yw(`iJ9e?bS%;32E50TWsEAU#J`(nUf(>yMFZ%<^0Em3G>2n zf3l^BEnmerjn_<+g7|7VtY@|eWnAYm!Me5`XO_`?VGX;a*f#i*$<1*X;d~eC} z>Mjh{T2x{BnE{5cz|Jsmag`)`l8PBH1`wLNeEcydRevrfj&R7VU4sq^zIiM5yrh5V z@D$Cc$7~xi^b}~&x{OhaXpFBw#5f#!*-k{;jZf6?RRrJ7obNSMb;)1G2H=z+>Dcd6x-R8xY^YtrxSz?{DG;3K%{oZ!~n$ z+XH3bXbnz7z}|ebtW1QW$Z=tOX;m9bnnV&a6FmJU|34_vo%oeLBNs~iI8JdQF2={4 zog4RsUiD%;M)hFZ;TX2=%qiwML&YF9Oc+^V@;3q@|r@Dy<32 zK|>2YIePFjsvFr;WxG<%v~%^U&hG_v zO#ERMx2LkFVa{SZf1uEfiM_ng7zcNMWAvr%mK z*P>VKB(4;O$}EfTw%?TjBj=#Tv4?yFs1+)F^idCx=>#K76Q6xLQby=tkTYA>m9efa zoJIlgb0{thGJ(-INh!oGaG=321Y71@jlsvwTH;rH9i{j-Vm!aUy~;QuCv?zE3&A`j z5c(#AzT(?P+1RUf6sj;mTx9*A^PRZv%*^WFNQCE&wYnF!ov&6GOo{E?#e*J2OZS+c zeJ!psZGxj`^e-vS*ovC9OL9vBrh#}w`WmKQL}jLNPx;feD^gte_ze&AbjuA{xhjB= zMk)cp>+e)WRO-{700KZLN}6*1bqYWQ-~1iRAz3|2Np<7RSM(mI7ETBR-Jy5rok zf^*tsxTg?*KusdXqmyn?3~SXCFM1sbjQO>z)UE$Uu8(ws zzx?}_0C1Ap?5RFoGmG?n;m9?c1-#D6@^(R@J)0P`QdZG3NJcw>Gn!6AF|}xqf*~!T zI}s1Md4pwPAfWA~+C)Jrsq7dv$Md;SSEMDT?2h>JZ5jRtNJihdEV6~5)BSH_SEV~5IV zvm+ZsqlB&mcvnM`aSdliq4A+YE0d6Oq!U-yZlfjHP{=k5T&}qj&mO=gN7GzPt1~4) zO%)#zHcErgwx$woXp>kjvBVCEw&e=qEeLoMwWce6XNq3RcK9M)M(Tnyx$~ZA z_d~lOoE$A5cua$-hYp*vL*h*p;}p;&WUQDGudO&!QZ`FW79&V$>A-=HkzFCZGS`xM zbyII$t3aZ*d>j8|Vn$3^U_yUZNJ+nX(K3cIO4v<=nL7HE<3;dEzmoGlXBumTFrX`H z;DD1$A0GZ1&66yiz-(nXf)kigh&61y+l$9r))~E^y>~Y=u3wJrIDbijcjaH3UhQh%I_F5`X6J8!7gl5y|ofehkyMlyh5K*+&DktglVkO z1#a1rFK!72i!J~~xXUGukXV-%QmJyqonjaMQgh~!)Xa%&Whn#uS-!{_L~vvW4F67y zx6PAqbYwiBrF3K8^n-dTeIj6(5vQ|Vt{~#My#SVnUF;Z}4>3_n^DV2RdpF{YxCrVQ zcsbb)7yBxIq7oMj7o8-t)>aY#3Y;P8c!^l-C566eaagFrON3Wz_b2eOxdSh$T3sUZ zh*xE19=5eOH*`=A%+c~K;dfVgIjbmYKC1;Z+-BAX)AD0n)N*5BrMZ7Re7~iG2v6>e zIr9+B{&_5buK^$Mb%`0{Lp`Dx%^AWR3aBP>>Ev^I+2=~ zYpc@JKu8S-!!!jKtAeIseYr%+0AIN+F*HXR5jetl6AHnSfs6o%ffOwoMI0&5Sw-+vMWBcJcBC9ELH|Q#qh4rnxXWm*Qe)kFA@FAG;5Dw;?YV)pAcsQZq!vN; z1BO%=nv(bt{peNr7(Ed0y&u_f_prKFa6pw82{Q&ZDTjJK?aaeOQQq_h_6U$@SDsP_ zkan>QJOthi&sYsrbOL3(e&saSr*!kTI)DdQ#y^(HTMJh8g=S;HH{M7)l_f$ufG=#P zWOWi-0@Grss&aru=lUvBJ^PrN%_m4QU4iOPrr#a0nUGd+oJxxFBByUaGjntCumJ@g z*u4t_w_&XjutsaaKJh@!$NY6Y5=fa;8UU16=N{U(bn|fSv)!WN7HjV$HCJovK}9%(V@7!L(<~c3F(r!) zJQ}Yya5Gx8Zz5$#xq7WF(~qm^!pos6;&xk=3f7hN(d8F!++rzGr`ntlPg?!^_E2v_ z$3Y@|#(g*(>^z>zLXCmn|9}5~tiMIvJ%(f?2)-OQDdW8uiUO-*8}xiM{wExULCTa5 zSWSe4HTAC!C@)^n*<*3Idq9ncdE}_ULEry>|9=yT_7|2APb&8F3J$>BLT&XXQuULz zM3BF=tWa0;@xWaAr_m8t8crhCKs>xsuNOotX@A{E5*&-`*wIiLlB}0<41+IV{=G+m zE)39tdr##Sj0oG5xU{g;6lMuRekOq@I64$qxU`Q{)7CwvGCr|oEt658@uE_`G4FiQ zf~pOmsG3c7Mv+gNE}r*5tP0OZs0Kpw0%V6*yG>UpOV~^1U;9eGq@mja@M#`U(|4x)s<^Gp z$0rt|&pt6GWfPW%!r~HnnBt{%QQ9(Px$T8i7@y<6XJ`_)(oaNp*|GBj$%T-IDyxN2 zAshTm1Q=1ZkX;Zkh)Ef=1Yk7g2PP=&eEDen`QHHgdfiHq{Y_d%lX0rJ3gohXxOgPGQ&swP+e(U@qXm$Tp4y3EK%3wUM(pPHVQ)<@TTNIFo+3Y#Ek^yfx$2BKa#def>1>x@$kf6SDhzzq@)3KEr=^R!Wd>CDL+oJ13MI zrm19)(h0Mh6$~P<`iuF4B&0JY%;h&tl`aGKFx-jS3TfZ#cIzD7GD5mnfTp68(;wJ`2f@^ceqvx#6TtJt|&HL8&_ zRRnm#*zh}Z5%StBhE1b@^HL#m$dvjP_pJSR?$_Urm@X!LxlxTmDX*FJ{n&1{0IGg< z{xZ#5C|Ooy(S0vw_iXzA(if(P*xV#-2nFLLIayy=z|o zVpAX|UpiED7azrYMRmQ#W9BwrQA7f(5SGB(qK~c7u7pPp%mG95`>LRzU{T;gDaM#b zV{su?ra$Okl7vR3tb-`fswj$Td6!%g6bhTRg_s72M9l3#&sZCWHeB?fwd*|g{`#i4 zz4iN^b}V=(9uidF*^3Jq^j~6+2!L_$W_}26-Yg{O+#}Y zKrLN*`gUH=#}NTTdfMI6jrDv|hC7Z##$uJV2=1ekZcB<_3ErU2?1THae z4Q(mY<&w+|yVP|7{sR2$*XFmlc6dOoYUiKoOI*_2>JT92;UP&FTZ(Is5E)l31=Z^L zV&Sa@;hvXyJAx)DVur0mz5;u1j!X`>R}oKT#9%$F+0Q8GKSs5JAmmAj-9s6oN2 zU3Xk2DqWt$n|QbgpI^GaM#LG)vfbzWB$hJq{3F*_i(2VE8knS89U#1ej~a(j@@^Dg z_3=xR3Wc$Dgv?0EkSz(Ttdug|_s*~0Q8cA82HBn?Wgd-y5+#)b*00^m^&EI~vtMF_ z$%KaNnW$*MOeW-7B0_#&Q3%bafsT(^`V*>X*0hyYc#An+WzRDZ3_PqDWWB-5%5p=_Bx3GDX+SRLtWF#U0>Rtk`0h@YBQjSIMklP zP`lL>3V7I@rKYR&KR0jI>OXEcZ>n{dHd_ErFkkz(|&u z9Poz}TLaSgJ_3lR-43Gjaq6ysS=AreGnFv+N29yS-Xni3{TD_*tB$Ia(Kp` zaF4I>%s4A-`pn;kdRfW3E$>g+flRqKG=r8uvv$zesp)8Uqw;q|rX!z0XMLr;lPHC6 z!OVK@h+Rd-p#Y_%@RuD!8lqT5`loNLgi^0{)`6;#yeFb zws2Zdux^$qkleyMEpu90ZY+Djq+sJ9w23(nGU{>*$MGc~@x*AAvOLICH%+^+UOZ(v(p-p7>5Uuk* zcaLw6DUQvB?6}T3&h$n;{b4&6r42egieY*XzdILp(LZ$MBtiS*9blPE7cpd^j~U>( zKm#nREl7&rzs1B;eG z!%LzZeQRZ#b9MaV`V2`-8!}^(Nf2?4n;3Am;|4^);Gil2OSl;A|4;vA&<+Ie_Q1Wr zlVe3awuU8>Q%u1VLzqtJ^R3*4WK{D?rC5WeXzxG!{x22)&K%f2Y!^P7-70jyN#p@h zA(9Rn8Jrns*OYjpx~v9ZRjN`3l%Pbb=1+}QzxhoP(wQ4&Jlwm9--*iEO>?c&wqY6! z(%UU_th4&5A?Wm0aOT#bj1%=xrj0ts;5Q7l#5PPH>Zt;=IcHY{%j5>m(47UY9?)E* zc2DD5vB(xS6>hT5&USKa!WyS2k;hqyY4rdTU_$-MFqnVf;sV zm#tiSD;V@;R&0J>&1CsvU_R5eO<(N>MD^D32a-bIY`Wj&K9~E$M!YPgO2xSLmiWx- z8p(I8EhCE6}!cr3lFL;{zY^pgw(mrbk>(rleRUmxfx9m`SEFs?+P? zf*;^ef$lHnHlMQ#OHh(C$nW(=r%lM#IVpV3df!drMHXKG6V|D0{9QewFs+}wY4aAmj@1jWX_(J13rGrC`$;(K9_DD3a*8hMiGPB9((cX{&SHxO&j z;dpl-=?9j3w@AB~{2cJQ9Q|+GFzlfdeVMMWp=mATwc+IelxDvXI%qlrMfigYI9d+Z_bMMDkzl=6j(KRP#7c#gq<~-c{$K`v> zx&BpJz#8h$1ZO^@QtLzQ3?#Y37Vkk(4tGs%#Ym$c2dF8Fk^b*FNK$~y5gP7>$eu+o zxLo)2#p_`_l@O4>+s!pB>)ykBzBM?-71os%v?7Dw;ein(W`!_42zG! z(1cUGuLBrFSEv3=69-Bnna-ztucQtExL8RzqfrGq2%$J+ni*=p1{$?TGB>hz)ZrW} z@Eo3`Ym0*-)YRXOjt&gq@5TP|aXcU>i)O`}Rc;dr3;XK*+NmoIp5id}={RSqeRz+~ z>oT$Fb*5+l0xkE~xU|0;$|aNHo<{E{?~KobJf zNPnj{2^mPT^1fm_Ssu&>Nod6p<>r4y zdY?R>T^IcyC2D{1Irx;o8Tyv}|~k5;a82v}Y)szp$X4UEVaL zgyeqPv~fcokD}8=l(w!%Z7KF1TV?l8T?6HCS}z=HsHn)AfVrx2ZZPkB`FE4i2>~Oy z;UPru7wUXl>rlrX@La^9Fk$r-d0s(MV%X%YUb7fBHdLUSrPT5)^c0=VPi9e;rFivX zgl5IlOiI%@aqD4*lE_KtFP{CYnc*mE>;Qh51N8fYF%Qxx%9U(veQqPFmINcpcO#Ac zQJ;O^S<8;l%7{@7^X8lgx}inrQaJfs$^iLt^<8-6At%~kY$M~gu<)NK;jWb>*ZjlWMa&p*cche%qtbydf87};IAUf<1O_0CsFy>y&r6doZd8R+YfWkT|7~Z5ceoi0mG1-xN<=RD+P@$bOaOyMx2(tHuLE9*WaaN zt6|F7ZLva(zdGx)7Q79wY6JxPkIl*{WGLAm${lv7+vD^CWuO6Cgqu1!=T!K;4l6JJ zdXg8Xx7MqXeV17l@jg^>YE!Z_d4{1^L@&DA4r3@JJ)KS~rS`$L&6TW;BrMzKY}_Ux z`gL(Glg*g#T}wBR65qvzKn9Snhf%$XE{oCg9ylc!4JB(H|0R2J&p7bOkAw(Ni?-fa z2sFrCEg@0rOP8~bwGrtw#KeNd^*Y;G&RUDvuzg4Lz{e446y>wD=(#H!QmSBxf+?%8)YCv~D z(G==(aCu#cTT4+mVD;fE8hGOaSANNzIA4^{O4G zzop<}wrYz`3UV9+c;N6+K$)d|oit7ovvha+x3NgIw1|OV7KSjGD^uXV5?jZE2;`qk z3_Q&N`SwC9Q7%LPd0bX+-~ES^!>EeSav`OR6UWSGXT?fz&k*?t1;fv3iw?kbsAi`z zbwqfsp}E$jafA+Z+4RyIBg4VZIRVR^PICt+gj%Jg*#T z6A+OIz61H|2FxciQ^z@U?yQfm%8y(^6zs@>wJ-{JH1BAQlSEu!CDf=nw8ECQqU0a7 zXtlw~=|!|q!(Ng=Cx2_UvR})qFvYq^Uq;YQJang0ijt1&%k%f5VzVS~i(QjKP{ll% zlbg4_vg6x4RFYIFXxIlh^zfMmt1fEd=Z`l9Fc6_1V{PoGz*|jk3cqShs4$dXM(kUD zX8~TxlNatOuwC>Ql=-wlMf!jRPRWU_#=K~XG)55@_TcciW-1bl)xB=s6Mm`&@Is=k zYo6N{%RFNNLcK?N{ZkyI&-b3S)@%(@mnHn$A86?qj-8=2wzt)lfzNdhj0CZ$b-F9T zgalN_S{g(yS7j{YuG#v}T7izdou}+C-2Nk2+OjcNMt8s?atX z^K%x_zcOYE_auPD`?(r>BeH8u{-&Ls*wr+x^(=^^)eLGOI?PJ*XL=3Db*1zDRfC!g z9X9hw2?}ttvbgwCH$B1vpWOs)1a~y#BLeMjVhND-3+Cu999HfIczy6cz#`uDVC`UY1Ni-#oKpWJR~Fx>xN7#BJ_L<{FY#ucTtfx&YR?{L@Bk-HPpiakRUPm)=B!=KrG z^nrd}yb6}U(FBQL0XH`H|0_mOe5BP=BKicMYicS(it;l_IgQ9=9U|5nkq3Cu5f0Mm205 z7VN_HE?OKs-!sPBP*z_m0{b=*K*;cbY!c7!W!f1~C9+p7?RISul{;>b3avF|t=8a6 zl%jlh@Yde`!f_3j=}@3`ZBnu}3*KNANc}I>n9$vOS4yd`d97mwC-%%Gi>BAvs}UV< z%_6{D$9+TD;5~Iikwzu5D&;iq#aJnVN@X=QdSIir_C#RtDrTe)r=TQwwFCcu6#p9- z9)Y{~h`;07&l+DUOAVTnGJJna^vE3Q{*xIL`-xuP{~1W7nwU7O`+(obJ1*neMW8}4 zu*Rk5Y1WC3{0$e5mJM55%F^4I_kGcY;l-T>y5?3X#rr|gOltX z#)A@9^KxUC+Y+eDLh{eeALU<(7=lK`=<{gnDEmol0bu)MxUH#EB|8DR2ko91=0*nr zxM5wk3+6}m&Yd=<04@|CX*pUN6E{GV(#G6Tcil$SgRcwvcGHi#_#D((lvg^2OH2=g zic|&S78>*KlG$=aqTR866C5^sYj{nP1HZD72#ngxa-R8(`_#J%cxd8n9{|(0z@++} z{M-jzuVWcN!XHKHteY;ymojFtu40;Yvnck)CxyO>k%o?ZG^s<fLJ&+3AH@i>xFNuH z%yIP$<3A=3oya5A)bAkSTQ_7pr+2tJ_J{9Es@C%O73bMYvKNz2^*P*QminDj7=>ld zX$09J+*h;Fsb=Beqo~Y~J{Wta2NZxQ>t8IUMAOO>n`K4thp@gQ7D>wukZ^_i>r~5} zbGBc{+zH^b8!ufafx&;M2aJT}JMy(BZd$BIcxsntz?f3edU?f>T5-q|2*9Nnn@MyT zCiCcy&~9@q@STr!JjC14W>I&Qjmo>CN4*=QMxj%V#9b|sJ$|T27pL_jBA$|zKs$3S zEB`;hv@7DuuhO6%9;L}F01*WiLjmT@U_=sZfw|Z9_O+5PG7{< zQTlZ8XCNa-qOxs4!56@9P1=(0usnqbn}T>eUNet7=De&}m6x(EIVx=EO6$juv8#Z8 z^jibTX-+~}>X?UEIX+v3NI53?-Ty1MQgHc^k%k`B|5m3mT!|f*FIH)hk_}S!rOe`; zIFgpc2^mxGp49tw-oHR4D|XrFquIc$X`}`K+QOq5|wh0lfs4dwNMxg)g)r zhYipvZ19w@^JKJK-gyT<{@cZk?EK=w=2w50cv}j6-|42r@PUFpNIYX=iO3UVlXAC2 zTh03b2`z?TqbI#)#c$sQXTOlW43;wckF=Oeeg57THJxU`+}Ll;&%c`R|g# zdCjJ-q1sT3-EU-8@o&iMzu?5y8MI{D`T&TF+8B0|uARvi4TuFiZhZM|Rx-JUJk90$ zx(ki#rV(wi=u^K7_zPbV!mP&)6)8Se?+O7W#+ETt? z5T*#}GQ7WcmO`20VOI;$R=O&6L*VYnlfm)w-5A5_<+e8|1oBxT_rL28pEEdE8a ztbZf-)(^(Ktd>1hQpNi8+XMF&@JDkGIx0HY3o)vAj7$714K!EPpXXD$K zaj$cP-ZS$AC&9A#_Fv#><9y1pESn^;>vcQ{Ly$|;VVin!TFZG?M_O%Bsw9l!1nB%- z_hYeRcSwTq!96Fr+f9f;i5n&o&bpB#v;>Y@Tjdm$LlJXDdfghdbyiGb)ItkVux za^Tsj`d|?G5DDzv_nj!IcbaubkyHmkiwr=!QazV9&36HKKvZ%+7 zwH{wj?gy~=;4XJ9+shV(-x9M+`G?~hLQ}erS%4;OOux` z*@{m2421+Xd0VA&V0@#DG&*% zB!M}gFhAm-!hkIi;gI|DQJU+cOEmt&N@|X}bnm>x+k%jz|R8kfg+xw5yrePBCIr7*vQUXzBQkJz!{Tu zx4QnPH){25TLnne(QM@GhypxBvD@IZG|D~t*2vR~$v0GzX|0}9G5Pc33QF~*3s0gS zJ#QzVfkGSsp0UIn<9!mMl)g9-ulQdG7v>#2sX^n3*{Q>Ai zg7HbSpz!)<r9BI>u;bF&! zATQUA4;?LDjI;GNN42CUb~^uF?37m&#yE5&OmIk3Y_2$~6ot)3Soep|~Gk zP{N`cCEdESz}WTC7Jqlg`@ETBhbMpItH&VJG#uEqAl zoj5R^Oyyk2gV(LLyK39eZG+V*8T+s0PHd8Dk0U_;wQU+`_FEbz>U7j-ZzJ_vfBAr+8+uY>pm zX>!GKgq_Xl3x>-UfRi1)V{lv}IT5mW__Z7Lz8^{ID~ov~9T3v7^%P$HdGJ@CP}m=H zY4P6T5BVbwtQs&m1Dh3?_5nEOJwXw8s2&$c67s=`J+qnJgy&>s)tSKayd$eRZr_o( z0G`S>?;e9Rm6>qlj)eCTD)D(HSVT3cB{CTCga|k4R4g2Fqes%$mf&|?>z=*Zem?Bc zsW7D~8+Hs^PvtMp+Q({SYa^>dwpXoUn(PU2fkOv3{cY|Nro_~|07_#p7R)9mZng;> zcPtsE3yo3H{GULxG1jX4IsBfK+w);26GEyT*#-2=(O9o&iHt8yukIvfP?)`_jFq?D z1xdu6JAm=f{#{)N#wPQ)U>H6;$)OCSKC3WV%I0{vg7df6P0f!z$*#G#sbU|!0jW9j zW|4H6P^2H0SnNb{z|=V}n6839ePF?f!IQ1B3}*se>DcC3r2E^6c1>ux|9*27Sk_p6 zay_@ADM9|c0izT4koeOxA>}`bt_ek^(UMYNh#yUi>0IqVkwz%({JIUTUU64&fk*o7lLg$?Xlkf#ED7vLJSh!?^gq&c(4}{5$ZEv;b?Ty$w{|=86D*$U5oXPS~WT{b&%!~`=2mu z1mywF^l`BwYYj|N+VyOZBA6$lj%H}Bs}NX5VIFcu@c3R@AM|otDwrGStK<9i8iD;U zBx!wbK)}550!ZjkIJH1`K|cmgioE>=!W_!*e8d=c9h43;%@-o@|j`Aq_J!8Mi>tuX%!x@n?tGcL-;ttkC9YAVbRoO<})Bs1REoeZQd zUnMPf!MmO#@UFR>FAOrzAp-+$3LqCwFoqD{G-~rRbcctvz4k|FDn|?lGkiEP(}0Q8 zzS&Q#F;hD^#gDw8A1bsmgrLPs2ZgoC0tl|U-ESMJxGt!7`ai_PiV~z(9I3Y`a!5b} znfje0Rd34dB}zKU03m&3Avl4kQ7me&JzM}Knq6!#Z*s0xJ+6~1NZI{y(j~DZ@IeK> z?DiEYAIfU2bt%w2fcJ0PJ!N|YAlYTqzu6vy-upb|?nc;JO|7gccpr{r>!6#LS`?yT z8hr~uz99{#LKc`9Z~h_Ru5GgZ3Qy6C8E|j*rZ1n2)JVU8<}5gZK>71e(U`b-a0riLS)G(|ZO2Jaik(HLIv{4vkpPFU_GXg zY2Fy%*{4Do2x7&J$#*wSUJ&oUy{j9F;T@A@`_5JBbA4HLVyo>qyi1f1T(v|RqL@|- zZB=v@vW3|HL&J5?Kzp}JhsnsVGidTdwjkKSP}ej^B3;xy3z-)tL~aa$=59}U7zv-h z;I}QdaTzN`AuX=O@80KSsB~AQeDDXSE$N_+48#D8gvBWXRyf~h{EiV4V-^2ZM5oz3kSXHd2PF3djjx~ZC*DG-p#Lr2!vx6IJfiqDsqWMB zcMub(-3$GJVgl7rfZ>i0!^L>U{-gM$xehL8)Sw!tzmtKWCjpbl&KoA=V2p2Sz1mftB6{tJaT6-KLRo-dOK7rd#8v5 zTrX|{h}OBJ%SAJ%$D!+mxTCEmNyeMUFNX%@r5?AQ9_%(n->4fbf-6|)^VM$$(L;3} z6F#tp+KaWN6Q7a#t*f|Gk*B^7*ZYFjV1A6()FLzD+P&%2~ zbR#fm;h5k;sfQUDVp0~(YwXvq`4xDCpq<^kjR43UiUXj&paxtB&%dd8%&^pd6fOht zy52VX`U!ndVFH)a4*|2XX&^Yk+RikLmTA}cSr0ma+OUJ@AFV)d-1|R-;n{Z*20))D zm7#gjqrvy&SbQQ~!XixE3U^63nZb4wkDlE=zZ3kdt-dZq#=T zD#F{KSR%`+$-x#Y69PO5-U$<$odq{H1$sI^*exrziESobxUq4H=^cgtD%>Z05V&2= zJV0RPJaQ|=ZnDHSZF)+3lAfo80DJf^`n@?CPU}X{Yu0QmE!)y-xhwQqrGB+Rz@2^0 zPt{|HoGCbr?)OOlf3CO5RmgpWswB&!e{uz6IwR< zr9M;*`+$y=3qEci1nPVwCUN$h_A@P2SMPc1Sbex<2!7@D!y?$9yKIx@T%d z|9_PP`loT1N*(lm(2T|VWv6L#{!Dffgz;)u$e@aJC1_F;wk%E?(E3*HAAWm6a>|+n z9cNeg38bx_0jZQF&;Nh_e<1UWsyQ-ce{Qz?PYrSInKXt^tNAi%fPHA!t@``wz4LFo z_tEk~-ihycSLr{#%GcLB?hW>*_tBqwlV5uK)}Osx`u9rv({Iqt`gQ*It$u=S`WwBs z>+Tx+^Ka5U`a|vdXTL}~`Yn6k-us=uUANO-^*w#bzU|*?``(rAJL;|aU%t!Vqn`Jp z_tJ{}-2Lo4BM_t$;C^xs3(`gdQk-ufHwa@Vg{ zsc)xu)cfhJ^zD7IU!@iH#eRuz(@pyaz3RXF?WKP4b@ugrtKIDz>2G^(_wVc7E9tGi z$KRmeUbXM1yMBf5(2xDtEA%tpX8r0vdk1~Lzd$$Bo82qxk9{!TYj0;a*&FN%-`m`G z)*rorUr>A7_s~A|9q)U3KJ+cFHt3HgO)wAi|2O|{V*Ajaz4h-vNe{RF_wT;1d+E=; z_3x#g`iK4O-+Nc@pq}(s?^!?Hx8Fj)eMR@x-}kjW^o#e=|2gVsUUiPo=V*BdX?|1vrcfPAv>bJea?`?ayd$`xJd)_|x7rj&O zXM5;hzL9&{-ufx;u;1>V|6g8x_fPk*Yu`S-uik+D-aXy_d$4=jzrCIBW&d5z-&8++ zBKNufd$9Z4zWWL9Y}cs!)phladXKxuy+iM2``&)+hrLDbQTto_tozx2y*KYc{_Y;` zeR{XMkM6bZpZan7@#M*-0DilA2j5htbX?0_eZ}+x9C^zt@qy^`=@;g`|geRN54il-rv7eH|dYQk6Z8U`$xY|H`2T8 zt@R%IOMO+o!QV%3u6O8u`@4P1zS(>9BYyUK^e=s7?_l25@3ObpUix=_hkNw1eR1!s zcj||}$KOR;^uK<+@3OboyVp0f?_l3*@3A+~o9iw2*86vTiN5jQsUN)u{rfk+bv^Y? z_n+Raz3bk=y?g!Y+v#t8Q@*hM?A!Ez-+b?~zut$w(ciDz>`m*t>7Dex^&RaS>7Dhy z`wx2YzMJ1eZT~%EeP{2aH@^GV_pE!=cdYxq-QTV~t^oGToinK&UWF)lFCRRLYKq6_ zU8A47H72UJxqlHiXXeez^(z=eJaqj6dK?8fztdyR&As4w15A*!EiOH;>1w|=G)%06 zys;>spGk_bFN~Mq%}fo=F@NO0Tiq$Q28+~UcZ2Ww zW77GzT-EZ7dnS4X>^qPE9IEgg)v^s>Q0KQl{iRof{9c$Vpyn|=24@NCAUup z2Pp={N?G+Y@Bmoy##z>0iRXHEa-OtjcBd%=p1psCmR1Is8DiskS@oQms>2S+?Szes zl1mmyfcHv037_BsG6Q3@+Y%Qi0TZ$)hiOb8{P-sc6ULK&Bdg|VI)8)IiEt%SYvD?w z)mB0l{E?Xg=c+Nya%LB)9(QD`Oohm;`2ZL_=0G>~KV=y}w0%_+}=V@7A?EX;|@gbGIq~xm@&T9r^h45*5&&3(R zlyO7?(M1g_jdmemVdOW7VAob}P8;BJ9mE}s3IP!VA;M-D<(hw05_YzdZ}0@8EKk+|;vEc43NDOD!9tnU~<{3&r3%+K^h z0%5t6)(iGFr)!p zE%Qeaa^>czXHTkycp! z`Q-|F0o6H;j|PCk6s5fW~n_&+(i=6YY*lv7y1kxZT$8MAn`0U@_ z%jug*w*?EMW0M>ZLx1j@0>MIc3jI9^%F0)hH%B_aKh*sW*;PR%g+m0ii0ePBO5!`< zDZNyUQQw6Hmqtb6i=oZUT&YtogCuX@sy;}#?cwx<2f5|;7+hiFm0$J4vS{20D4k+j z>j!v4jt-gooFkfwZ_!7%__q`yG5JNp^un0=r5VG% z0B+9o$D2^c2VXjg%TaVm*DxtMzCg3pV+#ywX`x7;XAm;yQgNNgAo}5C8(E@7O!dv& z4x5w#_w=H2DA*ta1uWl=YM1~@-DHvBoIuupy=VPqYzC_dqQrhwt@>P{uD5oGW{IAi z!ZcgJf-fty2#H7N{&!};+Sk?OnGK=?)EKlH--QE4A_Q7BfI%dZ)%=sMxbc>#ubWDL zR6_^WbYyR+DimyraLiZBZKp`<ISlmZUX-0}ycu21%Bo&2%7gFZ;}ZvrlB@HqhB!^&X-c|y2Y zU3es&>M$4@am%(X%9|L)B{O_gI}smI(;B%;z+AW*3)REUODvY&Fj&b2f8}t7Un?Yh z6ud3UW7iS}ndtQq2HVp*9E{sP?B&BM5;2`QU@2ucKrTT;I){6Mz^oJ?3bbR3RW?zlUqg=5*DYuX2h4d|4;@oZ99t`rRY3a*7A7| zbs9=7V}J-P=GK1JA;;8*bX=v2o%AkNPsUKy%ENBP#XaoBcC|G|go-}ZXFF24UiuGy z5A7w7bRTXnuI>S_G`|NN)Pr$x>i%W;vY7$s(IZp6qp9{Fr;2?bo7 z`1&}8vD!W`3xzC>{oGJ4T`_Vt4f2^J+5)uWj^QtC2Sa7D3;#kpjWbr>?NQwLKJ|#e zKvIc~msJEbQ1}2oaFl@h7nN?3!Y%&dN15L=%`o4BPG0 zfZJ&qcyR_~{5UGg6JY>aC<2MoIis2%*Y3iL0#%wahOxMnAI#U6F3WR=WZZ;*&mN~R zzY*s|pQcB8ve-u(2-32?hpbbeufsxJL<_$c_s7l>pX0%0$Wv39pJ%rgm%{_Cj1#>D zK&LripB(K%6^6W!Q>znfOMC-UKX@ED<-T_hi~HKk@$gNwN*-L-jEV8MgoKYtliNvc zaC_*S11PFy5dt9-@^B3iNE68?y-T1p?Qd~Z0sJr?)v~A}EKoXoH?z-LG7GJ*XBJN%jUz;eMZ~uAb@e@%z5^Y9!w7Isyv2HC|jnJ!t)L6^U)z(WL zp=ex3xhxi@SXK0FKQ24CwC@n7cR2|Lwcg`>*j66z4E`n-NQ(+J#o5MlNj?wjnMW=m z-2v14HJ`{cKFfHc9DIM462R_G?oj}z?LoA|mC&#v5CEI^+VegmGeQu|$fnO6^w-pZ zPVaBxoDIbEKL9@9c3ZgwO$MFWU!h^Q?PVr6+6F7w6b%dY%CSU;alky~Jw)r{k1zgl zp*W=tw%GXVtB~_rm;pVyBk!V?VlyN|%l+f>h$?*NQF3*3M&|7RjSzK^*_B7eYKvEr z2f0)o5AziP%ii!IKOaD9g7y0P4{XyvJJI~5vN?Wr_|?NyiJR!w2@hHHg8txxfGd7r zzLt!Hyi7#ePvMJsY-eas?H$B=y=_I~9c5skGdVYx3pq4%zDI{o0T--JiY=>qUrJ3@ z^PlKV@zJ9eO)VPAUef?>aqjAY#83=6PEyGzEYD!#&Vnd7GD`O^IH5GFTY;}4^AT&~ z2Y1^#0i!IKr-Qd79i(BRneWGndeMXtpx=5rRfS1C(`+e6gL)Z5rNF;Op}W324Uehn zG+{nVZVpD^yO%~JMr{R?JZpzaKV>!g$pt&sa`;%D72EP2u@M&};_xboDKNC{&zgGw zIi?_W=*s5H(+M#>yGdd7oyRC&GnT0U5>pqhNSJwouaT6^Z)-T>9PzBWw3nn3jK?5E z78A7(R4ZBZbG%N#MLqda6M1f!=1y+(wgw&fwlXT@?Rj(w*@OXRa-vU zi}{yQ-#&X+Xn(1!fpCVixciLx;|&@@qQ5m1#}~ow5-WNPd7DNW`AM=f=>0DDpEqx8}<#8lR(*$u0TsuAwh^@?$u=)e}$1>QK>x$R<){-5$!4nry zrISgfQn4JgSwP4L@g-#0CvNM@H;C>tE{h0#{ zuz*1V=@K3Iqu53TtlRFhqn$=$1^$ z9aawmz>IC|l>X`Vt4ZR{a3W1Ild@ma^K1$LKuhsujbP7x3D6tqA;e%c=PnfS-nJ6(4(YQ+j`NWC2pD+ z8%E+{W`xb=(wL}GIsN3L(w6koTSB}_0Q{}H>=}fvC09HX064s!P6rgkkymexf?*kL z>fyOyr=vwLq4xC*-+Eyk(th5=j;|Y6d037IyetSIMW`q8Vf1aG*XMIaCxuCQIchLq zC8*1K{{ofIt@yE_HRpI(rn_Wp5osmtjL-^jUR`B&#;4?)_nMch>w-$PNJL3^WkKw; z5NcX&sG8~uOl3yO)?5vA@#5;T=R7jAJdihr*t4LT&+;fS7n^&%?WE{sh>3?FsRM@*JQ?8R~R13jKZ@2FVOLP88sN;8!3|4Fpm z=tIJ5>Ar9*AjM;Av>J9+cxvxsj} zJi{OOp;uj24;`mrd~pyT^^o8N`F^LcJG$s!HAxs5B_=B6;q5iH6>=BbMn4Ylo-Yv1 zk*MEfbElY^K!v)0xgGn^qqgV}F z-}G_Go4l;Q)qQcBl{G+oD-ZmQ=Lj*j1ORPvxaWYk@LfBi@UA)clP=le{z@7sDEBLmI$gQD=>*2ekiCOThxmw_&;Vu_uvUUO4@OD- zV;|BM**ix7&VGo`e}&u$Bc{_q{%DnqtonQ&~>X4 zG^^hroljrWH}o(uoN0NDGM<^YDAP-Y{o^$RN_3k04CyBuo;N7HUAm%mOq9xG>zX_F zE&)b1Z&hNjVV4rD|3Xdp0kzaJtj-^s&AzK-N_c0lX3V4hZs7}EB(S54e620eGGHOP z;@^^-Bc%JL52D3D_|LU3bB-papmYsSoMDCk837FTwFMwi*)tRmPh8g`gF|yUy3kj7 zZXm%iv;K{Nr{+A&kdEznc{XYORNOP&$lnLN)IEf}wwDBfYovA`52ok}rK-KBjP;EU zyXdyTUt~oc0(ek&$M4l7w!B>NR8P$P)7Z1KB6JN6zbg!Q%M#e!{XsyZI(a&d#hixg zfcKmoH4UqVpHzVEwI29X2Oek6WjeAlt9^oqmQ2D&iC;-w=wB2uZxWJ^Zwc(bT__J2 z0ZwdB0BD+e`f0aQB*6j>XbgXGR<+=jB2Bt^p5g`C#$-%uK^1d5W4F0rjjR2RnPreacnx4(;TS{KlW~3wv_}^C z%%mK^{MkEsAa2wm2U6;Y+N@BibPMkI_EA|_$((>BFgGEQ^v-(M;yk=~$bp0L+766X z=I)JqODd^yWly`a!5Mq*T_+~q5y7=1-k&hM)!JZ{q(&X1qf_P1+(L z0pXCb50k@n;SiEbLE|~{Mw9c!f$~62ml{$Oi<&BQim}MsIP#O(qd4X~YkKtF&pqy^ zB0nvg7zR(PcE`d#_B*Hkd%Wc0qxA+Uzo^@V^;tSqvB0x z9BZ|5AgkU7#kVI|#TvJ=ZWE>J%Vc#%Ui8a+SidY1SA%bj`c3s{=CaHFz!~e*J-xpi zN>wFJWgdgU6g(j_vH_@dNkHUp9M#T)YNj#DY#S>CNtE}O5I))Vug zKrVT^iv7sVPQDD{^?<&3zZt>F1wCpvp$cClO9{YZk!hCN4%zwJjyv@$S$~QUs|{+i9`_q6pDdG`4MO<_NGH($$Y5BTa+P*W#NK6@An)DBIm=!Sc{WT znH6DEDlt?Se;3|iP0W12m+&4UQ<^|>P-=>BI@C`*XOP3%4J4Bjl_guI2@-?+C#LXZ zeSV*9F0QfpL+i%o$WR<96hg>`zE6v0iESqiL5?bW}T?)9zL?F;@OJB6{zPLmWFl=}9Me z`(mcaw-gD%`!{sdQc2O+rJO6!=M3&~qs*0Adv{NeJMjG3dZ;+#6g+mr_+2Q?A=Ta# zQN<1kQlbh4uYF55^?A$ zMU11ibSX1TlsVOQYQavosK<$l z^d3L$WH3o0CxgsoL8ABv#oqzy!O8H^(LCa_*{#rlmL~B)eEqeTHxL*CD2FHm+rmE> z*F0RS>u4*~om{Gw`|)eHaLmz}4fRzOtWIdR+-wB#kB*-TXkU}X+as*SlI!mVKp5oqf768$Gz=6KIsYHx;lNPV_~SEDxEfOiyaaf z6=irjX7o3XDoM{Qc3>*e3r(h6vWCf^6%i&$T7d4u5&~___i{74_X%`*uUXi8t=G** zr6p$L@2K_>%0z-O4W_({1^5`w7g|eLYpB>;7);9csLZ(TWc&=x!)k?P0V$r4rj>5l zzBAn1-Nz$Oka7nD+2IVpz`K(6d)GA9OM2MiJOZ$p=hLwk2Vjq^-On853aZ9M!NTUf za8jEn@F%w*Ma&|+c8BiLGKff!sC;^MHjm%$(_gG}$Y;`9IJB3OP1fxa{e4Qaf^i;J z1bR2>)^<4Cry^dguT#>ZBjp8p+nXvIQ7=jye1%sFl94aU5QRm6eyodCoy`$o>?mWBaDID=Aa@V$={ z6U{;)G$}C%Rx76S>h!95%`b`-sMrBR8BAT?#6pq*7)4{)>UP8`4z(<{rw$ZTts({M z0dR;q0mHWZ8Sr4GfBFdEiH6}~MWQt8&KjL|DBm?vVFl+eLJS7Tp~EvdK;ChqzwhH$ zK}rR~L2Mv63}9uygZar-g+WAE1I0l+sPCO~lSgeBg8UCz3G}r2X0?r?Zt|(y_}Smv zcYRi$URjv6YWe5og!I0iqiHKB|1H*nNso%+)S9f7bw5o-eq9R}`E&ueH*LZwd}`B1 z8Wa;?MS@`T3(@wO)H7Im{u+$sD$9iv!Gsj<3t>c<$tRfJuFWkJ_L3k!u1>SGk7jHr zcRzt4Ah^NOoNSSn(5y@z=My|%c+lQ}k>3ROvk6FM%P%s2d!m2Ur?f;bsM>haLS)H> zi_UD~@sQIUYk71&9B2d47Uhw=o}*lj!1pE3w7(m*G}@Zd4*e)~p%9KjQB7d0mBl}W z{6}rGL@_1-X(`q|Pn$b&cq{`5R+$c^lb=|aH%EnwDhUrnbx?>5IGI}i4HMXow|xgq zuaf|I3dm!?xebMy;8!{4lqgunWkVUjBaRMOb9d}TdV6w zjcP2R`Kv5uxvTq9Q(=o&AVWBoiRGO()?`SNqp>tWxy+5_(1Y+1#06&wI_|j(9aX%r z_{mDqM?Qrg@2HM#!jI81&}3d+Nxj6c@;FQE98;)0*?&+mItIF*40jlil_B*zFx_hd~s1J-1WmJ<&?Q53)JJhYow;{KEYq7O+HO>bd(R6WsQbA_CuO(1TlR_=OQ!{Y-<}aeH0rod>JP%z18+lYO zoWO6fXJMnAK;}|I!9Pjq2GHJ!E*zW;Ux(`61AgO~_Q}TC+4*jESIM zu|jPS^v&3E99ri%dmuGxS3nUD)y@ z@>70e^Hf!_NCmv-E)uWYgZcG44ytKO2)9WJ`0<{Q8AE%1$pfi???Y0ceTn8&f^rNX=MAWsOF}vQTa-izngkg^^#TU z!QQ(3>&k)-zqR0u0tvU3Xear9a0MT=F+Nc=C{Zz?|3OjH$zc+$+0IkRtV zG}cK=jorPN_x?0Eam0y^+Lk+S9>~xg1}y1rX6!S3xp7Ikj52|8j@h`scUob32wSzv zM5}ks5Q2)X8PClCl@@q#Hpa228RdA3=bhwB1;tK=tzSBU`ZNw0W~(6nMeAMhIu8_- zeeM4og|P&=+Dvea_opYJSO*6~jTQkj|4q12kx~byNu;L{(zFvqdw^eeAAKSxRruo5 z{b^AlSIRr!S1=-jq<={2?^2(hCqWivBJV!|p@AW}1l^J@tUMX?D0gPeR9Ex^sK}Z! zm@;+BvEF8<3o$z{FOF6IwwxW^X9X^c$H2)lSrNmqNfl5yAB*+8;F;LWyzS3`u<`2Y z6a+B0*Kc+(wTo@`{!U946`S)r({W8m7H(nfgS9-v+jp?y1W+KNE3!N~I7QUS^t>@+ z*b|Kq#27mLW;dl*fO!9O){sBO!S5#iL(1HuIHd9(l5a2uxI7Y*^(^i_Od$2yu$s-grw1k{~05p7DG`Z(xEi zsQbcTsygBLcChp(pzCQ17^K-hVrSYk-fT!`1$ugA9mns9^fP#dFst2C=?aV5$i z^wU-NO;?B_7D}d<7IsV&L~C9Gl*L!<3Bhrsp*RhDe|=e7jo)<-A0C3k!sMNKqv8df z5gw2#kBg3&>{2|BHh@_(Cm+FitrIR^)6kwL9KKJ#_5(=ba+C*^MIb2E2~!Y0Q*FJ< z{Se9?#+=o4kaC@>ZTRo+bz);^i+_=coYXh-AvCNBB2kMnanO}sFF!Oge0W`H8cFC~ zifc;r?3@eqNZql38}bB;s4!}&k5++IY9BlH;)6{$Lajsr1UWiQxKzL8wcZGN9BzYA=Z5|vs#sXFY z5{}J*ZXACOjIcdU9Rf0KHF8fqVMeS*sW63H_>z>jty z1|#*Oc4bW;ReS;y8-%^TJ;l_i&wF(lr?}XUZiU)`sU6}L_oMN*cW7=bS^(2$eHR3B z%AIj_lL24IPIPw;$5{>>gYVdROk-2`?3<`}p~R+8xViY4%xsh(QOVKBv%Bi+``;U) zR}PZ!SW;U-5DJ9OqLuX;jTIZUlW{TMzji0WBY_7|UsBq)=;YFNgr|W-A6U@GV91+1 z=v)`bz+wzoXgSb}VavPKlNeoB8{`o#{@e1{9l@iDE5=JT&`g)w2m@qeyCH4DysXbuuld>JS}=_4eYs7O8M_l zOhZd0`awmD2s#55RL3-`4%MMK*C%5z6YO~?V0c!rfkU&%?Q!q38BXvWOYcZcXqZs-mmxxFbUD zS`d2Bok#x?pRXb$eQ-u6@vbWYvg;(&QY1+RTz>Ak9@)AH+?+qIM%V_TTDUe^q=O|ZNyoRjn z5fz0rX@HXK5i-(!cj6(7IosvM&FG3%A=GWdThH%1>;#J zu_jM-+c?k|yFrbME+1qft`zZN2e{M4pGvO33?+gR-6r<{S9rOg+)c3xWK89%h$R@$ z-kkx4W`;}N@GkaIvyvnROfNYUF{QcvESb8Jqu$?DISXgdra4kYF0sAG#3r=T>|Q-0 zd$>o=avt=Z9|E|2MX(6v+P8oX`r*NtH!_-<6Nks8fZ$>49&@uwkGW zS4%ITtWKc6K`fW7#Q%MXS2C znGe=3GR!(}X?io{q1h&}%5QVH89ZPN+<;{7hx@yk4*+7|@M!iwrPOi~vTMdQ( z8V_Igh(DokCJh1j8lp53A^s{djpqVg#9Efx-jUCQKiMYqV6I1DXH$jQ zHxq(PE!l$ALf{dPR$P9&D1YnQFQ!0ILsk!MA`dR|!}WO=f?cHWoOId#o@eLUB_BS? zRWeISv9hN7wNY9X#Ene%RyzJrCCpxQpFo31#^V}`*M%KYe>;N}i2rKV09wm#Si((! zF!ScfR*|Q5s(=Go5EDXAFZE-GKp0Vh7VPFm$Xp1dJ=axAKeIMAb(7xNE_F@KaSC?# z#(66LC^cpAk~M^_M=LdyWtSf-y_8u9BY_u4dMb?hzP^y@-H{R5qWu4Kj8$VV)4FK1 z)Lep#E*liN__J3WQV-yTz=3Hc8` zFDXehIwD*1$XijIt3e2wTn`gR(I~FihEkwJ#~d*yWaW;dsh6;xNtr1hq<1~4(cW}` z+7EC>g~mQ)%k`XAXzPgY%t}7Y@dY|Xd_1x^0Z%X%pOJx6xqonc+xj?@+!?j)zG*^a zd(;z_YSmvx5y-azHP7`&))cGT);eKv%dP?PA_evGWtJm=Nq@pXfs$orK?!sE6ODD> zUXpKFa|7isDOGF>6aq`dckhE@2Y9K?wP_l`Sg5nBA9V=~YI*xFY7Nh;kR7e(4-gY| zgQcePuG;_*ZU189PGnDh=+70ousnF^!ZCU{Jhuy}VIb^y4HrCdIuEeDtTd8l ziRn1+3)BI3Iy2EhGM2`Th7#fW;g9dS7hQG|89m~D^<;N?Q9NyWEs` za++>1Lu2yTlTDuSB1%D@>A&v2smZlI0_ed0mT_4x_Dnf?6V?fFwZna}k?e#lLjO63 z-R3Sr@BXK-g9J`QHp_kNp|AK)o}tGzkTM_cgB6ptaL%6y|%{LgIhS^VF^(^p3)iS(}vEJ~KUw*L|Pc9btR z8nc}SgbUHP1GoIVKD=Df-tYu3FXTVIL-F^Sp07Gh4tsw86q9kOxWw=y9>A&g+JpSh z^KkA?yY}*Oy*mbc3NZSpkf7;! z71`}qx#o*90NIRzgR@15Kni?qgF~e}FP_>{(BJTMtzLkprhyfXh-M{$ z46THtKvFlrRC*EnTXQR>>q2>MKH-TecuqE&@(B(~=3Aa+ed5NS_QR@f`9Vts5wv9n zuf;A%nN@rHbewwx{lKC&_wfDeV;txppAW7HlF5t%sKvd()X80@Fh8obySz=^@H7)u zK$%zZLVSpZfSYJWoIQ?`O>(pdiw$d_h8`;$a`lr1{Y?|3%xsk!hq-(TtDR$M|4H>Pa^0@ zf0k61F5SSh4%b`1)YCot^k}?Z>^NE?L|ln;(^X}SrFe(>cjFejGLz6ydqHy|(&V{tG|S)}T@P z;uoC*v)iuT*gC3r!_C0892m87>@>jTo*JL=n}bbK9Fm7MO@hIo4(b*@A;$z8rZd7# z4RBEQw2~}SqwbXr^YJTr%f&EK3zQR~;E+>lpWwXbLTc|O7uj=&vGR?K#Ls6&LH$U) z18OBBiW%vT-wcSR_)O{V-%G2 zME?~~U{Q1r-!OG&#s)5Wk!(B=(!F77@ZNh-iCTV!k=PIu+qY?-ir87db~^<^O=YK= zu1sK_udWf^#mS)`ukbzY%6+$S-;{(~eqmM?F*m%@JP5B9v&Rb@RXeN=`YJt_RmNPkX?QU+eU`Q2m3d<^0SlzS#{$GB z-_#?z&K(NqAH;%AKS;yYXuFPwbP%3d#giJM063B+_1R%#Jea?ICGR_cP6_;;Qo?+1 zC-R?FMkPHyNqrE%7NN5N)cj!~<%ed?q(7QcHnHAcmSK~zKPeqC?MnWYp#v2+1z95$ zst6H^Z%WC@l z{suIiU;hBxrCBUZ2JDh7ipzUA9&3trdkAq@WUypiW&l+{s=vnae0#O`rUd=hizbtySJzW?Is@W*%Y(x!@$ZZlDT`?#`7YhWd z71q4bedFS_-fvmnXu(XMy3(Z-za)D7dj%hT@K>CaM&FV;l|!!&zm%38yq|Lrgn0qH z7+zu&Fd3-9bi-{~B1USm1}SMgaNB5oGRxk_%-3!g`}vH*V7&~!pYhTX1nYx83_d@i zM^?;riiZzTPX;=rm7xnrI8psPPQ&+9ocY$QpSP?ZZj*_Gps1GH{q0I+u;93~Nuy0O zb7BLXNC{;P*)P0Bj2tQ-5TRn9XoIbTwCtEv<=4Tbgg~!CT3bnJm5IaMq|N^Aj5PI= zDT_Bz(i7|s-kz-N1Qo3t#=FwoiR%6EqDEe-&Eu-Svr+P0z@FpJ39JO_0A2Ifbe5Z#6j8Y}butknSgGR^2w+~KOyW7;FIz&I z)U@sLYAeq;9+Mc|Xh#5#DAg4r{iZ+*W3^qDr1FLNXnW*V0wbzHQz$~b2G1un`?m|GOM5!F*3x;jijF5y^w ziw6iUP0g<>M$5KOxGQ{Ffl{7cp35#XXv@=$;15t2B}a4<4lWrE?^+l(6?NtZYO zT?LpuBb?IR4x8fR0cO1UGa=Yjswp%wJ+-BNo}k-_@dT_^Km_Eom$Z8mfgTf|j7V9? zyLoIVM{?|AXO(94tw6P+U=m@X=^)YV>}by{M<#wRM`S-h7sDcStz4>o*G}uFs3EUZ z?kI^=HZCQMfAGkLk%6>gV$8`0MOXEtaKT!N-oj(BqqM3jhWc%+Jw-cR6J--*glm7S z1-;uCE@TBMUw6AJD12ecUJVkW@-I5_{a1j2^tlNgt|-zabdngmR+}Oz?7ByZ2#z0q znN;^JGpCfjva!SC@)AV77A!-kVX=05RV9WQ)ACKuo6c6A2uA>J&x+}P$@si~@(I~j ze4Yr@UfTQTEH;3v9j%2!MWdjx0NO-IBUxPgx~G5TT2?xSItaPDh4boS9CU-foRzt# z0m_>l2-)AmcJPnOej*a$e;(B<_}*!s8mTM0qx?q z&$h)DHdyhPJG7UcBGY?YJxGIWNj*}<*zb_Jbq<$PaQqkhA7IVti&a?H{fQbW#8E`Z zDT8V2IJ92CBxRN{q9_#zA z?t}Ok#7vgp+BUsE>IW^*gGDVDi^x4|b|gwNH$~n=ed@33pud8no21$4qs|#Ks8ICG zQhzHSNc4X(k;b_{cYJY~-!EBDQclMGdeC>HO9is+Js=orcC6mNEYLbtZ4P`iS2Pl3 zVyi1ha96kvl~iE+{HGIwHnHNJ)IKn%9s9PP*=n)~{Y<*GgYWuzjxWc>5!02? zuOy!Fp^Y13n?zdyYvR0^FDcoD-_rQX#Y-Sh?qn#+H}P0UesiQTYHZO8?syL@nb&}3q0Wc zy4PZ3!8Z?qp@bh)j!4$htwSKx`eqlEWp&~kN}inAx~*nz%^HI$)!#aH0`p-81*xNt zT;J|~FqIrU3gGE}cPR3L?1eHZgf993#EUk}poF4-KE_6cR@Nx>!E9PsXzV{th}9;M zQaDw<3Ik5@*$<)djJnZ+WC4Ka?%O?k18-%S#34G~{kGY4?Mm(ILzm(SIK7}QCnFi~ zsj3*=5taHLSqdDs(?#orCgZ7GM3Vxt9FT%ABu1m%%--$nPJb8H$a^1s;_t*>5}P5t zoimoCghczn&^-OQ-{T2lSDatgn1#bRu?oo^H0X0&+^)7djRkM%&Ln^Ox*gB(@WNyh zx&0>twT_MbVRUYjQcr1geutmT?1RvR600Y*gWYt9j;wZXev$)8Nr_&#g>-WQ6Gzml zW`uN+@1@J%6Zk@>!t1hq-2Y`6=p?wcyBnZ%GZ+$I0?(+QG?dTiq5L(Gk zr^CZao8+}L)o1>OhZcXLltzz(ffZ%-Kjyj7a8+8O&g{ojH)csvoyZp4dKh7uhWOz% zi$i`!k0-(!e5>rV+odscs8XE8n{V|Q&J!Y4cfw~>W~{&{I->z)&67Q=gd_i0b8{GI zCUbQu2hrF2Z>80dDbqVq)r9O|g;*YV$N}Ape-EqrS;@>W2MFJ}^a{(wueXr)*<0yf zgWA#w$r!8AbJ$YNmxC+zSxM~Nh4g)-d{CjSG@-4OP?CDA{>i+;L| zpGBO`N?VJYT*+W2-`zE)eBDfRknckGe)f1UKe|({;xu!ChX@U*h$S=Zqf+`pkP$C| zzJPT(ROSiTj**=73C{eZMQYKRW`k7C0jwG>-IPn5glwlx>A+Ie_5k6wXwhco_sXza zCY{aupdaw3Nx{al7>KF^5YU>wcI&}C+uT00W!NcmukdzBoj{EGSZzD24*McelUd5m z7-;^_Uzm&TH0Oo4`GPJvbVuqBe0%i+t7F*jgaJ(f<&O*+aJ%7)W376d#^!avE2v6K z8pX(soFsAZpAJCcMb_Dsb2oYKFm>Il!8G$c`I3(=2OkL+ol*C6MHQqLa1JThpyAmn zI=A6N>i5_WWYQy9Sfh!bvz!8eJT2-{xRJmHMSI=X9|8p0hI({11E51>Yy+`o7?i)X ztho_A%X-`(Oc=nAB&2>a&HT!HjDw(2RRjjbh`I#1oNPUk%){u%2U&El{}^YFG>a zQ+;t;58IFfn>MYgr_D%b!%&b?SVqaVg^bjGnIa-d@&6Nq>iB_H3Jhr9O=o=N_v>fL zz!O*oGAC?$H;}E4IKeQxr5T9H(e>0vYFyqx3aK%nozDyT*B8 z>_%Zh;Q`iEZ1aa`5aBH{15C2)37C3g>g3-7yU7=AW?BQF34F|+dB{?ftgDG?uzZIE z8~h%iUc8z$y|agsfOlo(3Cqftzbbc$fN%XrA+tzWqdbeEHm;V4_D-DuVj`T^FPmeF zWuwifUm^ZiEkDp1coU%gE`^LFg>z1bB4Xfix_MKat*{5mTh(VL>&+5<(d)%>#kyVy=kgFBA74JQTNU}GVDGUAKq48^>H)qUGyJHrdqFn$z&H;noN@Lv@Q5`B|V7CsYB z{A#{E|3;r!E6STHv5?&*mzH@VIG0PyWfTQ+)kGOo@pAK2e09moes}jw0LJfXp%tRD z;0Ab#Laf8<$>0W9@q$;gMjxk(OcNt-lW5 z`-0IrQ8y})*8N(JIz9cQ3%Oy?I-D-`w=8o}03kbxU8W489^W%FkEIpqa#YKT5WoE#Csw!A6WQq>2vdB=IybyZU#>A0Btc(mULwn#0snIsmTm zVv$J#qp>*CpucDk2^ZndV0szUA1S-iZI4Ho#)oyjHvc~83eo>37oY)Owpr~tt6ihV zX}J59|2^;QgVfJJy4l#l*%H*W*#?0QOUTQAe+=Qp*-`eH0eaZ==~+g!kr@HU1%Sef z(nYtOKW8`lR(l0;u=Xqr4oMx(JlMP$@XYuO4ea%|vUucDCTGN2_|aCpt{Rk)i|Tdj z@HhAmj&$G9%~3yfP)&Zt$KTrpJP+W56vPvM8{emPw=6}Mi3_e3rtIcO<`T02(aeBYxM~Pyx8@A_A>&n3H!{t;3;WMsa8&0g?ImN z+PYO!%ko4~pFTw2wMC0XblxMZy}oQ#cr)_h6vTwfi;fpV1oy(+Y?>R;Fr4hao&E)ES*yH!`A~)g93OI`(V@s+MkP`#Z{%=T zJD7}Sl|zhzIlO4@88&3KFSiXpt9aHPXMaGgBQ&R*bBirNkHF+n01~C1o~wrU^&`(d z3kZ`q1b1AY4^eHaB?Ly0s`tZlH{(H*0xaMEW==$sO_If?rK8N?weEdQ_$d@T*>j+6 z#fzH58XTm>DN*lu4mhQFq9xu_X8Fv#6NW=5r`w_MU>Pqe3+uF`GW=i{q@4~akD8j_ z?hvV5v+8}uwOO@F;BOfu2;d^rO@igQdlx!4p#2aR%combiGOSFcMeA>NhwYnVp?@47ossbcSKmS^j zkfdBw&>ibNL8T)p|1+Au8C5gq`D40{%G>CCePRxkK3?BOsbSiqMVf3%iv?a1U>D!4 zoK{e>{q>V|;*wA-yX~DK`!48$3A5!Qqq1_qP(||A6sVJ16P0=Os|DzC3EtG|PjLxk zt<^8}88WG2erNqa!IL;-5J8bD5QolSPphROJyz$(J+#J?`0A^p*9XSTI!uG2TDuFv}f(ZMTLG{UlC3x_4ErH4eV?Fi>L6$tki@i?%2nc7ODz(5) zHBO-Xpo%DN1j#cT6^N>dNWAX&As%2}Y4e2?wx3)8nT;w zTrc{Njf$D01ZcXw--C8QBxy`+N??7cgTwFE3ow{q@K&NBHio>gQJ`PQPQbTkrJa)K zgcVYdUi7+H+)Nt+i3kGVZf>sau?Q$?M!V5m2Y_XievOfx95fABoVFSb8&w*(o5FN% zZ|eu`oNU5HqP20qpe_%y3nFhv)FqHYPLN3%+7t29#bAjJl#RpJFL4E;(i8*2PpC+l zi!*)J(sW6B17ne%G#bb)ZTzDRObLYAyI2$m26s*20BU_Dv!0V-r?|+%c{zlrb8mXl z>aZ*w)<4P13v|fTYsFqAgGOMX^_KI@{0M^ALsk zzP*K8EX8P*yc2a2&=R81#;~ewAB(%f$qyY4d=z2|TKvlU!x|)+fpM|4FdQfTS_&Wc z3lWxL-G=ZgBG9kAumjX$29PXZSPUI__aaPfmy=@qfe6)W0QEwUR!+OSM_NAn=z(-i zkcIpO+P_T3fNkBPb_3<8s%G`vMeyqcD$4&7$p(l;+H$u^e3qLW4PN?wAC}YDT*s0^ zdW!;zcq`DMoNZoCZfb;s0}zXun9k*nP47_HLD4~sU3Syx{c7H)#^h$B7J)C<+7X?* zTV()%s>rWyeFsM-(9!J_s!ue}Ol=P{WdI%tHsDlS)D$vHU$i&65g>x^yp{+=em<_| zL>u`V7{s;TchgoFhIfX_yQjuXJM8cplR+Lg(s_ItRPiaJCp<;Tk}}zd>rk{%i|dU) z&}wS9^Deg6=1(L8#afMGfcrhoVm!bklPg_RwR~4AF*_g40sQtm{R7jJX}pjXUM8V| zB5)v)JYwNQ30E$_{qTB1(`HH0pC~Ydqm}q&Ue{aa3zK8G#>^S>%_X;kVy$`S&)we+ zI$m;391FY3qE7&~FrgUheZvZQneHk`V%E0WO;6hki@jF&c`Gk;F2Oj$Fnk3Qra*Hx zoLk#)L9sr}z}=xit6m%6= zlv{y>+gRjX%k_XQiyukRxb6@O`QwJlDsh%c;nJy+CM{?9I=*=f5~g@ zP32UNq8JCkT2*>Jwy_`jwu9vrZATlC8d-Rp%~ov;0R)Qf|3FHz(D+(d)}2-yzefo1 zsV$kG@-6k$(f=1}K3ucMQi?7ofAYV@UPAB&F`_p+?Te+}f9a$a6FHbQDb|lgOv#H; zGU|ki29@y5`C$05j|at_GNVZUeO1kyX41NULR%ECqAjrAuMxW5Y!8=L7ycoV~dH_fNu63Ql4C%r!XRzo9>O+M!@R&a?iWYiT;- z<&MG4X^Sy8M~iN7f0`ii$aw#19X$Z&Yb6kGVN=cn=yjd*I!Q27qJ6Cs?B{PIRuUVL`Vxr4X zbq1-xA+cN?53-EF^onbq4we2h=yhLt}^lUQV8* zd2ORo5Q3-GQ^O7S4{uKGCv~I`&sr84E9RYK$+HKC>?1+XTT@G=%Y2hxzfh=vj4m8O z*NTCV{;tzkYoTdN(}@U5rnIT3Do&`(!|7V(c*Rc2SuR0b8Q0mPNYHy|b}TZknWBbm z?p}6@x=WGk{hY4>BYmfAyEn)5L1Q=G-PIBPQq=CTeC(|i!U=O%r^F3P=d1(5aR!Aj zvGT>GX_wD0K%+lj-^Lt1&g9^Pv9&A`xuiG`;e^8-7_X@w2P9{iP-=hk_J(;lAl?QR zX}y?c?4v+_7A$MC>5yE3-<<0pEwsB5PQM`IcF)5@Dx$xWaA(Xn$wQA+~VkI0$wn~eQVBjV+vR+oE*H-q4^M3 zB`VsSu?uId{|8l&-?flkd{t8gLeJymDzsYrt~dEjdo+^Qa00x93RL0EeK`mw@hC7U zD{=}$hDHI!i2N|kk^AK-tW)3VQ(gXm=a(^0A%vvZd`L(b82CxSa2i};424w*X{A}o z7mOM`urlB%N8aXE_pvKf2h zBhn3+8plwWtcjxVw~4CUy}GKnW8#k7={4tPHo<2f&RALZ$=}75Zx!=4MA-p8m9b3sR;I`UXk0~;cZNk$Z z(K7?z!Yne<8bwXV3(uz&l|YqV3<+rkN9_l`Ds}zS?|L!{PaZQjF6EmzH2rQkBz7m>rrQ z9`Ty5$OO!zO3Q3apq$H1quBYeBvEh6x{(}f@6xhf75HiXQ$0(}ajc@hQF@4VFyV%i zpOTrA8F<>6SfR1VIz~;lT%q;>s2-orj!z~mpC8hf8ti9HVU_|3XQ&8_*mxYz)nKOj zA{#kGV1g^2IZ&K`4^RdA`8aA_1QOCjv*hcu(5Pi^(HxFuGW-JRjZ+_4!^0}Ja|oiF zj8c{>VZu`CDvYFkI^y3(A#2`g`9ou$?~;tq$2t!hW(pYhB=w+M(2kp#T#XZjCyTPV zoBTbct$-NSLhSKq@vz#jfZrLeTE2&4L+n>JX0AGPa+LVV&V5O`R2S{g>$!!nOkiP2 zGlv=&XUuW`X@410?vuWfD-xlOUYIm`hF(_DKR84=>Tb zDBzSWT#Rb%O24>xRw^jP2YL8f(aN3uMTR_=nplhIfv2j{Nx0fFwY z6d*e2UvMB#4Hr)eD{h8&!4P{{01}h~xiZ=zttYN!gNT?XILH zN)=obrIx5-adyx#SXWsvt0lj1SY}1-NvS7L<6Jv6&4>q?)P(I``6AOku*adYEKecG z!1UYF8!Azx?Wrc<`{IXz&x-jHZAG2J?Q;zf^t5PM=VDV!_IUlTE~8rc*64v&M9CjZ_q;t6=5k~T z!3(^Hm~GB|&E$DGibwqArL>;wRYTycZqSQ;+u_&)HBm@BB@oHZ$_Jm6Jp9}v?@e&a z;SG^_R&?mlzB3Tu&>lxRJt?W5U>^YR=j0%+6bs}n($NH7^<9qEsbualJ&o-IdDKer z7oqmgu@~STF)RrZ%(7PcG3g(eaN zo3B5i3R{?9oD;Y2_wx4P)g@@56_AgB8m)?ya$Tl@966O%js0-8qtB5*P=+qlW#I~P zz0eU9bC*c`O2w@vENHfZjM(IhZPZ0)%lfLa7)J0F}rUnZOPRk@;F zSBhIPr>}u+_V36sAZjQj*)!hOOCIc) z@i-qqFp#Cup_ANlklrTlMn~l0^+8zw{ft8^I#BIbZ2j14)NuU;_&rMZa)aFq_5sy{^~kw7%11O ze;HGSWqq0c&|`*+tD^khLTASP9l6WlA5NNnrpcQUKJcQrE=v0Y-vhSD_bXdk)DWGb z+ggZ}V# z_)Z#K^Z=2q{EoE-O6w{I$?MPgqF@EaewAe@#xhy-t51|c%@=by6t%ohS&~C@L+X}U z@kdR(Hs<@%J8s!NN>x2`FB4V~JLXZ|HN}dj|a-({R zC%Od2tAyaPwu)iH&VgeZ*4GEJ4sekJsk!leIf;eWouLyLOaM}2+m-M3pe&dgB_3A| z2PFq<7=}ydjko0_nS6H*J}MFMF(0%`n#Kn;Pbt~lOO3nbgO4z_71SIUVp5US2TrTu zy{T|JPL1WYcYVKR72DP@g8%X#n#=2}j8e7yB55KHD^heK9=K?Y-FjfWxAhTU zjn8A+%(#7s8UCK*y*4>%ST|5BFjS%+thlw}s=@}}VGc2?Ky}PVK>P33q^`g)7L&B* zy|*|4%b2!>WBr2y9d6C2Ky}M+h}7| z;CqjHSr@$l=7@zQ@LIVboM4?AzJ4q;b2?vPP0FjPMLp(5PG-*VP_ zY|c@p3(3V6ZPptD#vOIe27}>XOcIuYYv$q3PC&|>I6C}CsfQ|3cr{!{F89a2r|O+5 zP|(gr183OtZG+|OJFX_)kI4njfm0_NzE*glarl<7Uy&wnmAXdv3QVQHM8}*iBC-xS z%1YCbgT&I(N^w^4rK%!7|r?LL+wloF4Hq)DwaB;ph;SS6vnV6*+$repS^7Y zsL0Rm+)fqmqOI#ZA3|Q-A7#=lwwiZRmzl21d&8>U2!90IJMA$difZw_>k5@edb^5p zP)aejvYda@=C2(6LE3x3QVvX2NB?`|OGI$R_wt}GJRG&T>icbTN_$zZJAq2w@UA8) zlVLt+$h-F<%?iG!{CRjk+eGy=>*y0j>NFNg=BZE6>|f%cB+in0UC_U-yFkX`CUu`6 zJn643J8&JsOk%)-Q*(tX{|(UWx4fzUY?Afo+t(tE)jy)gdbrqCe%6|3uap1~&ka`< zl=*8f8Z-#|=kW21(s;eA>qeq+0gc&)IG1r&D3Pcd>IfLOC2zJqk+tvAesu07eUUb?XrR(*jX1(qE<`WhiFQqD zBJ}2ekHe1Wx%g|+%C4UjWeoG-u=KQ$B{Za))=5cqdBxVO)4XG8{U65N7{!=8`d{5Ln%l|-c+ysQNhSM%>6x7z?$7%N6B#? z`hV4c^GCluI_aPaM>y}QOiPmUUD3J3vqW!7ww!W)RFssDl0IyoO1E9)!fXPZh3zDv z%6|~tAX1q02rKWaxlIy`;_o~@9)@s0^p#U!2Zf&&;$_0E5(w@8NT267w$%SWEI%5T zJ1G;GSJ#G_47}dU#}As~$R54!U3eR+Nc9Zon*}m>P*&`CZaOhaFm2m|H}xk=NTnA- zKyF7dh0{5{`2FYxZs0rihu-@abze3DwYby-RRseRLv@xR%WYWFJR|P6N(}z)v9i~F z)$x7!J#TCw)Sz5|AnG@a42p<(BroT1yhfsFQ~-1e)dydm)OiOx|6!%-VT04Ik&kY7 zY_yIKLtkA{dJnfAjbJqVS`u-Jj>T~rGbq?8Y&^Wt1%4a?$pvn7k0=~LV~=kMuAIG7 zxwSa|f1WUdd6x@4IiH?y#X$!QVcTGI3RkU`%(J-)NMc%lJQfp&qchRy1&1 zrIrt@Xrztmb|RjCE$R~H1R_#n5%0iiXa~m24yteWTts@n zCBbjjsVgXJ2(Rk*93%0Q+@b2XXGz~<+Y}Zzi~0=2WQm@us*OhCU7}xJ0t3R1SQ=bd zG~u+zWsaR4W)%}E*bBsZJxv4e@^hYlb3-f-56r5AN@HED7QW_YV@q08oD_Y?$-nbsrR(6(=(quLdV}9j_)qF zID2AF2$BK4c2UM9LPcFDjzy8SaRs~V8EBh9z9r$+9Ga@h!VK&D-Mg5!hWg(DG99<% z(Z5wU2#irsfHx4Rj7~AiC>@f~rK~m@l~j2%X~Sa13z&UzvYCKMkImB@C7J~#u&y2L zAVALEfwalEHlz`j6W9rG6m|cd1J@L@Nxfka@zH>YjzAevLS6!_|``zealZlWF%nQYw?t_>wcg5 zqqXNTHKxp`-AxcmE< zSprFaG2hF22}Rh$rejT8tp6f~%rZ@_PyHFnvD~y`x)B_9)6=oC5hO5a+>9%FCRv1I zu9{VGaw00(B@r@q6wn4xhf!<6>I1kjXog4u^%Be1C@{STY(M{hWW^UJRZU!l6U`zC zAsH+y^w#{5Yg+PewuUTsOcTVgFxYT<6$`TC0_r!J9h;Gp?ui~Hh!`U4&3SX>eoXnJ zWBkjKC==4(1K9HU^g4zayZt` zA}?syFfEXh@YvWar*9|;KYC|UzNv~!`%Ha}R*HyQuLL`%LG2PQS_tm}&pR-Rtr;pU z6~BoRoe&xoGfzl{bE3%s4jMOs^%@V4x1+GSd+YCi3Dzx4#rYJd22r4wo@Cl=sXg3} zu$E_;Zs7*zY{{it&cC^iPD88*9P_!46R`(xY0s?pirMEP{+_5DQmVu2-M)>;h7Ko- zyE|J(T44*jz|v!~rntDmWf>y55-bM)f#kQHt$Gb$?rT384g2`|rw|f8v*V~rsq}jQ z>D%mrWw%>0QYgXg(GSCMF*_zW1L}-L4ss~9z-?We?^^rG8E5gAbcG*L#A^1S`#Dl& zQ`bxNX{$j04CD%CEDiz&pZl%o-F-g38vk-Ba%9?n(h^ZKJ=}YyES>bH4a^^%cliUO zm^R3?p^#{d9?ijO$9UAzn~kITHqbRVem<(Rik-0uf+NH!V;=u!DvV}SO4tik!qgv9 zkl8@dv_wkBWFjKpKn6e9q5fZpEJ>T+od=C_J^?tsjH;9UJ2a?Sv$IL0c$^UakD|f7 z3XsF26l%7m5$8Zl@W~z18`^`$?M)7vLU?&Sh>V)vhUd?(DSjY_W*wOBJ~89B$bOh% z{mQdF@A1QU0h1rxFca6Js)Rfp~?f`Bwz?79&p z49^LdlUCd$bee20mb*yLGIktJ=ypTD?8f(w%Wzz46~QG^u$(k_EJu^AV00^Sq%E@T zd)=h1#$nrS^ouf0X36B**3&9NW&NnV3q4q{SG=v%*wQ;4DjZ5S!*y|Ff;#xg#c@H$ zX^~5jY%lTbsvu;$)UNG0Co<=oMQ`oxAaKC^C?vZH(Bnr|W8799oOw`6*&i}2aM{Qg ztxkd^j!#}1-z)U*ZrdK_J{E4t9%XmIEPzeG)*`?|GRJ?>4vCnQT6j$EPlV40puT3Y6ZU^=XGBsCDq&n|b7MEC_R?-tV zAKvi_@=EA9uTmUr95Tkop#V@Fb5H56{c6pCrPI52?+Wujf&WdiZ}NVo zxITRqr}fv&)%Uua_F_0clY&0ED-*ut`7GNg=3@pChSp78S%`xYX9H;THYpGWjYx_*wc)55fPe;IV($W@Q* zz-lPliJ&w0B1FKdNUJY{L1U)s1Wcr z*X9+z$g0=KLTD#xOOV1CmyVIMN3PI{q}cVi$o0&|tbfr%2w0BSykBSU6qY=vch68| zO;ZUNGwS3?*7lgI3Rh3q&N(_obCDv ze{Cb7E2mmXIr{w+q-9*qjl9h$$}8^W6OG#^-){z&$xXVG|9}5~0@W%A$K=Ms8A%St z1NFUJqbuRhQn2sQ$X~Drkn!SV^;VJkpz|^cF%;kz-Ogeq_jzi)L z6rY?1CJ#$B#<7FHM(;zF@AviW5tzPvS9Lim2;~2N_pIzx4oz?io;w{wQzKjsD|@hp zURQVZ@xDQ?+e1Z2ty?vSX8?b?FuQtaXkJN)@LF!+XH!+37ro`?0N!uuI;FJYu}pu+ zxDWM3V(~1yTn@Flo6J@WY+KO?1{oG;cvABe&&-(7+XF~|{86gtbHqG&-!=a3e0Oc= z+$oJ96i4O6^rh;U;=b$qn7lnuol?B@6)Wr7q z6Ns$zkz8@9<3TiZ8b|&4IbAOyHz>E}J9?hnnAMutDU7ukE2<_GHt{CyDqh;^X5vK; zJqCz35Hsd1inY~l_=1D&YJ=F%j{Je)CCsSgET4UvUY?wtA#Lmr5-j{J(PY;l8be68 zOc+2ux(hI^<15J|KopBNQZ)7-26|2Mv2DSMYlp|80We(u7M0f{t5qgalv~$>@6rf$ zy`_?wK#5A}KUqx77rqQ|Ert`J$lid%G=4pSjn1{I^q0i87 zlvu;!oBH*gVr}}R7|tX3wre;@+b*TmXKuN;QkGz$f|cj+$3+C|TzDANb|R6T0yyw} z#x|}Zu=yG&*hbR)psy($)zI%rd9a$vpV!h>5=t&*qcn#C%D@lZGO5P+p|mhe&&%Ld z(USjk1hpWwv45UB#0fvzpB5^j|9|zJjLvt!R+z-(Oa#ZJC`AVAiqQExvjR_Vpayj6 zwRG#FbC_u3>?nar%PNe?h0ZEWH+@0?7W>VOlr@Xqf91wMNOI|+W&O)u7Y}~g%&q#w z;df~?s{@PozZ9-WXHm2JIn|5srU`7W#@?n>- zgrBG&$ZTafLdo1YnO z|0>=Zmx$$ZAzCp=KL86-9qWieOI%J)-oN3lsg0deQpN&2MCyZh_PJ_K%^5W7)H2^+F-=@Y-vXbnXqv7uS0YXB(m22S@6}P9*E&QrkiLy_Q-EIB*mF z+dmQSXEGZxun{dVza*xxGn>OqHM8k0?@-Ia^Eym787=n#!Z<#p*)6HQr|%klE7-xwNSgY26z0WqNrvF@ya2wYsQK_rb_JE3bCGF>7=I$?xaUuACuy^5z$C9I5&yGR)}E8?iAB zwzDI57D5SuG3UJ|N_qw8`Z3mkhWU}rIr)DNxq?YD6!&5*<2OYyoa6g|D@DR;Fx{b! zvq&!H5H46jIteE?OMR$T*Qh@OJi}!to*=7OG;(j-nQ_d-r=_O=Z6q*r{H@yeaz)j*Ex*?MU~h)u z=zh!}GUVGpj`JZu;)G!>Xzm;HW?%P6B3Fo5+ozImw{Vcg*^18)OFW7Fvq`mZ@g7bH zJ+)O7;;(MdzPVxrrpCr&<*0kWVyU+d66H5QXD?e|QHdpCgtvJJkv|oE4iPi~~D>7V}_DA2&z%5Cw@55Pana z!H#^!Z1fYZY|x?-p~<_GZ04gIpG&LZINZUV9CV5uZk+2QxAf}LdrMd%^~)XK?2)VY zN_6tWbd7hk=5QAfecbC;=S#LYu7RZ!Xz4UvHBC?P{uksrDsN^WV7+uqU+6A2#$Yy?^keAGDP?t4x_~OHxQAudeF*iW!Z_v!f zMFcYQgX*nNRz_V!57C{Lcz=H-XmL+jFs_I`x!=d1BEYp_$#ROqH`KK7ME*i=)iqXZ zsx}7tT!&!!?)a-*jpRK=j{ji@OwY>+cR4(l*9UJjo(IOw7nOqy%Fj5kWFp>>@NAl7 zwzxZQ7I8S$+LE0$=qD6g&KfS?E)r!c2UQ;(F2s%TWILc{td29Nob(UR8R9}RkC199 z>J!6!8z)LgLB_X&3gl^{{~Zk+C$A9juft>(&eCFDG>0N4tYQClH5o}6XQ^WMUTyNa zadP$U9fmDNc3EsMKS`;%WQf?m=RE3Kce&BCmoAb8JRz161et|`~0NH1u%6nD-c zK~MLt=Zm_zgCO3$v7N{Ar*cNa0=Tm{hLIxi<}1&3kX-|pB*!stT=R?BO&|wPe1R9u zoH9=|f5PWS;cS-ENI^u7x{@Fu@Zi**%Ir||i>N&%p_l-qvN@hZtpax6%}@rm7yiI1 z3~|g$gqif5t~V+-q?q-v$B&MR$2TYQ^b}6~C;E|a(Z$g4M>5}>sFU|L)U2sGDuMG#kJhLX( zJ7iH22Lo>Nz>#4zW)adC7PSep3k%HvKS030FNuNt!4epg!?2b4xX{_|33{&Oc9D?I9vy2bR9~uKz;AVLQ?0j&O{uigay<$C$xP34o0m}Xfvy5I z%j%{r?V3Ccb5mOks z@|(!m?-4>elLO|iPG5L?q$pL@N~$8eu_I|TT;mzw0?r|4HujtTj;%DK@=p3_zs~nR z)!r@w14EHeb6)U}OdYxXv-}9UELi_He<$5Q;2XJiQ-QrLcyUm8p(1bxFJjF{E_0$8 z;T=2P;!X&S#qT++N!*ZqjJaR1O7i*$Z&3+qYxcszcQc)zNPat*!28aFMtd8Ga0J?% zB(?@!X^FW6ukuE4xfAaIjlh3;XN0!UO%c(<*Lt|RJ4!*AlX%MaXkp9r9%RGs?+`iHW?tcY{%oeYED-GEStqB3?L zEx85yq4|Z_baS&HN=ojZnF|fMpj#g6M7xGhSH$Ul7YU-~Xbkq!qlAa)iv4<~V4`=5 zsA}r&`qh(tpjHT8$SuDq{*29Ro;}}k*1qIebXZhB7~w}RSv*46nC*_!OTu=sRQYxC=o-8#*SZ97T>Y| zRQ!*cozNtR@8tHBuj;6K(ARE!#HrAjcwm{mmC+RDeG6K4X>wDipITg$ihlU^X}aJP z2>E&;D8mI(IUV;;aDUY#vaa2VZsW##Fa14=hW0nUplpA}2{lX;;S* zwDihhrF}JUL7@|;!e1VKA2Jr(93xZl(Qal@ru*eOQ@`{A(Wa-i14m2oj+Vz17qCKG zAJWdSQZ82`da<`>G_UnZA)ddpEAYC)DE66O(0e|4e8!8nl)Mvk4xlqS~g^I9p5EALKXRwPW?(j;f&M?Lo z?U`RC#Xp+Qx|c=>2y)8@GvcO;`Wb^Jo&O{CbwUc^>H|X=kFE*ly!HpIIyiPjM0|NZF33#Pk5^DZPvMW~fKbK;4;{Y}e z{HJ6Ni~Md42WTSa?!ww<4&Ox1tuzC7i@ChHK;dlz-70xQj*S0ZNqxFVU0HA2gMpwc zsbjK~hbU}zmltYXBGT)cjQIhXa}wN-AZ%kLvJ-#6B5ZD=;R5Q zDF~&IjPGGW{}}V}Ak(!k#M^sQ&sNRsM)el~Y#m8Fto_$6nzMU#7A(ilm0D)z{RTF6 zm3$Jo?VhR&c<7w!f+?!-^dpCOIX12qDp7PORToGcs_2QVGt9qHO2_z6)zYtCkl!Z1=p6+&vvyQD~xolY*hpJUa7dzu)Ea?_7!3cRS~w0$(SASjs)Sd zrJs%^V!l!hoWBC5bH-OyhnIM^m_Y$nV=|+3FCIDncl^Br3oj z4l?$3Vlh$83JRBZXucIhv|H#~ND*H9v!wWxB%#PrtP`_{QnH39u{COHzNkBJL^txG zT;0*|cyMpz4L;c|jyYIDthhIVbP<=}-){&{Oa*t44tD*%K#*hCE!dwOTLi&hl+xZi zx6wGg_lh9vy2c6cSfXW%LFW|yBCtX-bo%O=3!>b`b5=B3#1B-KWg%%P4)Zo_MQsT7 zgN(EIoVYM4F;~I51Q%Bsd2d|mp*{ukUgB2lqkrjlZjasl&;dgKY`+*SlbA~u410B% zqoeG)NEg+$w=ziYsN1bz6PTt2u+*2`L+q^@?{rF?EQ>{WeA1!4u~s&D$`YYcD1lz@ z-@>%=_A?+oWhi{$S_Dz~N0)47Vu4#Q?=eEqHf@RH-5#;Ns?WZ~by6DjS5#kg{a6s( zi^3yzu;K|t$}%o+n&w!?%PbwblUF137Ug43wAx0rVn34-WquQp({EpkFPNd-%7?>Nl< z9@ltx08?Ij*}q(t$bv>+)!@T=o5w8bQgSEJHe`h@$Ux_|fO`E@m_OH?i7vW0#uIO* zS9c5&iWH@~u+ie4nSzpP#9pT2R(sSBpFF6=8`nTgd-RV^SWB`XEUqw}Oi-ny({nSSdP z6LVc2d2J9H!w!ntToqhOoYw8QvV)>f=3JGm$(W>i;=_$66eags1`c%FQ?8D|b_E;> z+vH;8iQ?V@#ri5q5;+p_T1yYE31JePp>X&#-uZmGBi15BZ3*Go+2)V5 zgIrO`F5vITV3is!+F%g;EU>57f>)&zG9Omfi^Z8IrT-2p{zye#tRLa^@8m7)iD)IC3)os# z;8r))#r5q_oX~$whYOb7h{EIK$;?|1QnlPB#H?v19c`tI$I@p7yx7iu7lUQyTKZm} zJ0VlWWmT!+RSq=go!C9NTvVp*&IM);(pxa_tGJFuFdu*n+y>Lm8SqoP%8+8+dd_@) zk}sLujRAJC`id zNYGPg_iLdQX>>}^O!XB;65u`-9Ac&U$2KC3*XRi+@H;eOwi@~^L`(KFG?en z1pJTV$d>GZldlysXQ?uDHxr$KA}Ix51Uk1ZkE#`+wrisWQPTuLzG^o;egtGh4!1fP z=F=x1hSzI7!k;rUq58eGJf_zqrhl&oiX3XVan$|COr|)|iRmPn?|}JJk1T`>w0sFPUO zX0wFA6*^5SV>awz#ZJn^sj6}*vosd*D}ad_Q}YX7%TMFyoA#>&${_6#%OR{F84t0F1Yv?SqN=kL5yopKfZh#U@E5q0A)r{apIhrbS z!|H5!p8YJQ_QI#Kw~(@V5$gME(bws?Iq2cK02b-BLCRWzxk>{JzuGc9v0C{c3? z_eMs*;tw)H5aP;P52CBixeK@eBQWGQm`chd}p;I}UN=+$DC3D5yw}Mkg1}t849m z{DusoeZxq#L18WuinF5m%jf#MdVZA-H=NGzuKXj+tWc^(J%_?*TKXOFB0`I5wkX11 zHi!N$2xe7RW-;?6`RqP>vi1#IH?lBjmv*!o{syy29wMjcesrEzX|Ayyv>5{mgj|)X zB~rQ&r5)|)Lt&d4Dz**Wi|f<52K76jZH{ZMiAJQx1{!(N$tid#lDC83(D3(anRml=2I_X>|$>I2K=daE$o=t&%7 zUHU^IL}YHT+qWrvK4bPZgog9lHg7kZzIgT=z_H*~3P7dQ7(d+4A{5<-0zKEw#D$!FHp>+Z8OI*8TnCI1Vz zxVZK;++g?Um5qG7d?6DJAg+!4w^C1!Dwan!gAQ%Rx?J>A)pL8tew!U}9+ z9+x1ti!5*3S}Ix3>=eVK%Ju18v(ayUOsk}y;B?B+ z7@>`nSG^w-={CABg-_wTEo>eYv!-${V8qCA-yh{IQS=wpXiKW1?-p@RO|A*;5RIOM z-L0fZr?=*BT`QIiS*V}yULr6BP{66?Kv<73I`TUNqJXfD0n+kXSu&sTEy%PUVofb| zZ&q6?=D4ZcL?fo5^qd~>-J*rGMAo!p-;{gm^$7&+HP=si^fVhwbpV%ePA3+{Ud^Tq zf>)Ax_&pZPE=lT*d@qSiiYON*IEF!?-$5hFLt-ESJdz~zgW5Q6`yS++9|T|H#+Z%I zvA;a$8NzSdQ9jCjN1-=omI_ENVoe`uTkt)mDOE3ohf1Ju`v-I{2&w5<{K0!Sck&Q> zty_I5V9L2fjZ4y#-BxzIsowS-{~qv4Rsm`jj) z8S$?&%fuErjuCp5E(--uI{$EJfCwFN4Wb`W0Pu>U&#{jaMA<3lu(EP9$B^1DTzv%X zm}meRm6>SQQ#yS8t%)U#oLaHcZiJYO*Ln@Iu(Ysn8i7~_Wzykf{OMUdxQ4~N?vrla zs2lO=s|1vO=Qm|r4}LC`efMazq5cu02c>>td$~9pnG~DK8?o}F*6s(UpOdHFosfzV z@qHGTTxeUY|6E54tOp8j#8pENa`-i8JU ze>b{jptdvF9QSbxXR1UC5xdbZ_g*id!Y#@>bo+QB6J3<{OfVa>^&oGFI*o@fm^l?6 zoh>be0UYbFsJ`nmg4Z~L#q1YqmxrpkyS0!-#kXzHD8c$_4S;Q zg!gW29COb-Qm(-HITGl@4=zcUOn-&xcrYwzAgVx<-&!C_GW=d-$m zJdO6Q0zfcYZcTOA8|{aq#?c?&KP`0|hz>D@ZUn!9Ckl4S~Qk7*`9Ea(fGS+QFE!%&s_#P`DR@}d7fe{KOj z0I>GM#6OT!jN{VrPy8HLw_`*u!pM|NSLslPKHKiP-2-#0+fx862fzj^knkVtH^0}u zDDV?gqguRb#x%7EW#y2QQ?$$(Aftx>kK9(JAVzUK;w_`diZ!|fA#Ep`3#;F3bs}&yEgafG}ZwZQtmc;c2czrOLZTErz0;LW?@Ko8+~RgzjcC zf{@p9aC?ACURV?Dw_h6cF1n{KAy|<{AZd?| z=s_CLl+}lUP%YPSIW)hdzT_J|G5{S9V0FQ0H5AGGvCIF zQxe0X6r37V7wSz-4Aj$RduiKj*foDggGeb}erG?|qxb;+%J*P0VSiDOUD?Tn`IAhDZA*dbq7B_hVUK=#Lt4`(0B0_n#N|{+; zn&l;-W13S?#pEqaFG}~4c(HZIsNlgi(y``(Vvm4yCVN`6byI z=sNzW8_RYfI4$gM*!L9>{TsH*wTV82QAy`y^Q?V&g_SZD^(RP7SQ{hw=(=Eu8>@|8 za8OGzwA=k?qj%}%GlV@;xup%gj<&G$}c(mC|5tgn|1HdhHi#rNHq z805i!?rfw|5vOm+LG2>!aAaB>UovZ^-?)qu(aOuel(H>Y{0CSeF*h}A;Pakx&{(qL%5Ga7iq zCips^DkBc2$o@p9K!WGK-i*LlqNnBL4MLT^&l^OL#th(TKiGzpObO^y} za=F~7xKr?oM`WLnujl&!@bBdXSu7jwdarJKAZfC+1myo}rJm+5?XFyYdHdQAr@Y-- zkyBQc?5GRTU5ARNZq0678%x8$Qyoib(q#|r%avh+Z0Dz?Q2u3V`coD~r`f4-Wblz- zy7BLU{)ig1rYlSF+(@b53`09sK5Kbaq?$Jf$7F{FFro7V>9C&i?q_8wG)smmkGdjf zco%J1rZ^$to>slCe7^;NXG7m$V#Bw-+k6;)3^`FJM4c2at9^7-5?zyKhRIR~j^V_= zz%weNm>kowOui9jxnSw>_R+}6IxY-JAMEg3)CAn!txyf{b2ZMCRlcTX&{>nJTp;rOMsDJNc-$jwSi23UlE~6= zAFyIwq79s(6Ta&1Gn7kCk-aE69Sxj`@ndc%;|vS36^6@ zoCukctc{z6^SrB=lv2{fAH)DF+%K$qNu3BU(pT?j*hHhaRQAOty}NCSa&2AneA$9B$0%lYlE@XQQ}UI(%Ha9 z@uYR$)s3X7m=i07lNw71C8>Mb>e(0DGNDY`{3|W>MK1O_bBgU7TB*;pGHAj1X>D4klzVj7?*5O_b3g~L%Cvt&tC z)n}VG7-3vI_r2w0kEvGE$pa|}SUd*%9U6mn7L4LgXEeW_$`jT*IEtnq zAL-`vXDq2DaNG!w4u#WLmR{=?`Kw10<|T>ai_)uxVIu2v7x$6l@lO{01!ln~{nPc; z|6qK>xHI=kxo%C{UWP5o>kG^~V>J7yAd3$f$n*Krlp3HHIUMx=28$)LTS%*#4)TLt zacm!Hsw3IH8{r(Z)y{KRV8aWir6y3XqV_0?2da04*tSV^Fcu)4*lac)G78r*%{?(n zlO0U~yc1%5>qPfs^Sf4j`n=oxw#8ZN-g$m2{tIo|v!Ooi2%Hs5i|Z-x<;wshk&2+S zQoSO1{S;L1?7opo@L@NBh3Y{d&GZy#IeU~PN^rIvt(%UH7dfQkQJ65yzN{|o8$j|V zP}p|!2?I1=K@w9>Z7$h-dqXm-ahn5VJs#p^_ck)1>Yu?G*yUyIJiv5n$ zhT3w>u&%AW=h_h(PLyWK_yj&Qh3K)moP-v6eqO$U++s6QT?gTd53&y$!q)M%wKGJ% zXgDqgJ-jvZp&fuT9%$Y(s(^O&Guk|*gCHAh@Q25D!```y`K)$Fh>HEY zl+gpvp*N*-g!Q?z!z1KISR-uyORQuKI#|Y;7)Q_ifwFC+%1BM}G_)MiZ9OHWerM%T z(qT`jiwZfnQL-I+2basH>^L|#GZhYm8LRDxN5I`L{e&i0{%l16*d>c3n!Q1aST+c7 zfXr4~;7)=~_w?i#PH?DTX@R;7j2dj&%)}{uD^ezZ1g1fUIy2+JR!Dija;0OU5KP7% zDY%Z&Y69Z42JHiz$&=$gY*YA2wmoD;wbx*tiqw<|P*O=j5g#}uV61&UhO^|A34BDH zJ;9TEtFz!zQ?#CT70T6v6Ady4%KWk^wa`8bgt)CaW?=rGdn2O_{wyE~{V8?uoY*52 zz}VW|6#phDvRKDfh(cPN{|8!j-p>@6GIA?|p`Hsc;Qg4#Ax!c@Z%fCkfX?*IPg-@2 zg5PDj7``4e(+~=%!S0*efQYDbp#!z-Q5J+>aQvm^tbhZ1=WJ~4oh=)II zI5!|41x8pcgcU{21o7>dt^))YI%eNe_!*e)c;e&1ht6K5V)PDI9S31vY~65a8NNVA zF;AT)uzZ~m5olLL$dG=*z&Yd9-Xb7l4aQUxi%bH%plCi=6_Kg*G>sAi87@FqY#(Q? zUu2|e`3#}Mmf^d*b6&tziXTKpZ1;*FR^Y0resi#@-aItOlq9289lThl7c^K*0_!a?gvP1CpM8IEXLkH&O zj5abnuIP~}gppo{F~~DU1inBgP90*9{BtM8&Y*z09$PvdO@>Wv@}oxSuBcH`PaB}K zh4dL4JZO77I%s-nJ(0T*c2r`8)Xuy@u-o|r8u<{wq=o|iHyaDc=~M|L#h`0OrW8FWv#y-i9F)n11N(Mx#1ptj)Cy;iECh5I5YfZ@oWN1AerE z8)u>W)ynO7Y_#2^mk-k6Z~-5F>&tO&`AZsRgX$ze%?RjSsZ2MTtw+&C`nmds&WJjp zI}0O!Ysb+sL-Cc8=-w8c=gxqwzcXC^Pq8102R8AT4dm}}CtjU_I_i>-o9uFnjcW!`gcg8~$29I1R`pFJ z&~=EWD9=Tb;SUM`<|RzvBVevg%*n?rR zO+)E3S1X?uPKi~q(Ld8@C|i3t?wB)Av>nsw4FTJ}%4IR7jIi#TL2VWb!3fB2n3Uh&jX2({ zv}Hab==U&cbk*#q6eVdnp$1bYaJf!WndW)&jL-`Mll`RCHMo*3`=3h1qz!+txqW>L zHoET@_#rO!Ffu~0;+E)Q9x46WqLz=%=VI#T5#>182KKh%SFlUn}x4C*l*G*d$TRFRZrDjNyIFLrzb%)#|KK9;Pdp zYHCY$zDu{3j(nXUGYyOpu&@ThATKXDAIZm2LOxsU3VeU%j59*{rG@nMK@rcjQ#*sa z-`Iw6TX~b#y)$n95@Bn0{tB(BrJ(Q^6pp^ry4r4%eCn!~DtDn;kI5F;dHhL0b^lc< zRKQ{G@YJW|00{K^8Wx0X21QR5yY-W8Zq!HD!Q$msv@~EY4v`K^#+rf`jGTfTjOzv* zsNct)tP)iybdU1I>6(3GAX+8o7mR>WUhJ4uzf-c*4ULf`r*6VH;*kd71G*nsdZ`O? z;0(wu)zez(Oja~#`7CBT#tH3(uKXY0PTMZLFtgCCP<*@?_L+Nv|CS##Ik& zOxK~QT#%i4fLJQc=TJ`ioM=dwn#7he;fS-Z9#Fvbwk_~}J{vbx^ z{~3klM{N{YB1fe-2`x`|a$POz-$a1`bSrw&&rMs67V1(==?)b-Xn>nNW;eUxq{hX-~U5t7%N?})8L@sL3We$AmuvmqNDZ3f? zt14Q-+}RYzkWXI9y1GC6x)Ts|ohJ62KN$9&fm~F*?U6KHSYvaaRex~^6tmH#qx7}+ z(dbTISm=U004jM$+IiT^nG0Z}A}RPC$EHDLMu=y^a`9M(y%flD^!P?uDjX#$C-|lR zCj5kphLkqggm4m4is5gF#twh%3qak2w#hm0o@)5_2EK(qBIl|6z==>%^QjX^U2R_+ zb!%6rq^_Bklb%ENcHPp^+A!zxQ(E@RM~7}vQHH9W!7eyq>bWj}ZNSX~9M$o+_I7jk z0(E0cW&=3l_A0AhaFUW2NZq7KV6Bq#q{=dRr!4({iQxev-%=KcY~eTfn%Sl1P`=1U zBT~%gRvONAlSbWDGGQ0F3p7=C$H4M7An#&5i=C8XB?_0vg4@OUm>kH!3x9=vZ5Xod z877esLPb(2WJmMcn*d{_ZjyfN1Lld_mQ+*v3mBZ~ppf;dHU+v^!wUa@=nq#j^wkdO z6-U(=1V;?o6J|vSUP>SOa~`(UQmOLM80oO|~| z0te5#E`l+(Nq!&e7u8Mtg+HblY43+v+C#M{g$HIPx+_S|AD{i$pMFV-70I|HL%Twr?Dh~AH@zm zb7=!fobO8tSUd_bj`C&4oKwz?izQ2ronjIm=c;;58XL8KEt&{~l_mq4Swu6J$&<0f ziSuP57Fy5D3Qf{I8D$|2?8le;M7N+;SW<}d4cBQcQW5#s*Gqa-5wm|z)!(0Tj|;O# zI=kuJLn%hCFTAh&paPQ{ftM=gaM4uFW{nM^k=}#Ti9<%R*Dz3Fd1<3m?Ys^I!EBeF zNxlfMRK~0wumPR%$OXa6o};402J2xo){?pG!zbG98-EB;^grhcv{d-4LS}oHWxIct zu|%a9wt|7BQJBc>9y5_NB&T^RTQ(c!5}uk_WSibp z(pzP=NO^t$^t1vt<$DIvGf75u=&h2MCo znqG=tpx?$s6Yx4nm8kDJPJBVUtSUUJR1mx1?jHr?swz#@#MI;JPlku&qs1GUpF1^LI#&1tuMuy?0?30R6MZ{jMpX)Va6vASJgMZ692<;ghm8(+b$;W}$=SsJ^1x5VRu9hguq5Wlg zkL1Noy-tExprn|kV0J_6+hdU^eJfGdQBAO4F@zkAhvUk1x=i-#vL}ocI8gA$@!Q#JMcKN+a zRF)gkF7Z@$A7&v;5sw%%2Haf%Qe-S(BFDx1{l@ku*J84mg}eWgBp6zOfR>Q`V7Zm6yHSRzD0vl6{(i z#oe4fKXV0vy$YUoag6UJw&4qXe~FSB9p(#$SF*df@N^ic3*aS4q`9r)q0~K(18(fH zjKTitgU+ht!g!b6zX`Z&K+h{*q=>-Nf4i2C+d_Ob35E}aL0>x!C z(OBA)k*xmA<(F0;vhRJL;Ci{~!ox;zzAImoKtFJfIFQ)D!8O85YyKC?(AZDsG;Ls3 z7{Q-AN;10~vsrPQLMHZGhT{J`vv2%PbQXWy%n>^E*wBi=?}Ql7Hh<=NX$v6lOm6V< zd0PUORA)uV{ffp2@WeZc)mi-wS-m^X{u-r}%+5uQne^#IQDpEM$}hYTWv+5hsZZ_J zNTO}_h(~wfybJ#ewrPK_v~`??(eP$_V@wk{E5YekMmvbd#jF=?7Q*^8>dIFt^cE6x zO{RW!c*D#rNV~SC%6yo2kAKQ=ws6~{t6o9i7NtsPsIk7tZqyoLdT`CAZCB~XGMO8i z#FUsXD5||X+q>6}2MF#mD(&Zq(`yjnRXb_DmyVAtn`&Gq`XfiX3>Zum8 zFVB0Bgu~J8kp@Li#6AuX#aru`_9`2HHsGTypAc9WjMLTKT;ls)BNF{2{51TAwcZMv zuYiV#`Fj^{d%h&g3cHJ_3aq&Ua)wa#maD#13o}KtH2RW;#bHuJUgi9W9#7{RJHPY$ z(e0T(n67}QpVbx7S(VAAk%_KwjQOe8iMu&!^UXZvOx;#fCT{NMNp)(;4y3ySnduwApGp z#*_1wB@1UqAZXr6$+sh6%PIn#lXT2Xv+v&`<7jtFbS+DN+%&uqC?Gkf)|**9M|K+e z=WcJyMv*AZ=iat%iJ;9W9~Gly0&okOm4r~g;rY{PC2*tNO4rqrC=u25F% z-dVYW12b`;YzBd0zu`QS(B5aSZ%)&?xVr8{Lxg=Sl$5zbt#bOj>VK3ZYs5X#xi{T9 z0}1J<@#%`*W3}$MRVw^vn3mFMi+MYh7E|58 z^z%jxmZ5>FG|F&|ef6x7A>d}~*=Z^@w;^^D zO(<#tbOy9tQ+z#9mT?nIka=99(A|9g;JM`_Pib|sVD%T2#1=0JbLZXH&{n77$LXl)W}x3@i6N7z z8T2``CEjFI<3#91e2T2+{TS#gR=kQzXZL%2Mfx=@!T5?>V~V2=M{7h__lQ_eR#Ec7 zl+Gki0o0YJ2J}AYPeOf9lgIJoNi1zu4D*+pvwkNNdg4LloM;RK5#7@``a`c;XbpV( zEOeyuwt6Xd$~M0J;!HdUI2mtdj08`kY5N~>8dCuTs9RkkM{5^p%SV(5*(O>mv^F%O zgVSEeK4VWfrT-cIJ;;rkqtO$~i9JuFH6Sx_m96cZ=rMm{X5M(PJwk<`QTpVDDR(F~ z%q4`tOszpmoahE76_Hz156m|@LKS~^dzNqu@@3w)e}L)v!yT2XnQAd@xnfR^R$Mo` z_1pwWmIbYeikywVP6!#N%|P&;=PACwC)LyYrm?t@acWF60c%E|KdbcR5hv#1)iv5Q z>a*4K3T23j#otxh51; z$t|?;ABj9+{w7S2AixRYJElW)!azxNuNFn&i|YE=Rh6%vH|hf)v(~CrB10Ie3~S>$ ze*Jr!pcUs0p`6~JEpMP##G#*Hcr(U0iY2P-kUj8L%EyvHKGgb8sBx+@6#Z&X0z5$* z)&Ld3Cfcg%%`4&wZAvVb8OJo?i%RY#h&;gjkl>PjHHeBN5?$?Uw!J}Q^h;g+q0l&5ip6JvK_dwE+(0^lQNl-G9O z;GN4B2@x9r^pbF+>9CIGB6K;z^H_g#Z~*|5zzn%r^AKez(VAZK+GDTx2h1#g9$$Tnz*LCrM0Z#@dL{l-#IVyBxGwdgtD>FOr@UX%u*%A zAcNWs0TNmlaMtwNK%&)31=JLSz4IF`65Ufm8MKSX9?pW@O+xc}I-if%n#h9_~CLYyFSE*!yCFR8m zv9bl@DTCstfF@Lpq3Ckzoq!L-y3JW)H{DqSZI10mUJL;2#WbdhE5x49*${H)ItYs2L9+aSn67Ac7jv&TGT82v)o=WFZk%z;h+z_kbJcqJoAt z%vmk}0_P&4{q9;Ep}A9qx5Cbbp20u(E9k)vRz*yU$}U<(WL|?hvkS#7;%s9NsGQt> zD2$$;LzDko+deunxeO8#4!AY_?0?m=M~?H39NU_hJE35aU>52+lgi?Ug;CiLMfIZ=x{#A1LIqM3sAWAIzaK zX}Bm&Fe=VZv}JJi^7DD_A^l|R_*ajfh-a^WGF(hk3AL6pPCJC${Y zhKwxA!UUw3)f$)avqOx^1uOY27Z2WyQ+Hi^?(GCper%1Ivm{;)lHB+4HlI)Y1r^$H zDZtUK&>VJ(UuacU2f^jAQ-H<#QPv1!0~zaUBmA1ro_fVf)w<0jyqUwee;dq`iS5*l z*KMO3QSL`1mWkAA4POpxP@vvy+)(L%%nEAfRM<*+59_4@mumgV z9AilNm~4}NS@a)jU(it3CYoJ~RKojL{WsWWy26^&Kme6Jj30yT(vDZeUWNKF!_Ub6 zZqpUJel;;DIWRTPs@nca!&|Q(x^#M8)cdx}r%9x-cHY0OxFkV9k{pm)*KumS;I??W zj-Pwjz&V_+^+JXOePRN=x}!&4g36V{3VP(ZK0UhaD6 zehoc;`pX$?#ITbh?%ZqLh3q(^fUAwv#>h!yUv#gSb9SLB zUbE)7ds06{0B#A>ZpQ?G^@C|;gB8Nx?GKA=>}utQbEl{HE<s7-Zx&_XK zciUGFWU8-)$MUAujqRg-(DNu5`^cw8MvC?mx*rVR&h4D?|9JhC7-H3_rj^jlD>~ers4mvCw~wX+Z)wrl z<=2x+-I@}NuLBRnDdtNA`viSBT9?DLnaUDS!SdYUrgY$N#Wc08`Y_$>7UI;y-;<1IDd$h9F|tNXaIktx8K zU>o$~qaW0{M0(Y(42jDYEpk~4kM0>xhwAvDXf`TElE|#!KYZQsr&Ee_+{(M~YQtjH ze|ii;XfIV|;Pm^1vGU<>#mhOlSP|yxWwOmkeqv2|lCnLRk9#-&gv~yt}l92JrQ!W=K_ZeM%NoT8(9VB~{&I z7Z3va{AlG<4*y!&nXIrB%Ao7gx(t{)3`zpTL>W@H)G3?=>LTP#pewp}PZ|_2yyRzi z+-lVR;}vBSDdq>k>__pm_d>tyFL%>;g9xiby{sAt%L7ZRDdv_G)+82eR9M66l?nVy zx*h2)x#yfARtRy1I0jC8VNzUZ&b_QEVQgI6EC(6_?fTBio0vE79m)RAR>pHzV4pD0 zQJwnUkS>3Vcp1*Qz1SGPH|NMonCn#32crvMIUZ8v73~=H^HcdPTs>U@YtVH!xrzLP zHA>y%SzJg}n;`{0WPp&eAq1W%i~~AA9U(SD%Ka~E{G+ce_&hAyPf+(_krWM3pXeg` z(s%FXu_)8ab^QVz1laI*P^$ADBiX)KHTrW0twUVf+H2bv>8?D6*B7=*qP@F1)Y8+= zm~)Q3^MX1>zjPX`7Y_ccMNL9lV1fdxB8mc~rzw(h4qz@R7wS-dxEUZNW%_rFk2J4+ z34)%c(Ix#$(IXuYF(3sgNNOeg=8U{Rhjg(qGNn+=$u`4n^e)e5&GWrY zDoSnO-n5JV3t0bK5NpqNT_J~3b$SBxg6K_#E`R)@s-EHzJ@rm|IJ6XcsYhTuz2E0a z!w9li!&#$5H*x*1`iUlylHjzNAavN`m7BQ6_+)3{nl;~Yi=FVGc}aqS5xvLWDC&#* zY(vDBt1wfx;EO-=si3n>eMQv}sbwW6Dt-}`;NChP(!pA7dqb%*8xcbB%#k}|LK%eQ zcXp`({P1D}x@qx9GG7&?ebl&QmKqF#05sCQbsE1Jd6J?U@~U$Ia@w&>8L~ISM-w)| z-vYNz;ddjha8$F3beazra_qigB?y%scbIT7o(>c-Z)kx+Og(saicf#C0*SmyQp4A` z;~#-=P!D*in7fMWc&Zc|o{I4y3NwItre-Gxdwj+JRl+g7u?k6>C2`DxK{Y*#9^%S^ zfTGdRxLz^`1`BnrQd$h97T_v`Eyl@4_VhghY74ReM-Zc**3vtrix8pzW~>EkNB>8R zX2Sgx4dZm$V(NEoiNr9Q_q?7PMpC)jD(k@P>?)d!!IBBIm=)dzFx}QH|FR8O%A=cr20{Gk~$r^#**M4(HjiY zR`3lqk6$Us=Spzo+z+b$1i%B7wfnX9&dt3ra}DjG`GM-f$2+Qd&nCGFzqION=97`% zb5aQ8?$Ng$u7hA+GvxT5Y{@Wh-S^5=5}I}BOC^HxKb2k+-F$1a2cO@AqjGc}W2kRm zx;qcT1pY;i#&eGYHw!wRZQ59JN&jRhp#N9lAt!qcO=JcW9D#-zz2mIyrF$3fq`g@! zOu)7r0ZXzb^jY1cD=1x168~ETPE0++;*(`m&U*3##}P-m8P`3L67e1cieY+Crm!gK z^|ZWY+Xf8xb4=e}Inwpq z=Il>|d*rZNZi6+^nM)NLN23+9ky)*WY(4Tm3ENH(-auT2&H&T^|2D*+%lFsEj|v4K z%X`m!^*BR5%UCI=Sj!R5`h)^kg-F1t&#mkEhom8EbcgZ1G4(%56X|>K*&(F6FTog- z%qrben;Y8?YNvC}0;ie$n^gVshl-SlHi#DeW4m&PKY(c-1oh-|czZgGP0yL0JxS{o zx(I|5bk@tO#ZN9m#wJKgZ)k7wwh8On&vqGLMtdfT!KhZGZrfL?Cck(`uLSo0fE4Gd z`{T9wvupyJ53bMSYEWY)azi$lsO2=eG#B?BA}(*?=Ph^3yZ$-oqh?NoFnRU~YkHe^ z13N2}Lw^J6(=cLqNmMzBO}{h_Z8$4F>8)BHRIowYfa;AKpLI*MJftORTY+_#Ge0H_ zET1;$#ABJH6^3qogyU}fmWT5*Y|bAs<3I{)#ZJTWN0wb?nLIeXYkNQI;}{jIbj{*8 z!N5)+rE8T6TnIHd0&2@ouC^=Nf5&wzZhXw-EHBYoKyxfF=p|p~JhgVF9?+jaT+!Ro z4E+#cL@RQqiiA+4^KU!95D+R<+Y-qQcAVDzFTx}ablglsS$AoF7yG;UGL$zD-|1)s z&Pj$@2~I(2KfE_N;WZvRbJkJa&=*dxSAO(hyCkr6vePcQ-H*+o>8>` zpy?%@gc;Bw!0Z#Ij3Afb59VpJe}1LVMl}BwYc1$*L+msHrO0nd@r?{MND|;9vSszo zT4=2FO}L;Fn8;!j3=5Je{K>=no@)9p9WB?thdpv!c~uql{0ge`DKUX!w}wS`Q*9Up z56a?RXP8UbL0HT4Ths5oo1%0|S)2CpWldtuU>76a>R?V(vw)>yx9Xb5%yvVQh*D1s zX{gG9t2c8_zf5>5Puwg3oT)`Q-_0u^<$!bH-82Y{ zar}!Hnm{cF?I4AJfK~mK84l2NzX6WFgjTygrzA8NHq;`fK;Nh?&%Ij^2yqdBuI0QJ z@fv~Nz;kz-H2t%8#>+8LjL5|}w5r%!nZ){Zpk4td$PSLtY)DKpQJvf1aU)XxVqLI; z1w7REF+{(TOO5xZ-Hm&L@_A&mDdHEExU!*{Fw!JiHu_C9t^g#MIjmYJMRh=upti@3Zw#70PQR zxdJXw6^FL+fK6sM{65M~WVO-y(PGDq_nU)G{Tk#+nKoWpIN!i@?sj~svAYw*Jvnf% z%)DU4-Xqio3+RGQ4<;vye;%?Pk{TTJ814$2O!>@Xi#*1#ij}q}(?#kKEQFvTMh_Yo zaY-qB1Gz<#t8xr?ghTDCdnOSOv^$QS5KB+tDk{XvtoA7*af!}njf$q`)0y*NW@WM; zWOR|Cb*66fVGmRzk7gA%6i*mTrI2{1AgR2N$P|1n*ONVg3xg^gsT!~Qg!88?9jV?t zO>-X<;Vec?F#ZdRlrlt$s(x>+`yuMNdvhF`ZFnCTa77h?gqt*$>$xU^@Be?8R3`KP z7{?3c)#*e(Lk}tVfsUrNU*~4Kg6Ww0RPn+6C91Y5)P+%Cb@o|nN6nLw%j|WSvUwn> z6db9{3?CONb*Ezvb*fw&u#3CrML5KHP|-B{+`~Ba0wD!IVa%!0s0UPT0e{*h$ccAR z%#_4$|1PA38E}^!J#6-n=H%oir62Q z+(CUR6%Wv6U+}U!b>#FL0R8O2h3mxJ0L_>SYvZx!Ty$wyaQQVoz2mcJ4bN3K$VIov zQwmUb=yr6^Q+%+F2v0IXxs$v>^c_bWb99*SqXCEYZ#TCShh?t|$fdQQ3%{P(E;=5l zlHZC$L@b-Eh>z4_GZXFPiKW?t&VIcH$I3Vn9YI30-YBDq&JJ=qi-y8B2jDg37Z^k@ zd`YF*J8Dbi&_A#h>n~BdvC@hLFuiJdBb)i#z*#Dp6WPyWNmU+4O~1F86t7qv9lqt! zfKoPT$H60Gus~sp6TsO8m4!&RxAHR+Dx+be`uyUk)E%=wBtrfI_29ZH%&Ecn2j7fF z^-7MCwt#~jVHGon2TYeOi9>eg#x=u(PL1TILl zYfP&$xW;vD;he*-Od8VLyotuXVIl=NESPB?nBC>!Om8l(q|V*0(^RewDIP%be|kW~ zSi;Y^$$NmInOavyOFDBa#~{j&jE(if_(1@U#hI!61!1R6|4OM{+A{`Bws6h_guuql z!*cxzylIDFJ4E2wP`b2gYVh6s)@>rhIZAaZ;>5@CvURSG>My_%#%;7!OrLl5t1^2f zshqW zFaxq%C)+=Jp9epZdcb~?oh(Qgb(8f~6Rsi$;a0Sf+rQ=NRz&ec}$Z#hUB zdOxm>^r39*qVeWAXp&t%FU|1wErwWEE~G`1+FnY>LIm&sb^OUww*Mh*Nx$|XY~|^0 zg*fw2VG4sAp5qu%jkB_)qp5fZg-GPbjGCuU1^D{*Y8^V7gMXZ%7W64ZuZw7g7Wg*7 zOuR-tQDjV^QAkJ3)s5Y;XapALvEl-~f&+P@R)JkW3}CuZLehUUF)oidji^$ zkO?DF?Z6r*>dazgbS+H^A!;&}t}H;FmzTczo;JS_N$wyuNTt5QT%cY>57&5s#^LSt z==LS7ik&jXI+X891=#qW4aU=JM<8GnaJvH4Nyj(uc1=wlqRB5^f5x_`20yJ5Z)kG0 zr2Stcz*)wP(L8@QnLw??dA?#fLOw6j;CL$KJ938=Sk!;V^-eRGN|)7asU4Zsh4$b9 zY91}03UGGl48p(neu4dnvgDF11rc=@GRl{Hii+m65#pWR#QlD8)87z_kVN0vE9tTd zMZT9-_8I;8*nY~p8$n`~FZdpcLXx116c@#S7czn| zPUy9=$KkWfF~s?kwzf3KS-Y@8C;FXv+4440{$Yysi(SSn&lxEdh0l!&Y%+}7$LX8h z7zWybZFH$EW^A} z`gpFs&n{Ac93k3?*O$G!2lxC}-U{uw*a~n3ZtFZs9LR?R7ujVz62D%s;xSd}80b(( z_WL_Xn`gf6=~Hb7A!}MgIjEi<6%au+?Wo=SZDxt3&gz-?kgiMcXrj0WE0Yu%s2UQW z0Ej-!TuL$86rcTh_>kBw0bgEMsqHx>6x{geb6^aB`R`MiZB}N^kEse8)t3d<%u%CR zW?lpKHYSHa#n1*gv(p>+Oty(p{|VUG&WT$0!Z)tpiuEoP6BzMD)Wbt^rm}?)sAy8- z$ufjzCk~a17(7HO!LU~MHVb+QcI}lXlJQKKTaF(fe}Gp)V4O6$5E3u}FrR(oW!t~i zajbP=K*@xxjZ8xek9|xx$j~&7n71HWM}XHQ{>8ef;;mut;@%kaKO%{PD3DwhnA;Viqj{Z!bg4`{ivCcg2-zEa&gVvqqux*tn| zDzT=TOS=G2`5ZxSy1Y%ZTZf9@Pt-TsI~GgmbZHpusd>Sp}rvMHA}G#KUQqyKuR z-|)j=m`cWBd)u9Cxj0tk?vI$5)x*;exE<0+m*?s=R?#`Ox*ql0pI6?(Jyn#cv{8XFggN*P%;I9q`*vj-wgQ?BTF;q*~a4G?H608Vdm!Q)W4 zSDYNkUQBw%55fFZ0Y-X-DPl7#fM1Zb>72@>uQx<0vM7Z1laGHBE@^xulHF)x?L&LO zTMWD%?eLBf`}SW+Tdey|zC$zaEFxaEVqTbv_>*-_5{MLDE?<>{vIvt&NH+gcCE;Xu z;90^Xoqe6c*kjoXr4Yyb7PR=9bn;^(-Yf-(HRrXM_2U&F*>K{j>Ex^Ts$_Ow`tSWv6_^0gYh^#hCW8SyePX zdf_*|$p0*zgLXYrNEQrrYzywHcXDzjEz1oD#?{cV!6Q!JWl(zn`#;&&y-!V6)hzn@ zn$onO;_=8OCatMOF@ons-KwVnlTfO9<2n}&J71E)tm`p+k%ZgmuEW$|$K@`cHBx%` z=Ybr0pE)g$T!?w}b!9%#IiYDNRg({Naq)%6L>}bwbJcU1o|1r{99-c_I@2;n`2c_$ zXk_L+a`a)T&$&1clwHoOi+QtOLfZ-4PxK02awmhWs1`KR-VdB_5+0XltyviG(}lnv zZS=JcwTG$N$JPFHi^Gee$2I#7hOyV>hqY)8MP_~Gy3T+i$v?_O?po``6@JY}fko?C z7t#=}`xTXL+NJHsG!$@xaXcm5*I_HnlzHts(Zx8vjArft#)InggS$B+=0iB@EZAld zxvU7?cn95K@}5R96Z3>B(&ABe@5%8uaL(-xfJlvaJG~kBhv~R7>|=QuBQZCYPl?>* zbSy~>1XCqtMFKST6h2860h5@`|9|Wd1-AhHZXsR$j4SMdJ0!$v@ICGu&eFimxx>L+orKO+;yv-Z%`q#3{CZ2Pj6gB#$!m|#wGG=#I+ z!{N#+zbnWh8k4}x@DxXZ)|(EcY_WS+s^??3?=CZneFLB~W2G)%EA-%Gzpt$w&HnC2 z78ofq`;@jHm*=iK;=1nMrXU^nbB#({T&jV!sS=XjKF9`bNHC%^yX^L>WM&c18`-V< zPOuIGZlQ%lp}?9g``J+qgy*W?G$F0#xtxD6d`U%y(kkiq(>FMXpV?m89ZL16?(!Hq z(O`66ZMy>M-jwsRZ^72(XppuX_(l#`Vm!2gju+gMe&NpQpCw` zt1WUh7p2Yhe$wB!%(4O%l|)tPT~^4zjGd4g1=ES5O*+VWL)^A><6pK}Sv?9owfi>F zkarKl+ABu+hnYM~Cy7CjscLDC<@KT>htoH@<|x+oo#Od?Uh!9(xep!n?2FM=^bNa+ z$fJlh8G9MK&SO11OG$SNC99|2q{_(|#Sh}_=JRce!ex-1@jh|G3X1sAl-YK=Z!~hS z8nwV(YF^iFKt#=J`Vfw#0oc8jrQtn@)3qF14u1KCk)!>S!Y9<>`-6D#&Z$WZFoKp! zy~h-EIpKA=zzq6|(EFN{me`!V5c0`skS6@mcf)6FlFTZ!%+~Ib&89}dz2H%`By)l} zlCMou)#ZPQc7^w5_1xB+q`QGLN{ZZb1??)Cno`=#6G4(uS72Yblof`vD~Snq>I(|f zx@EI4ap*GT0~kvI)P~}sCmI4nwz!1nfK9{v`tgsk9s%S(*7)t*Agev4Fv-)l`7fZ-N8Q|9|R%I^nf{6)p{M zy7%LU&CDHabV@G`WN$~tIgS3qcB2uLl5C6(Qd-M}6vZDsYf{+Z@8s$RM3l$jbTbl& z&i^DAIgmecCHu=Z0BAa46HG4l!LKcH=zsog3J>{Nf;-?4-^Z(cL5ph`R0v-|wD~WF{_wNJKwW zXa15zVCxr*e3{^p7O;tot~Oo6aqr5P5nAM#5@fC>V<);oLsYY%|9}5~&_Ix_-T^U( z4vA+&$}R)cXPQMo5kHD0k4dyK8aJDEW8jqs?pO(gSOI~t8l(v`fXz`AS^sy{tjC`S z%FOa)dopdnP=L3T1kdEIs2t%(kWLx}1nSo$|9^Wu`z2HX*B6?!j`I~R)Io{X6E;9_ z&pn+vP}E{=lu>ljvu5|CWG1_&vNtgiCsAbyG5fsmb#tg2HgETaDk;-F13s|1^!dY8 zP2;8if3A*)yJlT|LBfGZr{pZ3FR z264@4^I)X=gZsbdOx&}oPge|~AH{3l8=xTOVW#J_Awvg?qY9bG`#TSNV4dcU39y=f zO?3Q#{BHj?hCC#aOR;KgAkoeBaF_w)1tkSG1}-!F9@+5LC}b~!4^Pu{Cq((wwvJt~ z&yy?&habJ;q22r5m9E6F)9xV`4fC}wesl^FHeKv29Bku_)lbh>`K#D z$;Rb_a_zE{>ZY<8h~uQu3i#9^;Z?a;bErkhjEDb8%gW3u{|0Ah@XAxgw14&B4k@<%LPU?Y zq`QUf9z7h5C)G6u?w*#Q6Gy(|qfb6dkSe;f2`4Vwj%Wk8yyAX0Nw*wmQk7$urPJXa zt;T~u!{<5;L!T)OJATn7vq*TS@RR8I3=e&-#DeRdyrZTcnw-l2G@Ap1DumXW@3ZO5 z%LI^3Fc_UM$-vdkBFGT6Q7@jSw-Ys_TsU?6$Be#e^>@8>FSimZBxvw? zoV@Ca5enseVT;0#3z=H)N2f}k)g>(zJW*$UaUllQYTZ%zLUT82b%=n_J`t1O$-DsT z+Cd{gsleam`;WEvEvz09WjM`U{yEVkLh1sWVElH=CgIX%2iiY>@+#)F2H0!m)o)d9L`U{wIgB~Ce9Za4UHqUU4o zrIssyKokR5{^2@@ubVf}Fn8s6z7;sMSQN`S0=Pt>AB~8pi(57oO(RRGuPcXoYCfXxv@O3@yQ z7w5O$6{SN1cgFgNL}f#~l6KL^s;>`7#3=P`eMVM!NKr^IN(r2?;_p^Mj+2yqNA8Pg zShHvxr{5QAy9x2j*yQ+r;o+(bjEUzk-;?G?UKvyGx_><-%FZe|Kx+=|z*_CH#+!-` zhAO*?rFyd8>_Vo?E~J zZ#!6WKx!PmneTf;4Q+ICd3T#;e|!4q^knA4rWUP)F@crRrsq;__D>KbDi?K6Ka!0c zIfDge0J7JLHh$J?T3 zXAz_r(E67}ORx*y9zZ}^23e>)NEFa6s$wj=Uo(BA2?>Pp7Cy4UOubmYf3L~v+R^CB ze=^&2K4KW;n#{>`F_P6)s|kg01XgiJzsr-ipe@u#283ryv6Z1-jeT9QTwvh8;(X1b z2ySA>`8J@UiAJp2RRO|>PlqMk_+oPJQ^Aw~$#VGK4!N$%IqwK>ghC%?Jm zDec|x_Vydowv80Z=m7@_nk0zVy}CRsB3@`JV~N38C?h=)7jQaWc-~v4w}7+Lumxn1 z4(3OYbD7%>F?$wAZW%fAdvornUH*YYpQMx_jI+0Klj zF9$AqHdU5*0n9hh;e~8@)j9C;i-Ow)Kl^ck;!c0X)Ca-p!^Ebb4E>q7p@|IQN>J)z zPfXK6jmp%F)?I&D&B%V?wZM(z95zA0b`h{apTTP11Op|J9au0C#5#6X{?P~n@>JLR zw%7PpfQkuo4vvH>5%9POJud|LKsxFTzfYdHXzNFru;Q;`XiqdNUUqhcLSR7qt)GFe zt9k|)fMQRAdqn8WDJQP~4X5;9y22TfP25sxtRyZLhk*kkk;Q(*Pz@TrpnjP?Vj8Nz zsTolm_;v9(fDV)*EEW_1*Teq@5Gel%{kg=Rnq~gsgF#>H^%xSyNr7z7)l2AAp>6E>Hlq)qoCSqYkjfEG(RIVHbPqmLT4CFd1c~cf!8=r&hYqcn zonFNY;zVu(r$TC17A(NXDMS6C2m-T2~_Y8`%bz{q)XZYof2K? zxK$bp4h`HE@mmZ85!4UC(J-o7{<$lSH#O;&(dr~n zP$uWhW|IN3$5h1t594cySdOj=;I$it-r+6N;U+sL^=lyuUX%k@x;WT={kUrN#` z#a<6hz5f_d72AQH*28)7?~e9~?srs%=g-as?{UsM^?U(M%WDX(^+K+dOgnK)3 zg(8gXRl|{EYel*$0uAbZsLVABsh48j??ZyPfw-Eo)YS_h^SG(Jl%B33OB?VqTht|_ z-{Y9-t=UTbu3HGIq?(3_ zypPu4&02Awn9S?emMVMckS|`cZ5n|L1dW|lfg|3rW@(V6rM91phY@k!&#$l!@3^H7 zK!yk#W0MK9@KZzee&>&g1bwF|ha&$bO7s*oD$(aOWMbw4MP?;7FZ)Rbe_6i&VPpSL z3aBfO$?Ae%685Ixj;uNZpI4E&Q31#MRB^ zyc^ne(j91yrp4!{DCXy56R~{*b5^180o2n4)^N?vnE6#=ij6(XpFdnxtmT%2gb(A! z5bUMkH%>O9TkS#*Px~=CA%*U*~t*zn0B&N6~N&tUK8z z+FFJ|8%;n#m+YCq-db<6?9fgmi{n?S$LQ`4<@;*~l~l<5<3+9s$W0OOS5MlTeRa(K zGi(H+>hMBlIRiJF<(^lISb?s_ zs?mYMsU#!8_j|>j45?OnYa6T&T}ZMRuige8`e^A9whnsy^7_AULgL&AiG>v-)lInj%YL7*AFo6Y3PB7{o^)PBvas)Qgr$43~qnN+FLGA{Y^VB&g zMp04;Ye$DRkTpYSLNc$(6z{$KLg_r+h8le%TOLegRwyWDt+V2Q9PmbGA z*jm5C31qeI%>$Ii5I+`A{ero~ab;G!wUWC%AY{7SClC0yoA?Jf2h{+(xIlJgkXp2d zwDbRG9oYFbY^TPg(E>eIK*!Rp@GrX$dZmT&E`Ru;)itJ-C7p)s9K7NVs)k}dQraDd zcD!~+bK0b~4#?@xer$)<^z!H=D5hR!as>UOIhh^&*+T;@HVSLki8}3~w(2|ZOH#13 zX7D-`Py}fVKC-_h%_f3;q7;fNpeT>NY3bhTDA|ovcdpXw4IIKlwT)>PshV$`cuZ2M zr$2&X%e^3^WkwTX;fSt%4++jCNEO|q@Iq2KZDZ@cS=OgBe=t!u?`CxPDJjsn?5w5A zPPj41W>GDk%>ZeUH>Fn&Q%*{uhlJJ_4VAep@8S((t&Wc7H$HBQ zS!X^1lC}1`K6PdmsqpEa+%W=0X?SB^;8>Z#4FMp^x7?B_$#2M}hrU&8x)($%v~<{F zcsS?Hu@MqxaPEcQzj_Rqok)*ygEwb$IODDO@Qj8(OEWk0E&jtR5XH2ZD?=Vf1(ySO zB_VFJ`1s0w&SpwMZto#fz^kU_(VdR5qA%Tk8nX-h$Y+q%{4gJJOBoI%*ElQXpw+@) zT)ahtl1djA7+-EI4H}d<%m=L&tt+iLH1)lfI>Mx3Jp+Gm#6_B$V~Afd#?F(1n%ee` zF(HTz;litjTUrwP_p(Vk8qIO%&;4m@|BF^DUR9r@$&juI*1^_N;j>#qub?w}J=*EH zC;DYe>PIh5#larn2z{6uBaj5A9r+kJ1|rhI+#7+8P~M~CC~36g>6%JG9ItATuMk9U z-YnW$b3)=g&JhU#tA}xpR`ZO}yZ1&VoCGrZio6z5jI_oMd4MM_Z(5%4f0Wa2y5&#U zEGUoO4jpp@ET?*zlzMSML zwgISgsmqjOFHZF#;Yxwx*W}X*z1n`HS)f-d*Pu;FsMEjY?|Eb+b1V{InT`^I`^W+i zaT2K>QwMePa$r`ZCYU@Vk%Qo9GPd75OeGamxQ(WG>%C);nV=PpJP3)tnz?e)yQ`{P zj7gOM7W?^!iDh8_c+pKj-lbBhsKRu-&q$Twg5$Kh>AB&!WzJy|jN?F)1%n=*xNSbU zTvYU4Mp!r27?xP%AxZwvUGSGu5XRp*i(s#5DP(r;aFTkB`|du&4}`w^HUxw1pG=So z6~1Vu6s8-%e6~lY7QokNk24yA{k{qdLsDIvs1Zixo*_Zv&qUK$5fKsqiqf64yvwI~Q*!dOMzCAr735Pj2v}Il1rgi}lIj zTM=T62WfGC*%3aMOhZ-J1KWb55VE>LylPf##x=(bC*x5|>ZZ!YgX^>f=lruAr9Uq9 zTT(FqHyeA8d09S&(iV*DUJRnb!8DZD##RB!bMrXp`$X%)v%H&`(oT*6_rZep+n?8Q zp@7sTm!t12m#_MAu~Z7TukU1D@M5qxqV+`>`9T9DxaPtw69v3pK-od%OuB^=g^pIk z{(u8ITa?rnYX5+S2;#EjFRn9GxeB zOEI_LLGyt>>JYiS-Rdz(21qbi_*HkK7Y24m!1>2vVaS*P_Yr+o+!dqj@hS@94O zmzkCp&yYF)e5;hzerKFA*?OR4ocL9ccbFO`fSz8TeyGIyTOQi=zf?@#mZOw4uO#Y= zW~&rDei^pqAWrDzFh9|JiJJL0qbT8tr6oucesPZpan*0sB%Hc$?$%j z#5Gl%?o5NT8XQB z*HfI8dKdi*(w!sKRF`O?SL8P7z8NNVg=+o(8;k`QqZ}F_zunmqQ#jTDn>Ip@J%Pg5 zDm=dwFsF3#CFr(FB5j}1Q;~~6pO;=h;+z$K2E8(A8J^6k1-+l&K7ZrObW< zW|JBKCt(Gn>+$w%SfHN{~Z=Ke*ZsJ!hmqjS_iMuA4<4!*v3EF z#)HaPK6xsnW;$-I7DM#1!$<9hibYPTWZDEC3ri?Z%uTeJH%~@e#fxxRKQ9YMIUa27 z6-W^pBt9mkB~K_5!hj7n8Y{r)I}k;BTa{3PicFXaS3+o41~Hk&21K4d{>YMk^cpeO z5iv-HJ+K}qjit>Wos+qP?Bk0C(`*U>{yQA>+ejYms3x>C{>>HAZ%jm77{xD6W*=5G&VS9DPHgfdz z)&oO1{52-g{~Dg5f7Oo7#Bk@xTZfOUk>|0a;{P~Hs+u=wO4~)1g%j|-d`~PDAGc7Y zp#tIpOlfx+kwyc7uqVs|vX|USBbW_J#_uT%TDj)Nz1GeQrpwXqffc&NBKI{WhV&gf zEU-yd>Cn5k=z!Tg2$yylytL!h+5ex66i^8i6zS=e@cJ6niY*hG3=HwQHwrS0hUx?CM3eLuTh=i ztVdK5meg<5@ANK?Xj#@P#l?^a(>6Y-W6|WINwNHp41faSQ6QK{=p;lwn|!@R$>8+% zErbgJ&C1l>FBh0*aw^~>z`KuOO-@0PLTL} z0sL&U$N-=x#>>LlHm_i?lRc^}j%A*4Vn}0O&+OoNs~5U-IH@sj_heB`s+ zc6_6J<`i^c`MBvIfNH*S>XG6$Emn`mQ#9aOV?&pF5YanX+Ju%vtaMdlkrKg&Bo8FJ za%mgi7g3NL3!RNuEzO``2|Yf6&HY)54Lam09Mh9*GR*e}2oCV{SL&19W@P(67sm~& zD~6KYVqGQtf7*Vv*Q;d28ubDYkT*n@rp;IVA?^uz=hYnADOE#g(anK~MQ-y2rc4KB zuog$ldjqvnX`5<;h&!yLk+#owSb}r>|zc0G=_iu z#`y9VX$>{?2|-7Jjg_$_)uj0}0MRG^3{ly++e5Is zIK^`r3Zc!YzrQK|GWl4u6)TUk(vpW8Z6_{&8ooQ|yEyNo-rllq#Wk4W$Fk^&fqI`v zS$YO0e|W%sqE`=wD}D2 zvHpGNsHxK&oeQBw&JaB#rsp4gawX!qLH%PwhetNxAl>Wn^e|led)!Z;H{QYv0pE{V zrPBJ$D004MsfNkgnV^4rJXuF>NAy_hh(%95mwquNc|`C`3;R8e5;2 zktZbV*{07LJ?l@vCNdC$uBX4|KBhmbv6Z#+&Mz(<++@UpmYF+2u^^EuV#b*jv9uTr zo7g&r#=GFwLVKJfE?&K<|1lm@gtj6uRHXe?8uN=fj09wvN^}H}{NE*&l7`p%8>eDX zjf+Jy7CJqyQd27p7@*4%%+pr09DUfVlHdkO?q0{4jf0V5x*9Htz=prE4NYb>$U_$q z4kq(ZbzWeMF&|hX4y5Gb9eIQmk6U-7`@vR;?o)!~rvCu&5tdS2Piv6(OYQOQ<#ABH z<+D)Q5>t+L(*dT1xh%$VHBVb!Obb$Un!?+tYS6m)+Z_a)VdzCM?-55AEPJC>L!OpR zNJLOe163Yxip5FNL`?TE8mMoAdBWvAFK1>;4Of-?yowtsl~@AQsb2 z1Er=>kGK1I>n|Au+YVM*D{T5QkKCtLzyeXzBU1HZVE|XU-Y`gH9}p7_-fdU}Cmd9n zjpM+6Ksc`&?;jaf!agR<;BxrwCOj4M$Ybq(sjxE$_#(<5j) zI}cZOG)MaQq?tidNp?(mH^j9Ia$@}LSq*1wZe8-Lg2AL6ZKW(*wO;BJQwNc?MwzP!q^A~?rOeyOu6Yl^L& zJyNy;ij@nIE7GTFYjk*w*(GEt@^l~sNBx0oz{r7qYmagC%4hA2lkB8G+qD-KX}#c`Bb) zoG@ig!?!aOe2hpeM(gN-_rIr(1cM}R)pmKvr;_bD0- z1(6~s8f<}s`*t1QCss>QWla)#$XF5HQvZ96iZzt16K5A|O!(gReh<%`N+DFBrXJ;X z`(1~TXNvs)AeYz1P^F3J=)|-gW(U64;{kWx z#w%3g%1qgkDvBaLgTq(oO0lhP+*H(!-F>j*s;%mTpIuXqC)1#B0;@zU2r%1r)pf?G zyp$OM!F_b9Nrl+a!yCRSfWALrC+jw*;eP)5d=mFhN}xh? zj$dhcK6fjN5Ly&^`%g(KnuTpD$^Ehne+;7XzbB43@yW*tGu#t4*t-G&RfKV$Eq`VI zAsI`herzj_G-=4}D*-+kjZ0iqd4yXeIF@qEuzDzKU)K*T#?}500YvR;7nwp_ukEtztoj<&a?%c=_95+XT zJ<0XLT8m)%qxx3tZsrdLyfLn`^T?k`Pqco5A1Lu^IF|eMqzv#Vv?B8)3NVb%ABk3u z*I$>%AI@hIh&JVl)}heLE}C4L_K5!s44jkwT$`?Y0FDK)1uDF0Q1VMC0PJFl_jBcj z8Rc;Z{=4JY@E88=!oM_RRr$RJZ_~xktu2Ud!!Y^bwK5FE_F{^~15;c_gV3xetAfMQ z=$@T4^(`;=nmJ?sZm;Tp|(5IWtJP8&-OiUnOUg0bc_3kvoeBcbFYGL z#+9rE$6LbWZ=SG5hw(P;e{}zF%SDjVGHW9NsEwM+t^5gYlTslj6@4(5%l+lAnpkev z#_8wH2q?0OV?R1?G2%n2lhOA85w2S^ECH4QpLqau10(g7Gm(4q5jMra(WvyY(3&<; z*oWkF;F0k;vEqir_M1G(J_aNt^mtb#$|QZjwkb3tnw^g59vWaCtF;z?Vt}doCgx<^ndJZmGc=O1{)uMAU)ZJ3Z&q1CE92yiEtmfJ@%`dZT9BYK?Z|rEN7<@a|c9C_M2@W(eCnxir>{ zY}N}AGiF49F`c7D1@*Z4l~7OMMnV*{9C6QwP7{fo#ffBgM2HQ@yGvFTfWyBnAIey- zQ-Bw{iOHxFyI(~YgH!gw`ll{QrsBulJNg!X-Q-6L1p#o@6pgrYyeX09D-;+Pv&x5n zCeBiJis$(jkHY(`2jvC~!pOwwnTtX(@ESo!0Yx{u$Uej%*zs#U8b&E{ucgS|kwcm0 zHVF~^8k?FH9BVL-zhtj&vWbA!!H7xct5XVUXUL8?G7NdnhtdvVsCD?+xA z#YCm}_fNO<`)QOMmq_MigeQ2VHp6{Xu|v zn$9>q9gL?v5yF{6mILdfK!vNiL3Mwm*}8sKD*MJmH310lJ6V~W#>ti!Ru#11L!`*S!XEiE%w0dO~9o)ywIZvIwR>}+%5IM+`YPj z8<2E!h&9shEnIAavFWtz9xx0zyx}Y&Q1-bR&UzM2HH7T`dROu%duYrvg5L#vrr367 z1pTY%1bB$!Covij1hDln54DcA zX~J_6a+3}1bfG5|?gBw?Fpr7D!SBANM-}vsz3v@;?Apf~=#hh;?-%3p7<%m)PXvf7 zv!?j=zg53+no8k26L!^+oX5dv(Q6gPeh^1HlHc3QlMZPx-8UFMc#96z4i#0I>V^3a z$bA*Q?vH z^=A4>u#JvMdFMWwgY2VUl7a9r98vw!&nkuAFOjDwmrp%ud@>*v^9OrPeWoGvsxxA^ zFf&i@)uq;w5f)s}MYUNKXP4hV+kV#h=8#P>ZS9d$FJ4ZPWMEyyT?|xs-j-qMq_-GQ z*2tDzS~fTuySVZP9lP!oa?~{wL+tn7kr>7F3&o)(0JQ%V{P5Uxpz3kGw|wLkx>;2E zHRpz^`jEqS^t3xgOa=4c(Ms4#jRGt_@st9i!4)sGE{(lz0uXT$2(9cdy?kvHa1f;v zS>f|l6+!hMKXd_RHJngQLJ7q89xL=yP0yb`sZo#c{B(o!m1N!D52n=`qvp^!(hpzf ziRxkss*;H9ODFky0W;2MR|&;|ukn&om$K8UPmv~t!*Ptf=SuV_&x#{et^nC%;92bD zLjgU2nT?^z*VN1!TT^CtY01z6A#Ii*L)`ldkUMwn(|Xl&bz|PVu55j%+1B)>TIZhp zW*U^NQ^qz3TvxS1EfVN61yHCC(IEZa#SU%6wj6|l)GO2_0s_ei)J~rPDhKLAKW3|& zhSLZQR?R{D@>nYoMd{+^Fm&%~G5N0tQ$cNTUmno)gZe3KT{a|zXVQ^wEciiPQzM*lC~@{xhlPQ7sy zFcL0GS#aywu%=p|AI5xNb-!{CRV6Xy{GE3>B|sbAEyNLlNBxaNIA#I_6um+%t?~oM zQ z=pqI*7zzs6LfH{?_mrasKv92-g6nKn&lAic{}J9zjK+b2Y}%TIQ=(hEcrQLYAzCOB ztG_m+Ec_oNGAFrk+uh+xt?3(KCLxayBg$Fd__+e;&**HDBhS(IfqpNSj{v-XPdbgN zT!)uA%zgXf*!Oa_L5)~VW?0c}BP^s=WUtZ{oInhBzWu^ZvAGW;zJ$uw%A7C-1dv*b zVxCzpR}2+xrDt=F1BKTOVY>J72S8;iWHY@ZVKQ^1>Cc)oB6|<`vz`T(YKJA<1eLTw zc2FWNY9A4M+myJxJC!{^k4_aTGSw`%8xpHNa|oZ`5l(?f2!;lihIuRYG|)EDW);pS~=g|z=u zPT*D8S@euV(Y8nPo5q&xt7cgqVPIBpZ;EVN4TVBPFB#Ihs8-10R&*VlfPs>+S%Ivn$_o{|;&*1C5jt1YoP+*8R%N44Pl;(7yhDnmUhuMey`vzncR7smB5_6s zZcj1hG;x;a%G4@GFB6RAh-t6RNVcwQMf2H-%fuPEzKKIoe5K0S<$1pxOtKYq+% z;?&tuqGlZSM3=>vq1=<=hI@r|zRF6>+Qs9QqZ6}<&jk9iry5n6^_KeG%TgyP_6IytPsYX5eVrHEy)VT3*Ir#BRDQNVw7Z$}5yc5<(Djr-=B z)a^%Qxxs6hSAb=KMvv+}`#jWwJZV;RHl0!2X+HVB`H@A~evY&$IOipbDzUfB=@{o}JDG9fJbJ$=3>i1zKIXFD$) z1eh~O6tA@A8rM)Nu=1f{B5APR+8HOylfjj|czX+rCOUB8?qpX#dBRxf%gy^wejbdn zz{SppHCw+_gx0!rPe19TVVdu|aA!yK@zl34sJ+*s4car>j1lwnjQ(_5#RSu?Y>2f7 zJ5FsDpL6CZ6kqcT;ubYO4?gSQj-Yi`{{Du;o4=MQM=EEXsX9rX-v(sbTo$ELYLy?q zrrlq3v%j_5u+r}?c$VM_RA0o3jQL=4kD7@>b3x29nK~4mWPI3~wm#~sR=L*!Nsry9r>mGgn z`C{R7#x#JC2NvjOEH<1Uhz!IkhT)X3&%yR0^(X}s+KWvqW66c4fN;bWf z`lQJIzzQf4v%5{beKubpOZ`fX6T#KEDXJ4Dbc3Yoa9}i-#Z1k<9(b@4tfONb6|qbM z+q>nT>9l`4m)G8WcB-Oc2c_1!YZbn2WF72DZ;QW?rfO)HBgh)yPs)t1w;i2ejRvbmj4!^(WfV^T)S$qSS1P{kNP_hd0oqCdje7rj16C~ z25t1SXtX$;vSQ@Be7V8#`5zjZiPZ%Kv&q@x(T=Q>Ju->^M7;h`3VZpsXeB!YWkGWY zvo>(;PO>Nchh*>@@q+efhCnAv={P(p^6WIXpiCqrFT!+t_-F@M)V7nB26d(6PX`e4 zwu_-bo>wDkT)9`f%uf_L!ZVw-)t*PPQ>D^HhFMlm1+Y+a75d?= zHMzEpMFl;VkK#>ik`1pkwaJ35QJ^a=#|`Iw+p`v9iU~8_Dk2+Oc}`EH7lw3J)SZj6 zs-IkRwy;!iM09YIxKneB7y3HVpoQpyG{|5mLh!c7R8alxOPQWqn*xfb!BP( zW~c>P6`dR_v0delEQ=|mF#}_=PD0$h(xGj~&ZU`_z-|_*INEiRa}N~%1FKS;_ela0 z#ugg{nRVzKWhrRA^Sen4LcftYmM}hfLK;SXjgr4eHJuL&TjTxW9DU4Pjo~1?sshHK z{CH%~8*wBJx=~FWW|#IUqZ~bjNO6+IrssDKwayY6-8k6jNo7*X69|nWy2n-~N;21P z|2f&tZ`qsa_+9-w3Poua zX@*)oP3b*(p_RWDn?y}+iJG`pS*tp>NFze>pfQ*hCY>yd;EFsBy(uCLg%y)_nhg0% zu?or$Dn$c*`}sQOzb#Z}=}{Uz@jel`u#^|{%|Y(62yGjHYq$w}@)E!yZ}cJNU&LpD z*=kJ}PVlEC(3RtOssPP820c8FhiRA1#*SHT*8KvUZb0~s`m-u#f58r%d_(TV??+3d zTt9F?yVRlA4?62sQ7QZrxC^<|7;7d#K`xgQopR|$^be^T58#CQtB{Xv8hR0&q6 zY47%Hd(^t4zU-_P@Mc{L%%mDoNKS5m@bnCAWbF>`&SDESP<7iEhet&*-i@y;DlaO) z#BF1iYI&G`$2*vsQ)zWa&iH5rzve*8RkrF~EJ#~D2?CE828&r5)o%ByMRG<;<|C}Kmzpnh>QBjapt6cTx4WW1`&4)0tSdc&!TXqKn(Q}>8`V2=CJFRMh~5pd2rX) zl4JsFti6*RV|NMUsBC zo~7)4YAG!r#)7%(GUX0dIiKgr5j@EKKY#1=629A4Bw0I=h8IXa^k;bGU_h; z#TuzmdB`4*N4nM0q_@%w9ZF+sXb1$ponQ{R#wLx1WKN;vG9r3BIE<-=QYYkKe3C(x zB|uFH&lRibA1^-)EDU_F>rHjdFw@<>{1h=`c01K!j=#@ncw(s9Ny5~<1wtYBx%N24 z-OUbjTN6of-6aNqo|{@nbOaAgd5r`=8&xTa3ML%#PF_scsD-iX9Pv108xJRJqj9M# zgvqm0|ofVOKVwim11x0D--Gna}WkNUdR6~** zUoXWD#M49`sX(lc8>`)Q=3BC^ExTl4!F4uO8lzUMMeUli!+XpjTeq<0Aml(2l9bd> z8^4U;y*h#7t5Bmp8Mla)9lK`(b7#5nmMr71!^+L!Bm6(_I4~ty)isY&2<*g2bq2o_ zI4r<8bo!(zQD_m4>HFOp3cSr`h;$=!kJsILdz*TAbQSBt#z(|6g7kRvhKiJR{7~un z?6w32LPT3ZP@|eQNCHw5lHLM9bc(kY?c0n<6Ls0H3aG{%#2RnJ4$k^K0#_&DoB z!bUoi-R2XNMGL8|GO{Gq+V;3CXIsL)+-#Yz^P@NiLa`MO>{NscI_wZnjdm=3(Ymo4 z&)8POh40oV0rw_ocx8!d*r=vu%ZhyT|7+yKSTe3a`jTG5o`FzYDEIVJj@{T zwv49&C#-t_DugFh={#?&nZWlL8QvY1?-X=%d-(TeUPaT#EJu6;&Y^tI#nQLbi2g#Cp_>r*`Wy^#C`$6X{el z18b}zWpU#`$cP9YRDT=1s7K`u;yKK6+!~${8R`Z02`GP(rvzwbUf0XEbpyk^`N`q^ zXmB(MLUCXG3%ss3DRUKZ_HnzMBUdfyx)ZhOA_h3S!RtEdx1u^XL%??Yox+TMdRN@X zkc(eGFzMjJK4nJ!2oT1VBVx;gv7#Zyt+Owdz0LfP(gtrxS%;%mOt8RO`&yW;PpCRn z1E``6!ni@##(e=Aaw4=Dhc%(Tn{*o4?uQ9Z7@bLwe4F_VDQy2PkwJd#X%Na%428kM zF!yselgo>Z3DOlW2oWrKcf9~QkB^jp2Odm-*dvg4h5|!W)?Q}@yd%3R&UTo!T%BF9 zFOr|!K{XHvRa@)W8m@GUMR0L*Xe;EH5%1ddo5>mi(p_u+0c4ulS7^}O^pwoE%dxH8 z(hxiQvy@r>o32U|5(qo<4s|z#<_SCwrM-#ik)8M&VF_dixvp3FQO({9gr%6o`jgCS z)h3uzQIZe@ay$i7{Wgp*mpm*-9AR;<*%lWs0EQ&i-TP^<7Q=WUeytp+m5r^vVX~OW0}=I4mB!6}Ja@OCvXORsPAb^H-u#DmF72NGFMze{UJh1nM*#HJ zZh51n+aYUEHWH*doD5w?%@%@xW0x4~%7;BTv zJ(dQ^`~~-ruerP5Jc>)GxAP*K6D{mYB7*X&scSYWx^$4EzAPZ6b!dGEGkfSFa0_tr zzd?opo3WCW1k+9tO8k7A4>Iw8F}A!m?lf9=#C)yB-~7R(16yLQ31UBoShotP3F|lL z|4lDR++A$7z+zTQ!I5HdB^G*@eH;p!xyPjil$u*G)c!7}gjxi*h~it zF$9WOK4KZ?Vzgy4tKWCMi5wspjszuq1<#8Zr{6&O`8Vk=|B|c_+Ycsk^ zDn$Dn-7@XxNE)5xmg@~Orq7lVh=y>nSGS&(>h8nhqVbriVIxdj9l@p(sP~FjHVc|_ z@jGfT@|!MndtRR}l0q7K{|dbzpQSAJz2>$#D5_9z@w3ByzJlMYO-LiO>i(9c>G~WA z3L6cs;3F7f>-2EgHqI&y;$iR{QSHrhu&oz{P|5HAQpvh}sPrylyXFr;Ru?zn#64$3H;3=H?+8+6>Q{3QDYTy-DFl7 zgN!Je2FC9}8zSnGluJ;rCW-rS#EhOdM-U(nqutXT5ZPT12j#kOgScphsy-f+FUAnJu9j7jEu}twgLlj1#8m55denLU7T>6M1t?#~C31 ze;H0X)r_$-yi|QPqsYbI3=vrSM$YIPba)OcV3<}@tfO?7_C8z5M7$mdx~Df((??{p zd;`5%7!5sj;p6NNideI?1+=4E1zL1`1x$6|2aI5b8`h{G=NRM}YYc6z#i&JqDL=Z5 zaan^{ImN=6pw#rLxrFh(C1oSXg=Y<>-V~GKQye=2191JI`ro;yn;EhSxTj$p(itrn zUF~GAkpV!Vs-EN@pm5jsB*YeQ?f1X58Eny#Kd!C+gF^5aKuFgGikD2;K}y0{=&mUc zr}#v5Z%sRG-H-`_*MBUl^OGH{7d$4$?QiGvvL`>}V(H`LaBtG5&tlTu3g2ixWZ<@@ zToCMbz@7t9hphwHIlLL*T4A5*a|$QOGWbNzj;9Jmaj0uZ8ELLMrhKR5|3)EHAEO$C z+WMXOCZLTl3g0OB)Ax&-p;7e5zK2n{C8l-X+a$AEOM1}XvXg*hsBaVO)V1``cAe@A z0S}c(gFrwf$AxX(sBUOWk6Ealc^h>b0|#1t*>D4D2=6HGvv$z%P$F z;H3kZU2*xVoo`}|5DX#L^9!X>hWH z^}B|&IbrMK(iP%cju{BC!5JY-M$VxlqtclJ_`4`wue8fbF0#&ntvNt!s6Z06n}4D+ zVJNRHw}1`5$r0OOrI(CV3Vx-I+?e0!cE?HEy=H4P#oNCW$14u@5%Qt2ye04vs;80Z ziSKQ%>h8OtA^yc>3b`UdxTbdQBG6U~bNU>|RsMrcNn0s))Zr$c3mf=Uwm0!{lVNb4~dN zBDrJlc4e#HCduZ;fo$V(gB!7PwOWi**h+^@a;%Br1@N!L4Rn9X6tAj_xjSFD90U4- z7O6dQ!*eBA=Am6uLjow)z4RTEOs*{Xg+qjW_HLG?VVE7tw!G|Vlt}GI+Je%#^c#-nuwdTOy zr5jzn99SJ`MyMZ+{|rcr|_ba8M8#KuJij|n3&M&FiT1>h`h^)>v{ zgU1QZuU(3?PJ5(}9&NxdZ7Vgf5pp(d&*1joS-xbZopjrAyvV^61aIttd|`ZzId|Ae zq+>B#N;2QeZx=UxH`snsa8&SUwtjJIL-SJYiX$7v25Ys*Oww|}QWsq+Z z!B#SIaoWfy1TBLoa%aQxGHF!a48TFrXf?V~$e0e$k?u!8+2xa_&S?$OXV1fY*Ymsv z`Y~r6uE7%#5CeShcKepU^+D`5TZ<}}n%-A>m>$H8%*r6p8GB``Vpf!M;( zyo;B7lIMQ5ZNwreMy6dChakyxgUkhq~yDTbW$8~)e%5bd#&F{|X_v88v<>f}a zon0U9CQtwy&g`E3nuD>t7x!?${`m*szq|W`|3I3HDuHcN?2=?ql+aEq88J^ixI#gvcingp8xGH7RVDQ$kAYWHZ;5fveo zK!aXYUmk~OZ3u=P9eZLwcu4DEk%h4*O2a(N26#_XefugAKp1wtnB*sM4r%;81(im> zOzDxI(ANGG_rak6Zs-q8dc7gGw6X#+oA1*EzlL4` z^3-uPzDnHTBy_ZnQwUS0J~xFEhDtHWEP)I$`q84R4=sxE zSHf}-f2W`=nP=HSAen0pu`{Jnbl6RWwJ!7g71OmKXC>rrZ)84x{;U<#TPo@rRKAcb z6s8Po?V1+n(T<;^T>&3MX-aZIbB^gj3UmB?zs+Wvxg&c2e?-ERsQBk#p^|$v`(OJ4 z0Vf)?@W-*XuDG#h^2wZh6F2J7h+H5rQ373^zX+lhj@)i`O4HV3tHkOO{Mla2=hktD_7EiJWe`hLV z3%MJ#mzD^;Bx}!PNori3fZ|JgmYG%e6t0u7_i^D)I2N;xjCE8C!)%xJs@AwoJHhijF&lPp`Ri@2z12{Fr;)>)BU=UK* zR(sPq6~xhiYkmxCgig)Ry2)M$cM~Z|77^SZZMLJ40^ZlUu;qrdB>DSXYWE5FPTgRn zv0QOn_WYGbkTOd%Oz9}lWAOEQb*K~AevuTFf?};|Mfo^FW;_9ooswjQMtfvx=Nxm9 zGlOyJG5l(2GydU1gBf)~+%@VFB#KTT2mmK*>;abIoTs7+@s{xaeZmvm^Xi&|X4 z*J#j}2?rO_rDA3>H)LSZb53AC3M0*eef_45Z(I32{Vnb1AzS0I!v#3ZJZ?`eHPpxt zjf4iNs4{*hWFx(PEA%~t>KnAC_fn+z4U~7 zt-&Xy)5g~!hy^iLbqXQebi{V4H0&ADf&7G_Z{XJeYc1yzg3$;dp0;Fw(U@D}h+ z!lGPPc969lX4afmEuVy8jMdt5Ew$m+qKiYWD*V_Vd-Z5uy1xh=MEqjPz#CJ+b zy>h#c)jy!$%}8KDp`_zR;6S(gb);*r5P;1C(?e8aZ7E4jk&tLKr6hU4Q zDxDiVq7jWqTC6>Yd!{A7y^@EGlC$+%a!({j331lxN`*5a$Id}K!|=i+ouo@%3hFsM zve}s)3h=9p<^;^0RF-p8LS)nmeCZa6ztGz4OS){3;`d`avKl)Opa?^D{9LbPcD<{3B<5l+`k|lDe=kYc2YH4$D&JP(;3#7KZsKH!rE-@JJw6QGnoH zdmnBJtqZ2+RTN&X35PQG_)5hzX1*e2jF{ODX3xLjW$7>$;NY_n`g2<=7cY8NQHhB8 z;O93}NxD8=Aa_)w4YNM2lW&2ja7&QKrx&)VH-lx|*mH(4L=X4hD%F`sp#x6JgX13_;=Rqbvqr(6YX|Stg_fm&8=nJ3@HNYE2H7=Bv&)CIm!}9@4(z# zP(`TrVe%$@9x`y+2hPtqMQ8NGBThpg0z${rbwl33;f6>N5PtM``kMrIh?)!WYZpKN zehQmIZDL5R)`u?mj2?;6@E0!fudD8twt^243Rl_pUF zdt;x4wcBsC>!6hM&~|oo2rRwM6LI{pTS&`DBNZi4Ouz*u7cXo8oBom_L=UspstOk}dVm zL5D#I{sVLHIfzoFA`Z1+0q)FGpGAU_5PZQ1d=DYnm5Q%CpGbb4^_G4pQS00O%UuSX| zOQkM?CeuCl~ z@h%?ew|s};)Vhc0efR-{HKoR~xzr?Q?z)y#8s~>zr0}wP-yUB~ff39bf|Ht%<93Al z_?tJ}arDVXFsv3#!TV+82{Q|WLm`M6J^KNnK){oWXdx5CuWas#{GK+C^ZMU|Q?U6{ z8LecsUghu7h`?cp_1|8qISAsJF6b;d#GCy!B$6&v8{Rz!v{b=|QD`KkKe0Lo(>4un z6#^oGF+gHs1~+9J3H~i5L@k15IYMln53W3MXOruiWzvgVpExcshapOFR5uh3u{u+h z*{v@knj1l?@=XP)0i9j1MBb1fTm;?xHbHbUCbwiYsz>)O8mh#s77( zDf3<(ngy#J8q|#Y6|{2ug^arKnA=Guns516pH7N3UrIsx z-;CiwxzMj^dVb>$6~gnf_H6yUt!4$|C6Ia(>zt0*0+)JOuZ&0J9XhOF{1Jd7*gVA% zowptMuqw18G}cbAGzkTf>Jg@|ZVFvfWUpnH@il^vxr7*z9G!f#=ibPQ)G zf_Sx)*XBgH_fwaA7eg?L(Yrd(qi1a&_E;u_jxSZ41|*2jZ>2P z1e=OxoI}y?7(S7tgWEy-`>_x3cqBVW`Y;46cO3aS8OLbHSofSG+-?{I0p|_-g@xxh zOO{gs4=u^{lDzAr9m13u`stnYDVSfbukyS$xmM=+wqOQ(q>gu393O2>gZv$@qBc_E9xN_2HL z1O4kRc4lUesEW!q^BF|qBztCpdM*9}d)CY|a2k}rUz57nzC9WLJYTu1-hATiNRFpw zK4*|&i#TmDu2nD1mAUChM@}dU5`>`J+;48*LKf^A#Q1YhE&F z0MJaOt^}PK;@rb&(lu!uCrqAWthNQCKI%SQ%oL<2+#VJ9b@EFY)MdC>FR3k{)?TtX zt6hdB#nk3Om*Q_ua{cshb+>E#OSz%2w)jm}S~cxO!dbEQeThqi(@lsGIjA*XJloGP zGnhke58MxXDx!lZkWi4{nQBNbXzHA-uTno!;ThEk9jD{KKC88T5b!#T=H7S*jQ0kPWTUP=UV9Eke}y1fUyLZFFpzWZ@VymnT#G(fYca6S*@* zAg~(^lxDoeSlUJBGfmBVm$O|`Nwp*~GTmksD!)>JBX)K z(j~@v=)|(0xm&s5&ksrbM3M@BLNDT_03usho`L6Od4<4+OP=1XAbygz3g@3+0zD5< z>eR3^31Jah^;nzL*&lnfDol=Rx8MAYGpDwEQ2#}eP?uAs&JT9hj1rSBVMi+QXZW?f zpJyYauyzhEL{alhJ`2Ip=q|Ze4$(_$-9D*H7=p9` z&G{y2nfP%Ea^gtNN8I!d43mff=SuFtnf0uLx-H7wAr_s6%nSu#7@&;FD)SKe>@ZUn$QH-BghOT1^ zho%Rwi}B~_{_g4Poi%}etQf8Wg!&W34o;Rm+nv;MIM>rp-;0YCA~)V~h`Rd3(*V-e ztKV%vQu4)KY)loElYslDa?%rR(3Crc&j?sPqo1FfwoXX7v?2*crK5IZr(`TW^u+#N zwJlLiodoq1w(q)6I(XsdCudZ;vtdpMP12UL*|y~YZLpr@BhArRwm6eWxMkT}dpJQ^ zD+3r9GmtD?bqKhzpi<)t@#z7~W=d^3AYWKYs8lzi(jI!gvmy+0}4Bv>&bnE7~H&6eV7l!_&A>4k8K;H}Vl7zmO^ZSy!EipYE`q z_Ho+C?fe@ZgV`@qz`qMuKRyAVA`p+sN~j=#vYgG*rZ`5YSWP95uKz*1ahIthCv zqtt1gl3O1&gbA};dDMrD5S0{3zIK3wG`3e^C6{6op*Tn$^!^mAQAbLj4^la?_h_%_ zffr+j(|PvKs4`aaUAU@9QLkkhrZ}~IIawF zRrWXz^%`2}M3#mOUw`+)nhqQ&jmg8#6myhYqV;KD4R8lzI*-gYCn&$>cw8L#wJpIq zLS*_%JoJLP#S;t~H&>WwD2fW3KD=9rspW#l8YruO6(Y&kNE zkf#9~%Fdx6XgA{J);U=wN1u2pED`Cv>abdvmHHK3}a@tb)!bZG@^dJ8r zdN0k&OLTh1NANr2530#R=@ssWG1P_O1xT047msF`_qKL!ZrCSSPdFHZ%oO&$Y=_oR z3FJ7zA?(zr+4v%cPfYTf;!|ADmCvo@18e6@0^YMMMlMUu{7AN}E5p$i-&hdQLhMn# zq*4Pv7k9r5EBMm-DW2wHGMAKjD-K%X@eNebnIh$1OK?BztK3v_+A$rO{XClRJg@4Q zr02!*i$ctl2x_@ou%6w-yDX?!%hUyn9yyf_#1RcChW}o3Ckf{$bs5Og1gPvf}PAxtA3b-kCyzDVP{b0+j9NMt{8F z-TLsfuXFd1+l=FgiBMxR6hoD&%onO5{sAdXIs4;u*j)aDPZ5cAwH zM*M2xi@#9-CZoD+-P3|JgS;H#fcf;57gM literal 0 HcmV?d00001 diff --git a/fix/Breadboard/2.5km_climo_snoden_spring-MAM.gfs.3072.1536.grib2 b/fix/Breadboard/2.5km_climo_snoden_spring-MAM.gfs.3072.1536.grib2 new file mode 100644 index 0000000000000000000000000000000000000000..3d862701c94c8c43c539c8f56be94ab34d21ac00 GIT binary patch literal 723283 zcmeFa*^gvbw%%84vYXAJS!A*1DQnEEA+zQovxdx?t5~e!JT=+ux%=KL8M3S^7&7c@ z(gGw|mJLV(WCOMV%LcAw;KC2`i)9!#2*@vf^Pj*!zz=@(gJJsnzP0u~`$S|Gt0JO0 zx~jfSR*V@Z&iSoxueJ8t`<%G_!CTkXty}j4{9Cu~m6txm?WX6}y}0g&KX~rB7yr-a zp5x2Bx$`{!@yWVFKhj-$^D3UitKXsh@QeTJ4BtKR_wZoTpa1^Sy666n|9#y$YyfTF z3%q^q@(m`}XNOwm*n_oZU2*)}6N2&R& zX^e4p;MxA{_f58}iM;oQXNE^q(Ris(X9H)UqZ#0<4&iu@z8>xSpYc!4j0e5>^fL}} z#KSlL5y4I9W9C00kRxtpV*EWDIg$k?lKe9YnE!P7djK#J|H+KLpnvl>|B(nx_d^rY zzsJ8L8FKV_M+V)dnZNmuL}0ofnpFAClaQm?(fmi_HmOfdjQ_Wj+M{P|J52~3>!JCN zCY-ULHy<|t>GJ<(w6A~WKlN3k;c*_C|7cP&|IxTj>QgJ@h`#yk*OS_zXKXv>KV5@Q zivM(v;>rE?nZ}2V^YFj|LO9d&;+oje@8T<`Hu*0LLW2#34t7OGZUJC^z^&= zk4Rv;AG7|a%YQ->@Sc7j(TwIlBDe{CY(f)|J_U6|dzk--;3o7j^PdpNQ8zPA(XIRJ zx1)ajGyl1c;W&@Xe^eojL%sW~`H#x~s}ABAkG>i8>!110ng4VpVE)tPzcPl`=|1}P zbPwVQ{&w@9uJO!&y8LH4Co;yP=^n$A{O#sHUF%I|0(iQ|@FaixMEHC8$;c8g|B=y6 zr_2BA(ZBwg|Kud}Z~mjpXr_9R(I1%qbor0|?f&E>^lyrz z6PUyTh|#~@pPT@HFMk+AM&>^Tya{}C0t-;A|1s=f{$s$Kz(*&*-^)+Nu)_ovpqRh; zk3nF%ADw{yz5HYh6Po`R@Fwul2`m7z{>QMx1o(UTiTRH~V9FmIz3g8;Y5k95!a{NM z`)|kj`e**LqjN8xH2-l#^i{z)^1b<+|2PDu``PjJ|IKs{;0gcsm682U`JnlaBLVXt zhu-*~9iRW#kA-jS z50A~?%df_=!PpD1%-{USA~4+#kF9?%zZ%bgPKaPyDxk zHD(7e|M4VX{^Ri*_tWM-F2V6WzcQx(`DVPYf95}J{?nC!`9InGzn<>yKk?r_Gp7GH z|M4VX{^Ri*_tWM-F2V6WKkfpo@xI-kHvj2r!2HdBx&)^C?PD&$^779y&1e2&0vz+> z=07IDF+V;ge=k2AlmD0t;LP9r$0RV_k6ZuKEI4}Pk(|qPXCcrU2ZvJBe9P{Jm zKPJF&KR(|4mzUp~|F{IE`+4i%{HIG`y5IiQSRLTo>F)ef@a^V5T_c*m`A?U?biaLN zEdT$_ba(zK_;&N3t`W_Dy8LJCf2L}H@%Vo|)qQ^&zTEt$Yen;)F8}csfPOvQoqr0x zeLVh80e~qVg85I^0Omhk{^Kn`obJ9q4c|T%e=k2DTLR`kHo~zsVE$v_8~ej!EdaIu znJ#}XKR5re2~2kbWBDKJe{AE8wE)!or_0~V|IL4F0@K~VSpLWQAK!T6%>SDIboqPv zzxj_(V7glv$NyOW^S_t8UO2_`7N0LbR}T^)8#+&-RSL`>F)Yd@$KXA|N5yQFx`VNfAgO%f$4txI16yU zp6;$c72j_D(>3Eb{HMF;Psg{L|8(s*&H~)&?)lU4?dCsSJC4EM%bzD;I`f|Z#4$Eu z{$s$Kz(>be0B!#>UH)GFZ2l7Yi{u3ZD-A#<4e=k3ufa%PC z0uaa9#OTxS*8e!%%V*8MkeJT>=={C>d=eHj|4C3BeH&kmYyj(jbn4wF&A($YjYsA` z4eH%@j?VwvZX z8?{;gldzomPlDp;+c5vp*-he;qx1iI5?}w!Z^QhjD}m8Z0I>ciVL9`k1jW&}F*^Uz zztf-W2$+AzVj7P|Uw}T1y?y$=)BLAvQ}cg9`TO*Xi5PC=1?c8){u3cE-HllP=09Bm z)BX05_3zVPCStgePXI9g$IJigviUVC)aG9Rjdj1e{s%U>T9L^72Oy31bQS)qksS^b zKK*4h-~*o;=0ETU<>_D_F#keky!-F^?c24t*8fBEUz^mUywj)pz)#M!e{22^WcAQ* zwoF&^{OyL?C}93Anb99N{J$S*6D@rD(df+EPkvPm@K8h_?XTM}^5azrRQ?Zzf8Dxb zfQS6^Rln0Ob_5Flhvu0Ec<8_HzRHhQA&~sP-}jf#W(+X@0%W}V;Q#RW*R6{z=-ctW z)}KxSEA%IiHkqh7d-I=+gv9?5H^o|n`9C7GHU6CZzggqGHDAVuzFqT8zwsypMnh@- zkHYvtf4lPC_f;KM`}FgV-e*?Zj9*(f^W8`g)_*h7$NZr|0y73Vh~y9YeCr?d+x%rF zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!Pr zCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4 zU;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v!0w!PrCSU?4U;-v! z0w!PrCSU?4U;-v!0w!Pr4@uw$KmN-XkGYwE37Ei>N?>9B=;1@N2M_GqyJz>V-Fpun zeo_zQ54Yb7M~@tu6S0|HJGXD!x@GgGjT_(G@W$)w*T1%YQ_N`ksZQKC3uf6)p%P+q~xG%may3d#PgJ{pc^u~^das&$t3-j~yM~@yof_C`G z;b@2Q?$F^QN1x)(a9nLIlP(-RbP&3hhk&f5YH)|3e+W50hbGpAJnj>I-2M3VZL`g$ z$r+RnA3iiUH#>Xq;DG}N_V3@vwpVRW*Yq53=@g0*FjI^+C+lE(u%m()a_y40G{*V!%XQZ@J*y;z*zwo0M zfBe!*FTecqE3dq=e&eDEt?gg-`ubPy-*F0Hf(qkZ6n&IO`A4v-m+!u z)@|EhrZm#7nSBScm(j|*ckkS}0~_16jpp5wjgM(wn4iYoy?6iI(-EU&vXeB~nKNh4 zonKm9Jb(V&*|TR(KfrGLx4%KNrP0D_gJ$d5?S&U#SuYa+|K_dR0T7G-A_o z!wr}X{L#1AxnKo!Nc2cVyUZq-m;D3@#j8ju)LzB2*Is*V{rcBmf8z~kV9U~h|fKT z(n#wj*#Up}@*CS2eP++H*DE;fXv1!}R8SI79 zn!S6G*zDWC|G`!Q5q;-2uk!0q;k?5EVnkP@w`=aMwymWc_@@3i? z-4|9~BX%C0*}VRx5;R|kep@mb*tZxt!zS)tco``T6UAz1xy~Gl6)V%Y>(#=}?7@nk z^1=+Aw6a_;J8!YFvR+sjepe$o26JeSEzDf{F0H&_<7Px)HF7{CmTu_IVf}rxho9^; zR%t_fd_2Z@zGeHaeRIVb!|JEbs9&RFUtU>WPNSbaeR2((AKSO}jhDMTi4hl#CdSP` zr`B69y!85(-Rw^qJE(sbqqA$XXT!eL0w&9F?^%Kg=UzH} z*Y$@azIdfUxb|dk(Z}9=EpCu-?Wou1!w}{0Q)IH6rTX6(E5ak1Str1Vhy2i z9IYTq!tf@C+%e)-49LhtMPwvs1(AAy6xfP8P(0W@vv>ai1pc|hN4xIwBrBrq`@;O; zIo9A=O^6tZR7v_Mx+wS5$Bvl;O?gh@pgJfIY6Iek6u+mAg+u#iwy^^E`cGa#k|58_ zju{?-w|tD4(Q1RemPY!~ORt4EiZ;Sq^u@7Cl2GCWgZqFuczDbvt2m0c&@S<7DUS3O z%E`bQzLri78nPHST1AWAgN$fKagC^&TQR~*?Ek&(ub#3q>4;3pqg;&9Ec&XuSdqd zeK)-bb4m;eQ2~uflE^JGxd{K!coCFilnbcChfUkDAclgQF*nea?jo7go-}R*yFjHB zse}W`h*EU2YxfL=vUeX`$=nm3S9a2Pz#}A;kj;_9bF5lYH!)6U5R!00Fudg}dTHCP zeY5kZ+C>53G)5uk7g<4|axPxvIOH6PK^TXWxC~hyIlOPjrZ*^?%=fE{k&j7Jq4?4E2o7bE}DIhc?Q zszFRgs&iqk);X8(E*yK#9x5f42T*^i-r{H!B7%)MS)7$`1uNw;lns1vX?zC%!=(1q zDU^LNj72+#f<;x)g$oy!FqA!woR(8aP>*Jz_w3%W`OVjdG?Z~l5~3@D?|J@*FTOPi4h%<8H1vjci%D%}wN*k4QgnVb zNDXKRjz@(_xt)D1Up$Q|%p>R>YC0*yLr!!`vRO=}C^s%TDn(s6DrCg-)Dq>yMnM%l zrJ5MW=!YOBX2ILHZbr7l(I|6I_WdsFfrO|gh)HsK;YTmMg22HH1F1^N31edpk6HSP zk|vxeqq$G+PR9OUi zr#qVCMC;QrLV5%d)jvIc@>IAHtYnE0S5l7{YO(J%4dOyoY2Vz@<0sMJpXi}lIW3{7 zmU=v9&-d@yjb$F1J6}yqWpGO^Ma26NJkw8JiyVYvVr>jLhw9_4ltN1!Y_k<5#WP8% zI;Mzja!ui8fH%ACio?+#DJJ$A;yrH zR2?lbj#@&sglQ68fyO@Jny4n$%l`Sc?jxLG; zNFGB<^h&dHe>|0dgS)rBDJ5~@=FP3U>!jjibV}GX({IgEU%0fqvUGak5SC5t-#>Tk z+?885Z(P52W#uw-R0`4@>~ny2m`mFadfUcB34QWx-s=qq<)Xie}u zNo7e2*Q9Wk6FP!RQf;&ElMpU*49D<>9AM4xCSq99g2gO(_7C zv~|}WWKDCAz2*fWX}QCNiCQxL4!M@j@Te2 z#5njQ9XtsC@VJyT zH?wVH)e(*jMmwF6A4w{L;#_}T8*DZ2M&XwyoBdpOKMFm?$N3PAMirD0m zB2A)GLZg;AYKs$x@^lv_weYbed?2);wyYLT2@mB3WIf1;$E;Ao;TQjp1e>L!oO*@7 zW}}osMzV98!>H=hiKwcmrbwKVjdWWZEiMWBAPx1_&h}&!4hcRks*@#0((ra}Znhsk zSPVG`6+yo!s9+qdhHC5H19OjKG_}Cm;J%$()Zd7RBBG1}*2e97n+f#^ODWUcCr2~mxOBn))M;fb@1cvLCkeW+GIppifh=DE= zB>K3zVJy04Y(qGshPVKmil#FP8Kp{_xTe4c9jOEWj}#-6L*3YI0TB%txMU(U#Cp9N zWYqoH?j-{^q;AWKm zpnDye+c%SLNPh;oWy6~5$DyLRJv*|X!6Pbtj(XCeY}mAA2gaE6gcA>_$FZasjXCs* zW2Y8ZZiR^GiL|Or<;9%n4L^j)&ITDpc7(82TdXP2qBgDv8Who>FH$&zhL~Q{gq;JB ze5ju=a!9$|yirR>YjkC5%55q83 zJPZRC)I_huk`mnUu72dxTr_U59O*HvRh#E%KaZyqQPGgRHm5SNj$>}J-;Ow>W$EFI zPM$b<{_=IYp&X+jx6a8k&BQ8{K|UOKXy_3tVo8#X=_R9Co_`Jzb)z9zi17j<>bs)w zLmACF5z%uad1M8Op)Ywv_AB^bA96F{e zl8TCssGpcnlJB9qVxpN!W7!+hk+>i)mIu}v)r}L}j_lvH<$FYg4zY35_L=rv)N#HM zgLIUO&TyQ6KF&m`%j0@f~Gxpw0^5+dZ)7h=kcg&O{ zmT5H;BCcX)0$WldN~o6ibnjU`R!BuW6QkC7U5K(wz`YEEbKg$XiwfSfiwKQm>N($5OY) zk(Xf2*XG*s&<((dZk;WTC|oK|;@Ml~D8|yyG1MDRV{DJ6Q5i&}3bpEo=PxYB0ACfy zSX_iE5f%lc2a>N&Kg2;=H0X!1jx%$VP%eAcNSdRw;)aTJ$~`314y-d1!BO+ziJ|C6 z5`>QUTy%yd)TY!hV_!mPSCzw6$7Ar5rvFaU5n1# zUS*}CA;o|8yT>xbKXP!-j;%atAcH^gMGFPx0AbUXZ9A!I4k*Xmk>jV%E^(zamNH^w z&vPpf%~V%Be){~St5Ivr8j%L~T2~?mR9tdoM69CevIj9})579*G8pj+D%y!J6#M!CZ5y6pJ4U;{@vR*vAi4IF9jqYgua2p%OULM z&0Du|w@_#}G=@Jsd3Na%&&X>Og!9^2nLc&y!b&&k!OC|mCH_-DbU$qH zt0^G4QU&~N+j?i{JaSA!&T~os31y+IW=2R4>m|mmM!wppn~=zi+&v5CyhTpyLSf`oJv6EH4L?<}L>BtEev? zKEwNJ5(dQ*Ux)9*Ch-KX>;3#B9uEkJOUE8VMW*u{sAlfly=~K*J?+r>B&Qftij>5^ zW7i%oX2UGa2%-{YUNuTm3L^-MjDc%7vfSRxn|(==!%7nsGd`N*%8;xxAkgxT`gI5*Vnv!)|shDyVSv>MfsR_y>TVF%v)$X3}hi+u3VlA3V z%X_mV{kW!88x<}bRQf!q9qt@=61$usK5|29X9qH%xkt``a1twL>8XQk%Hk);TofI@fQi=G-k#q=Fzo4L~gAV*mluIO>78Z}JrV)qU_{DpZj zR=;?WUWb?Ays&)z&RbkQ2Csv;(m0Err-aGtFx?p#s8cf8QaNSn8EgKO?6d)kRhv+b z*0WZhv#Qgf&*{PyoKD~8XqjoGe{#h|EqPyz+=!=DjvR|bBGD-5<0cfu*H_g}ZnP(y zo^qy3?YN$CB1c5UC>?OkOMfN=bE zc+NB@C+Q%Y*e6VWVOj3O6)|xoxwGeSA`g_a#MP@8R&LzA|MuNGw{BvVz0`L!K<_E1 z3t2@qayXsG;fbd-gT`3Ad`~U#!~|EaIjqWAHA(I(CxnBdGlo}D79^prKXt-sc=2I* zBXlE2(w9w9P25X6Ye*-y+*yW?YHa8^ovb~TcvTYR(z_A09^tYwS|41lzQgo1F0v6T ziIF*leh%%!#SG9*D-`W*d-OPV9J$ImlnvcYsD?V;gXL~o+Fo7Q10HaG9ZToY(&a2I zUw`YJdvCuLE~lK$QsSv8_8Ov>soU42?SXI&B0mt8zNtYe-QBOE} zm*etoSl;QTs3QzJaGU5>(+x!;xhUM@rqfP39Yw78D7K?5x4NmS;e$|4$#w9Id6*I% z=A`(hVyfM|!t2A2Wq3)r#k1vluT;@7Eu@OGi*X*G5|f2lteo$Orf4REbde4BBxF-n zL*sGrTF-+$NH?7MR7Eg^bN>9LYj@sx=iXfiho^zb<>0ysRXB&s*gS>P1gV~ET8C3Z zRim4>pxo)EFPjuj2CLyfMWfVKj9Opl9t6Gt+0dg5sYdFNbnw=&&ne&038yEURyvZ9 zWJBE`LuNNGoqX4>J&%w{96NU6%+lqR3+GOTA>nY2Vjs|oHdR$o4g(&mj)fd85Y{PBAMtYp%?`yYDT_>eow9j(J3-@P4Iu; zDn~dvu0G}XY5B_4EAT2@wv5wquHC$Q|GoF$3wOhHgtdyyDG13XD}mu{q?%PlqwI#* zQP$59RW0Puf7BSo0M&*lPFq#4L$zeXYlAVWQ%3Ws+OfEz2a6`{7;8wYa6&hvJgl2W zpWS!qQB}@{GFycGl4^21j?GG!d)f<6cHMZ5M<>r-SXsGv{tOnIBO^weKT2P-mnW`l z-?n|HuK0Ff@9yn5l@?#u9WMvoY&wRJO!0X1H0fth#?}1igK7g14Az_C9Ct1-y?Xun z^=nw_u1lz1zIyZS`yYPv(T7wGvK!^aD_Xy->yizqrVhZ1pNY~9Gz>?R1so+d!=kCa zCKS_YhKh++bW=1l;AxmOG)k!t8#Cr>WZ3sJ+2xefRLyX=i*oQ{=WPaLljWiMh54X- zZ>JkN8t!6>MyXAT2Gi7Yk5B;Q%=9I!0FDKD7)Qy|;8G_N&9>MwmicZ8y>y986-+te z_G)-s}UR@G{{MNFiNfnrv!-ne=5)~#DS;g4rXFh*U!`@!cw{p{0^Kl%D6vt5O4ST$hW)h_4V*g5epsl}U-e!Tqv)elxG1Kln~+U) zG`T)-4bk+C*>$?E#|dCfX`m16Y$zsfbMI3&?4N_OS*5JlmkyN^Dr!YjLIb`K6%sB@ zIm9KFWf-)Yx%ArcQ&>*Lb2N2&cr4lE`MR-^g}$859NG-c40Mo4Wq7<$3wQt~=@mjkFyGp(l~ud0`T$J-8I zxM<~qPythxV3?Ard!I+p_ccSRDfvQoukX|z6rU4*rgJpX47Q7JjAa(FH12zsyK5ae z1e1P-i!@O=<5`vIXqW(mU~+e=gOTEg4z_bLR18m;dSEt#@{D}U^_#cuymgl?&gZ*v z^Y+{Cee~HEUw-+sFFyb5laHYpWHr=`>V0|UdY97V1UOf2DFG((uA35!R#-+p)3}+k zti6Vu>O_VWGoTqNrj<-&nW>XbCHbhKSJV;?CIwRzQ~I4WlZOzoRYP!UOW>6hMAewx zT5hX%!!N{l$Np3&)5NACnQ&|PKGsO~e*dY*IFt8m6%6`pp1IV`{mIYd@y3p|8BFaP zD z86PO6PBq2n$<@V(8(%6P6WIjh!eI;I!UEgckqPPN>C-2>K?r>euOp#usbL1cxX5@- zxs<^YzqApIP7q)F+mD?*y~r8L+i%^ycmLgY-+S-9ci(|%pqV@Ge)8q-fA`y8{|b`% z86|^+2KfvWbCrQ9ud@0yrAQ*`gT4CCWhx=*wj_57YNC_+0TZ zp_o{jP$bhSM)1-JRC@FivVFOs7&L+zQcN68)%~z$szyqXlM_ ztc%3SD?A&UGvccnj`=6#qTz>59OwkYsykz5bdDSzm29`TQ5=erHFk+%2b0&zSzE7X z7ME|pz1)BIz4t#v```l%kEEG*KmOTo|KxYS{mrj_`HL^VppSWYEi%BGN{&KZKCr!Fq0oUqsW4n8hErFY-`QM^1Pn8+~ImqRcimI2Q^ zs1;~Na%lv^!)O~0i3h{j%0`uSs_3b(k>To+2@ex42H!ZCdNPw>5_}}i;9pBJ$Iw&b zib(9NojkPO|-yB~k?n?L=N-~9$I=4VJ`KKcN;Z#Rj+JOm{)NRnjj!Vpava;~+Hg9RL90Ep8;UCTuWPi30I#7JN+8rw#IVZ! z>Th$1?mw30XIj(D;7n413f6jQ{~Z8r{>iV49C z=ml=A$|XXP#3HLHBCQ&dLMvR*r0YR&SxUGU)=7hLD26KLK5>6=XjFSWFy%^Feu=RW z*YrRw)w^KI9IcT_d3fUN#Vbl3s-0r!zX$Z9pd>|fAt*N+o5GVgiy5ZfMDoiKKc9?zxh3aQN*G$Q=sKntixa`m6b-G1&$g(-Qz@-ca>ZoiM$K5mm(LP z^G(}VdGJZL`WhcdF8PYye~qoEMW_9g8X5XAy$j{ixt7w^xM$j})%LXQgPmHsw2YmU zACAv*lcnX>;(&AeRW9%^+#&5(1|vF`R7(y|IGl~Ng^L(cCNdmMhkQi|OS{^Q0}Sq3 z^i%EtcV<#I>ViC_%hQW(AR=H1c=#FY>#6qb^D{?K$ zUAVG9CDl$XJ+Z_tHTF!S^YwU@VyN9vYKejp9;Sa`K;qxVwq%}quyxDjPjt+gzECY} zHFKd@Sgq5Qy;UoV+<`XJg*;)gXq-DL$?f68yi5a~N|8!&EZQS|BW{SFyQAX?spJ%6 zDurjPmD=)=Bk*T291E55YhwV`DPxsKr!U?9;HRH{`qM9e_Oma(`0^LOgjT-zsj79z zauJ4*v@l{}Ejh0qnU}apx00%E#;Dr=0LufQ=$lZ)HEU7}1+#`^TD6qN6jdjcRx46V zt)$Ymgjm8aC%aO`XpE`KS%{^o1#i>0gj%Z98ow0V&|gH_($`AQui&?`DV0bZ7=kjn<+X=u zgXyxul4p6SUeW0U0*NCeVKw;_?7@IgG&@xM37lBOJgRe^`E&?{0f>z{{T{8LWOw%L z($#yPqc%sSs5lpM04(RqsW4fAQ&F-4d2?ozD|ySft>lw6$4a6+4E3_8>N0DgSaiJ_ zSp8we(ny7$js}%vYok!r3cfkI8Vy-n=%cySJE4^lfKn-~Z%MHExP|UhCx?R_s1N1UIe?jJeHPxtM|a;htrS3Mwp2G zRxJ)Isx2(Ha3v#5P4CdQ6b&^o>{sv--^bq6;Bd4W;`J;94|{NY)KKV5Vpsi+6Zj&(Gon5Z&~k`?7DR7xpxP$_Kl8a78) zhq)Fwmm4+E$PP81sK8TuXweEl(`%~!ren~sJZBH}J@j5xlN?}45L6@uf_74CYaT`@ z$8bgddtXQ=pR#%z)i?wnr77_PMa-^B@i1J4Iu1u3Dw?KeDV-S>p;lU{XwftcTrJ*+ zMq;5*y5UhoAimV;q|-gyiP1s_H zjbm19sHttULmC6&5>;B56he{pAd@ho^uo}2&HByMJ8pK z6(J{M4rM}>6q%f0=zBPa!jGQ5eEXwV<`R*IrMeY3l=Fx@b?B3khdN1>FvTz9R3$CN zLeX_YD@^lh0FqnjizQqPr9xEa}ru9FI-pp1onrTui-0^c2oKO)l=`g8cx1s^&S$OKKjUXStySw+cb;ni{_RJarB z1T6zl2!#$MbW*D*>9#TzN=G7vbTXktlp=k9l0uQNomjedpKBC8h(!vwZfe4L@f?Re zx=wYus2&&mNhXp=arv@ORI*EY6@Fe`r4;*lq7_rn6ie7z{)LgKD5c9~`KT`x{c+rM zN@-n65-fTh&OG)jAfh6K@3}vH@y30mCOm5dQ_DP0jaSFlJRyrH5O%u13?eW&oJr~= zc6+E3%cW?9L=OZ9ltPhOs$S?AicS=I$;0z}8f@%7k(#ElgaV zt*w$Om2@ecQier>t>Hxlo-Ro#nKfm?8f|2Thn9$qB40Lb}^*D&XtBFWQWyC2!i z1rxEmTEG;RmP{HNtS?m4M8J-LbO}^aR@^jNX>`)LlRckW^l z%ex3S<&0Nek}47t{SFJSThHGeRdqcL=Ny?qt3~5kxy9BxXVS?;8lfo}a1?Q7;Xibh$v82B zGdTPp+AifhdKfqGgfVzZ$CN4&a>!32DI3-d5;j~%+mVuFtf{{&xQa>`an{a8&Mx2m z`S1Svzw__@`(OY4zyBZo#ozhcf8+PR`02;*y>*@IY2#X(`~`b1UShc6FFI{kO2S#u z2o~u`qQA76s}8arW2STJ3#pEJys@pU(-xIb8?8t*)`?1642>I^6p>&?5s+8yg;f+Q#OxZ+V!lfTdp#lXZGANQ^iFEpi5St3?55^boJP)R2g z`jQypq(;i_WYtFd(n+KzivE+dv~*BIO=Jujj>c;}ndFo14%_I7gvMn{F9M~e8-X8* zT%?nT@=`epsDQ}^jzCJm=lQ6Uh~Dqgk|IT$4T;p^TE|WzCkf{~j$WH8W1RGdGtyRdd zM4*`BDRFF_IQS?JHWOK9t}zVmmcBLl$e=e-Zj$pm3NnkP>Gi-0<~&CaeVt z-{V6l4zAOFR__4Cg@c<1hI&G4lU;qMOUw{o;N zrmK*^)KwpiK|&y%7okUivt&0=Csw?3riB2^%rLLztVsiXc?M2$#38;R6#r*u_kYQ#q*s%}!OCVAC2H!6`R znwtz?^dR(1te@p_MpSUKEW+hZ-C(BZqr{me#ymhC5YE{mRF#q`cHKJqiuAHNK+#oBF=ePp)z92b#zw z$b&jf7gDxMh0y7AE(CmH6cF({)>n19kT;2&j9u7jjFM6yT}`A(Lg+K7kF)q0NHn>S zs*eW_X6RT>T>Ikh{u?UfAN|?;S1zSIppQ6dnl2{7N`#^_;Z973ChP#D>$ zj`SZz9n?sx4@m@Xl1w|K>3fl?jq-pRkwTP-aL^kyn!&HFk_^$58kgpVLm>T5S4N2{UyGD_Q6r5=PE!0$W>Xdh z3?-?ZJ}8hP4^~7XzN{Ty^v=Z({``OVU;gEP@elv}i+fk;Jb3vpU2-sT5D7$SNc{M0 zsyzilClEOmbRZN(8Msez(0f1-o0Qf@&uH9-y2p?Q8JylLs=)orY`71BFvh%&Qat6+ zD~V(egFGJWKU6mDmIkcq9Xfj!W$<3FhBP{TFlx1xkzlf_|B#*-VM>X;b`l*-Ii9Ky z<}+$VbDc|KMU|_Ij&w74tb}k3Q`7iGG^dChZ(wy~vnbM4 zRU0bz2)8N!QrK`9qqQW=Kbd3X#BUJ@{YQ8YsiU|LZMynn>`*#j^f88LwjzM`UT@@0 zzTW7gWD4{Yt>;MRA$4#nj?2rSk3o5$m(ZJ{BqWiR0Zc8Haa`DD{X{@@s8-!mN6^iU zg-g^?MZVjeX*yr#brCsQ=Rt9V^C+$(@{UwRy&IOtDO`g|!f3@Ibs)UJ8$ljT(Yp}?D1|l{GIHQjT!*9~TV`0voV2PU9}J7**oo6;ml|~}p)IP> zdr%*89~|TMmnbS};J&lbS)f&~(Q_Lqjp!6m2i!kD9G~QE8(UHyu@tQn2s4f9K9qPs zGz02rU5BQ{)o0Un6hXB2gW?#L2ffCS-w4++AP&Nbv52NtVt5<9J;EDZ2Lg*64sW4v{!mF> zQU>2a=Mm8bqmmL}D32--Jd!xNtTZE5Da0tQWKvq4LMseB9@a*vL&<46i&dqunmQO* zR4~u9R8wr~@0~Vs1}5}T#L*TDB#xpDrBJ;Pnd5T_qs+Qs8Aw@n$iXbUMkkG|m=0*; zI7=OpM!ClmJY22u$D=PGvV=PDka!q%YQ!<@HSlKD zMg$hv8cD}M&XL-Pe3Z_Ms~Dvhj%G};JpH2RS9fEIF`m~b1b7CS(+a~q+B!P}yZ zyzerTHMOBP`r=4KcW$Hc8(lKmj4YVDs%21--zdw0$cxy@geT%O2PctKOBeKKa5gpOL&eHhXP6}BkLU5)0&9V zc#T0#l;;E5;8VWUDC0mgMk%_e(&%yrW)E2hiB zx?486R%W497>&EaMyLzcHbNM~p@fR4tx*O_n{XL8;i8eopdfnBnQ>fhw4t=4)H@JX zc!k&!Q=0rKl~9C{_Z;8i;HZ7N31~u%kEx6}=%NhynUZXTGD=i|IO@11rIDTk9)vC< z!%15p%~6Vsk|Wq6gyH)kX$%U3T{K#wi@r3_gV}0<6oVAb=}Q_#om5<;p;Z}-RH_Q# zk0GIu2D?-?bRK#PtzRuJCwv7}p_&Gh4EFcFyU2<;Q~|4$f1a0;DAM4-E0d>I891b(5FTA8jYb&NPqr>YV-$*r zBiP}lz_Om{DD;5Vrl9f|5(d36ds<%EnMl(M%MT2zB3|ihV^|o~XRNA>5Cx4)VQ6ke z!jLkkjhbA{wrE)ks6RlMbf3iF}Yp*OP{vh5SWWuMH;Q zGE@~@LmA;VB#k1D@EFKZS=J~ubI#XLoD5VoJV)Zj2(gwnI8bTcqXLSbz#zB+FAD_;sboMGjWF`< z@D~&X8cmJX_=`>!kz~+eX!1pW%wR$o*;qV;%agl+zfcs4aR?;QX(Ec^AquF1-l2$r z_cU5$iJ=RWE}48H!+6*PgSt3z2EV~weln$z1>~`$CXa!tX!&IqCZNnfJ6)tGc!w7| zVJOiE!)@+l!Gi~f&;=8cp1Y{BNMS^QgR($Ve$n$5xpjP}{6)m(sB=LA)u?OAA>Ys+ z7H^UMAfDDu{)IRzFx7Qy}5o6XYBXGAVhhl9N)? zir~QrP}2&HK@>WQ5GaPymf9(?&_yJkwD`j{oWOAL3WUKx(w7C4!N%34yaq%O20WlL zCaHnePz%N5A%y|Q9vLV+1tSPmA;Zzrvq=~6m;D5zkws4!8oNRnHSOddHW8|Z5hWO< zj?pvfn%aoJ3K`TGq3nVA!(fZQ(=FdB?xNL2RRue|hM4H|oi3D+6n8;~p%$8ut0_x9 zw0sBUEW{4jvZfRY9^ogXiRivdGFH9Ga%I-CnRwFUJZy4-ufxx2EUzL9NF-X-g{}?4 zIoOz^PdzlEs7@d}2IUYo;mF0+f2 zMOPN;nRQ4S^LLa|kMpG$B!CeaM~qsl^2B!73SW)|I4+eN&F z%Q@3saP}llR)~cLMHjGjZFnsL36u~{gN`DsCRI=t`0L_T`lAslf!2;zWf7XtE%VK+ zY86d{CmK=(-S8@{5k~i}EZrBynyOHKkzNEFE2}h$CNhHX%b~L<@Yroqs?RYx|03Qz42dX*H@~1e0A`Q6PqB!X8nF5!6IUN|=*K6cIk)C^WNPBq0YOIfM?DFJmwn4LKtI=TBV~XA!<3+lK@JS)T_)-dwsyIPa=t5*MGni^;O zYM!p5Q$=V(A6KFp6$^<%y<3t9FM%-z%tPD2GO&NIU8!vaX(E1loNH_{fH1Lm_?pEr zT@{UIRMYg*1YJdbZ%FVmf8IzJU*>-Dy zttR+5S7|iSgPLHmLiq$Tmg0ue55>r?r-?NB8Wz^ep@N*c;EcFhe6ZEe;A2TbC$K z@B+_dT|&%9W6k2>LdL*f9Y2NBs4s?_kf+dBH&Sdwf$K8l7^E>W9XFb?>3CT>NKvFl z>fhtJhAHUljV36A%qa8_O5yA(B*AfqTE-4af;lWCp>NRk6+1YtE1IAUTS@S7&#rni z6i^g_`-j#9vIF^vUi6?@YwS?5ffsO*C=flmYDE)1ii@BmqzRTP4kDpoIzdUKBIqJ0 zh?SMl!}S|C@LOeU*REf?7LVd3{(jlzrL(74?m`u7G)>^Q+4SSCOBl;g6QM?aIn;=@ zf(u!mJGhC7Xd)ihf;XP#c$C!)nqPiGI#52*DngPdn&?X+ z6``%;J1NO7pNKrKNFwutcpADG6hv2jd`LH;vS~kdL^eZ7FvY|K1{X*i4N;WqJTWho z3Nnv~OoG`do62v>C&EpnBoy5t2)6A31t$wj1(VC8DqNrWJ@J#IJzQ8Ua=5!vf;SM<@{>%GQ9%%+d%{$lM%5Y~W~ z(9of*vZw=x&;(*fq?nOmQWJei;DykH1Vtyoz=5BChmSaSUJhaza!57s*XiEEFOA)% zF4*E14sYUT>-glx_2tDg#W{@RC64oV&5&C{4jAZ!gVOgGIr79tTu3f|LY6=5SaOLl zaoU7}=)XZp#Gkac#Yd>*S>#X@v6>({Ng$O#*yu`O>3SpxMvX3P$e6Nud()b@yk0aB z&)dIv(BmozSTZe)Z!d~Ka!D7#SxVN7`j?l?vx{mZ8$%#s0W2?=&xUC!0P<1>JktM&C)uywqb>rz2({(GN|ul0fcJG&CrR zR7Cm+1`W6f4hZq9a@X+FmACHPff(-HzkmOoclhgaxZ?0N{667rO5^IKMdqLk`WF|^ z<`0NJq7d@WF^8UNz=S-V1QdxM=Y<&J$1`tT$5l!7>-O{fm1((%{>UN=l(J9Uq*985 z$amt^>LMhF5;sZ?F(3y_oL51hRE5xj#4>8-A%$=c9N#w%f_k96OZSiaRslngW$iBc ztj5nj9C+Rdg4U&Bk;G6B$_&#%aIzYWUP70k#fMbdmLO6L6mmAYn8rhd9>N^Z1Kh(M z{%+hm_}#eo-{)^S-MhJbfofUC#g%TaES@Zb6aA3WXj0Ip@bj&ZfmU3hX3Cfa55=E3 zRIGXn7YxLOuMsn_t^z+Gjl`1k9TEiWi;jwh2aOo`Fa?o!eJ!BRUZlT;}{-C)p z$^dF$<3l+J>46ag-x#hTDu5(PIk1PRa@olN8DmWvA&Vg$=!F3>P!@V=wZEpe=w;GF zq#h!vt$I+rD3c2;AJ(7QszX-pbE#j3D5@U#=|~~i0gM43D2O75kcmDN(_=*kyjL>O6(Ncm;u;wt2s#M)2Ynw$7DIB7 zMVRQL!Em95yrm`428|qDpBlh$l8p}~h}cGas^0Rnp(2P<&Zc3Z$l~y4l|O_Wj-%l` zta^>=ENrDyDMz6DUAyTYkdQ(T`mKe`D5(ejZY|{S-UlCj@+ljBW9RLavkROAId$RM z-5ZzAjwgafI{ZOyPMfisp@_xb=DvQD`HC8^6iNSZ>I8qnC;bCWn;kuh0^tezmLKpA z=`}k45Ce@6Ma?A#*Jc(Eq3V?K2f7D%2Qp+QLt|1m=pA4{=s=STys65lhQ$LIoNAE$ zLkm?9l2l(%-9|zW7-n$JE4n%55dQvPBL}Jh^9uudPzr(F?x_I*2XZK72t*5|lgu6z zy>H#&uSS0G$>(2u@i{L>|LNPyXAz1Pj-A5Kc3rt}rZMPP4;iL-wisKav`a`Iu4$l) z`~lYuMe^F^llVzzMvHRo0$5a4qKFwy&`2rt-3DKjM`39RA7zsodSXb=@M^XQ7zh`1 z4j5n186kBjQs}e**MRON-_U3Qg(1}oi!h2VC=00pVxS0eMIIg%-#{_Mr?ic{p|nyC zDk`K^vnW=}N}Rfk)~O+PdTV^O*POrR5j2qgkz8xsD=y^ zFk53q)eH4p2Bs!T53 z*z{L(OZ5+;{K2`~K}K7hoH>ZWw3z{7H&IIR>wi zHqjQ7rK+Ce43P7<8t7Hj%26A=$pXiMGFYpJu$%6A%?Ib%R;ObMx%k* z!zqW75>gA?2(}W=0cyZDLJ9i#QPvUI^h-(nXbcoMu!uymjtq{_g{K-g6OF-zQU`q| z;!6gYE?B^~)IfosXhIHmz7&FBe7S^ouPq*@RM=t9F|%iK()8sC2||I5eE`)H?#a2u zOIaJe!2&31QA^Alm`5IrQq;C6Fw)DbG_=alVn7FcDtCdH64_@}1I18hESl56x=7J! zfq???NMRzqLRCUUiOd&zc2rSFH?$_*1l_%~P>YO+=1c@*TtdfyY_KkOE5&yZO+}CZ&KbF6ad}<V78&!MC z2?LZHZX-y1aBt<@LL3keL_0KL8EBix1+ct9i4zXy$Wf#vC_98MIhUrHEG*Y=97Bu> zV8`MXV0#(8yXn6Y+Nfe^e8Z3!2GsyDz%g*P8^cQ`kg*(JsX{u1UZhuiC`zc{f*w0m ztq8$7F(?R=7K>^sNj1fY%F)Bo&B;Cn2NF`G4Cv(LgVfL=_;H5v()fWoyv(?gZlMf` zAfzfI{8%F6-o) zS*<_L$9zE(SY=2MLWoL3CxX=;NeYS)S+6QtL#Ko~WkpBOIR-xK(uGJKn-N4L3NZqx zDPIa9`cGOVU3O?8$Nq}m6hfB)l7Y&@M`2R%<`N~glW2gCx`8Yk`2s$Q#^54$2bKIa zQqZ!s&W}($l3no%iVl1BXh_L9t2&}g@(2)29Wj2mb?G$M%9g-@gW>L!yuY}uaqo}L z?%S=9MR`&S2og1w#keMvfNVik1{9rQF}@Z`mZY(aj=E&1J_=zpQb;YZUZw0&*@DuA zoSPVu!fS8}byUg3ky21}r+&jFa6GBxUwML-4F)$!fQCG&i>)AjvuD?S9YSC(icMz7 z*I76FZ$gvpn?&*ZLt@92)-(1*M)~n6_jQ$;e_-sen=f) zD5>zQwGEtx;2`4N8%rnU5|k@K1w0ru?9U|I{M_DMtPRkbyQBrKyof!JK{J^Ypc z3(|-qnK)*tAZm}&0S~NcRS9??F$`&;l|p}BqLG4JLi&UV4{Ioa6(VMP%KVEE=tN14 zEo=#Rv?i?+=fFz|*g^CK7?sIiT9hA^bL1(oXVJ={Wqp{}g^S{H$uN{)U;t6Hpism# zHH1?J9ho$06a+o%3+I?GB1gb%0L#z0z~m}YHBLxjrV0h;<5WU;sdQ7LFLzo?J#%|^ z)N*o2fqjAn4~;A(1Ww|2@*n%0DC%+1mYA~U4tq5wXU*5TZRxK_n;6I?GHyOn1y*v z?=Nyz_q?w0r7I~gJaA~JdPKxkj6o>`jln_+Oh`D4%=8o$4C#hCU@W5U(C|a9`w@!} zkj0vF09a9ib{zw^Ynqw7iJX1$%n4-)@=|d?#YL@U)Dd1kw0Ao)zfAqM@6-Sn$CM(y zfGfVoVr`xkt`an=Ol69SjwB9>ezLRyG4Qyn63XmVjwo4Lz@l@WRoWBz1NXO~Xa0&7223*I5!60<4*pNDaUBV%#Dok<2fdPxgE4q<0h!Lw~06G8@I*<(F`xF;Ae2>yUX9n-wzQc*ZW&G63 zt*c9CP(eU)GEavV2FE;5i3eHL6q8u#OzvfmbePXh36vk}?P# zl%Z>*f)Yg7J&LD{{Z~rH^Z+urc=-y72Y2tWy?yWPTUet)e|+xbf}$P8t+a(gVBV4o z=GU_7qrZN1|Bg*@CJR>xY~CUzAcNs(2$hBS0SNdZ{Q^W38g(@6=1~@5jy2Szinb4Q zE@40j-6A+83K%{Vr|?=d`hzxC#MgH^kQp*lEX0^!Gvz0;a-PakoN)l(reuddcM^d? z{y_OB-LwvyF)kB!$qy4knC9Wam*+h#V=z zhqxerK>t>nG=Lt#0bFV7BT>=seBl~0P;DvZq~Mggj4>s^pfI2U#a0Nc8!z;;L^#m& zpy)Rk2FH3Wo{togW~P&;0kA~a^9CpdFgH-rb^+lUC$X;Z#FhH9O6Uv-D!PVW&S~cC z7jqNUv*8e!L2yt)sbnE31)z=-DQS)sm>R$tU~#~04im93;hj4-u3b2JnEK{0i17xA zN4kSDjG44IIJ9@?wk@09L>GLW!?QOxZQi=Akpa?dcpy3h{>*ZmSfl(%z8_saDzh=| ze-KG~p65(Oz-h*?8O{)%gF0xEMTUhaId@8s5Z;J#0?g0g@bD^7r%`}TUm#aN5g^Uu zIVN!sb>LX9a1yxzJ13-%aWm|~5(=k=ukvga2!SW6;7r6!4>SbOsDPe8 zBH$!;1Os|cxz9R8g};U5u;vsI;TA;j;m4nRipj=vC*}_y$au$LkYrFi97eM=hla6_ z?)umI#L+o~`yHF#sHs@UU^nuE*~6$X78issmJHxZBPvD|h``7Z8ygmN!~=8$l~lVF zxs^fGlw!D1w2-v~U8*m`0(HQqh%h*2qySkvfZEa*RHt0iDQ5dzsdw(wv53_%%OH1- zk8$8re1YNtRUo@a1SqjHVaMq0>J@ndND0Y74m#0GbD0C~q=IhRlCzan1#pKkK9CB+ zlR%&@VSEKY&2q77A`0;kGH6RsZ}J9c3En;4j-D?mVCf+!IjiCHja256jz z<}iy>c51Z;a$;AR5q|EOU5-IfJpmD+h@cxLmoZD0ggW1fMTKIPFAU)0cKsAV$R@%dkE@}~o z>)ameC7}W;g%s8j0Y;2%gG1; z$NF3Z1H|dwdr&z+AUGUOEE)EGzl}i_uL_;3t8D8k7jAfzkz-6Ez7D zzbX>~O-(K!A;8!GPUrgF_dbCHe*Mw%@%`MxNW7K)aw4_n1uPn{9iMC+`Pi|;yEm^_ zv5xUT!*YmV=gi&%b4QuBz@eg{hQ^6!#KY|AJZ5!04$sl`&{#XodAzQAIv|49@ZIDj zO9&x?T#oQYWCfH$UjrN;hMUZ6fPFE&v5dfYpb85`z*ul*VOGU|vPEMk;NXYz=S&C? zqZta)j_k=iARW!|nDs+dzx?HIe)qwpg}vBEN&p|iEp|5o0<*)TEb2ZE2_PMK{Z%xD14v-w zrk(<1ex6Mky?`2EPiHH%kZ^()TPdKEQRK!Y7^pXtu>o`t&Jmq3i%-l97!1lBQ#b-D zU_%!P(2Zn7W`mIqh5&l~u#*65Y-dj$Jy;b$^E1lA;s^ziv;*_r{n`LKb984KQSIod zB`AP7Aq+(TQ84NxAOYah{A)!5gn|eL93L_k(4ILy4EZvXMU3aTfJ;139zJ&J(%sK~ z@tfcO*}E5y#s`{DWKsZ`QJoBPlWzyMZ^)miK`ek1paRe_4$K{qr&^@>FQA4TX)y-L z?CI2jI*W`?Wuj37no9!&D1iBQKOZO(kp0y$&<7;~dVwN=4Y{m6T|il`xz1{7-a^GKHk{zIJK~K%JTjfI%SvH~}pEoIkO6{ez$W{C9ut{^H>Q$;jo!9^-59 zEz1lK+smA%F79CzHp9>@tG3}HGvcL3~5lj+0y{rG|U0JDN(^wNbD z;|?EQIC)+*!ZXK@P+UxK^L)t|2&4q$0cihBi0FQ(fG88D1Tue-03l2+?c%x;79JO{ zm;I9u0z@y?3@0mqg}qx|ufJ7>7$E!aF7{uP@i~1GQzvnW zVy$f8R6VOzQ9@MFsyN9e0>t6tP}tF)j z+HOz#%lhipgbR1ct30R`+pF&rA~#X82db3uHEO)A`T2PM#A&VxT{^um2W7FvhxPf| z|Eq7-%uZxOsQ^ZrT9JTwY5h0^)P*?6M`wz#!jQ>9YTCaMK!JpV*}ESfgUBY?{aFy$ zQ2T$eKT?3`|GL`vWh^(N05Blp1!p;HrG^JlEWmu63b3?)ct3!pdrb#OTZjGO>t+7N z`f_=&e|I8GnNjY{kE*q1w$u9kWUVv5s+N)nIv?ymVEaMqhvQ&ijTYX!-f|w9b(^JA z^NJ=BGbA6nnc8aF!89GKeoC?sQ9yZ6?nvi+=8haw++@&9WFeLuKFR?o1Y|D}u>G@G z{Wf9qADi2S3;-zrhXL!60BqT&dJt1U{tm%%HVEM25{vDzzy^j#g+PNuuDPKsa#l6Z z=S=4hL8F7Sr2vL{Kl^{?0L_(l;v~mB?}1B>(fyS?MJ`l4HY2iz<`Hk8H-!im{f3NR z`hFM>#xI#$wKyLj(np3Hui~1g=TD-59-W`wgYKiXzoN48bFRtbq%Nxl(XW*U;3Mq! zYWh4AK;+jd@wP5gT_!w0*uMxs{2+w=b6ABw*>+@R(|TAxj8EsE(?dtY`ds6-f`FONYe`6hLD)XeaF5Qf z%vtGO>8~7eh4ne!z?Z7WtCwpJpn$?%FNWb%H;7RiHY6*{=7TqU2N2F2KdRnOE6RE$ zctrm%onPgrsG0yqv%r9PP}>fo5-6cG<_EP*m{>n*pb?ZB^e}Va(4@Qmv13{+@H!S~ ztbe^me$9~Z(iqEE**FTi%-+vSWkkc08m5J~rALSbhhco$L4h~TTlT+ne;fy2%6E07 z%nLg6t1iryB-Qv4`BkgYASg^m4OHt#su})1EIw%Z(rZ=m$$k&}wl;@n?V5Z5425O( zip*(4_58;7Ga*;qDb63^73v6tQ;Brzkq1$BMFDg3Cm25&EtyE?pi<@!2{-U6J9^GN z2M$lR<8y0=_RZ|vw&{)V`$+qDBkXf<%JRg;m1~$6OXKT$YdAQWox=e%2|{B6E+x^W zz!h|Rme&&=NbAr#>qqQQ^Jn+x`VqFxJne|9SLpa*w-^Ddzv8BtKZ?#8XVh@tb$UD! z`C_-~^TYO?z4ZvGxES+^Vt@v6uz%PuHd4br_9%wrDw%VwS*FSC5Ud*4*%Jyt?eM~B zh0mO=PV1}pD}FIfK)Fcuh$!tZ>mNKaaqDB*%i)8&Hm*m^k0BpYK8TscUoKyv)7O>0 zVd!WyI#NM41_Ne;EQ~?uv3^E%wcKgm6*KcO&CmP#VjSQu^?mt%S)YpqitQQna}gUu zEcY!MCBQNZdKc5oCeSzTUK)sA2lP=bX1|YdT2y*_NR_zP>PB7hlh*G$edHju=VOH# zRs!qNW(bm6R+MvRnU~%x^7QLT;gZ)hbr1@$4U3(86?d|D= zo*db;Z9_FZCc~(Dlq9fVfrdsacIOZfHeW_t2~8jrgvjH365B zd1M+6q9lwtLCg+oP7wCbYnVjB4}T=ntE$H;%+PET`U_gG%k#;A>C0Bq@M-M4Q$d6E zE3_zNhrBo_lXz%vHYOXo$1seec3fcui@=#9u~MiRBc8L#gr1!`My1r=(UZ8)6pYW* z0DeDh-{mh+yPyDQ|CmK(r`f%4_OaN0;lQrV9O!e-k8|NH-trtsE}3l`Os`XobcnfB zrc8;T+aobzxTo#Y$l2#L@{TTEtY1Tb3@_8~K*#T_&x>L3G$M3+B>Sj9u{4WbAEqxp zS!A1jKV#Ewo>zH> zCc-4HYsx|~*UyyC)B4!Np@lOSYVm~g2w5bJ^d%IfKU9<{=0_~sfAH|+^F8{Gxjoyf z=~3k6{2mHWT1d0VrW}uvo=%NRq^{yH!}t)fro*^CB=Qx`rKq)*&j^<9&@r&HtFitU zjkfQspQfkF=L!3&bSbrxw_`vKr_Ve&oMc))I(q*$J8k3)te6bcs$q1METfEpTaLv} z;4(q9zOqW%E}~AU>v0YkYUErTJU$n7VX*+t+P{7c=Van!?TGp1^XmJvhfkbi0a2y1 z7!=6qXZFI;3x}^IPN4g<^K(*)b3~7$9p1ki8P&|bgNHE5i%TJ#If;Is6X)k*Fc0&W zv!EsJOagT+XU>E&tZZmYTzlV2caA!kTFSgekcnNl=<>~J^zl-87v;1(@AjL*lB*fBad`ETf1Lp4; zUdGZIDwU`;;^K{JR$SE(UM>n39IJ!6zDZ`M@?r%RPpDK*jM&J9oL6tYg{yq=f|R#; zr7!jR2GHf5Nvws_Wtp`Wj`0Cw1??wHpM#TFQ4xt(&05&yyTP37D+9y! za`w7uEzeGm)ec;o8!2@R?nMZ6XnCqF(mPq4b{=XPkw=%uGDjX7k4*+=M~^xs9ovPN z&5}z-2Fqj&L0_GgotJiJ2^Rq&EU#045$Kn%-QpGA?(!OMyr@@PVjP*?!otaO$d@l8 zO}cbx`6@0yh>*Z_1Ih-tasCa5liYf=5VmZOZjU0})W2jqlE}w?KfJ;$b#uZFUiIIo1RRQpchGY>eiZ9c;MVVa7R%CMwT&~9YUdTF3uUa*nvPJ^wC;$W} zYtq%n5cuNq)f;zU^Ei#`&MjWn5!d6PD_l5!?$UK!o%n5Daq_+Q-hKD}y}NJWVqQGq z6Nvyf3{%Ro_=*^9@IfY*i1s`&?eR1YJk{IbuyEOuJ1gf;(Ak9LwLG%eT^H58bqgsB zt~-TL1&5|Ag_S%S9ziLp5ovQGCv*lY1_935qPuI^4hl9=u2soSrf!YS7bt{C@aXJ| zIO&(V?N z5K`<64}0f{WlKlXxAr#=+s2^sG!lQqBZColbqBdhe^H>@Iy{!@G3AN&ri@JR=RZt!UU#iZCT?_gOL&S zyk^fai_oR+VH{x_cSmwUd0VJ*%^58K9%CQDK11m4vf zs0`t07-j1jcXWuinS=CxkjFd0&;0Nx=Dn8@@Yd;>bO-eSI@4g`$$8CGqlhyg5A@L< zkX{%X9zxFBv}*;(V}ys)!J@sZm!mA z^D|W}e=8B$cNyw3JLF>6p%n19rA+krxhyp?lt$4}i?xLrMp<^tx3CzKX^)>uFi+fI zx&)Uc=yw%2%aeCmqfHU$KE;*)|b?Tbg0K4+CAA}VqP$TV6t`6LZ_+l^wd@aG{ zm9s+UtyFv9c0t}=`Y75ZQ9pFRE^`&D#Tq^PZVQWy2VYrTU8yhCI79&JJXG;JH=P** zVW8Td?8eiSGb|}jdmf;#GD=#QGTvKLL$#{2HCVmT+TA}qJlx-BZs_(V*UV`$n-V;c z-`j=*Mh81g7Nun9*%xZ%8wk*qoST|q?D6bGiRv`G6!w`?OKd#Hqvgb**^z)6JSrJz z?H+|7pB=-_t`+*oOORL(OA|+rORZC&PHk@N?|+~5flG1__0sbls|Y*sKs>~DM$TTn zP{*D(<{9Ym?c2x~LHDemEHoucRl?o-S>G(q0AJtOL=Uep6&`6E7+#r5DFmy8;oh(G zjjS^u9VQW!6SEt3Aqul=E9fPe3A)*6?(Q8P-@kwF_~`E4!~NFQT77Z0syV(!9ULO) ziXp-4k}S@HFq%xB)j2J69p~~|z|U0ry~p5BvI?UNz(;w(>f@L?P)0Kd6rfTyS-c2&q?UN`D+yG1+)Ngz4Vmzou=o~$D(vA=%&_~F9`4~~I-b!lN{ygaBzJd1dn z8-3aXQtvV&%ts1RoEzxgYD1$l3$>;C?AU;N)uGt!p3=yvg;dO8XihV^-AYvClw{YLtKRkZ$=*iQkPyhVn(Zh!ifqiqOrlAd4 zHV9@1Zb2=!mO&qEd3p5bhdOUHP?_P2uPjas(b%dO;TO02#}<~R$A-=6Oqr0pQdB~? z2N`cmzQFBrIvje4PJljtw|*#RtDu^u0(E^P`3~rU{5`jXg|gez*gc?5K~4we;_VFd z&!d~xiMclfTOus}lH^fp$FT@JHyz&)Ecd|YGPE}Yd23s29v6o_EH7z`v%v+tm-B7} z+U|Ub4&-z=sm3`RayxIB=(^aA_>B79+HUP09Nl~P_{m@X`qyXA9v?KMIAknB*uvQ% z&`74cEjs}pmN+K+{XA~_%hPp^wOFn)K?)fyjXpZFw90&9+;w^st)f6&0SB2mb5KIx zF6J1r?4me8fer0f%PM^p{1CXpoc^gWFF-ELJsvXi&abnUN_tk6(qqHA}yIOig_ADyQZ`Q`Oa=@ZE?CfrPSKg%t9UgzPels zku|}dExt8=4x=5Y(JM1p8||P2gM_Be<*4Yij>);DwXG(Q-+%P=(`Vm&%X+XmH;N^} zsvs^p5eD|oJI({;&e!ZKP1liS3*$rGig$n2H&R`wuWv3*j}oj!q2tD*^%RTHR}<>y z^`O|*oD{uUA*_!tz-^Yu1qo#+pWnECdYemZU0=6GbuGGb3wk}tW69B4{d0qT5Gf#oA}oObuoKblJ&%| zrP2w=>#zl%3}lm^s4T|_4qymP&aVpddk_HUHH!G|Kj# z7#rzlI25k?@Kn9A)o9eQ>o8O_WmJYvw%E|hIJC{V9CabACA<~%v;z`qkHV<0f<_nU znM%K)IZ=VpJ27{ZCO{t4x!GJlqErvy+b@fOy8?rUUr%6;Xb;mi6mk;e!I?&v?;kej zE7{pBy_LD`y`5%bV-3BIgjZfwU2mBEs4tGHA= zR7N%&q8)wiS&XoGu-oy|jd*199Pk|R+(8dkd$iq+yqVoXzU`OC9nfZd>+-KqIPSPs z9h4?%psvK?GTs<<0^rB3`Eo`E)s+%W+h|L6F}b)L!~^6pUmEDvJ5;Gwbt)qVDzW-X z)!OPtbNA@s({H}}{)d14`#=BMn;Qz3zKuWo$7+qOja7wXdj^#>5R2n|dMR~4ylR#F zK?EH}SDc#cRJKAwUe%VmmoRi3>uM&KHW%apae3$gaU^=?r8_+HF@=;)u@_@9SwhFC zpTOL}XW5px3!J72)*EWnau|EvUOBNP#TP?7#<=SUg#sP}WApab$eaeLo{4oMPMT5v zXeDXp=(haTL8rPa;m-tnV9Kl=v3{^Q@9(`R;IPxhu~ciTg-c*csor+ct6 zZ5G!tb!+RajSc;M7%RSZuYic zo;l`fv;y&*%Z+#&_BQ63X4gHA&DpSvk=M*Gm$@#}O)`CUiZjkir4V-K!!rEz#3@RH zqw{8Q0M8g)EH1I`IynbPBh?vBDFLT3e!54a7v`5%w_2EQSnPlM?)$%NPFlsE9ZF~T zN@|e}RnU0s<*6(r3CPTR<1{)QNJqM8Q<&pv+Mbm=8eLa%((n-FHmb6MI+c=}!ab-} zVjaZQ3<;M9_Kt8D(00xxq}K#^jyT%fE5Kf4b0aUT$=tKJ;SXohVe%M$6NlSw)A5_L za}y<-U(vCU>7k0J!WtZ#BPZh0h+wh>AB}IB>+zh$9Z#jS~xd|NwS(v0#pi4n$6{mMlO)5%g!2h{;et} zRW*2;%xgWau&W?ff~9Sw3vP?@m|#0-+H~rKts90f%f)RFd^k zolkwkfAx+`)&w`vXJbulsxC?31h2=;9EBM zqV18L02_O)1Mg4G;|TVA#R2yb_zY;$FX4)ihjDX9tZ{+^l`pW#=7hn-$V>3B_f$`52P>nB+91}n356-Xp60PLHgj}fZXrl-9sU67MCJlwX=r5 z#=m;--(d-v$*==g}N@4UM`z626jyax5POn zdR`M1ly%0~5$b>|sAbUmHt;<^{Ty$MpxF(%%czC33M>8KCs&!w(vfeJKjtEC7(ypk{V^XkyMmpt1ppmW|Yx$uoYEK@^D+l(!&k>GGOKp!6;-}5?ln%^8Q zEsp6%d6z7A4ERk_PdZ;b+B&NA%Hc+w2lkF=M}R;zAPsApM+0(xR9D(|m+=3i%Hjzl39YSwk3YHg`EwNoA;>R|)d@2lX823Vjbw<$Fd@V+{1V=N=?lJ97mzYt zu1jS{z6NTz8mPhf{{8z8Slm$7p}LN}<`$WUR#S+F)c|<>G)job8BS9Qgl(S7@~raB zIG%voKua}Cy=Mi`!dWn*>QyskjSt{F9yf?tI_w7-09{>|Z=7wDuLXk&R9LD^QrGdT zZI`zS-4h>1xzd2O*t$hN0r3q_8)#Dbj~KtjLbFk$CfQA{A@zuSAw}NoSRnPXe@P_z^rc1oA^J(~y zY+%W|RyObi$==yNdq=8L*TJD)m|Ixc4oE);ID_=v*1D=YWN;HTD^-_T*y^^{_jXk> zqOwhbkjpifh=pEFgY7{<9EB1ZR0LIk+DK>Cwy~CmHiG77!Ti402MW6y?7-X-0O7j- z?Yb;4+oQhTS=ztu4=!g>X)l7|c$=ll^y;BRH%N=6Riv|1pNc(o+TgvF`KHZu?DRu> zW>jh#Y$jlxJ2Otph_XxGBTink^>uy32FhSm-j{u-QO+kBss5 zRutlteiBYoIsvTJqpDKI+<_6Pxh3vEdawCYRPWHtb|IQDHmtUY>P~7-tW44 z4zpO^1pQy*d&)^E7^?&2@tNAzvDn!_-@o7JfcnnJY(uJC>mFFkJTI_y5o`CN<9!)w zX=%pTgdmtAV8S}c_KV!0h&^f8NCWbFUVyFoR!ebVZSgInKe&*f{?1Jrh~q^Hf&7cO*NyY*|oYI^>i(%iOz#K!{5)bT^hot7WaJ3C$I(Annu3|A(bn zhCq#N#`IYE*+N>U9Pp$opCwKGtGDXV)H+I7j`ZQ)&i49rsTk8I%+Oz+-89hf^zOzI zrTfl!&(G475YpSRimg}YTwep|04DLRoTW8a2I+kgXt6YM8-|WR%Pf<_l>z<7uFKce zaB!Zj)xVm6@5&1dOw@t6Nj0X+=PQFnj@FkLtgc0%kD8Raj84u{*P#5SYV(!oR>L*f zgu&kbyLI#0Wd%U-hClw~%1NMer1796mxJs!(qd@MC_D-DCpXS*Y{I*O&slxWzR|^2 zYkkpP7rnsGM~c`8M-k}8+{m5&@+2uvPm54yQ2#)hrTG$^S1z3ShvcTXAnNF7k7Ym$ zXNztt>A=yz?DI$@xP#@*H6JCM&kE){J>|Krt;LCss;iC{?;Be>xOaDdr@6JxX?0Ae zp9nasQ=H1JYE^k)xVlW|^sSrMWn^nRhAj2_G)J z)RYi+_G`vRU}aU21e7het)Sa56XtIB5(G;df!)P8F^Pm^WuMgsRNm(F*BYMMP<_Js z)NtYPZg_vPGSo9zo|Mp538~sd^0^LbH_{ZISbjJX) zU}j{I3M*x%t8dpUZ?(I5LzB0jM_JW{@~9N|bat|Bc%hRM$S*|YY#-ZLUq1 zisGC)IggQ&1!j;5gh^hjug4fujQu4Y!0Oefc=I-~lDGmZXAYGEo{n1^X1Lh4b(oxd zH8JwpV)>$1qaeBag^5?$e~Ucl+DbA zViGde3FGGoelB-(_YYUZo~Ks7(%v;Ch{emcyXaY?u%84~XLV)~;sVCO!gkOjyVi0oZR{4&FitvF6+2bV^zpq z*@;s2Nvy0q6p`-)@hL#OnY%Q?RZ9qCS0kwzG(hT+>8Zt`eca(zDtAU^jqqQ5Mj~1P zPGPL5meWsWVHFEr!rn^3%r^sT;a&Sn;~B!rN0DF_!kp^V$-}BF2m>uV4owCa>(-6S zA^)f>voSUU!@&{Zlu0g-`px`G;CjmQ>S19<1u!rHb6S-mCr`>fZFJME8&}#{3PTLc zlF+dTG?fax8BmMw+B-B#)I$)@Ojf7^(f~dNm}wO+JN@_D0=N_60B>O6O9|l9>Gm4$ z?P17A1bDnO@QPLIw{KnzaV`Zk9n{pHHpe`X@O;YbUn6zi{kKwln#Om9r$>j1RYJey zt8s#X``7hD2}u1Yj*#Xc)nD>5>6&w+KsR%g-6)E8^lGh#d?cMK;;1GkA>C$Xax}hV zex2I~PA~i_6i_empr?*Gdig3(<=O<}D-!H=U+z}1?iYqYUiZgI@0Tc$D3BD1OR{l0QmcF0t5R400IsN|C9ey1fcvs3;!qm|Iq)X z|GS<4zXkvZ4hZ;X0zeD^DC}fv=wk20MIdG9tYGRypl0giY-w*tz(~i*z(B|Nrvw1= zUlbq!C)&^4-DJjc@V((}B4nf}QrsT#*cV z(vUqG<%o_z73iMnR}KO92$B9HiG~|2&T3=*uWGJw19{Bun=7Nfl5LVjX+}1R+0b1 zS;5_MKIfk%9%V)mJ&8UGg#Dkb9uDU<(0nA~Jb(yr*`t+cuWxQpPC;|nZRT~@xUVNgY633`_3gpQG4B8I% zi1;nq$4=B z-W!%6zfHhJ@}f7x)AVR?GF|#`nc6A0Q<04BTHBeGrEs-9 zDU~ahRfRA7BEij)CZC_EMi=D1e7y4s<>Gv+J^u$;IbEAyGlG2P(y`RePla+vfMm6L zj-rJW)%zUCQ@i+WJWZ#N0yVGgnj9`e7I7+rw@Z%(ZEM~qfeo3um=G7t#}&c!IKGj) z5bDzcYEddE!#a@Z-8*!**)ptAX+R=aw`$C$7cz+Tpkd-?8JQc_b79N4K+ZZTErb)$ z2C#;e>hR=QR{(o^U^hLZVSfz&+HgY!sx<3B3qE^OvS4kI2rKWfOL~4tR?V<9cD(X$ z(qNO<_#e_YUAj&dewVy3r#$D#-EbYUG1+!Bd*l=mIn4Vi<5fX(jT#OHRr>=Yuhg+F7$23buo{R`Dae%u7}%(CGeOvTkwd=m=!c!6%*$Lqghjm3?&4 zv$eFUPmG$rtmSY+bK*#}7V(c2fBQH!U0OV$NB)RdMxptd7fuj=#(YFXzDgGbtREi& zQ5{QTK;uN697j^VHJSFs9RtKT)sB{5yU}8!#a%00c~vqHP96-IE%)!dKJo9T*JVj| z<~jvAqqv=k(2%hV6eGzRXu{OUzqHW`713*Y+UFRCf{>xYZ$bVYsa~alV5L<6uFsu-YGtlHV@_oc(QV)L--I}}?Zul|VYhs=g~ic4t(Qg2 zC186sl2Qzls| zXLfg%HIOuGl;f5SAe5V8kj0luiJM8I^xMxm^P7bHqo3@`4 zH=Dp}y2a1Kkq>T#r1ZVv=2!U)IeZ+0dGr$;j!rEkjBctfecAUw9*zJ0$x)K(aF%u~ zgS60+j5JLtw zD+-OhuDZoGDge>b7f=GJOEC8=VF(CgAha?`KiFWFb0cU z#4WaZ_NWRj64YMj8Q4s8jSpJ|O6xI=FZ4^Ta~$q)<9=4$DJFLt3u$ZY)}@%@=!|^f zn@FRsB~q#mD$zeUZQ;fxOD@a{c!yvm!L#Iu7Lx>AQAS*e{#c;l|4kQ+dlwWq*^3`S zO(W9kEM#DZQ|WY5SKfIy!ET^dC{-?bDQazLlwdo=l`I*V5=X>5r(gB~hyEi$KiB3d zQ3%Qv*-KzPOYjk4L)XXNgEZa{4q9AYr}Ou}OC>p;82nSmLI%qe1cPIL*!={Qyzm*M zlNd?WWSwe@MRQ}^rX(`6?7pfsvYsLRRDyZ|7&vp{jRNv9E<^XEM0`)oe#dx61_o%W zR0o->@?wkq0v-)W4!ZU>N`O?+JGjQDs3t!-C30Om830vVnbllsVc9!|k?iV;5w_|9 zIUe}|0^*8zV(NOQ6DH|x9U(RIQkL-9M|Gzs-YgY7B;2z{<@dbCJr7jQX0j(|vT2nS zj5uOw;>U4Ril+mJTBB1ubXL*h!f87Yf%g4Mi-q+z5R2{w^()Q75m+9u+zeqT>#6Fo z#GcV3m{22MJd6mU&eNG@;r$4*Y-))py_BrUC-@vNgtd2Wy^kt(VYY0>)j zyQy{EL-ro{M_4~8+GoJ~n7vil5bE5MREft3!09QUm8Nzi3?H^c;;igsnzzq9?ZLZR z7(JQ_Lm%f3&LIWGj}A2`^_=`{POg330t7o=GSuSF){ixwBL`U9xeFR;b{hw1DLZ=4VxQcZTA|KkURd9!daP%K!^LMmf_gq3$K6U zzVCk4ZT6d4HrOr%+&T2=TsBHG%ho;z)MxHYh0U(mq0!|Ut z9_d<;0RyMvZX*ag`fOfL#MII%_Ko^eGhyRo0oc>qqESR%uI?KzltJxXbltKwYB((h z)YQFPgYZOF8MPp5llc8Inq)L5uh#a8G!_hYby4bhDG>F^c4rMbbERgo&%`tRbU0rs zBcIpnSR*UHkk%a?sRZ39&#_}0BOU^0cScja>!QsClsV%eAt(w1?>o9=ouG)XvV)Wg z6a{W#_Xq_d&~&?G6UD9i-iqUP z7`It|17u&*@h2qQo8-7Wr`d+&>p+@a8xct0a8I65jO$h+lu*NP$sABz3q}q-Rfg3f z3kmd;hbck}&&M1@kG-o&S0S)Whx%Dw#KW?R3m`jtHO0rVTO8Nmd?CtOg!!sbih4D4 zaVh_gZZB02L)-H#q8m4D3_g{o;^!Zn0*V|$ct z2+@@ z2#$_L7lKW`TUNaYc({b~L{be^{a?xp+-PA9eeubGk<_%2u*&8n*T;xDIp^`qsM9yq zsZA*(qel2*p0}9jmGr{+(8!8#snpK-J}XIYX9@4@=L4*#ebhdYFna--F7dYv*~jOs zp+O3+Msx+h-wP~rB+q}ga!DzvYWJDj(TNpW;4jTIq@j&_QC)-jc_{{cl3^muDoz2R zmd%mfM>#9jj%hEVr5~S8VZyvJPYX{Qc+E<{2tu@u*h)Xak?93WtG&=c=_F%^ahP)k zc(JPN5Ts7R7h|RsYVhx&Jw*vRWy4L%7B*PHMVF?0L+t0KzlVzXnhVM&kMz+Ah4b+{ zMI$n0S3CmP!AVm| z|84cya$|$}-%g7S*Ex|?k}hBBbrWySgbxSJdPFtQ&_!xXqR-Xx_l|)C5ZyOZhR}Q= zlEF|AUC>4rCQT;TjKGT|_gG@Ip8V-&)%C}JaIux*6GP;?uF9E@@^T;Hp_fCm>zYUf zoRC7=IV-ru=+VPvZ$}W&bT;)K9L$y;=E%y>Od>~zJGL?-#!Oh+cHN|hC&iFza$|(8 zc!O=EHyODilDZc8LVTVzExR2o3x9qjco#&yLu*jZ*E_r^)~^o07xy?KJ7A^QU4UDh zb5_lE>#|8A0OCZq`UHDHXmoM$hgGVbdTS2f-T&5{=aCya6#Zxc!o83eIr#It-X+&+ zn0$Zj`tS;71^mhjr48NGD*noa%)Yc02D~fK(FM1P@{)=}gxREX_a5%FFT$(vNdQE6 zG=m~j#xdHI$L9~A4EU!FnnQ@c{!EheB zxmxacTG*ul*S`bp-<&2WFQzN}g*>m*SrIWBX>1*oSZhVE$x93}#%Lc zNL(V9{x-ha@h!j4VL`qq-Um5R=tON*)EpvPlfP&HqQ;LyDju$#{(z(1Z=tZYcK0-g z1rfk?`rZpH{t{p(9hSFkYt@9V!~2vX${Vc&yO@nr#cXGiDw)CYEl25J<=yvSXc`QS z8r*_yf{mar`1^f6zpacV8wCejwXH_#|c2pz^o53~GS1%Bsc&kgHmWYA-nO&cw z9Z338K&;i1_is(q=O_lpk_><&bsyZqSA(fB^Pf&f0~P38NR7a(F+c!POOVn=-J9rFbk*Zyec603s)4~IT7{WcUYN6kJZpuj{Hd~h?tR^=b~Nj% zv0tdH-m+;7U6xRT83L&)#X#(Az{Kik4fAv96{PXNE>AYX^Dxlv&ln? z&JVSR14$6auEX7`f7i7I;(#3DB3vt1DuNx)3bc?t9YP^@qU5LZe zQ|Ym9`XuMvDuzN@@Jl^_?&bEomjVjDq9_oaE7Z*8;kcYQQ=|g%Z#;js%MM`1OjLN~ zbQ<#&RDy|0f-=kta#Mt?GtN0|W1FgGcUEqQ6Y%D|(U2y3v6`gy+;!GXn0hE`M{(Z$ zGH!ZysB@6OO~V>(h6%|Ta&gi+d}YocYZ`rR)Y*^iVphD1rbSa?M-*TtA;F@OWN)j) z^WVNpE5Z#{eua%m^p}?o`Bx$6)R@?o-7(f}qrx}6E0$i&Tr3uOq=lVpu?zB+xwBu2 z0$BOCHH%2Z{#?yN4-yk(ki=P2nmFz2g{PnA5nqc@*w*O9zF3#;@;I)}cmANJPB!-L z^BAR(*a#?nqPlv~VzI9lB&oG!K+acy=`r+r>~j-dmB2M>Jo?mwa3$Z}AJNCP^`{d4 z`IZwEg%I`ohfvv{6>+uR! zkH9uv=ofjhbR1d*o}pED7;r=RcNj{5zwUSF-tV~wK4&TruAl)VMVqGo`<(?7y^I>B zju)|chFkHCdXfBcaq!2nRe&i5()K|oqByh_O;Wy4BjFgQ5{Jr-Nuy?9dNA{VkjUC< z)L#bRNf*V%XA%(HU=+LyA!AFZ@6|g07|N(=klTHY{D=R{cTIC*|7h1*QH=Ll@ePKw zM@ZOcjJ4QQTYg`m52UVQO{VUcL8B#el)RGB9sJW?AO7$11&AifsjykCR*wOX;H32X zb{6h+ly~b;^1PI0$s^_CRGp?N=-u^;i7x-t-(S?FB$ETDo^Z{1+a$l-iT_3~xl=xU zN%&0Ph{yZEg~f%xG}V+N3v!r$eQpJ!!S!$4viii1NN$5Y2!w>0Y*A_;|wKk$lG;_8gu!B$77C+K~ovo6jD) zJTr07UdWFFX_PAbXcE}0b`)O9=Mf4rN`9zh6H7dpKX^yAvqR~2A89w6D+djb+w6ni zY~jNdx}KI7d-Lk!fy!(JJhEE6G_rZgdVOvj(OlqE9%_;YK^kot(6x$>gZ9TK2?@%{XJek*o`Q&0ozv*HOt z1n6a2@{FCoSTDwB^52YPHdB~8{hbA**01=4H?jW4AD{e~_JHf5$Ab0AK7BxmJCScH zbM(H&4k0hcDdk#5D%)JZbs%dcM{Xdu z_Ka^<*7zTs7A@yI!A%<($*pNR{VRp+;qwQQ-3OD01X+1U!eZ)@Cm%m7_+I%c;aj!T zXly#C{52dOCPE57AM5G;HqePLP;W;aX>Wg5yG%aLUhs8)0&(WfEfPZ`6fjCz5^oLV zV~J8C%CE!2X~oZz;2*kCHGy}`#ze=lA(vGQK3S% zW};^-yEM9CmYU4%)R85o8*yv=bgx4C4s7hSgd_<@22)@D*eo~FX;=R^r(GZ|Q(P&8 zuWQL86)1BHy}FiTd@hZ=?GlWF=6exB zy!gYircTUnt<8ZL2x&$@dJrR&F1U_?&8KHl>j_;C;i2J4(HbWyylYcI1m+ zp5c9$iGtZXd>?72im726cEx~A!dn2_Ja*apmS-WlCF3ykD|{q#78v_I04C_5KsL+( zR(m_p#?aJ(84-vv&Y=BjRN#H#`q>{!{<`MD4>9blEOCqjUWK6_(`g0o;eBDfs9Mb! zHV`8~{^o<~5$U4>85ljXQZD#yKYA=B4P!4I=gX40Wt|OYtf#=z9tt2p9Z%zG3Lg^W^xtp+W?9EEIBN28b~kA?`p%vR7LGUT}CtvZLn1LdgV`d2>1xj3rA_DPs>Eflvu&J9BwkdQTLJ3_*^=Yq)HFVj~blK*peM; znFEO!cNmuMAyd2lvsI6O01ZWM2wDrz^B=ssT)|ctujp|ufQmpMWweiMJ!dtztMycw zu+fP(k1!6vm~G^CW!^5%ji{u_*m56QQ}T|pX_Q3Nk|=4=>OjUP@Q z6oV3ee$>AYT9|ZYNV38FTA|imdf$CDi+{*opNJ0jZ6~Q!T`@3z)0{tgC1C_jGe!t+ z7GcISf1o48qm<7IJT@`#>GQt^NTeCC3EVRZm`b6<(HmB#rl9z`3Pr5;RNC(8ps~cs z-|dP;dYnm;MfRUGr2L`IEU76^4rZxZ?*g#pG}WP6OJy%+1Ue+>&HPsXRJ(_yz&xEH zG2$9*ipVNrSV7FIC!5QOexBIbHf>N#F+m)4*&yr!eM-Jqzy`abVZ#}40`ZIK?($19 zD>cCE2qSbgVO)NNcV?n_S%Ms~GA-$anRApOREaLjmu)?rq(tK^s@uQOj=hLY7FTUw z$6JrQc3DoARrUy___3^&A6zISqH(oru6f=}FiAJEF(xkZKkHOE#*_cT-l&K9ZBf=p zWHj^b^%ckXvsvD8Zcn(+-MZTR(B6)pqq*-^_KNz3?v5S*BsV|yWS#c}d~fh|_no_j z@BGZW%IfYW&MV!w|M-RRzK;0ff8~1RJ~?wg$?tS*3-+;h1Kt*I?!-Q4-!75&yn8+^ z-!6ol{)BHy_r%$I6TY@`yI<9SoU1QCYpbYiNW(C`U6+nPqu-3AXKF^Jb<2<1U#0I9 zibJctK8NLC^wB(Fyk7ftfLv7=UjUrmb9YDCC9(Ym5Ww#@Je$`Zk^edAWlkP`F+xLB8Ye<%dK@UC92ngr zSHtJJN$q_@EouN9RI*=?OD@x!)k`nJYCKxU;rZy7ovlsB>mta9*Vs6wzQtS}xcOuB~{OtKcYg^94y7P7oPZ1=aj^Mj{uq>`T7y+LeTa z9Jr$;=ox>{3@bDqgdaa^Rno1;C`|l_1AM(Ne=b{-%xVUmfKp z(>A9(Rz*PHbvVsg`wlhd0Yhp1dO0mq$2kj?qqEC)kG7iR(CVANyfm#%R>b0_=}o#) zxObjc58GqiJ~)Zx^OaJLHF{e3MjOv2Ml$004pEiC;gD+`kQNp>b+Ioejt%Q@jf~xc z-WNNTp#yvMG`qjekkfd>C@H&ixelC5bhd5mWY%uhcAjhIyCmd99SszQqDa=>JIxmi zv9F^<{K%{SsE=Mh2*YVblS@+$l1(U-fxs0{Gs(1i-Bn2~JdepWl&Gr0LOo3$!Kg8P zbxjK9DlZmUL5tsxm_5ikDsMm1i1)md+K`P-47)WKiBXMbq@i@1m<$N#mPowQj`U3S#GL znT#p7#e*Q<0}g&4B zivO*d|Ed^|IMEI+xsON&RgV9T5(cbqxxJ-sn9V2&HS@y#`Qkcs_ttGsSb5Z|&gEQT}dBlNk`h+zdJt!0~Gj#f|ev`eea=j22LA zdYg5PZ6s64FpRKV5ox@$aO%`@V)1P~WETn*S=U*-ROuKnx$pAIH#5oDTZx6#PZNzX z$YYp8$L_k`45eiB1&;8tU8%J?``u9>=p5HH25m+2zU+SB`>}P;Ok9eOU*|R=@FA!t zxzjjkGuBTwUi@ZO8b8wMj=?&CxT3Taml+2$;T&H`V>PX<3DH>Bl=v#BW~Acb{XP-_ zj<7izvz%@%Owsy11A()KBJf%P67RsWfTs^J64~+%vWTh0LNR?|T6stwkQ7tEK_kRk z)FXgnY8IzB&&PrK;UVI#(sI-nzF4??G>gvq!BQ>Vd$Q3W9KSs$^au*>=1ZPU`Qlwi zsX{e*q8Oy)S2iT?mevN+#w?#F>sSpzkAW`sE4R+9>c_*h3xQ(;9e)@7;uO-iMOda& zW=+aqGhd)uVm7c5qiKT+4fB2Gr=n6wP-07wrw+GVPjJ_E>4lmP@{|97;Uf!DR5WnkZyjMQaoq+~Oo8Zm!X%DM0zC8zc!a2pP^0PG#{F?d^Z< zMA$O*ATtIwCOm^gM(KyucG;@3*#Ytrkv|&nRWzTf(pRqe3#6to&M27oOUb2f(aR4C zyeBac+V&h7SwFUSif_c}=yRN!@V)G9%_NjsFrgtaWoPABjkxO{+yY&mX3m|xvg3~z zuNKi_Z`NFmietMm(lWNq0muyVX#0F-#8^B?oanBiKDbe^9FI`mSjW`ywctQHlPhNN!=t*lMa5DW=T{a9}7?} zDXB|`>pQ%6m6gEguOBkkb2z-W^BNCV>=QBp{*PQ!a31|UGM258ws!Xj1$lo0n{j10 zMdKK=Xu}NRub7qdvt;c|y)_x^PS!F+K*-pc&PbEYk#loxR zqhCD(7&e_3F3shb*Z5!BRPSs#El|LU5J!g2`W6|qJ6ae39@a_|FAG}PE2wtH@z7vj z?CcH=HOZhwuJ?#^3@%UD2~SgGt>&3zM5rum_CEkYH!~Z|Z5agD<@`fN8=nzqb*dQM zh~$V85Bm*WfL5bcEKSq~kvz~OJ3qZww15%9Bh?s(eitcgWLiS?sSO@w+0zRY2` zg#9543OV)66)4I%(Cah6PZg<2<8X{FR)U_DM<#*C28rHw>Nho^lG9z9I$1y{ca?LJ&Kx*Su>Qo!B|cCN*|gCCcH`*x@k##5SERjq=J9h#n{ zE&9h#T*0E2wwDN}0(w_Q!UdYllc}AUd=?p92;*570<|_Lm zbgdCUBY@Dy7f6GB484}x_2oR<_0v_0s(i{XJG)UGZ8B61NaDq#g*z8nZ3hK({NEE1 zpsXf{VDXW<+ivBdtg3usLo{?L-6+&Dd?CNzw~}NxhUbw8Y^s9)e2!Zknz9}=wrfA{ zt>h}3K&0AUJyc2!bttHnH2qpVL5n1#bij3*1ChaF8^Z#9hDa2!B{p{NxnkNSMTBEE z1X~DvJ#3_FhGIM(d&x~kfy3>lAnAum{DTDqV*ILuRG@P-Al*B4yh+9e&rYSZj2j`6 z_16Xb(Xm6`fNRykhq{{ClM&~MtA8^jd3=8WP7mXs9la&28E6 z{I2F3e3oKH!wRG%BelDN6>aYJX`Rdz8A$R3I5n8%ri?h-;8jixkD$5LC18*V@QAQI zxg)0{giqMX)EeTl#@#tpw zX6|vufqS4A24dZ{Nok9WRjAu}V(F#QVmt~3AIZ?z*0eKfm|nh`c}jaX^P~Tm!WZBU z^3m{c4ht6SdC6=^xS<%&p9aw6B=odJ?t_p$p>z!*?iTvVgA-xA6pK(m7 zUEVBUNN0m}djI9dJYe(2?mL%`RYhl?w? zchA8g3BKmpcHka+OEK*_OVX+7=LFZOW)0(Sdm(Cn9JRK1)bfK~C12B`Ri{R}8~Jh0jJ_ z>E>?vPF-V_IDg@+ijkqwbi-f`#{EUhf|kXw2Q3+0MDyfK3K~ zmT%|9T3Y*%k089EyPgR8HTas5#eJ4)MywA`6Oqa;^6ycnk^AwkQ*NnYC~Zpau`p=Z zRf`HOWY3TaG8&29jKPHyRpnqlo3$=8McYEpuCC}x^Hql63+=$Y+>)Nx;lXsr2iU%=Y^7mW`{j;wYP>4H`6Sl=XsW`Nn#~JuXpzIb?p*XYvdm5h zRa5@24$rhPHYCL&T__3FT~ipwRu1u~{99}Wo!KWl(1W-JD}{?tKuM~$FqB*|Cj|41PP_xiVrnJ)>(A?kiNs{X?cqYV7Eo(zIY1WQOygM35MW;@qf$}vfJ3p|3&rb`N=`eAa2T*Ct)|1<0jyXIcT)1oa{bjT$z%!e#G?kXP z&Ai*_&@H@;PlT%l7e~(K$s=fgmdTz+oQc`}-h2lgW@|CVBs~zr&{qX-9+=f`*~>S7JN$X976meBITtJ+)Z&GWKn6%ER2^Fh1y<4N)ctIfG$Q;=V2qYn z{_W>x=1K+IG%0|QXq;8I1ob~vSC`g~oj)OC?3+*EK%k1s13jZ;%XFIoI^xqDMy|l- zSWP;$_lsBZwBq$YPwQr1q+3k%29Z0)-*FPT&h_|*c?pM)Gm02Kz)UxK$C5Og&RV|s zl?%XxKJ|HLtKmVA82152bG&Mj-@fd-4F}RLm$Fu@pSB495iaRy^#{)Ie_YrPLzb@k z-qSgca}QWuH^QF~g{SyRQ&#f#_B)m_QKum>3&I4&Cq}_}{%n70D>kgvUu5qgCl@RmnY@Y=?Y{@2r9r{fm;EmxhkvLqEu<(?_Ru1A*e8#ieUzpq-qHVLH$ejh=L7dlt)Hmc z=f;m!jt9V@brk$SZj*<%rxv{v!X|6l%O}sVK_SD|J`|Y1J+RgAYJDYO7ruTqH7445 zM^wHulkRRHkzjo@JeT#k%t77-O2BjclF+;Va0fHXRs>qU{>o|*_WC8FYk%HRE*n;j z4QEr<)t43ZxH3Q|V=WNlT|8|aZ1;mb96*TSFkBrAUG@-HdU=}&r@=_67}P>;OZ-91 z)Tcj`g%QCLy4<05WmC#{F~ATAX~M{BH>)!29mS}1D$^p&y$#jcK6!Ffs7^%n=60_B zSddm!bLWY@a25!yBP*FC?WVHOc_Ya_;00kaJyU;ZPE@{Ln_tenRc>z)Dqkt%J*DTm z@bWgmL}*haV?W;|TxQPOxKU62+*$>1#Z)-ukUf5G{?{tT)8q2UzjS`9Nbf`FXu&_{ z%dWP82IY^yp8n=1+RdLPYTJc?T;1E8Lc}KcU0_FtA>PB)WsFjf$gDxlh@A&mQufBG zbtXoi`=`nu^-r$x;Y$uA$6E6O$EwD{T8PG#NjGQey~%&@aTt6u)iXMbOcX43`P;ms z-AitDcy90C*S1r@@4uB{X5h>{tbaQS$R2JsuP&N%_)g1Tl_b$EKPxeI=i&GBRi346K* zjl`Ql0I~eJ*BZev`$}>jyv0(b*0gt@>lR!v>JEH_Ta$3SAWFKmfL^Ro@^}XQ$e#g| zau&?xMsHcdrHoT+?P(Wochj4**I#0)yb5x=rDu&GF+grpFm3^hJpJLk=L^c~OnTV$TqAc^o&wLAr@ny1NO9{MGjepX3fRIx zqDB)m2W%Nv$4BE*@&6o3a7Z#rxebYBrs^F{{}dfNBAlVnWBA+n_ViZ03g$8WF#x@w zuJ)fW+w&8!xY+-kWeY~#S2Gm7I!rd$wX>&roj7EP&Dbc4?v7Nit&SofMZ+8hSVcZ~ zStg(AZJaMUPA**E4IOT|C(iC@Ql0KqS7nLpbQuW4etXz+mX#}KVifcrp=o$R_^JFB z52V}eq}zEvEW;Ug4$3>%b*rL#LxPFprfy-Lyr+qk#dxhe(#q0 zuNg+}(SAV(L@d}gd~HoNLT%ribPOuL`WL6o+I}wGCAiB4kk3*5orh^ZPXmgnIjl|6 zJ=%Zu+Ha&l47+`J)Nb5V+uLp)iqcu~1zk8t^ZL5a=!pj#a~O>eN3QO2Pj^0PWtsVd zVcrjrSAm+KCv;hs%~t2f&&5^C6*sQC?p>1|7)alufz=x1IwXP|jPDOKOHNPFM#;!c zS!KMjUM9NbGeF?m1D3#@hPq9_t`J%H?G<(^`T4FS5@tGgQ(P+T4^eukC92@lAU)tw zH}p`%i+6cbjlAVFUq2_qqeJQ(EXd9 zncll#82QQWiXuXbD#dj1x(D_;ypLpX2tRZX$4FE`vM8&?rs(2w1HCTz%BA%*z>zUD z#_ro1YX&|Ab4TU^Nqr!eTDjrhGH9E56pG>EiCf>{_oC3_d<$>F`Jp`F-f~3ht%G?5 zQ2C?L08lQFM~0c97;Z+)99!H^oCy=*qmRaVB>C`)@0G7%*u?aFbn>17>4b$PaI^Bd zFo_A_VKmOZGvrzVIm_9gMM*1OTv4>aQOKe!7P+++3` z$qw5VZhm!mB&%9#kn&e8gMd=6nj`dM63qw)F ziqk35Rp%M_Ah*dLBI(f6lTN@9EQ*xLS+ciZ6Os3M)Tch|qOx(t95@)(!Tkabx%~1e8(0`XY zkw3}P*Fy+aP}4~|t1=B8lb{D3FyAF|F@%q*I}_(&d(S{;Q*pF>7A!%N{_e&S2LdnF zJMSsPf!;QgimM@wq(f^sn1;K6Nm^tgm3s+z%7R!+FbTnThZT`6;khltAm|qnpkR4J z-cJ3;HHPrCyz1ObeyBI}H_y7ZFNOV41B_SpS&nr>2`{T9y+i* z!^+_p2-XzyF+3b)r8&w}h41r~Dr5c}WDsV`woEsVehko)-uZvD>~CEfP#=mFFX8umWhf9m>pz;rfp%a1T7^X+pw=FX+Ie8%=3iZHT`%nE3d<;9sA&69pd#-I1{%? z-*jI%NGAY6)}(2(THrR|LDWCwmVZi+>~m}20JX((R=+e%>4m+1akLhp|xv{(8Smo9Q#V&YfaEIjv8t0T4?u_M-!%hMx7M2uC&vj6opwAi<^L|4s(g61h5<6b;FV! zZ}n~ikgHP4ALMo;JfH3SwKtS$lWG0lrX;Lm)mN<**ooa|26O~sDBL_<^NadnXq_aw zJ!C>0AG`UWMC!4Z%Rel%^86{%ZoQ!%x*B9 zoP5!vLI9PWdrK3N;@5dv&#V>U5yZ#LSQf4S5M>?!MsE(=ad)X{OmXx_s^9($)f`+c zTdZ@lFVUyysEQSa1~6iFfr$@sOcC#KY-+LKcuwydQ+|)no=@`7v!l<-T_7^`7Vi$k zVCY;SMc@~{YYu?R^VYIOt}WE3;cx*m^-LIP8RZCxkZqt)y`7bmtnt+M zLeuu*jv)?LL`0}{D>B!sglt~0XvL&Le|9%eL`D{Fp8jN>BeQ9-5MUqUo`HH&eXelS zKua)*yX(+7#xg|WK4dU7i&Looxr;?N@GkS#*qgN5?-CVB0`~|cU%*e)SGR^RKgojzt)%~OV9GG4&r}c|+1V01Om4+VCxT3H zbqGtFi!td9DA5XHa2x}C2Szb z$?gG*PhWu7F{#!OaWzYe^_F!ReQ#|dwoT)%=Dgf%vt{7Bz!<1851%2LUBm3ayheno zDxYBcoxT;X8@AwrSn&x*r8IpkCCSsqN#cGtiFk^i`hrWz)Yp@ncZdUu5v=(+o6@%qQZ1X>u&GNWcXRPqUjWZUhKk)#7aTl5P?ZoNig!QMvM zWV+x@3R@W3!<*;3o4VNl%uJ9Y6=`(YEA?Roi{XGVt3qx72^R9<)5`THJ^nF3DdQXZ z@X|}M$^#%ddvfak{^1wKZw^;|p7U{;iO5d?b3itoyX$5Z$|VQZZyn-fV;?vB9t5nI zs{XFmj$nRi;zPUia#!%GsFO`ebk=gOITRiu9Yv%z*JGVl!ZVzg{;L6_C9svZ27fOJ|zY& zja}rxaSxFBAR-UbRL5L|Wk^Hkm2$U%iu)6`8R zKu9tp&G!Z2Swm~J++qD5>shBQAes5Pza3ad3=dKXJ4!RdsHK$M^CCL=Y|)$RQ*Ne% zb1zd_AN3i3)vczdBiWtEx2>)g*LINwCc6T%!2YYeyxJ&O3c#5{e9HoHUUUW@lmqui zgPL|Mw6RL`R{sejLYfCT{PJ-`_V2VX%(;P?<@t*%tS{z=Ysd`FK1s8xuZE}8K@}y2 z$bXJrgz9hle+D{e98_p9pZ?dlM8}T_$H_YS}3a2fgh-RzouCh56O_SKw|!R21$#cl50I_bcn{a3Evy^!$1d{TsijL3;#6y%?fL2s z@mzera&#E;1e?QrPo_^Jsm4kKQ9N@k!cP^-nHznp$8_JNq$yte$8sBF6$oU6Jds~H zD6?y@VX6;m;h^=^y^c=#8y-h^n~1}*_KU60yWUxmtfwByNA%n5<-%7?Pl$p8hAz>7 zmkvZpu3PR9^BsoFLON!3|2Gg(61lDk5cKoJ5S91HJMHSKa?nbCHX`d{Tx{dOdAyg*RYwrP zNc{QBJ&gU#1W!Ooqo%Rr(K&2$Rp7)3$3^&^K$3z7s#ls0Fzw!^vU+1qtX?@t)*jq& z$y8pab4B2aectn<`W~tTO_556iP1xH$2e2^|O|~^$jJiBXbl;p^?mp(y%rp6=sru#$XIN5?Ry*U#5aK2K9H=JSKk z>yD-b*5hAYuAod(>g3p*pszY0TNoR*I9Ye)De0VY%w5-dQDm4F1Rq zyaL`3tN$#xk$ZJaEYXA?p>2BSu9?X2Q-QP*c<--tH!pcnE%{|_($v^}bg3!3VxPNxrSjIm(%=T?4w?x@qpzn#rk zE`29q690ob*Lw%hfapQF6b(!=v~EO=HLP%DIsb)T=1- zOm_Uf4@L4ymYF`h3rqh>OD2jbW)R z?7%C;j(Rxt80~z?tlcFXqOMsu26Hhgr2UED(=;mZhHuM~uOrAqQk%-P`&pq^mOB`3 z=8Ek3sHz9-kXEaiG}3g_@Ey}0+1?C855YC)VH6r0>@h_`fk#(g7LT{$`gShSTTW&R z$C}Tl61q-AD;N;D8TbY7rX{_hZs_?UtZJuTL{FT$N$MuBBA31ki|%$R;WL~cD1~}* z{(#dsorbNJy%n0hde%a0vM6FC7MnaXE<_^3iaQ>;_%_m_^10NMd=pV3oc?sutCA%@E^qapJ%E(#jQ2UrN&Yr zK|6S+oZJvuwJuEc1w&}wu4F+eu9C(a!V!Bp-;P=aRC#0BW97ilf6bhU%ys!42&58Kvavs6BcbbsC1E*!Mx?$h4m}pB~c2{H?u%?DxPX9e^6=gwdQPr?x)~X;_mzb-5{>}BE({by`!W12> zKj3?FF%@x?0lg#h*uIQpZTNo2(9d&MMFKC7XFHqLmcl7T*hnKl!!e_rtk^hEQ2Gc! z$3exH{}#QY_eXA-klv^xuVBQZ@pjZo(A{^*z_GfQVsk_sRddnHlpErf?PHXg7gg!j zFIPVnG;--U*<>m^+g*GTN2xDVrht@65CU|Y72Z6&rA~jiFp+3j<- zZ;I3yceDV&2ixcJJ^4BcL;qacq;9x9WHr1?Z9 zuW+G6!jw!`YYDl|IRgle5C{_&;{O*qeXY*4{qKm?tB*(C3dxjJBDkddHAqXPz(QaUftpg3yu{ZdTO zhubpJeZAw~){{Z_!P5m&csJ)R3|Qirp=RURk2(CqnC{`=X~p84`Kydzd1YdXboC_F z(N@m7Vet1DBj+K+&Q!qZudW!{o&%q+Jj9h%ao(HzylZ|E&p87o*#2_{qI0zrfG(G0 z9|#fpD1(+az-P7yt-NBf)BC*JdD^&H3{o}&o#wB~C|=^u9k4YlM$>Do${bfq6;~%n zy2!%k-QpFUQlhj!uc8RZw+-pJiH7enRWS~hiYe^c5yFQ~Cn1HQ=pA-!BSp#RsKjht83w*XrqD>^Ycu@m*)X)d?NY2n) zy4gTu7@*aVTs`iM-ouy%d~1(s8OW%xe_1TzvrhK|F(1r^y2_I(m=7(H5CGF-0Tta9 z6Br6pUJyRB{NmxSwZDr%TlwLF6X9X;a34jvQ z665>c{=u++@4M@fCTI{EY|Z9@_y8sME@)?iRnaJI6S=G+-U-na+_Y_+x-;sOwt{G{ zdD0{{G!+fngttt!Stg=;^08}PgWR^e@G3rX>3hIplN=LE&=?spU`Ul<9JO@YGTh6L zuTnd~baJ8qF#{!qkx*%J;#`vs_Uy9WyfnoEU;lflm9gk!oHVH_s*4@)O$~)`i5)si zKdsuRDKoVhCAFi{R73D>w>R{%cUH>KkA;HEIG0@4vz8wXM=`Ads$Ika_I<+Zy zDX&3A>#%$b@At}_5u@}{LNjLM5F;LF%{vpGen!zP!tp+YUn z1*5Jea}-g|i52&d#;-MrBtSI-oAv0z-fjC3;#5bQ!K^k7 z1>92=E)KiPt)0IDne5a^_KKam7$Y-5*&}S&JqC8`^h(uz4ji&*Y{w8y;i|9{Qsy7h z&nh@ae+UX?&$p+?A^n>|Ml-*DyBT!7;sO(pCRaP(YNh-?lVFs7*nJ7Ne34I7st!4F zUsV=apZPLq4z91?M=yPZ_ttCgTUXQ;?;YQ2uKVx3_3z(iKYhmc=v(*b$KI;H56~^& zO8xXUzVY|7z4mM0pr3tauA{#FA=m96@2P(J1={^W_tanBw)fdz_LJU<_pJTgeb~Lb z^mS;wnKTCbUGJnHeSP=XyYEwb)jxD6@2}qb{rl>_zQg|ezwf#KU!aeAuJ_&lK9>95 zzV?^B*YBlX`=jrxm+61_ecZe1=J(T|dyBsMZ||tzy+7}+KkYr6`l-5)_vxSCQvW`Y*VrFlqCWa>``AAE?f%mH(q8s&yHC1@x)n0C0QS?C z?JB<&>*>z;a8PBc)XF#}`fisFM!v@UIY=R3VkB=7q~W$|VGf(u@e8U(ktRIQ90f77 za#M&nVlR@dFn$*5ofbxFbuh57F>G-0B;}_1%QSfkrBWucuaAY6sx_>KC-ch-y||a& zT~(+P|2Ft1HFVrIW%$<4Kw&YE^Q7sKl-j$`KMLC3b(RWdM0oN5pGzoGlTvGZUS$T$ zsz8Swh_PQ+B|udc!`eJMW8P}MbCe;3Q{RVUr|k#$@Q)l^tU-(Q+N5Ozk%PSm0~YF1 zTqn;rl2mbnw~~KO@t+Uzm2Gb1p2b%#FSp!$k-^VFznL%;i5F^-x@)|>&B#K>nF=#~ z$U6HkCys0VX(e+%N<)LkYFQn{yO6|yzzMIti?lh&`mOW>Kbe!RWpaWr%c}a1$sfFa zlHwSt6zw$rpW7b4hhI*S)_ zBY@fP+Ky}SLoj}tNYMQ)jVttX!_S%IxAR&8%f4v(=gqtSIpjK$F^!@|ipUW)s<7jZ zJ6r&VsRyEB63m~2bRn>a-h>~a<_N$LjwP5OHrhb8NF>ruw&_(J%Y^cLTIW@9P7$nv znxY_gpB*`^;9SMD(p3$=C{T~OD+i@HO)0s9VCxE#K`A8oe?eDE*W{Eu<6t9Uj8Y7J z>S^n%e`ifm-QC>G;WMy_d7}Ot9e`gaeXOL8U8c|~4=?AK4|x%XdR4Ic+8WK9L3rqz z_26iPUpxg5K<5pW^Um-PRFxwa4GWU??_e;Z!dnK#C@ZDpgNo|E)PDCt~JX*ib zvl4^fioPcd-xrsG*)6A(bH-UoiKU^_jI8JGBpXo1)EimrrfKB39)7qWYyVlt3#tjP z9ED?Y>^=`+WHhbU4^qQ4tyq&@J5SIkp;ZmcS;YTnsFTfgb9pU10Lm90<7#97UhL0L zme+d{N@Is3;K}?$yJ5+T>IqykQ2`CO%eQHG-4g+)r`yAk$>)P7m5diD4qlFmQH_5n|a;>}uc_W?K`_gvDWH zczg2K6PQPa*MaK*_cA?+DfPi2dr$}kSM?)UN*DCDiPC?C!-`{9f^8qmoj!@Us%pIhFr5jiX~ldc;3A zZY#alvfap7x%2YI+aSPVz|H>kB|p%&;Io9zI4|ev!wX-hB5uPK)Ex|=5!%d@G2cMA z{BiCET3vtBgdJavbqgJkAmcg0Px%?g ziP3H2S{5i`reXH2bdJKA%jUQ610>M#!`>0LfK{$F=WYk=%H;K9Oiz~e42wTcbwF^@ zpM}6vGMTtd{!Jun9H~^ZinT5$v4iTlt!^i|L6&#k3A(83fQVqdv}+D(kEdQ8jRp;HVhZBLD^mKpUSgRpY&*I5 zz&1qwohapf)6kkhO`6hSAAzFzLPUOPIrRQi#=%5c;nUE1(`xUwt|hIy1wAP8jf=Bh zv7SV~O6P);h#q{hfP;MDPZLMBb2iLXr1XzgGu0d{cLSUa8N33Wq8}GoP6mv8+bJSh zV<5l0q<+!YLozIRrTDTUGy(AE%7Ze&W|vfjyKi_he*m%9jB{9|J@^qOoM z0i+O&JM?4kAuVSq1kSdkw@3A-=O*DAo?(4K@}%qqj5JNDFi)gQDvUX8S=P7NERvqs z;M}`xBryXoe{N-^(TX>uOUW$4q$ui%AyfN%B3{Q;M4LBDdQg1b3D)TC=%O(-B6Vtpx66^2g zoaks-x9yw|FkPSsN}bND!hK23+|SJ5B0b)_xu5AzcDmpyBN5JR9*9j^!}9f64t_E? zxK^pr-XeOK)vyoCPu_9Sniio$MyxMee)-DK$_U_|<}HHt-N z{v!tlJhdYBV-{4c6NzI%cSJBj+S42|0NAEvH4YF!X6dYb58qpoIBnx-xHtt7^9umghOK0;ym{pfn$@#4Jb|9xiLe-=`{x^_Sg z)az_bpYYw+csfs_@w`1xl;&lq*_{!^|53zah)f4 zbP7UbONICAz70@*Bj82mPnFetW+Y>P>osNraQ`aJ6IbB)lr^?Q4>x5vN6hzUb>bmF z((VFd6X_St#d$*ZK!%@D7oG>HtObPo^&yviRB-x zDs*(&jl!ab(+~qPzXh+O=R>?Mi$Mt$fcV(b^v!dZWBPETj%a64ocpH0hlY|E+Zf8c*gnY$%DIinfA zN_Mm}QzBI^Bb7zgr$Ubc{EyWK>hrr(>urpSMsDFi?^T3(pG2k6&69L})C|&O8bsqR z&`?Rwjd|tpvl2OoAU$)aNiu(8u`(2c%AJ<=zxeMnHloMN#>6w;GMu-xjIn$Pf4RB$ z=^km_!Haubt2X6R%eJbXU=aB^vJy=$h3bu1h9iZsVm}C~IgHQRw#~LCy&`G++g8vA zKs-BF+B=`H<9ULKO;+A30kluk4$PBU@)q|?*0P)+ES`A8C7jGi;IOZ)&PickCcV=5 z`}ZgQM3MI6jnO_}`sU)DrmNy~>u2Rk2{&iX(!p9YXK=P9st@=MGTGyMC6f>Ugi6D< zNIVKjxsjpx&;dPa|id%gkm4{VGt#iN!`V63?Fj$M^K^h0ljsxrhR`+7kR zVJRKJxMI+GAapY}Hcf-|VWjKf_wkUKci4G0LFvl2xp4k|WZIn-o(8T20^=!>2x$OI zfUZZ{H&>N>kXVe`)?s$tm(=zSO$?6<{G_?ZGYto3by)_f;)v8MpmHIOTvuja6^tI4 zS4)@$r)lN|pH6F`bGu?hEGXdI7>cp%AH~Jhj~@o|wb~rRB(4(N&p>(dOjyVZG>Yl>41oj{2XvnrVJQ*@B(^?3{s?d%| zcKCwPJb&&PgM@{!0k5tU%*DY|2`Wo$S00vc@~0$=@21FyseNd1Mj{;iA(z+-GA5!P^ZgIm9mVrJQ*d4 z!1zj7F`N|=$anL+qATeHVb>a=ta=keseM5@tci))R=7SW5i=wFiYVnR{G!!Q*LMae z8aG_8aWM5oc!$)-HDl!8unp@px;jBzKZ-M|Un>N~{Rt7s(wkxhbYRBPy7{V{Z=M2c zbCQez{L$M9!_Wwk2oYt`I+z}#EAn4vtO45ABmRq+gm8OocsrA-B$D6Nj5pL*eo@4e zUj(jP2QjvAmLJjCa7y1&RC6&-8jnr2>Q&LC8D9LY1@NIF;GV5lv;86R=q2}J>rp?q z(h8k_VEwR#G_$d3XtwBL_8GCK9Lj^BQs5;!`vi6-XYrgjJ!gOc&u|uw{@_-_2uDXWkQystV8<42}9X{3}EDRj2hfJ(g9K)YioQk88g)Bdc>BIfjECL#msMB(eDq4G0yOs zKT1C7K)piVqY5~tIx!hX&#buAQOLV_2;R0yzTtpZd`@~q?c%4)iWJ|NDUjkI##yiI zxwCn?=WJrIL`O!&e=Uy$`SmSB6MDem*4o-Rbe?+ZId>#CR?~5a9+JEheKZsxc!+4p zx}QKhD=PU0gI2neQIv(WB=WIGf?emQEHiMvXP;b!vBQ)8spa+Yo#ip;kKN#YkE1kg zui-6ur{tI~6-FO3O}4Zw?Vnf;V5|74xU>|!#D#T3FO?j3LK~t(7#>rRKKXS z#GkNULA1Pis8)@%nHRRDw8vXmmq-957hzAlRiSMr92gtci00pY@l8Go7c0KjJME}TzS+I2@6@>B&dnr%^8TlXIafzt_&(MJvI zraQ_<>wQyeE0}gd<3HO!Eo25eoEP4J-XphQ`Xzeqwf*4qjgi!@2*4Z3rgsVwrD?p! zo3Yz5CjM00QsrAsSKZMhkJ)6K#SfIJ~vPM}ERc@nqVZ8uH{q=FbLkj}M-`hywpcuxc28^GU|v z3L6n1h@Z^;C(D z568o9y1E6tSN|VTBWmVn_%4!2fzBU4Do$bE3(@?swg|VmE}ZH4tC5q%!VG50q;x+% zw)w2Rq>m#q%R5p ztyI4yKHP_RVD*J(9gh#Hv-y>mS2|&I|7_dn`g>h1(fY(J4HZ)t2;JtYF;!)h5FWle z73JeH2hABRSlrm+W@cH1nMUT;s%n*OxH4%HUshrofpsbotcke(wtYrM^jgmpwg6&! zSVU%-T=mg00)-4w_r1hTn}~_u=0f*A6(~K2ZKYn6P1{*Lk;<}NIDl}srIX`X-i<@k zv@=-;WC^ZUkBUHN?{_{;(07f$cZo^~0i)i8B`;K=R+^au3^ zY(9NIuxy>ozb(h+smd?~n)S*VMEj~8_D&l%aTvMf&%J)^PY3cQH3Afn$k-2d5=7yU zit>6o`v&Z4cj-(nm;TqkQc%-`QfCSO21LC{y8AH`Z;{9hsIr$^cHw+mJJX*rU&@*6 zHIfT(63O`EJ*?f3qbIM)GtWkH>&p3fFIOaE<5Es278W6*%)I+MK`GXVbdLAZVJZNk zF+vSO@nTsh7M+Y3)>wm+J$@5G#q${^+Pbwilo=x|6!qmW0OFk8iosTC1-k0@oZzpC zUt3rMQ)rI6sC$>s4_%GE8ZpTsM)tM3ms(>_#(li*cB~A{5pzE@vZBp^P<(tksFI%# z?U)H0&DI3;tNMO+dE8WAhkRK{z*0VBdw9qnkNcZ^MuB@I7j)uf&TSKe_`dy6dv%if z=p|6_3j+_+C+H|kax;Vs`ha&5PM2*fsU;UME=epBR>`ubK{$v(;;iWh-C~jao5%I! zzZ;eT*mVBEU-#aSJ()E&-%y@7)ZAX|MY={uf@qXW6?@HLoRANabP(bfl;^QFF;FRO zr(OK6%xYHM?!)jyM3z2ukB)NA`vyM*gnzJNx&$!cJi=yU1)Kc|ODJo_re@^UAE?ej0?kKj0`gA2M0LA7in)>uzN~n*@<=|l9 z8W-v;97xd>K?bl5+tbVLRc{!K!)S_lmwz(^h4$v5aG=Lm`jIM8?} zsvFqmR4$<({ADV1JX_(#ciXl^O-AwCz2R3H$dDUH__7q!01%8*X^}4L-a!5NIi;cM zh%AaPk*7+}KoyCj4_ ztWVQk@OL)GMS_pzfUt%M7~>WzMVGA`MDvgn9$-B>0UUOk{Dy)=bQTP3mVIBsur2*t z{%qS7Nyeh|>@O{%1YDnTCdnLDi|r_3(HQHwb7g)5$Aw~ML4r#xixo%tR-39M;~yxg zm{BbJNz~f|A4PYm2Q_hjo`@KVjKIvi|8!F_b^`21=VV<`!P0X4vVxWHG!SqOE4XfQ zr!O*lcAoq-a4g#`m%5fXc1;CHdF1(e?%*ohdBtospMxH&7WEDctx4D)4B*kFSa+H6 z7PK1;M#SMCZCo%(z94xxI0RG5|6k#L)idOTze)ctOXvt=2fBoLjH$&+Wna_BEZNWs zi$Rh_tb&#ls(v83kz5nve75G~$2I}2x!h}83m|gKzJy`uA`>5n`uYm(K=L+4h<>3c zc8IGc9cFF|vOiN}b^e*FlM>26E1%`qlk4A24xKHYH@C0Ob@admw2+koa>q5YHKG!a zA}zhtc4!YDz)*5^{}Q3om`weY7T{gJ)UlJ>G%H&!bNG$}e$7JwHVDR*a;#IOY?7C? zzhptSNO5D9srj68W&5P&8i_uOAO#yc^>+KCmkz_XkSJOWBzHw}~Gti(RjR{(>98IrZjXwH=Rk2KkU9LWGPv z(~NG$?23 z7oWj`)iNX?8o^zTs_O$$)_-DY$sxHx0|@X;XdR@eq8J$~*cev@I+;}FF|Bb)HA|2$ zl|x3+*@(zkd?sk@?2$AG^oUYJkdl&mEZVTq9R+t}V`|Fc!T1VqK&r8$qQ5$vTLhy6 zu&|;qY0zlgm+->x{>e#+nWriBq@V+!d}<)}ImNKFf;+bVVX4R?a~USJxCok|XA;6E zg}NS)O(j?p>bV!vC!d_u0j(oh>F$HuHrs1BeWnDNJf#e3oqxeSMK%JXa4fZ_MB<6V zUhx$`$iRV5*!=V2$W^!>h6Ype0WG6NswDEQH9}O<5+BZg8KU zGN&H*Q}XlT{FiDgz?YlAF=>}?j5WRRXBwjALzpLdnP?j@g~VWxg3*>(MnBD)j}4# z&DmE4`*YUBpKv-l#6BB)hN_XhxJU_*@!JrKh-VWJ>@tvB$8wTVC`Wsd;*i29Am3y^f2?nJAjG%^+xc%v_umU%yGdPfrij2Hqb@xhw9NW0d7k z`0F33cMM2Oh?`h=vBj@6Kvab-E_Zm0;-&%THle_G70kzTy*@B#~- zb-YrR)lYxMR1BpW{hHoW%V4#{fMg=)#nMCksG4CgIJE`J#U~i1ztpqFjDQ=V_uW|V zvOXaHHCeWsqcuXP(@VT**{Bje!rfXBmSnMhYC;4+#^(8RW5k{{;y$_B$Zk!u^EXR+ z-henXE5;Q5E&qIPZ;;-D<}*ZPz3^SOpylSO zC)Bycs~Y~Jwa|#yh-!YHKJI4)v|Ve&ma7nj$r-N0*1Q2#g%UtKwMkLLSQrzx2_dIW z;dN5?eVZj7TPSYC?-t(n#Z_F$taE0_sek)C;q-sUK?XbUFp{pkMuPlMlMp8_;c=+$ z&K1FK43ARY1C?bIAAN5>X!U{q>p6poZ9l744!gaiYI_{$ZS7LR(Uqh{X~gB#69U9< zUhLW>m*akw0d+g;C)D%XCxF;tgC1!ygA1Leipk~9TDyn!g{1)`C^kGp3{9HQe#md$ z!5c*{B1Wiic!^WsQ~h6JX##+t)ylleox`>NOB5@9Q~zNMimc+yjVyCFXsdq@OT&K@ zo_7Aom&)NMx*mL}0`&nHf&v0x{Qo%*2_Bf-hFrKAN@n8#`laW4n=ZfNQ+G%m40)Kv zdpVt*%r;FUh6mb0@2U6e!#;uL%|X?-m{Jl+;S2RPi(}8*6?2(^NLl$hP@RUGkhbJA z@_%L|?iENV6qoe<*hgTx4EPvimdd&UJ)~1F$YuIM_B#CEo9~R>{{fM(pdC$r^hc<- z7aC)gN#Yb)NLsvQ8jQXf3vsef(#PXn>S26(djj-%JNa=nM*Pon_0f<}3oI@;-7nXm zTq3=LA@`$@KkK@1_@Xy`BUzv|IUa9FOfB{^2yOGDQXUr1mCf`(YI#A31yexoLKF_#AJGPBN!%Dt^U`AOZ< z1&XD9Frkai<p$Is zrG+W%YLX=*P_1x3J9UZ7#v`HHp*K+W>u4pl=FC&U6`?^Hl=nwk`+Zbf&`GD}!nVGK zXtV{e>2rC!?+8$;VttS-eU(r6CqM5-qlX7i_kv>P$?w?$@f}m(R%uzy`Xgw*@r}F{ z%isL!)S4n~C%XKvm|3-|j1KDd8_uTB{+S#M?0v2R%NW86yv)J~PHyy-+l4GDj3>)( ztWgTcv%B{)p(|@8<~fy-!B5)aygrzXSB>cv+3oc;x#Vlv37BMJjT?KB%$m-vy#pF8^w0EmEarmF1P*&}gv+2ah4Ja}mNB}%;B@7e7@WAXRSTXKDB zRX!|vLS>W~1OHyFy2xOoVz|az!?CSM|1=1`^{~yXc^`;$kXU@jOJHV92fsGm?%d>4 zrmQ&HZfnoUG;KLJs+f;tKk=@ak4PCu@AB$-AagHN@?#hibV+*^3yllPl%`kZn5`B& zU5<%s;Q5O~51MKdVw%&rfxp4TcA@Y^cjXZUqGwhl{# z`+8haa6fo@!n0Y7i^Gti!)N~@z=yBN*Xgs;A9I}$*DD8fM?fwl`!VHJ>t?g+QBnAx@8O)~A6 zWbY>^AiD0r7Z`HjjNXoqs@=G%K847s1M2`L3iFSO0S>h7OzoTJ24SIiAYus1dA5PO zwMvTIzrNx@6I?5rrr6+^^=I&unqWB>C7lA~_nLQq@^JfCFadp?^Wx=Jp-%5+|2Fhe z-t_&DY-9gv&Z{KjQExV_M_PJCJ3jR%nWB0-MA_k;DRVv<7hi^j-MQTchSX15pVt;S zxvepPnrSsvZNZGItQJ)yf*~Mf>ja4Y2XWLp3v5_&k|K4yI~ZLOmGtb^f_0%LuI6$q!&OgtZ_!;2=kf{E+h#&uuEd+F89wnT(l~KGV_C6f?dkP8 z#F1vCAP5c&kct0%0ss?b%8E&QGgp-xn1+)7Hv@~gI*vdf)8Y?>J>-7ron)S`Tv>X^ zOS#30i+a0OEoM2f{~>H5pc!Ws`;E0cIs$1zebLFgwY)YUM@wvGN_s+grYgE zR0m59{s}j~od;E3E3%~4Wr=tU41M<7a%~F}Z6l`+d0~i{#dCadq4lwC`$e0BA}ktfV6)s$9y{*Tl@Fsa~+$5k;Z# ztAu6eRBU?=0rV!u2smNqHbEL80L*-4F#Xh!5@wRgC|MEUKgWKbxB1hq4DQ)6uNd%; zC4PiQqmv|2f|ds5`GHR=I!flzx)^nojLX+*_Jl<$hO@7 zaGVToXD&tuc92%c?$H1#|cCtUYFH$AT}WK(KrR zs~j~LULS;pl|vuN?<$&SStJIi7C(Ix{>8gmGg2GsO(`uu$6Rvydg70;P}CWRjJQ^r9h34K3?) zC(U9yP!p&x>Z#M2cx=~ob~F*UTQy$pUO|CqQaNLI=60M`Bx0{`>_zYawX6i^-N?-j zj{`w@glY!K6__e46ZQ0tg)zucV4xg)dJ1+yTCu3uFA$_q`+}MDGA}_{?{hIsIuy)a zcFXNoUZT$KFH8-(2kXq=SoF&J=?C2N#*&<$4&lQ1vl6_r&75ylm9rv@PVmF!NdA;6slz8^w9GO%%e&l6rzC6GJC|`XdFE^S9{qxi2d-~&@(-Z9Xe3(jw|@d;Qk1L+Ga#wY;PqW_~e8 zZM~|2b@=?~Q{1hQix!Vz>QXS8_4GeTv6?ukdZfcWR3;~xWG=m-u4mL3FYmESO=y@| zrZ{r~?QS*k6DXqHE>e!%PJChl?@kK-z?PJmzhJND=VWM<2Bc`3t52|H*Cb@1BmaLC z=)bpOs1&nvM(XRQ1?8RsJm3zh%e&^Fc3``$j@aM^d!p7G1&Bknt_=Ygv!e6qtx?3r zkIK&1MkEv7j}-WFUM(Lz*QdIw!S+n_mbP^c%GI1nalG^S$s|;jn$Q)EwX_L2hw`|k z51ygx+<>S4itH%!bBXz}O+|E=M=*+fFfxj20)-dm&I!QB?I1>!GI&$_4Nt59*L)B6 z8`6>!FJee1Tc0#MB68HiYkdq7n1ug-_Sv@jzvRwHvBHqfS;1^}aFu&xTGOEz4_xhH zk$7;AnaTPXt>n>EQx19P*Jts#Qg0}RyZDCoR33=<@xjrIs$dX6aXrT+w2+)CP(z!C zVSnb5YLMbcKmG7B7B0@>CZxD5K?+Y2a;$2ls;~t(T{J2CIqo&Os9?-+Jyi}Mf`OO{ z=2Qts5guh9gcLZE3H)DgK37=J!~oNdIRF+@W+?rXAX^nxl* zu-S5al%`Is(&;IsrEdvv#D!-OH(U&SjRAXx_ndWYn3TPi6@a3n!%S3;!>- zV^JJ+ryUV8NA5}X@Xu3}%Fy0`s6FYV4kme$3On+O;XiAIi<&cbhBp5Ot>560X2h#H$J*!x_NqQ8Fa4Ifo7LaBCcxcr~LAE zzFPCg3x(`CIv)Z{Zk}O7$F`Su^cFZ!Exh%)x7?Uu3q4~MsqhRRULXT+U!ZGO`gRlo zfj&eTLF*SPDgJ{aY7vq016fHkAfq7!VJE)2FBLHT`V^UX_< zWTj-IDbx)vsIa^~Ic>{TLNfB`UrZ1%*nMcKewY2NIdNV>0 z5C1D?25=$g9fLAo9Oqo>e;)1=(zaN2jTw2JCNuhqQvwWE7{&l(*Izy3%WwZ}WzaSVHrRN&3wpk`2-rGrUe8T$9{a8dzw1}+lV zX})i99|D!96|~Ldlw37HSRlDH1CBl2zx#1fuQi@W3kS~0*DA=2%`5t+`kK*B4L<2j zMy&JTT=ku%PrQtgAih_od>UK?kQ_&?h9{TN((R{b^Nx#fHZ@68;S^i9dT}Q*IZtkO zT7NYPX340OlIYb<_f|XcppO{=z?2t)D}FMCLxsquJb7dvKB=y1(qoqlxs;G+4c+yNrL- zWX9YtWZOpRQPvF!M52xSKXeUVCEC1Fp|l*{P}ZhEDpy05hM~v>HG8GBs?n9KAVXe5 zn%C4-;4b}@G9E`Iz23{WVPpRqiFPy_K3%%&5$ z^tRHGLs}5V=N4%*Cl;0o&Oe3^>(*ptGe4z5ZINy}Nkc63ZRNq6J z7>JN+K}*7&_@!ShDBCsDoH5sKmem%ci^Ya&l#5x@_M0%YbswoT>IN$Gxyzmti3jly z2L6d7$PWI(ow1QjlBb3irVOg)e^G~}dC?}6;Thym?LrWJ!_X%GU|7I8v297AXi~e= z953LeZ0X^&nIQi&`}ZSO$Ma-&ONjf#ak3MmPo3U3Z-ILaE${M;o~n~x(X?}W+G&vW ziL|P!>ZR2bNC=~k1j5HfL{Nq>308tg-ZdZFx4X(xY6u^qp!yz1RU-DCMZ zHIA5p0XtF506{>$zkJlQGiXkx8k&2mE)bGBmCu#D@flNNlV3FhoYGekdok2HgH=~w z4=q5)@t-bxLzx<&AlSFhI=t10?ul_#t{W_|sR>y_L|=Nax0W@y;0+D)Hfi$;iZd#K zqlGE9(JmJWFk?EdxZlZq!1brkf~M@$Hg7;@Z#{<~sBWE_ewY5zh2&vb%X|2RmuNm7l)1Dv6L)vkHNHIVc$M~DHd6#4*m6-X*6`LRs~JXT1z8h^r1nlyHJ z@?j7}Utqo~p3leK#D#gePP4FRHJneyVJ=WfB}(_v;0>~HMoG3GH|lSYqgGyKXk_FP ztqc|>(JA!pr02&tfO(+vS^^#j&Ale3Z0G30#0+9MmhVU;KGp#x3)p8WFd#DG48olc z0G}^O@6H`iQoeI(2uO)Nvi^=K^7XTvR#0ICBlB+a3tQ5+Czk(diu53T0SOC}Y9^!b z=bx%sXSI#VKuJB(kZ=^1OcCy8o2AHpxBnT0BlbpA1!M4WHfN0CPBKr1Gn7=>X=fXy z^A|rmZ}>^(xXrx}QiiCl9RFew`J&q^WL-TQcbB}Yoxf47i&x1Hbh2YNHZYd(2a(~u zPI?lQ;W;qs#nk;x{kw)yhTlutR11F5)BO2V13sJZJtsomL`u&uy-Y~bpNslMvTyEC z2|5c|QE2yz3d;RqvS1JibQQ>$7Heji$+A6n(d?X~t=yrB1uK6fBFgKObLm>dh_U(Z z8r0ew1qAu{(hCwR2mOx7p(mrP>rt%;j@pm%uAh?c=kB1a{h9F`|gwQOtb!X4MfAN!W-?3bC^YCaI z<6GT=)K&=*tA_@~@%5Pl0`m!Pb5=vkNw)a50Q-~`c3=?QEkT_j&{*pvVG$Cv{sne^ z(>mmPPiOXCVApSTBjll;DSq$xQJbF}b?M9;U(^ZNcqQY3mUgwWwIKZN0=^+0_HIky z)`lla*!O&+V3%0>(3B-v!RQv zj;#(atGt@C?&WBQlAl=uxz?be33#3YpWc3*pQ!v5?$n=bwlRutPuHxv74*_Vo7XY- z2-ULln@$K0KqjTt!nbH_bEhRo0c1-;!5=Oer@BY}T&Hw;YJE=qq%2iT#fK`K% z8@Jyw|09>xB5++^Le4!Q(-UzEL|Av8q;fe+@a^ip3*KD^SJhKW=1-1gk2zS=2zl^v zIT~CJ_M}R}?0%~G$+OuFgPIp+KMxw^DPdw69S36+xC@vau6m9dJ-;%1i*suZDTEdO z4$R*^QM*lP*-Y<7!7F5KH(Z@u_MJ$`!}``uJ#EzP$D}e@;RQos>VAP4>8`3ShVVnj6AlvrtrOK? zf>6D@_hh6|au@Q0HV-t06ZHYQ;^QG|xgK8wxU~gg+xP)1+E3K|!MgW1)(MNP=f7_C z?!&4RZvIS1DK2?#WSX4+eyZPMH7h{Z{Aj#ce*Q?yG=Eb^bf~5{_j{bd?{T1)yWoVP zIeG>t&T;$dP)e$0-7xg@RW|)6kII{|{>CJJ92yk&?T1b_asAkl`?y#aSiYuQP4djq z_r{l4{oN%Y`Z$Aw&y-<@t}70SJh@s&^E6JrjYu}xPR-^DI((?ec6Kf5)@3Tv3Fy6m z@M}awRb++2su%#QVZ3##BG4$CI-%c4OVTn_T8KN$uYj~a-3GHi?JU4HQch%>JP>R+ z^dl415&sUnH02sWlFVDfF}YvgBL2NjXEhxOj`C!!LQz%a1Ybv4+3!bXRXi+hOsA*i6LkM>T_2X(oW#l{ zqZGF&l!c=BCrx$ZeYD$pYCmc(qOaCMfkoexvU+R?oQO^zIt6qwyTVCBppzYqqpJ z^NEcjUltrX#K}iV<$c0&vqf?&sOs+y9$*L3t0FhQEc<*MD_;+f{}CaCHJ*IC;z?Odb}?gwLk1xX&3IbMZx0Nl@s}S$c5nBd$eTZi z0s=}FF=>e08R^PB=H4WA9qRUOt!-K){|UR{?lMSKajl-49GXX!Vjn{efVdusD@3qa82P}89_hFrr^;wG@81EE5l~2_*sY}V>g$f} z!(@tM(cT-4OBEMl?dB$EBv0b~jnc0b)~snPFRp)-?LJKC(*I+*Ox4i(w&y?%D>rXP zIIZYD)2ZIoxMK|I8kCB2`ty#p{XS1lVzl=a--{*w?mNlagZ1UHiKUN@FB>0U)Z`Tmu@mSYV*gEYP5zXCsXibOr<~G| zsh$;-zhU=-qn&mNOJFYn3~ATd;7yI|$esD-J%$*{&)Trk1Jutm>g$8`IJubWn{;8BlX-H8eiC6Sd$%kUf zySHuun5{8?0pVMK0ySp=Ib5vC~+prn%91o_?KYn2qpBUjZTSZ;qPTuO}SH( z&It0fwACt_u$!7>COH>m0G)Q(2+?H*Lk^65ptfzepZ-D621CI}uRCZ;e}QCH+3@*b z8N}XTou{w6>8PF;9UNl`P3{u9P$dPNEf}FFbwEJva2w)Y{fP+BXk7XetKzu!jI0Og-X zEnflKIdImqf^1`{&(!aWY@^NWjWQY|ch;_Aq2L!+>0KpZMJmITU0<2u->H2AWhe|Q zKE(sQEA5oZ+!1;v4yNNYfEt_>4~hK|D`l{ZW3kU$hucI`nm^&$Ob&j)9&{ixAq)!< zIq$mdg0SU0%5KCP*az^SGSxBhQsCcp{5FFsWspt>D7RUv#H_bBF(o@YE%&SMOv4{= zVB=@lB>Rpcg1LQ@bNs-X_r)$RgEZP9%ucH{D1@y=EuB@=sU}x!V&Ynu=SETU1Hp*5 zY6CZFz2B1J$ZD1)4T`3h%B*I)AvF}k#8mYY09DTMB>vn^=3p<&h1stg$!T8VApNL% zf+690@7>OgS6T3JvgX~IixlNh=r?TcAmtk|j|G$5+eh60Z-vN(!Sa%Y5>Cm~{8juZC$X zUBG^}*agB(MlG7eFYY3AmKT=E@{A1_+&K;x(K~LZYRBjcmeNnx1w)~E#O(K#&mZh+px0K057y7ad_ZYCP0_<*kzW7~uyOy-nZ5mGO?|O~Z;2E*pHguBeZ^I7g)JS(oAk}+gy#G-kQ@c^H*g~cERq?(0 zI6|}+Y#{|9V53xeWju(wm@N}9`A=nUG?4uMK?s@|lg|2*lv1c#Z_W1M)*VXk+J|SB zccdtimy!E)noxVhYazhAf|FEO#uD@iWFHtHk5Rd!-z#vR3MXTC4tX1`(^gK7{!FB@ zr@fNkX-g~s{y<3znH{bOClY<*IK$MEZX|rfsaBBHSWM!vTgGxuiryx#M1_o+mqbsk z2+*Z@OdY9&ld07bU>%g`PiI99RZUv%U2hrfzm2?0)N5TahSd4g@A|k^w~O%FqdT`D zPic3vU2Z4j!>@|U6s?uInIvZdH5TZudI00GrlvgVtqJ4A$KFUmUV2Jc`C z#W(>aCe+w|^iu}2gOtj!L-#d&L*Xk2u%CAcqc-3lh zLbro!+cYskuH~qazUvp1I=H$c?TAY{*=B{ebg&jbn5CakBAp#7p zRl@V;?hXgLy1rxZnP8crAi1Sy>C-706)GZeI$VfoQBxxl1toiQ1!Eu3Jcsk|vUMwW zHrL9i1uTuA96u|VjUu7;(*u#4MofykujIt^*oK8Ahq1ZF2^ssIO|lEu1OeaET_6k2 zptQXfiA6UI%Bbw|mSc}Y_Sg4fW1n3?Q|o8{5FHReZMJT!!HT=iYBw+4ZAQe~nQhFB zd>Pwo#Qv}q@&)14Bg65B#EF#S*lgDRNRec8X7|h@snu#w*$LqjvvIY|_<9=XdL@(i z(H>E4x(~Vr_sYBO!#s*daOvci+C!5l%zUiNbZ=k5 z1Nv`?3OoMSHnMU*nPnU@Ein9V=Tj{&`FaqUJnF8`N7}0(3Tf32!pieKj+^<3SStJI zDW^a(JG|*he5^~^^k>Sj04#u$1Jkyb&qWUQ$5{CPHR*}Cz%k?_2w?g{9bpPvX}2-_p?^ z8k70jym{^@MRf}A!+EojUvdm>%#BB-LEF4lf7Pk6Y^D1B4fs+JLPXJaFHtd@c?#BH z@!bNK{M-c=op?koIQ&1(Sklo=+(-f%**CH4amd3Aq?UYh`Mjv+jJGQrg=yC`<`=V< z!(~00w`>JHM+_ngfKVzjr>){n7!SNJ!B? zuIID-Z;Vc@XZDXP9YcNG+O0OA%UG_EO~k>A(MWjHmtak;f&-9t6J>$)L?Q$K8oqn{ znPdgo(X`eB0Gx+5ENN{Zb)i-Y%vOgcdY=C)Nz@}RCRt@^0mOblhdGWWf=MEe|09Uf z>|=C_p|p+wN9PvFqY>}~ZQPGKBjo=s9^Ms=Z3pM2GmQInsxYX~zQe|IgU_mof`vn~ z<0f|XDD>G5w8RKr(YlxUT%p&)zt&}3CK$3Fkq=U#cSKoZW$|uwFZe{zQC#xU+`G%j z(gFd!B0s$bMNFT$KUEpK52=Nj!c|{DP(Ybfuf6YIr&Uzz=+sE*cXVX;X)Q3VtV@Vd z-2hrlK`6Sh4WtCCtrZ;2FWdHe=Gx2DsxvCYzdldG6hrLQ?!$5^3m#b8k|vEZZCl8T zL6CSsiiv72W2dOxNaoMZj~&`?12&D1TP!S&k>;bxr0% zv&#ipCMj_Fl-O!IzHo&<%u(p|7JR5_1!ppJWKN`2Wraj;-^e4vV9kIhLR{)#ke_q9 zfFl1j9^O0%F}Way%b}a>!k(MIcQdLJ4W`=MLthr7;=EaEFBc_huQFwvt> zM7`cZbr3#4>}-wzG{xKO0oo`n9;Cp-D7qs3pEsf6f}`GNCjL@;iQg9Da!`VRR{gF|(B z#|}o0;PPJmI<19$zrx`1*MPf1bD?dn?tgVi3K|R1@1qx)THZAjC~qCi^Qc;ZQROVf zwMO*&7M=8k(4eMz0@UybXup}aiYOHjLf1cI*|?V zjrRSeko3i~_Lql+F^ayUWF`A5Itr_wF-zw~iov5?HRbux{oZtGyQ4Y@l&kt`?)ZC; zDA(2fe_m1iQnhm1(wOuZl9t2#r~s9ULk*18$<&GSg~(AiY3D+zpci}L&biCa40VK? z&iYyU8{5S^=$KMR?&tV>!SK*qEx3IHJGk_I@wSq0pTy?y|8t?CVW5NeaRd`%WCCwV zV#Fkp9^l;K6YVCSSII@SLo0jszPCjHZbe!#U8OOe z!|cGk58|Vj|AV~?pk)~G5tnmajT)%)nt;0-4a*X+tfmCV``2L1!=UscG$CDenzLA_ z;N`L$pzR4y8FHwD@d>2y!*povSP9TbH?0tn_zQ-zwIOL+v#0B&P~f8Di)X5vk~s>z zU@o84CI#L5X=S5f%M+|324Ag=xEJ=`&5tpJL9+xxw=q3=R!}5qcDWjFwWtLiJ6GM+ zOhGSs&h6jJ)SKC;<|)b^YDNc*Q!gNh{;(PL13G{jg^^(jAs2$56qo7P2O_Q9aOI(T zJtB{gzLLJv!Z!t0`4nYs>*a7SKQen5_Xt{PN`^cz1>lV*g9U3#*0-VapJH;cz{s5e z^A0;;WqCRr`UEcGkWtsJA$-2{YdHHIPTS#n+q=?U!TVZypfiiy1a_Ky&akymc=&QU%lP<^ZjK`Ze zt!pEl7<*r!eWr*=xz#}b7rxg)E6Ia0!&frxFo}r_tec8|Z<$Y>u!Jx8g}4q?NqJh9 zj^J97h%ZeL#sdEtn1bbkQkiob|6#okw169r1_sX?XHzYsXRmz0lyYS1g5`keyIdEW zq0FTSmn~+YtM+&OQS|H*gR~qE;nZONJ&}D+SvL~eEDq3#%zzp*IjO{g_gGW0VkrL- z{+rKK%H@2CW0EJc659A~0dV8W#K~Afus(}L6<8D)Am9042jJcqv(ATngqpF+c=0!MhVgv-Npm zHioH|5vZhdZ3i?`6kmo(ZB}$ok9*PZ*wfqg66F||^r8@K#^h`b7xQqQsfaojn)KVM z34R0+;Do#5ga=$??BzPsGDuj43fJm6M!Hcq%KY&4TGA#X*GW{Du@;s9=G;LNvf5H8 zCMFjjH>EE(D7S(GZpJp$ zV7}!-BTtbf3?xXT}loz^fz*gkfvfyjER60y!;|dSqb-K+4OV3zdvtY8}&mxApTI z2olp5!@)ME5(40Z)sd}T$_V1-s+bf&U#+&&LkG8Fr)5g)8Bo`rU;~6qsJ2ja z-^kxyy%gajS%F;r^~s9zzoHJ40U=`m=qU|djd!2c z0loQd@1CssPjq>=r1#=p)8=c+p-cmkPsVtE2wdE+@kUPb51e(^AM4h?x-q`4G~anc zD1}KeW&q4v7wNbtEEnG|4mL2?J#S0u&qiiwc+ksWD)OvveOD@#G}InC8-MEv78wEi zy$r*k%h2iL1>;>Cx3rJBH+{usOAqdj!%f~|fFxVoiUr>0W>XKR^ZQ+wQMod;vy#Y$ z9`5qBOujicmZBYaz2;ca`97#q6dh%o<_&Xts4(><|9_RaNZo~uu;k4@h7$By1KaAa zS>rn)t1Qi6{QhFY{K2h?=$Oy1DE_O-c9bRoZw=!#;dAvL9d5 z8t-RqBj!;Y*ETrQJmKmX${Gy@Q;t7Q_e&kQW@g^24*e~9`crx0*339#AL3!37%L(( z?KQ&My}zc|b>D_KcSW6o{yJFbpt@RA#vfg}H{>4Va+Uv7U1+~3Vmp*lQ*gjN&P$;y zfNAVb6d~FF_TGLUN6aU$ea%}RBIw)S-gT9&cX?=4 ze%Op37#m^oJpo5lIF|?~vP@SDQB9xMq4$Ap6{~sogThr4IyU)i4A^RKj-(fsalWMHM7|)&YolLu*7g;#qF|0PS{arJw0%5n z{4=y}a8H&VDq<(OEqH=)5{Sf$0mAt}V&~h@P;B#pp~B{;5zgrhCoVOoW0tc=l+H&IPJy6CH*YWpIU*Sv`yW8>XJX28!(Tvt>B8qaf@ z)hXslQ7otHc)CXsYz5SJ>cDz5uFk`1Riz?>R^S1LI!eTu2rm(HSczAy?x_%C53V*I zL+SEML_bHEe${1RcQrY~nO8@^{OS?~=#5M--EE+~n;Eh?n)}!?4|Fs=J`5ro3E-Ev zVM&=s3+nIxf5)z(H#jrrW??~aY5rBYXv8XpX4sjsm%1C$Bvv2Y>^4LNr)`)Y?(=7{ z*hQ{I=fw4NY1#rb7wz}Tp+sy#$%5|*EnvYHbhS#OZtaKinX`NjFluKXEJc!iw1$uy zwx-8nAwEtx+mW7_tpV`9P%a#m|9{sn-o5DmRD=HR5+GBXB2?o57js&I+;YbvQ6;Yg zk-0^KQn@!~n%&;Vos4jqrnlm2Kbp8i)n`VYesJ~HT@5m*m|CV%$qu5A=6Tg_!vBA$ z(T*KyF{P8~N=!%#<8P4Dwzb1gq03sYX^MRr@F!WKUxYVezct~XZ zz5|uN|9}5~1p&vG>36>@Su}59Dvz!=o#S2|_(gyA)415C4`B~c&P3!Cr*s(lvk1;J z<%@(G1Ty3TO@{)W`7e#|PW91%9SYZ7v+(rW=|-IGD(xExf89qB5m}(ikQT&lm}+!_ z-bn^pP_lbM!F!WenghFzpjSOX&hthjorJ3@$-;aL4rH=D|L`gJ|>-Q0Y;UG!-Tm;`$)ElN=0@Bt} z5kGJ7BB<(WL2#(Z4j|_Nx|FSFbd^3Y>%zY)IZ&T7OR~?}50klI^Y7v+uvDc7O`_@f z@$M-gFj^`fsOAQfG<;f)GdoO~vf9Xkm2WnVv-71Di|;NbR;acMz;HI7?pPRd$bfBr zZSqp!_8@tu4H1#G@49Ah&pt6GWfPW%!r~HnnBt{%QQ9(Px$T#-Q&1)<*xxTJ3Ntuf zl${^lfY`BY*A^w1(HfYDeEa}@$DF)0m*!j2BJTkx%9DlEbUlJfVM#1B)~wTbfq;bK z-s2d8;!XVI;JV-Vx%o}~&R)#j;-D^vcZG#+8XA$DWNm?^7@}cO+=HS%4_0%#Hbv1# z1{7%4cEsF_0UO7H)+IB4I#~__pBR~_wq9ow&CBNHk1m+r!^yo;1#X?A%`W+A!0LNq zW5oeH1lij(Akz0&D+7X>k5N6^5p-bE=p!9tu`<31M>>tR;nu=fhO_|jrFZGjOym`R zu8(s@IeJub9t8;$=voqE!+o;4$loSig_}~a(ZfO&qq?ws3i!@z8k0HeupDY2vO33a znM&x2>w4)DR_;rQ`qPo=%S_GxQzXmqieN&|)RPo7nvPYj7tybCVy<|95nS1=zhoTG z62+Jf*wcoo`_wi+jus*M3|irHwt6>Pa_1vVo8S$JZ|(t-%!gchN$~U9^Br3p z8<6fAHM0ACDy|We12_{zr8U-E4H5-b&I6!~hz1gBT+aWB*!gSL#h)IBQ_T8Ct@k;{miS8Ehp!{UM^FDKp_Y3kb~H^T#@KzQ|K-adMigjLawJ-*a-e?R$}_+ zLX2qxpekKTrnyVHZ>$_bj(dJZ(=ZR2=B^+n#V9@o2tUBn$3$_lxMan?%iTRqQCB-$ zmti-dI;1t>yG)h(1w2BLP7_NHpqlV&+63S>jKKeGrX*esdr=X zxKT^E7Z2WQrdb^1GgUwH`>LRzU{T;gDaM#bV{su?ra$Okl7vR3tb-`fswj$Td6!%g z6bhTRg_s72M9l3#&sZCWHeB?fr(l0L&b{g__E^IE-nNTUSsn~Lay;w#mA047Pt6CL z_8>Xk;5Gckl}Xb{VPQ3reMWDzGBV&6c>89nem*wV)3W(_$ShZU`23)_7I9RGF!$qa zyqNdh?X1S+SzDdyPBzQ1aR;!xA#EQ@nH?vS2QWcS-X|0`PK&m{ij}~TsC1WKzp`g3U zIuUQ}&KBLXw%*|6<#TS~^iP`nnATuwk`Uk-Sq}Hjz{JE*Y0*T(tOBH9M!)s(OOgtO zv37*aNWK%CWY!86ufiN9BbghCyAnd-t;=*X?Sq-3lOmffo$^e{sic_(Ww~BL1R=7X zN%4&%%$b}p&eCXDA|rSz-u@&9bU`~=zL5*#gX%!#ID*O0%LqY1r{9Dpq4r+D5uVHl6f z2;jQh74hgj3#Ag~LKZf)+1$37H28$0R7K4=`tchhYJO%ZI#M+TVJrjCYSCSyr(DfV zIBKQ9ywR;T8s>tN3ww$6@=miVy42+jYy@OTqLwOr4X$ z6lk_qRdCe@X@np7t#9mVE+t|w3I69}q!ID7d>*NbGrf^d4xX?hYb^S%RZ@>Uw~9;~ za};+GoJ2BMrEOWm<&cSiG^qpuuA)+vbz$;pPpV&Jg?I z>;G?ramiebwPNf_?QUfj=DdO?J8V(LM1hTX+r;5b_~8BLRnx=WM^ zf=PfYjUSoowZnv0*bW!3@Hvymo~bp-%5C zDrL29FgIFpg4-NFgjz<#xut-sw5RmkOp^j~PqiO@%yaK&zdx}E8R%_1D)|)%QkE#s zupf)thXElMjihG>WTty0OlbC8H*s+f4H_-_&mD*6pJh4>cSnKdP2Jn_X^rF<_si1= z*Og}^*xu3(a=hlxeLE+H%HFw+d{90g4R~}P4YS%A-hl9Wf3Gi}UoKSLm8I}6$s6L< zSt4@4EWXqkLsYJtVE+!g{k$q}NA40^B{fXz!6pe9U-bG*?lR^jgF)I&U@msJ zeLOKhDNzqVh*n7=mGox-^!LU=r5{FAP|1vCX^XoEG z_i_;3B_jP#@*b&DCNCeYGI29&hfIew(+|DhI?)7+yDK&2@N2>75vZ{rt|l@!dov-- zPi(dEY$rDyb=^U5{M)~u+%>aSxf0|_jL6zYg=7iqC*JfM-8M_E%Am}pDLe?q!SJoR z&krQUNDZLE*<7=Jq=_S@FU`p=-2xq2WR&U4tpO2ua9kwp)`hN;`{9kyW zp@08^(*mGcjCTA(lvl&B&-pLt$?yj#Cmk-Gv3@IlR}8V0gH2SIAW$5PesH05%V_YI z)-U-~Sv42Uyjq*36HpgP=5EdK|2VCu?MDSy;lQC012|E_#o$q|Q>Auf|5X)-`VhEs zBH-xz-s8mfLl|q!c>RE)pbW24q7OKH=m9i-LW*(pf#gR|&{j{-@5v=n;$yvnZW*`m zncXn?jpOCH(1*bv7W7z7aUg!T)`A+5qA~au#e8F+Juz+U(4z3~j}XYuxo6GJ;o=}t zg1=l$^qGm^tF z?$+6Qm*zx8E_tXsI&7mcEnR&*t8cj_aaZeyE%*X58^J>>dRG+xa$&(eEhB#;I^sr6 ziH_C_I~CVqg0XW?H-`;>#ZG1HG$)R_(;VN~*a~HZiP`+?d5kyZS7e1JD|{%_vPCX> z0ZB#+3Rf|5j51eVV#u4^3SCvPCUcLy5seC6(496EgujyMPB9((cX{&SHw{eUd`Azb z+E!m=nPj+=TFuRf8S<*NaT5X125=&o^Uj|hWJCK4ojY%=G1O?U71+CY9H`2Aa#n8m zLswUs?{dIG{}Nh#{|9whK#q70UMX<4K2F0_5-}@zA;G_2og3Mu?9OOy!}qzW=9yy) zbm1!4Q4uMCH9w4#>|xP^&luSVf5P=v)AwQvlpEIPTOQtXLHGp>h;YO3YYADo*X}bR zA7B?UQW6fjKaq8*w2pMJ%zO)dzw4rt5L?Tr#5e99zw~yX|`KC$Rb^pHttq0DynkT z8Cpo59J6_!2tkquR9XqUwVt3Si1n<360;b}UPtn{t_J^be3MuUBf6ECW}!=s`R`!# zixbW!6S(G3W9geC=ez4<1p(&%$P5{<(?#0y>Yy0>Ep-iL)8ad7BLyklp>RW%ox*Y4 zrVpO1!JYmyCv|>M&@Za89atc5ub!cL`L?6)#1KsonCrS5rdVGs|0;$|aNIROyZ#pb z@0Hg{MuY_)?J{O9iEyK`IY&10jUf0zRQ(t8lRSGB{~_ob8`?!~*`lD!<*?PPk%X~U zu0;s&#BFkoSq(yXpcrz4TVOw4ALkWSIL8Gc&e%3Ji!Z@p^LHEUL)N^VHDI3lYZ`+w z2UTO}#3g}jrmKRi282T{0dJ9mOpjQRNpGseY7K!kU5nEV<$F3-89(e*Lm2@Dh0PLNwggUIN$707c4tOaX_u7akGM4Eo0<3vER6dIAs*+QeKPMQ1 zt$1?u6+3~5>#>OygF*v>h~uVc4niV{!ao8}Q{k%xUp?151Jr@#@=VicnD>|D7w1zW zwxe0mlk?5T2XjBpxS4RNj-R1kc1ss2(rCZLLUCFyR)~cw#TTde-c$g#Qp#c1JZ30@ zS}5r(si`OxBLd$W*aeHohrE-Tw{(F*L2}l?nAKU_G0*AG-*^b0)s01GG#s+u40DmP zOw0jhm*;QG;r`0`e+V`UO>nN{Xh!UOUnfPIZz^1KOYn0QY<$4h3uTy0wW{m}u0_9@ za{&($Y5z@}Utz@wR>${|p&0q|t?PHpLb2jCoLB-YE=IU#ahLd0%f2{AJf|Cx%B~e7 z<0JXM^S0Ei}17*!ueSN?4BCRoj0zJEXi12vt<^3^`o|pXEC_Xx~?T}q;^LHob;oqi#!%aD$AB^~9z z8Oypm1E_QI>=%A;pdrnAJ;d|=$b{5m2cd6S*CbJO@m4!h5Xk0Od@ zj53?dzNGXpx_bE>a3I7rL2RAad{@9NwJV7>tKNJaMJ+h;3mp6FG`$~J%onK;wzS8R z+4jBx3mu zC!haXkb!r+p4lzHIQ-xn3RCZmR|0K#`Bm-^aC0ZsM(^g=e`N^O(cSNyTGnxUObsui z{+ORL;FC^K$TqkWPDp?ao7dgOUw21LLG}=}5zvt17rXCFWV<>2*6>=0w9NGS&;~hi zLk(`u2hQ?aq%R(HA(rCu(Op0QtDJVsXVZbMvxEB)2;u-jm|Z|~=Y`mIlS-~$B5+mK zELVVHBGm$Ybzu99NHr<7Y5NTD-PT*vPwTnw9)tx^xXNmIF1nqy;dUZxR=ieY$06ib z#oQLg>f^`G6g$qC^sr}~hA)w{Z&o9Dw8T#B>gEleuhl+>$4WT4XwNo*L7fup1Y_5nkYSWBLaqb5OzKi zzQoI7tIPV)n=uGLPQkSQe_FxDx3Lu&ajNe_gV$!JX9C-1Hb-$Qrh(;?u#viB;s1Zg zF)v2zfFGJ=%OHLyrEkf$6sjT?LlgIRW~GWl1HOTtMG{I_kfW9Q50&2|K#NlTVbJRi zfSp<4FVA*k{XQR$JuX*4bBH;6!7oNF6`juW8plY$XSm2U8^a-dC;5i{1>bv=Z$i3! zO|{zeqMfETF>uQA(XBJ-_2vWWU-!z~Pw4T=b~!==j~|dmP~mBLuj>i;XdNy84F<=A>_^O8<#wdg!{gi6k_yxMmy{A-pZq0n z&VQrV+^JAvd_-<2jwWV4T=XlCwN!6H8U7L@xjVuEkaokD17#rPfy;H)A_Y=in%~Ki z3uDgt%P$oXgHE{)LIwPX4@PUn*xJm`2ZB%qOAS&$wy>bHeEUTuTE1?;5EolNm%-}> zR;!CHKdc#_GB~0~$7I6s0ln#8>N<`#6Dux^E|VJz2)BrbcF&7FDW7k+aniNHqmer~4Q(xv(g0XNIep z7U?Nhu5j8Z)*#y;%brYt+ry~GeI+Qnyp6rT*HA4r%gIEj?^|xv&kEbhyoymkTAW&$ajW zKNt};>KX>C3E6*@>5gz}9Sifb`bz44yxLYlGBLFIbt#lR%pysym$mwFkoSGYObFNe zX`gU%_U_7kC7EGlFR5$6UvQ`K#m~3;Y&7|bQhJ?d3l`saCEM5>F zQnwo^dq;U(tLK?2Bv6~QB$(OF2Z-2?ZwjCtCpGJ3ao-UL1By(BKOp56BbEsdzACk5 zI%hwIPJbdXxTw*&OKYta9WL_Qb4>X+(c#t4G1|n(pCSche&(m^* zbC`b71u8}cs$kpVd@yXM=#<8?^g4a*T|ojy)M=TBuE0K^AkcVmE0u4j13_sQ+P6QR zdl{R#AhBd{`^3iK8xE;~_ls^x*cu1bKXHcuNfjPuaIH)`rE?#S(vkmO0e4s@P77IF z^1OZ}bj^v7?!{C`le`jtNC4?MtTH~$HfcD6PwkVDn2-pizEBGGiKMYE3(LAHrvWOhax?2r1^f-$zZBrhEWTJ z87eg2qSo3C*!wRQsO#kYrMBd(crMER7M(~Yb)yx$E*T99b<`-mc&V8GZ4iWvWX1cE z=!tP$4BG585&DeWpq;148eNifWi>BbSB6lV;iT$mRDms1shKxNJ)S>T-sMT+AAJO8 z`hO1|E7dQj8319UBdmgASrR5nL-)|Xz9S}vwq(UpW-S3--h6zkJvQ!SZ)~WO&Tkvh(gTtnX!Wq)c(z}sdb@!yzqGDRWq(yj#Y5#xM z8^vvz^ZGkoP=;c+K}jZ|u1u#jI1mOe!w#==PM<^NlWRkH@@M)N;{=Zma~*EC+PW61 z!6QKYKlo5hvM&sFE`IZm2|yz1g`PWeq=9F@yR5JnJZQRS{%Gp}I}HDAprbPWN4<+x zZH~hg0$35G^EJ5m`_TVsW@~ESHcDhg9=(?uKcxJ*6NyMN$5LEeXlSCLyErH}b8ZrF zi-=LJN#ml;T~*i#qoqv#QJQ)z$UYyVY#(;-@ZSkBvPc&F;xCiG`>RV1Ii>Z$a^PhU zRvIhFK={~X?{zY|3T9%}#e10bYhY&viU={75R6|kKOMiMnvfpM$;*S94iVs%!dP{# zPZl>~s6a5Aftd%&8s$&)1E=+A_;n_2B$F`Ac=a>Sm0)X#u;t&|0YdMjj_`?+4N8p- zRy!adS(J|UZDy63`wD~g)=kpjU_OY? z{bo225|K%BE0#^E<{G08+o){?jf{aUF1_hUFFF&);qyESjI&x`Jnon28np}aADMvK zEkb=iBre^$>dvxAK=62aEd3`8nQ&x~evo zy>rvWqf^n1Q36{2=#Nc$wWTV}jXyuQfz=#N{`u82zDT~~Fdr@AFF#;BV~FqCUQ29&V?6hstZX3dpiu& z1|Mw7o*p`v;y1xbj>PeSXd}5<>1-~;QE#e$Nce_JwZM@=5(m;pl!Nevo|yB{Qn=I( zwF_lqafe6?%MBV5mOdw!?N@273+0)naG3#=y#`P4kFN+Cv55rrc@6|cGz>1hQf-y^u6ra`sBsfZ;ZTL z?#uy&c>;{9eH;4w)B!iLPy2iSeTBncwR+CFkMC{mtH553Zs#q^2O!|qn0Ya*E)UyZ znx?>pq*91*RPwgnvmP||X{c!%M^-r>LSSVV7=S0Tg~H#;_6#UJ&HjARa==XwFnm@h zbX9i0=sRGMavIGvWVQtXQAFw#>K-~tda>eMNbk)&HbWv>^})yuVgCs4ygq{YU?C@L z9kQaM*D8Ph@e2vj?t?Z!c;E3cT!Vk=}&36!7-@C6#fe zLF^UfL0Cl$I*`@eamsdbF9n!LC_7tL-Ks`>aty>SZN`qSaHV$jU1 z;r0BqOTe6{iNn-cICZg1A&QDV-015r6{QG*Nu|B=*y}VwZg=UCyGsoKzs? z++s=iTI%&YoSvRuapSz55ZOEFvu<&3T%^?Gj#yRH6=)1d#PnO?#K7?0{{({nE*+!{ zb~g%onRE-wV*p^ulU1Fd!P*!pt_J?&)*$D+XsX{&r{)V@%S08@nT|FxwOH<3GxbGu>W+qk}< zlOj`f3s-2^Q2dj1LZrB7vzP}Z+Jx!Ec4u?`6vBl{IluOex@cOBt%O(nSr;yAa=hk3 zSIZsJ9}-dc!M7%Ko}*9GLFU`G`Be>ypRj_lqV<}%ShlGiy6sRb%?C}@%fio(ku`{~ zqi*d!_Fn%U<%7BGdDKBlEBj%~NbknvqV`M#{r0=>rps+1`-8Z_~_5TyhEIWOGQ#OE!BeDCz z+HbZ=IH=E$^ z6{V@z3Bm^G2&S|}kq{91eE(nT0ZKZ)io4o3lkq3t=G)aVl~uo=0*7wpk^xA3ZQz+) z_xL5ED_pC?UtvEn2LpTBOor%5<`wsSM`KNZ4&F{QKEttdutnw9J!ZULL&gUf1CK77 zq;76_0)x>zlH7Ne`fmzT{Ojj=|v;b+{4Y*@}eXrGrpR=@4lEcGL3h0 z3-h|vyD>#$7`CiqKeoKJhQLn07-w^9?@*q!T&P#j(PvuNIZKi&IASuta7fV4++)B2lBmYD}dOs+s#N1BJ1W${MG)204+N(5fRqCy&021=jC>cUCgjL{}_AEE(QQTvGl{!Prgm0o!X?oqWg%!S_tuw*y|L^9{wjuKynYc zDeQT?)ae}PCqocabiv#PUrX72fWfpHY%;EnN`@ZP$&c~p=qJ3#p5FM4w9$ zt0iTlZ0cZ22jt(8FQ1Wp9_XgE022CG<^iBK83=a3as)qPMUZaFA`2G|=`l!pIFJ5T zAah+ahvX|lPU=iuAD+gE{xs@h3fBGzH|efZuv;K42?zKey~UqErwShSJHj9Lbwwx} zWD0!1%wo)8F7(yB`x;`mqxL7|NwG0cCHoZ(q#5V=El znWbt_3$8@8`Sc27JD@lHfP<7spyN(W6jC#x@#guWD`Rzu&jSAj)D%A*6S}WS*CPv_ zA%1(gkDOt*U%0kMty{)nVXs~jKmdc{QO`SadRtE8>NdW6V(Hw?&#BQ>6$duYivIer zz)|ONpizF2sVY$JMqyfj270&i=^Kj|xmB;ShGF?rCsiTbGQs?m|0&cAEDWQ!DL4gF zzF>~!8KPfi)3?$P^8w8b%dSKh4Z(U-j(vQ564J8xQXp@q#<<~x-;0sWnV<;3@(kWl zrUA$d&ZC}4AYiQvtwx}YF|o479z25Zd!XY!0YsKgjBP#^vd)#LG<8J$Ar^1apuE%`qIXk&jzdj>DW2R20PyVbQD|0bcLUbFApAYzscT^SU7&ZSAX%fh!m5Ky18RWm0KHGoi*(Rlal^-1@b zC@$@==VeiE>G+QhCUHZVIN$#M}OAjOi&Tpke6ORG$!ggeI4RVeMbWR zngAF0^Br!Cxg`ELMX8u%kf_ur9ka-eJVIoO{6m*&A-9d#Wj4KIr|R0=J_^B$j`~}a zZPIY8fsiYBAqEKx%IEV^rF#w}k-A~`VInJDG&yx2&O$pM?b*eyr@~cz;pNg}WX*Oi zrz;Ix#q(`S%jGg?oKm1>2?TpWPz8Hh4F#OVO!q!gI_0i;kDcr;Sqd@*l^2Z4-l-XQ zZ+n&yI01A!=0}fG*XF!WGh^R&poAx>TNf!>Ym6f3o7@Z*#;xM-mH!E2f4LdW&{ zOWt;bCWS80pM*0dl*!UhGEX^DJ3y7Xb1uD`vTlNqG}f_)J4XhYKlxi15@AO3Km-Jh zU>-Ya-_yU@sfi)dZT)fl1dYbrTyq)l6%{}PQ*9afTIH978B_<;4y>K(GC@?ln0Q{VuV$jY(v&p%>`Zq zv>d@GaU~H<((_UPmAp#LN|~jexr2xM=Lh18{|MhH(RMk_@pPd&jwqzunbhLNp70-f z6)8_Lw_z@_43Cu<@SLb~L2uqd0pcIxwq`PjJ)C~BAzRzWP)cpZP?x=rD2lR*G)2F) z9=eP!oSf=|if=yCcsHJwfqc1t4z9xO`zjt3DXAjk9>y@8lE0D@ zm!#SvL>{LbW2mbNF4oTIXzDpj$OeFBF7O@b^w=G{8R z1iI0h<((9VqxT34|7L0Mv4{NZKLn&*Yj9(4-Kq6Y4QIn#Zm~gD^T|00u!vkGna2}F z)FbHK+xfV#VV&SkT4RO=P+#9rcnGNmlnBg6tGyQ+V0&^dt{HoYWb2w6X_l|cdYS0Y z7LZmPF_T)s@OKr&vZ>>dnL?qhBCA}Qa%WOyw3^l#qk2P0O69M(({GM$$E81*g9_ae zC38z0F^2WGtTI71Pj*63{i*K>#2}bGB@=$>l@&ZijohiKwnI2IT`D86(_YZ7jjA%FjWk@;HLv*NnluV`TGl-oSYbzrTdO&dG3T0qL0 zIH_XU*&FP=`X#?atMszJMt$`{zivJ6M_;IQ`+3*Y-t{N%QCHfVeZ#x`y_s<>?dER{_K~&lUM5PeLL@DSJO50F8b$t2KUYM4SkdEr9S#eU!gVk{e6MGcmDg0 z@4wr9SH9Nz^@{qJZ=tua{oeV#!{1Tw(7&%y_t#y%@ZWcT?L~ftd+iqcPkyBP-BtPr zzO3J2@6pZn?)#5>NxsnEXjgN$w(q(>eH5>+diO7Se{W0P-|tf0*RD3{k0wnp539Y> zKfSZ=`TO1e^aPOmzkBM>zTJE6KfTNErQZ65{p`)w~ITKA{@=s$ZW-of{^z4fo(N4@XgdWZc#|31rm?bq*a*Svqbx4X~p zLi^HR``4cJm+y9a+h6X{@1`HVk^AUR{?Pl|-ug}Npf&avy<_jEKJ?9dAHCV{Oncq6 z?x($r?`GF&`>y-mU%rd`(;vI9y+iw~d#wKJKIng@pS5R`CYS@d?dbcy%iiDbws*Km z4)?wKXTNPX?tc2yeWkxZZ+&UL?iNsefl-;qt$(rU%0#Udwq+(#NR>hp|{)n?tS_PzR}-fZ_u6l2fo{F`eVOY zw)%g40q=0%O?&9w=$`f+>VEf4^$)(o->F{xH{PFby*KEt`pCN_5`}2MOUwLn%ue3ey+g<$%d+Y7(pS^#3cfG%RkG=IS`b*zf@3DV+&iya<=)U~` z|2hr!zWp!XaqqFW)tm4A^gi{y_U8IqeVe_Q-&$|1w`K2I-){Tut@MYzV|^j-MBbC{ zN!_ojJ<@>o#48az_>qrFK? zxWqzG)}reD$q?Fu0|7`;TWE*1L6!S2kmSEx-6^*Qi_~IwgYWs|9qYvEhlOpv<2Rlc zI)^K1bd^FdEo6=knIGWz_M)ohR1<7XUbM2y(0NT%TC0N03;bPGFDL$5xcEk?)pi5N zWobg&MwV9vye{-3gbfl0W!OGmk=tQ4SUlma8%de($DM4VXg3N&+wa?b4Jyx*7}g;G zAh5P=O*_BT*|~ze+OR(Kric+Uv0Eg7J`$AMh4qQ)(87#z>_SC(#{K~EKsSDd(CRHK z@R?KlU-tAt)4OF$AQ;PZhjt9O*QX|?iVK2W62^tKux*6?&xE!*HIw8KB0R>$&zW(| zyPiLRyi}Tvlf7Bhxn8(sJ6m+ytb>-5>(lD*uJ3hz65ch;&-6qBVY!p!Q55gj{;+W{ zKhvtUSp117$ z8b)LB4;O|)Zj_Yj03+Ur{xWh<%dqV#l9`h-_u>>k2Cc8VCky&XiGF zs@r64uZ^%o5Ht~y<2O>9VGlQpob#w_H@qBx*EvnxhNZIc+pZ>XbsPrGr3}33{V7h= z@-!>&cG%*>e8>tP1dIv(UCm*o>-gL(#$pIZezPgM0z89ed|Rs&$-yGK5Zh3UbFSF8 za)jbIQNmJ!nx5y`hm!Y8KX+vDBLMfg<6m(IRD3t-vvsGT#d_%JaRrR8ToZ`>UNF(n z$rnrCI(sQE;JqqR5TxbxrE^yubsX{G@1|78X$+L9zwU965$P75kPXP>X`@vOPe7H# z_Jjg^MNLv0l)6BZ)mZI66a-Ig?OO{?kgMdF5$<}4f4z*_;NRtp_R#nt$@Wle2X{-x z3vg#`tz4H4D8|=m1tbr(*plN1R{V^RNDTMzGa4Ptu4Y{qr)30_^V!im&v@A^u~&2?egqiW*1afAaCAMqbEIj=@@1>;_j;h4yoEvQhxz8G%`x(a-HLDI=~Gi zprK@a&KbdX$LpOk!giwnKRVWQIrR*SzrtGM6?VO!$|g*p^R5^5^d?{%8=X~fHG^Oh zjr~W-Q!Nw$y40ZI=Zx4%_sg#U@xZDy|2Y@M5$;RV2nI9e;P@%m9UxUUHPe~Br9iFR z!GKP+N;x5NW#;y-r|VTmj*)1u66AMd$b4A(#vZuG2V|$U{E9-igQMbwAQ?7q;e&Y` z-46}1nNZEgaaI37T-?;Uk&>i6SUocRwB^X&7dvseLg56C(M&RqEKBHw+GnP0w#tL ziAblItdsEIXGKmWD_FYA&q-c(H$Jt;=)EyPS*a+5v6J;0C@{gQ7$sb`B}LSmT7~cJ zfC|P_NgQJomSEqsOZXT%z&k$OD(GL=zLPeXJDDZ9Qz*-`v1yM}N+XIa;{@wmvk@B@ zaI5Jc8MWZMGLlMl+Ad}hSsXMPxHR=6XL!WBcb*J$FVXidva0K+CqcS-{|EqB{Gs6t z=2*`q&Rc=co5V^43Sv=}VpxPHqk;@pNMFeCFj#77BwJN^11Z}LJXiZXR+&#WAQCX6 zvq!T>@DJRYc=B}jwc@wMC6>_ zQ9;rI=AkHjjfR;69_+(O;r>uTUOAv!MD#Pdr2U4ja6D3YT36>p0dx@W>jlDL=J?9i z2=Z@agJidel>aWTF7nFkbr|rk?98PgeZ#!4W*sGO+$wb3EB=cJGNjD7ap!IMb#+n4 zxok2+m*E$TGf+=2O-IT3MF4NS%-fxD)hHPFh=;F7RGX}Q6Q#-tnCs-{y+h_%MOqnd z%9)n%z{GV!p+fOi9OXQnQ8s^}y3bUg?$w)`>s#Obh8UOqSbOVH9^a&K=Gnj_G$D#{ zBuJX)02$5=r86nPzZ|Z)TP7sz3?Lbd*Rz$qkqk8`m52W^N6+9KhP$B~tUSK{J`@A3 zI2`ZEx~LCdK5+t=-r7u;(fES*wz&kY>yEsn?=Q<-NIv~(ppY%0n;h>FlW;lw;FbvL z*j}D9Rq3&RzX-qwEWSJcbGG0_Fm^gD{{c0FM3rOdcZN-Vgk$`zH#w&aLT)^LFT~vl z?Fm~+7ll>|L4d2NI574PEL-kp<)5SAcUH{1MMbPi1h)#*Nbesq4H zHGrh3nW#>p##6(O@ZKH!>)mC|4h~1yS#qP^6H3NBeMPDYQ+*Z&e92=SGYQB|?h-+6 zJ;D&y97_QOnRMJOgea_yWq{c}jkk-@_`-t2*aC1563E36MGF`A$IcR;*+dSUAZUYTd`_`mzGmChz! zfOz2TaS0ePCmL_dKw~Dy8GE5GGp2p3_I!1WSI<^}#N%AWJQkW?spi{%>c7<|3yZ>| z6rQm#fDMuP_T~E^;td#uz?i*5K_S!@5-Z`p7dBk&_m0)6umn(ZH2A$bop<%b}WhOV;1}oSU4GZskxIG+HG-PWqm2@Xj{G|hgD*&hx7Jk6kCHi#bkAk@33ygV~KOya;RN*lOuCH-;D zd}2%PJHyd;Q5~{4hIcC8=%gUw-{f5rfPbt%9)o};4OvL)DLM#ts#W^ zP!OmwDkdYLYeT-#Sqk^_pXg2T(W4ekEgH&R(*SO9?&^WWPz*XwQpqSR&tT%tf+#pL zO7|}~p){*ofv+O-5qxW1*T|fiza~`EC8W84HjKs^7<8YkBTa&9v6X58H_C748SF{q z6ix~7tkBBrTT}}G8l-Q19fA~?zSszR=p|5~HQlC(bR_V*p35_Xn#Ek^lNZi9abS;; zCS-k7XHp9Ngy=wVN@creoE6B;Zl1Di3tx{c+ucwjw)SFX5DY= zXh02>6#plKOo$L6DldfXJROz7v~q6veI1Ls=}C8^WzF?ZG#P}s&*hm5Za;qq8x(w4 z+0d0I{2W$O?G!G9xWRg`>w~6^#$*9Zd12Y)frm2&^4H%kaDX^dmPnm_X7DkpT3FBJVS%gZVm9l2*FNZC!p9k<()bctH|Vf@6Kk_5g?o zqRDT|wyA(U56xo1Ltprlwr9@$C$`s*4Rwgk<=MGk=nrza+b2cQN2JgT3EY&v_!KN%AEBSjk>U_@>c!cS3UTN9f~SP=@~ zx;I2itl39jA#2SXu?fT$WyL&FDoqKcm0$Ir1}mI!?-YNDc=_?3ukQNAu@3TXpaLf#I%#uECNTL*fui@K8T z;H4*8=C=6X75@xB!do}+94GnwhqF%$Jd8z{$0XLKQoPk)1fMVoV=lYM@bP76xbRYv zp}{StnVZn$D=Ifq08huQFNP6W-E<**yG8dBTw|kU8_zq4sMq1V)WryG(By7Xfi5I4 z6*J05gRA7TJgo1V@YSX6cLxvZK8H$V9AFzKeWOdqd2K2lV3h`R=@0(-HN6oD*d!G; zQMe)L*0(eK0*wLzq=ACWRfc3FTslC~-d0R_HOSTnvXJkY$#-Nj9w~7eu|L7K$GIJ) z?PEGoWnBfABOf4Y4N|^ErVz@$;20 z6pY%pQ&T%Vnl$Z1Sf?lZ%Il1dq)RViAk*WU)Om)plt5+(?xL<*<5s(i3^8aQ^j7S^ zZBOop0=Zfo)$heoAUF(6I0NatH^d)+dzF2|`)|*|z?NA<7IhQaP6h!kmEjF=#&Fqy z;dIjdS@tBAT{4JHQu3rtR|Wi0LG-gPSDk}f8AW4b2RPwuo?|zA!xEmDEqf#I1JlA{PWw7SKXO|2Hr``{%qUM#iN$k! zy8CTXh?iuu!cM_1E*dJRXLxY%yW1ZH)T?tmcUo9>mU3gr%i(RlAcG$PDkq~ISIcv&$^8*Hs|Er-t_m z1DvboC>)T$PvhR@yC3%K>kcikcK>FDcp_%O{{q^Qp4i6qo-GaWu5 zrOts6-a|*aeQ-4c;jxgebOiu*nvzh6GcP2|Y=V;;R&m#eZf$!?q1B{^qHh!lYpSf; z=;&d~vT?$#dc0;4RRS#BWF3Y@DHNSTD@yVurTe#XGSj_=Xmw;z2{ z)|G>U8U3s-EFNX%+_bYYbefcq1s<6cZi%GKgNJ_#h90>#Idl<3#uydzyyhr~m&Thx z3^2Qs(G=%qGGIa<*!| zR<99p9Az@s$LwXT(L$a~RsdD)2K@k{nvPjb2G>Xie64oKg{F$YSVmKq?GCe}eGpC; z!r>c)q3fto%D#B%B?;sy!~B(20~&SMz_TY(4A3 z|A^0_g-)VRab1 zxci+vj{F+uD<&@TB`j(t6^%?44G2eN`>jb^+Hfg>DRsCIWpP%?68_)%v)+ z?d@vOcGqsxk&jcJ{w%?_j{1LtSCzFgDZ$ZiBVI9`2A^%kyu4Wd10j}r@>0a7b5yx) zNTvgEXd`~2To2sPwg!U0_jW6yE9W6i^&1VG6||z(!?L^`)fF9JhppK%uD2Bi1ZuqI zU!e<5n(&i7JWLTRK9nZH%Hm*4HyEcb2i$Xh$f>B!+vUsrwyl}IKeSqh(se-H{y)_` zx*=92IbxN8)0Sr}X{9NA^)6oKR^Tn?WL??yY7+o!u#Tgs9G~HHgV=ZH%$#w2b7F|< z`)^Xi-**8|?J@9!iL`GP>(S5Egb?_}V$|^1WcpzLAK0J5?(rC4v?<5O|2DEh#pxEV z5}*#7iY-<&V~(UoDT(Q+(aMs;oib%d$0SOSAYsH)6zidf1Yuqt-(&K*A=%%$Rb4BY zMzVC9V7L#YSeyCC(NZ!SX@8=s#T;vJ{dJ`XGUUG{sOozH=v2W{>Q%2_0nCEV9PlfW zv#!=!xU_w>aHIb)5WwFLqUv+9ar_b*rv&_7YW8UF$g&y1$pt-XH=zn&BufdvW07f= z+78+I+m1W+G;95evzvcT$DP!M8?yztwY9L&L6uTYqRIftLshNz%;_Z}pLx+;JF+LP zjJ$ll$T-uV{l=#4`AZ?>c>~{#B23^YUrqiA&MTl?bC;P*d)dPiT9qB1Gx~+)y-uk< z@GRQ!;T$So+KC+|ipmUw9hS_@PNmX@2s}Dij{)L5=uQhs9)Lfuz%+a_8*o}i%!DeJ z{1;@h>*uY8JNh_27h0MS4<%E-2oJC(=#0zH>vxC{FOEGm>}nD~OkkZDps}Eg7^HWT ziG2ENeWf!RR&d$)Q_pPmm4}Uml)rUEVbD}g3vcvWn8Be?S)ft<3QK zBkUdVY4X6K$t$>VgiEBgf@cGZ!vJ22go~d{Y(3I^R^Gz57v5n_%zVI?@E#&lnm}?; zYKm|=)K5Ig{~n4fM{27z;lmFhR_Nz3^Nw&C?4u5urnWqo*g)|a+wz9RozAL03^%2v zqN*mTQExGq$e!W}DkZ&y`#0Ocu$b4y#d>etN9Wpf6Bf*BgL~!S)Sd(zFq~3@c0M-WSu%SAS)0@ z#y_td>QVqQNI=&}iT8ozvJ2<;sR8l13n;k)2|s0y7sJaQ`_Dpe>F7S~QuIT`CH1WH z%r)2r5J`OUc;N*az`F=Lb2|imZ@b1oQP}EROdZD^iQ4Y^+R^-nywlRhZJyr?QkMJo zT757=_9wb!<98Y|GekUzN`<^olz0=bA*jbbBp#~kY6(MUTO}8k&Gq58L2DYW+y&`9 zy8*Nkd_gwrk-e$>$ssBQxtACl$&j$ZoyP7Fy#$UZZN_Klnj*QS_UwhG2*OG2=0%BNHNx1jPmleNn8>`o9zX(YaGpVKhb!E!5tc=DPg7L~dUeB>>!u zXy>-moo`osD+e`t0+N466MdI7ul9RX6l>gY>6_}|p+nu#6oT}l3NbkE%p9y9(h2gL z!lhspwL|X8)!9iq$?0n45G_@BQdy%Xv`%n>fXuQ z0J>dfUhkokjjt9Hn3-#jj^E1>vP7h){6v>b>WZY*^i+&C$+I3P!l#Vw-y`74&)_d3S^^dh7?xSw zh{N``J~B5{PM1puN47Pr9NKeH69`1Fhh~H2P6vedhU7ibaIc!R?NP(->)m!!Y|P{) zWAxup!)4(!z*R0C7Gim>ap7=gVE=rkOh^lB;lcVufk!AS<3W=1%4OejF?CCQXW9F$ zz;bs-wbI(<*->f@uiBVKp5oqf768 z$Gz=6KIsYHx;lNPV_~SEDxEfOiyaaf6=irjX7o3XDoM{Qc3>*e3r(h6vWCf^6%i&$ zT7d4u5&~___i{74_X%`*uUYiI$Ua~)>l}S#z+Q{~FSmwFp#5ECATCt=v(1jW*)zs6 zBJ(rq%|QB4Q_PP``@wWW+g^!zuG)>8lvHb%Hi`4$YC8oq9D*bPCk#};+iFJ=TPIzu zxEMD~ejObk`v-U;h=@T!Vvz=JC~Xq|3V{KPYr$*k@-JfkOyxT>bs2K0S7yGkq*U}+ z+My(l=xPk%&;egT1tvDIDqT698#CzkR zX9Ag)vQkOk6ZLJLZ&PjMg6A|4K()Mj6vnsmH+GN@9Fd`K8+a9!T$eg6@-J1{i)mz-h{v5Mt;37wHj&upCb@?+Cs6JPbSM$2zh4%9Q%uLLnrz(9c4_Yjs^DG%g}f zr+$mkH4#9jw|Ies=rq?GJLS}sR&crIi7O5r27nW+*W%p_($Cvua%q#(!#b%+4O1BT zSk6Y2T*Pr;P)dBM^|MSkQxU*p4J3-JiDQB0c#OZC@fubEngm<>V(;8Fu>VR(m%trg zBe!Gev|dIf_} zH5vw$KPjg;hL#auinR4Iza9O7qYN;R>n6uWTwf)69!> z!;J`3zlM1FD(M;ZQRkzXcV3A9A6L4t84>i4LUKKbJIMt8(mCp~8pIM#9xH9=m?gE< zXy)IYu*D$n(!)UXJL?fQgr{E%uG{XLc5IWgFdYC)2BnRV%8$(%)O?tEJQJbKpDcMjR8wJq3t0>x7|_0~m0`Vl-OBNclO4jwIGXhyHTfh84K9}^3S5Sc)mW9X z_t1D%88WD)gcs-InzLK|Y`o9|eoA+=ta{q)*-(I;-aEqj94^MNm!A})VkaV7mc@Pa2*E>&hAyo~u&DN+p%IH@>sK_DkjnMTV|{O{t*1(*BYJZ)A)6DXQ6=8gvBZ zh~c53+3OZk<$;k3K}F2CcXz$j!#vK`Yq`leBZ}QC`fq?<4*^J6x}Zu@93m@8!0#%= z<-rCX$E0kPBY4I8ph#GH1DtyDfwDde3dxh=a4Je>aI$??xKjyV^5smT)VmtglO$A> zu0&NG4#l*{U5jJ2=8w&~V7@7Ts@)x(Gv62dOpLeC({$dyYbB%RcPR(H`23~q#N@Z% z{Jpt8y*=W4@_(+qrVSJD_b$#}z3D2p;SlGoWCw&-V zqg8jo{BxjXxb@5?n5;40GXo7IIZ;+Sk?jDgXgXMlX&~UL=n$Op1U7EuTQHc8RbhQ1 z@p-ECx;O!~tHe*ek`$ZIm$Hb0w=VWQBO3x4p{*EmngS6l19d?dgH>_FQd%o@$D)Og z?&xnV2adG>`+W;x;Dku-#mzKYy3uU2W1{~Xbkkpce&I-OCb*+4tUw!6;HwE;3F|h2 zeqp{YLZd|pEgTn@P)I(!pj%@iLW)pjIvNtjIivWxZ+0e`tmEaTuFqst$nJJ$F@qO? zrw-r$8;8K)I$82Kd*WII52Y|_V3}i}W}pw_Pt%Ik+d^_F#;~ayFEpZkP~v(p1h~E& zw83phKCf;)7uAl(7`UtzX8OLJx2*!14e+Jj_=rQC!LTBYtY}+KEjbK|KNiO8=Gr;+ zv5QeGlA7pGmhW^?yXi8P`XDzBYcsR{t1;=K9J*)U4CyHc=MoGyeiwsy4u9OoDnw8= zGt>)y2=iMIpa4mtg(OH=@6Y&wg_Z0aP4zxrPQM&s_P>iR4;h-#Ibe0Ly0kL%3rMh8 zLv;iS_FY;kot3AvP!IC;0ttYe#Y;?ikoY1>)CsRM2}dgde{xL~uV~q31b7tRCVC0K z32;q_I`l_ADFJ5W?c1Vmo-T?aeCa!bv>S8l`?AC%O{)_Lu2x8gd&@KyTM%8|wP5Mb zc3kp8ulul^hLhD=OJMj&3Jaxd4^)PKDc&*N(ch~CQGrWqS$7kmXYlL7*hfrlseyVA ztE!kbx?B9naJr2DO-R^HF}xgsI8Dhl;HafWhkR{<{gMF=dM0jCzz!q8R*ST3yOArE zv$st{A(KeP;1U>ui}5j)fyDk-XD-)=Vh}p5Cygv;<%MX!`in|$0m)ga-RIXMmYWmd zJ`|j0iy*lCFDRo&j~US^Z-dXAy&oR^_ZYxW@NnyeFmV-SQqvSQ;>8Tz+SJ)FtiA4C zsGdUye^y-*Z7|msyzQ*5s1B9DLY*e>>}A>6z3rI_%8wj|t?=}6$Q!0=e!bIAj{@o%q_DPxQ1`U2a^RIzG-FPMJIV%@lXSYpFqnM+ViBIdR}YJxSiA3wV6 z!N!~)QWknH{Ta{bmj~?V#?&=t2iPV0x#Hg2#JY$k-9C7lLw5(Ybf8b(*bc7N^SA;+ zlCvt=v_@E~icZ3OR}Rcv))Vd5W{R{Wc1(dm=CD-U-JOb!B&r*7=U_i>EgZk4fg|gf zrI8b2ed8k0sjy7LK3W1NSoqkVnZj1=llsid2AdMQYW){QLRAwP3va zvDsaBCc*3=3YMX<<<(q3y({wYG@iONx3p?Zo?BB!&lxgw9XLE*bAc6mj`bNX`6KHF zoFAv}ez@?gWT*}PUw#!J=No>P#lnj}an>qqLSOyM?an(3S``KjeyyiD{nc_&^^j4*HL0(xyDw*wf zYQc~zB)y{*nBd0z*`%5RsDw*uYRZ~tK4`UnAtsOI-{ z!CsAY6HkM11dJo-8n5PQL)K~Qi~Yhjk)B(Q>A@|?&*jmGBUzoLyCa@SF=SLy!4KP&sWdg1Yd_IU=F;jKJ)HpH&zqvpMidfkbhEpTu{B6yiD^XRV_l2= z0dd=nLvXaVFg}(4XNT=w1X)3?6S|XQMdYoFLuClKFD;Co4#q_<6FcOiZLLFFFpl6J zTpsTuEOLi@awHc5zz+Z)I90 zxYXhB=K+ckC*0!wiBfb?6K4IVDxwCiPb?|)uJW>IB%TsLqPIfCj@CRct2j5GRyai) z;23Z=HtIa>o9h(li1oGqHLg|~4}nPwdrPx~CnHGCq;N0I zW452zZ%%X3I`$DfQUJ^Vi*RA%do4W7#FnT9xuDV%rO)fK!GsYXK$Kb5V6neJPxZ&I zGRbP0>(x>oF3>gJC(YkjDM8HlMVv?1WczW{G(Z{;lu*@4T^8N1YkK^y0 zRJC3_WDbVGmN}p2_H$eVY6A%(b&v8&F){F)ouJL(+#eT+#Ui>v$V&tu;!VaWoMkIo zt0@(K0uQgSVLAMcxCYX;YYD`Bf?H&2I|twr@1NY5uVvxzUBzoc0;I9}=9b9<^hNE! z3Q0eJwXC*g6FJiLjzBmMlOIu*Z6qV}E42_ZHlc>JU;lk(Qq#@G>NCT%k%DCvPECk@sjaTDtmSi&3kIzZ3 z%2M1%{}nhzH7$=6JQQ#nJ_`V0cpPtnE5>D2V~N%1 zYaTd`{mP|;An{eD`RpC+kC-jAhYlx^VoNF1g& zAX*)VAcA%25i&Y|`@|kmGhw+_#dhw;s_tPASYT^RdZlQLNBK(yo~-&jNU)k1we2if z^fd`IDYMvI&#HO%GqY%zHejMUWDv{khgsE+mkLrZN1NS&u2-ZPV$Glo3X8EsRv2dd z=Y5K}O`x_)Woaf^dZ%LN5rv&xXIP%_*Zg1K_4+99Mc_t1gH-Ym1N6vXN|j0S;0Qca z8VsY5#FaMyL_oX0Lw80(xWVb+`#wCe54D(F*tf`-OB8jd!=cQ`}YaZhWBbwyjOSK$z<62mz3wUILbCOS$8AbbkJQUJ=SP!$iq zR42+kaayJ#fWU$>)H(j`ZOXSnK|_b5|~zT*|PV?Y0fU$2>j2poOa##O;luqm%lea zAZxXulu|%IMl?QgLdjJO(MKa*tWVvC1*W+5qeEkpy6iz(yBb{5v&amH&1!NQQkF%Q z-MS$?HdA1_RXdq^%e@SA!Vp$1h$s0#XHr@pHSU6|Q2dDGb{9mHVpONgFT>`!MxFh9 zheqVd{g@C4qK~O;+4oYdwJw zPet?&H4DOqKH;j`rHhkpf41O1+Qns7(J8v$6gUYdIW8qJnqc(#Ek;UcVUYi3#*K}7 z(GlAb5=Q(KN4Cf$Be+ZwBL1l~Tmr6Wc=HisBP{|@^KXJq@RTZMK3ky>3a5?AZh zRs?(WqU4OtZLZSxT0ZGO%E@(#6Te0_{Nu7L{tGy}HPka2%&NnAvx;ZQon&2w^^CcZ zR_bgyd|^X7z5`^BrdOITL7{-)8C9TVno#9O8SdSmSpelVV?m`g3p`m{7x@?8PzWv` z`kT~gq+rX6IY8+v`kFvy?Pds5n8x6{v50n1#zelEqrFfhV~WOc|03RU*|4YP1u@w4zMjeqRn#IH z)22kX9#<58deI`(TE59 z!&ucoCjIx7*nO)PWY@$WkmX9Aczz)mTJYPqr(Gy6hF?ExP9|iXpA~MI=msM9gjb~( z+vS;=aXdV~6MwSwRaz$$$r>}z%D-8UsOA!v0cq1(Ndw1k+|j%elT8o{V0EXpOOo8e zuuF8wglxVm>kD1e-=FwPdInZKd^07MbSE9XJ7&R(I?2(o7=L?D3IVlk@A=daLtb!K zyWz21hV`k?Ix>^fc9BMuP10PzbF>8S{Vk{OtIEmi*tOSoZ z5;Q5t3RKvyr7kN5C!q(AS&=Yn4pDRAjt`MLe*$2LQ;>ZeLCagd1Sr_s~Q zYOpuKd1CjXh9_5cDCBhMauXiWql;&6iZcp|S_RTre-K$=dWUAum350o6g`@0$5M*v zcUE`U33wX<=@O5sj44%46UyZ({#J3jlr}CT>>yiBtSc()ppM3=6yuhn)}7X=9PkdN zF9feXqirioqNQCcTxA#JlS2rFnwnV+F-#Ar6d4D|)AcUp2#1?bz1oHSj0 z-R~9qwN(Ef!I(ra6miW1Kvc@k?_?@|wzsMEx?d;y4XOlgc+&|c4^`r}s-o*s&Te^8 zdC5%wUhu&3kO(E1R%YOBdsa2al2uX_;){(Lc^kZr3EACX9P{()!biwazJ0Lp$Ag8} zg->GkGT_2vmbqQ*&L%xn%J81&|1vP_dT&u8;E8Rtbp}mITB=KtGYNPK3%no9rNkI} zKR-{0X-!^~B=+l{l;M!eC+x<$Q^2ttrw1g@@PT#c4|yS~Awo*zRaj8HSBV4-OK=km z5mjdS1=IfSo{Hi=$ zr`%N6IyUtjR}#^Q6B7R!xX{_oAZ+JdD2RmrDE~`Rfe(XGZw!lv?0F|zzMHPbZy8Va zB~Ajo+alF$`%Q8oR3QiqxtxQB5w)7h;g$Ro3ExA??fk#1H}5YmRKvc(yu5yP4sWY2 z|0lOk)f_)*1Kjr^S^mw*o@y`KJ1yGucWAsYn2v~@%K{Ehr?cOxmnH^e(Rg1)(h^rD z`zt3Q-WDl`b^nF;^Q&F2j_LH{j z+ttH^Oo8-mLCE89X^|)8WHscan&2}zL_uslGdbZ@Ad_FMd?@TOeD=_q)+200->X@=!)P^jm%h^aXi5;Qf9JU z!YeA|H>?p^uM6Iu&5w0z_Zu+vui}botU8oJij#wkJ~>7$-DBq$6E%N`#yxA*Yg@Ny zWRB7WIBG3|&-@R~9qlG#>I6MR9Yg)~ii}9)Or2#!jIYp916h7!D+3gkz=SW<54g9i z;7jj%(oaKOqpp~jaA6rdCMm)gMD>6z5qe?kiTZhNm`M&WYKNP=*oPFCJlqX>ag6$B zv9=C`NqY`PxwoGf6*g&DPSSz;Q-9IHjKK!Q=MW?oHHsF02F?VR+_e5U-f0&BTNJA3tw;zwoP;3J(r-`D{%DR~7IjP9)oQbJf6yW(q};~7|+=_+@& zKb9#w*EZ^0DbTjnB>Eo4f$$`a$vC!1f`>-im@;OSYKU(p70cV32&Lr*+Fy2LqYuddOvD|0SzX zDE}T6*#$WER*YH!Iw|oU;aI_TUVfm-+^Zn@et-uo-j{Nu^l!?zl`r6%m;%nCKV%G9!#Y z?NWC}dsEmuOkyoN-uQ=|xvi2&;onb)(+DYDJ~JFAWuDa0whzbI7kC7DlRj>ZKV-k0 z2}OB#q55*2dRYv}gHTCAF+*T4BusG4TEmoa&N|RhP)+K>j>l9XR4f)Yl*al|Z~B1h zC$`xy5c>rc&-Kj2DhHdHF5K?`M9M29Uw;&zSN!IDX1A!?`tJPhvkE&4vNdAoe-kj~ z%g%6?b)(Ynq9s6930$hkSP6c`yd(?_|h#i@rc@DR^;+NT}vsYKa$OB!Q9AZKO9Br_zJ}X?*YD*r zDXnS>PHeBT;g?YTuwK=mAjb-^N20bTvG z;{CrP!jr=n^1yH+wVW&q>`R_U1M68X1e5NwQQ85EafPFQMY=q3YGroEGP%nOs# zt#TiV?LovHkaba3WBxW|B{{^E@NRhWnT>2PDtTKOyk0NTv7a`4j6zwLHEZfediEo| zbrnKQ6gIAW($$DZ8#b!r-%na%t6!_cDBEX2<&wWU(|7U#x8iHjwU5y zEAS4`&dGC<2!mU!`}P}elPY5_j4T=ua9i+HE^9dM7J9;;-H=!wWokv#_VgQ>G1z$? zJkiAD)F~m70O}W~o17(iB zHGogguw>>AubS3kdGgR>8(C1AwSPr0Ko$ER#b975RujE%o6}xq&sGSBE2w_}Yd{%2tb`_IZaBNI+l$+lzg6zzd^03yPvdtqx(54vEKaNIMh5c4NDC zo#_M?H}N<17{g6pag?xjUnr?Z;yN?RHbTG@e~q& zE-B;(jL6$`eejFU!20kodop+q*bF8j(x(4$id%M-`VK_Lm*nk2x@ZTsF7^$y*z$NG`FcGs1=OYwRCd2RafNTPh4c?L+5@2Ia0qcw; zHK#Q#<0icH>(Kz!-#h96AhVg)h|mc^}h_gC1H2zdBLLRh%F270EeUWqVH)bzk=B4 zPi|S(+_Ffg4n|J6v*N_39O*!xqgNC2|d2dV;{l#0ot^+kF;kKG}ZXs$W~hXmmf6&47rk z-x%vubv{!(nmmfCAPzxJ7c;aS88pi=BS)pZA8+M9BP#rLKulOC??cUt$ue{?qhwX$ z845=#H%369g?{<`-Q9|oTt2+e0mDQCmNF7m2g~FB)lE&3gMD{fF_iHojRj;~HPO)0 z)Ux39*%}d2Y!nwaIyNPi6Q)=R*_Qsv)q9M8F?^(vIWfrKxrhb>*%@}ZxyX#i`Euu( z7g!>-tart#r@tpU;U2=8|5U{uM-k>>TeE?!rH|2Pg?E7u8bX}zRLZTnxq~c?jmr~S z39AyPy7u9XxR-2=XwW5@?eeWJ*%m2r`I zIQqp$*EO{%2qO;jV-_7JmHgNPQD93Y<4axoik^h_VW&u!+O|J2qD9ti@1sd$T|)O= z_!IweFY|X9 zZAt1-d)<-?IL9^^?jor0MWH(o#d=>mVWLdU^(R7BTCJHb$Y>2!e_|E@xzggv^d!ki z8mm1BO#UXaR`EM3HB^|A(R1Nc0`?%}!H||i2Wcf~#}%@?$EGOY2T{Dsv{gK8c}bRH zT1t_Ma=Quu6c?5XqsSkLA~`_z)LZiZBoV$o5KUKrQyg`}iqxPNbOx{7rnd@u7WD{m zkL7apAiBk_Qc;(1!)@fKUV-LBzXlh0ASNV5EQh#R2H%{=0rs%{$^S6R`rd zp-<6Q_l!v~t2^C_fuAm83L^A>Z6_x}%3Jlx8Ixq~xwM{<+qoqr07dIWrXZZ(5L^%h zi2RM`q2ERiLY^mwtSp{fgfx5(hDJ{86j;JsERYlsPkx;LfXA0C{E*=`K5~loP?w&w z8cTA4p!$^HreUfccUFC%%28PwHW~mNSC12 zK>C4lgk-xIjj>v{-DF#rn=biSnS%%Krtwjdznp2@ltFri5!3lMd4|992OuZ-b)Gq! z4wjCbMMzAF*IAS~Rxgr)Cz8Q7R^fzdHsEe0zbR759rbI?Fl10w$R;a#D4_|G96hX) zgrvON$S{R#Bu4Rt0sUU`tTLjfI&u{>{yXlV14-!YK&mflHgy>8Ip4{dhK2My37+}< zEH5PTLE5ao;xy1H7-0TuBXRI?+K(C!_#%#b22_LtQO^A< zGVAsB@iZTHX9J{{i}~f0zR{v$+2od=IZ4{!*MXSMu`=G=TOfO3SS zLbSEp-uuZ1IL6@OYWF#4zt%Kt%U`W0R-1P3jZaxJIT`~9x?ld7Ms)D~L~`R?!v~_v z>x~dymlyXX4k*VZ4-_%GH6_IeUgWv0q15K;>Mf~FU(?^7izVpI$5ezfnn7K!p&zC#_z< zAOL(`nO&eWN-ePMmvshAefAs>9O+c)AKK&e2AOuRyA$ZJ{7!FU1j6$6GpEpOUKGDa z>fkFL2eYS&ydc&Pr`&RgRVoe+vXrQ1PvfJ$t&Kt|NI9yu9MFrA**f2RQ18X9$p{qS z=kAv?k1ENY4FHsH@y?twc~H3=y!Em-t^WS=b<{7cX6-YxRb!Ul7xl2AmXfP!iiYH< zuFxlR`sNQcx4_bJ0qQ}q;)rA!HTYEDt%!Lw=>JZSUrSTtp;yCcltO{lWJ}f9@*DtY!X;*4rmazEiD;T|rwd(6$n9|I$0&S3udXns9rK+T@Hq&X6 zo`Qq~_5NYKX5&A3g9-Xs4T0%%QZ(K#5;+J;(}*@kwg@gs zt*jPqyO4v@HQx+Rt(9y%oFgI-Gd^2>dMvG_&gx}516s1A$U??QJQRULeW6E&MgOcldXHa^@(pO^l+Sc`62A|4icZS5_mw@mM1Eu}LOyqyo z3dUyNHX-86+I{}3(OR(UaPU(SOS7LQ*fiQdvu0FW?FY7Hpz-~uP*}NUEFD+M1Jsu> zz#^tOfHt&B72bm6&h3Gf5|2gJ*cNGIz0>kOAWmCcu+b?@c&#YgIppP%(M(wXJ}Lf~ zP-+j|5BUlAUIxDoK@3aL6k6ij9c3vGc+I=?|6kq68AI}r52%DFzh?3Ck&mTFap?rr zw@|d}LWMmEmb7B~&~bF@#%x%6R?g>Tg{UZ3bU+TRc=RBWXE6@b!B`YR5c(6T+vC!S z@B`~j(t#36ao2U8sM3GBD>dihHqYIm`>ETgPuc$gMyo3s1=yt2Ryp$_T3HbG3_*%k zqhv|jJ+go}xf~83{~!S<-HZ{9lS6*g34+biW`Cp;L6kHe)||h3G&>L%;<%9I=X|eo z_SKQN2j4*}Aiy>@d($?q$VZ!F3ZrouGcgLkjew8=5vb*3Jv|Obde#p)=(YO_9dR@~ zTg|wh^es8rvX|X{Chb$@J_;I&jJQVg{PWrm5;6w+L>Zf!ElV$wxfGPd@naoEBU9D) zw(V$}YqYirpxQrwhV-48wTuoGpXpn2rfH)f>fodWvbL#~4*t zuZNWuiOsCXzZOnR(^hInKA8@bji<@p5YJ zpoR~8w{JA`Jc90aM@l{R2Zt2u_N2|^>^*_*eDvsjny)3^5w%R<6Z!e_nnIFHpk(Gy zYPeUez(D*0>|-Nr9!H)Cs=4g)!;sP^?dkWw`^3j_qG9x3-l&0INZ1w%SvmGZ9(rXB zkjktSgNRGGO0TwA#ZaN8FOzZ6J5c33JU%$&G=ymx&=`aeG3{zyJIRvf4lPIZ$L2@r zPKl)zu>?tcuOa%Jmh%9Rq!B{XRVX3 zQi~nvXz)KR%i>zalKZY+%vsv$bP|F(h=_~eG7piY8rk;=yu*BKh^wzpk8`#~F3ENI zYF(-4fNJ`8LN5W7EYX|3;?tMbh3Xdq~j+)e@3F*)CLrM$cUaG8%P12d1WZ2!ACB4!RBxae~SGIL_sLa z+DODh^U1XCgEcudV-EuCYr5k8un_I@39EuE)Jhe{d-y=guc`h0=5WN~Mz*aW2SNoj zBsy*G29M|4$ctFNQe!HUi`v5V>IZEU0Zo@=#IjVRSVF=eXHIN=CkKR^g3&!O&>V1l zmC5}lp~?uo%~i)w4gjzyquu4IX_wOC{-+(S5u{^rqBIc4@iM*d9&+E`V=Ien zEe3{REp#A=B5dhU>AZj604&;#FZ&)T*(&UW{bJn)Db4HALQrtjce6{-3b22yr!y8B&z`BYe<%Q!ANO zD47^ItW^Y4RZN#IjJpZgZnUuV-lhC??YOz~P`{$^iP>WbOj(@C@CQQ4&Ejj@6=t?* z_OD%RlMYYtQ=>55e5m*qqwFHr9qfx3GYJdRIq3axD*orqf!4&3Z!gCRFBxA$-(=v2 zzbD5iG7t@EPM_A1pp(O1oZ#n4HX3lit*q+;2_#PGyd9}$zPByvTG`I~6=IbHugGGl zja%6HLa$|BLq$(~iS+jdv7*R46%z4TIU(*A8j9;oQQm3H*2XOke@ZLmRGd0IEB{^r z2VjH1uy0YxzAXc#SQ9d%2%&}avQ{Xe>L&^{14C>IL4Bj3zX}rSZT@OqV}IU`j=dcD zvK5EPk=gV;vI{CXl&5P6I!fCKdHVp(syYwFW0^3ma`|j)vTe_^q`f1O0Q6Pz#%64U zInqi_a8`DlTbG)PWaZER>d+ibV>!`~bLm=fKSuMveo$XqH6bIgo$gY&>TA^@H4-ixNYSxIkLIU2jXYrTCJMJrng1F1_ncWhF1%Z^)sXKV zD+x&!;!$#Lzu_k!*m$Ml(*A!`gn}8a29s7Vsb%6%_-&JAJ=@%4721qtdwG*E&u}!B zz)vd%%f->Vw}?MK!V%77bH)y3YP6n?>gtys=1#(X0M-@%0gNm>XndX-LR)!ejZ`6X z(mmn+93Z8N8?2_6oK;&Yf66rVM8{;yI`#vZUnd@q9Q2 zkZOKSK5H`0sgSq1;pqGBag`WlE{s4wr6gz66@R=EyHk#{qr-(pL}R|S)U$0zO2PZx z-bpMgm0HF;=GhepT66EK%O9eKKDWwQmWgJ z{b*6D{~SqEBNyoi<0gY9T;vgI-DcF;XOJu|hh)V;c2-&1Iz2q7@qrZp%=A*AE|({d z?(`dLx$>3p*Fx*{KzB_@q+m1iFRBwjEqj-!BFO64|8UN@cR}pY8%oE9{~))7>DaVF znL|1_?jUzZ0K=;j^7NIp@}a;1zUdhXaIukhD#sartBjT8yVtGorVSSLYkmq!HbKNh zMc)dNBZ0q-cx&U^=_25#aa6_fp@E~Ff! z$`99V{Mtdyc5z5{aSR4h7E=T#Ogv0Um_K+9h{i^2+w@zxrQ_U-I4*Z|ke`ga=6XqP zyFlp!s5}{`sEG?|P8YNJliuix+1c2^-=9D`aHItjXM?Vx`Z*2cBf6Fv@dslT4SV73 z#j)+O2jvDE&n9U<8IBM{@EERGRexl&g<8|3H`&5>i;V9U3*32|(AD6~tT(l+96ci+ z2R`LqOYN2s4%9(C;SA0HCs=dT0wczk+6>#;L1=(OdX1nlRur`zf7_zp^+P9B2CCkS zZI0@?8CP{3J0EOXre#*to!AECYZ=TX9tu_1KP@mLUsHD{@qT&w_2T@g@6k4dwy|Ob zGa;>+Hw^WDTfbNd5e%wXaF`%Qn}^CnYJTk>b9C9tF*yM3E-}S4c-y>?a_UFzwR!Dc zxag=(JYfzcwX7*Vn2OR0TqCY@`zmIrHCD!89udHr?Z$XG*WYr@wBYE^HST009_WWw zA%$CZ&Uv6$Sy_L`^r6;Zdgq&SwsABLyFG(UUr_#EB*~$+#Vvv}=YJDFI9;M6(ztFR z~1$?zcVYau$ler0D>f? zN11bnpMfc>2d3R!U+-$!R~AN!lUi~xiAyF*VKdJO9|}vl+4fb0;6T_uJ%8Xo|9=V8 zJg@TuoFPyTwZ|84UGbaI53&Um7&Q_Jg_Ft?r8uM}^Ek592sTO{=Thfyi!G$$AvHG% zCyb9%gDg;p@4)$DHRLz~FL4RX;o@z_v)^9gy@(N3t&XUh@BI>LGxnp(0G9YjfW?RXQ9L4SuLs2 ze)phgs(xY7Cf+ij&>9dEc>~pH=v%u(vLTesdIrZ+Jr+d#9wY%zK_m7$bW8aF0Ra z=-j-+G4y`F>>%d(c}zF!$Tdev;N62XRIESa=U?x;`^ZY18E!wbby(p?#kpMr9#;(q zB?oI5hD+y-x8)?6e0L2#DiQH9AGAxF#+~<6hIccNS_PhTRShX2zIbhEwLC93TI0|R zFxugRqb)UNWTg}{gT~jaoza}$itbkVz-d*X{}Gz5Ut5G|g(6{aIElcSorytu1v_*& z90-yW3f-3E1@scaP16-%FFEyx=$(cofWvm3z=6svthNlyL976yaLC-i^4vEJ+qoHp z1VUCje6<_XjIvSywXKMt+YJnb?{A>6T7j5*8fh0wmsyE8iA*c0n=vCGOI#ZOmr9MW zF}xKDH=666RJ?CKwcr*H0$W^aa6{;WHpentbf{Z3XvTyPn>~;8gY0z_q_>c>oVFR> z%@6ov=q;^sj>bKcC&2PjRXlLKq98ezC6cR0C1mDE%okm~M6x9PkG&?Rgh5TbMu5)g zi>`3GHzcA1w91YvrjrtlZ&=H)!KEgPPK<9L#b=k5i*Nu~`BMUhQML5XYkhCF-Qxi* z;Q_%Mwql@Lp#&FV#+2Z@H8G`_hZJja6k#8ZD$5|Uy=nYi4-+z_9CR?#cVs9e>zI$g zoEjnOC~qs=P@!d{W)!p)IuRo$S>pKPG71?OFRsP&@=5U+YCXO*9RCP^c2`HzMlQ2P z+{p6BSxgX(DMoiqeS(?rbrBTbgS#l(YE1(XGl{ynvuh%cT|r1@y5#8@cM@oA;S|kD z;gFFoiETjNuYQjUXwvRO1u(vH}UMLH zSgK;L`F%A%v=iXle#UGF zjm^@^n%db|%U9#DDRK3nY>XcFdzhZw>Qp<@kI6iVap{dwzs9t11bF>C-b3+3LtlHC~@ z1i@r>ugTJ{wyiKYEz&qZTH0}d`a^pCR4G3vEs0OlfJDw26=3=xczFbZh++S5Q^e1n z!Ks+MGzh5;oyeEJxs&*r-YcXmaJ9%sD5^$=o=9D8{BXA^x^Q3HQ%F4)#6TJ`ZJjbe zT@ZWclVV7785YH4uc~xX@fw)SCX*_2#j_mTEnZ7jQEd?8d|Qe+{b6KMB$JOE1YGarzGhDaT;YKzY@+x0d9QDT6gRW)}*lB8B{$ z6>)$pFdZ#@sKO;>WVqf`iJE4t5EnT>b^jsIt)HdDH?Jy~sUNuwi zUaI7ju)ld|86i~$nbx=6n1;qtO#)X9g?Hc@JbWC&Ra7K-d=&F96R5FjtO=o2Dsj3# zB|2iRykcok=2+w+0>#I13V>3a(RL1MK`9+cdN;7Khwk3rG&-L_p=lcfTQGMzjuCRc zg%~&{~T!~ebj*}FMw0FOM=H5r&Bsx3!TuUAYmXXOC;#H5$G|1GB4U(PiL4*nHX@Fs;v`;lN@E_Fp|Z zRcS#8zaCM(b8v_#4I%4w%RQ^YunvTW`-qsOa`?b8_(H-&^G4~mcGJ9bAgc~X+aj&7 zw(mJiTmbtr1U{-*zB0KXnE@hOorNT~=u7IudK{F9c^}WpRXpG|a;!EY!+=+G# z011L;KxL9qZJW#aIPL}Bvyv!)7tyFxXH&isa1SV$>4m%7-5a?R4931n$!5Z zA2z`BXd$!KdH0q6o7^B4tsH9-C;^7e_dJUUgr}(vz)a&6w*?@AtBNIf61jUA&Ha`oJ~gU;svML_;6hw zlA^j`c4M}(F!RrXkR+7riT=I=wgH0xEdkVLn z=_VywkV-L;hAEpjwm?G?cF`{hMALBCMysmzCmzeLz3UuG3vS+Oh+E!4(&+$vyiQ?4&&5yV*QaXnNANsjO2`h?PQr z4^1TL-ee1>!iR~1*ZlZ?vhF-hb1j)L78?EBS1&WX8qxKWksK82xqx@aRT8F;sh1EI zci?bd`8^#Awg&>XFeT4g(UYpB>Ot+@i5LNh1+1E5ArsHLG3=I+O_zRAw6~T>MX8iP zbCsFz{|#-+)X=8*zYc?ZOhVjNWWkK?;XfykkJDM8re`(Wk-Lr`kIPVS<-NpS6yV$y zrs{wrGaUWohQYvXGS6;cva56~c=IcNk{nOj5xkmVoNETJ9r&Zq^Ev30(dWP%WGbl^ zBW;~HDC}@)UU8qX;xL;V@yCh12Oc^ItiVn1Kg7TA&4C~64TcA+l;{)%{1#5g0$v}9VOX+CuL2QE4 z+^=ieIU>hmI^~Y%u!h7U{f3&py$|{-_!OR}K?|Kcsxt}#gc7m6IT{unM?c&2aWDBq zhTnWpgnxJ9DP=A+B5Y0nnx_<0c2Mi?c5EQbDG1eoVv} z_RPckRlx&}aM76Neg0Z)HR+L?o-8VEtVn?L(&deF*%1z9UT&5KJuzU($1e`Vrr?e! zm44I@q-xayZoV__1Irwn+@Kv#KgZM-PQ)nU)|;KZ;=_EgVtZf~^IY6BDe+F)I4k72 zMK2itI1Fn8?->5?NV*e7C~U4P-@n^FFGXw>O5vvlH-orlW} z|95VG59z?K(FNN2pLF-7BDB`i<*Ki2UYP{OU|Y!FQJ7_6cNlC(T&%}r1)ya@cdPah ziNLVQGKMX+2 zaRaM^(+cU60IQ2|A_*37?F8)s;U}4c?kH-1R2AAuAfBDDwKay4wqU?SBBn+984F+^ zv=%xM3EVviau=cPD^&o^y$BdIuV%N8kvL6|*HQ2Tz6|Sa`!9D`pKX#-1l*$lQNgm0 zgbJ>F)3~mnEC#e}$Y5)-#Xl`U&%q~}&s7I7KLOq}SG@mv)ngEgn%j4jN+T>}7=G4EYzgMiHW0h{>WT?mtRwMP7l3lEQQsB{1ai{WAS95v%9p+rIY$n;KE>FT#pi5Ky zDaw|xBFb6rztGt{`cO3#tD_T#zfe))cy!@>hiPaz5u9=4NWMt5@oFeTN?$SJy?jL` z`@PTqe-AI52m6MQKKZQOQwLRVV!w=fZqhfIB{x2xB?Pl^-S$85=F|lAc#()2ld>4F z8Z$Fuk`-f#|9_yOLL}PtUz#{%y2@MGPy@jY$4P=P&~v2BY-+ZClXMb%8W{zqKlLMPufO#f9vG2L6fTz+mfLh%*~+5D5>!m-w@p>0S{jQ zyG}P?BTwl$Jh-pwSMGllo6oy&9Zk_imp}4+m5Z5f^liv3Q28$*rJDXOLGRF%3CmKr zKNDoZZN$_0&=_Zq*UG8hzf@*u095(qj&M9ua`)%^!@yQ{wQ>67%wO&Tyyb(v$VP~@ z2)*ksDVfAdZA)ViQ?E9OWRIh@vugPE>)}DP52z};T8ok1+2KC1#E>6b2L|FII4dUw zS=`Dohx=D<>+4oN#{vs(Xaqq1_HRE1u^t+MIegak(J&Fmq%F4d(Sy{UawQy)=cgK0 zy%}y`ej8aX2WNSkY?QldmIk)*m^|VAX^AM#jYKybd$Zx6KxA9*)NO^?#eZsy4`73L zf0j*iW?%SI!`3dPmC>ulnb!9^x(*woHF~nibWp1)eNwfigjTR{*YWmPxmX@V!pzR4 zx&X}6kfgrp8}PQ(;g%kb0VX@t*agq;OQ}Nq7U(8-P5kU}k}@KA8FW-!S{BUh{UiW3 z>Sp>ayL-Orofph^6*7ANNzcLUPW!W`hK-U&4UZPdJSp42hA{au^0*S|?>4HV)1FVaP zXE4@cq(B@z+K_ZSA^Ix^dUUVJ?KMJNp`}=QhWV$n7H+3(fvvN!LV6mw@2_5|% z`ND!I7i1}M9QEM-18RO3&^&=yy1F*E%h_l0Y#q9X$-sEEVy=Cy0G4hvDnA%~IeK9}(e+c=@ znh(eB%36O#hwen^)`$%kSALRFjd^h;{_FKm5Sg+=u} zz!WnE#`89r<22@4MS1T6eZEy+9#<2VSp|DjuOl3EM;ika@_^?I&i6@e)8ey(+=Ju; zD;vX-6n!YW7@OAU4*zRtB#hmLSgbVfGPFEEQ|S%;#J*;ZT%ewn@Yh7@kcO7Tr{@-k0oc7a#Qne5;HfB%0O39yM^TC;ikN9}RIP13iHvqG2Hj35E6 zAU3n0iqDe~d;$vgNZ{WwNx5`uTQEry*&tWvzqrwI)&12KbK>#zGm7lkuaUisr^=KWmPzR#_0Swv% zb#s1=C@3%gfB%2>%6(LLe`S|ry!v|gn)j^iR1QsW3!Xb2LsKJM4l8@Gg~7F6-Jb^B zL8uob=gi76%yXg`j%o4%@?JAN{=^m%+Sg;Vb!s0-(sH~EI;o-e*)61AnCUvDwBoT$ zf5^BG^v~|x3q9Z*qnsj+U}yhBgPWekHHGJ!smf^0#r8Oets4ojN}|td=L4OTbln7& z(e-3sc$9R00}kPm2DHiZLTEPsP+5HAe+sdRhEOo)m|t0oE~@hi_CW#&nljW`a3(qK znRX`6oPi$dRonui?^#X{5h{11R&i@^x9%CF|0t$Fr-UKMd52%(~w{+j1cH+4I8Wd|5RQ-5Ove5 zI)@Wy>R&I%aJfTPB@!e2tF(1Gm1f;4azuUfo~zg`zWH-6%)CbbCPeN457Dd&o3^d4 zhz2>BWEayWKCEngHDe*i1eHG1iQnTvG;|tA{rNdvFCjN5x8^%~p4^z#n%F6fwHPa^ zCKNXDChaO-+UjQFMGrj&h&K>3<}8Y})o%ELgY9aA*w2pqf#D_0sN^i4eVSgLoSh+U z><280)9>>CTKyLQmorU;Xv?|NH{-f)n=$ykD zZHk10hJue1lyH4UCvy}8WikQd^a04`ZeTQxP*hGq3lLyz4c|7rg)o$cM=q4>`tgE! z8<@8>r4AN;-4T;38lGFlJWS}U_*F(K1F?V%2~sLugPtpaI!YPVv+Dtk-oO`lkO)bU z{m^feSi|C*`t_Y+ZTh7c&LjA?YdA>TE~V9HZn?NpmSCZRmFMusMFi_yco@`nB9WZ} zIPiVOHm)MD`5GwLM$-JCuPGeW(Czf1W$U2|wDO7Am6ufAu#&y%VvTOOsnN(H6_of3mkq#d%eO)0=?$$lwes(7T?FaF?rT&fy67jhFA&c#_5-p;`0*KuENpV&B)WjAV>YLM<*iar(;xx~ zVU?|GT;iBmp&DQuuS%mVFMg2r1CZmfw8YDm$GegJDl|buLD27)BqUDzW~qZ6RgyN@0VieGL4dlV%6PS|K=O=NjSYY%u(T|E~KsI;DX`4-pq?aRd zaecP1za)^OnMDsntksdw1S;NLU5%5Nr6w5}Z$(3Is$bk0+Zh-X9017V<_ntZ1G@88Hf)Ksh1b9{& zCyiWPTdwc}s>Ba%!Vof09D<7NA{_)L%ZYLvrBK2c+;;)9pQi1e<7eZ?oQekSI(>xj zr9nC%BQ4?+e%AEK-~i>WaT}kS4-TTT#QzosFLdtmB>T7t&N&2RqGw2Z)_uHumi0_ToK&$4Bhq&$HF13a`V~ z@^MpQ2fi#fq+mP}*Jn*rI$iE|JPRspLY;_<1hNI+T`X9&wh^0Z7+(fVENxZK5yBp|c0dnbXAeE7vQ3PW_$L^|g50DGVc63kp)L*iJXx= zdb1@+1C$wG*GlU^HM`IiliI(~*AVEj@_3|jHk0%5M0J&42(o!AdLFB%Oa9mUCSoY# znXN%p*0a*z`r_tO+_;56umWYJx?v~&g9)cP5v#Pqe#S05H+Q<+q27Y+Mox<_wE`(x z`Br~;P3|XmB2i4}j`U7u;#2b6Q#tBJmMIuI#Opk}Pw|O_yXio)Y+SjlDv?Ffp+Aiy zPmG!d{48|HMp6>OXVN;;!I}^ch%dTH#ozQZhTWs~vc_irYh~+X-(W;F@N;aP7)CZm7&A+# z)Tl1sVYQ>t--14lvQK#PP2~j7TTGI{6H!hkpBR7rS=)gWO;B_%NP=2sO&*+}S+=^9OF}OOSJNUKku)A;_NIVzCc1{uBY->oVVjY_H(u{Ea}Xjz z_?*GZsZSQvmO=%^_MI6)Q115xZ!C3?BZU6yW6AnxfPdZi)2>3{A~_LdzkTL?pi8-3 zsQf^(FMFjb+t#2)Mma$)g8n5CBG(@5Xapdv5U1QVGXW==Gw$D#rONWo+a0^Q{~O4v z>Y1?AGvLwJ?9Mc4V?10=3S&ZECB)~;*UuT^LNbq#YAO>J9vUN9;!hhvzAdZrGagWd)TQt^IRE2 zL)Zk}+4qN|@DY3>KZxBzJ01aX_$Ox0?1VS8CVyKX4zdQn!hp;7P^6#h?YjbK8@e#L z`7vhcBNA`RhKJBu7QUP#l%G)|1@b*gz1T_iY!OBr<|(^L*wW879fXf27Az04uIUIq zFXulKIcP;T0OB;)<=_V2a3A@aZY%*>nsCt5m}0p(P^H*&kZ4A?7Qcb2V8ZSqf^ZCy zXY&hWzpL@X60tFgs3sKzw#3f@*e;(}Q)VnR)vI<{tbz&%EjZ%Nab?jUaS1vV_hPMu z=DxfUs0n&vnEIR(qyDY74*UK$F&r=9z0QJXSJNpsg}Z<2g}jzOqiE=hNcXW?TZqY^ zTXreAvfz=KH*Z3MH|di46fe#9q+M`B`>z&io>St;zfl6-C>G>dG)lJYn242xK>ONx z*0G~br%0wA+IAgNo>-3mQMuKOrND;oqnLV{`7%QJD_5f_LYp`h-C5>tLV`KtcYTO7 zfimhCBkxi^Y#kmpi{mkyX1_~t-yo)CebKb5&Dostw_Hc7M~^jjlG=GTV+i)PIPGMm zZ#~lY&_NDF$2z=*Y{Zd2s(VsWY{V%Abty95`lIsW;ctR<8 z`ZF}O$;M&dY;cACt9YE|-oP7Rk&UGhQy97Oo5%>6o*fP{CGY%m;wE@Lcs zLWVBbx#53eap5p3TD3oa9y3a20+uT(6#^FX>=!CsoBPDQH_%yei$>7<1KQEt`m+PH6dg^u;lmnHnq$~im?lWHG_UnZA+UP= zL|_cIUpR*}R6~YK+Wk)RpOL%qQ93WvxnG`Je&}L|7%cV6Uly$=j*^R~YY82#C$zDZLp<^)VcYQkZ^(_%5L)LfiKAEBG%B#jv z$-COhTy64knWx-9q=G9vP7>Kc9BbY^u=A5VBJV@^vR};b**H~e;9BKHoKPe*?bD2w z0CnTr3_vz56k}+Il@L+0vDN(43Aa=P?n%2XgvDRlzxCb~`;&&pw^iSmV}b+7K~bt7 z`KGLo!ZI23(*1NPQ{917`0!e>TWso@&L*mohs!%K#Faw*Rn=fxyj4-2>!YZ4pk)~2VxUbh3)~}*YmXjW6@;};+l8Q8KYE5;BkSE3 z740lt)BKq-tOS8SBN@>RaIVCX(7_U9qp9y@u$iS{T+_&X<;vRIl+M{4lyeLJY$*P0 z=3W0tKksTFTtjUiqzS1f{o96lvdNm{`*&q24$HKRncFx?(awc2~?2NmdoNdAg zv~LxV)>@m%@UYwYCCF8Y@Q75ucOZ2QF%qdWPx6&VD*jIfmE8o3r;_2N9p0Z5+n=~T zeF07#dTa*RH@^QfRYbj;;nA2zvEp@sPAvZu^2icWeVSaP>}MIbhpC3dHA-a@i3#+k zMua-Oa?KoxiJmm?%bvamT+#gg**YFbmTFYUBuv*GAE)EW0;;X4Pf)XFmm6zVx0{bQrFsxHbKslW2zN4ID8ArGs%MkqU?C9Pi)RHfYd8xnfh0k7|t-&%4|N?XN+|A4mfRiyNdWs5dwMo<@mVhVa>mN z4x?lNUFiia+_E@qf*m5GFeOoWi3%^>o4aIU#1H>n3NsYq16(@)FMJYcEGCsKE#OP~ zEm&K85U>fQS>78*CBoI5+h(^+GFb2E5Dwv2vAMvNW`%;NmZ?oj;Jpk-zc;+q8>hu* zsm`%JVf;&5;xTeVO})#67G4c&X58D+J#Cl z%G~kiYj>ke@Tsd^u{g*knjlQY(BQwo z^alspdQ@JaseXdH0on4Q*B7_EdEgZ~f6=5wm1(Pi>s$VwHk1P6ZsKa3U=4 zM^=+Iy6H3eciU8@3Z7)JICD%CtXdzte@gS6*7aGJ#k&U{>ipR}Eo|%P{3_nQa&_BT ztdyCI!&)pmqHle2|0^}>`-arTs^I-14hy!Am*G50Xi@YjW8~BJORPwYExT}O*nBgw zd!omQHkq1*l3?vy>k1^$6f0@{W6byyPEjTX^Rz=dZ2qx`^g%#z!5DOEc)_Zg4qIa> zqOjin_#9%y#&qK-T;)FOlbk*$lZ?!D6m{NLXJ4BocYIp$2(Ex37sdHJ+B;o=8?@_s z%M=X)px4FXi-u9t9iE&|O;=D!rZy{Ib3!Sl+7AG#X$Y33)P@C?lwMR=ILjhKvCb-?%rB6Y?>0wTi`tQB6pF6>w^wtufr%knp56rKEg_Z zY`Ve~GN-ce%ZzJ!n;v&utmWpk2cF;^=J}Q? z52RdzDR58#&kJReyu!DUKRCRi4%}F-Ralq1n3_R?kB?WTwk;RCR#*X5Q%mx4+)CFg zMnZPRg@zP0jpCVx5SJnvBeLfXB~y82uKN9}^=fup%pxgdZbA9#*XmW_V#bOvHOX9n zTTjrEVP@RGjE4=~I!@7X*nawZ2KJA=K}|I;DIrgqYcUaD+`D$)3&kpKv^Ga<%nLbP zzXY>*dMs%njek^?TrQ?6gVDMkq8g*8h80$c)ByvoemtC;awXXiF7z3vy?Cde3Bg3- zkE5@cdly{~XXSwz;5}Z7f@1qA#31 zLxDeW(ufQ7>22#mVCDj)WJl}SIpJRzNRVBT$Wj-I%YUSrPkLEzcRQAm5-r4`_+QLX-o5be}{{+pA2um>PWTSwBzq&%DbT zW$%}0JAc|YT>ki_kgR%)#W$BGj=mr@CQ@685Zkm@ec8n)tq**U&SRQ`Wnm@%bKHM_ z&V0Zb+vU@72&Ibg**?;+RFD1YNGgcjA3zg+A4*||IYTf#Y$PGls_vu>?PKbdGW+$U z*`M+tV}#YDJzGDt;a>k}oFU82E3Q!dbpTl3;IE&CMjP&7ZZ8TbP?^K<`3lc;wv2}V zRPa_vAR?O*IsIqDnbUyV-?xc+(iSmbX<5%g#vBSmW+u_vdaa@Wyhkbqux5)$3> zyv>>hk450S>TB;yp4o7#qb;8?h0}WT3<-h#3Pd;dGM(H|Fhi10YEF3N-OAnFk9bOZ z^BJy4rGH%Q=zwCL5`G0lT@RTTiZU&4>1na!zs5O}nsf!A#=k6t3$%P3XT@I3nI10L z^Yn~`N#3#cM582N3BpULUkjDv=&V-rMFS5N{?TG_T5Yf@e((7FJ)Q-Sb~G7O$|9=K zN<>R#&;x^8n2|9*9a$N8^`N!^5wSzEWADA9?py=XE5QIdS`Yn(Wc4~~!|j#!EoxEN zus~D%@S4OHO513E)&F$X=^i(n9tTy~t4p=JH8`rK<0v_ErK7O2{&?LYe`ahIQ=BKU zlEu|CVC>Ov>FeQ&$$7^T4QIeG)IIu+vt`C4nGxV?wH+af6k%0@SDZsP*pTNi#W|pH z7#P3q7F_TJ=CST+?rwm0EvXpr7-iD^5gOt5J!~5StcVqXhH8Lv|4fatjo83@&dOfQ9yb!q+RB!^7U1p5weSgTW zrE;CyHHT&)wI`VETOK3##S?w@UuM3+&ZXc?WMx2|sG3!uA`G#nzo=%yh12ArlDe!2 zxARjV5X)WuUEYDe?I{rbB|!3^*mFcG2Sv@&@s|G3rmTZQhv!`j2SAw-I24RiLS-d4 z_QDaoQkN&rL?D?E;~M`wbXe6^<8#WP8#$baD~^+Ivhq{nUA{?XU;Y+u<~P5721*f> zu)1&E$Um2fIX@PL1piZay}h7ZcN8clOgq=BS@Mm5HPkS{7-$AgQ>qJsxiZ2bpJjOE z;yb#+U^80|-buW7$B^$<9^Rv~z~5~Re&db^f07LD6o5b11QlD!l{Wsad8SR-^RM-~tn{M#LY1|*`<&N8Olk;`v|eFEq@&I1o5dlx{sAmtrJ zavFWosH16P7!6xAE$D;M8{K)_DQ0rPY;zb7(sMj>v-;>uy6Oiky2v!%YI23423J^^ zVZRNmtngMU|^{^AGymCS{G`@GuGtL_BUzZWZ2WJjk&bk#3bZ3 zycos@0ykSH_Oy$qP(?IJ+VdN)lv{W9lYxj)Q6=U&G#z^Sx488c^2=F{W~%ZkU2+v+ zTZ)09f|s2Y%Yn7u=6S+OCmXgAtK`XkMN}6q`gGU5{FQtp$I$MRBXs+|69Y2Q%aRw^ zod69~jy?fFNc$2zL+CPixV$B0qFpU~Tq@&GIrzPZS2-wPsW^P@(p!*0RoN-13T$<0 zRmct|Y38KxCv`_kPJCiKQ~Zq(e7+D`pja$EC>{L4t_>Bd*51;1$7mR0@*amZ*4CKw z128V)a_gVXFuQp;y!zqf@8Tl8zcOt-rr<&vk<|p zbireUiNqdv0mq#8ZRSg|D8fM?Gqtf**Chkc7>N zJZKO+P*_`04BKG}!5}&^z6P;QjDM})zyr$E<*GLgkP7eqDVs;+-16+OMN_dl8?!KpHo zfRIam2a@zPzQTmWbFMh`;iq*aYFF?e&XVGjQ~i+Q^QAoZi;`ox&ms4hYYk3SGpnDr zXLiVX(|O_UZo@b57&Ajw8207k?^0*YcjD!j2kI?tGRXD)4bVNf9%DwGq&mBGmgKPKI!hb=tw#742(Gi)l0=6FR2 z3Nh_x7g!mL6{@@*r@Z6`z~Tqns)Y~MU}j`71H@^L zIe;f$G1>8C9d-f2gcNzh@zXHKE)jq)C4w%pOZ?U_RM!A+pGFczT)zF2aByWo>r;J+ zzrnB67{Rv#cgHNMutI938S@%&jG*_L)k)sNzJBuIoi{-NfiXoCVEcXnJS|NSCu!6V zm*o3`a>{XsYve7vCswBJc*T&Q&!K!rU#FAnKV3G@^I;jNAYxw`49Q;|oPH7Iw+5v4Oyt4?_MG> z1yI1L>4Jn?86~9P=Z$FM{+N zBd!`A&YC4P$!X+s(FaAxj=b&xHH_&w&tD@coStLTg$z}cq(;6mIcCPs9 z2u{nMzgsjAL4pL+v)oc&R~|KwH>BnCGsf7ZyX3CtB2&h|{Zmc&1F~ptniWU^&ZImw zTy2!>;$w%RIy}2;jPqGNPvLRvt}@5Vj!%b8 zE_cvWV47HDj`5{qsYcjW)M^Fz%@`K@DH3Gswu`)xIG5#?&; zS~K!GGg%<0F@0qxi8~2i-k>XWWh^lDS`hTT!T^cJW&UT2_*Fi#9Ix`SW?-TPB!=gA6Q{ zi|D0;I2{iUDvlCUHNi@t&z7YW^i8FuzN3Zo<^MRzM97$1m48?(<@xgXmLh^}P5lu9 z#8K>N$)Ka}R_FoHxj4I2P)x|4VWS>brh&c@cHb6{pC)~+O9TlVlDBO$5jZIMPH(d8 zWR9zNN+?fAXxq93L6}nCOhh(i-0=Q$fR zU7_PTUo^xZiodM8dh@bCrecDk6<7{_I0eynF%`N%B?yy>qng@!b>A;Tg@3`@V>VZ~ zuoR#gH%rIt;N#)k+prvO#l7iW=HZX&i#qn}#GVCN157se){RF;p{x~|<$14u59<(((sa~n3Lv9DD*lQC%AgE6Hb_JDeK@_c+i9^FUKod|JCVrU1E4tN&r0IbNSn3Opu&0xo8hlR$`t;2MLOdcob_8D}hau-#z(y}ROZ~Kz_7HdL75gCn*K|hK0xtm+=^!Lr6 ze6MyjuqP=F6_!;Fgqq}j`#;amQ$4wf%&&Ie?@isopIPzT@>eqTR(^ZZu zY_)K7lH4f)c3t>A*fwm_ElCYxpKNKBT$3(tfQ2DeuI|=>H%fy{dD|&iDpgV%>*WKD z0ua6|mOwt{Ose#g>+YR9^ovq?BO#%cF90U`UqJ<^p+@h99+|;h{c7PWiNiW`u%psm zbKS4Hp;Su-8nXu{UsiK00OU-MpNYNl$!+sa(+@EHl}KQcAn>|Hv3li|lEr|=2WQYC zHI-}YgIuC&{PbFTwQ=lWNipkMjXgs>nO|@if%9@Lk=@d2muL(6$4*#@z2-{Zf62vR zl%&&dFr@E5^YS+*(0wfwK+|Xa4DErG5oMp*<=WP5KQBZr(wU;RXcp)ybnUSgJS%ql|b_HJT;Ljs8*@PYNRNnK|r(*Vi0-_=jDe z#|WuX`^w{Px4`_DdH!5qL(R(K0Vg$f=bm^XLTb|MvaO7Mn4mORJ}@FW0bdI;V1OX` zhI|q`s>po@@vk`hnxG)YvlUs`r_~>%e+FCWYq_;u2^_dDGW!UjKy(cK*#VlKc1_px zuUZpstaMh%mhig??x4xFbR0^}S7^OcA~bOO$!j5K2ydHl4@xx@v`0`RByBorqPObS zEPY;1rlp5!0KYsx@EJ2zQGdw~ZY5fn=QFo7Lvx%64;e(@pqws=8w&XU83(#2A22f3 z1kZK*!zBd*qlqxHhS6HU4+mD`!x?dRs5w+EOhqaZ@xxnPufeb5A%iY zuZ5k%Tqg`W%y#=i^I~GxqZXXp+`qT=(htlwRf9n(I1b1Hd5$3}+WqagNv^A#zB6GA zt*aDOz2(@>z~O;L{qyu7klVT*ySsV^h&P=eAdVNWs=`rmi_LT zr$<+|pMQlQnfQ*`Vs1&wwn9}3bh_>B9#t)YiR%FN_ ze;U)0Y!tHk`!J2x! z_rBL)RC8`GJUFd<;js6-&%RExB>hFjQkB1u* zNVbHW)I7MQlYYXy_#R#*wQX8l+=g`U+eaz$f?yIC1m|_(wouQ&+tD;MQ)C0}!<<|( zZUbGMYBv@9-+Jg9$OWpTZRPi02eE2*RAW-pVOv32YF{gu=qUSGR4srsmB4Od-MSQz zV730oc46EU1kL$-x|J^uN(J4!pSgki3qHL~=Y5(v!CJy$Bn?RA9C_u2)m<4kun$LG zAuh9S;l$};#NbW$%v1XNpX6J@F9xVvZh+KBl#TQc-E)=Hl|Fczsau7QAcypbXs}5x zpbeAbwivN?ymEo^2IZdj%I#Wv>Mq_p7v((XGk>4t{)FUbG zU?Ruvv|0$CZsy(yBs~m5eBcL+B7&z6(9#X@Gnrr^*Pndy{qiAg433Ou+7gH9#>bx` zfWh36VDuYJKFS)VK=zQJ@4FlGANPoQ5Bv{eqn9XDEPs_yANEmlUXIaY`mKr)qRJ$? zRXxX73$uW0|32(oCijygK&rq(|6yCX{~5xLd#Lcz8?rnM`qsa}XT90OVlmyjI{jTS zZK0n%Lp=z){B#8Tsd!oftpSn+*{`^#r}2u9_;j5*X(k*>Y^E&vwI_DYC3r#goLN%g zhSxiQqAY=$rh?!wbPDr9Y^}AhGF~kj{OZrc%d*6J4Uwf3pIvW9abmUNb;CLG(DPKM zo+>9Kmgse)l2qR&Lj*)|D6yTBQh!|QR_-^0bthq=((T?dy;y7#FrJ$|5+`s*8$vH2 zo8`Qu>a4}}(FIqCHGpw7&ib%vgChpq;qp<}QzvyF^(Ti(FS*fnhs)hf=Y}^WKdG7TNB0ZtUFuYMZBS#o%gboZdK_xC)n8 z5yM`FpWVDKbh22PQLMHbw1P0&Oxt3XyX( zbNw`rWGw?^T6G6JeVc6{Wl_gEv*j`mMsyrEq_l9tSqLaB&7a5w?4!QBP^Us&>XF{- z*jMZiY>@6}Yx#ju(AnQd=W=nr?!Z}|Y>peFeqKOH(k3-(=jOv4IgbPb%1CVmV7~U} zFS`h7fiPbs#-FUk7OH++SHJAr3+j}}9?syfF$I56`s{31H_u;{@EB@L zCU1HZ@(?rkFExsH*54otq4GE~wZ~`XPBW^-ZX+U-S-MFj*=2DWOR|-%sz|6fIQGv# z=D|gHjKxNf9me5b{NHtN(;eWEWWCr97mxQ!b(xkhg2eKyGPhQmLk_Z+M4exL_sl^Rk8r9kTWQ(YS`smY zZxO6&I9k&}vAAdpy7MM2cW2YHIzLf^0juG>CnuHTPk>!pi}$i`Z~$=Au4cy$H<`X# zn+0uRNTd!jdnzju7fD+>wnHdU)Jg*bwbDJU3(iWO?utcjw~ULN{`X0gfB$&^rVJxlt4&If zBJUi(h)CcT?tKukm?yl~#vV_!byZ&P;f>gY347C#jF_r|uvEioD-_XLW()9owhR|~ z%Rfe@eRgT*Cjn=L2d%a9){a>WjD2=Pk(x0JYGROv{asUgLOOj2;-QZ8N;qXEu_XLS zXZdqJY{3(u9Q`_9>mo)3hd$n^@;OB6uoOncliNM}GlSWz0Eg$B(Crd) zz_tigG8_Yf5e`x(AOCnRYwE1%iF@l?_EIolAHp;HHfaV8mk-uGb^25_f4M$fNK-tR zt9U(@nIZ!5kzH%JmLL6|pVW#XVLHdfX!_2@uv!$Pr-2CL=KzGVN#JZdq&DsvA%1#+ zAB*msa#2S(lkOSu8cvrxP}<+oBO`qGZop}Pz?6&RFhGCHb+;?He)Q|4*SfEHi5(XQ5o5=tnG=fD?yhVI**msvb&bqWqR6lm({WQ(RVF$Iv7;KjA|eX=0-Rccr6P#1twS>E~Nb z>Est@F^$i8hGL`)@GCXv{ax zWxaP;POdBQk$i2#%&r%L6Z66IZkm1W}a&C}~ z*_mRN--o~eM)EwiSY9~&fu*k&PhG{Zx*Y9NVYSy0xtK5+2Nd$Xj`T{DH+UmV?>F7$ zd;+_T=;AQ?23~@truy-3RT^=U-lJf&jYRJ0WiEqs>B!kPq^4=s7KGzFEU^pX?khDz z+>S!U%^lIjXRkD~O)y0fMrJuy74FoR1K2sYCM6e}I`9Bu*~V28sNa6&=|c^FBN^L) zi%T@K+d$F&eivg^hP)zx4nd2GF2d5OD0sy_wM3py{$Mv8Yc{eiV6sLttC`ioeBtY|Z(u|*cFaB3#`cnTV!#v02@z6m2A>Rn|T|kze+YloK zwb`%nrDG0EctdmExG;~*G+L7mftldviIq9XKeNR8>N(P)-1byZUBa_{shnYYV%D?U z5IEW-vZ9!5c4yr&69=175OBwSM(rYQU)?-3oA*b_5S5}xA@-ujiB{}D>i=#YOdB@- zw9z0Qbv++ma0Hy6aDpV>Xo2UCC(PM9o6hn~F2SetSa0oRbE$0mJD8p4$h$89BL#C( zTdE}^Msa-QN^CNVrC#w-^sFv1Z--e08LRdc6>xAhw5Ls+b3eEiO|nTu1dZxJ!zy0O zi16cAcIQjyUS(-}M$d|5#y8%t1%90Sb!4KWjj2hajf`&~>k(Rka$$b2rQ#3h_v6>Z zH9Of=Aw4KzIAn!;-=MOg97BBn2oPa?06cz$Z0BTL2qP_@zj}M{s`c6Tq2f?}DoqzOJihW&9li=hFaKM^8<-Xb z#}*-~1GTHU9cTTSR^3Bg5+2(|;x)2EybE|wULvM5wT?g+Y0-VJ$3)n$I^h8= zM%c@w;FCR9%uh&y-?+_B9^qSq!>pjrJZ!Y#%?>v}x;lr+Jj`~FWKhmLR4V@!HSpK} zeE%71Q|Ka4&H-+`_ct3CCnTr4zeo`i@6)R{IHV*8jM!y>5^%Lu6p&z=yN|Jf9e9Jv zBpWTfU4D&7o2wAD;%?q~(Vt;=G*D}TbqS=j94%ciP%_)=#E9o)%>iMI*ihT+SB3!? zE*CSDfze`v$053kkfxwXnXyTp@}T2moju_wk}1fL|2+QH4kISyt z6=06mOeF4YQrF<=*Xg9)0}H-dufZ}=xx?Kl%y{ORO^qjkS-x~2)QQaXx>=eNf1A&~ z(e&0}Gr{7dprpYSaQEkTi6I&B4L7*GyK*6HAsxvV$*qK<+exEH&bS^>cu^Iijl4BC zg&Mz#9_{IZx6k36)*Yu?Q;L1*6{DWgZye-u?Re0#P&A|ow(%DwI$~NoL{5A+-NAG9 zP=;s@6=$Bst8MGcn>P<(I1Wob8yNq1EO^oy zopX1LSh$}=w^KkDtMGBeXoT3AVlc2=xF+iAZ9qab*Mso~)gHcm=xiF)C!jve( zpn=g41~OnqJtW{KN&5~PyY$$Iol$aze8r08`c82Trt-ucN2hgc=sr96H6AyAN$-p% z^@(@~dqo4ZtGv3XbU z8h#wLPdy_!NpuC=ZJvY$ZJi)GDM7x6W01CbF+fgu8K_Ga6t#X+)v)X@pVF_9o|>@iU^vYIry zQ9yi}X@Wq2r8k3nSCffvxa!l6?0tXu8-X<98_=;EpSMyYJJ+*g-PH4L^C-kpJ$J&D z=C$w)c1IRrB^k_$$Bo{sRD#b%^$mqYHj@~Kt=$|Hy_L}Ie@zav3o54;0XS~Pt`+Ne zK1&4O7bcEf{5>kS$Ym+^7`~b+@S8g{=$4iapbj^dn#p5*IT+BAze}Z}BZ8C0=69PE zE;mJlq$^7QZEJHd%9OyJ63U{uR_}31ga`{f8P+B^4ubPKm@klB^cl3!C$K9T+0W)K z{YOt_vW=$P#YRRWW)5pjt8MUYTkfBYg_S;E)7UR|=Y`IB8fLBNwQ(>9$#$Q!#>xP@ zTCSDfPUV*S1VY zh>PC<$aR^qk7S+)^UZ4!)J5b^YC7~zb(MI4{?i#Oh?Ie8+tHtIa_3}+UJ1VYFb{@n zV%3YQyT+<$2B#T}5-MTSM4A3}s0R$&K{$@CozRY=%=E%hF+WgMU$B4qXdZ{(R)eZ} zz1PN}PdmTlS%nrH-ds zV{pz_$j;|1NC0cV&cgd&Y-K4gv$qQVp*$*D%5@PsxyA_y{G#+BVVgW|ymOtgZ;BFN z^c-p(AuoSiQ|+}t$oIz;qh$X<^HNG1tHaZ5I=+yj#s48;)Uk(9z$Y8ck&FPZZ^eLh zziRq}&+VpVbO&RW9mOb$9eVb`Dv-MrVk9{olRS%V5&S=k>LFIhg;U?362A@dY zq%4pN^W#-FIZ}?4v;QPvK9-x-?HYB@pP;gG55s`R5Sj0&Qn94e8M{2`Iqum!k1<@> zTW!<%IDe61@PHJ-1HG7;iuHYtYo1AE<~g(u&@CHLpS&=;yY9)EwW8FI4U#Xd>?|m* zw?mF3F@tM8?enl`{(6_NSHH(Wc_nM#8*hriOxFy3WU%tem^>OO_NUAZwcWk6C$}uUZ)(#J*jc3`EoL~_YW|8$j47|NP+m<|h-F|`3BHB#f%l5> zwGKkvtBclFzdu+e_3IuJvFU)bNe*D?pyowW>1++;R!5dBVz{k#u+36}i4m{nXA63u zyD97u%(Z_HGC2;@cTO0kN0c>PW! z;oK2s>xN-JoC_DZs7>Sd@qR|$52k1MkQvS&a;(QFKX8t)$oF?a$tpJtJJTO8M)^OF z(RQuMX$>Fqds}DF0=vDVbZcIs7wGbz*J19LuAmkFKp9V@h?4imetHQ5y|Gy5+j&o6 zUHO#Qp3XRR9(b@YjuQSC#9t?MIVpHi%d!S(i5M#AUVNWKo?3d)u?gIhPJ)MG?toUN zi#M{WRvJO{8r%FML=<3VMwmQi&x9e1#^Ig?RI(zQ6yW*#x$-SbHGS_6*~>#fjS>%o zVS;B!s)wK)SpL3duyEeo@syClE1S_05AR$8t*Yz{;+Yj;Tm_##!K(&-XQ4mf>FRpy zb8Na5$HKErRC9RG_jS?Sduk_g@FDXlZsHfSHMjPgTA2iTSG`EZwzCggeN z0qbsHFkj=2mPsnFR7##nJRtS|1tjK8*?g);eyfuV#(|b!TeCur&z{#qdW|)Ryh;e4 zvHkO(-{c7~&9=nx2tmS$`Yj=`8U>_#c}B*5cZ++0F!JZ42h5b0J2pXg`=*Otqei~; zGwp!MxG-8~L=56z(UsB-;`ibKnJsn%_U=sW=uq!NOzrMsgxLW7k&>)@8p{UI>|`-s z0ueApMb_7Qf9F_k)W`tG<3&dyEneLUVQpL#8fIKp=ZZ>L3N5Q&$C|}j{+-tJV=v&z z7UG|?v1wR+dMY2#1?9VgFtDvsAl$Jx7~O#xjmRnTf+IO)df&5&2y9t@f5_5S#A9Iax#LIRS04;q_u!_{%*FNzaXgZUMtfnL^SBJ@t^dhaX6+LvIKM zvQ;d!ALKAq`O4;4G@g)(?!{-`Ey*dZy)yjTWg2k)Eoa=c0P*wHnIeb1ktQoxU8Kk) z3?i6A^6Wp{Qe21q{(=$4Ijwf0G#I(*l(R##t6#$qYQNIN9f0ZfUJ`j*2ZM#PhiV%s zU1d5FrT=Hffam-5F0jkuj-a8gmt)Afk@|S(4u1M!6z;iPqR-DVH|8#UDC;P7S z0A@g$zYX;$jv0(01dNbgr<*VDTCI&np(#J6_s)idCzKwJvRyn4i}(y|Q&n#r#)5^? zy1!*1nMgQ;{B2SSN~%^?FJ4$4$FRSWX?_;_;)bjLVB%x0*QEC>)R2YkMK=^rxmW2a z;2fyd$hc+$ARnf3LO&R4H^E7q+>O(<^ya|cab}JUCH1#Cff|bFQ8wi`WeX_CQq|uj zZ8B|uynKgM-x`Jtce-LcU%wRl9^Eb^beet+t|7Yq%V4wS*O9_Ewy>pKNPZ?z>adef z%Dj3C@m?$5(i3|>8^}u zZ_SYP$Jln-A%k_(I{GEJL-H|f>-OHoCA8uI;KaF>9P*>qv2!w z;pY*Cn43<68o>FleVs{%YIL*UmdCnGpM7iif|yn zN2IUhlOaUZhHIlF!X#|t#&+hgUPx#HSI4#b{n!x`K>7J1Uov)x z2*njX0FIvajAOQmdm1*oGNB7#DFoo$L&GrNaRCO2Iv#I$N4a5i)doGMM7f@L4oQVo z()^}9*ELRj7BpJ^6)|z1Q3Aw44BrHQb*Ryeff>Lmd#yutwyTs>N!_8gTV6r?m;>&; zYar9Hl`KZPqWSBPfp*7=X5}H)HP`?=7%cu_iM*`;32*XY>ksG4MG5rerFF6efWZwf z>RG*ioxvQ$;Ldfd({rQXR%5Ly2eMB%8OQ2Kx#^3861O*xiLid15SOJQo%%fFshhyL zZl>IPPUn|0;JF)|nA&SYhKE6_qSx!jUTmv8<%*^EATz5tejmVV>#!8A-u?ePEQSer zsT|@LL#i$KqnjPR6xLS(9h1H}6XU_373l~in7%Ox;Yn#)z44MWdDS4!HVzx}V#3?= z*7j*ALw=l9VG6hY%9FH2?S!{0!Y%KSmi1Q*q!bvqIl~UswA}|H1Ucg18Nhnsb}3x?p)(P9 zKvCZe*`#Hq4H&VGq#Q>gM(aSp>ynKFitv-ZQgBFct^H<>`Q4UwU!7XOT;v$@ZNXN# z)~QoN=y_-z9Qy0>(?niR;QTexK_u=XBK6DZlxLH2JuHa@Z`M2jmYBcT70YLQnr=Ad zu}3!dsa_yZ+pbOnQdq6{FSks>WOX92xhjvaP-RT82eMXFB^ZAKOddJN8%WfgIh(?E zU3ci>Fc3hf{hu>A>PU2`8RD1=Lf}}Ps+LkXPv*cPJOz>uI&kVA+h9v}g+cNl)`BIy z+gn=G<`Bm!7g-->Y(n$fqfmpP3_kUlr;7VOe`D6N=?gg7{KHyfJSD$zUq$ho@x^Jr z)$k%qr0OAR3q1Fh4lf8MSF64Y&jW2a51N7oCftMarnj|Gzik=RcO^&s?}B_QZ-ME! z^H2zmDXEJ1WvfeFyc`7jC%4yLzyN@6FKyO#x<_i@d&Bg!FS?4npY+KwZk2_ADq-uP zr}*>7$i5WM)d`S7BB-J+=A+!hN&NoABWpavwagNGaL04BuvSpGHs21kW+ZHBPX1yA zq~J)oR-qE&+PFTP{6q9V&W=xx`7K}!RF4L;w^VwDbg3C8nK@aA24K%2KsY=<&BOI!z$nv4Z&V`}{Ic_Q&`GwI z2aH!pXRpvEIXaXACiqlNZ8epN$~^5d#X3=u0DF&(FqI03JQQ=adc;b}dH}V9VC~({ zf2SF;FqDdl{avCbFDIJ{PgtZ&ffY`93GZQeD`TeouEq3^-4gi~4&Evt=otcvoMWMk zjNdCY5x$wa_BLQj7q@OEr8OnYlKWucQAR z&EKJqcLuj&2eTBpA2Lm)V{%;-TBIZj_Og><@Q~T*25#09RXyQUFE#zE;x{vG6@C5^ zUX5hv3Z9?x&=?6nuIe&cvERf#xxQvltwf9F^UT9|nR0L_cYGe08Ak{KgDtAQ0;%G9 zaRlTL>rf*UpYml4mILI4I7ih=m+lP}YM1g<&m|U|No(N#u#Q*!)iny^`$&1H106&< z9I1m2Sq?8k0#q`r1GKbfP}c?Z=EpDfNM{~}*~p_u>%b*u!RArezv zTwMd~e4PAWPsJdhini4QnfxdLhzG8J8F1s5^yC+jktgWX)U}?1(-(yNs7_Gj*63yr zsQrS~mo-C=+bL(Q>;G-C7g{lMx|;s!yp7NA7e}{diD4H?6)&)VDE34?KH;$=`M=AM z$@N=qaUL{s4*<2Wae)$CZ9DIy5N)a_{2ILiC{|wQV*%mg7-k-843A#xCTCp!qA2?l!Mwt*%SwxDVsW z%+Vebk|0nY?s)8L!P$qy(_)YEh8!*H(Q$V!A z=wOLATS9-Ml&D*m%_2!d86*+3>`r(S(*;JVJK~c)-_!4%*wAn`ymNuys`K@MJ5fbZ zIMzE`yo@h&O=O^tF)^$IWIg&WGHyu2L}3dPs&mH%+JDdd^EUM@zLgw|D)yRyA=GRP zpX%qLtpWt;`RaV>Mz9{Hc@q?0I*mlGn=d9;`iAq%)|e-w2b1dD&|B7@Nub9!E)9ci_A5CMFcM2K6%g zs=Yu8L^X-v7!$7!CB4>-xk_G}swNP^4Au*O(Hf&^Tmj@0N2whLW zH_z0w>_!o*udFGgYl9eoSU(>=o4^Vb9+8X_V85Jte(NB1z;AGvgs%r^axdm7V6%6& zV6f!wFZ@v&K-(EjLVg`TA{peOQNWF@w}z_EI%>AvU415^$=Hd16Q9CPyWv(7^1>?5 z+D8ntY|#>w*X#tFW-BJdI|JOyr_bEaB?K>NR+|o&98ZAUdN0iC&>%DgCE<-Zr>GWhS(V@!DxdMEc z{zPA}B=m5p``XAG1Xkm$sH2E1xZuqvg!MIm!8s)m1- zcwx^iH4F$@s_j1l46ZC7rO_L)CI2{=0*!N68MvMV=M%Y}qi&s(D=ch< zP${g+)eRN?Xsi*$$e;L7z*4VP^v`^YlpaO|5++bVdE7}>gQ)iE#Z5pj^}&+L8A`o6 zz=L5_yDr(>{NYoqO?Bp}nT9MM7(&@>9l*gZ11vxlkg}y}Vq*%|qdVF@*2o%gfDQS* z%%%&}EfT3%O+&p9xez);ypak~(3l;I;|5SThva*E^Z2d6_@oyu!6T=saeO|kL zK3=YEEUI;t9-?*iwcB$E-scyXbsK&kn}Tg60;s zR-|osPWO?l0j_ApmiKn95=o1M?@QW0`Vig!x_+e;oxhxt+Q+2KIo5u9#z=VH#8N<)l^ikrNzRTx-z;$)63|wDYyCYs&1>J zU&+z=(<;qn(f}S!WqL$xdHZWd>m>u{0u!uFo`ftU29}jKpyp69iDmWf%`qY{9xAFw zQMca}s=T-8WR}JZs@H!&!Tgc+{m6pSuSTxYNkif88}?t%#t{CUhQEXLd!c|v9s@~1 zITz$4^Iy@8VgBXrO&ZT9m=n?C7>I5j;kc?h$YChG*ruiD|4L+1R!K|E?jeyWETf;Y zqw8jaej?>qZ8gxJ%_<@y3!UJ@yIh5m*cM!YLV@pN^(C+3wAm4LK*av#VM~X zPIFNJK3#yiw;;m?LWaAfv_>O(qx!;Ft)2$&9pCp}`G3gthKsWvFq*CsR?A)X!wuId zcrY-5lIqMtY!7vgXA<&>3uG@B+@!QZU1yLW2()pJT;?@uP*L6o(ngUx{mY3Kg8~#2 zN_hx=i>ukL`A5nLHCH~n{9v4eY1VB7*#r|HMn&2 za(A=2*G??=Gt3{l;$t)!*fI!~bu43|3n4^J5Zn65PLHwzU|xR5J~q2D`Sk{3C-+@Z z6rVS&l~FJ55x*tnw{1fqN4W$>?&v`U9PMMTx#r;mdz zW~A92IX30@Ej_t4c?y5#=Az@1uBi<>Y7R#TH~0JX4?I;DxOnpTqV4j4G>=YH?AK~P z(aUn=I%IQ4T2u7wIPV zB!zI^0zQ(C(WI0NUn4%Ab#Aq(NWOU<3$@|5M_U-6#OHmbo8blDckF0Q+hB9A!QvUQ{*>4*`tKXTmo(FG`q*uds!RZEE`4Z38DT3PsspuK_>=9-NN(#i@$uEONP zq79B~W+SIFO#qybICG2Uf3(ZG$dg;vfw6bX=Wzw%HT($1NE$kckgQ;55<^c`By~gs zl~OdLhS~Y8iB+ulALv0aL8?PO&f(zX0~MF;x;IxH9?Fre2W_f(ES#kINCc4zlkGdh zOY)!4@l%8GZvIa2U|hH>G~({2K%U3DD@_VBOuI$ohxKb$yBm)@b;20Y1RbMoeRMN5r^*``f-jWRE(b9r+{|pl=duzzIxo+V4HE{wj6q@*cXZQHQw; zd=y=U#~Tcmg#&?|&3?1Knz2fvs1YHrMS@gdW+uugBp_Pf+)EYqCgL*UV)s>YI&i0y zNpUr&h3(q<*=HoOu*dG9OQ&(zt`6tIZBe+frp?_Jhb7dQ&O&9SSZ z3Sa*Ypl$=a+lCv9=qDOOMiSxyajdqu9eSZE?5w?W`x|dYk0pe+8!;~TNz&ih4L5)qm0SX7U4~=i>|f1;YlL0xo9Yqgqk&Dv0@-NAF^UcyAxh~ zm(#mP&zeC{Z~_G5hJz|zFQ+_|NV?g2LX~xpi;N zVE=_o9!xN$_-zutL>ERx*r7~3*PXUkt+M!NX#U5Km%m6E+p;kWM38b9*={xK1&0o_xgXLPX(^He9Sz3LW1#{u z>0dfgf5+1~ZVEAdT<+>wSRF!YIM9J&aU6aNvqU`^Qb5^l2p(L)kj)g0cy(39f3zbV zpaHb%4{DmbZ949pXUkK6uaOK=dP0f;?yCt1{sulacxkyrU6o zyLeh!_`=E)ox~4IdKTm`(U38xTo2vY%;o9 zSTt=?%MP!XsgYKNCfUbR2uwSV%FN;RS5_8kor1vm0p>?gvu1c-q`|JcxMCud)3i@* z+6J&+229*TCkkR@6Q-Rt#9#4E*dA?(S{bR~FZ8OV+FyZ^-Zm;>d!?ut%j&MvS*yCQ z6&1XTjn_+CtOcT>pYZfZ@W#-nk5-L&Rryr z638DB5Z~+5#5Y!r!#>8+6U2x@rK&7CN+Vv0}D2 z^lpKwO<|b42c-PZLVXQ{6MV#j288u+?mlRiCVtYNT8PzCASR*KG#&ZVJJ?>LPgf2` zs=r3|xLocWq;PSqQ;a>{NB-gN;%XyKOs>suHU2Z#G@c^{cnj z^B1PBzB{D;9XskKr>)hajvD#w=qCWTO|y2U{|ebzfaXmV)k25x?X*7y$xnxq|ua4>Mp1qkfBQ0AMa5 z{sWTN&_}I?)XFebu+eBD!-c9}vtR_lIXRP(Ezz6f;Y$ObIa>ahisOAOhgPVfh&pT5om^YFV_ z;zy0+n7IjA26k?)4khsp{X#12HDa-O=CQF2>SzNq$2GFOSRSM+Un1?P86v{ozUP7| zvJ*Uk70_fGEIArboVEB^Q^W<9a#6eHR<5iUdDQ@=!;?|OFA>~ z0b1P6Z?Si;`;7RdHtn=)!J?R;m6XGAI#4%xlE>w7KzI~wTMrRbG0KF?t7UWgN!%L{ zxA`5wdaat%MyUz~GOepFhlIR92)#$wn{r}DwBUU zQoAqfjmyWJ>#fcQ^}sOi8CGO#Jh-n(Z~~0ULlFM0Rp|c~G)}%kyhoD8W+;yAy@bpj zXZ&rJpX(U=s)1P7A1iLI#TRgZOdZRk>yh9U26%PJcJcgtu28lTI!VcN0>M5WY#g=C zYnctVj&Zg>;*Tkup7{JG*>xD05Qh=;&BnKY`>oG1yfBOB{R=|>I29l7`9`pob9Hao z-BlD2wZWi$Ig#=ehd9KlNFZo~f5nGlJ5dIhTues*ni_|sCDZIaB*~NJlJXG9^s$?n zq?a)?HKxGT554&ahS}fXk!2w3nXn&LtcJ2>u=5W?Bs+qVLWK&{YOA>86c6k~VW{>M z(#}N=PM>HvCD>Sj)x+#ZUlAva;O{}^=ZQq61+Um5;I*T$`{8+(Y^j>V`woCU3%o+V z+o5wx+`U+?xXkv%7>}qV+v-+mVbGh-9be*-kwFHlc(N1| z02|NR6gxXyXz$jU>*6ZaBBQ2a_HcMJmG)v;=QqmJEpkBnPn7%h%9ZLxoxA6QA- zUro#gjg6*0 z=xID>?4VO>0(0X?0&Bk^PHxBEJ^MXgrAp|@rz(qTB~643j6Cq+&ea*YDdNjFOl5{; z`rz4=Hv%+XYLLqEc_j_7BJKNmsnj1(Jw4{F^}^%7$-=HQbb!7)myiE{4>LH3=50DA zV!;`mq!9YX|8P`rg5}q9Zzzi98EIP&jYPSAIegPH-yB{;^M@}cH>v{qZ6c(okvYCW(2>x+4Mg=4x08z~Y6cg{7@MJ(8!n~S9lP$iK9joy^PAVk`AYmY)h5rsBZ1)a$6l881v(=IkA?!MFw2^GUybdkQAFZ#Mtq&D z`&#ZG)`#ZLt=^WnxEOUkK!T>dKlGs_1qW*tVR_%d*p-f&T_iPK{w6hjuEM`o z-C?>R!7*-93K0pi5Rr9XvR5Qmr?R%=uHZ0)ROj`}79nL##)D)U*uH1PP{Gl#B7-b} zAUH51Pfl`QJJSK58nDfr5VaO#Z5mJmNb~#srV9fG;qxk+3-idJ%9uOG^pRZglhOJMDHF- zp^b>vJl{WHs|@}fNfW;Uk&KvlC?mIgOjGe#Ad!y(d}o?}-)PO%!EsaCyIv|LIQn54 z->LkIPGw4v%qTAsV0y=7Du=tx){c!4z0c|b3}LXr#4E(+tAY#%eEH*JDmQ!91(v1W zQ{}!&&~*@taK(tk3FcJ!fGhKck4EoWCE*+OjsmNJYkx+gtnqH%7BPEA!+cQwhNZ50$~N9Rr08Lo2xT?ssN{0VlIGsv0FEz;_Q+|Q zWbdAPXyrlA@lPBrb~80(I5bCTZFtmaBkr^Xla9_%L!P@7a`a$R9M z^Px)f{~#yOL>l>+?f-xOf7BI=CqgW6m&2wrH{(J(Y+N)N z_!hrPh(;hW()V=OEj=s9f|!d=J6wb&Hz?DBEI={eF-eG;=r!{B!IB_dEJtb3p^==g z|9_Rbzy)oaZ2u?E=s4aQa;th@lfl(51u~SJh6Y7X(8Om#m+&0={yKNi-02-_hJLEM zWT`aT1XcjQP*!7}y)+B|f3+Nm!dEzSrRE55nD0h3EO?n}1TrbfJKxy}w6~{i%6kD+ zWMMAGV`JnrQ=2^VAC#`vDzm2lfA+`t2C!k3fB`_)eK$JiOx&}oPge|~AH{3l8=xTO zVWz$7JzRJ;nNjbMo<$M+5+;}IO_J$=!K8bBe2%)Nj#Im#{c_bBUd(6XBXcoUuU%-Q zC)wl$B?UGHE;IZd+3?mVWG{jbPt$oyIqbv?8?ct%bZcxalMYZ;@jbeimpT!E257t@ zn?oh5hw(If1SqOluF|d|wYb0}Q*_qkwh*RotN|uS8cX>*x%R<+Dc^$1jD~AHia$R< zKEPfJYYSqMooMB!8uN1P%g!eXroU^Ribo)bc6QpV-^B=DnHJTVaK><0glM|npVtVP z7Jc%x$=AzWTFjazZK&73$xD&#p&rh^-(XLr?(R|q+B?4`^SvFYV}gv9pchVQ$9PHz%pEb@MXc? zht{7l)Tthj%*wujiRsNLRXnrd03id7=@|nd=od{t&gVB-`-6ph4&W%;I$PBGiyv%8vQ|`)Tt88ve=C# z$3yt7Nk=~zSiXOif6t6KuO}ewpx_aH*m__nc{wI{mDvje->U4orIssyKokR5{^2@@ zubVf}Fn8s6z7;sMSQN`S0=Pt>AB~8pi(57PrdR5>SMz zPqEoIrqkT|e`v#X7vKW_Mdtm#$wnDZVT1phsh$ZAS*%QQV# zTWVyBM2#NIgMO~;he3Y<99u<-WL)`C&k+N^bDvticX2G9D-KP?=bJFSb)2+QC%~K9 zo^G3L$Y59HGgjUk>e6E2qrSO;aqykQ5Db|=3oG{AH55b&na4IErdJk8WDq!=cI7gM zjK7}@e#AZs_Xp9yZ2=rSs)ODPq84% z9a)+cexsT?Ctl^{Zm;YAa*3}1$Czr35KW=QDJLAf+}_F(NYq)(20%So!)G3RYPzl_B_o<;@~SqIoH_H?uU0~ zdxyOTKQ0K%#jct zTati-83|s)(^d2)lpZ=urQ#X^nB$daQOT|)fV~1-t0KPxP~h)Pa~738nLs|9`dD@L zWI`1fgzJ8dGg5!3)AvqbfmYdH_9vP;+&M3SST_&<5F$tJ_iHd|nKT`#StKYRTn}2$ znF;y=2?+;~weeT~PxsK|A>lymxz@HAvv`wc^XawpRhM252-q+G5Tc+}D0j4&w0jwg zDAXP^y~U5p`6KbGPo-@MXC5ZdVJg6}TQV9Kz zpd%P69Of^9`Ba{8t|xtwO+Iy7TEACqz5~C^`CE zP?kQ&t^Hag#AUGGC?>!R&B4XvdZ6xJUGIWDY;E}Pu&sR z(E24!eSY}vbrH$BxwTGjycDP=c4A2CEEq^1u+C*%5Xd#05s zZ}!8AShs@dnIsafq}yDUK|JQi9y7T|#A^Ow*p=@crJt-xHjq9Cg-Q~GeF>Fy!^WAI z`nBk?Xhz?FhCNa%mQ?XTm$YVtuiC?yWi3lzX2d&jKJKnY!7gp8=6U%`TzaU$Q&_+> zu$uVv?T?D61scn9W_*i5&MSFmi(jUe@P6f>5jaKEwyMzRwBDsoP3$8ih^Ink>NwuO z3@`f@HWkd4LQmfGyJAH!6`=7Eih_kX;CmbFFz<5Gv6LT|ShM-D3Az#o9Pt6F4Q^jJ zkxhU%LR3uW&JAVOH`47*Vp)FcA-~RR_)|whICZM)U?fpu)=Pxeaa44)Jg#+HsLLxP zo`UsNQHFOk^Sof>*wEKL@kH_S6>O?d+NSfpOiQ0j0tPkO@PRE0mwia?S2;&bdbix5 zEYN^>4ORac;#g1?Uzisg)L8B5eGalZ3r4!m)yA;@a;_8jYI5!fQ1Zf93A{0g;Gv(LR5Iv5{?UZ7v1y{A5~>kK$kdXc|9>9!2Xw{&6O*~2UOrK=dtqI*f;JQs)-y+?f`PP{ zGM~P(Om%$BcRr>S%1O{)TGAIFW6tE$xJZL~>kl06Ynr}~$MI2d-t-(u`;dWue^Q;^ zO^k|-dE&H4@9ERw3kXA2#kKJwpb4Lvm&I+J+F;y1=8gz9b;sG2+?3*wS_l4tdbP-Zu$GhzYC%!d%$+raQc<*p4rZkP zVJ}jo1SplH!CstU_ESAXDdeLaLLZ-d4?a^`VcU-ciR)UyJ5-y84y~A-Ud0RIL~aA8 zLTXn>pm1OGUXJ+Uk!=yk;_ipsWOxr)gTNayv=Fml6LE6wKd$^I%^DAEa3borl4W<& zM1i!d&AyGS8Md}q96!-`vU zRVc%6=MentdhgLr>fseoEenyaIjPT~m^-zmssG5dfO42FCUJp&Z{}@pf z^TPalZ7I*$-8C9UKDCQqaQtixi;Q^u3qEu1dD6p81HB694MP@OfX@KX`ah z?A5vr8av4YH+>TAWMdGY!1OX7sB5*a7P)c^T}6imF++1}3D7&~zFO*rDdU*xt=fB(#K;c0!o=ttLo8wN;urSm?^-FGYPYCHt9N zLagijpj!E$b!xSPvyzss=w~Ib^c@>>Mh^^O_ldG)+OP9xmtiLug7?F+xb`A*DA5Th z*p;>%j-`p%vRkuMr_xn9ki}^4X;)FCOy|UbGP_Z%eb-E2ZZxoO6BHFS+eT&ftsz~N z@zlC{Q7%0(p-&xu=2I{6DcHt2+u$F&`1if23{(-Vkd+CrbUb1Z(feZwVomGJ&-mzwBkfo)zpNxkQao*3bunzB~q^|a@Sr^l%=ksMB z-t5CM(1w%oL{DxDMl;aBvEQSaxyfc?E>iM*u`1}i5neN-b4%fxm|u2R{Ji+&NVdbL z7$sa4vx-i;I#{WW@QplDw8w2ZI~>_yaa_zAa~QXiL!!73kbFAL`pv7WUHxBrXiY2t z``~B3xZTG2Rzelf&>{deG~+W2M}*}1kJKl56F-he8Ejlwom?Ag(Vl^44^R&6qaA{8iSi-@p(;|@LeTZaL~0q4 zkf1%HOnrkW)-|l_is*sEy`|l;tt7#N? z#h`f}K30!@d?9VdeY7jG)~Z)*3*MDh_U=ITpICbkZ7!53G{IQC;ylQ$$fqN_H+o!UQ2yjP$pt%|!VO@32@JV@saH(z$^HwY~w7x8@S3*;2l(K!f*;dL$F z13Ni!CFFz31(Tp9a`+b{K^bS3$h5uDV(s>GNRB%gJO?KqBenYi(&rn*y3`IFn6g#; zQeknI4X15Ra$y-6XJDS7-?jz0b{+jZr|ZR%76iN6{^rSh`JDMgeVmge99yOU=m3Z3 zQX$)yQpWoYvL8*na-cPR%l8?dHuuPw>NA{CYk6gT4V>+gtw{=id{}|lfObiHvbxgC z9}cqG@9z?yGgZ?qW>IOa0RoU@sIBR$(SgDJ6OrE_sKDTht2AT*i6VCM+Ka8tz>oOY z4B(`4JNIpW;d?{2WQvoP>sxw}`&?iQGW8v`?hP7uuj=ETXou1iMv%JwE%g6UP?g@4gO&yb#p{CW(pi=3 zbq^s^AR^lkk-845RzIN>T&8NE)mYI+`MgDNq|shcUH)e)EmTT!%=Nj`?h6|-_Vh?p z!u=Tfbhr~^2%m$59R(j@V{(|x9qko;OpF{t`^|y)zgk68tL}pXy3!Uc1GaqpK{!s& z74=gvnde;tSs^wBFw$FE;xU3unT{UX{WyvT&Q%1FCgRO_oTPQQurI*%&kE?d=jY2( zDa|HmmBX`62Q$J2uNBp8QBw*@&kVhdN}W1_`xi32UdIaQ4VN9%r@;~_;gsHnQvy#0 zKnz@b4Z~f2K8EVL&ckGr(n-=zpW*NxiOL|6Ew*a^J?yo|G^6{cfVh#wm1nun;Cx8* zMH#wDA)30^&4k*|UunkptZ|J{CuJ&xY7zGIkm>$?w-eU?K)DE90gGj`&i_&T*jI&J ziOmTMP!~X3Pdzpv;}rihawVtg-9FcP_3&3*!2S9Q6&0;9yAjT2c7npS?Gm?{Od6a9 zLyru5PaH}VKW4fiRD}KlW)c~Y#JrtZabHY&&KcXBq&akxjn=sK+h%9`mP_lDDUWBy z^;mSBt~~uX6H=wMc+W;{o#4fe$wSwICBu27WUB|AR=xBgVh5uEOt_x ziZ|k@^Du7yeAa>w?8LjFFw^dT_Bb?PvmktR8r<{$0@*8=pYqI)SqagM?#wo;2)>9) zz0K18mewX!3utS3WEVfRiM3<@Q^CtGL0rQX z2~-Y&V1i^LE^Kl z>ub-Y-M{2eZd3&xZTMBaPsh&n0s;Xj*tzn?G%ne?FmAYeXQ-Aa8{;uh}i{^8g?cr|@ieqc!KpHwwOE zCeI>X(lk1|mD#iBQB=c9;#mu3`7lj)sm;F29Ra6AeJzQY-z<902Lm?UoWd9-RfHxa zhhvaWoq|)G!=;%)g$wL&7gIm4*meH}W)Imz_|)^*Y8^B;Q;3*_@d!;vWMr}Hd=riDdOseA%K*qF1{GfwF#BL zlF7C>&2u5Qhb>UJ1PeNGX=53iM>j-^c0CfIsc!$Fq`JVp}j5 z#5aKxRSIphoY(M2hZ1Y#u@-Tyi{E=297kVs;HxYj^i3?|^5S$`@zW07u^( zKY`FTty(hURx6C&d$d*2%LRcjxl9@{?;6@C(AyC}CRt&MQjuP_mxe0OA@H8GwD#d@8 z07Cx6yN?jcAr;=+cHUvQ720rch3@X6VMb(7{7N8N8E!ia343~Nlh?0Vv2c#|xdxV& zd0D7(LCMMRexAfNRh;C1j3_(QlcVClLoHgHflmefZ#FDrO0w-IHt+731P$S^zbll@ z`o5a;r%C@`U8HGjGVq2wn#}K9h<=;Qqs7gbC%%%WIOX9cA58i`_w{j4nmRU@U92-l z*kI3&(X3^hbHyfFNs*62&IyM!*}ovfVD#+>EmeK!x~=4sdW8*Ir5!{~huz?OW_)t! zB(a%yKRx{ik4ZQi=1d{$$k({6`!FM7VEvcJ_33m^QgpK5v561m^Wu=}R#keDMoiGD zCEEW%lLOy*yd?KJr>arDCttr5FsF3#CFr(FB5j}1Q;~~6pO;=h;+z+d9NAg8SClbp zJU!7!-_;no_C!)LLRp*#d)^PO9&a_7F5gqqI|h33*=h$1C@l$)04*k~c=2`&93xl? zKC+L+pe^V%Cu$*@Hm=(WG$C^xzH%PWASc3oj;)lX@n3h%UFtbJU4@eFTgQIQUL!2o zrHdw2qb^d0f6D}7OY~0lG84D}k{p%`xgZ4@U~4?%!!+a2peOY|HK{HU?Hi?HstJaF zfYI@Tdlr$%MmwFbn4=bUiIhz)IbXL@w4!G(Jy+%7sfylZdxEumaAN@hU>+#Y=-3jI z0&=?e%Hr&*($kMFPtl(JWbUihG*UF0& zbj?yITi9q4jDt%Ezd9hd7YH2&TI*eG>!g}swv$>iEuF#R%8I{F;vs2{}yqEDnVb3wpzI%TF=Np;U-dgg5a@0wuat5)#y`YEm=Ehl z4`7ic-xK}QYLH?z$drVwPH33wu(QIFM}W%}s2fF<+w@UrJFgE%CK6%#^-CTh30{mEYBa6)<^`*5VoY@%00PI}@>(Xek#jn6_l3 z-hvGOdKXu4(4+EEn6_+UCFZk2bYC}T%Soncf&UHA;iBu@EQ*8He|YDQG{{=D-FvBF zY^CoBRN0q2ScC@T4&HlUFi2}M{x0+x`An!4I}Efy&a^PKCM+kKdQqUGOvUK;=eAxc z;kxS?@vr_G0VlNWA2YWEZE^&!!fSArC^=QaRx4m*WO_ie zxk6BLH2qqn$`P;qRu1XwDZ225QzR?|VMNMFLCw5IHHcvQ2`4^6t1T2|UgkAzOB>mS zHqC>|I6nJqsnJNfB{`?81*T1r$w@n_j~K+k#DNKl|6n!#^>)yzyJ&%X4OC({JiWD| zOFiu5AmTyHUOQ?A<5(#7lm=!KdTcZ}-O=LR7uQ0=8`=^p60K!iE-KbE((3$I%_`jA zlA+#YQ`r_;sXIpqj#P*SZ7S{wkTL3t>W25=I5R@lwJ&{<2K}Esa)G`8u#~)S zvj^%VARvDVfjcULjV+4r(B+BVK(QMJ!pD~<8 zXcfT?sU3Wr438Ts%gXx2am{zk>@KDj7t^~4pjZli2&=vJ*<%jho^bR|@<76_*Fx#? z4TAxPru|FvV}Os9?th>=I?=D>DIC+2Y%oCDo`C%}ECKqtTa@+{Xw)PRX=9hrUVAtWZAvLl$6=cYktAi()ntcfDlbVIge9tP zrj=u<|0O#de;+ifT5xngI6FzQ5BDBQy8sF8PBBQeYlomO#ZG8DA8RAq!kv+) zq$uR9@fJRu`0uzcVu|(Tk&|=}GXfj(QrCS3VD_zl5`Lhpt)&A)B#^-rYO{8fXU1 z@r=Ei+Bs7dGrp^gib&y&Y5z;r)Ic(UNCZRqr89z|oC_~OFL=#cTK-XWBMsG}lxGF! z1y&Ym{#C0!EI=;fa%!U0hDS2b(MqSw(3hev5LO9<-MOh`5`d`As(fLbLX=3wg2;;* zTTsm!RY;fYwG5{fe;yG|NVyt);w~S4wJqyU8Xm>aS|1gqGwM~!jLBjD1P>&lIiF4v ztY=~J4IN96&l12PrbxqH4&s%br0|yl<~ml>GW9vMD$Pj#@omFddyrD6u^L=#ezW*)_cUm0F z)klz8-m8IfeNd4Wke){aw+~8T8R$sJni?$m>->=R3tRHhcrjRqx!4wu9vG`Z+c#F< zH8)7&dke8B>EJyDi@(P%vKSfP=2LtyoN;7LcJQ3F2WV#Lr!?HF0Ww-uA_WJ1Os7f# zvpS~EY~6q%nUQI$y9VfTQE4Cwdht)7!|IuY9f4@9~fBFzzWY+sjvYvAZ<# zMTa)-w(bz0*Kd$sA7)!3d`n=;PgL!%{4b_fico7RAHKv(_fEznjDH$sSi<8X)`t{! zlEXqa$o3|HbWrEl>g8+j^&R!qaF%YTLQSy{d2v<)iI_sloTPG!L0EW#8PEod@j%lL zP0>_I&H(SMChN5FPAT6uBY;4VT16R}_3MM~BOVAcbca!lMCMv}r7<&Jdk(;_`NUJe zQ_V`K)j1#7p*qpHGhB(j@Q3D*9j&9E-LY&VJ30$P4-Pv+(+n)mB!2Ub&MlkM`Eo{a~fVCtRIM?9GR zF?4Utep?@e-*L7QtezRrx)F)UiM^KSl2dScd8UrD6)Lpk+u+em_eGjFantZ?<{VL1 zN!`ES_>ikfwSGg&^)KYV^@!{Of}!j^b7!<2Lp!h|bk>eiC?Wb<0%1#|Vc@#yik=We zHnulnnngU|F_93?VcW&67;NC5*}67!-0O^vW*$}DxF9U4thwD$-sOLPDKAnMl@?TK zHf8oyICjtIviLGd51-VPev{(O!q;M`S82-_B{QQkW{FM0vNR&gK@GKXnV%LTUp7xL zUUR^~%y&Wo$C#Q_h*JTSe9nlL_rhUqQG?_L)n~xFV@Zdhg;U!l1aN6mP1HmRw|N?v z0s)mfuHs?~XsWW!T%yV$zzptvJ3)@mgdh@-SHPpdX)>PZD^PgSYO4UlUbyU8}suM{LO|eceK%yf+6JdeS zEf5M?IVn)0R0x^hE~$@L&o<3)JApbny5=|#x4S6RA4*IL0X0>3=p^@Vf74tvR3azs zG;zgJSs_zjnqW+ZBS$SAqb|wfk>6t=ZWD;-tp}QVCYh)IM*~^bm4y}ZH~4$}_QL}l zx(8M+KjCQdtoj;EaGMQO+@Lv%T^UHL^QSKtuzv~6TE>>1$uWC;$N3O*Tntea4gWm( zI7x@cul-k-^OP;!eZ-J3S-ThL1pQ;84VK#0zyu7fR-Y;7e&NglG^|8he#u=^U-S&( zXTI7L5!~f)?2`~y+??F~#!lT2NhGOR##j~frV5&37uKHqW!X~DS|QD8yL2}5E|=KL zZzEX4kx_e=5wYD^)>lX0Hs@UZ*^Cne@ABd;|7M4xtzS*gyb5weJwOW0cC48)p%ACrClFar&u^fdoZaBshIiQyl&YJdt zx|kKAI33v(V)7ZmrE9dK0f~@0LOj^ z2ms8XSVzGfeb|)D#lQ=V7~<`GFV z$a=ElpoQ>BGgl?|Gz%fLMxha_8A`1$)kqqPD)?)8krox&YzTk(Fcx$Fej8QG5Dlmq zI;GhNITjy|9T$Y;%t;6>bAf*BuB6vI-#K;@KY9KAFjqPK2LIs4J&~P%849;tLoY;vfiC4;YuLvl^28!wlo%^ zkrjjG4WjRhMw#rRIicbtb_nIrIy{f^svl@#kl42iLuy`fWBZ8@Z<#CH*=c9q3JotVf?LVU*0+K#3i`wNh8qm*aR>0==V}^=-8{kpBi`#C4 zuV9Q-bZgv-Szx6QrdVdNw6hGz&uRc_$ZDN#*Ci3JJnnVdZxQ z1LnjN6Im^VTDWhZ;y|y?1{mg(C19`2@en$cA?c2j_s`|4k}|4z=?J#0KgUvlBj867DbdqxY)-fz6B0ze5SQc2QrB zyjF9X^R)N?uhvz~kv!x}0p!Czq4pe$Yr`;ktt>Z&?IYFaNH|%K6`KR5z(Gh0%;oF3L#Fd}YQ{tkWxKn(ZRgmizd7$&fA z1AL9|L?}3SOMBdMPWl^I*7LrA@8GIEz?DNtrTR*j1Sqkfy&*0!U9F#>LdSozALw3x z6ewRfM=wZ0s~{H@-sa@a%4N=Tmdw7LsS$f*2Jgc0g%Vj@^GG`KO((_NZL>(*>cIo@ zyu<|A8K*gLLo#UY1>b*nyBr6nBy&Iid*`n1uh(N~n9r9f7hQx!CgUzUgnsNZ1zE{= zQrNq~$Ycr`51CvCs*w7^*nD7^4@(^x&hDMMcb>k^qzOgmZiCBh*92IXQ7EU%L+$aJ z(f=t$1|@Zz|0|UIvYJCy9{tB5n0C+!rehmn6f#}ZEyvYp0IMNXcHnmFwIacO*N8Jx zLv<*a7>6G`H>mQrkCm{F{T{WRN|kp#B88lqDhT*iJXIPd;MY1bquxd3%^Ohn79m48os)c5|^R=9-Ng#IGvDE_^)mctZyDyeLxY~wGaLYoj^T7#LfZFjY z7)`c1N)fMeR>t)_nFJF|eyx(1cSG$(?iE19Q8$_J+AQ5HrWJ$*KvAverb(G>-J(fr z2OMP9m&|t~yANP!d}-qi``^|c?>Si+Ut{igf%;%#uDn(^Pfyls5f6qs;4|)4_X5?D zIWTR7ZUv(BwM1c`=B!9ws4-4zpoEVVftC6?JyAZCG89WBRt z5B zrPj~|wCFZpj3~i^F6%h}B|m5grCrY$MMS_=l| zKd$xVdb*ko%*iT3v%xZ#imVwBg&dBoSsfi8|6WB7?X;QL?arUFGG_*lyz{~oSfixy zAWAxXj!mCv_LqLpqV^UVEeT2BYfhCmdp~a(#nKLAxj+wi5kC8i)9f1oJMJUl0#Cs4 zYc7AZ_FLK_3t5EIQ>sRj_o6OBWSP1=WtlZxY~Tnb6Cc2 z$c=$jY|u6d;yvZQ3Bqw|3U71bKY65%$?QY6$hi*dzxHuKCuaD-XF)67mi2rR zp47Avhv>zalVZwRpbY_SMge;)sIC$s!?%mu@YFpd0PL@rw~sb17Fo}L=$*a`q=OI+ zFrd5MfOt-BL133yH4ANbFGfqT(=ux^Z&)c= zJvauJZ1`lpS*#;MZ&Wai;Vrq-pp%uPSo)I8xm|d=MW8wmed0>lJ@jl?rmNDO0@9HAsz?xtWqb`lis9pinwjJx z)lKC)(p0)ir(fjh!17Jin-P7?YetgoMpL#858g-&KJv2itB`yV7hxKJaxn!^c+@;Ws<@?Zj6|%jnb-r zwwN|KWZ#-4{aN9hDS2N#xiK7~Rf-0-Jm3eYmSbD=E2i+D>e*&kVK)hP=J>Qx^K~gj zQWG`r-oGS9iOt<5X>o9RT+)!3$Flxfw2V8yL4O&V97Z>apVP5%;+ekvR;Id&pm#&0 z_y?8sX~+cjoWePn=)Ht+({5r2s9?wV6K3}#6$|6tusgQvEre$u9Terr)BvGWgP=h6 zzIX^7X;p9@8^yJ<&ZgOz9gW7&Zq45e;!hs#{X|Bd#XhTqv@|au!;WV}yx&a!AD0Y5 z8{oLcrF$-Iw(sJDRiyc5mBucET1No)qDy&#^_zBe*P}hXL*!UD?4^ekZ5n&9hj*LC zSxQ7|nZ`}j_Zh1}Z0KHPM-m@`EOg_fpAIR)`PJHyW$^kli_yNq@4z&{Mnl{fLTu zkLb1vXJ`U>8S$-YcrGHiDyVZHO!b98YNF33qRyW;L`k-_N>=4raz$++Oq5vZ)(h8r zw;t<;c7GGkjseB(v-x>v_HFqQII86qxLQQMOHu6Ht7PU)t%A#XD)jAknnjz!==lm4 z8EAdt{b&L=QhBC1w@^V5P12|4f9wlEki+oztYGI)QcK<{mG+3;piy33yD17)m`J>WI zP9AU%HbTz|B;IqPq}P9#mweCiBgy#VqmKK;eH_zmZrjpy*#+$Qq;!C+2L{1-l^rJ6 zS-k)`xq^Y7Fi2~3>%Y9)=bgH7e-S?(ocz>zg(^>vqVOzJ;j$G}TF~JUwPf6YZQ=0A zLtRgyO)G3B7lBxN4R;e1!V(n$(A$lW98Ndqj6BIzpa@AvPs0Q&Nbn5AmRRFI*L?h;wx*@8^9qe_kB<~?3a5}s5$UM8^+c;uBp!suQXI=&yXdXe?;Z$ z8M#OXh|$X}ow@>%{!%lu{G>vwqG(>VyS)oK;C)LH+*?RT;LW-1z85wk|7%a4Bot;& zEn}428CP;0D01t=tGB?!I71Bz7?>;0z!zu8JLo6j85(qjyoqOP2`0(Yz%u0TDVMzEQZCpiuQ7ZoGSTu|3#K94l)pOr>i9Zpo5tlq_; zK7FY;)0^%#CfcN=0pn2kf=yZ&t$5&ed0#oma39i=+3X*{6!+m}EAr^*zSD8BEOap$ ziv>=|s4g7!I(Jyyrw4GaVfeN1rZ6ItGR|4^a2)x|JlgI+1UlDrvxNF{IjU=3KP;Ee z5;4CsUu;0PLkXlne_7e6OyL&yJ|?KOMUTj2h3i9|vdEM>f0CTO2@~N^ zFC~`xL-d$J)G!~^(SNhf`(#?R9-E#TAXlwYgJifP)HA#(9l;78p?p4Ea9Smq~VY%+}D=l>X0LcNFb+G3FO zlyReE%+@<*Rk&KXrUCH8L8e`QTyKGhY;j3;8)9^3?C?7(Zo}J>GMwK)RaI_e{tE_P zfdPTLA~9AC4ePY89sI{?W29M{s&!EMJFcdF&`Gd1R+PgkE4*M50_tB@H^E+WU?ix! zL`+$_uJDRXnn&ZgcvquBD2FMS=@McE+w*8;GW-6)fwL7hSlZ8qdb`7tz*|bh- zAVdrgk%!Ws!l5s52C_kw64_~EBn9IZdku-wC2gw}zLJh{OcYwdaRJ5TT`uTMCVkEqq@K;#OI`u9AkDy$RePHKCFtktb~jy@u0|P<^X)? za>@k`heZqF7ORUd^9Eg=h+q_48ehtzY(pK$1R0=-bD!JNBtf>c;PHjV znT?#6N`w5RVvIA~P#o>@E{XZnqpm3VZ+#^k8`2jn5hLQmDv?Eqox7ud;!djUtw8pg z2@9;P7@y{oMlX#Lt^%E2zA*8|HONHSs z(spPC1gH*nA~o7Hai1>1tt%5&;?0v?d^BUvod9hK$W}KOuZD z;2lQYFY5lE@JLuHYa?vv4{iQ!@F;nlQ?SL`82eJgfh5qLAPDH+x_K*$*Kx1E(|~o%NfNu#S&2(J#XAwRMewBNbh6HlBY4bTVK!q@lgGGD zNYC>Es7@emEu$XmBz^0kH%2QrJpU_UMe?Vj(RcECo&(QLJkw6vwtAqtM`dtCjJ3k< z=J0UK!N3s>Ntht5uEkqNCm9?cC3MgU|1-qR0Q6{^iOD;TmrW~VdBg@7HRL~&exC*T z`)K1%6CV4@C-}IUkWly7eI_&WR*Mb*)UFH)55A^Qp!!pqp_^?`n&D)r3swE~-@bIS zL52kSo6Tlu$U6^3aGY2ZQ(wzFddQUe#vnEc`zGG)VS@1<8ma7G-Xne6cXai!s%hiY zHC>814E#uIxj0^OG%g+4xk_AIEO3hHMOxZ69 z7_sZmWgBwMEH;yOwStm})bx6VfW>DrQz(e*bi}v?1!6{9I!nws zBG3CN;RV(z?FCRH>BK$eB91R90k7DvFjrW1R~`d$4>F_P^r3}fUMjUTKo1n~RNQ1$ zLJ!;N8ArC)U2dyPpXFt423Zs7s4ZCMRv=xH&_F-c`9b1c(|ypW&&_O(B{jeMBnTcg z(iC`UsywIo?f(*;i}XrzXwXEEm+|* zhKsHMO(JbFR;a2?xVZwPW#d;sJ3N#E7K_(kAIX$Q96y-piR5X5GVwk) zIXwK&Hq&={@A8J^ z19n#N_U%PILtak8hG)ThtpWIT5vQ2HmlJgY!l7S5W~y&^Dl=BafJC&;5Q|D(LI4?} z9Z#V%qEFI=m2@?5o8Z|H>VZ%FQ9(GX({EOcg(aCf2WDdk#|Oaxx2Ot!+`Igw>4$g7 zP8TMQNs%pMlbLF251}o$aD>^?@-ktR(fnww^H3)atx1FQMhDyCv~#B^1awqj@2J$A z4(#t(EDWD$5wLb@1t!r+2GzDvY@=QKZ|D3xVaX*vzO)Kh?CKx{v;CiXmAQksM)RP) zUC*!EuQM3+;QlB6K+Ln=q@Nr#FB9mt-y&s?VK?&xl&reVGzsCRyU^%P?P@fWLfx4W z)M{XNa49$rgX<-&Vo{h*0Xlp}`rkh-uH};N^O~Q#SJ2scKu#JmmoR#&6JIV-IbNvQ zL0BjAz56f`F{v^_pbdMDg4<#*mR5Ro+1(}NC9e2Fq%c2XbPb#38r^|aS3kpEQ-*}( z&N#$=74~Lj&cV;(k3PI{l>czrBGB=;)4T5;ZNM;XD>bkYayD(x;P+b`sFsCvkRK-D zlywiJo4uR#osg%z`gZ=-h`V{fx18z~x>R9`-RDQ!XZy%%Z)-tOfsFj7<@thw|tdQ5bc2Divw9sZ%Y z7zyN4?f^@p=eqrxeQvl2i>4Iwx*KVLfm)%1Vg_x*0j59p2q2(lw7yB=YyWjsF#4Ca zmUmiIt*xqdh|EjC;wA`av!F?iIbA;!=|jQ7Qu5(QeG|H&@O*7U_+K7%A^RCrnAp82 zYB6dv0vCW}gsea}Uf?J{#OzQ?eFif9!HnjN;j0$4-CFe#TStThKBZQ-L2&t~0S3*g zyI|x0a`VRVwNM}z52cJI(|42y=>xa*HqJPih`EjgS1B!Wl8NoG*<=p!UWG9| z9i{G=v}|C`H(u}9(Z5#vY=P4#!vbA20MoqL{G+^ENIROVMGCnyBh>N#Z^H8|-dh~p zs#4TNWCOPsKMc-N=PKiwolvJ*7!2EHCAiX12t=r<5tE_+AwdA$HjR*)+JMOP%ieq< zKWd!8<)s4~dNFvD$HfMsqc%ON>- zMHQ>eY6-b*3{Q^c+e$DP%14EEvUY;XN~o#ET1L+V!p@CS(brtAELUhNlpgAGC{>VVe2-i{^H``B8430 zDa7nY+r-i632WX}R3hSrpGJ0XS!(nlDLo1?l7aKzGtHbk3Te{yxF;6BO=)c|hQnvu zludn^)<(5|KUmyB9|;=SyyeABLcVP6HCl2Ht5Mo_m0PTEy<1Rt1O6tw;3o72poLmWD63Co0FfgTDi;G+Q|sW`*GB z{g_1^^UF!A){J_CM(Wp@k1TyuTospAdBtzw?Le$~Azce-t!ymKy&ou*BC*^TR1~Si`>G(5f*mEbWO5~mKH?U-qTM9? zhfH(h#NrW4hxo{1ikf0_u8)Xl^&FJ=akWgZAb?jh!0yBc<1-^>zi|!XaKsJB=Al_3 z)yYfzGTGdG|2nT}s^7x-ci&^BWy|vveyDk=2_;QiQX-p|xIQSpKcYhG#13Sm&Xx zgr99+;8T5DgN|bJKih5OZyvRu2?p2rfJpR=W4^W=^$k^1FgMFY?8MU4NLpBf+2<=3 zp9^v>j`KON2Pbt#P)T;p{P8e9a?R7_$-8&p?1@;Kf=!QTu3qWf7UDkkJo@#MNjePY@Bow6ZASni8Ste)!YIR#jvh zZ164q;ishfA0mSt`tnbnLyOL3c|Z$n$Y_vK(y|9~o)lIsml^Sc{gI_%E=Yq2^ffS5 z=mY6J#5|R>3|fWGu_}`cC!H%`<#cyIv?YD*g|dczSq5k~Ck}zKr*!Ub1j3Ww>1>|> z+I7Pdo&kGhMUh_}Pc)~67#R*en`$lFzNp*5StCgohh%ufmut358yT=5^(*ufol1E7 zLbm^92Y;X~pwiysAIOtSiOUk!1$GoN)+v~%06dCzjcll69cP812{hY4DB-3Ohwqm! zpI|)*iwAi}Gd18ojN^@jhH4g>1rXCch#Hh$4gG?*It2W_{&|jmHo)QZ#n0mW#a_`M zu!X}jFyA2TWFwP$J@Is*$}%qOS9A$Akmf(R1iZYcT$aUsWX;9WzwoYfBttv;7JtOR zE-H_}ArD;~|7TEhu}gt8-dx-R#a7#XC??FJn~GFSWQCLHWv>$ld>Vlg0R^xgGW6dV zG7bXVS1IMxP&Y<*D_%GusWE7L6R2HFzT#5!_N1dmClYIj`-e1%6*N zL1Mb6Xa6lk+t>Co2~Way+8Y6&*qX)dF^q5m?lwifE7szeIdt%l@@{5CBJ5OWN?D)! zHLG~QppG*#-ecO9vu>d3;F`7FkFarlA9&e z(-@D~!Be|K+=1TTw-v0T6fmNNW|^LbFvh7`VW3CIpivuf855r>;*CcNUe!YM6W6-q3{|-FVuCeTcA)yUahV#%JcO!HUMwZv;VP@Ld1V(l^ z1L*K($krpz)2RBDCDZp7k$4cZv)vZ81l{%>UvkvhLabZABAF8wy-3rlhZ*_J2qjCA z*nAKb@|2CBq`rgi`2TvT7lM=J5aW~m6Q1{SEmm0g1%z$A)rc-SWPR5hHnzuA zOi-+o&=hm3R!xuWRNg<2wfd-L;I8D=o@5$syrKLKrNcTh5{vp|tWE!a8OMTV=j|zt zb=6|s<}#Ih`FDV(E+X?=NT%BrNT##zm`L(>f!V>Lllz8i8P`A|*Mg_-NHUO*sucO3 zfGo5`S#a0t$@IQ{h27_~O~Qw1+JL|@0AkA&yaUm zE@27_Qc%iWM1~}lNQ0WL!+_;IejFeY!;=|JjOV2DMf8Ga#fY9)u4`Kq-_P6WW{t1> zyE2Bo#BbW+vs!TC=IWCAzt9g3UN$;Z!m4%gn&M~Riek)M|*NxvS78{Dsm|=9J8T+leqjM$lB0)g3^JnqgKv|^LY!=uSg54*!oah5>Dq4 z?UnQ6!>63tD@=EPdtbTG3Xn&1+j?5j4LyTSsOZorAqhdB!p$K>nv9|s-WnSABntFu z{Om~#=O?Z6!EcR`FI=C}-Dr~{f08aiQ;3iUM1p*c)N$T;#_!eqv%2W&9r)6ZBRC;O z1a{LrD;)jA70+ttgKzg6DXO@eU5gNs40t1=Q%5|ABT!}^SC79LOQkM?CYt7P|4S@%RLX}f9(i1S`XY{OWc{woc+4lA_^_3-m%y9g9K9)!jZz&#-QbpT>d zrT8Yd-TEIQUO=Xx$Mzp2DbsD=mkTY$b^^PA_1%v=x0ORK*(L+U)x=ou4nGt-thpXk z4_In==4ny#9e3wmb!9l4LCvQ4ushHr*C^K3-Ov9Cu%ZHu!+oF=@GeY?I*2I&kGNDb zF>v1;E%^8+w}wG+)e9WfR7kR5p&Xn5A_-d!RF85cwND{d_FwK29xUnO`kELD61I02 zlgRd#r@DZOh3Go38-?l)*1-d(=QFnffNvHSAcVwg?n@_2*_gQZVIUGFWW4h3T12EG zwE3SS)1kEVSI<(X`~P=B#y*z^)tI>qX&C*hV9D9%RDaSJV?KAoQd&A(Sd`AA^4l=E z(s%W0la0IO{n!95iSssH)0YlHjA!yS&&=B6JrE%vr|>{t0fZUiYscBjQikVRm;DqM zWP6h9X)P;;a1|B>C$((GvWqwfKdGS3*-aG8pYGqV+`bA8KMy-N|7%G*2nx6AH~C$Q zo!-xFj!9)W@Oby?fod&aewgO|Do4Hf=}>WuY~8FRfsRJP#te`_q&ydAI@OL z*Z`Io#w#O|@@eY5Z%(0;+Ak{vwcFrx{&ph$5`eG&agf?9Mn7b38^eT$iF(;7Z%<8b!C1#Jm zezEGmDK6LZWnnZ#!_dXZC8+{DJkA*IOgo0Wu2nlymdU`Ch%-eeV zP-y zKaOK7_eCp6$IoDg>7Ymf$a5G!p+yF#zOIUHA%G>K zmmTNA8O(_7zHp(H{FUl2Ek&yF<8@CEW&PLvp~~@=*2q9OkT*!hT>&%eo6yDen)bYa z&s@Z&=StKB7}!al$+Mv&w<$tKPyZTs4LU4lqJ(sltQT=0*}Bi7^%}tR4V}zKHYU<3 zNHD;v@+2^w)o&TcnD=$OHGR$_gEu|gS?d}(gYsLtibLm%oC`u$uM0bK;RyqS#a{DT z_?dQ0awl$II{Xft8UbRo`)cqo&tZ+7wLrXMnxNGgeDeZrsnsjN(#(U1UFnIEy`9U> zbqU`znw37WDqXGVJisudn)${mK639X^DKf|cW?MO`4%qV@wv0pinaNYu2E;!!rNTn zKN@!>TzkGg9$3e%WH{xo8$Dj^Kru(n@SG1|T23;cs^bP)mrf@drILH#WSEk^Ca;=O zq|)2fuoLAKx7c^#23cuNOpvc}r0)t+wP86`EDy16qVyuv0VIzIhWKdOJ4^Aw$!bmp z>%qs1x_v@( zII+k6ln>~Tl(w+DwSo1?FH?AQ*_S&FLi^ippqcL))(|g^_)!jaa)^{gRL>AC>}Oz1 zs4=)-6osc>vOL}mZ7P2HFCF_|&=3K|OC!y~Byk#zYzdFwjg6wmV+!B1`NZff_K=2= z@2ohbnk8D>TqPCD5CR1&SAW}TY3PJf?#H0^9@!>4^G;;Cxju)E*O9!&u90yw`U!Ynf2Gy*# z@sjJ@*XpSW8W$(YnM`xle*+_expAI0{{j_DBJNe!#qS?5fU0JjWgJew_!W28 zq9p*7bm*&Ik1~7kkEH<~!Jua^`m&c)ZPFFdD7QXkrU6Nkc!VEym{315*uO^w=r4fA zIL{?85{=YGBjuq|3?wLS+o=qXTNbjIytdpkUIab9pqm-W9h@NS2B;BJHEDq8 zgI&2;mCYeh%Y3xpY)MBMR$4*9E~a&AkBDMXtk*{i!#hPS23Wq*@Zh&6u*Jc?I=B7$v$pDJD!M#7zDmS}5Rj(6SO~1VIxf2mrBL@(|3&XV7MOyM$jcz~-;=g>SGQ(Nq=TF9N!74`hO7C#NvX1uJGWs| zE>qeQ2#<@VeO&)N36ukgL)MxU;OP<@f+?U~1^XLyoasJgbju|Bxk`kpjJRmK@yJ$# zsy{|qu$D=rFSC_Xq;A{qA41o4$QQnqXW~KlL3m2YB42?Qvc9MW)LCyJ*`FU8EPL0L zS8(+IEIDXU#R4OeRzpVYyPMup4(Na~gjs}ziC(mxE2?0(-KRRC1X~;K@_|1>PVuH7{C6{6lMPf|1HbSy8cdNx&YX>0@Rb`Q>>31HD|hj& zy2?_Ch4wgB2$5&2ez!FgYksJB_8VYVryCMpzph;J>@8&tJ^fa^m?Vu|0a)l7KEShr-=q1tA-u<4dSFfO_^OzS-#V| zxnCFF8KMqxaF}AmiU6Lm2kS$*zAysxB1>)zk#!qYrY2Qbi$v9r_ojN*u>7Hdu7DLS z&6a-2K%>U!1tFwow#IQNB8s;U?KWnOw+Xv4YESzq>i#>am?S21wjz`)IgklH1ezJK z`p7^vL0Q?)2(R!?T;}Vr!Q+lID=W*`M76`2v+R*a8cg{s{_Uc(CMh{F8%SNDwI+gq zNt;#&3vKp*2Uv9N`B`^SB%E%aY@juCPzeAP>u$3Nr=kZ^@Sd3+>z^3JnLcoMpu`k`9_onO zzS~sq_!ujtT5%L*iO_TYMgczeh1H2AO=5s=lw(FK$B$aKO1_l$drsZX=z{+iCD$Pt zRR31{03p%0LyGD$d!Db|$?Bn_)>L20#Uw7z7+Fz}7N_~fy*Wkl!4JYHrvY83a4Osu zZ5%@~ceRXebZ+vXDAu?w?^Ad0T|BUYV*>6Qf=)#y(z<9DpAX<=?Sa0LDO-g=8})+U zyl>4e@SyGJFR$M#Fb!(W+#$a)>EXE2KO4PiKWK3oHilLmL*qF(Kd;wVH(`D zYK+zHl~;!CqcjwY90vElusZPo=go$$RIt69Co7k^9UEIIUjg?e{eCUXkxi?pk3A^}y6XYK`Dp$*`gG5W&f z8({mzPzMa0cl`^9KYGaPTBep**j3kh1GY*rKzZQEMy(O_mLMai}wj?_G;g zC%;Q)${J*4(5LnY8lTSXJGHR)!Qg9>lh&2CT$H`RK+n@1bfn@vgA50G%eb)r22H$h zeMMgtk%E$|ovX<=Tj2Za)$1ZzXxf8g?68U7<}T?ro|GL;!dB2%{K@}E{`DIUq6sg& z+x6FHKU9mqz~$+mkywj~3;_QR$PaL-sL9h){zrz8J=Bb4{s zdHtbg+ws7`iW_D~s46=P7Pen>{0xzwXav<`6$Fp^&^zrMBaPlZUu9-dqPmp-e;LPM z?m++p7|T&8Jsf{2=y#hQkHvrPSsE-hKI?=5+1$&bGOz3)Bse}3;Q#t-2jOWAFrR~8z-ue1RwXy$_pg8H>F4f@g*&RMB*)PiF&Xp_3Wl z^A6#3TVG7J|0n!ibJIa@-u;AwobczH|AgRX^fvRK5y%NYW@h|78#$2$W|I6f3Yh=m z^7jB>BL1@(eL?@`Z~hYzSll{_kJ;}FZ6_cj`=UH!Dq#Paeu{kckgqJ51D53yGvkkzq$D@F8>)#0DJm( zLNl8Ggy3fMHuIkm$O%7YMiY>pemDOK2`uj0tpCO3KcfkFPrpxSM)RK#+>G8fqX|eK zf;yo+%zr{~GkTl(&j{qCA2UtSt$XiRlkWbBe_zLNnl1C6R7lfM@7`PTJ7>V(%O9qYk@-&nZw7Cj!2%TP ze+oO8{}k|M@YWgd_wth|>@b4`DCTeeQxI6(x6VNSUVbu#3C({Bcr$qG3>E-c|5Mmu z2K>GJ#Qdiqu*h$nyzF1zY5h-Q!a{NK`>&?i{S*J*$+?$zn*TH+`n+JA_}=`@e;NXd z``+pG|K;NTfbaO;&rj@k${Wpp8VQ*HH1wu_@AUk?nEp#V!JlCMi);M3ucvL+|1=gf z|7qw=|K92OPyZdB0nn37Z~EVE{?jv@<`bso@8wt1;9oNJ0wD7@|EUNp?whC9 zzn5Q4WkBE3^SO8@ia zbi04z-);VjD*^NWZu9?Qalig|e(!Tr`hWAEP6FmX9lvScZT`~|obLV8F2I^@?|!%W zFRlj6-~1Psz~b(G$^}?n{yC-j%zsLNQ@-8&rvy0V+o$C3<%d)9pK<}5`J4Zg1Qz%0 z*8k%2pK<}5mw!%aKJ%Xv;FNDS|0w}Z`F8W465zCNpKkuk%WutpS^|sve(T@-7ni`| z?)~$rI>1+p`{f^ly_^5y8qxgCe{l&c?%vN&<^R82+%Nwa?A`nq*NEo7xcukre-_mM z)A9deQNR1+uygZYTq~OY;_{zv0q7Tt`{f^ly-&ygF#xd0Kf(ML*8t|fxcsMEfVjBd z{c+g)RQ$dCd};}p|I`Sl`T+Bv3g6Uko@xQ8{mZn{@?nahJ3tt8vb8SzxyZt6U={cC1C!G%YW|c z$=jEU`_&(dy-&mci^qb%;{FKpH~+;Yu(*4lW&!ROi~H3di@lrw;+k<9{)_v~ACJA8 z|Ki$lngzIv`^_JZy_^5y+Hng0Uj94-)0zJaAWrcS=063z8N79h1<>|Ci_723pUr;; z1Qz!rrtm-3{|rnw#R6#aH~$$BSlo}8LjPWVJ_FO4{|q2b^AVFzzgz#)a4+vQ|3YGM z?kDH(<>#}onEB6w;^d$4`NRgW{wJs2z0>?V7K^cE{)<7q+vnu`zv@23TN4v7|B2Df z^=f0k_S^u-JocYg!;^d!U{*$wt z#XBeG|HUkJ|HOZW`7f>nCO-hc`k#g6%zqXXC;yDe`A@!2zq2D?{vC_O*qVF+`eJ88HU883e`x;WNqv)7`c&tA=Un@@=07j11;5xb9p(Ak4{D=;`L|>y-){In z9BC6ReE8Ai%-eT+}{tM=r23YXl zcf0b|2m;Cf;l97TH)DYL7a-H!2mgiRU$P{!ps%Let>2vl&eNZKv&lrw*_;1tBqaXd z@S|9ZF#m4|ZOosO|CeK48~Zfg^wroG{lYgPFd0ho|0ay*``hzhKdkC7>fJy1=6z<= z$N0G=b6-yc;e{_JdYj)gNMOz&2a$ZMk5_)Hd-KjrzywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8 zzywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd z1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL zOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpLOuz(8zywUd1WdpL7D(Xx zKl$IDI^t#mCSU^JRRV_(9o)Zf&+c72wr|_AdCT_Q`@gF{THkTfc7Y zn$@dUtz5Bu*|Md}R&UsG_}lv`-}yZq+`o6%j%`~uZCJl<4H%*U@&|i{gY>YwsP~q@BGjG)_(xBx_8&k?F77b&8ij4m%j8Op+5WUGfzML z^fS*s_q^z0JK9g8J^jLpjSF%FhYuY(c<{i1{rmUr+q-wqp56F=_pWF=ckbA}bI-m* z-}+DfwsyE@+s1Y4H*McLW`Bnd?A^I_^G0xAy=uiW$oXf${>;-){rE>e{J{^t|2?+v z|KNu|`tegh-h&?|`04VwJO&{35Z!a7*xo+RKb?cTbTQ+Y(+qiM#h7B9$)Yi8R zj%m&6^_zDr$dJvhzKffbIfK~NP3zaL-LP%X7}XuxwRzq0r7yn($MW2>PyghpAO8@x z_`&zX8Zrru0;_~s!V=x>^DnR7gg6QGAP?$uKn&+k?+@3tV#RW{Wy|nC+R~-?ziWC9 zuP%M*rDbb2?N+y8$3f3w-$Cc;H$26L7x6dy4;(mn=Z(FhWh^Z(RM2dTVGzjdL3i?x;3x4w(Q(D`bT|tpFO;H+r~BJXRcniX{d~Hk_F33zunn56u^P+hQ}C{DDB<4VKp_olD34892d8CtzY)j){L@Z*ZFA6=zu@?(T@jg z*gZr*1MUuWL!D+U-7h;|_C5B#G$S0e62JH&aszY(KZIvi`*CScv0=a5-%ppW*|N8| z%Y%mw!DD{6eWuKX8+f8kTej`oJ0hy>-@b9piWU09Rjc4scaQiR3S{rb6)*HWD!Qh^ zUiQtngJI!RJ2S=>jG0d{Pf5GVqMd=|RXeBJIaK-7)~e``oxEgI+7+#D+G5pbpMP=L z>h*JT$ZRU!1(PswxK{*`wd+Uv*MmDZt>wsw zZPluEn|F>0od-6r{Mj>#o4v4^akJW(iDzqNnw1S!7Ix;N^p@4e)nk^<8zDum9eMio`2y*Mc?I6Gn9;Ix|aWtU*X?6xV14qx$%Dg z%$vv#qlF1&aHJJ#Yd3CdQ~mNY_U_oS5xJ6__NuiTw~xy#wyl2Y*(O!WeqEBK;;vzH z_-mQDcS9qE3oTaf%pMWA*c|ziawX+Soy{3_nO!wDm#Z!&?+nil4y)7V&=)j?Fo2JY zm<<=9^f{8}Wys!E&24`?hA!O@frEr1fMR{!ui3D5_lTf<5S6)|TQ{QbqphCXynXkc zeFug;{Ne3u1|?92H0tw_ctIFHK<3r6emtOhQUrX0UB8H+FM+Px%l@U?4@p32I}Fbt zldW|B)Bq%)Ua$O1NgG1{a&&&SDg?-W>yDl9@_Y6l{EmA0(wlX^bK7PNfYx`T#;AC~ z8&CxpLv(F!^Ujg#N4a*##&sd0HS0HQM9H@CjEDB`-hq8=SiSUx)+fjinSR$h8fLUl z;K-Q$G-Gg25fVh>5(a%j1OoX4jJHr-LRir_4#PO^5xeJ|8Z;4cA3LKUko8j!atJ90 zDWBaYWU*q^YKDV#C~NF{90bv+ZVT!~b5$OwDzK$85DaTWme5867Nqy0GQ`rv z#`S9`s(4>7&Bs6vBY@@0UVibXtbOFzI!0;z5=fee;(#Zp4kMF5YGbrII&Cxwez^D6 zUxYXY0!H6kK$)F3AdYYrp$()7h!u3C!o$)Fo7@KD#?s|$H$5K1xlSFib@b@57>$g zBt5aw zNG~FXbcg`LS-Eb@sEoaV{66Ef96YcO&WEa?iZWQi|Ac^~AI?O?JjC2a zjMzD~hbfRC7YQCER277cbsM(sb+a63=b=t`|s#G_v3)jzUZq&z(7W{0L_O72@EYI{%bPqL46G z%E?j+N?CTDyX!)m{8Gsl@PL}a$__0^z^p>IAORNa;#)h?g_z_V(wu`LDvvwglmRY^ zYy(;^^V-pLG1xne*pPBVRhoQ59ny=h`8snD9-HL?La`+&lHuS5x@+>XwR@YUY_@ zYFD@P{6P&bMMx3iQa6-MZADAP(4A|Nn2KXUo)j~kWy-A0mnbIbI$cwKmy(iE#SvVw zSH;qjV3%Ae16@tA73KJASFT#WW%svhz3~PXo&Fh;%i>AJkG26F#nZrWn{azm-ygyZR>* z(}5kE*CXd$w|;KJ#!Xvx?rAD;;}tmND;WGA<4Eq*38qa5bXp0tO{-C~5GX~onGM@R zT2hzHWJz@4`*knAlv2!~cX>+A2+4Rb+=7J!IaMuTJ2G$%u~=4)geiw_om)c2G|;+L z8?Bb2`c!uiA1}XG>&d7%#Z(fbT*(b1lBaK8|IaggV^NNIEZWLdYe&xhO(~qwZ$HWr z9kdi-4vY5Snjj{wZ5nJTrZ&ojdxvns>nn>$ErnMalv3vjpo~UK*o;QO$PGa)#m0KP zU@37ifzl;b9Q&=4QsbAHz_t6*qx5-@sV1k2l%n3)X-OUlCR@JppGZo(x6G}QkT`#` zYVO+_ULHGn`W$KlNSNrB_UxgQ>Jr5*O_N`uTY{2QoXqhsWh5PyWRyw@!dx)djGbb! zs-`TVjZjh%&?p_X=B+NHBugX1TgjACNP|iWA(f?MT3aM1iO-UJ@&*r?)T?UEDUF=d zP~lpYYew|aD5K>N($+C0B_-1SJ!dSLs;wQ@-OW(dZs zlrnMm+ji|6G2J~Y8KWX_?&5{B7{wvH!6`vXv2dDhsWz%9mDCR5GAW`DqCbMTQeJXN zOq2SxfSTnpYEc!flB!H3lp!G%CE=Z;gjABGCbDq^r^WymTOlMUNm+MU@ksZ>MlHow zR;*aB(o&9?nB$5&TBmJXtBh$hbo`x=$gaKn2bLV{*}QhSrdALTL5cM`ROhhv^-;Me zu3hYeM3tj0M{dXIhmq6dGm+BqQ|B&Sx^V7{ssUJlkA>P45)*GINlj`>9VxU$U5O4U zlItx0N=7O-bu!ZIR`EwEBZiUCQI%0>2)9%TWs*$~2A0r42k&im8<#d*KOLqr|RSI{yjUl!8yD{_Xs6N zc?*BPY{jFQkvmK;fKgi{NOF}>e16xZOINPn_UL4E?9{o7m!%^lNk`<6s*s>0w$xI0 zWC3NAfsIlsjT~#V8yf$26`Yh&O_7Q~ii$cJH7Z(|HyY)PIu%JqLptKL3k2RYJtGw{ z&n}a{(h+6THff{e^Di%5y71Oecgmru|L{jL0r=dO?_2g!%rnsWsfUWrxydL2Pmd}xY&lyQeyn*`})R06} z+!6f|Tgaxp<+D*US1o~`QvFGImAI9Fv=8l%$7$|D_JbpA_V2;8wMLHd#zuQ99?d-O zo~;|0nD!Dk#@}>D%U5w>mk!1q2)unUPV(qDM0B+{BW6bjd0bf>yr;+(u}zf#B-sdQ zW!O(2UL}-yk)Em|(pU|a#)ya-D|4j@9s@ zBdVs~iiY%&sUn7@;&?j!bT00tr7IBL;gUHwxf=7<5V14_3Dq!&*zzbw;yjeC6OfW4 zN(im)nHl%$4O{ojHq*v(5~M{}uU&cNqI?l@Y{ayKos8s- z;P0i^gRUqg)J3!KSLJEkN5E?}6xmDq41}JCi->=tMiqsOq@@8d={f!d|5l=uyPe{zzH;T-^{ba(xp;#AWJj7MLC=Md7j)-dmV)8A<`aL%kbno zLRm{E2|+koyME*5&0Du_ z-nfQfRy9-{5mJ4oMOi(H3Aet4nn2ctGKRPQ=&a7scB8WpM4J&6i45KAkLt6jAP&Zv z2iH(mjP?-O489zuAH3Cv>B;){siK~4^kTlZ=gRni&(nb+mT?(Vkr3U(+D$uWo{=0m zvVYgs4LHnYw1_$lEyw(b=G$0}oK8qbPhY(8;K6IJ-o11C=8fxDucU@B&ac5t8tN*L z7~(S>%G!0`1wl4+K+zfr^&(jm_~1f{i)kekL;EU~+$euho^KSCPAI)lSiM@D8)@9I zW$%@751Mzx=D0s>Kf6T3$fcB>g)72GNJALfD;c6&Sb>E~8#eD4Q=RN$!~|Pd5{<$A z>d_LCODa0T*Wl4*>*qFZ-L=0CB){=4PhGh7>Vx~Q-Me#JPUy-jmoA(?dj@m;$B%Yi zNTd92o;LGojmdfrhz~mbXlQ`cZbT~dG|PD-1(emHA{E>h_3%EP9?%b65Czmj1`(pueI)3iTo!7$!-J%P6CBj&`ph&1WFjF!V%SMU^8ZDqAA!td7PzY#L zjd6^CTEPr%OF*OaQw5Zfr_oMYxfs1DsA^{9Mo%yKp!2pKK#E~X zrekE!aeX;$2?zAhPu37~j-zu%5!jkUI?F-;-!8(C90oNq-($X^l}|~5Bp*4TTtZuH zJ>VkBtEq^Q(&?V;iD=*xi(qvBY;`&k5A!lKZij-PS>!<~PfI{38a;v(x_Ap5ytjQb zYKvW{8Z9AehYjfvW@dNc2>1!+g->3%c8>wUL*Q+Kp~%8^PlqJ z{8(+BfVkDkr^$e(mCs1^Gzo{gd)PX(Qw&{|q!)`cIwTcqF>n*Q zskfbeN)AK^v~(FpV6&~o6y=orL%TPxT@kL1W3CY`l*3!jo?+qm2IN5#oTTgc*~=Ne zAfHU2Lq2jp)Q?UJwwI@6!cd-vCPq0iyib)*ZZrz2@jy&+A zzRZnuK1iKnCRBC`3x-IlM9N0dPPvcg#|Ws7&wCOI1@SF_(KM; za6i@m%&rPk^fGwQiQTStIV7JHPg%I4N%$o;YPdrA{LgT8lE^%i0CucG^ z^6Gh>oSq*NO!GvO^vFJ8p43JNC2m7N)yhRZyw{U_y>UJ@V)eAc2Sq<}KIwY+3H&7P zJ!CTWR$s8^dSdjoe9faiO7_6^^(&R752>dwofM92g-Nn4$bR>1DVDv?zE>T%xmw8O)_B55Y|)K1YxXs0|H zaZlwaVa|{h$|-}J>Ubm$_#fTV#$}FO+qmHieesOfPER~k8{dfc=g0O$Q}5(b*)NgIAI=;j+U2=P>h}m+03V$ zbSM%`y^&f{VmbO5FP$Nu6HlbB=y>LrPERr2gDRa;dS>Bp#cIrhZ`!m4XZ+f}YwtG> z6b~2A?oDf!agw)cC!d9di3^U+!D3Yp}vLWRZr=#w#XZZ36 zx0BL=TVU&i6xx|WI>qf&?ZBWs#1W8C6~n@_z27v)m{&SjoP6-$jt#4@Heg6PQqGWY zLN#$>1uhmq+qktoZ_m8@J96^erE4`$PUR@sVZdUx6S;EF>vYME6g=uCQXML%Kg_Di z>D7=2v^xRH9msV~5cC>IpB}FrFKSDW!!s$M~*%}befX^v|bS#@*xdtas>7Acx zzTSP5t^5J{GGf4PRZO^|Z+AIRbq^N%z{hJfQs;9hoT8f|8!bqZY|0rFbn47)IH-Hy zfdvJtqbJT>xP0~cb(VEdRK~QH%7T&RC`T^JQKGXwP6pDZ$fKMMpQCORs?y^O#Hw8Q zJfxjbs>y}WrKS^hs)`x6(U>#;MEJ!pIMB-`wb#5O{QO{wmwQPNO$NH5ovdX~UGAtbQWSE7S zM0GaJX*YOi^41-r&N^H4+Pg=BbCuJf{ZaXG=mz;Qzvtm*Rx3OXW<;xQ20e~~Xu0Y9 zO>| z+~f-sPUuFlDlEEkZu>WwlsJmRK6UC9+D@l9z;W?7#S^X-fE5@xzr8-|z}B_PRh>%R zFeXN%qQ9xKDXQs2lSi}TOqB~;Pmd^d?v?9zG>KIM)hSLxNH`o>b-IDSspG0LBJazl z=q2wvZ&ObsRt_N?Bbzaz$rXm*Og6=UX*}5vMyI#w$~p7NrWH=l;V8-Jlrpf@?6=6K z>LwScB0*lY;hRiG96b)%oWU7;*l9glAUb=GQ_T77!yW$G4E=rv^k;0K~a#d;!$2I?e zBA~LHn54=$H6)rCPVq3WQpRCFWm-H^HS=pG4&o-^Zda#waGmS^YbC60!;1KsH>4%A}a1shG5?=L%|l&5&p~1ZQ3YPm^`y zA{q>hibP6yDvyWmIgC;(u4X~1sg^5Z3d73NjBqt01f!>hR8wkzRVM=*1G3>msix#M znH8^^+qVB3T)>29x_})HYB_M69xSd8rAutZq4;^!PhT{d4`))-1t*?GEY7lmL(sS2 zO!}x9<{ZzP(cmAFsKhGaU;3^*E&TB9`@ z>SR;WV(BJ7YT%Ch(H?u69mt5Wi=`{p%+Xdj&Hqjuf%>rG-(j>^vykOiTvIGg0!Ps# z;`pMW8RSliPJ^1!kh^#px)^*3M5e7sXvPT!I)a}&cL`HccVBz`&3E2;=iPVTdFzeW z;cB=xhr=lN8mi{Z>C>kv8>l8VqstbJ)XYfHX#5lv8wIDBplUTURy0*6Idm$IshMV8 zJTiv9Hby;4y+k%c8!Hi3CfsVK$YnvQiH{h%#fJ}xM#Jx3RzuC;m|#`>*00}yOYuCU z>PJT(S1!}h;hgK?<+^kox;PmQ5!Xh+Q!}d9^wOCeZOh99(ms$ViSI*r-aZ@fX;nF)#%)1(07RFlR~&aC%wvLQD5 zx17D={(7DU5AalupqOoRE`XF4aE2+KU@%r>Vol3-tZCugV4U7mu_;nUearBV6lGBi zoIk9?q4toEp@X4dwxhN;UyTNmxq9RFJvf=S-}~T$4?q0ygZJQQ5S^IQbe`t?xpR;W zMWchWLNXjV#aw2){;voI_cb_;kxU&qNiqYX>C0tQd>ZmIV>}JbR@<;#s=+A&l8$~k zpcp<33)C*$h^7cmPsI(M8n2l$=uXMd15htCC?^*;&L?w5Cib`;mCIr}6WTgafGK z-?ej?&{SH3kqZt$#_V%{cIv?1U2&EYo}Xm%X06!e$=ajpp1DkQFR2$vl7f_jfrrs4 zIWqCp*gCG7v||UV%KPTYrjDMza7|gvdmnuC$7i`MeRP$^vuZBGr1x^6}90IHA- z_0khesm-7#vqQ6`Tv9EqMzEbSDR&AYG&8K-@FsJ%Mlzi+id5oV-SZ)szK2N%qi>~v zgz$$w(Y-JlRa54=1l~zGIFnONXb$Y&rYV~B>+~O26~ydt^1FvVSF1+U5_ml9Ac{U$w>u~Vt+@qSP)#lh4PaMer5CDhW2rAVZ` zAC`-Nw>O<+ddlb?)TCH?86%f=j8xPTOKFrh!D|#6 zCDQthp%pHEkQhgdjD}qc#R9dU@yf^tMy4@1fj4KYQFT6YM;WG9)b8p>saT0$<;QVOeiZ#7C$i(E^3mR24E+rw%p-23-c6WU0> z(ti?QuK=#&hJkQ4zJ!ss_DBU^k~KG2_p zV~L6joRt>dm6V0kja|+H#{#W{YoT+&n11a1KuYK2<@+D~%csBi^s`?^x{Fx?98DJm zUmc5iil@YlYY4DVv|&zKp%~&<45|fM>EyycVIl^UUALnTsKbWF>eN9|OV6`3T8YGk zf7!fIa?z*KwKQ58kVpUFc(IUtPcW@CpqBPw*;X>&c@~xI_`O0aaq?Vh1#tpeVew3c zluB@e1e77Z9@3h8C6j?K(|t33Pkm9|Ln@#Rag`9%Q%cML%qJCyWpD_e5~+7b&s@H7 z@3lAH|MZtX{{;0Hji!0zZsavMeud$xUJGXvFSx~wTv7?K7qNtA38_@yqH$h`C0)z& zWymlrm_{r8^_}!Jax0xwTDerM6sbJit7KibUv=sFDB-IW!xTx3y&t6&$rqt9GTcaT zVNP8_xTh3qr8)drd5PQ!zXQGk_L>e2LWNXAujRYNpgGNuN=cuh4=z(hqm=@W!nSW8 zCLTvbp(+$^FoD64`hzkmdb19ruU@{W^CQ!(V17E&+d-)`dZt>6R!ShEV<}Zfbh}cK z$Xa=)7rBWsVi_Y9$|d|uD;BtwkV@Z+3_c34QtB;o6(gh)rqTg{Mcq?9kz<`sC(S@CHs#&QH||^tT~_f~ISpN=6cv7U>_Dc{ zg&)a8Qd#KvzK>nF`L?8jx-KUjIe~=XQk=IIBOzUOMB`@s961%n7Bu`C-bKnHze1^S zjYH>HG`@>~9$_fwRU)Xf>&eo}cwzeCj714do2*D8^@bwjC*Xs^t$YKe3`+&SXt0Gr zdV}fE4PPh>1r#xGEb>O*^9CIVKjJ-hqW_TAAEvRiy{!S6-*lO zG=B0aTnm`jht!nT8fd=iMBg)|Qhkb!XzEFYKf3F7u?RpsV;(NF0*i-I29n$2Q>r!w zHhM}~fKN%-yvtEgq#rbVqmt|ie1@;E6DNyNoSGG*1!|FY>`O}eTH`m9fP?%m^8_QOPIN9MM$0iX5&k5(ruQqsN7aDhR+|1%q=Fxv3q~5T&?{7_$cvPU zTy-e}0_h%xRQf)pU~ObEyeUu4UQ5$c3h{%ek<#)f@Fz@-{H^1a(i4h&3V%~(vm7ON zIZ6(EU`q<6J2h|0M6sHRWIc+}y6ab&fYG-!La90_r5edZE1q&W0!2cVWPXw|sXE!u z!+JX{%)52=>iv&d<)=>4pG1lh10P-eRbyoO6UijFRh{Gj4Su9n7c)}{SqX8!i=Sc6WZ5<g?}U{SxZ5Jf*C`NkB4MJUtLoaDx=DzdX%E8e#linsmTg^--yst zgwhknzyk&#rL&Dr=95X42sRjWhP_Ehq})m>Qc84pI_amehnKbE1)bdqs z3s<6v9nOd8ZH^ITv?DHy|BHQc@h}-nFh)(f2RT3k*@K7<>4j;wj7$@MY1Ma%ofOAOcNEC47 zN}?nSm6Ysc{JQPxN^qx)x&Sbj1!JPB4LBoIl65w^6AGq^q^Lwd*?(!Wa3_(<%B40*?6_4dluJ({ z;b*#-gAY<_5+SFkWI!SO2Bpat(B_mt5lK-}OacLwe@>gwKB1E8paCEPPN}qwRmq@4ib^!p$%s>2Nob@|NKr=KOCX)rsS*7U zX#?M$tw2@-)@h^`#$xt&!BFzdnb;bfUDW*c2P*WtrSlfh} zr#p>wB1wTX`rxLX?Mp-nNs$N@(hn?9iNsoNWaE;F@N0Mah?uFze1Shlg0BL}4T+=% zo5)FMV5k&(Z<5PQM-XIUL8FF=R7kgM1th|4M8&7*MA0WTkFhUw&4B{v`S6(;Wf*3p zkQ~tr$|JIqE{BZ;kYkt3VrkONcmMQ{fB$=U5o9Bn@hgD_3Q;bSg|u8FTNDB=*>6A@ zbnuw$2vK;oQTv=M5a!4(EQ`T%k(V*r4k@J3Ncs^;VL%>5BKVV^MB%j;Y4G`-Kyu$j z7jYlzkUYvypdLy#Rqp#5S)o7WFRpT-MAC~u^i?AAA?)t}l-5L`kv`IeAg_}^;-Je? z(I<{byo=`uhsd9!(g;&k733oi$s%hh#K(wtKp&C^r4uC+#vopP`Otjjk&{vM)jW?gU+FuMGN=iKXm8wYCk}n9dJ~R-1`maYE=rlF^CSFe z{Hx(s!mcvbDiJ6}E+hvu%o*rILLfxRkgYUCF@_Wfp_V}yTqw8n9N`T4J4jsmC|O9B zSEFv08t4n8(?`@yq!XUUa=uw$M46xeg9`cEU;p(_zyECtwl*{{=!7Hua73glp=g_Agrnv+l%yo zKG?zZ2YqeSjvV@^Bi_z|a0<9tOHC(IJxIu-uZ|y@qfT4qLDf?6A}q^=y25S&Bf4FTGRF5G34Dp`i#maue|Z=|M+*gk3U9$ z`6$P_T?!K87){dj^dW%+a6%5mam&Ye1;2)tNi|3vxM`k(^`d}KTD^Wyx*#KK;=NClq5fI*vR{6R14mIV!z|vd%uux+x^o{TMO9`N+DPD49wd+FLK~?G=%9=v zT7AqfkK#!(1A#mkUV8qcr;aj_7pYzN_EbkFj#d{vNvAp(TYBCj&eYIVh~-0uZWwa# zvx`0u*CKCFKFN5X{4^%*G02rZ8hPN);X~Wx1EUxyoaOcK8Jse^O8gX-Y2R;}p#1ekdf~w!KFHqlAjK%qlkmEct45ZOD%#Zr;~By zlE99fAgc8V|$RQ8j@}WXXNP~>jD3L}S z5pY5sa!Et|C)3W527c$DIOII24)&UixhaX}=-)Cc(`6o^iE;~nqUnDK zC>MxC+EL?5bsSV~=Ps%w%7)Bdv{7>oY_y&uQd8QfYvET$sH3k9W*wA8woV+Sc$)Pe z*2OfOl{Cs2HZl#mj7Ax~Nf#7M;Ww%%cI~R3Lm8m zol*46jkiDh^=F^`28ZoMQ7rw2rs$*%tO;T1lru0auNT)r%*4$uiN;MdY&Bj(b+76+ zI>!;IYDS$5xbmsRUF3bKf%H5_QHAa)jR-0uqDnCi-Lk%5N~6f3+^09tU{*?Kr4iaF zQYZ@2<4}!mIiQKWBY%JN1jPipjYvp~FmNwzC_yQu|%$i zE~Bl3)sadnBd6l@2zp^uDbk=W*f#47$5`!yQ>t&-v1jxda8F#gcIW=>8##mtv<)DhXGN=uW`a>EV&q5m%LhCj7xC!7~-g= zA&(KOS>Z1bO1g!oC~LtlL^P?o;8owNHU^}@BXw|AzUTKKYjV$ z`ya>Y)wB*3D?YB~C06r9d^qEgPQ%A@s+Ev3LK@5PBN;8q_#}U5q#6-WG)l>c64EFU zMasxzR7R#Wu#sLvwe(IJQbh`5Ha??OMuhc#779gFpD~~xMx9m~v~@GQV6W%MLdpnf z6lFv`kvP$dH0RW--Wf?JgNVuzENRx%vs-f@=7^})h4BVW$ zc=L6g4DDW=dpu;pv(Ml>H9V~=Pj96pG|q3u!f0mW?29!Cg*x!V(%eN4anH_x7NJDH zo|}AX$YrFj$h&kI-ONg8;VGpT+C~aeN*ZO<8rf&hVT8wMbJs+c2H(O*4EaYz{y zM&mIyZQC_EsTh!i9v(k;?khzztFogmG~1T=bv#F6TdCn)}+YJ&nu zRiFz;8`edcsqQJG2xCYYDGl`gAI_8d!e1bg#L2_!uvPhI6!FNq{2JU-@~{N`Kve`b zLKNXEGKx?cMHi}daU{s$`g91RTNPHFMd||Yd#)RkgbYI$T^yljA86I; z*cg%oo@ic=ms?p#6;&G5Y2@eRUlvvHz*F_3(2#87p3CT)Zy^wi1oS8ns9F+~(OL84Ce9J+uo zcv5+!7*Wn>SETEwRAq!N!rl}{3W9fdG8-j<#z%Z1Q_n^h1LB~+h%$Lm1|38ziV@zT za~A_8t^rZ#VQ2Y4U39N-tIC2wgwCQ<1-AGEU+BV6{uy3_8jv~`UFdK1hxkN(Fuz5J z0voX-dXQMExF6b~eZQ8mkhNIH`#$i&Ta5 z!%xNMci)CP!*i`DnnMm6O<)Y7RzpYx5GmpS8@8YeU73Ih2Ezz0sx`XI*{Y#z^K!Eo zm|n&RL?=?^DdE+0HGxwRN80^P{1XkXliw4wV@1&1$jltBg%g^uDUx`~nW6%YmD2c#fL9MqLwDGRs@ zoShxAz+jbEMlMEw=sm9Db^iQ?i>0d|V%3Lk1~Uk*#pU z$7MUlD8&uHwkd~t7doi7dY)>)k<|E~jZalklxV}x?{*%ZqO1yz!wMKaQWFXtC3qBP z5m^N_0ZAMzP5z=>cN|wV-`%TOJVX^okDoYk5=YFQkIP2DKj6R8iY(ew8P@Xy6{d|W z`l?`8jT9ne5$Of>fX2+DYNGgxMio6zQ8J4ZLU#wv;18dJB+^er`CEJ9&Ide2e%0Px z{*2BrRR-OLx^)yQ=n7!jYIB*p%Nfc`=^;>_R2vY5QjlS9kk{xJbmI1y(DHTyz-q*|_|SWN^BZ1?8b*Qp&kdd5EmeE(VG{ zS>O^9bHnB%oue< zf?0FSCac)P;fF3w!gH~!#XYZzh@;rnq*KE5mr(Wxom;+FW5y&YwYSP4;-yrS&9NM&0=YRqRAL3*jQp3q?kOd_{J)A>3Uk+X4vd=h3 zn!@gjf|_U~L8D}o3W^BYdk8{`D3Yk6Sb!vo9=OOU!v@#gk5$BwB-$sa>c%GgZECU? zGl-N!r-$MS6c$F@PzY?X3Wk3m%}^7RM5hVt0=p_ZXXvO-A_pCVg6L%vyBIs@C3rDJ zouKDvv@|gmM(la`h4%*afXBE*E82+Zt$SAc#>Z~ zen|W%+)50%8BjyXD`nq^46PnQ2IUsxKQulXFNpy`D8bCIAw^_vnVIEqf=NjfMaV<& zQk-acj&!V};)NkbnEWA6@hYsm!0Pei$MEk2(#=!!5pWM2ja{h{j122T{rpt#80~$e}8t)dYHcBokv(iRvG^kP(6ya1lL06h#y*+O1d)0u zYH0MJj$Pz1#z7Pz;6AjFw|ri*8FCYl8!2`k0$UK{up;_`=zED)5ioQ5h;r6^Uf6fO zInmL=NLfi+Py_{W8X*I6fP1)jktc?W1D?C65xKGm;#Ummp}2_7KU4{{8}bivqx>>c z%+^JO_1p1A)kDM!E^w27NI4V-AvshBLHn<0i}8&hQV;quMGSNeXdGNLp#nZXorChm z>K$nF(i$~(Z6~VYs0!P&YzJVI_(2p7L5Vac7siH|FnwU|>6O_bgJ1_XzqAK1W zgR@Y`fF7uZiEu$|0nXw|zx4f~a~Za)2_qOe<@ac}@ekhdStl8agQ`pDgZS)_RBmEN+h+ z2|XZQD0@)Az=F*#r;K3+^)M`lm@MxcM9M)TNaJ&RPzU94(F5a!+(USWRt=3DAe?j# zsfKR0i)!fmf%Z}JQeO?lCrA#FGf)gEg&G}Vqf&Y* zf<-Hbv1;H+%13waiJqk#lzALRLK5+U>Etej7iV3a_M`h#jxC3l#}`onL6 z8dUfU|DgQg%$dk2p$43&P053@$vAy%I)|Pb>Ow2n1Wr5D(02!N6#bh{A)yA!q4N!? zhM3Zdp=PHBzLg(_c!ZsmI00i<5wsh9L4+7E(A4M>j-j3AW(Q8UFvb^ji9!)WD+L|A z$0y>&R8W-zY7pp68dy}{P$LCg1FBIJLz^{(V+a|95+nxAZjHZq^01*7^bEw14TBTJ z3+jP22#zp#W$Z{DPy^MWrdpz#nGk=Dm?vyGh$4rQHx!HabxiQdkQhr2Ju!sg<<18+P#^ciP_l;N7kYEu zatzODo||vtCv-7Fsbe!2QMAx5+(=!>DQHZ`$^uh_%oTYTp#iregwU#>HU04RkQfvu z-Zskf`S4Uz@X8MqfrX86$7Wf%8ucQG#`S*;c$#BPD%-=d~;c4T(6wvwA6x% z)cjfOgvB+`F(809Q6f4p?AC8REp!P(ga`%&IRzfeRT2g!kFnCB%N$u>fc%OQqTt*4 zV1Bb`Wf2U%F0;lW1bTureeZ5a2aTz<^mXv2dA(!|HG>>hf(l;oHDV4^YhU0J;1e=C zh&y&s2_Z#Lk~_|8V-Pq)*PyGTv%tZ|uaT84j9rg1Z#WL05XbP~BzhQF@_=FHKky3- z6IBe62WgO56NW51^##y-lxl!q7?46y!c%A|g=cbc+)vw5G&DygbV3Nkx{a<^6Eq4! zPgNl>G*Aa64;Z-5p52N&pu%;5585t1%otuxDrYYa&oV4LW(r;UmYe1Yb(P@*1qfODUulC=)T#Vt@=gGyL~FTk$=w}eDx15OQsxRCB3!gPCEB7=0$1%$(qpf?2>sU7h35^aVeaB0ggegA@u;nj1!PTDnXN% zFndwJzu+Pko|Y)uGqEM zxfnkDXWqt>4kq@gqi-E)3RRLK8(&N4o zx(HE(P#r=EsocLNLn#BnR%!qhz~nrdW^ZKh+DaK9KV%e;2#z1;A$0TzGps7`q!OG% z3wzR2DQ3Y{=}6(D+~J{42s>~{Cz7C)0;R)(OuU)+p#->u2o81DvMQk2NHK&{NF}sF zD4}7{A236}pAWc$EEch!wXKsw+2X6RLKhZVvse2wdCQh=AT^K*;6RU?Bb88w6I4PI z7^DOGP>O&9mPif|6L=0n)r*i4rV>H~#T#fv6WzfvtuM$!=4L2^BZu~E-$Vy58-i9w zt<5;0)y_Tp4jyUp5}ibZ2XWBn$>B*3gNaZP0#imb*giJuZBau=K}zTgp_d~J_=Bng zyt|hkMBtYS@N1O4w34XXGD8j<<^4+MFLv+lQvq6jMuVpY${;J0ASviCyEmp&=yZ@1 z5D`kVevv6+1mREt#)T9@_=Hr#zDN@f6?ed8COW8=@p@*N;@<5WL5M@!$f$WtF|(H~ zTet7j>C8Anp+8`Xpu;wlCTIK$F;EB^NAQEn$s#bKW10|654wj68Bjwf1n8g(49~K{ z2!9Z+0JqrAG!ZH&&Y)F+aszdA_O`Ya^VjFp6(ciHYCsQA45$G>H9l98l-5^(#&uK! zpVpt0H)i+afnJK-Kr_cI?@$IjQgU`9#{;{z zZ`nAvR%yP5UjPb+uwmookU<@-KnXgdna(G`R2e@w-9m&v`n*;Ksw}1Xdv_s>a0#sr zB!lOf9}LJqB8Xw*$dC{xN`N2B2GnJ= zK#c0S*~p+7LyC)p5UD}8NCEpsLQvB1ojS8sAB0xka^N&>mx_WF+0~D=JrNarll6}+s>3nJPUXu~h4RGF95}*Q70M+)z z=*@lDAGb1(e1Yn)d{3(%LO~l8fuceL0*(!kf8(&X{p|k?xN40j$bDqisPr)70aqp; zJBk&Ivr<6lXxD~S;g;FC(iN;jVz70G28`4jv(p@(l(>Zq0V=?cl?d^5(K`90c zcWo;*=TJfG3|bL9Ux$lT1keN0#plWugrf?fl(Q5Nkr+Y)(fNBu*8^HU8|<$FGO`)? z>LP(&*AKH-iw|xT>)@U*@vlQUJspG!(Vq=7j?I1W=xyNY$lf$Z6|s+9U(;(6^D5O9Lk4V$;=dM=az$0r)4V$_&& zjgtZJ@LrufBt;N|MU@k~vYoalhrSHDkRTB#IgFZtMhL|dR0${)z+=>9D7A=84dfU+ zBv5P~_hEpv0)25RfY|`71?z_NN2_PvQPyu2B zkMX7_sL_C#AzVS!m20i0lP1QiG6*#D$JO>}0^HI5sunVBi)=6?(6@iz)I*O-z{U%-R(UU7LV5+oN%~0DRx8ldj4*o*9NM~e=?kUtB4o>!rveZPa1f>h zfF(*iQ3vCJJOP{*zO5wC#e!JnEDej_TcL6dYd6#GpBiA;dfckvoZ4!ari9tgZ z1APH=0%?Ht0<@m}qhG`LU6c(0;G^oNaD!h7o%3Z<>lrRv5qIN)Dwy6baVAu^*3BbRH0($F~=?oYG z@(c=@1vDOj%gM6BS?ynqA6`HFesseyMYX?BrvSo~GAwKOUDH!|wb;CSgxQ`E! z2*M4h?nJ>c2aMuyuIQn2&BiFeX*%+h{cCQ?FR1UQ>HeHsp0xz_Z(8{?^gA>N;AbyF z04pefjTjWNT&x@bN5P%WQ@m+N!T}x1Q1F2z-{=2^a2P3N(xIPkP|@1u0DVY z;HW@ufcNpuG#pd_DE4PjAnJoi1WW%f)-OF@hNlazwjb#I;b&zz8BzAdsD~|W-55EZ ziC3Gy$UiK4h_0-$B8LVs=&a_ii5(McHeAr1K2@0&`ajHH-a{p%2KGn;cyAe`&&mfJ z-n#lFK@R)Bv~*e6fAcokpDExe9u+GAs5sU6EUhufJh0Y58I9H8k#!F_C^Aq1;R8xO z7|Ec5fIL9fimL?5_sWV;iT_Ffq9#i zaVQ|HtXB_Y>;EYp>2LOiGnaqa0eh++7v~>iJJ|k29C{4<*Qy)4e^wQwo1z1{0lgn9 zNoF1cwy%A;az+l&+8+VnM6OXkQxyQ!7MF#U1-f`elm^r6k&0(3#;h!-6}y3AxPbHk zodaMNQ09>(0eS*vC&*DF0fbWU=THsa+m-}1*{QL9TEBGr?Dt{&VdJ-^r;V%iTl4bC zd`;TmYpmu(%fBplAqc!7!#UhH8)c?cF0BvSv)r!|Pg%Q#cfkIUJt}4}Y($e_Swm>f z_&lrre`L?xvY$!-Bwg*#q9D)2Qq0fu?dUY0ase@L(J6d%Wg9I%sJ%X_E^@_`K~5sY zAhEcB7!fuOAP0ku1Za9RSzr0Ttlu|(l!D;>u^;vQYWZS%m39LRM$&iuI8Q0SGZiVH zImS~>ZUwH9^Fq!2X#I^iyF5?1bM!A{7XE5@uNJhRXobwG>ofifDY&ja=I5E3frrO zqZJ=arFeL-Iul^Bt`a>-seeTN`o-g?;3qK(?AWmzx%kZ6-ff%a)+~QXWmXRUBk|wH z1p+Mtl{!+kFo*2ldH*oKf`9G&F*AhxU+qOT znw^ag@N{;3h5XL;s{V%Y5%W9SSAN)t;3==)Wzp=7t&dm7j?R5Rab3MwE-aO_9IK zmB!EFZ#sE(J@hrERvNg{`en6TWBgU90gtjh%-<>?rNHNwYMd8&{)huZO0O@LFTK6H z=QoN9it?`v-)Uy$Y_e@+b0vtU32F8aimVuA5M)EOH5#A~VDIN!Lp{av(d92*yz~lB zczp2!%zqZw*1#!3q8l;gOKA8RED|aIX8=`q+Od0rlOaCb^ha3wXT7%;dpOv~;1Z`u zOXJJ->ilp7y6PCdGK&<^^XZ?|6rDK04eO6Ie!F(8gnSx!pwZQ<;cx0h-$0+wOfUVt zOyAkN+oI(;?9O2`^Dp}E+Mt2b7g9`<40}Xwqqwodow*XMfr_Kj_jOU zq1m1lIopFuFDLv4ZO^WM?kvw>qCnNTeNpF)($bjwlJ$p-kCZQLUvm9i2vV#}F`$Lj zIkac%Ousskyj<%&Wcp+$TMynuw=eZ}rELt}gg}E!3)n``jzTOq)PEaY=#Xq#Uas&w zntFxeVUC75fMe&+1~&oA^L#)s{MBpMZ``O?MYw?D`+4l9YQ3zSM!qMFvJS!OKYanN z?1UpYCOMm3XW_A1dp50xU)3xRO1#YTF(HZLhHAIZla=td;@5`lS)N44FRqH%)w@{O zpk~8o(d*Ogb6G$v5Tfbn@t0}FH;r7ZOiQIl6qqC?X+ef*oF+G=wuEF|1TE1`i zw7d*Gc+(jk!@5ZAVfWF7mz~RZiTf~p+vnlAHN`?JGd#yQjWgODg(-z&Ldzl8QAKWg zh0gFihZBr`DceP~Fh9@X!(>RcI}HNp>(8pgU%htY=IuN8UcL7!FOtLSp z;!i8n01-1|-q>(e2giY5SBA zJpIK>mtpr?x9`4s|G|R?uRnFLXOzOy_`9X4-ov%^D^s;)BgqM>D-GCGU-iz0J$ zVpx%t7xsIl1Cg#VTchETu3foul{dIX37M$l)AH=}YB7+%aOssR#qMvs_14>Oz4hiB zxFYL4T>Jg<#pv{rFSC22fjzATAA<}Nw%_}Rs`-+}zHM{JowT%97m7T5;@rjaXYlQn z+%u-3r-#I$^6c{(-N(!>;}Tkw#zz~T$CyW#r?2nq{?bUhhsAX}kJ&k*{qW|y~c)nm|m8b zR`{OySVl>8_v<&=+h2e4?RVdQ|NZygd-t8U-hA-dz1!&W7jQ-|#(B(*gPr=zzJvI7 z+#PHmhM(x%)eGzK2X}5>kMNG6d|V&&*x9SMu3bDGwWo+_DRIeLhF5Q35X9Guq6dp% zMF7l8)#Eix-KM&PIy?_83cF`_55xESduMi7y_>LOfG>F+sz+({YWA4yK)5Nshxf(& zS-(|omj#)0>oGEy(IszX;Ma66tG^H1y@vQ=_q2K`+;PF~U^*YYU6n&*MloQoi*3|{WO_<~?g)74=9$FN zm*LlCD?bt)8R@sKmyRwkJH{A|@1ZTj%U^}fZ$!fu`n<|B@%QwTB6t46rOWW~cVBz( z##`^c|Isgg`Kw?3^3z}Z{F9I0drNj#VxQR^M^Q>VPRReTIxNHQ-}k7-a?sNLom)2{ zm*;HF;iD(cT)2Ac)mxX(RkL>yjorOmajPH?! zT(@st=jG6q$S}D_Q+_UWa70d%-(M4%HMiu|N3hdKpJsT{j{&c75T^jqfB{#{ z!dJa<=iX~~u3k7z$wJ@!sYpsAgHaO8?jBWVeZ44FMjpZr&p1!gU4Lh3UuMTpu6X$- zo$n{~Vf142($(wqj1u|Q!^`NhIwCtWx38v@o|$!_F9X4TG&)w{PFM zdk+JyJGX9JyYfoc-;v_#E$Zv=2eSCho4088*6NH3N*j;|u&>{|bML{M@4Wxf&p-W_ z-~I8AfBeHAe)rp7fA-1yZ#}qo>zb^Nv79Oe5qUWNqiWzTkUVj~q?-SLxn}h6@ByTZ z2ale)aQWJ;JFj7^@!zB@i)x+#vN~f`luBOIV7M}jNhPoZg94=czBsmr&>p{s%UFU%o>=0YTvAt!OZNv3e$foz>BQZr!{8#@jIZuYUdeKmYA- zfBoxU{`|+^|N7I9-hJb>yEm^~JWJcsRcdqrgR|mC$AXj-L?dl_L`56y6glIe6X&nr zeU&DE{dEj5@87(94pwJpFJ`Z)eDU&{Wu)DyaD7W=cg5`NVcFx6+-VI5eSFi|VeB#P zeU#C=uwMN;Q+T#07VgB_71d(H;(05>%jTS!$tja!LXA(Zu!f473VuBd{>B?`zV-H- zuix)=cZ|!Fp_Q(V${T8LY%IPZr$gAQd4T#lE-A;Ze)qN4--3JpC3^Z_{tfMKfByaN ze*4+a>Emx-Ie#j83;S-2E)dPRjSwHXJo*u9OpmVN;_N6Xz~XPbL9_EaF)InP#{e#? z6f9F@l_D>d$8@)~I!UKrjkp?CM`UNsCi?oaJT9m0=R>}omD%X%S(Gnz8jRYyDcBm- z8Pqx3&KXv<*8ZGc>x>@x8+y6Q=BlIJfAGeeZ@%@`8xJt7zN;&dBTYkZN5&`ZXL`f3 zTbLXb*RVRWIfT5(`XjENI&=Qgl^eI|-aq&R-u(}M{wr+$_doyg{nsDde+?1j_KjE0 z9`CG4L!(87pgxV!`y;ja$qP5o$?>b-eDnURcW+(2cveY?%pSuxl_Xh~qRCmEi26j- zrqbw~!pcOxbTM^!tk_UoN4chCbIaJ4mi#U1aWHz@$#wdrsLF=TS)-TzNexr979Ni zz5LFdyQs9Pr!((EwN=v3sDAdsD_3vcd5zBf7oYw14}bp4-~R3IfB*aM-o1S(D!Ugi zoH^OIFwEY6qMH7ZZJaoN!J>*|`oWR#h0X6|KfiJ1BGXxQau|~4L`XkX}79zMa2uEyFN%wMPa z+0)q~t{`;}cavX+o*lzAdUm?)D_2osLDj6a_{ZNXP;oA-OnakSas3jXC`)kR-J>wK21YN(;diDUFgH4Q z*t?lujTL-x8>_dg(c#@S@5kXnXL?v&*<0(^*~gWNMY{g_8|va8ef;xxZ=Ej~Fx||_ zQW#r}<5h|T12wvJ7@WcU+J#f~@0okcK`fvaE&(FX3pPzqn z`%H`YpKqJ}oHB^u!vRQ?X%yIKaZNVR-+Jf4wR6RS{PM?7o{d!n7tzNrW4e?USMnAXzYUA?@6^&S!X+Ym zO@LL7U1g))h#(~qNhDT@R!X!vl)pW{ z_o}+5d&UumF&I%F(s-DoXZpRayXqS#$7O%<@^9b&{fB@3=fD4a_IU8(=1u48Z#t3s z6Xi%z?le4l-HZ?FOSr4H2%;CxCEr{t&2q^|9RlVYt|nvK70uIjm#H?_!M5lg@EwGU zWVmK&P-7~*c-Py4^ys0;f}2RsWK77o-F4MGCE{vpkjjd)(M52yyWZtsb$v^W^8#!2 zu>4#g7I9?!i{rh{>kX7zkhWl4^%z|CZ-4iPKg(nP#}EJh{+r{q?!nLXeH%d8^K{(< zqSlbBzz{NSk%n@)Ne(rw>Es;X$lHa>B&^5hkaWp9O9CAWtL-JOMYcE%SvKKGw;s<| zG?a&Omn)|=sJ4l5oC*kc&J|zX%?(H^2`8yxyU)&{;Egnno9RHr6{l$V3b%+yfF?^0 z;r$ClmpG2X*6yM5s(Z&@eEIda&;R(Rzr6hJ<#&I5@zujlBz~UhMrv)#?Z7!yGvCg- z+jEOTggv)Z;*##LX=^w#Jd;%-T0v5;yRP1l+o9MjCey*S6?eL9vy$$HYu@FH!k2^W zdU$ib4QEbuLf8(vIS2f7h2w`0DU3aSa=85piKFr$1J?2#o}RNXru*rTLV!el1_Dk_ zV`F3Q(a*p7&2LGwzj*Qdo3DRywB0oq=a+D)=(K-LXpaAyS-6Jp6mTx^I1#%r;@W~k zIu;ps6KF(fSaNq#gp9WIN^B+0%|e>B2A*2JEA~Qc?7ZHtcf^b1R^&68ar0J0;$dLI z4|5L-bU*E-zD~kF=0PxGv_K%?X~PGpR;rG}R}5GAI!@ce-OZJit;46kgz#t2fB)>u z#|Jx`!>>K*BR~9OnB<1-6X-rvV3q}Dq}V1~SGi1na80sSRf$N?cy1zRX3`D^w_UFO z|9$fFt-lwRAI?L}b*Xd~7p1j> z@nm}gd#|(&nF&3Qgsb`E*Zgf?cY>!K3JSUf4Lf$tE1OVuH z5AH;FS#oL98rfCiD@wz!G^f6L!wtcdAIJ!ZZ&S|A!N>(8BZh~r1S+4#HDX`kaHr$e zopfQHugC1H!M3ujSy3S%HQfi!EGq4Sjdqd-!b7x0He6GCLmS2m)biDti)t;d6Qyxu z+nbj_OSY(X7o7|3PSZJX=SK^(%936mj-RBSD`4vS!q8xdR1V_Gx8nQkpj>;N*{cvI z?}mF0-A!Y}6N<_sN8mG*zv2f9eY}to)x1BVm7)!Gsx_tI9&U^Yx-H+J8nEgeTp+Ay z{O7dQ;kOi%P~lW%ZWMPqylVbGU_AL2+0x>wvr==5Jp83j|FbA|5+{TCt5>IP+>$@u zTb5NRASoZ*$2VCk>zmzkKR!M_+S?pC1fL)Sa1IjXZ*p#(*IKX}r@WPH$_}Z?RXd3! zvVt0+sL&?6zTn!9t>{+Tl^^U~&K=U3ad8e@Rc*DfcxhZyPl#^`c(5H_eA7Tfe{8Nx z;yV(sSG*8-NjutoX5nt<98P~%ByOZ-;tJ*xMme15X@gheuAcs5-}4dp?v_+)OU_B) zkIQC9{}Wn#X9ugSNDGR^wU-1Ny`PGoG(|LqyLVL3(eAigL~W?q7nMBpIn>9`p+%gI)izBh1H=Kun2f5@0p4-|2Ur>Jj$DO z_Nig|h@QV~>iy}Q*-|%Dcer*!D%0zl&WImd3`L$yN4neH#^PHokO;RY+YoH~W}(Ut8$u5_~px}_siomi%Obn#IDwxA^_PewxJj(a7#6lHJf(9c~-}iU1y2z zwdC5#R+)I*IM-5Au$4;nkY(Fx?3xDI&LzlpyK7Pn(bnK3-mu7HV`_$jX%9DuY{(VO zEHh0xeSGfSYVS9N>*Ig@gN#xga!G$59qn!P;>@I4bi=gcv{d0qwd!U{O~#L?Ds3JK z?W|oPi)weYJ0&J8IbJg5$?&9uz;`1PXtl$V=a6SBWyr%m;KKcz5C zwSum`SgXN{X`A+kOOolfIxVtWA6;2C$6BtSxIC`ul?!IN*=5EmTwJG2U%YVf>h(LP zJkwA8?ea)AwhzoPH@Ie0^t)cD{5Pp?FDFUEF;gia6gW~%SCstlyP?5x#oSt`5*6!C zqt`v2WTHu@PNYlbF(ncGBdyOqLx+d44yG@m+C!*|>C<1UYxG|Y)*;!z?lJAFC)Lv5 zjSuc{98>L#YWQU^E%9{)I(kThYRfdP`CzL7@oXz?q9xKMy32IhX(nN{W*3&bU#jlE z4FanSA~cH*>)}Sq&l|VQmRdK?vV}~W=)IkA$}H0wK8cdEx|vv#X;s8x;Lr(C(TwA* z)>W(S4$)z!<$havkBv{wDMCM^jg#I6u8;RUs~fu-9g`dF4wXy+4o=9yR%maWa11+% z!U)gc8HuJTH-=)9Y4;Ym^cY=CNObNZt2o*X4(7Q_v_)E~8-Fa~EHgbed80&mz{IKU zt*mb&$2$>2XT`dIKoOnFn~Q)F;vjvJJlpk_mBt{;<#vhL6Fyek`WfP=cS5r?u^Jkh zWT++!ZKFFD+Tk?fer0mLc-;bq{Brp_;{Of@i1JQl57iiPDgx z$Jt}9M1Gh!k1+a1pJua66n(`>?~4kg;kcz)KRy%-o^MoS)urMT_ZbJ?-|9Kq-Gh-k zQKB#xi4=nGrVb{pEvgk?sl*fe7MN)5R-~9}kQUQ)u#=xzq6(VjQ(KY_G7Q&Re)hpCj@Xu%Zkl(LIi=M&x)dV9LUDVBAX!#QtYw)3 zm6rDQB23PGKg6(9;XZdOTPXkl#6CF9-%#-w=6w6eum11#= z7G1^~j*>j1xHFE%KBKSOdIl_e(%;hq$+1+nSWcSlW@k-ByOW z0uMA&I&!MwpQX-{&cZay5>uHEmXDa9X{Fh_&=6PQh(&4}s~lA;$#T@IEXZmd50;bW z3yqKMy5#iy?d5C}?0j_HefJ2cZAT>c>vpu!sS@vQ8^UKcqG2A=!>zH?gsPPyS-uyG zCQ>BXUbez1Cr0QVV)a-aaI9ZYx;C>|n)=-ndeRXo%9Hkzz3o0Lms`HJid~RQ7w)l2 zn%aPq7i!B;PhjL`33rwj@vxhAgW2hc@nE z#^~sQPxQN*mpxeDbik}`dd7Uool%usRaLUT2iWp}W973auXW@Yn=GqrmQ#qcDX`?Y z!TF5;Iz+b6j(!kcmnmldn8$1~qDCWh_2)DX^}9W~6l0Yq*?OT_1j6DtShkwZwog=b zl_*9bf8URg67jB}XlnLm@cvR;8&G^_=y$m8EiL36oq9j#W+ny{E7_4OXLFEb*kjj4 z@%!fUgwGShcB)|*zZy+VG6jb9^GBVR^8l@X?g7*;X>(JKj~klJafmW^O|Th$*ZrKG zFI0D57XdT8FK>%IAtl7jpJ9pb4$1I+6t^c{H34~Vd2xmfje8_plI2Q6a7*#@eDw^x zE)i$-ItRuO%*4?ncHpHA6nC0lk-NhiFgC+b`Xcvl&b9=L<}k@2$R=1?8a+K#1fLae zuYFt!lkW9p=+Zr>hb%4Bh+w{{zN? z>DASKKl?lDuRDlvYi?3?MK6_-=>p0{a??KtszJ!vd45r&)(1sE8xw2VihsMWog|PDjWTPPhV+O1YYpFYMl#$R#&20P@2I~Y1Oa{{R-=#_hJ1t3!{ytH-UC=ZwOha3 zw(E@|bK9F5nfM@dj(n&l0aR1PXydpb#ho3V}kP5GVu+fkL1V zCR1PXydpb#ho3V}kP5GVu+fkL1VCR1PXydpb#ho3V}kP5GVu+ zfkL1VCR1PXydpb#ho3V}kP5GVu+fkL1VCR1PXydpb#ho3V}kP h5GVu+fkL1VCR1PXydpb#hoMiE$L{SO}}d@%q3 literal 0 HcmV?d00001 diff --git a/fix/Breadboard/2.5km_climo_snoden_winter-DJF.grb b/fix/Breadboard/2.5km_climo_snoden_winter-DJF.grb new file mode 100644 index 0000000000000000000000000000000000000000..e94bd1ba4e91172e14048ac8d95f0096dbd117fc GIT binary patch literal 114777 zcmYhh1B@SC(Xm2}dT5?7KG z0s;a8`454BfcrK7qv*gukU-!dz`&4mz`*~j{*Nev0s;L&9{7(V_)llZ9`HYg{|iut zKtSMzz$~bY2yCvhP{6((0*F&70zedfv_KStD?kGOqxl~U)s+hPe}hQC{)YkP1py)i z`u+X?^8BX)`p@NmWK8h?%?J<@_)qu`pn!mW|JxuSeu04d3Lt;we-(kK{@3uo>HmlO zKk$E!^M55EU`Sx#UlSlwAYfr9Q$rVfCoUo>LuUn3Cn7adCud80J0eCpP6h@##$P2M zxc{PnfxyAQfPjB>fKUYlBqS96|LZpa2(zB#1h!FLWtseb8;Vno5y(FmirTs;J~=3m$yY%A#Go>jkT$Vc?XahA$<4UrZ(d| zL?;@LrKq^*a%fHDFiCT01^Ty#! z1gAnJc_kEswTu0=oqb{L({|*m%_K?AIq8gtuwlZGu*}Z47Y~Y1c$!osLk$9PrFPB= z$yhDHQ-ubkAqGaHRDgu#@Q#y>cE%@_?(`~5m+0?i2u>k7VKCs;oNEv(Sc-_3*@?Po zFq9sMzX3o9%d=JsbwE=i!PJzIp*(_CN1Wx>!l~wkdp2lT3tB%=5U3b``B;#ZCG%Y( z6Ypxm1=cNrga`k&CJG73y9Cg0qiMdQ&tjJ)ORnoUEV8NbN6wW&Lk{^T6(9t~ahmJ0 z#w=Z+FunA?^)-HU@PJAbOBr0kunpCmg#1^c|1RVa*@B!J>a)r;$Vy)i4ZWQe4*0DK zOX^YG5&1TdkApplavw?axWr5T7aM57U-+Fc%>q+zsFtvT#>Eme()!C$*N(U?u-hCE zU&higPY3aCB#YIalz4JPqiL4@Hbql#iH`Q<>MyYmWz34S@yHg*eyOba6Z|WfkO8_h zOnVyvl_=Mwa%H}@FM6zP@jyW1@`rkSZ0PS(?|I6%3U?zJU~wmlYa7!9Lw>$+awGQQ9mv?-_M_ceMl()8)hpM-$7Ip*s3R0KJKLtS=t}kq z9-KSU-$RFWM(%N>?qULtJp)&2j@u8_c4_ByfFqrsx+w`3g-b9NJ=R3jJhI|QLb;?z z1>BhDz;fXs4rjpGRrODe%p?Z_ZC9w;)k`?r25Nw>eRac4)~h$hpkRTs0O+?_!*F$i zPWpaYNiyfRji?CK-w^Bap0n)DL}zV{F9-hTXVF~w+eT>PA6U}Y$z{GT|O7VNCV zQXl$!sbMxWMr?Z9QTFpjky z)UD?2GV;f({D5rhV`UQRheB!ic$G>lV6mFbgm*SvFg!)&=|Z<2wZ{9$#q_<8z!iHt z$)LdpC+^V?BLKu!n6H(`=$nM}kJ_YL$R96=`Dw_`S>>0eEK`vXHY%BusI2w&lr5b^ zw+7_5!bCW}1~S%JwJrQ$H8i-5qtwbROhgh%KH-TXv&bhBzS-|{!FXj$(~xmuMio>Qm26PLts#pp zeQnaP)|tkt2opnYO(ZFSd!}jtJtr}-Daap}ao64>>O1xhGu2&VdQ=SNP2OKgvHE{w zblo{xTj0we`wfNsBHCgrHKKnIiUXsXa#PKb{MKCV#71O*%-E$EVs@ReGttFsPeY@G zi9*`(kxX_wZ}xFR33ehbuc1eFu8+ENXZwbR=%mhN0qrGpNg0AP)QIkHb8>#}k zTRl*0)JU#L=-Gm34%ko({#agBFQMhDbpLSke$8to1v4!Eq*=Gt;FsNjT=`dwj^%=y zDuEHzGI}F)-Xt9Sq4J6FxM1-$)__HS8W2K@B0I8$)PkpVTrC=HpJkSY&mk!+c$EugBj;jRpWh2-4d|HZN^ zmBnZDsdz?^;p;epx!Sy;q+J z3Qp3`ROfa7qf;^znoF>mcA@oZ+uW&L4!tcPaP%<|nqzQ5TsZ%X?H` ze@PR`Qk3={-bL`IOL{Esx+7L9kf!^Wj48rVb~*srmz`gb$OONk<&Nb8f$Sv^_z|!$ zyWr2=8&s+DB)P1r@7n!@`}r+w*iW}L;(CNCfGstoBmZEk#43ajobB54jQWC(4>Xbe zvr6j4Rn@e)dA8)>=&l-)lG5gN@lwcz+R{ZhkBz7U$wJ#7f;_*Rb9l$l<`0O{&fa_p z*8=FVx?q+A>I~~P3{8(2Az_)t|ikb>vO50L69_H9su1^FtGJ`vnM?fp<{X1;%HB4)di zM{*6K@TY$V_T(j*M-@7W<4_7m&7{)dwcpy2z+oShfY{pgI(KJZ*OE;sC^aTzy{0$O zm3i{d#McWJ)AviTdYK)X8#ojx-!BsP#}w*8rMGa^87)5hVc)6ly+f^u#7+7n5D!=w zgk7~K6_W3)V~H}|KyjAmM3w)xnZ~& zFKe4M{iPh>joGZaI@m?N8{Wm1L4&dQwe!n#x8j*#w52${4q2L#%(|rTq8H>6b`&n0 z413V^UWym~&wEnO2IJpr=R?Q`r%!Q)srxP>Eq>L$bZ%i?)}IUm54Z%bYLkj>0d`~n zMR|*DvrP2rwGifNKn{0ok1*G|@D*LD-lw2h{D@cn{a?;X=!*#*gCZ<_XJXOT9IriO zhfURkC$~t3d9i*(U3f`aeZED;{rl9N!2Jsko`L~zef^de3+o1sMBN_t&Dk7R=@c%x zTIPZTRho{O(Yk-*^f99pflxk3lzO5_ew*^he~a}iW7c931q(+m9!$qmL`KBgK6u6J z3s24I25514z(qXc2b!D;SYbiDfMtEVpvEcvsQ=wEIzRx5hUV{l(i-B1(uMF9T*eRT zW>3FoEQzA$sG6~nL>C9ZcLVPl^%9aYy&}OIaSFi;?ID7y5;%_{r4PD>G@RC#?6Kg$ zqrjc?2MQ}2S$QO}KK`Mq0Otrw!kftfzr;_^P<6~!L3*Z@pmc1K9@rRb)WUoFqAiU} z-?gEXMRMlbQ!5N+kig@+Xj}{ANFd-H89=6X;~^?8MmR$hntZqM{#=55`2C89SO#^TqdVM2r3+BFfAn8i8z$Hj=JT|4;ufa~{(@E65$Xfh7? z=hPJ@c3%RZ5r0Njv(W+$9x_c^$&jr+H>5|0HFkNKtA8mRZ7*e2Gk>lX%dLA%578mb z`P5mVg zxfHuK&LsPR1A@N5%#Q453K*mY1X`Z{>LGekD#g^qvvECMIPT)4p6?(FG-Imi7bC*S zY<=ulnaBJY4$zsG@sgtc*BN^I;23j#dA!LD!iq2w5spcE#aTIKBf2ex3dseDyIDdV zZrX5uU0n-|ZD#=htF^4O-PY44V6Vz+M&u?mM}m+e@9q7SdOm*3NwAg=N94E2`iaA= zLR>7XRc0SRCwfus&CSGZ=-J@wzE+TcV@I`YqQw^QF^tBs!#`1q( zDs24GAeLa5HNPur8l$A>y#bnqOL^Sf0-cuxB8R1#-|1}cCr9zjRaef>=MfuR8%G0+ zmu1|bLs#de`Qt=HKk++zEw)&Xf#M|M33A`HKlM0674+zjUpRZ|={%gTF;i&2p!)cJH&u@*ozRtEfMUh!Nk&`~?f({5B`7p)B2Rk4f5)HPo}c`;L-L(H^zJ#o_>O((YWwbEH^x8N-cQy$ zKfvyD{q4VU>W8=9{AUh$Q%DK^^NpQSf@Rv%=9;+caN9Z;+%sgI4{lJ8-lLShOjR#* zy9a#I@#xdri4Tc3IqaEIQevb@iq^B3`znqA~qEaWEp5dg9m#Y0a8!88Ei6ncL%Gx#GxA4fV=WVT^s z!JAID*)iJaAyp^8`$J%HbVJ@@$j9fzTEbKOryNXh5p3nD>?+$aZP_%23O5^f!l&B< zt!SqCF2|U+Xi=EydfTwb2q>0kwygWk7cKA3*;rw5_Lus>FXu0HoLXnCWQ|^dGp$RthL}nFJI6PFMX|{%dS&V#;!Ol!nB@=1tVs6pj#m3@U!1dn4zh;Ra0 zM~R%~a&I@8lO{yy(^D}g!k5Or2-}uRTZ^QX=r;&q(Rc?KDxVd1J^g+t%yvkj-KR^L z6SoCI`9(#I)A?Y@i~6{TBKey+saJ;_Zt#PNY5p~$@-H)+i+Y&iZy;ysXa-^?BM6FZ zH5DZV6#qjTkl=`za_CT4e2DYna=_>G>cG-&;!XVhL~B%>o~j~Rx3*1M6fIvU94HU8 zw4a8*xu~8^2-!@JQ--0n#Ov7vO!)xoe(_dRmC1b=SdRuOU7t3Vx3j>xo05+oS>KX= zq?1VbXP^;0`{BEIOmi4pRIb;rntATWTtg#wA?grT%l5Z|&ZqxwB$GS+NU)Vx4v%^s zX^Us6Z>(ny600miZ2j6y8bn24yB;(|Y^R|j)$CVb!2KlYJt6JG-NUNeYyS^_A2JZr zTS!kk6GfE2SGjZvx===p@%gX#nD115eiISTB(H$yGYZeK1XQk~=r?C{tC+Scv!C3d zwFZ%8>_qG2vd#gDxJ?K(#Nh_<1`r%6HgOu&)*jJ{NjorOkNXN1)|6bAYA<=ufutkO zyfu^?j@-YTR%o9p8=bmzMJare+KUc!G;$x=5PP)=i(NDLIsAqDZ%iu;^{tV^l$v%U zJK-x2r#@mw;L<=4wb{V5IBYvoLn4=!=yxNL$UL^I zJK=vg;$iZ9#KtS8BUh>RHuA;b)FHYw4u!LtU&+(`Gtm2H3q%6bzKh++)%_LlVmE%18US{3Vc6~Qdsm^CA)89 z*@E+zfVy%XllPH|^9YgMewmuZ>wX5amY3>?m=@pzW*Pk%@pJOh!O{|POo%7qgUKS^ zEo$2Rxba0mAL|ILQE#xC!Jr*uk(2^Ri_!srl1Au!W_ku3MR1AZm|y)l6+2(_fK*T= zDGZ!rmhx9=k1`cMxRWe%CmlPqcAO7R%9y@yyIu!oV1_*NAp$Mbg2(K?|H|;T&c4u= z1f$~dDVmb8LAj6)jB3s0@F*76qN7~Ar1GZ!z2Q-~kiF|NJipm5ajN21G52q;JX^zH zyE#rO17umhgdo=Av;D@i578|KOj$)l+~|IR)PirY1l3pCLo&!UW^J?Gw^$N4lTukOIya;d@8uef?z3DA+EpjT02S-N|ZxfM&vuSdpO;>UUXR2 zr3JABd@_Ci_VhwJ#J)#lmH<(uAByA|(+ri;^)K$n@#OJd7=DNtA{g=4!8f67k$}GN zIP$EV{(33@+M8+!8^z@LxrneL|NR@0J%RMXxamt}oLH5yR_cl4xy@=n4T<-y=IRfZ$xD?3=9?Q3qefZFIu%yS4kMK)Rm%`)8}6! zsUb?A@jx%A|DE!jA9H7$?pQM4Bl(MvjfbqV}d0OD2ou{!j z8I&!}W^Y-tEXQvBk#;}KRkM&J_iGVuTW%sGUIZc7!^LV^J?MHeuNn%Mt;MR_%|#>b z`AmW@VBSOgSbS)qX=fB5^o(`F)>KLJ4NXt`bn4Pg=xliY1#yL&XGg!{WIr!O5W~so z76$r;<8*(_TC7taehyB!BLsiTxL23$Y<)UK-{C`L@rbyvFh{F#3*m6deeS9>jAU1~ zX0o+T(>L7bkAC^#d$ZB!d?xNj2XS*j^yGbHDUK&F`I6ADK^{}ctXnHM!lk2d1l)c@ z@L03#Ny{LH?mQ=c5;4@m5}zNesR7~%!;sZUm%z4$yyUnd)oM?9Eem)Dv#E2V z;m+;avEbr`b~OuH_b$^4V1xt!M~CCV$7lB;uo4KewS||%WK1uX3fSwiC>K^E?d#yT z&RRQt+dEvCB0K6_SR4=c=Bgh_PE}xOd;X$Q6Z@sU618{F$xZrowvAly(d)TBM0x00 z;y$i4ToHA=rxoGP4iWGgVzyj)_*(t`FPV<;K7m z^FcRI6V<6I@d*M@kRwexdrfT}^5_nUDJt%vNy4jDMFUwMzs|F@-h+M1emEgan zb$00MC*oa>S>)_>qD6A}%ld(qwYvLn=Fru^QlqhJWiI-*&@C>@WxyVE*X>RsWO#zX zHp)>RdQFT$?CtQlf-!a{pqAUIClUhVY_RKuvPqs|&LC8EU3B8P#Zc$i$S!ZSaSH9_ z%PC%q6CR)I@wJ|63ARO191Zkd#-a(`<|;g7Dr@<|TuedPOBPc{ZF=o$x^Z{org2=% z-iri1(Qv^;`;IoqdYvqguwauM9k$`?5)~9G=DVL2PE=cgz?A$5Ny5e z2N^gBPI#R;4I?SXE@h$Hd;fO&O=wtZ1Qf(#0qBOHkW$z{>b)+^(x%fb4gqR+O<8=c z;lgLIrupWzmK#k#H@A?UV@NTEmQ-B&eiX;eQB}g<1p^ff)$G!&NK)EG__r;)BOXJ8 zbk>H(Y57wrRX(WokJJNWuwsDiT6nr6_s{+CyECCY0j^20qwh9@BJp4b*4#sEm4^*e z5U#}s%J~|6OzM8#! zLbGR>;w?HZ8s^21*lEFdp_V8+_SOYCbj=Esy8r{gkM&Fp1@$uKkGt9XsId}KnZXu} zu};Adw-E~r1o^t`V|Rzzlegu53UWoPN6<=vy;BlsGI3+%MBfW1OlrRS3S(UYJQWSN z#;D5%?e-*b*7Sg;1~eh=Tsl?-V|I%*+d8|8irlu!A#b|bi-f;^@35>Jm&={uLRK%w zo@48cD9hSfW(G=UN7P{4R-faQzTj7uX^>9WGbeDv&GZHcL+SBBHpu&pk?Fe%$unw( zXF(}j>9f?a>}M(e%;YsKZT2@$6JP8AD@z~$Lm<79t4{h8gU^Izaj~5cZ!Iw0(#+@N z@h36T6u50OR$Lv>o@|Qs99>kGTY!PNE^IF0QB{!B-nkjxJ)OH7)-DJfbfU z{Th3Zh+W*2SW{)VenaY*5inHXqurKSdbGI*ku*GN;jJbN=Ps~lBu5Q+8yIW^KbMV2v zRvE&e)S6ikSoz;<+j@4pw?A+RHbEE|62nUs{AZ2!u$X8+a^Tx-DlVmV<|Hw=gK+04 zP6i{QlQ_tw`R-XL+Uorr`|34*nn6|tIV8o)F|2oW`Jv!0C$FAT9=<~*RU$)wAl0E| z+!E$(;uf!G^;~JAk*=PagKgV3wFKPJ`rg~1T^uj_!V;l*V4@`p_x$QwU;y^EDOsrS zDpgY^9A4fpPFxVAju3oKlTD>Rn8R0Cf~wcn+wh=0f2v0}J~B_F`l{N>e2=kGkT0we zi}!Fwwyq>C1J>B5H_3jva4%9~&(743pHN8e!G;?HA(bQiUc6E+aWf}e&;npMV9TlL z@8!a@ND$qTudEKun{GA{1Vh3Zih3O{shnxBbSM}VvZh3DsH@))Zo1s(@@|&jEZFxy zM7pj;cYWzTSGnTvKGEIV*?VqpjlF(>{4VuA2tS*>MSDJ=U)TKoLU~`!&A*>kch0__ zxOZB=rTYoH?0eIHZuu7M{jz(W$94-4{i0urU)T7(318>vy{(@Oo;$~JN%E2~7py+2 zb#$BIJ8a*(QZghz@NZ^iI};)vB=h}1Y@{eHIykJGg@x&>wfkuMlbmaBb{``6r6_Lv zr$=bX;@LdKvp@W8z-3WuJCGj~gRTO<$m;|I^zWMnv66nhEm`NmTUjJ75u;wdYu~I4 zbJ(~Or&bq2&~6zg!jBAh(l=1W9Eo3(A-9=>kLxT2wtmk23fU0Mhc!E?&vRx~E~s(J z6!wmb#s2HhV=cYz?(hDKj_Rg18d(sPfnGrX)Jw%UMY_1clh=0BRA)$EOZRYQ(Q9*jgHBZbX+p~- zr6l8*FDkk6M)|oYbVuElB?&XQL48r7uzC38A?%v}Ms4@yo;c8KO7H|Anc3-HeWWN?M1y4wqnQIT(R?55lhN|E6oIMGZ?&$ZNna6a~NZ z8Tr*JsNk@~HbKRi)^74Z_@<~<>U#^`x!LvrdsR{=GExLRWm@gK zj<7LlG1XM`mXDFr_eSak=t?;`ph(UWUF(z zLOE)dK9V=zbXoaUWjY#ew!#qD-PMj{^&?7TCB|ft%XCbWEaD z{&}EhcsUESkFY5myCn?&sl}brQgS5L{Zhj&gRy99&J+0pHnWM+s0D46e^b*u?5u>HH>kzb7hM zV`Q>b$Kbb&?Nj%#@O?)!L9oSJ3wi;kp;t{6RW%<(r(3XxA5!U28U{Bs$}p%q>4uVK zBP{HC*SD9;_J641LT*s-fbG#3oMS-9L1B2CY0u?vuvG80Bo?nyR~ra z^y|u6`SIS2c;XJMQ9P5zy&XJOOO{3`8_ODJv>X@_CgVo;vmq65u3>xlwY_fr zrTRFT-NVl9y_hk}2AQ`rWNMPm(_CviUeaH{ug(yx58P2d0(N32QgPyH5zKshA70V_7@4cBDsKl>H#bvSDVvP#*lM<+<36%1M@f^{dD<98-2 z&%)O$-2|D6Q-&yQi>Pwz9nv$H5eA`Y9%npPc>s@a*F)VcaB+f{8R~eAL8(k*8r8y^ z>@KRbzzXfK67z&SIG7R_X2%0%1)fZ3iI1MSzG2qvh^RVDK`)hZ^lcD0FM2aPmtAG( z@t2R*XT6#B+R%J84RxUS&{~l4HZ@pJFYPzqSk?QwPz`P zRmeXlG(OCRV9U7tTE#~KVHX))Ec?>)RD7)}ht+magkO9J(_-A6>p@AyW@ycE#7F!J zmYyj|5_m9ln@0Xdln?DxnE1qBOX_e=!=L8vbu)LVo~{a_X(|(|zf!OqsK_9_hwy>l zuDAstUM<+G<^w_nRxWKN-Y>03L<;3ymJ?@EXPtlZ3=r7<0=`1{)H~%~d$wncqkQrU z?r8>&Lm#HjowPw&QM3d((-Rg@xNM-bJsBEm@1cQ&?~OAHMKB_-e?C7xe9&X_6((Cn zxxK5O__WNm1`~imVSFA#{Sl|5rDg|}<~YPlBA`9?)JV28W>!0nx=oStCBMs~i$eSL zyuamZvA~?KjHXe@*Nj&1Ml??(j_N?6KR*mLp-UNWnT@CLRN>2otwg|U9F^g zy+RP}6Nxf@qwvHm*Hc%`+U4kMCLJ<;A@3I(7p{$OBE$%_+k$b^%s-iRf!_yG40JJr z+!T8ID`d%dlRDz}H3;Lqy;TU~S+^l`!ud!o3yIh%D+TZTG$*9|!n3_@CCKIe z6Ml{@lrINQSOK;85sfb1Y`dJBw_3YwHhXU71P21JYbpYYCayJsXl)QhEK(5Z)&y(O z<=WEgMs6X%&kzVhx3J<0Z=IXA`^{xZ#~zyt4_*EpF>8F}bLAa34CfkSC{{7Nrh(T& zunNMd!^{xs^PzsVe4l=qPp)lh!}mQ@k__F^0(l{p@qhOUdNr%SlCTquC@*+rS05H7y_<(D5UutN$r8_80cN|apPs% zWccU(s|(p-b3-(WeWRQ=WJQc&xgOS&2!Ymnk9=6F38HIt@N{}i1@v8fSTyI>*)6ZB zN!h`x;8Q2`yiWwFno%+F>qQJBLAs%Af=N!tas23B5G-#pa=!&`sAinrDQrH8MMGV3 z3Y_sKT3m>cotm($yE$h20Izu#+V$5}?G3wMDSDN|=(Ft!ESc$hIY5HNwEsoh3O^g7 zM~=uXBG$2fWsQiwc~{)XAxTlODmnXj%Gj6(qdFnG#}4+NCn)SgXb6H=*;U&zo=|Uh z%UIRC7U{@&-hljWy1+chpjo>5t#yVv-Jf>Cj9j))D0!Yji^FOEH)DCZAnq4+oWDk( z%MKjW;DQWH^lJ&z!0TjtDSPRv`Zk>f6rROq-raDQfdU8_u!iQ=rd}-5@8)V_yHJ$M z>)Ij~@J^RP(rO&OrrY;CqL^+`57R#t#4ki*4t*w-jv5D;m%*#s%76yV8&^%_|LzGplAQ}{vzSe^IQ$%Q%vDQZt`wqe3y9Ym2|5k{V~83ht+*5 zd!!r_Qeu4+?nsW=uJV;+e}$JIiL(iV0+n{o$cG|pOg&?~_(0`agU>J$H8kp3u8wE; zO=h?fLyv3#FMscY8HXHT2cM28-e27VPg;=BZaqGBKj~&fs_-uk1?TTyLHp9g+py}G zEBPPhyiKja!}sfOOMo+;i0OQ!xe+QWhigwYacu0oLB$|mh`o;U8|+<$HG?(&BHLC; zcSp>m5}te+Ih9R-gxc=BXLw6PJUQr?F2ACF95TrJuof6wM)FfG80;jEzYB4(nR0^( zCe7856PtXHm4L=!{+S$A)q@VhJiq22l;hXSkcsp;cfy6Na$XImq5K|R98GCBcXwre z_X>IUyOIsT$7n_s;dL$~`d2U^XTatwbLXL+-knCti9#Q0Q zO+m`n@zD;pzO4bJL$pdF?Kc1+Vo#scLPqgz2%BRG0gO2W6F5qXIm{hhY!1h?xSC|aJ&t*N4&Gib6|;=zwKj(U6cP>R zgO@Uj>SB=bH`_f#6*OpiS$NQzQW6|+$r5)i+JX48iCM0S89$@8I4K_W_z*D5D3aB{ zGBO49h|Y}>2KTR@E-dj9685TVW2gGly+n9!JNBOcbKQ`5G4z#*)?A;uI-31v{$jFc zo_ce$>G}rjK}XOc{yph88HEP&0iuubkRxcrL}?zKYlqt`g!lHt7Vx>%pUZ1tI4MmF za@*u&i5HO{uJ3DF)xR0I<;M3Npa?;|1*FeN1G=6RP9a^xobO-JYp!H4@>FxeExRJqR3VvotjMjr#xg^|#c$jwAEe;VleZ#D+8_vjM3!p9aA5f)yh$ z$Ze&lb1s&{Yj0silZ)m=_y-Sd`|~*G?;~)dFR!dAMJAiAU3D@Hu-T;LvIMoNhP=DX z9k9T20&TT97-k{GoSw-6JYQW2wq%>K9|c!uPy(Ju>NjP0?H9CpDvlx%u@yQv51pUi zFoYH=+ppo95&AE)HSkVsg8IT+#nI!ynQ2A*-7nV=S~4OChHVJJJSX|AWp+DVQy|Af zTLn0p1z_{P9;kg$p`~?;bR9GKcQk5rh#vtar1H(AfAag`^*6JSJN%D^>&(>eSjVpe zSz0qD%1cd$BxkTq4cWijnrFETKpC8Z(2LcJiae3 zPsJL9q1hYTvT$2?8UzT=hpjEL@;#b9{N7ZCytU8Ai-zgPC9AFO-9)?5hw$=Lm|&~2 zRNU~8MLAx4r+gssy=xvSB50?MFqrlO>+h3g)qM$70SwR3nq12ya!D{~V>dd2ctIg5 zPXWq=g|w0GYHJ^72RXqNUaKNI9}Sg8++!KtscCwFzAy7*zl?coaC;F84r9P43Ra1` zXM{Z(-`RUzgSW-<^9>V2YKr_D>HhfQrr~zd>3i(ifo_+bG2`#UPBbY#|@Dt zA+yP%fEwug)z`_P8a(W?cd$0*@)sfxNI4)^1*oyM`widPFE7@M2hrLHJ#SOwCq>wl) z*n`!jOh2o7-h5|$z1hc7yWZT%weGwiW}@h!kNFG`;g7Dkwoda-^s<_QAIhxx3NL_c zI2YbocO-J46_sCjQgoKa92l-WvE(r1ia8u33I#LvIYN5lr!9{Vt{$zcv?MhU@XFi{ z2VF>z!q?a=PnNiksSHNIJ}uwvS)~tKccRZz-Yjw_bDkUb=8_$SLfv&9l5kWoptt#8 zkHwtuv(OMa+d7|4^h|IGQukL*=U~bd-F(W$Q|8ZGNr~lPD)$`bDdZZ04qi;My^N*i1g@|f)i5GN zjMum3Ep48wK~P0L8LYwsTCHcc3*IbdUjsr0jtw&a1+03v;B6C`%mF}stvE2`&*S|7 zb^ZpGCvwss?lS;+8q!Xrc5u2vuShE_j%d}{rE0XveIiZ*1GlEQ72M>yXM71MW|Y_lK!?&7<+R->3wo0gg7C`fZ@em* z;y4U8Z91t@#hT_Bv1(!dPUu9&YrX;Hos0I9dC=Hf25IfE5klKpW<#aTF95>uFFlc> z(+mwbYaG_XxnDML)QX4_E@ii^`nX$478?&gMxG5kzdepHE1k-^{(~6YL}jXq*`yHi zGh%0Mq1u#fe-iCfE1G}F1R$!cW>!_}LrICc^}k-QPgr=p-lzTAN5?-eP(&wKzkfBs z1bU(16f59O3zLdAf+1YRjl(e2-E4W6taGAC{{G6?46jq$rOBR#tZgqcO;%<#;02sz ztF=&I39yf*v2!ge${25HubR(bQ&CWVGz-y67MPbeq)W}Jzm&NNW1@d&-=SciDp2)@HEWV^-d&PS>c^mVxnv6}_zf4vHPFPk zT+3zcRa%)6r)z*418GZYqX$&GdANCTYWL`z9{)6VXxG^0kbD>L`dS6^M}dC*LiI>r z_tv&k=<;&IH0;8^(?@BstA1m;`VZQeA(Sgo8!%Dh_)RwmQwu$0gS9Ta^`|_)z(8D; z)qLK7odMX;#=(xcaiJ8;bi)J?E4fqp^A>#yTrO0vj%kmH9o(tEP}Ag|&+wIBj0Mp{ zqE%Xa`(Zf>yq{fI$G`8|c+u^QA`)^j;ek#j=SltsUPbVUn>b8-)7y_|q*?Monl19J zDRo4!up95m)yi^&u853(M1tbpe797XU9JyV9~(|bxTL!JX6C&8xgX!3K;Tat1;Jsk z5n1~sLqwz?L^myx=CkScnxFws<6>nQJHK_wB{9Bq4-t=QetP6c2?3W+G*z?!8)V-4 zZ!SrD-Z0Q3%nP5Zyn*g`;4paY9@QkW10?Y$`Wn-XGFkjg>K^2hOo8WH1v^exqjZDTry^y~&InZ%H7XRf9u3^pctmwl$ zNC*sawTEUS!_XeT;{XOrbNT{*=&SIm7C?y{1M`qTy^p6i3puev7cJM4%yb2^gE7F_C1(vLoK zwb@dyoxP*u3vl?OA?1E$89sP%(H`5s>}t)i5d7>(%2%G2F#;Tjj@bos@kUb1{dqDQ z#@T8O`U*uO-;Z#pb)UtQ(7HO%vgBw^&qazoi@{DXodQv2xTHf<>` zG62nRrhgFo7SWAIq3@I{+W3Bc#zQMrFnbTbHYM@U7`7-<{Uauf>1kNrH+w3KRx+ph zbk=*cG{S>LBIEI~m9$Fb+Es7nC^=C*PrsFui-Ic{v0hWo_upuCCn2EA)dEgpX3DvU zTZo_xHnLrkBxGJD7rr#aK#0Pb>$5T2OWe0J5ZD+5`jqB29*gGFjf;ULP?ws4o{6NO zi*LKD!PX%_6Wda=C6G$elE=}3W&Fz_9U_(zhuJBP6t8;O^Q@$^*oYO{0#p>-ZQp$F zjWIn|?4DOH-fZ$-Zw1;{H_?zxqAT~K^_o=8s~;&4^l0Vnx( z#9B*ShW(*BmH0qvOL6$br%)Xx6l7=0v3D>>OeSt9;+e_ARyCYW@gQEJ_^y8$H*VY% z-EDB~vx$vkYqx9EWjEEk8yJYvy-Faa#}iz8EMYCrWvkg=FV_`7=z<&KMG;LFJ2wqi zTaxs~gI|Sp6n@j-)#>)hgPlN2cs6vB2}Xt5;lFET#Z%EEqx3A_5Dr|dJq+hzm>Bl= zhQT!RHN$mcFq%%)#~D#gat1h|u7H<{VjL>I#qr!k%84W|v9B8U4MoBdKCZ+d2l0Rv zMXpWbraag&tpQpbdxy_>r6s>yh@Sh5s@Y3yF~?XNQ&K@RCEH+tbaM7yckcB!s6ln? z43?d}v{2(Q{-m$yIXLK{Pdd8D2O=6s9m)T>ft5+jn?;5Xxh-%)RvcSLHerzTm39HI z`GKYlZqghPE8|G6R8UNvMD~)a zA0?{8oG*KzJMIqE(4jMpSNlop3H2sz~)ug2vh>8)fNwXvizgN{QE&Z zOfkWJ`Z;imh@=G__+;m+Cz}}WHMzz1rSRV~N{`VO>bY_I%N4u#O{2<_5JT(s!GrR04&N0})6A@N!LL;eB|)`pt{a zm0akD6KY*-IY@PV5GK+Vs(O~3zg!uOD8W||rcn(Mu&?`rS>&sqhV;s=Q@8sVH;|;r2Q}rZNu23w4zt$ zMmdK7=7KYAT6>;l)5k6hO~W9k+Tgz>-QIU|M%StW;{`}@T+fFUi8;f5MRE0UqP6^e zlj`Tg?K*N{>*A2#N=^)nnn&p+D2^Cmglg*xDG(-z*yI!Zg3DG~ZX*cHCt7E3kaXth z2%#^_-91XJ9?aP#c%Wtco&GN!-7_Cfn=vJ#JKTL?e7Si<=>$@ZGl<2_5cJ()!FKi9 zfqK@sDor5S5R+#Ae(GW`S}1ge7{>yfxZo{Z=@*0GACMRwa{u8#Olp)_L~Pc8^PuGsWjaJakTKEGyw0in=$RWx6Xwe4r5-4>kqJC8cNoq3 zpx6BR4KaBn?2|KM4#BfKEcP<{E;*BDdDSKx7OYa6X-oaLh{0$#&G^++AKi(G``7iaNSzWh^$z#QGFEXFhB~OOU9K4F-mM-%*(5P`r zf%p=qR2)iTN5rr5+70pd$K>Pw!2s}SjA&)UVOy{17a=T;{w0-(5^~>Fjb%JBZ=lp2 zjKmfw6pG}Zup){?e>Vk#Ey%dZHfaGz?v^%d^Zw#1@mDv%zZ#gUT7u`Z;(sV<2Tyd_ zuRtbSOnBLm0l*w=iWfFnWCq-*V-Gi`up!O*D$NfU~fw*V)$U?969H6}Jj)nW@$gjD?li#@Qq2n(A#{r+UJu5}#BO%N{SU6|Z@r0~vrkm4 zejJ-=R}+(;;O{$iD@}Rl{svx1!^-u-A~$}eB)1n^+DPeKmK|82{9(uZD`e*cP9CYAi1U@c2 z2Kyv>iY3?YPERU#b5Yet0N6h==hhJV?3CXa;e$rZJ21UP^f1vS@5^#f=5-V2fc0lk z|FZ1Ack9Udj(^9x`n#UE2u=6>&4%}#<1Bm;-#rKMB0CC{jGot|E_|9;@(t1LY>4hZ zFBJL)leYdr>w8|PsFEnCvl8(NQRoIA=u63=;7cA1SA(=-kOP+`SK|x67YwVsrnz+nKN$PXEcRMG6ksux zv7r?p0*eYMMS~{~9t4q0gF2bnVwDziC(bO=2#wG=7+UaMXOK73Wq#+E`q4lkCUU=$ zdAc8bHM@iT!sfu5&_E}=Xo$PbNYAeBpc-q)c$6!oh!xHWRg{zp`a0~7wq!0yP11sX z%Z(;5UoGK_5G~W6VsCuNI#ducD9nD=wi<~D*E!R}rAJssifyEzY2Y$w0qb-d#tG5O z6~G4B{MhqTwQ*43{gh6gKc%a6*rT8%JG3xLcu}4uQF<$`dTgom)s=wj;ICPl?P_pJ zN|#|xVuHB(c5QUC%cnL?OBH7q{?bg-M>BlUx-p)vUHxD zQoA!}n*9>V5A`NEcgEEY{XYOFK-j-lmv^f!yfmsxn?vVudH)-$%S?R0P<`H^=w$<7 zFJV1)&%K{IfZjY4qau{D(^_`4s4jc#cL75X-^Z8|zZ~5rwG|fjiY#oqk>xx6Iwk6D zS+y->pSk668|ug}rK1Je{r5y>7K$kozCa2rhj&V_oSRjIj^Z|3V9JOd(o~3mPeiiX znw^B@2q3SLOuc~oZ2-OHtS5jsJy{bqBBk`~NeG1KUv_GDZ!5@9Pd7xvhh;h@2V z9|}uHk?)|z9K&EZ_-#!3!z=dtP9Zj7w;Oayktm5%_JNKrQ1Pw^PJLf}tYJGWlcz$h zP9x^iEjAhm7QA|P`C~?%JZyGn=SP`LHHvu_fa-ifQWsA$Y#6L=TP*^9urzP=&GCb% zdWO=T$?HLgP0E{YgMcRQyQj$^>?q8wLcL5sW2(a92~P%6icdHto`*8G0`bFpNoye{ z63;WLc5kyL^Vbum0$?0tCSXl3e^T$+H_0IU#2I3l%H|Iu6Fh9TXMGGraulOs(>wS(juYQo503*RJ3u^}{2%Nrz&Hb=l!lMsBN zfk>uv3psk|a-te(U2Rs#hPh4%XOH8FWWQ?Io7j{UotM!WSbO*zv1E;}zPX=sOVyMi zCHw$K#``+mk2oz)G}C(1p5^W?dA#JXVAc&(URe z6&tFB`7?0oksC;^!V@mQi>jKOR08v^sZWa~;t$dsL3}Yw9xD`>)<(;A;pS%fq+m75 zP;PRD8NHNIOw+yZ>qv=ZIh+hn)EBoBEIxui7z6C9rq)4)miv=^KfxLr68}nNHKgsr zCT#@^2yfLtEl{QyC)WK^ZU^kP`x=BcQk_>Ri9AGyy^T+w2a;p=ls=vSX-PEldP!@mEO0_lWf-@O=H$2W$P$Ppw5gi2fay&!Ih}ZsAx? zvPuU39wapEsceu4Q#X_Nc}A~94Bvt~=YK`F5`dq`puj$HH)wqQ6s|D0%KRs0~3)4Bd&?4wZu=#J8e1U*h1s4NA zuJeAYUA3SGqdo9B1Gx?wWHo0a^*aAA^5Zvu{bxHKds52KD^%8fh{X0nmW4FiInLC^ z8SU&jHbQb-6Awi1O$fZGrF(@v*LQ5;yW?Y|R}?N}puv6QUo6ThVN$@;gR%h%`r zi$dpf#nyr2_eW+w zRscGR64o=>H550%cb;AmgfP3HJ~Svv!^Yy8K54EX2XBXYtEyvjk2yl*5BRXsjkft_ z@F*DmD2jiI^+8V$#A>tNd8^X)-X(Kua$?7lwwCmhzG}x7qbVJ64A8ze${v|2IDB@q z1Wf}yWJDRtB8yKDbI7qO_s4R}CgXvl-^S^c8zu+(oQCs zE#az;(dURkWH|#5Q9BnY$0_UeUdT@vB7yxV(x^(W6>?*h-=f^xyKY=Q`$T$k=-8h_ChWkg3!=&H z>E(%^IBIoAtsVXjU(y5gysT%O5bav)ye5OC)QIk&4N|XQWY+aZr)Q+pG?`7&q+t-pK6@36l5ulv?M^rziP`|Mx7^M3k2U!&i? zn)~WM@4mkE)$h?az4c#id)yxNm43f_?!UgD-qQa+MAiB`x7FM2&#%yreG2{R-+f~J z)_c=_^nUh@=+)KIs@IbyfPY)}wf_5M@2=myQSV0m(_g-^`|kJepx*jx`|TgT%YOU4 z?^<5_+wXmQ*xvQ`y~FRTzWYD#rytcn-)ueV-`=tJtbgA~{q$4!tbO$B{jc|?J>I?8 zy}tJ5s8!DWKkq~Pv3sI>aZdFh z_SR5;Rr9Z>kRe0{q;9Ziu;e-c|4%oj5^xffmQq+WUIf2StYqA=6?a|lU|3G3*Btl6 zQuR4i$;hyc8ZShqL3b4UpUxl+%2l$?8Uj8ZhDly!FZPTF*_)QD!HofgM9q%Gr0Gzi zC4r7dX-zK|L36a)paf!qSQ3R}u5xN74`!FL;cY{dzsmmD7u;SzdmL7^1q8L z&*Nb&7#<5>=UZyJ&eLCKOxk{zlF2={zA2i-G>2%30FiPOaDUleQw=FBI1hZEjfKa-)lhZW`BXo>R<)FLCA@coNH*gFL!DEAHmlU}pK=2n23k!> z_ZVkQWL~ieoA2|3^)wDMqpu>F-GUFGS8%?K^l)9=l3{^;dtly@5V&j^fVG%z^Io3t zcKpDg)N59aS&;nDsPW!HvD0HyM*s?i9Z%iudbQH1pOO(Ma0V6!fLZNxRw zqh=`cFpEF_aT%mM=e-o)!-8^(Ea9iKx*r=(I(vZK%<8OY1jJVPwiUHvF9$ui7!zdO z+dh>ghbBzz>^k^PBIa@_FNxd(mkgYk2-)qxdPp3UKlE)X{XkVPS-YQ*7#V(`l!`Hy zN-}dH{Jhl2tI5u@JyPuQ=wq-;UfRG-+vkU7%TmqN2hwO=AKgD#r%={J^^}`?Ku-sq zCG#Mldliw((evQHv?Ew81`8kYHbB}G>TG818J@pPH8e}7jWRj_%$aH~em}3Xws|(L z8*;5quf0Y}dsHG zb757VAF|KKAU;QvBe%pr;k1tUq+9v@uMuCe(UQ>VU}Fd>dJFgyjDl6|;mrMsZ?(2~ zo5sSpDA>bZ8VaGV3ra>MgHUBD#|QD?Uf;!jL0ej|hr8`E6bi|#g}I5>(UL9G0d|$f zbfMPREjYO;B_zHP^MfLt6J3Pt)l@YEQ$sx|hWTl(X72X^FWZoAuegWwNYE7+&abgd zWwJ<6$jt8OFqBgBELYMA{cB=%(wO)i1-VXGjb71=u_Dirmb93|y_@b$%?7o00_&r| zy1LR!JHdc}vSqT|{w^nwOwBCNXrnf%piQWqUHlqZ*wUhqWS1zht z^_sMTD9$;VTw^gCU)_qzZDkPkO5qv3s|LM(VCw;iW%N6>fUO92N%Kme+-d?B($H1V z%+WQ$mYZKdZI&!R(_zhtWt>)UefA|P!x*Wqy3f%iiCM@GK&2Wf?KSr(^(L>ve z?TK(;nV0pCTGO>3+4~!;nw)u}3K?f?V9JhJ9>#=~9I5n8qc-dCl2I$NqC0TQ_hMxe z>!Ekz3UWUfb`>`{PypXtz601u2O4G6a1NF3Gf^v?^UVXwzuNnHVfsQK4iuShTi=xV_W7!*{ ztp{PCbzADe5J*my{m?d+WIKROXduaWtB0KaaW@%UtYG(pb^Wxfh zmG^+;^Sa_V)cq-@zzZKCLlE=T1qS@_&mS38`-!pFbJ`OlCE7`3d@)YY&k8k(9dslu zR4#|Ac7D+oN__FlU1lqMZ-bV#%UCHjQe&L#_j8JE* zPr*kz#;`-)hxbralPHk$#VM#mvqNeZ;B*iZwP#LxHSFdHSPsw^&7#-ZErnhho7n z@ZoVC3EAs`1j97tPmjmP$!o~Ujn>QOV@P~~ucu-!m@>lY+Zr^w!hlLb-m8!-_DD|@ zQ+6O}G{!I_s4;?VmGQTQo>_BK%G)@=;APFHKCRm4S!S9PHZ>;FZ_o?LRYeIM!xV4y zIOMfqR!78_59$wqmAf*Fe8Ysef+vR{<|P}$?9iJ5>oduzrk|v06{!>sVpKO^Eh>H# z+#kEea5V-=7vy9XM~kkMn|V*xjl93b5~J3fdyEIf8-&)Vj0muvrvvrPc=+R<&VKo! zkaEuXmtGZ(d-$r80oXXLvd5l>>NSq`CGliSmVQF~#c)W^VbXK9N!8$lViyW}HY5@c zf0^>{MLY6jNey>Jcj`9cTCZXJmU678!9u@>$&qam8JQwPG-sPF9eMmp#EY(ClTsMI{l1if7Ss%fKB6Gg}m zor&SNar5zKgBWs_c!TS8&R7OCwWnw+O%3yUDv3L&vJ*|hql|tMFq*fj! z9Pw|B6tX50CWwlzzd>SQ;3yUK@UwM8aV;&8R^{&CW5_zUx7i1S*%*m}Sq$dpiOEld zT4u2#cVsPhnI;!0K62BG@r0skX&N+zx|E>FC+<&dYIL%=18L`DaLdi9{Nd3DDCI?vPiTrLR zl}f0BT|2sfBHOj|Rs}D8lGxKj9O6-204{%HEcSI0SbD#554D0eZ{d+|1&iFghB^@S zVNc1}Tg}m*r}2Pgrm|2-A8=Cm9U`jS#PggvDy(_uTMNU*EUAATqJoib6Z4d)Vm%U8 z+@%%0{Nt#iJCbbNg2E@3c25|oJTFfgTRGza8^r~){z7s<-KXNvg}YUl-e;6mu>VOs zrp-vsl-<U*AP&hCSWiS(rwOr$mxutGY87qj+n_ zzm+ObvK0gNDL_1Ivg(5cw z+SgNOQ+_S3w@RxyoLcJB@5=|`e%88Qj)j|!sU|v3gwQ>6g!u7U(rkAk>fn{F-J_bg z_Nlt4*L=L~x#{>Fa3e2Ek~~_S(41W|7my(9s&1GvkEB&ehCL7=x z$0yG#i_y_SNIlf2qp3D>6cGyGl>9b-K_MEuGNaogbr$j5Zrk;y8Ue}b(te+xTVOPl zI_y3+i{-PsjYt;W8K;{+l$_TVx^=X+)+totm!51zni^%0Z}v(|Ry6Z1+B95h8b8|_ zT8X+@>zkk=xpE^~>BDh;&Av}&RAgo!hD1$vcp#phri8POR6I2^WyVP3-NCCC7O$?} zez+bfQH!h`wTywH-TW4mFWh9_KShXVThx4tZz)4x6Phq{cy@jOvi6}mcg3Icl%th7#~7D^}0{k z6kJ7x^?zWtg{$VXiBRy{w)*p+>~I{0PWA`rm(fYdkU!bZ)*XCBcH6StvgH5a$6D! znX>^eG`ug8P8H8}RXH5DB4U7M@?(xTglYVp0D?+?orQ-16NAqI@M8321L3(&>tvI4jfjRul#vOaFaU{GGRqvWw$bo zq^C#JAzByO>4HD#ttAva03KXzeI!Iq`)T+{R*MWSS2>_;JjYW?-!;T0@7;ApYQ#*o zq(e>p4>5sRPmL->E)|Y{S{-(pMU1HJmw0;Uj60G*XgnZt zHS4KA5bFcE(Nd$xfy_^j3dc%)O(dqVgC~OTc2_o$93jlEX5UHibRZMm+_oHFfh%`r z!q$^AOBu^FX$-dQ6X@<|&?z1?w3d*3DRXgQ+sf{j-G3pR=lDkC0m*jyA49aR7J`zs zt)CPgh0RU!Qw~`8B86ug0+F}((Z@UFI%pC+7p4xkhlR(}s7|L>g>L9& zqsV4lhP6PvZ>HMF)`z_H#cLBw~Tl`GbmJia`0$dM{M=?(irr(iWn`V*~I%#F82 z{gaydu^tm#xdU9%=*7clwDhHHrd;w%R&2NS{9fhUs_o6$RJ|+kxth34gd(}7JQ^@Q zJcwp`L^#nqEDwPrUFp4fw5DO@*}^YQz-?7bI@W)C=yyC?Alv)xcfms{nDZhn{g_-s zX~90h)nLbu+r9->f_iiNqMG4OthuSUh`hO~Kl_jj*JmXQ8hAr?$}AuUS_PJsBwn4Y z^~3J3ERUH(Il2`0guL*(1|u5f4|n1So zwpZGqgggspM%X`G?(?VZ6<};c*K7K3gCj*=nE>?AXyEv`(AGnefj~&*N28@%uVAad zWzsi@8uLvm-NI&|1rnh$W#gkm>p*8Qi>^HgB-UJ!_*tEMWcMOl3k z--o-L$jcboqxAmGM6I3qk75VHz+G+DhfM&8Sk{%DHLY3j8=HeB)2xeqo#a^diQJH^ z$bajshhhF-4xs9&%n`tsCjCViXm<(0|V^44B~37!7TXs77F zMJ`y2|_MNBDH^@b5S_N=N1p06GZGw)r zT!p(*x#dSQ4W$P1#w9U|0ay>DGH9OO6XF1@J7IWPaA({&pQqLWx>&MPb-8JO6YnK2 z8Y!zU@?Z~NYsE~9rsq;y>!jM+8%>q-xD1y9J{`Ac=TDd#$v9cOJwA}PG-umjCJ+pr~-`SOP=h$Z-?MRAJ$ zZc1mhR7D=41j%s3>b1PyyDyt`k@q+rI}faJXom=g^NGgVFA}9gok{;DSKeVQc<7%l zl~l==)-!^*7wnwncv}7lzbxj$jG85{Zv0*2dBj$@rvRdD zJEhsSCv4TgNK63+;}4}Vu1?C;Z<(EA@xw+(9c!My^fwgIWbsuWmT9_RKmTJ3lm&UL zn@Q?_;fn|JVGv7LXE@5GOhoqX2gCd=n&NB$x7iW&O+PLefKui{XBy?lxaRUHBM+6+ z*}(u8;@&W5*5f*Ns1?cnU6qcxTq$BsoyO4zQN_uRf2qyY&Od06-RWAj%taB-H%C>4 zJKJoBXyvoU>c2G4`hx4qxW@-7pu;a7v^2p*dz@^&4M9JP^s1H%Jz2T*EGmQp!h9+=>q43VN1Mcm=@*28x`Q34Fw>!Z9cu@$V5tWDu!Yh z=+;1GLznn1GvGlW4;N0#J6PmUOOMS2{$rsNheZK(T_5hrNImWziu!Z!3 za!-4RQRKVyBnerOePN0tlFW;VSDcd z?_Nw{!|Rbj%Jj1}A6I&Q?G@pN^K|}WXTt?;CcCL~ixbON2(KW&t3J^o1`UY)doF^E1mTb2r2Wt%Z z)X;s#fbYR7eiPzi0$!b;sM80qSCrt-HP#T0Fh=({aQiKm{pfUz-?@wI9H`Vr#|#|` zMS>jYw$8Foqb7EpRxc@GWD64rW`VFL-;%0)j?31EdT!NbP7wcnTuzxfgO;>MBGs4e z+&nEYm^%E=;N*MSog4MU0eh2Q(H{6apikhg;&NxFZZ-D=9{K4ozjv6@=y-53)O;|* z6an>|4BTdxXu2Z6IcfU9Xr6FJ{yP9%9jCwp`h!SPE=6Aj<1co$^rr?@>1G&wNHy z8aO%>47#qHpi`mhV`q@7V8a_B!0-7t-+?$m)PCZQ(!?XI6nx8_otE8KX|E(?*$3^f zAt_R(CqFJWC)vw9&ZMhQ*11+kS`&ae`>Q=X80ogO~SqZA2GzT$x3}uWvhCJExLvxnFp01H%9(em+l%NHe z*B&FEw4f)}8g-K{usnV&5LBgT$|~4X)75r#y6$a{gq~}gJ6*_WTrqcHgeY}=Ofpap zac;5RubRUccH^yFAWVNRl!sI_&=Rr}CH5lwm*_?m78@Wm(cD&Dfx!uqq`0m*$Bz92 z1E-5PI&x|1gS4GF#*kEKjQq*#q5n7ZDISdT_itX}fs_{EjkzFKb3Wm2Ly;2`XI6TZ zR(5LyOsP(zR};o0kgk+rKMg8FWeFXk;mYW7F7)Lr*j`gLye5HZ+yUS^Bo#XkZ zn@f|NS3Dp1=dyX;F0qf1S0(b?IVIBp@M z=$@&T+(H{8-r8|3-HC8h5NXUURa5NFqGRR*63nUhrTKsjHL3S&&NG7GkSUgzzl7ZZ z5>Vt7-t~XrhsaZb6*6Jp7#W_Ww^>3*c@XD|?KVf9?sB5e38d4A79qn})EgLNbeg1? z4oy8HEgxXYSUHI_b5_&aEs%?uh}!;LSNOXCc^3ll1ZW>2dyNuf?huJS4zZ_B5gGwt z#z$L+fNG^r#$p`F&u-Xw@w_v_tYwkiaqUvS>pmUq^JC*%~_#Ne3yur z!LJZ|-VBE*iPHBDTTsq4p z(ljRrW0JsQ5YX~9Z;&9&f;EuH!ZkVP%jbFC0kL`0!9JCzZHQ6k#r%K55C_qtVIDxz zRQu0zY)t9Zn!R3$Z=%bp0`yFAH=Tl{5wV(G!;}NO*eB-7`)6L%RBXw3zZSBf*)-+x1!MPHm#NL z9+7eG%Kdr8X6@1)g4#7yN!Y4NH=}}NJvq7Y3Itw^Y1>!(B_7R*#@F9`FpTW<12Phz zwfkAd1tf%3N2!1B*X*Q08V#_XWIiH6liNDg?%U4U?Wx#X5#1pZ0XC2O0Xjza>UzRh zNZ8oiDohz0Pp|rPh%THmEu2f7$X>$=SoEjTm8GFS;rUFlT#eJr4?Lg$7LR@fl-eil zyP0>*3Ij8r<{!3h(jkB(8W^N?0T}N|?sgnz6 zDG64efsHUHZj8Y^dnVd;TPdBpNh(~K$6h0F^ZSbi_SbbiweYtOLg*pSR+~A`?is99 zh|RtVQ1(7eCbPxep()!l3lNG9CicpJoV+93_5>87#uzPmTFxts8VU{}5Bzolc)w#f z@P%p=349|J$L?<6pgdky9!{w7_;eRjVTOykcO|tVgs{NLD)Np%fH3UcrTpW4CpC!K zv{IM=!Oz2JRkg_~Nw%op-8-Fe4((7r<12R>LVu4VYjXrbaI{CT=>x%Vs~;6Pr->6* zu}W;+pA^ig$+`|soQYx31jWgB{{X)7W?5UCF7gOm=g`*{UF{tO>G{V{I?^{b*-p4xhh)RUFX5ZP%F!U@4 zM)!2d%XpB@t(lIWC_Cm%QwLxCB$;LLlx4|7$5KB{Cl88vgpGCh%w*hJh!)(lhZu21 z-eBRsL8|{U3T>AlZFdG=n+XGVTM;npYvRoU0$+cHOu;S%*q+f1g0EC?J=YYsvSkZs zb`E3nEnR&rcNezNjFpTkz;mONLntloVFTF3K&R`EYTU0_#SDgd74vs)3N$vE_+xBj zv9-nlkS8$F(L+T{VhErEnvqT|n=!=|Il^F0AQltV;nb0J8q}_2 zPh!-y5uPL-i`zMrrp!7y9{(zdFr1Bf?GHmt75YwPhA4Kj# z_r8rJ6e4pp+=4?3vHfv;9-W@fqCsWUy8kYjGR3dm_>^5tnz>1!%P)YR><|o8DmZ4X zrc%o=OlevZ(%_@;ZwJfdAT9iEpYi`HD_YP&c3KEIoEn>P-sFJqDIJk^c04#4bH39u z9gt4>r=7~1exm<$s$bQ7@?(P!sGFWRru5HjSH+y4F7|v%Sr{Z&ZT0B-{aP1u?eLCz zMmiI%{oalrHEXqQ8H>TGVhOi=JTV^cZ^U+_g&p&(9(YPYq~N|%?#w=CBjJtKGzmeR z3PWZ^z$(0*};3P zRJU{D_;RpAvJBU2xfst)O0zyHS3sP*CMLXJxc^Y~y;%34J_A5AF8vn{&en#s0(>HR z?QYr5rX&?n(l{*rk29AHb}}y{7N9_A$N@^$7CZ?wjl$NcrZ%7<%_L7gPyLvKIKpH~ z_UWv}U34i~8@Aa%i_mBuL zHy0WUANPKvpziV^XKK4hlyoB(awz>okUc_K$CL^EQfGHR07D8pN*xcXIbnXLjh?uKer|!0?utz@T#l+fVs5u%DD& zW~c2zWV!-%JcYW#%;KH3{v!;sHutbO-Cj7)1XD(njK5ZI?ATNjP$%jd-l+s}Iui@f zk8+vBRfDNoMov5JG>7++A!746^Fe`g?uw?zmK%&(0_WH8MK)ezi`IGea;5e6ZUl{@ z{rd}1>A(X>kz>1*C2xM<3z5fcv~|X5a!%^(DnZ=A`ysa;KWbwB23w_AQ}Sg?gcqP% zi-3jRb6`rX2_)L2+!4zyh$vU;+*!G|{?mSYMXS2KmTiP%HJKDJ-VLSFlz0WnZS_q7 zyP3q5m#uZMfLkkmNWZ3p2*n#UCd9Z0f`5yYMc`!l;YA_fl>;oS>@kXVCxr-F)Eo4D zxHnwNs@q1zrnmXw>)QJ5ZxXds)3Mtc^4|WC;nyGH?y)oV$>6FqH3}bjBMKw&c49dl z7?-^J|0hg#t5Q+K3io=PUMDP=8PiJ8avWM)+Ib$?}%2!_$%NHO1AIL2|b zCUAkbPRb7P6eSCi8pf&4rI)P!%+2t(%g-<-RM+|-dXzgIKDZNvewY`Nduc!Vrx|2!Sus+t$H;^gpKSa+A3X1y*p?IZ=jlc4@^_6E_Z~`@e za~*IZBFcQa@VUN!6w3`tkKkLE@J8$@rAX++%sBwr_`Pej0>tJ0F-A?zqI_bMU2SMsEG5Aw0|nfwITcEYoLZe+{l zQx~urMS$+okPF9eG{%s8P)ZioG@_nCN|XP6jbjRhIcFZNQxk#*V+X+REyn_O?GRy| z^IzHnAD5b9_hwZ2s`J2(@@m*{F8_b`;PE5Kr>kgKc2Hvx zal7$j{!ev`E%-%-KI~AVokvodgSrS|Gwz&Z#bMwOw{mI;TfJpGq0D;KM=qNDu;}KF zbGJj$*UP@fA^V-j9%lt~DX)W6zslBoiZ+-xtxuD(i{y=oW40t5eK;ZynYd)gix%n1 zV$_m3L``6}9*08QDs1+D(js6@3aOEs%3|*$`LTpmT@&ZyWy})0vg?K#3Mi4EVD5i3 z*zZ7Q-SO0RzKDlC76J%|+tHQvP{H|Ln}SEa*cXQ-W#%OGhLj}}JVS_y8DCPNd~YJigFc6id4humsl^oNii#YAc!iv4VM~%nc-Y2 zBCUR6Y)9f|JADD4p{;G3hFKxV0!01u8+*Eby!|72NPgqn{3MU_M(S8qKF4SIn>Q#z zfrkzj)LtBtb5-Ofm5Z+V=ioC|I}P8l7CjyguV|_1WmV&QM5UL-AsG129KLvEBc}%2 z9{)f}3jV`CCfgs*^lx*$WCtOP{|z;oN?ginE`#oD0`sKhR7alhWjn;Co4|27&wc!c z@!2A{y{Y-&)DI5tj$0*&7;~`LSj0G+)KtO;*J!ngCzd>FfJFzuTe+gjvNkCc3@P2M z3oo&d_wWQ+6s%^Vp@sRkPf}CBS_h>Czku-F@Hd$kXOC$sgSlV7J?(1U=ztX|7`zKA zxbjM|ZRE)Zp85jTi%d2Zo-fNtA5#JIDc2E6_8_hg-?bteL}hh+*&YMu%?!&WwBxB;W=Q3i$`JtwM-%r|Fk7S5$F0i2NG7~bp zld98>wg>v~gWCJzW2Iazc-p2GBARl0XN*ET*gu}r@&#I1F zmuzH=2=C_-6o5>8Tt^sl9ggN#z{G9EG}D@4xfT|&hj#5B7S5e)PiviPL5tiMGTROs z20RKO!Olk1RAu1ZdBBo7(z*)W(gU>(F@p9@YiQ4fTA*4MIqOiH3UXPTXK(-$d1a))T)!&5`ew98qmtDw z_!2%`O2A#oA!4vqlK(|%DeUX4t&9Y@Q(YO|KN#NKFCeEwIt-0e?V+=m5}c&RQ_hzu z)NI+aYQXj6DGaZFXl8D7lgY-2NP%My0Om^RH!}lmr$V;^8ixn7;swCncc@QylKlDSh1lPvbMN{P2 zx>hKlu>Gkq2haEoakmqv!yw_9hAk_}&3%?sT%E1cO)I^WfuDyk>gA4Nh zS3W_dhS2X&A*xx!5`fJMIv&J=&ho|Wb%C@%gHWccAlDDh3J#F21Fet2)rto$o<>*{&g zpJ3&vS?l#YW93LXI&0S%*>Ofqa!*lh@T)_g0tIMWH{IWbD9|RWunY37J(}my9R_(v zZRM>wyP^d3`sK<$9P2MaKz%9q(3vrn!_A@scfU8ieK6>2?hZxWj-Y_L6LyEtsIZxO zjB}!MWXaaFa;7FKt~TF6lO7L-I|x*XmV?^&;`%WQ(5BJ`9Yo@q*eQTIwssxfyckD- z=FXNJ!+GH@R(3qDKfu1;v8}_1#}085Wh?%+d_@zTxnaiJyI+R|WAbQUT*!$UNGMH~ ziBCgF1(iPdXGex%G{kj~FhqCc{U@9Q)+`<`d%Gf#Dl=1yHQoaQGo5EWY4jB)jqFSDQNB8>l16Q zp!5l42>(?ME`PKNg>FLlBo$keWYc;AkeG<4>X7V8(@~2(v(<)n>4sw5x;%D^8#{<^ zIPe1iMRS_B3<7tb&aAe%V1;-5@NTe>w?3T%F5pHAA;3OtD>I31GM*e2k+_<9K2;Cy?QMy_x?b3A3 z*4s7IDubq(ed+o}eJyfFEld@kjKi{~uw_5;?)9!|riF02x` zN>n)}!>yrMbZJj##Pe5I2xjkHII%6<9FJcI9WZ*HgiH~D z7RXdX?ZdC?gA4){s0=vl&*Mm*kSDF??CH=AEY=qk_nM>hZMM z0?|WGsJHcyql3>4qqVv6`2tHOGg5E@mX zFSqEE_h^^+lHSp*toG%7=1_+UZP=u2T^Y-3xbMo>w`Bzt_`?qHzHq}Uy>Dqttp3S= z$X2VcrU{X6or^~zQ_aH!sN8D?1K@GtS2Tbs6NWE%8L>`41CB=@+?(fB@y)h^e5#i~ zC+pnTpe}H(e#Hr#zS^tB=y}?DXg{qSq5*LxbvzCdFbD-@0W-n;?_8X|EbB#cmdcvu zI-E1+)wawoi&DULO32k%9?V)10`W>czh-)6=S79P68%Q- zR9@YcFbUjL7nIbN6eN{s*zc+@^*K($F-EsSG>4QSqD`27Ur`h8|2U(g6H$*HhVH5D03r5{P)JMAMyX%7f4@RoH)Ee` zmB`%A;LZeOj#QPktHLpnwk-h8?+wB4&IZCR7wy`dB^$?C=eoTup%Eu(dkqQKJOlAM z+&ie9EL;Y&R!?|!lsJ575r6)MF0GJrc%*}!J;Tkx?zFg)GT#1F9KfLxnS-1QtGvq~ zYIrf1h`mD*BdjpwWbPu*d&SSyf81Lc;B5$n$;^W5kJR$GZ8Lq>mIsfQYTtvDmLV!2K41z1ej{4F!sqq4 zi&DiK4xXFJCl^^*J;1m=;qvl%8>oBKCNotic0jb|VY^EBw7$ZD3TuO2^{Ewb4YBi- zUF}rHf^Mp|%n5KW_Jajiy7%8_B&w|_6xVN@RjX$aeYlz4jV=8vQFg(Hwu-!u%mdqv zIJ#ys7Mk2r7Te8*j5hG0${Q0iPyjhYQ+D4ud!p9O1>pLz1vQM&`pP6yGAyK_04cQaK_!l&^Xp&iZ-Yn7g~wQhaS zKRyVSL}mPh(e%)LR}rF5kv9*4L{Ayw+M@3YJo`TSkK+)6-Zl%Fp!36%CIXAb%5a-n zzJjs;86RYKoO_K`IPsJFsoeJ_MOE-?6{jXCMzzfjQGIr~<|@dqHkZXrhPGYR#!9f3R-k3lT=;J>#dFaq13Vik_a`OEB`-cyFlb`0-?^x1w&v1kFlxFP z;JK;W1bW+cfra?%g;r0g)J5P3?AQu!+BACw)2@TRcr83@XRJY>E}wO&o3M2qVr!E) z?eT>?v*5|=`lXew=6rVSmU>kMVqy_uCiy4A7B75b2p;;vkj?fwtEF@ds9=OuX+;5K^F5!qIJr!)4)+b-!7}8hBv;6)cYKK8tbS;Sp)? zEN|D_Lg?L2$NeS|j=2@Zm?$(NW-1z7>zhGY$Dc^ORA%AV9j!0l`Tgf%Z0QIg^6RSd zds?mz`$&TIE`;RL*=I|@6@kSnC757;j0E!m>KyBr&0*wVl1TW)p7Do(*7gv(8~X8y zV+HDy*|EWhK8Z3*HQG-Q#o*f`!L1L_r&O1e6`mNUvPy3nwAqVQANPPWGH~(-#|gXw zLcJ-UiaM>QY4OzBoClWqza`Z=M0erwUQ;6vuK+t8Izkra*%x-98el*A`;@{mKa4<_ zx!7Q~7BqW&kv=0d;|$*sx9{DXT{E?Q;ZhD3gw0i=gojQ#&0}xif0ZLQdL0{KBw^Zd zT9@*zz=|wdR5slSG}Cg7H#C5g%$nde~K~E$j0l#nmmV zWImpU{z5HvniJ|Dx}-@-CR&uC3|FIAzfdVV5Ld<*VbipmN$`SC607L>)H~G| zTR1Qg65MTa7g$HlQ;`Aj^;fN&P`}Oy^0lS_gF`0ANXAt~jM}HXGD+Sz^Po-XK^-V* zn$uVX6E!bfRgo&no{25Z$1S&ZrR14}LRPha4no}!Qc;w!tCpzZ6HdV{0fEq&F{hLh zbju=z^Q%7SC{$+^kn4SvA?ZIpQyOpf4$cMxVH}kB)L%e8=rAsjfoj~K*-6?3TiQ*S z`#*?}PuQyHasO1tDD=*SJlq?(d;sx}AQZj>_nH2|8?++keBR-kPh?{Bc)!Ygm{C>| zxJd6p@YzaU1O0ajJ7?z`?SEM#3B)IQpF=wN&oOM2+m2EUZZAof^c9vFd5a8nlBShbrU!# z>hv&`*y_B%Jhit6h59C}uMQZ=A0Z*osfHU2^8o1B6$QBK+jZ`_oRC~xl>5&H24=^L z$gy!r_T?cHk)w>NnWi-ulqB#+d^v4`yqD@@ny)?GWw1_MsaC!<3iIHps@=KSxmVT6M%_=?D%2GW6Gg9~WgLvZyrIq42%j zI(UoP>7)V1-NnTBsq+3hRGrI;lOsHM2f(z`<}6HN+;939C8=(u?cut7GXl4f7b-W_tQPs>6Z>1yvLjXP6a2Nog}!{Q_NYCV<;0STTJDu^Kz# z1ftk9sjlkjjhXhej1ot`kaktVdn$!}q*74^1bf`?H*vtUhvL&W*^tTVl z@)&3;X3{rG7X|+rx85eSpj>LC2g#!!qJfWn{0@*`Q?1$RYa+!W?j(G=I0;^7`OlrJ zx;HNXjV7|57%^f*bm85N0!D#ts9B4cQo-S8U4gn3+!CemX`B7RW|Gxsy~3>sv*V90 z9PaRrubi40)u57>Ne}uC7g+=RR#*eYHfb$2>>#}Yet3$MYjANF+xD|umikwH?ybpL z-kxt@ez}0PefF{>#aO36h>nh@HQ(DWth!W5o5&zCwa6e%05GZ&>4QNM*gZ29@*@#@ z0Xjdjtu<1bRwW3xfrw9+VD6$0I|1l`sgCS@J)oWPjpsQl7tGRANEO4E}!#Kn6UMz2-^~HW(J^#-vGg|1wdy zC)#k-V*B8D>|Xf`3wj(h-d9z_QE!>$12%LxuR~2JB+U0|;Y^zJ4;#AxJ%3q=%vwFT zv55yS{XOWXNSa$eb0B58o|4N|5xOjl!RXh5`Uvm%w{G%Nj%P1OU-&n?InUv_eStI) zfbblBDmHA20`F%$KUxInyUQ119a|}l+c~}97q2My{c!(X!#{?jA~ag`rB8IKG>#O) z5Vs`f&1=y88z9r`v>FXsONWOYbH?xouVX5gZZkCWd6Jb z+bV&-HoOi??Ny!CJfP-f{7Mq)p4E$*R-hlrRZ9~0aWA|C8~q%b;Ls_Xi?xL!hw`$wZbL0!nQJjbv5L(wr@OZV2! zNxbQrld}<6ZQ9)h4|U`29go2kf;~h+8K~eEO1@aW=YRiN2Rue%g-mg@eqteAnP~6@ zVSQJOr^Ez_{CgSyCk{@AYG08U<*kDiklRQ#15U61SPB!lh?lKw>q-h(5QZjqbXe!% zZAa(sSt{pSC*T_BsqmkWqg;D@M5x^FXJ_R*km})hMWl~%{R4`5Kb?EjM0DZBVQHVf zU~9|vz3zpHB7nc-vT53`d_VtFIf2?5+iTUa>WptcquD?NtlPxa_ov}_P|*gMM5FtQ zOzfv)Pi-5RrH4gC%WaHu0vt@y=Ow|QtbQ&R{2Nt~@ylD*K2AY_y|ju@wKG=AQrjn_ z#y+;j@@h5LiSK=~#UG8-leY5$tYM{7#`BdZA+E#m$#rUq1y8iPb_b}>El(;frMlq$ zVVDh7j4Cepc7RMCvgZhVj{*9}u`!yDa87OuZ=;Q2e-^PQB)wJ{lw^cZ!x&*v2z*z0 zk&W#bPzj{-TL(B)8y(y)1l|=~f8l^$S+vTXvJvG;>p!mo7z#U2&5I~!L)%UCTo`C= zLe+u1U`^QFf)q!y{3y)7=Qxa*493@byK0%?fR%w z0tD{lG>x{Uer}sbgngK{#%xqgAt}Nplhc9i1y7G_>U)5GZ;ly4psO>4?1MeG~s>82GX4ro)Eum(;rur@)v$)T&bOWA)|0vI9UiJi>_k%QzV zG~a5S7Jxwi5=4s3-{gc=@Yfu$O3@*x+nP`t20${}(M2XxIdZn&cQ4T293y$SgQMS= zI_&f}K(vZrcr}z29x2Y-9!_V9eE&<7CV$=WJN~23{mJAK+fK+qH7LAco%Rwy)M@o` zCg1N3L|DU3EFO})%HS2ZaOUa##FrFd;IK_Qx5ksqniIFwTLmSVB{YPnW$9)^RZJmP ze*O4QKa|2+Wt!t$_n8w5WugbH&}dwJ2*^cQEV=v^4v?Sohwo01y^(}46f0n`af6hn zM9xABrOM&_;;U_GXJ$)e(Q-N{S z5yai%6l9A;VT`DCMjt7&k((WK5`;DKhKA~)X(0iY_o<{rTU(-b*E7>bq~4TWckLJJ*84UX?j^i=hs1XN*I z@86t9)&N^hHW)*vKn~fL|2#_Z(i7;3S2Q1~J9%Rvc<(SwR%rehk4ezm zZjfsj=hbn6*%elG^dbd{idYK<%$loor;-OAtZb4)l`ForX1MYx)GVCNg)C9wH{O#?$c47)T)d|S!j(A|RysE_sw(dnJqHy@{Lb6I z?>owuu#p@DVfp*NCEgp{nULq_9CNQJ42B+kt5sVn|17|;w5)(;e8dVN&1^#R?Pvxk z_dA)5;8oQEo+^Xrk%C7^$wU1xxbq7zO1pXeaYht#);)9Gd%Ef&!6r4Hx2SC1URl35 zQ&vC&w=ma%=87+U3|r@wbis@P=Ydu{11^b`np~b>?;Br->6>@z}x>Iu#FTCS?6jyrD7ZgkgIP2!eZ5Ktv<<)Q8F9w+ZA_(`Ya>;675RwpzP#BR&E?kIrfOw>&<+&XRNI%Rxpk34&6(;rGzqV2=yy$sGTHC#|; zm6c+y1VX9{dF<N!jB;WV!|5HsO$E(OQXlerk|9@?7e0_k6T6P<#M7C_@%Bxwi~ zm+HGB*=X&)+!jD>VLqSWJaCVmHME zY)?T-QruB`U{dFOtZzK{Pq4VC}eA zR6J_tK#p1(Zi*t&Ck8&s8V)1IB5~}eZVSz-LcROWCkLaIwS1ioYPl9ayrjys@qS(# zD0XI;Mw*VcM*Z+IkLgm-=@`4gLTE<$V8FZmX~UO@|7l)l%Xtx)*^n4oxhkU=I%6{I z(iTs5b0A`*pN4Khq-wMN69qc+B@COMSZtn7M6)Am{mCr9MBJHNHDgx%4Jgh4G?a$3 zu2^)NG@W_CcC0~DnJ3@hbB-|*rrB{`4`1=J-#WEv-~Oo61=SsmuRd(M2p3Q1t^@sJ z;FRR`j8TriMgImmbM1d2j3`#emtoWa`jIsQNQ1=-={;U{!7CW2n|`Pbe3*QerekD% zkh_Zccxy1042;I&%oxmm{=6)4VTTVOKfj7%o>!c4SDpvByHi9Ma`Gx96?a+i(hHjz z=B90E+xyvpF=kiE&SS(=#4#ldtZVkYoCUp62|*OqD9I)`*Sn&ZHjXZ=0^0q)ZxC%SrZ>$S(MzEv;^}!J zo6P6tB`}StspSIBQ751r(`XM#)HObylEE zdk0M&wf{3Sml55$W=4P-E<*OCXkz93X5G>2nyiCIdR^#^oz&u$9?Y=^Sid_m?1v}`Z^lx`A^aH-( zu*WSRAa7{!<2dK3$(&P>F#i%MZuz&0c+NXsnD$P(s33SEI}8{XY8sGSCCU>rUI&ZP zI)pi^3EYRT_@Ts>@wae+V1f<6loN%AqZ$1tX*%%|(z+ZV-9-BBh14UteQp++u^g>8}ztUy`EG~0_g6K@$Q3t0!4M|D$_ z*Q8Q+t3Cl;Tv7c9n8Yknq=3>U`Mb&J(eljxw~%Z?9+B_?u>s!jd|TPHbz(GpuP-^vL>tipQP}$@rjHHkX!nu*Zd96Y-3Ad>Zn4w6m z^5Vjb9e=qNf3GO4R@C%V-j?tcHL!d-7j(2aU!L&?==EJP5L-X+1cwvgQwhz*^OU$< z`9219uGw;+*8+@2871@o9y zqur*mMa^oNqaOxQC5HojmwSTh<)PfE6H*Lff@(b){8lR+E@4D$&2QtCNjnZ*Iws4Y z=$8DnXn>Lj#$XmKmN!lJ50o?raYmklp<`tqqC~}OOs-(bczpIaCsHu@2#U0aal7NB zK7+MYi1?yRrj?PxO-tnML;1}LtTCZK$D6u;;n$`!_tX%vbA{o@l79eW2G3l7&h<9J9I%^hgw7YNs z`KGYeLPX!Dd2w+~s>#FpXPB1QlF+g_eBU%?2n~&19LC?JvuOV=7sr(3iv&XGYsR+P zrH3a_r?kI+a-di8OSPZ}jTT}8V*ZvX+zyf52@I3lxi3R&=;EQCx`y=-mY*OXAXy1W z(3SLwXS%6%JI?Z6oYH@u>J)$TqC1n(K$@PBGwePtC}~l#`KW`=;Fei{N9oT?kC_Ui zey#OuT-R9}!?BEs)%qcm9y>z^^Ecwiangv+yio#a zVDaE^;r%7bL!JMB|9=yT_JZqiet#@quDU00C>^p%S$gP*_u~DS!0R_IpsAFeaJ&9U zb?Kp^kA{HrS=>*;4vErp&Vq;fxHZ0HhOZ8Pm}5!D656t?$0bo* zXu;lI*HpgjFW)M;C*GQ(j>JjPkmju)ma)+Jn>v!^pH{qpN7ie{4Gyom28amb{qkeU z8t3e2p#mQJ=CCfPMoc?-sJFAY8f<4xL+}$P?Tg>#jx@bl?-^robU??$Ja#c! zrcL9e&C1BDW*OVxxU}O8kEy5v{ha@Q%AI(!oEG_chRJH{wPqd^3Ggv!iJBKCwn6WY zD4Q3Z_cL`(5dQBD{DQc9DpKGDrUQLiu0Utuqxw>^EHjK-lHnD3Vy!iWA7S_&`v<|BS1~^w)u*iQ zC_7Qke{e8(s!F4g6Fo_x@N$=cwK&}84R_gWd@!MnmF2JG9HcQqQhyisXa@2E?WspZ zqM6~G;z{WxrCaD`E)K0X7AWFWkLFI#=jqYm#%!u7c`@NT`uI9oPY>TSYZj*pCa}35 zE+L0*TOP}pxbI(-wxhZ}>Obi_Gs&3}PPS>jLqRqiJX6y`jFXAx12!!Hma{MFk;ZFu z)t5^#9A`rvu)(S+jq^L)^(T9?eYFQ8Bvseb#JevaP(Y5FLeME`u7x0krOZQXQv1MQ zTs#n&qd0B;atyaJE;1CK`T(+yKD>^UbvmJch1*4`-o?nSqKO9~Mz7QaV~JJnAus>|gAJ^|e3o(+O!7R7}!kRjS+KIx&*Ilx=s? zN}J;=0(M2d;)C{@<{?T8L%?>l#P-b4=$MWvg3#q9*g#47)?4)Y;~#BUVfJT6D1GGa5Z@SYrZJ zErk>aR-g+Bi4zJuUlZU`P|>KhsJZ z0pY}Fu|*~3syr$}rbv!IzZMvyd#{z{NV+Y=mMWi5t}h-yZgEgX7ySx85jqqbu~nwD zR?$~(DJe)k>@`w8#Qtwt_LHI~F&?WG!j$R;=$sIY`@i#kfFry!)Z5Mk{fVL@@UG(S z{M1(m!Gj4Zr02-3+U^=qcCkQ*&Rf+GlpkbP5>sPbelZ3ctZ0X=mXThfhBCu_S_4fmy`f#;@ZY)i{>h?u?tB`K`WB}@5 zAXz`7$6HXWoN11TzzY(yg+h3eT102}gA#35<7`@*<|-gIK=6Hg-Gv%c92__Nw!F@0 z6>BmCmYz~fIa=TLZ~Z(EXwgIR6_fuP*KHk3^~3?uvy%a&KSj&7M{`$r`7 z7yj_57@jzGmgMDK6NmvoMVb`{2(zzvL?;iF%8{VO?%%9kzm<=)eL#U}H>psLTKK=R z1Lzh9?(<^2whUFR2ISTc;@+gc;qfBL<%4KW38KHdM$7_>Ok8*HI%S7LaDt79;8h`w zG0RfROGR6s1k1Z<;@v{c2c@b{F@mIyZ)>IRyv-@)W1wSKVEL)0Y%V;-EvT}MyK-S? zQXJw?wpQqQLL}c%r!pzmE)$AmvQ>#Xn3Y?J2u9JQ*;1Hq2|@5tN`gEuU9?AV#>;Zz zLU<^l6O)-I3ZpVT<=0OmfxtmapbuBx%&UV&?`njoQ^%`$EN_CfO6Q*WV*1k%V^sx= z0$S~71qn+GBlf-V3KnH2u$b8$&7NXq=9n%Yh3rKJ)eNvWazpDcZ&)7^fqOte1^+De zvi9;$b&QW|t#Agg5;$+^d1g1G&{=Ur zexO3zF#y!>RKo4C9z_wP^^~h5RNdZG>pRV1G)~n>!3XnT2=IH*rB_bh#diso*Bv{i z1MN|2#Lh9AnOGYIQ%K`}Ve!;kfFT>;e_J7uLD7^eXVaf;`dq9Y{}fqWbKGz4H8PFM zyN|UeRrIlEKb*i&tcGi29`cqS?nrhnkLW{BXfV*u=bmCBkLvfG(fJBH@SPt5cvri& z-ks>&Mu?SEN)tbLM|)c>{P-u$e1ouKYAJ=OWc|=gPQL9P2Lxzud5&53P>ysWtae@1 z%S4(vJz3nd!q)l)D5zvl zipf<0T~Ad-#_VQOHWA^=nxCjKh(I;Y=Ya`Dl(ORcPF!HXb`vP16u=9qk^OGNm;*o3 z;yb0CJJrMEqZ?#;_Ftc{a}}BULp$nt^dcXN&eSjOUpFrAu>W<3+G5dNeWP$+>jBXuhT*U z&5lIhEIaYO(8G}=JLsx{2oK8%Sja&0i4-GV@AYJMuMPQ`|9KNn(Mfd;SRNC4lf#}w zs(|(%)S%H4;25etf^n9@S%lJWUP?MmmQ*<~K>`DhN_MAuTZ;Spa>>2In%I=taFX^E zV6enQFS9!R>5#JSn%T*Vcm=U|liVxubC@$iWJf#}R0Wz8ar|L+RZ0eU`1pV@A7Yk14(C+(hyG7MX!U4_U3Uz3+;Po~@M8Hk4;vbpZ&&>` z>+7LB1Br;F7A;Lk_Rz8q5Hl&Cx0Y#l-ljfl8}K>WOT3ObEQAsQLu*P^p=oLBukRUx z)VQ)=1P5hzrxYJi_|vGgtgfu3!B48fi$l6v?B6R4*fC?yZPwiD-DPEhzSjc#TIf`| z3Dd{y_xI@A+hB3Mv`o0_@SdJ|$#J~U-gSocOKATc z@U`9J`MFHyu!(#yzId5qY`(bJto*!1Gs_P&4+zcb+ML9SB@@nwXxT(PE`Gt}fgWO@ zSdotpt(!_k9S&1(Y*a$0a_ppeVJ(j8wn!)6_exy}nyK^uDW*XW(LqM&$u}dRWT`#5 z;;N;cPL<5s8FmIQ^2?X4T8@lWbl^-{NudTUm>cNrm^kK7N8znJbR!{cn9;u>{>KK( zjkw0fp>Wq&lFLgS)SLX*PuMD9>zm$;-D_>KE>-)+7SDD0pN2BIO3kn8UFNn8a2lng zln)=d2|fCi)+g?4yr?hg1uJDICbo?kzK$T}bd)gJS-OS%Apic;%;w>gz)sw=U0Xcc6+=^#>ne>S6m~zj_ZZ8?-mWzr(YA?keP4z>zPynH;yl971(Q%!4Iw)iPAGHnVb^#}E=P zZHF#*!PHF+}Yu;M(I*+TyGIC zt0cr;qj^07)ds0k4WhIrydKVH;CG);ou*(hwDJXu{E@^$v-8IUR?QYBaTPRpo^+Q=AHbfG1NMm(rU=sSH}4QKX|PgR9t;!W!YXv$+- zYVE4s?faH3JBe82v01ehmpNHRrKk~2mR6EQKG?5C0yczT<8r?#BH$1s3}HFD2-d1H zpVOCHH*H1kwBLYzpx&YNopFpR@@G!cnaBY?6+^=S!?wvd@ykq}%Ku*dRDxyk{I7HN zv#KV7QNvwzOH6?Q+ajyi{<`IjU1$d~>iaDe&A?yN+hx2IU!7xa-7GG>Q1y^^3vbCr zyTkuP_PEm&ljKH!kd|c*y!jILrK!7)Z=C@w9);XI1^*z8;1Ni@kCGm0&(+_ta0atL z$^!;Nk&#T?kfpdPCY&e|NohWdBFu@y(13x{s?^jNuPSQ^)6s^^K}!^ZfQeqmcf_f* zr_VYUO|(MKR_c-0u2W`^1tcwR3WC>a$?iVj-{tI04{o&=!omO<^V00wb1QD3N8ch? zF`EGE&J;V&nDnq_$f`6_@bxi-pxv@2u2bsZp;-x%KP_XCoFV{;yG> z2;}@TZe*Yc8c)4S3ZBc6Ot`8v@(tuK)X9T#zcnPY!0AvP+>JYoT`mcU`x^m;H8=)N zb5?w^9%gbQOc=I^2GsKsQ0dWuWXzNDs^}0j=`<+vca|8wpP%4=Z`>*YCuemO?I<0% zd=8$MNK}*+7g9+>nzfPAY3`5JZ{)_0&jzM4G#W-p5oP$qA!fycSb5r8Q;NV>bAO|V zmfJtBPc^fqB!3raxk0$fvVBVbVivfURK6F7S6hF-bSdAUZF5js$?vUjXEF{h*Xu)L z^^o@Ze$Jg^?3sWvV~8a$tCS zPSQz_ZWGow`+JY_W$4Cw<)}Ia>nzG5PlKHV#_G_Ys2R%p(BzWqzS_}is$N;l=?R@L zM-9mBxdD$`(+M*nSh*zSIz-#eOyd@(yEXl}e?L2I>(3w#z(bQ_mRb?3^XA>$EYOjC z_Hv-x;+}%eQBa0Y^>)98A9s08G-ZEVh$z^|7G7fgR<|ufe6D+l#fCgMDRYgDWq}w% zSB9kU;@7CH90;uUZ;aKYYWWK)Xl(sN3ersfS6h^j4@XK$_cZFr|1X2R@_)!B?w=uR zUM*j{Y%`W=8V4QC!Qlxfm_NL)pXb+f0tu<0|u zkuz&N3Qe2)p0O-FE{Ht>sR+dVXvM>4f~zEvbnl!$H*!`y+dbYclHTN|CuN-)__k|c zbG9$;SA1K}f+Kac^TgqrcJm3)hPuncSNWKVt3za@<&0Rq!?9`MnS)bO$G7&tJZVJd ztA$#16xhtI^Pt_tef`p*gIJrj8M5{7DI-~fWV|zA>G0JoMb8&v{G$N~6X!7pg zL*z7t(4@`3Ki|hMvf4^UNXK-{X&wp#ynIQ%i>4J=tJazyX1}KMlBG+W#MYgIoHj@w>v~P^J(-r?$gJjy zLBVcZ`LgxPuQNGHTs_N(X$~LmiKA#f;lBz7FKP%w12kTt)B>jSAPMyJiwnr`H)J1l zZw8KEoT};hvE0Kom5r8VBRNN9B8{Oq<9i!~3QTHj01Ju=vKuoD2(#zDEzT>#0YgQ9 z%qW+9x7I)FtIS8(ZYoW9@|zlMN3vZA3N_~(x|J8fF2R`c@$(yQ-z3^%kl`=-J&sz9 zC-_hbT}~w?1#M5@6k#s6H@JFm^f)gXZm|Hr7!$5&OYv)r%@A-hO%+B;YkcK&z{*aD z_)@^soLa0KyWtdB5HUakIn1!cWF@u`OBN>S7^`nIwMzUE?+GY5SKrk>*Zx^hC2zh= zDTv{%BJWwIv-Wob*@EeY`AKj))*y?% z^uIv(hB!xXa5ZM{I1x~54hb#yZNbgFCz-zIxl(`B>@bj?-}PeBCRJsHtX;j0hScRU9M{mb8W@uaxpPJY$LIQo9zOQ z(aoIufpzKj3xPN!3UMwznqkkx*{0`suMLlhVwa8?*-rBt`Mr+!tiI9^D$m3s+XyAV zOV}+ifZw4*8#C=}g?nMUB`YkY0T{CR@_w_8X$2tSvFh*mSu*2e%v6N`CpJUaB1wwj z=?|;Ucl03BXCu-$LvGJ>TPC&gP^|P3RI1~v8c3IhNcE`9I}UiIB)SYB!VM3dAMj_F ze#Ry^cl58gcE{Mg-c*e3vU<;dO0~kW$F_HFX$gG>;({xpRRf0&W$U@7!!0A>LLx@0 z_qZw+FDWG*zBP>KSW++Vr%#tqJkI9?di5465%>0W))E4WDEg-C1v0%@9CxnR+RM#t z;m|5VBW4n7U6Y7N+O;tP#uQS}G8W}FJby@9>)vFu`6Gicp`rr~w_#0{g3>N~X2tA@E3OJ0u9%(Vk+l|B-jq%Os2^nTiAGfUU2 zRb*mb$nem2(?i*mW`?j)hhwi5fxD(1_OR2J1}OfS^Z*f*w&lxFYbvl}Hh)Glg88dlKl9!!^p9RgI6Vwn`cC+ zNBKQZWYeOU0yxs4E-DytT3aWS9Bf0@7dCZY4+hH1y7mJ~3Ta%pbFOm<0x8uv#{2Yz zz)@kDAK_t8JBDs)lbOW0O%^gImzGhPK_W2H)GYi;2zgVVB4ps1{+qx~nASh$7yl)Sm-@{Ea8SXc$_~GT zElZ@FV!vev>+&l$u)0+lK#~s&pf0LISt>S8_*TY8^d$4_2+|AGOaTjl$}LeXO#?{Y zeYMB+=&&DK9%P~SJ&}rKawq_P_SrmYOE5uf0lBsdBlv@@;FTn#Q-iU+fUX&Nd{=i4 zp{gylm{IpMZEiyA_mJHYt!oRe(*lnWH3jwTrk}GDDw5Zy`tJLZPFt#{<+*P}4=pk< z_kQhC-_p`@uL=@}sOe+)e&E?WrLsS^yKh^WISP=%ceYxD5~L1(BZB_lV7g^Z2a`Vr z79PNeokTnBqh|Q>hI!0!&9qIYR0Q9>L?vy0>m}Wb7lU3ta+&ILG^18`iw&hZuXp!4 zmL$(CWdUku#n|MT?*)9}-VWK5B|>}Zzo^2U!@$x811GOqDN(Ik5CQSKU^LhZ=r2S5%tawBEXX4>yq_!g>TuB@riZ$aQasxh^m)Pav%)I2rq3Oke%nkxnhV zOuXj-d`C&9@5Wz{rzvBy1vO3pUH8OR znCe@esJP+DEC(JV{gge`1#Lrb89X?y4Xl~uEkaOnhhCXx(s49(gTg$7uz5>j&mn~{ zIB-+=Klpg$MnD9E77}>?afs#fA=r_FQyj3d3_Pb?RE~*KI)B&b7EkzZ7|ds`A0p_D zi041_QZ)0OL0^L-4#bWHLf}VJ5|c{-=_&UsHmE6fMx8$4RvvAS5(uKF z)_A;f(~xik3n0P*S~Zdzd*2hW?fK>nk%iY$dK;2%r@^4*U_=f6Xe%sP=OM}7Gs6FC z@BstSC&V)4@|fod!G`@60B7FjKMPv>*CEqVQIHH1N+o1c6W* zr5v{0Jg$7$1v*2HGfn!Clb_rEL(W>SE+#gHahF%Q_r*{HIPG#Z#C|NyiN$xU41q`F z{Kq1*Qo#HdjI-Mk1*60KK|SIa8DCfCXI&bay#e1$9(GGN)zTr=O&l&=NWrX6V)D2!MOvYSiW|lgmfOX} z%jIAPv8idN9{yYB@T*j0wdjc{R6C6|>j#cHSA!7r6mz0bZz5-Rv^2)@c=5HPjN z4p5qmpy0Ga+Sbf!1g3sb1DKUl0*#Qapc zQM7msS7$|;Z1Nvr_hdleTzvy7am_I^w)LjCa+(Wx>W7s%+A-Dq->aC)Et$#mE$7gwQffm><;FMVEVXU3 zh&D;b=GZELmQT-0rExejFyD+7c8Zm3WT#2BsscLpN#L05H zIXc&O8DG4F-NI<`d6a!5N3ZIP>*N_Y4Ei)5$P^FK;hL!2ABjqp(`gdCH%l|n43x5- zytYn}&M>G9f@03KQt-0UtAiH7R}kj09V0peA?oO<&guyoY>5Y-APCuuzb|Ml)6Le$ zklxDX$zaA$2FY#O5AO}2J*>DUqDHh28ILs z7Fp&YZ@jOnsF_aqneU`x=Y^!)Q{5}pXUO^%#ouSj&cy(gxu9SE*`7b3zvsE{TtpCt z^O7j!`(5YCITm(~@Z2O1x45)0G95t5OZR#8LrrF}aLwJaP%HzMxlUfnS=+siHC-z|z;bBun(Tt%|!2E?Oht;a(0gm)^ zT;BadpkqI6l63VQNX=gIt|)*M6wi(vRcQya+)(Pe(wZ~Qwt(0O-wg|6U1!b!zhE`Hi zZ_6Gb7!z}Xu5&aI6g}jB$$u{kJ2Mky%2?1~i;4QB)s-0{kOh^90!*$X7iVn9uM(#;>N0$?U+h0~Y^(kl(Nx8n|0VlCR5wlkbzh;vdA? z#v=lUFFxw6%50_1x|2gkN+}zn9~!%dJz{PZ!cu#(tbhN15X@}EFYrGxS<7JB4H2m) zTFi44lm6S-m-#YjfNxv9ckj|o_8-2g-$ls|@3-3f^gn*TZ>P7}oAgh&=tldiUu*l+ zf4!>x^fvuB_v)7Y1O4|l`ZwQuZ*%VZOMU6@xi{CJU%KAnL?alfY_vmi@x%bhV+P(BP_kVr0y_?>}z2o0t@3s2-V!qVd z>fP>E{psJZyXjr^X8Kop&iWgA4)-nV`|7>=ZSSE~`UAe@-*De|Kl|(De#>?AeSMql z>U-Mu^_}dWx25lV{om{KE4$VA>({>Z-+h0(%Ka^`()#*q-Tyt$doKD%eH*^I-)Gm^ zb?hek>wR;(J-zFFpV!x(^*`@Jd%A7eZ*|+N-R{~ax)aHhOatn#bkFZ{``F*TVeb1R zKImTcufB)->}S38@1frM(f#fZdz0^Ld(nTrtp7WwzLKE@_FM9jmTRrsW-thOQE7&XOZ+cta=J&Gw>%V$q-v0Nx{q%wR z=y$%g{`3dC_wLK??bp5gyngRK^e6A2KJ~}%c>CCYy;JW&Ui%qefBVzk^yj<3y6t)= zyNA6E?@fEZSKEI2C-0^n_V>Nt{@s7?sXqGS`_R7bU+%r`!TYTH&_DaG`_;d_S?_0m zyNAB6e)jLZ-TzyUdvD&p_i3)@-EZBi-AmoG-re`OJ??LJ6W*csxIMh<+x_&1_pbfu zf8FcdpZ7xdZ2i-{)c+@+wI`D%m;w5&=wE%izN`1r+uP)acbn>+_jdi6-(c^wx9B(D zUGKMh><#Wd`!W05H|Tf2O*iN#@20obe)~&(HT&&d`aAEv_t~GnakuFozMEU?9s1wD zMYq>G=zZ)P=w0pG>y7me`b&KYzTe+p@44Rlqkh4A-*>J1*f+0x-*>b7+qb!U?LGBx zzRllR`{^C;cKw~-qTAoM(p%fNrEf&upS`<#{`UR$w)?++gzvTY*#BLh`}P}tyZhfa zy?*pf>K^p1?Z59!-$ncAE%o2;SKp|9`+t46{_A(#`|Mrp8?WAzy*GMB^o5Z?E@n?|0vId+ROqC%vzFr@FoC-tBjF>yK}M_vCn|2>ZmOLS!hvx!%DYqH~gKvRb2Y9X#3co4rodpB-(s1(#L3{+^T z>h&-z{FY_yX=d4DRaKvvX20REY|1YjKW9RB&qzcbNx$Q=31_$EHapg9Uh>8nJyn{s zeBO(sUBwL4->&5>UXC0|@BzN8k)aUVOiIeiN}T)?dn=7kt0La|Sn7?=@P!ID19<;y zy~q<0_cc%QSyJwB6-HDG-D?puYRywt4Q83WTHU-gk0TPzTWZYvM8{JlyU^|* zLSYCA2@Wf+CX{|i!^l=!QQoXca+S^jG(OC8)=W#dW!*4Sv#1Vh3x+3UjwlW}7Xxu%Ki#C;LuI2ep>}eDI3NAGDtj zq*qR+qD(XO2?%eYf~7-ax|K0Gw6L%>8;k5{McMj{yq$Ldn;Uv-M1t)fZQ%1;GRj`n zC}P2U4|~JGoMP_iEuYz=%TAel+1%#&A6?|rAHLAnV6yX`at(ivF*&}ZW z-_?ra1jfqs6%4rL6{ z5e6c6waP^WJ|GmL6qCAF4f#1T785gao^&d4OsxGJML}!-b^^6IYKCY-+0$L@g0?5E z%C8x?PR@Q%reb&1ui>%4+-P&COdK8rR62pMT$GCJQwrSxe-GY8T3dG5^BrzfM-sb% zTHgBT0Vf09WeZ5V&$S=U>XNk7Qv)h>o-CTS{B2^kP3mH6i%L1mUusz;%&zp+iJ7ai zc%w%%R(DMr=C>@rAZC`dENN=$E6-%w@KT1B9p=PdNFfPllT_A+=g!DydRDoAwsyMkEf9S|G= z{O@4zt`C4er#gbETn#PF&Np0eefj3bTeMnW_C*fL3ePvIo_2K{*Mk?KM9P_St^YJv zAx}#tsSV=xzB^=RLx8l4aMg*^=EzHdZqDp=$VOXc_gsc1HEw7Fkyn$yfLSW4aRY+2 zw#xL>TG}0TZzN=R;3oWqht)p`xg;i^3nZErp*)bt6J@FSiGEMdnMyC{^tF>P@>^dN%LnB&blTw zkf}4K-Ska=^>F!C%9o<+zL0S&I*RU;%8y6)j=2yOP*T_zV3y9O-^Bg28JSFdGc%Mp zC*ZY{vogvh@bp$T8y)$J^Ca&^cv?~Iaf2VbLG-mLIZT>VvUa?hXI;`uwteVdX^61c zyvIMfy~sSZEA**~x=vf^mh<-Ev7nTBNHpCuL%HasYj2QNq!y3aGe03a-e2ZsL!ty2 zDi-TRlrKW1(D3_bm<s(Ix9R zS~4dN|7gn~;Q&oQvcF10c~;X2V4%^X5_9~c!SB! zsNf}~4L=~9ghi%xqp8}x`VoSzbVZM9&zTc!?eh&~G2#$>@h)|h(t8Ou#L`AHZJ zO1`AHi4|t)6X}r(sJg3q4cDiyH5|V)Mdai}Y^p;~@zmTmdydJ0Aagv5e6TdL>V6X7 zYj`uYEG1i;WScvsj=Av@fMt11y7xY*!&3YPS4Ek(nk<&{KK3eN^xPF~NJpOzyU*5^ zpI1OLf^mr)Nh#aPgSWi%-771g_o6A5d1zP>V8P9g8lmEI+!V5Wq5ZF!j5tK-hrV*W zr(TF!1n~`7rV2~VC_Hb9Mn0ZdR$Beww*Gsl{^aJwN&ViBnI~KeS+{9&af0NYosB*m zw}0nl)in8SDC<6PYq|k5!*?{j&R&8 zsH-92ef1g|L`OSW`x@)@XL16~hndYTuOTUGmN@v|PIro!HG0WLG6*EOcI&DMh_eBU zg2D(R%Bq&3`AU4;R@0TN()yCVwLThl!h@A`OH39?NpCOY$}{@E zST@Em5pFDH*!AP29LlVz!KI(+>%I0dNE1o1_!=hF$D0qwW0UK4+Pw!Qox#U=JB6-> zP+ujrs1AdF>K`HzUI6CvT)XV9cS7PdfpygI!Dwd@%AB}J{Kqrmz%5q4ZiWrh$Z%(W zEh>$K9v`+VhAy8;~$NG)uq+gRpbOD#HcGGN~CcUy3=XZ-{}GTHIg`c;ec1o%UG4{NWePFvMVv z5nmISk2ksb1YxO}!Q11c&Vb@M@J_7Z{AR7?e#smZIN>0Ca;`qM-5ntDQf6B}*YZJA zAfnij_^ahMD_;xlywq?Qj@Fn6pP8eGd7x9bk@7s0%>PI2=NYxDst_yScJXLrk~2;p zmAQW)@9fClZ2EN)A7Eg8l~N<-_!XhyfmP907$;jiy0^ncVzN(#T2TI#XSBb>d2Ri( zO^vsH$#R$&kqqSSJER3yt8(!nw<6wXwY*4HwoN91Ghdv3he=tK#XVsWw>FN5Se{(g zaeJooq>@f^RL-M-_IIk&BNeNR^dP6&8hOII70B`g#Xm0<`xWeS=1%j4hjp!+J98j{ zn~y582B^z+AREuCUy!CabPlERG>s#iZ)!N_G06U_K$%*th(1-^*Afzt#=tzu?6iMO z-%%(=G|{1yiepQu^#=V9yqA;-DhYrvy{WCV#d6L++G{A*)UWnvPsfWW)%O`l1NyTB zq|iUL#W}M74#Fk+>xwX>M37ONk~Di(PUa2w2uBTBvEH@m+OcLaKbcQg2Pe?DA{Lqc zpd$D)?8%pL$LE-_Q7iObp59{SbPI*)+`aOEOb#F$cyejg=K@sS-qcz+t8<2X4@# zlU-CYW5maC5WVId{=b#$!fdtR=g$b5^o2#QHdVBhW@NygcMlKx`CWi>H@v(x#KTH` zS2#9i>*xM=(1!(OdnfQ=eq8yddSOk~dzYCI)VOE4WrZ3-gDtMIZH&BkE=w!oev?#m zieL7AcE{xVVrWYGzP4pLy2=Li6 zxIE&8uLTva@hU`Fm@IBYD2dgcRg*|c?G#JdxXZ7XU57oH>1XG~e`%8Nlf#v;E>e0} z$sF{hYY%_#4-ARXrs=))0eg~L&ZL-hTap_iq~@J)xM%`zboPgJH2)O|?+5S|V=tpf z`-GT3KC|CWr+aL=2=8z*L$VgiylyI#6g zE{N50s270t+(M%gLh-I8Wd!|;Q>H=_?uOJgYrnwdY=k=bSC#(7`3Jy##(Q>96c8;r z`Kz_oyUxE2)utFGj8E;j^EPWv?>qB5*`4~=>SL`Geue6Nf=JQM*rC68ah{-qqGw;` z$$5z!Y?Rx>&gq>F0ND2;;GH$uHpT2D5+iMVDdDYt5yGO=2RpWVNoDfb7*6r zECI0El~HRO1C7U9Oqi^ky{_6ImtGy~0KqR;FKm4mXMF~{MqN-5=aB&YEw9*4V%B?B zxHplpXxvQBIJ8#`S1pS)H~j{Jmc%Fy9)2qKj!ezc)v?;1F&qKVgjft%{kXO zOIf@2e|A!X))PI*FkbRv8ZA#As2kqGDq1 zZ$v$i?9}1CNGKL#b3KIE)ybw7lA-N2p)#sT425sCQG^=}Wty8HU%<&l>J-d%Z7ees z=+O03V{J^fg%vaF%SVKgj?Xri4~tE*K%oIu-e5z=ZRFn{8&ysymM#JxNc?57-Ln2B zo0I~>iz-WIBz%bj=EO@pAVn=DXI0Pboe@N?fgo2+>?H{~9vfXaV*(Fq`v_j=a`QG- zDgMuAxb)H)^oZDgAfYF~1)W&da|Ij~1PFxu^06C?K403EO?39zS&$s^3G?i`(9l6jXB_XZ2fNoy;yr}*b#omk< z38wcPr*+s#U2lbG8Je^bs>8Z(@rrV1aE%Cq&qZ}2G_!FEJxCslWoMWkCKX-$alFxx zZf$8rZRL~da-eg71N+O83oXGZcs%&J`?@(_=e0`Xybpa+^Ii=ZKt5KJcIJe}>sAKl zhy#U{R|oMK)jocPbAu=YoTIrrC=$i z!x?@70N5k>Sbb#gMP1umP8jQSP#Pa~1K3UmJiiYab)BVY$|BF_-D*I2JFmhq{Jh_8C?S^ox>|)UzDI16PquC|6QK{(44w z>RX1ZWjG~)s0Vel@)v}Tf&(q-_kpAE&TPUFV9_jho`cWRhsYR@XU1e>D+*emq4oh( z(^vj6uVvN+=0S#NI~lyvcbzbj{y&E; zE1pZjFS`J=a_iBp{|na&>cO3j808;~U#=j}A;C_r_suC6FYMYXwX)`O#SbouIY^Cm z%qyq<4(!pM>M~M=^z2CSBx*t#RIw?Oy=}^!83b|V9Tf{D-Tj0k)0~~ycSOay33tsB z>rGZ`x#GXigg*nZkx70H>u^?uLJR$zi0c?lF)bU`t4uWC72WYUitDc9exBc5m!onc zQNJUbI`7*|*ocm%s9s9y>q&b-Sx_LCi+s6DBcgOz25*Mej;@XwmdqQPsO1lJ^bp-K zn|hD%srm zd(XhsyX(Vox8)X@+GS5W#c@bd^sUr_;_*XAex*_mst^FN!JSBO`B)C=s1q0$fTb|f zI#1U8f$D9_!`+Q9FrvTo+g)=kbwy1}U~rD@5q&L1SIChjI!9k^)zeEN*17Cf>;1c{ zACuc@TqS6LR7>h>h}Kw*prlBUp%UDyvH082)`#@A6K`*SrpPY#am(k=IHGrMz^>~r zMT}y{*1U86bCxq%tN4lJLP8hw$FR4k>sChNNh>yqtW z!x3vd3eeUIA1O7nb+xPcDe4JD3fm?m_xNx92y*`)Lyswl5N9_>?XdrNlDrj5-PV5- zBAM*v?KukZ**53uw3_<=Pjo3E%#5ws z`K|N<0#prW zwlM1{L=hvi7C3a%Mud7`d(S*}={yL33Qbg0_$IYXwh414r}PCNx@fDj;Q>yMd>m}> zC7@^8H(v4@0guQCmF;gH;DxW>+|VCF1(BTF%;`66IM@#enOe4Il3m6`V*vWhNDU{i z4l}Y=767hq!J@gtX!;v3E3gR4cK5n>%L$!8NQ{db$qFvtlZB4DY49wc>AZMa-)Vmn z)Xev5xoTv)p{a?z=^VmwY?G2?XLJ$osIgp-F^t|Uzu3el46;KNjHh@lsER{Y8%L7g zl_lSZ0pGdEGA+&!;BS?bt1=AFJ+iNnWgTQSTPkU2aL}d zJ+-4T)KCStiQCw-M$5m{Gt}QiGB)x}X6oe3C81iZ)!XVXM`^B=sY8E==CiV;Gm)!d z?*5}Tn==768#%X_mA_gmi=(xMT26B4|J7UTcQ|PBL=z)F0}t zJSY;y_bHue z-dO8^GQ1XReOj)hch#`>i9=%(xDX8YrT*A1|6fKF{8Chh#bD~Q_A?Jo-Ue~UY`JR6 z5vAk{?R0aS4P>Ukyk)%o_A#EHlKr;nslcK>#EP{M9|=^^7GdtB2gWfJF@U$%H%@*p z@8tY)NkG)z4lB7LH=M61tuBROba8Gu8cZULECjoLE`hEU4!Q1`vMiv=ql|f+DMMO& zSIj0q>#||h{{I*e7)e74tF#M=XvSm|m(LmcXQ42n(@80z0Uqc^CUX@^GQhpc>}G8Y zLy6^VVI-@alPgq;p2i>E!S~}mF0|_i>SijX9LxAHlBLjwu#xvo{kL^C&mf!#Su0_r zgfjLpGnu?-$1J~!9Ka${!7cWv3B!+Y`5^9+56{#YSTN--Mz>1m`z9>6O)g1Ca zQ!uExq*7ntTtwr&Gw&VfN0tw;K8~RW>!vAj)ruOmx4@v5Io7}ciQ6GX#kGiljiAbJ zktSD@860M|Q2uOHTaQ0oN$Z?54g>#4{>sr>{ zyHPw4X@uSFe(Q-Pe^+kCOI6TegEP|qK5$oh!d9fGtm*5_G>_6_s3 znD=HoG%sLu|8bvqm`VIl7N((Sb3uEBMfox_y76K(;d(2@>_-v*H!1pGa?ruL1m5`8qhx zsw|2UJLVKp$+9R7LC~7+1w|YYSz!T>EQ-4ZhP)*r;-G@V198$PgQ?k6y<4#U3bE4V z&**w59L#heh_$g8Mvscz)8pEVE+}P*HRvz*2!r(RN=;l2ucnff4(DhQZ6Ua z!^%r#nGNhUA>fNl3BnlgmpDU%5Is=SLGa9I(;5}eyZe8 z+nQcbE4}6ze=-?fuDRM`wF^NOq)MzmN|)vv3I?U6iAIyFvo=}NExmiZ+GOa_)a@_O zJb^lyFN55Ks%Ti8QqAjbSj z>UQI9Y1d}&?hFa&jiFuWyR+TMONK(s_}=rd{sOn=0e=4bnFZSEXZ|o^im@v$5a2?g z7F9dq;-G-f`WxpYsgNTRESvm2IaoL5lf8~@TGAFeeiy7~dNJ^JvA!*iKS|zTx{Fup z3EF@Q5N;*v0BUQlMt|_1kFK%U%pMxe}8S&!VOPlIRzV z1NY}KWF8%nD*FNldYeD|*E}qPVvUjAnENkX`#-pS_Mvlr+m2x|G@|;SgpmI}R*Z#0 zvmlfxdurPcqeq4TLH9$TLnr=Gmpnw(Ix4GIO6!0^HBCy2n;HY@nTsu&mt?gt+HKxY z(`$BQU8wFLI4yH#9AeFa5?}?9TalUPDJt1lD@NczJ1iF7v-{JHYxC`LVR2&mSfSP6a*d!xj4JLhM z-nGURO_?B93j z*8e8fE&p+RE8)W5Dr?si7Jp@}@x#KQO5v3u8kWJM7urYEQJ@mR59v=+W|FD#{?PZ= zaEj|oA0i>RfRbOBiLinSM;L)N(OyR$2INp6T-eg8SZs9dIu72Zr0IXk!m_qDQ8de? z)VmH`ESSidtqVGZD<5^^3(as+p8%P(YMi4MC+x_{2jup%1+*JmU;r4pAV_%4 zSj}jB@)q)tQ_ekFahodJ(Ed%4`-yvX;L)?xFhgbjI$NWk9(2)GU`|K)=S@;&*kF)vFWL{*4sG6J&&CcdBk7u)jsD3Pg?fL0`G9DI!75-T+VHzOjf|R(81cRO zF)*|ApDs@4OjrmQ-5rHXIc9ZVy4%ZH8v ztRN}yMM(NzZNZzPipCC`qzBDIVR=@feOh=(N-I&n6?;)?@nDfeQb1;mP5 z4IznFS_FG%dR$Ol0xq;0n`&+H4J4=y@Ow7%UCP zPyQ!HZb$AW&WUA(0egHjz+oKF)JDMb_)&HyTzJyx!Xujdm)AEUKU?fw7JQTzNt_my z;t{)7yU1_WmwzXxY%*Q}snPp7>h-b-h1AbQ|9^kvMinIF=b)b58_@qz7s}!} z*;L1Apu8DJ-t!Jg9p5^hyVD>vL`fge7KACJWHFV%T>%$CJf(E70~cwgZ_J1VcX7ve z+c`CQX^$q`IR<^IBJVg}c9$&RgRS)QwFzRw!`MU2h(8vkte!x3D{zFX@=)Mk5wTlr zV9qt_vg`jj?pdYiI(r)Z5?n~U!baAVG6^nD(Cq?Sh~wY7ZRA**;00$O z+X%aSR!;~uAG!}7W_B>94l#tJFpYh!kjE;AbzSt1DxV`CkO=V~M+ z>DQnj!Z-L-x~2ST3IaU^7g4(hRcGi2f>k@MAVx@1rPOcThy7sCi|u~_3%JBIPy(_S zvYOU*(c?eUXtkFvLa4IdmqsJJ5Zj2>N`eaatjsaoe)Coe4*^h&>Ke+*V|+o%fWp8+ z(0TRl>DwGU(X{F2{$_tmf!%ZzdLai!3@8)U$MMS2)EYxK9Xm%U#2-UllDzj#kgE@R z6889#efrO;=rnAk=TA9wo@a%WR`; zaK@*W!vAvwd{q&BUkW_2xc^32N$`)(tYhk`*K?YA%iZ`M$7Li^x`9j_{E+t(^Ep&H zVhGwRirtz9Qf3H7spnLmK?evUfnB-guJpaXkVkxj&Jh5KhuKlQlrNZZvdM18Cnbi}lOJ3L?+ejWM8})J{TSyA zkrk}O{q80=DEcs zA_rhl##{V^^0A7IK|}EQtIq=~(*-ZSRn9|RnA%D1D-|f#_@j{v;~?UuaP}Y{t)rGU zrFZ;fm$0&eQ3Q9WfC_oAPVBehksxt;L$@Y4();R$*IO#7ZQ|5mFFycbp04>P(FG85 zZoBKUKbE zyc|yQD168G@5c3L5MV#AU;usL$)Jm_cX3Zr1jAX;1mpOBTk{CrLMrYJ>48|j%xO#W|5!&LwF|gDWr*Y*>i}5-mqJWD-V~C?T^|P1jF&+>7F=+ z+=5nlnR|8T3Z*Yyma<^gI!i-KFhghes642UzgA<6D}ICd6?}>1!3sb#9(dDQ&)A%N zQoJE4kpWp^F5P7?zud`cw`05W1!qj`KirZ_Z>DNVDqvsIH1)o#$u!u)PK&AHiZ zM<2iP*=hT2{Lm~j!ZGajY?)bEDkZ7OS%`VeqW@c@n@iK3e|dI&;{Ox>dGrq=4pdH~ zNz2i>&4kHx3$H8|W76=xU^on%X(bMH?8wi)$z@>ms^> z>4H|fZWNx-pC+<|Uv03a>Uhl=a>X|itm4V{&p#9F@MkbH9xO_(S04inC z?R|VT1-_G&;cGd)xw`m}Te}#CmqbVKhJ1-%7HuFOJ%=EX3Yrx6}gYKd?(J zj|qBH-+QJ%5?_lHn04dM-?92~Z9vH0BE1G}W^kC$atWVjnT zS(-qLkqH*;b1!an;h-}LFD192_B2l<|ABY%($%InPg^;czBcRMOA%Xjtm5I2#QE<& z|76*3GS>8FfFDifzyBU87XX|gT}=lYnjCHTrf+zOGAr5cdyqF|wM}vy0Ciw3wrfJ% z^h9Blz@wbre!R6+zlKsP$$^B8V`6PuM-T&T9O2p$6zQ0d9fiz438+HWAfrQ`@Q<$i zIKAH#x~+8TxM1q}E{ZBqOR`tnBk07zP|=u;auioMDqVP<-`dbsGwg;rUp2ZVz=3XM zXaGYX)3Sl;1UWRsU#j;B*D-*&mz<$Oz&Yi}3v>L%3Jl#b64wnS#3h%~jK2O4k0@<< zhfXdo0yx>k-A_G6gt+CQ+G6g^HFa_3C~;r6`O@NyHM5h})FO17z|?Lv3m$>ESAMbF z!O*G!auI?fWt@@B>KwWoC^@fYLnTs}wU8+uX$=4gXa}Y+=`4K(m>)NVd3qmweoDZH z*;Y8CCFKk7>@O$^HZUfb1&N}O5wx7w|2wMm>SJBg-ChHRM$m@w*#-wfo88AzMJ`Vn z%RI$09++LH!!8`vzU1$fl1^hMe+JKz16m_mm6d4shUtVEVHE3vOsQeAk1h0En&hYp zsz4{0{Oymu{uu{)@_<%=_5i(zL!uS>vRAE+9;tcoPRKkrN41bAb^wwrkfqFTslej$ zx7mnU^>EV_H8OeiB0dCyqc}qFTjz0nJ${q#KdZr1Bmtljdc|=5@msEv4N`7pO;_dy zk{%Jio>t|Jkiaub-jK@C^Hy96$(N!PpnX&?RYHelg$12~=LC#`$YcZF?0G80EHlfj zotOw-cq+rDWqd8CR_+!%#|-KlKB_BaC;t#77*MN9YVFvp?lNeoI1>EQ#aXBKgkw%7 z`sAc}o(83URWi2uXM)9yMtBIIqzTyX;N4|!Ce49Rn@r2HWOBDUaUAXf1t!EcD2vjl zL&@L+2TA(ES>q*bZfFsf1B!gC+>hy zWgj5fW+Dgi7$#Fi6BWKoAaStOvo$yQmNp=`y~govG--l&wqPezJjMWc*9 z9CT>izMs>==o`UimKpC}W@Xx}BuVu#51Bp&NQ})`ab3gM)1Ke6gA%@&i=T92F9G3Y z9c9gVQVluaJ0ph9KXlk2ih~t`8Hq~Ecx6^{FS?bjlt}q~4(UO7&N;34Joy;fOPPAS zsDdH%Ug^3ZM^Jq!cQa-~5ym`ZN5Y)pYdT7c6Mqd=-NFzCj)i~WWg9Ys(mLRBMlnPf zs&Sn;tmnWP2vZo6fijB2%%}Lh^RLT(Ssm!cpJ8iXhLFtVD3%}wJ9#lJoSd@xAe@R6 z`>CT<znd_SlMvz=YI6Mkb++X4L&8q#S$JfVOMtE06G?MIM1q;Qe1w$|np6OaRZd z^>^}%bd&s=xlz*rmWfp$b<)#d4>8a5?!ahdvDkRk;{L8w7+pKv<@L=NZ2a{7IX@- zqBf{UBpzgI%bdIaEs!xg^TKT2kd5AX{+rc%@iDJ;Xbi9gqQuB(EtEZ|{Z>9MVk?Q+ zf?YOI{U2R_Ae3X_i%Q*O-mVt-RZKG7-yIo*gB-*sN~Pj+3BywE;($NIevz~|3(F5a zZmd!zBA3TXY#MWc`dY80fJ6gJ%Q<5DR(m~r4Xzs*kisgjgI)wcn85bnwDS!^{6Fv^l`uN*zHPsr zP0-h&#zIQkR)N=p-}p6Xz!I~2wnd+m_oOX>G6&uMN?3ld;sY*cs3t~HAj}0+hjGDH z2B{XXl1kXM+HV#Ox5H1;I|(fCqHKFtK?QbX3>TC~+2*_JXXz0u(DZ>LB4CBqLKE>< zN4m%BVRsoOAcgdk7Qk)tkrnvp0Af_^aFzAos(&)H&W1Lfz&fd-Tx~S;oH{D=w&)LP z@e&7!*NqUGhw3T@^@A-aJN%ZtYElg$W&#@WZYq|j)IsB>y6Spp-sN8TRhR3j2(_03 zpxr)jZsz+wc?Zt|H3dK8!{@NYJ1aLMGNd-YDq_2@>Xf~bm#3Yo{$_t91BVN?;L$>W zqVGKYSlf(17gXqkvoZg1l^XqZzS(#Jr1Y-@K1xQI6kMN{h`DieH{!7rr;m@8L7c9b z404L-1FTP9;Uuq$`FPvdo_cV$;I!7c*>h4mJ~iC@+R!@J1V;#%XP(Vc;vg=Qg55v| zDH)p1s$O&{?CAA0KnY6n8Lu65&{}EN!6_0>!O*G08jNCe%1PCRnEyQ9822CrQJcW$ z(DS~}g!T!H%?0_21};SiC5hwruVv;1qVkhb?6hTu6YI}S?E(g=y(2(`O$Q&DZ>rC& z{zWA@`f(6JV?$q~_`2a737OQEYZ=__&byPG>x4&w5gb}V09=Vz(p@W<(2ap`|2$$s zZd=~4;)W}LrGK-#YD@T;*I#v(EUIyR(qu*Z8AuNw@QhmS@ZQo@f5m!R#2m4gUr1)< z*Fj}9Jn~L7kr+FNsAmo9nvpX~9|F-Ge_T5f4i>rn=N95@PN#oa8*3CU)w44vh`zq? zho*%3-t}Z_`bj>ej)I8cxBNI`RJlo%|0+FS z$oY5Vu?qm*N4#k-;9XUNZUjjFiB)zf$`x;Qo#>&32bIi&*tCWLft|}!z!pq$2w$`U z385~lhmJFbNu!;V=&6n8$${F9n?58wN#~-a`DWSYd<1b?Q)tf%W(NR#f?csjahp0r@PwVG*}`{r=1&twr8W~yaiF@G81vrRi` zdvkLN;g#%fqW2HB2M`pJ7if1HLi&HsY9{a)^gJy*Hyo*@fAjg2#>iT}S}!8TJ1S&< zJlPN8c1KDtr)grI@5VG+%`>m(UqH<7s?~^m7PuV^Cvqnc3t$G{WU^=7HlI8|(l%k8 zXyjC*%PKVMxTs*;j5e4SBJ{Vvt2%jyjmpVSc`I9~xT7&5xnVy*_5)0S|8yJICsgy% z^pk^Y;ebJHctV_{#R&VU=Ch*6Pm2k!(`XMP3K8g@PI~cLHG2)&lFr7Gp@4Hhd-|1B zHIjT4gmhd4_#ZqiTGgAs%og?LcY%<$&ej5IvT0sIbo;j@7{{nGXEnPJz|vjlrHU-p zGfp{4joF{)-J7K0HSXcAHZc_r$k!h6b$=NNt#^kJJ3{okTRXD(Emq!B0x(xH|+iz(5Q>O!Z==m z5$?(bpS@q@*j#!r9%qd_q^m6krT;ye0zY{qNB*5i5;{yg|6nZ|_qf4ZxtJMm32=S^ zLvhDET&%3a+cT9axw`ZC!fC9&6kHdpq0J;$Fsgg8#`L(GXioGTOajx6m^raVdV(>l zh~2FW(r|x*L=LA|p(zh6&XCAPSQNltM5}`=XkDQ2X)`l5bZ~PyWL(4tL=VLnCBVm$ zkNcRHUM56pXKcFK!zji=037&^8w#hI4paQttBbgY6pTzW`S@T#fr=>I4SXPnWA<6n zSeHbb$64}(C)VW@z0z7C>|7S}1b`&}DzvSjyYFtMj==Y@1fACOpQAO9=nsB48T2)B z4O8q@pIpY0C~dziap73dcI{b>W!}LBwcMAc0j$&ceywAwHR=dKPXtyTG{h;D70Jk( zt-cqA8#=}mOvI}oraz|`Tz(4NJ$?Uw8C|zvzN;HOOj~Da-)IxWy{n&1MaZUSoAJym zyVp_59T?`7Lih(6ShPxvDovyU(V4)&A3$(`0_g5WeCk(ud_aXD6cCyJBe2YMoOwkPKUhnXg+~%)|vlM4=i-sD+9~;lDF!%$gnNR^Yk!R0?4%sV+=9 zCP@qlWk9mvWv6~j+>)(0(5D1Nh8#&pm0LXATsgxFg;NSi9C!oc)KoZ`3;3WaH7v0#I$mt5p&|Q#XmNApnKf&`{2mo@`i*A+EZ}^*@aAX9I3$nFt{Fv& zE;&pBKIQj`xITE}M>jHLtK(L46IlSRLzySh7ln&*w+T6^I{^k*B9@m%kfT zy)&)Gn8}gA=7Fl?U7a`aE-_~ZbcU|C$%x%U#2`&B!Mh-X*Tsat4nW$of`DRRnyFyJ zr0`QLr`Ge1gf|Y?di5iYJya}27UGTGA6b&TwAyF${S!x^C!hl?zk*T4=cH54n`qOR zD)KiC6*;Z}%+J_rS;{jO61WuV9~+!mQ$KmqK+Lc6qEcAe>d->i*U?T;ho!HN`$CY= zY^I08?Nql*jPCHJZ(##pJ?Ek)dFLVOM#HXyp1ms77^6xQsKlSKTn;A$!vJ{{G^b;z zjXej<3H5ck*s*a015Z=Urf?bLO6ebogr`ge(1S0swF3VSK}~o|Yxqi%8vRf5WtQW4 z8Jy=HE6BW5;5?s!3?^VseGhaZG#~gh*3B`920XS%!43v|fzgf7+aUI2bj*S(K8qMi zUu%3&V1ugqvPXdD8u{%dzoZl!+gVA4HfI;&E|Ya)V+=aim$UO z5YYKvlJH{O65!$PP&SLOesoP{-7W|%FjSo{@flGQ|9x@*{1Pdmf6SE|P`85vH+D!j zs2ujc#59=G`IH(==^cFxg}e!MXoC-FQm+t1s)>;4FG8{ts%C-}7%>$LNX8ZyJs{$+ zvFEH5x?PHGd?*g8Z#C?Cd`QgMcRzA5>Go_DepUSL!=`8@8h%p)bs3(wkB!g7GY}gR zJfw4MytS=$X9?ZZmN69U^g=9IFM`lAaUkf0>m%k|x+8F}u=c9C+RtA<32*o}#={_y z8C2fJTs&t40rwQe@^Lz}tH-x+ww-=E{Kad!W(r6(ls)?t`TWm&VyQHPvdvx?vS<=W z*XS%ji6$F%{FBloWC<5+#8J@`NFpd-BzMsc)8m<6jtATe+`VO$>{oOl?|KeoB`KH` z57#!j$)fulfjY}!k{h@nF^`olLh@~(& zRomj~zC=V$EDHVmx>7r$)+T4?2V)K{-Qx>GW!_-U(!eTSv z*yZuUksR*on{h-|cUbmel|uNi$!i|K0-8b!``Or~4JYZHVCOp4LSc$av9s~BhU2Vz z&s$n3tA7f#q?C7_D_M(_l$`3P$AfJ_c9iJ^Qu!K}CH6>bv{{1xiFz`Ie&go<1B2%; zMafa6l5&&|n2Flz^gyr>`r9()0K*!tOV(ur58bKNzoaEAfYa5YV}s&mh8;s)LKijl zAOy*}H3yJCkJ8qu>tTWVHcmNz;)4@z9yy-6qZeJ|msK+=2Oe6&@HR8I&e{;;%TX|= zBi3QhCiw=ORqq)#4{w?Rd;$)d%`J+BcoSgdx1IXT2)VNgo5lVQ@Pw5Xk3nYI$&36F zmFZjdO}|+}e$dI5eT2ga#YYVz=>7X~TbW*|i!&e*6~BkDNY6*B^Dx|Fll?J@WXie= z{aGdZ{6{lbyi0GwLa#9XD|V~jArnN%lQ;9m%ly58n}3baeKK{j5l@|Mjj4`9f&i{T z>NhdA#ktYFaqa7KHf5b`dh4OQQ!xPmo+B+%cn&ohgP!p->fc<+$}+X`s6Ubs1iG`` zqn2-mR77s+C?fe@&c%B5{v`E45ShY1&KO_a@{m_7mTb&Zmv_+li-%`n2jNm_E<0t> zkX`<`akL!Dcc4TWc;SrwPfa~bjFloQo}b3NFjoJ6#CxpLLaxG#9hOVMoST8S0li&M z!M-aE<6lu*S6498M<+nRR$C*_&+<({#WXzXNcDT#l1OYJ_T*M{rqXvX-t;t#4zuN* z+D*BwZWQS{5XB)&UmkoFJgJ6(*QGDT7K4{V{0r2hOn=mowDX`OsED!kO`r+8$WF&0 z~WP(^hDQCGSm_c3Bf5JMIyHU>;0<8`-jeQ4=OI0ArOJLF31ejJ`hgh09 z1Q`LxdVymtBSDWyO8-Slh(C3SQ5pdW(se|2E`^}5BHwV8!$_dH6CVKLi6`wiNw(iT zF1!VlD4Ln{dvIeH?7}3+NjE;fk_!YAnKHd~m{VbVkQsd|CkKjiTlSm5N>y>Fn5)fY zT!~PEBy>Zn1n!YaULcJ0!H&*{d3AtUvs{)6|A4vDnpE-h)fsLif|4z`QD$%BZt&{&bteD4@ zrfC5{`~J|c^2^j~i-*mp!c_E}@D$5EqfmIm{))D5K%4(MF#PQMS`8<4qRA*)(lin% zJirW%@r+R_+ml$wWV3v?uKHhCD<0Gn7R@y`m&_N7mblX_1`{?PSHfQjf0aKfX{ zCnoy%5rcp9uJIs=UoC)_uYD%fr-N`s1ip+ah!4pOqlRIy%mQK7>6}ci^eWY^Et5q7 zECGFqh_K{hq$o0G5Cq>;U{~6NsFsnRskj>-PljR90n&zj0;KM5(>zV0SFXc9S>U_` z){&z)ov|htu=*UTN0T-gY4ah;9n!Lj_kTozy`$gkDs~tt#MNXC$oY6CddhNy;*-0k zz6s%VBb)j``EM9u6Lxu}E+xQ!kw3L_DVm#%->sTSxKU>aaHbhPv6-B^$P=xS0 zR@28|Z%myIfz6_m!9a$^S+{%>W+WjJ3nDmm0z+MTlVS_+bPr}F6(pE~v$J9NK_k1x zT~hWdz%V{vP;TV22x@uG?~y4oMHswew}UpB6)njPqgS4*;3oW`EWK#jz-h1#N5{(1 zb&rD9bVESH1ygLV`buM$QvSAfHLC7D_?)(weN*re%u(_Lco7#{BQ`At&lggKd`VEb zLp)V$s&2)!+3ND|drTWe-w)gy#D4++e*)1ayYxp1kFu6$$J3}YdU9hh^S5R+C!^MX zPYOBK*7Q~ucRJ?ZkvJ$vs5%=v)iCmwWwWIAzDX}JN{XdLT zxw5}BERF1*T>BZlhHbYoT&*_ox``yMvx_d&gEjKc1#<;N5&O6m&YORXoy&&!2g>P1 z4#RW=qYW*7x4dTt)mKaHvUSTqaz)v7)iPx1AG&0C>(~O68``@mi%YYuN8lfXOfrOg zLMugF1>Yjb)lBH2_MRRoRE8bW6CWVug9%a56E)OQ_8By4xR27dD;^Ii1|xdP7ez*W zxHHmSUkXIv08L$3f@u3Yz8yXe)S&O}d&5;Q_marJ3jt_Kvdr)4hr=nk@>$xdeuLl+ z(+Sy_*Ph1^+4t7Wplfg~c1;SXo-zO6=&Y@C8`jx!F6GqWKqINGliRdEr3@X?RBse}0qU%XC|U;peKA z^^OKo=*I@6+5c52J%Y8B3nJ zK|BMZPTBQ9PLCs#>iEFoXbzNZCFUFw*q{3r43#wx4v&O|-=|k7V8;~6sQ)B@>Avi9 zvBvG&V*a;U!>dLZQVKSFHAeam2a`s$=ONzXDXOe~@3|6f9M;+Tdj5ZrIu9p*y z^I6Q2>asjEIaVg5=g5`;)npdV04i4tDkF>fY+h?3C62EZMF@+pZg2qJtALg09D{o( ze5{w0PIY0V@Vrs+d&aapehLN8%0SnX3VQ}1lx2p zq=>AB?M4RLOHXlxL;9&&FkAQr)kon+`q7Gt`IShM?eQC4pk<}nr-qmK_6KnUeFLE3 zZjfj%$FP`d*aBk0uMp2$VlVP2I-#m7vV(9GUABFRjJ^7zOehR=^GA7(;5}-3gc`vl ztDs7wpbe<%9PPUXaT%4Y%r^o{yX+aoBCYJY7DJAJGrI$t_1=Uv>Wvf15dJ2!DH0mj zDL*uaiuu*Lk7rDx?G+g@#+25kD~Af~#pOptTFi3Kn>SnPM^(JEC$jjXDLT2do-pbd}x04)J>0b;WPv5B|-3!^3&uc~;gIja-cXGuij}#PKJ2OmIc+KMIAJylS`T z3YCJuqcwu;%=ZD{?tSg%>-c$PQO@A%|0B!JnJ8g_`EufQztHjkbB>1k-Ri2yBZUm9 znSw-4nDC%8XfVDf&VjcQms(Cvq=Myvi>6GjS&6{=CILav;}ykewhd)Y#L_2w<$h z_HKnRP^d+V^NxmPSFtq@Kc{aT6;(M9aGtM^;8<~?%7H{7wtXtcSS>lg%iEZ-UB1D* z)Y@yw-~WFJ@9yX$tQz>O%uvG-p^2fH?un0N5eZ~;|76%xyqFQJ=!0qr?^SBGAV%b( zU`RNBIciI!GBA#Zu0e>|mfCdB?tKt2ztC0lwN`H69(>EhkJHgy7$ZXi7WhmQ{riXc zh15Zg%vETzT%5hW;@l=mcaS4k1*X?m*Ks6q%lK>>p9gC`DnuP>Yhbpct@vI@UPP7I zUvM>6sL<{2V?Zd%RQK0glUnDM4+G7w%CoJIr5O|$~N=hKXn4i(Hjti^L|cb zXcO@#5dI5;1X%(5*GL(mwnGPwLwgfQ0FmEtlq--m$s<4bq=^7C^872`4`g8o{;L9@ z{ZHtxu%+Q)MBh0eTTf?&%|ip6I`e#|-7D*(rrYPQBXcdH{^1ctdQWM-c&cF*c} zW8$z`FqL=nfS%~QCBdQQx1N^H0}D{!8GqGMsqM86-5Mbpuw&&M>DuO};H|jm++c80 zI2_la4$1B_<~yf7b%I2xXVFOs(tR(W>)vmaTWQhQus8L{*jS$MV6a&ud=Af_ywE+?R+<$jkPeD%pSr76s)vN>V z%$+p>e5!)jt}UtR#s1}J{vig^SA?&lSx0!D$Vi_&X2hj)<}}LCt^_12r0n7ZpJa6N zqA1_Vw7JgF)h2NwXK&*A#MwXnl5L_bXQBfmNcEaMtCNgNG<_Rv=Yt!FH>XpIGKAJN znI{^l^OX$G$6n=%F6hiUfqdWr$rC~xXKKlMpF8D8#=8tzHP8+jj?xfW=7A;0lh%gD zxGo&abxlru*)frSB8R!irW31-*w{nrbeX{ggd;a=*Nxwpg znvVQ0UxaEM1cd6D45x(N+Xu)$(j`z6*ZAy6F8BrB{|LF0d;n`^RSuq|b(jqJmIR_Z z=}qo_GONQ>v#*nvRoG{H-zxm$Jy2<|jez-rjzAXq>+y=ARPM9(j=9jGEK9qk3sp&R zz19b3>oGfL4Sen&#x!kvw=fC6cCB|9EFSNTD2kYG#fr|1M}rbx7DVj)9%!W#zV-#= zgmbqaM79JGemx?@BrfnJflKc=6&DxPj-Y}1l(VV$%@)uy?NZDfMDd%=b2{tq(=iULUbv*ejsE%vwJ`p?SdUoR)LX{vF9 zr^Uf>d|1tdKhfXDL!#<^>LOf^cFzU1|zRMWIl$BYgu!-laOg^hEmR#5Ya z?ub5Yp4#4F{R?{11Mc;pd0UbElt*u^>^(TR;Rf)|?r_gUO!qEH$1|T7yTy*FpaZdr zJm-ZctNOb2jcK*h5QpJvcr@u|U#x!6WQ9B#;wmD5zP)e!u84F^zP;a@0WqnY!yP_@ zr4KGA4DuImCn^22!i}}utl<)99M>&`kx2Lz%U)pzZEQ90HET!ETuNc-Me$8K)S(4}f3csv)Q6!{6&B@NNB|>3f3ge< z_f)l$R2;}aPFH`ynWLEhL!=zCluZW3H9p|eIGmk-eCb)t|1+f92NV4MfRslpxx8*Y*7#>hFh)`XVtx|Sxe5M<7v1Jt3r zJnI-E+TI#8JqygJo7`Augs{!C>S80()Kv;NU4t6W~dDGXu}{a zA8!E7!U@}mK{|_;h1~VibQdFxST_iXHAQy-;ha_E3xuEoHL7hzIvhA2gJq$=(_tF0 z{Ao6NH(!Ly=>kc=?Y#*daSu+MKHyTKXBMi!H@%xs-~}Nghr4;bk(gtN@!8;aiqN9gyb9u;pOX*j4nY|CiyP;o~$3{O6xt7?2WQx^+h~j?B)jsX6 zX#2XI(nQp{zhmIlsVfBScpOBsgF?dsmS@Wv@x*1Ric1)RHaMLq5aR=FyiJXB+HA{QcFQjs@Qc7)(bjPr&g!hPInHm?{izOxh68|%8zN)YkWx`O@t`>k?Ng`PwX7+m}ieE2a?xGd3q#` ze49K@tn=P}>dsj9TV^5pU#k6FuQ5y3BbSC)7}n&Ke+aoB#-Z^?|9@*L5u__z>Np=P zV$7d8u1Wj`Fj&W}VAmFr{(ead>Qul$8Q1lLS)-8SEedU#k0 zLompTIaj0WHxEU; zeJSF6de8-BOLvGvF~#4s^`TQX@RUTphSFNke5$)F>7jUjG}2n%lkVmD76ku)pQ1_J zY_rpg3~${4lJ0)@tXqCM%%-xMcw`Gwk_pXn55K~8^#63Z^j^m;CJLdbY*pWhlcJN} z-07ZFo6QQU^tKYk!$4M1vmMuo3>ag(NQ@KpoKqYGp|8 zTZ4D#b}|*bw1@im<me-A{Uc}^U{n_Y9;TOC=adv5ZcZud-zE(Du4<@R@+C;W*}3W}r? zboXU{u$79qpBQZ{#FC4hS=4IPW{_Sf>ffs zLi_5;<9aK|3o4SKO4oI8{S332g63#htU!=XZa88kZRQu`Qzknu3*{cQ z4)RN|sjpfiTVSV8Pp(n_UmcclzY!!kVySi%$EaIYwqPCGpY`mr5>~h3fA){O=PV{! z21m=W-HmGk`5u8DHr?Se@O<^*3h$WGuiR?^nKqc#k8LY-G4;+?9N_NfCv`thD3qor~^NL9nXg6>XZYJC11 z=gXT1@<5pNg}7eteSNjgGDRroqSNaJAn?p3?P2}s^@j(xY96-Bk*{{MY<|9>4VCwz=lhYTIy9Eh1wMS)f( z6eRn3W;mEunX?jp7()>!_q0C9Ec0n>M;82N9=|nj)(Wz-FcQfS>6o-H`OWIXH7uN@ zV6Noxeco=$6l$g=U%v+|U&x`+U(mi%l#s*#?q;slqJP8Ahj1770q}u8|9@F|?#ps5AFL{pb*@;~9Q zSO0(ie*>6|_nfrMx37L8_8nIuoHC3NH0XE|K@bVcJR$s>9^4dZV5cp;N)YTn4na-s zpw`qRrVG97e76D;^Xxa_+6OJ8Yvz)DtmfDdcy+h76k|$Vatr^ zwf}$i)3T}JR6R|s7xtep1Kv#N1TQI)6nG9U7E+~~H=;Th*t^SVW_lKL%6K0=&f0>A#QHzl0+CH9a^=!=trWYQTNKiz>#`p>2M5g3!3GIY!mm!(UD7xsU0M5h< zT=7DlKpl@#rDK*btEL-^*M-ADmNs~;R!8Yahwwj`H?`11OXKwAY8G#=+Z4cAHc8u# zA;PD*t6E|{pzfK0?lps#%2S&W(6`*FK~VLT|9NCGk_Al`fN4dO@KqLASIxL zX3>cPZ(rLQEn!k`o99fSL?dH9EVv^4u3dHhMIix=Rzw~`(E;E53plL)m^9Pi@h3x- zt82Un{<*(o05Yfh~Jj$6Ot-1_&LsD}~cLq&N8o%0h#37@X?dtT+c7^^^rL5WJ_7yh*tSzt? zzlSp5Hh@`x3pwZ&{$xhiWu8mC`W{L;=6WH?Z^OcRQSNphd!*M_oG)~`M($pB;f-c% z58Ba*LyGQTa;s2J1q6l(A_X8!h4+cO{vCkZ9DI=jB>wKUbtwi@N1@`83g#`ZBsP)( zypV+ze3K2N+Rd4C2=`DQn$#tMmkn<7%TdM?)b$2@GAQate=9BbMd~JlMCO=Q2MyY| zYq^7%+4pl2Oe2ez2$fmgpHC{&31JYQhTL4y-T#6RG?3nCUIrbF~*9EeaCw=yI{#OK(;Zv zA;so64&MD;)?E(X?Gv_^{|p`OeH(6drl@-biq-n?-*n1y^>1K}+N5AOiu2CP?`21M z#4xyM>PuZjH}pyI^$uP(5zkmwO|m}w5T*r1=ehf9N(#=^23*nrBl3`2+E^9fm6OYY z?x&8du%RrB2*Me?7lH0mt-%LrW`Qiz>arEVQ-b}T3jY8vuvKhEbxe_|RIcXgx*<7H) z#^M9vtxJ<$6Hi$B(Ns@Gy)_KBa+_3uZH}&B{w?HQ!}D-T-_bdi`=bd)?L!vH*aDJ~ z`V4F;ds#IGqvR{A*m&~N>pffY)yqDt3Pzz0hb|o+ItBIThW+(4YWc7Jj$B#Bj}Hl9 zK%B=9JqqE8tl`?ZrZ_d+-?1v&R)!xOlY@ZjCWsE2LE+c+sCYz~ zdufy-zGZX8=F0^rh?Emv^MR_{-Kj%;L+^~eSt3s{6L*LTtcjBlzFzC$4sYc@)&P67 zUK6|>pSU9szxhp_O1ipf%pT_HQxg#_^{9#Rt}G)fv85xhV%lf^PhlGCEDl2j!~LdR z5OFXeCbSauaVqQ*78=vP->;1gh>w|{8nm~NbtfwyBxmT6s(rwo3ks zCTzm-iM?Dd!&E}@jAb48r1!yJ4xHt-TB7F>PoMWQ4`4`2c3+`yal}H@8t8CMpOilK zbplHZ`6tbFuj^_2L)EA>MD45zY`C*?p@S&H@qCKN zp-V-sA2P2L^?8OP);K&<)}I7M%|vU9r%&FYy&5`SrSZjj?VEe+i1g!yF5?-b(UZl(>JK2<1lS( zi+$Qb5bm)Sv<@4-#zqvN)CUE`%DGU9Uvhs@2P_Ypqu<7#qc$nf+GltUhcWagux6bY zlcY8BvWV#MJVHo0zQwlpcgl`{V1K*j?s&<(5cnXXOX`zAhleB&3l&lA8K;#Sz1s1& z^T7utxuDQ!$?-V#nyS{zSL;|}MgKJfWI9Jv6w|^gDpek9!MK?LE`*v+AVm;lgP-=s zxWCtar`MwZI$zw?j;LJ9NVX!Z2W*az;i$DXjRm`sKiT;&O3M9{W#T>_fV8;HJ%o2V;(A&blG06!-Uh}M9 zj>^-f912j>Poa4DV)s&Il44er<`r5USkNmaCx-^^v->$$%;LOQU|vWS8pWfJEceI4 zGz~FarQnN(ye2=AU@V9L&qdhVEW3k#xzZv(b}NAL*E7Dz&j2KOzWgiSh9X$ zMnF%b7;zHNZr9?3EixrDl%1O=4odlyG zNt`*6*FqhPIJtA<4+kmO*vpmB;%HH67}>4HdVR@JK$&Wo`gYGyM2BnZRe<`0c4Ltt z;OQp9uLf6>BRC)gg9i)7b7VBN>T*;1Kump2b5%G6Fb*7F+ z9(#(y-_ZXpeW&fa37mf_AE>~;OAriX3Aigh!p~mRGPF)M60R*;fG!CP_u2JVKOfC& zOO>7&@FxPzc0Ju4Yi;4axNnx$ZG81kl&SOGxz6ISsg}6(j38Av2>c1)j>u$%UW=SW zmbG;ygT+7o&T-mJ4Y5OiCA7<98x@X~V%Y~GA8^(4oh=HcA4WDm07@K$L3*um_eRz~ zLj9K&`Npxkc)iJl*Zte^b*;wZ6(;+sjysf(55gL^lA&?W=)z)>8#}KmFn6-fz=8IQ{JCqDtmyH z5)!|E`ZUI7qV|+1x#V~PkzYq%+=~{b#Mt{C4A}yk7jRP6W7j!~a#Ee%@5}PxqLL!0 z8#oBfeDxfVgtuej{>-x@?7_A1Ab3%W?L269o@UgnG27tybW3{2_EiHJZC&<#K{jJ3 zU+wm_-N*TEtaWGdX-^C_8?;M}(bL6NC#5<3kDPO8`q3}x6-PAHIKU>kpB?+q=b_!v zN!af1(RVait7*xi`vN;amc-VsFSju%44r$2jiv{o8q_uD>4*s z)eE@ikd0vO%UfNudWC8KM-aBV#94_(|ZDQ8?kS zk(hX;XoF=G{~+NEMdzt9O{2xr8zdoP(D}-*>ShSJnzuh%NV1d+IMraU80cTB+wRZ; z5OEO3AZcua?UB%M8Rlh1xO2>NEbQp(m zG3z~sVzp>>TNCMBUM`@sH{pzK01@Wrpf3PkgdF}kW{@Q4$L7!KR^9}vB#Q#Xbum=rY!wRxXivJ2vV%?gmg%Nf!I5%vvF*K>S z!|=z)Pz|ZSC8_ylqFPM(pM?k~_W6IRXRM~P)wH#NY*<6?DWmT}aQeL+zYQ(~tTU<% zOMQg$6f$r#MPsUye08FZJ!fbnR=p1Asx8@9J|>6}M~xv^iOTf9gbB+87o@o&^b7di znUZgQy6~du%l0X8A0-KnRH|{kpgJZ>QUF8Vp~UD`7~<3ae*8SLg~wRrBsT~f@7*L- zEYad_ig^^LI-!;n2@EuB1W!a+e>M=fc&Z|N^q3-OZW_P&d0*qhI0SxQo$V+!{>RKU zn-XHuks_*fCqs8FID)+cfwHS0Ypq+N&iVl)`%Mc-0pPOV$BzsMig`M>*-=iYP6V(g zw905MpL)zjf}G@A`&|d$UnXrOa|lu))P`ka5ZgzN?tbWE=+XNQkLX_cx(c`qX?y7r zzn@S6)%okj>!JHC_@Q6wjrx`JFbpuzY8FR;W3@r@v&!jhzQ7&mHY~8*Yk;Q* zsLcu|A6!4MFp&Kvz|iRt(ajEV+R2|y2&ScMrKu>ennACCj)AzJ{lLX-{O#UTZ|s#E zobA(yGEKd4{7^C=+1j<_P~dg<;qy?p#{`X|PxmuGqBM&y%sN$U=RuucVkbfZOCXOF zVU7VIYrEgVR!v2(4Kxn_c1cF-hhMFzi*Kqdb3Wk+O@IO508R+m>W|YDQU7Cy%dNVl zVo}A-rK43HJ@SqUD#mV}Q%`d|m`nhuM~@L~c}N^1G&pC0TTWqcjaPlq>P@D0io)IQ z{|^;Ni*|e~TvHLoCc~f5I9tIq#q2}2i8PF4B@y(=;KMxJvvc^SDf~$}Atx_dzYP87 zH;7H~l!S_mShA&hfKz}Tzde?!IUu2v&9WtEs@A9hO}ok+u`6af15A$hV6^_MQ+qS2=%C zS7R!8H@xl3ibk2HEPa4E`5uhrT0>Z_E`onXbq%|i(uqAPzYJtlQ8G`0Pxs!IuAMO$Lw*q6HEFfCkB^3y72uHDs+5pX~x4W#`V zzE1+?3Q%OF^w41D+bZw6g>!D-!iylJKuoD5mcmy2sX~6grxY3)>4)9H3|{^bC6?D& zX6JpV=T+vz3=Z^WI~bsy1*-yWs+x0X$T!k%JxLzn2yAB~3F}t(+GQ>_U%dtwX`q%P z267@SB#bIkvrW9sC_($GAfB6=^7EfoiS0HpZ3$gl>vAZNqD9;~kv_U?h-8!!n zubRUU?O~9Ms*QiET%#CuF-xB?W`qXbJflpwBhJXw*{yezbo)8nv~G}wUFG|l7;b=J z&sUg?UhwH2Cf!q@K1tT@PYcnu(to^YP$2f|mO>&lleEZ)^5zCjZ?}3L_8+5$91Xy= z-eb~eBWNaytz*JxfAz|zK#R{%1kXO-tAP9Fd8bDv1&AcL+jnk!?2?z+GswE0RTyK_ zoo)R&cV~k%2S5KuoBSirxK8keL-cKnH{r*e?Q0w(fNU{d0Ot<$$fCD#sk?CF#Bj(D zEMox_xJL9fRaK3y5^^#aY`#jz#rJi9odaY!2|Q}E=%eCOXYbMEQA36`cV^!nRt4hY z>%c*fCJ%b%OfC1`-!ayYF-lE9%$Fc)hcOz_m7-=$WW@|*>sTo?5p9(qJ!p64pkB$d zSZCXS0p;$DiRZhA#n>|6BX}{eh|!7I;vkRz#$8c@xZUN@Y|9}1LMmm4AMwnZjzB?h8EtAdUFuWm7lK69g)ozr-i`WQqGKe!i z;|z+Ps+Va?joKPqEJqjk&9_CvkpTi^9$t-IS|X;-uj}wweJRp-x!U|X@LSnq7sYvafPcR zXOsC&1nIPTo!5NBXwWDhjwk20s*y-tU|8{x{z|@li9=QaH7#aH;CcF?ayPP6{O#z~ zKae6moG4qU9&3CMIZt~rxS&>yER>aY#N(f^vbH^X+Eoq@pMIb80C#RNn+aG!z&tPy z7r(Kj(kpY6t}9|b<{5KT^bck+qo36dW_9>bfYf;;d@}5cDk4t@=7Br+zWu}3*e7<+s(BQj2$fp`GImZ1yFGMw4KHK|81u8GKgQp zcZe42*rlwz14@fLHU}$tIkVVjOcVs$|4~fc9GAghN`-5cICusjYq~rX`J3U0tx;*tiJoQQ0N~^XT&;q;)HO7Jt{^hU5;y%Wmg-p!Qw51q-Yt zw-SA*+>TW1M?4OH(8%M6d$=%IiH#VE@vfVMJ4S9YdG8{o5(rSUr`9HMUQTGg__!-` zyFDQ%H+suJi#&BlZRLC0R$bf5Gdnkxia?i&DVTaKARlZKG)@7yA1=EoLu!0ME>t9t z&dHyR$8)F~r$=2S&{4-NC!Dh^yWhm6qRyC_vU!U&mivL3S6Hs?$6&q>e0&a& z)1R{=SPD^NkNFRWdB%@rwphTc0@E5) zi1g`)J2UhZ0M8+ze{rnd?BMXrvj@j_9g`X&QiU#bVC#dDG!YG7$Q6TyU1YvQX>+#> zb>r|IkZ6kn`CvVu!v>ro16r85HSIw$AJucF?PGd?&oZ<`Mn^^A0^CurIF~Y${{L{x zN%Y}Bw$xpCRqj1H2DFocr^17wrbn_Oj&Q`8atNCT|5tZ1OBYcAhbSOhJz_{E*ZAhC z2ibVh!8o0^35NrM_n{a4y{$abdE=cFgY)x2p%S}H?3M#x^pHXl1yYrWV9d_wE6bjG zQ~mg6W=S8)^~6>(_M6vC??_%wRT^@s=~?llB318hccelkPyk)!^!NVOP6;Z-kJN0T+s}mvIM&ca5ZYak`fp zcrxXseR4JQYj}|zS4UHeB-}(3FXb&!^cU4=ORA!mW;k`5vIM>yArgDgH3%PC;_Zsd z5QyDwX%do0uqFI3Xg>xl)Bc6ydsU{qnlpCr6K}CZZ4W5*c{3|9dQYywH>WbjB^0Nb zX$l>$aO@r)DvC)iOMY}6bu8J@IkPSm<3SWqHIYW?({ICe-%dT- zZ*g3ZfsR=aA)1YPyOS*tpxL=obfjDAx%`qO9KNQlIqqPF!Pm9>g%;=ItP%vPFCx0c z$-!||nr=uSECD z(Bzrc4opSiB0kNZF1Qp9Mvt8L2pUMw#O9JDAAPBuO5_P?xshbY*iH9CX~T-0h~qas zOAq?{(e7H`V#IIE&c8l0E}{vo1~ekTZB>%AY$fXg-Su>Hv1QW_k*xsCUPV6uzYD9w z9j|8-fbyxFkp4c#yrY=?uZdI!tsg#Qb>%9y7|4qy#c0?t1EsswwbI{J^m&oum)E{GK+_kc~stxTsO=V-l~z@ zISQKB$1w6(0Hyqt(FS|D(QveK1tTLi<)3jY zddU;%n*ypFo$mdmsTMdVw#?8SA}zNBIb&xf`nh97ClB@chAoA$O)Igr)r?PQo`uYH zDN>Frh~dd@zYZiCknf}h48K1cN4m?o6zvyxx?96OFY#dYEE$fs>R~fK=2^|a`O;)- z=Owmeixitu>@DUw8w;z;1A$qsWH?>|11*OM8sy=LLF?(r^zF80^%xHu&C18!&n&3| zo+~%mPGWM$0J_V_5{CGU&R73bQC#b5`mh}ZqAu5I%&*I6@n@05ot2(%#R?`dkm81< z3JX5|rFKr0JoI$MP*D2ClXz$Z2LEhtK#b}zGD!$_-`c5flrQLlr`4_xilXhdq~0`H3E-*+x?h^j3_)4 zMNvamsa_yM$`HQr(u7PazA?Q=4p=IFA1*}fhb0@P}hM z8Oj7o9HcMFc)Z*{PEu3oXd=*00_Hf0SIQj;F}B=ke)5Y6wv^ zwK8nDVxoSkC%Q7eH^?jx{U(vDRDh~5t{~LukixaKb{XefFZGuH;TrFQ#%;I!$s^QO_4An#D87M%vHi=9%ygUHrD%k~9 za=il`3YubToLbqb5qNa+qjInZnyV|`%Bx1V4L#$L&g{-(z#6ay+{L!;0{1+lb7at~ z`u2KRcrLsfptNnnm1{0Z1TW>0)f6Tl4hwUS-R&u_i7`CXfyi%F7p?5x7KJm_dlYbN zADnj{H5arHrk!4z!*^APg8zDEoEWzuhOw8QtR4s}Vv@W+i%~`}6`AW|sjqQM4yOZN zy5X9#87K=R>gSOboY~K}nGLaZPCu#D3aE>S6Bm4Me!5-&;;zi5K~m<-YF6>?G3Zb9ZmPG#w40}YjO!HJx@UeqF zXsk!*Pa_!>LITR*^)G?0877aTB9`-Lc>GKI!KQFm>sFm%a^d)fC1_|IN|5IdZ-e