UPP refactor phase 2 from Jesse Meng (#224)

* 20200820 Jesse Meng refactor branch of remove goto remove grib1 * 20200901 Jesse Meng remove redundant LAI output in SURFCE.f * 20200901 Jesse Meng continue merging refactor to develop * 20200911 Jesse Meng add precisions to selected variables * 20200911 Jesse Meng revert the precision changes * 20200924 Jesse Meng update with EMC_post/develop * 20201105 Jesse Meng merge with NOAA-EMC/EMC_post PR#196 eed90f5 * 20201105 Jesse Meng sync with EMC_POST/develop * 20201106 Jesse Meng add module UPP_MATH * 20201113 Jesse Meng add UPP_MATH and UPP_PHYSICS modules and updated with #219 * 20201113 Jesse Meng updated CMakeLists.txt with EMC_post/develop * 20201113 Jesse Meng fix sorc/ncep_post.fd/CMakeLists.txt for added/removed files * 20201130 Jesse Meng update modules, move GRIDAVG.f inside module UPP_MATH * 20201215 Jesse Meng fix EXCH() options in CALVOR and UPP_MATH * 20201215 Jesse Meng merge with EMC_post/develop * 20201215 Jesse Meng minor clean up as suggested by reviewers * 20201218 Jesse Meng revised RH unification fv3, fv3r, nmmb, use CALRH_NAM hrrr, rap, use CALRH_GSD * 20201222 Jesse Meng convert UPP_MATH UPP_PHYSICS docblocks to doxygen format * 20201223 Jesse Meng minor revision style tweaking * 20201223 Jesse Meng fix redundance which costs nmmb runtime Co-authored-by: wx22mj <[email protected]> Co-authored-by: wx22mj <[email protected]> Co-authored-by: wx22mj <[email protected]> Co-authored-by: wx22mj <[email protected]> Co-authored-by: wx22mj <[email protected]> Co-authored-by: wx22mj <[email protected]> Co-authored-by: wx22mj <[email protected]>
NOAA-EMC · Dec 29, 2020 · 29341ff · 29341ff
1 parent 194d4a1
commit 29341ff
Show file tree

Hide file tree

Showing 39 changed files with 2,029 additions and 1,814 deletions.
diff --git a/sorc/ncep_post.fd/ALLOCATE_ALL.f b/sorc/ncep_post.fd/ALLOCATE_ALL.f
@@ -14,6 +14,7 @@
 !!                        SU diagnostic fields
 !! -  19-07-24  Li(Kate) Zhang - Merge and update NGAC UPP for FV3-Chem
 !! -  19-11-23  Wen Meng - Add sea ice skin T
+!! -  20-11-06  Jesse Meng - Add UPP_MATH module variables
 !!
 !!   OUTPUT FILES:
 !!   - STDOUT  - RUN TIME STANDARD OUT.
@@ -30,6 +31,7 @@ SUBROUTINE ALLOCATE_ALL()
       use vrbls2d
       use soil
       use masks
+      use upp_math, only: ddvdx, ddudy, uuavg
 !
       !use params_mod
       use ctlblk_mod
@@ -533,5 +535,9 @@ SUBROUTINE ALLOCATE_ALL()
       allocate(acswupt(im,jsta_2l:jend_2u))
       allocate(swdnt(im,jsta_2l:jend_2u))
       allocate(acswdnt(im,jsta_2l:jend_2u))
+! 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))
 ! 
       end
diff --git a/sorc/ncep_post.fd/BNDLYR.f b/sorc/ncep_post.fd/BNDLYR.f
@@ -30,6 +30,7 @@
 !!   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
 !!     
 !!     USAGE:    CALL BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND,
 !!                            WBND,OMGBND,PWTBND,QCNVBND)
@@ -74,12 +75,12 @@ SUBROUTINE BNDLYR(PBND,TBND,QBND,RHBND,UBND,VBND,       &
                             jsta_m, jend_m, im, nbnd
       use physcons_post,   only: con_rd, con_rv, con_eps, con_epsm1
       use gridspec_mod, only: gridtype
+      use upp_physics, only: FPVSNEW
 !
       implicit none
 !
 !     DECLARE VARIABLES.
 !
-      real,external :: FPVSNEW
       real,PARAMETER :: DPBND=30.E2
       integer, dimension(IM,jsta:jend,NBND),intent(inout) :: LVLBND
       real,    dimension(IM,jsta:jend,NBND),intent(inout) :: PBND,TBND,  &