WORK IN PROGRESS - Update convective transportable tracer handling for GFDL-MP

README.md

@@ -5,16 +5,24 @@ The Common Community Physics Package (CCPP) is designed to facilitate the implem
 Please see more information about the CCPP at the locations below.
 
 - [CCPP website hosted by the Developmental Testbed Center (DTC)](https://dtcenter.org/ccpp)
-- [CCPP public release information](https://dtcenter.org/community-code/common-community-physics-package-ccpp/ccpp-scm-version-4-0)
-- [CCPP Technical Documentation](https://ccpp-techdoc.readthedocs.io/en/latest/)
-- [CCPP Scientific Documentation](https://dtcenter.org/GMTB/v4.0/sci_doc/)
-- [CCPP Physics GutHub wiki](https://github.com/NCAR/ccpp-physics/wiki)
+- [CCPP public release information](https://dtcenter.org/community-code/common-community-physics-package-ccpp/download)
+- [CCPP Technical Documentation](https://ccpp-techdoc.readthedocs.io/en/latest)
+- [CCPP Scientific Documentation](https://dtcenter.ucar.edu/GMTB/v5.0.0/sci_doc)
+- [CCPP Physics GitHub wiki](https://github.com/NCAR/ccpp-physics/wiki)
 - [CCPP Framework GitHub wiki](https://github.com/NCAR/ccpp-framework/wiki)
 
-For the use of CCPP with its Single Column Model, see the [Single Column Model User's Guide](https://dtcenter.org/GMTB/v4.0/scm-ccpp-guide-v4.0.pdf).
+For the use of CCPP with its Single Column Model, see the [Single Column Model User's Guide](http://dtcenter.org/sites/default/files/paragraph/scm-ccpp-guide-v5.0.0.pdf).
 
-For the use of CCPP with NOAA's Unified Forecast System (UFS), see the [UFS Medium-Range Application User's Guide](https://ufs-mrweather-app.readthedocs.io/en/latest/) and the [UFS Weather Model User's Guide](https://ufs-weather-model.readthedocs.io/en/latest/).
+For the use of CCPP with NOAA's Unified Forecast System (UFS), see the [UFS Medium-Range Application User's Guide](https://ufs-mrweather-app.readthedocs.io/en/latest), the [UFS Short-Range Application User's Guide](https://ufs-srweather-app.readthedocs.io/en/latest) and the [UFS Weather Model User's Guide](https://ufs-weather-model.readthedocs.io/en/latest).
+
+Questions can be directed to the [CCPP User Support Forum](https://dtcenter.org/forum/ccpp-user-support) or posted in the [CCPP Physics GitHub discussions](https://github.com/NCAR/ccpp-physics/discussions) or [CCPP Framework GitHub discussions](https://github.com/NCAR/ccpp-framework/discussions). When using the CCPP with NOAA's UFS, questions can be posted in the [UFS Weather Model](https://forums.ufscommunity.org/forum/ufs-weather-model) section of the [UFS Forum](https://forums.ufscommunity.org).
+
+## Corresponding CCPP Standard Names dictionary
+
+This revision of the CCPP physics library is compliant with [version 0.1.1 of the CCPP Standard Names dictionary](https://github.com/ESCOMP/CCPPStandardNames/releases/tag/v0.1.1).
+
+## Licensing
 
 The Apache license will be in effect unless superseded by an existing license in specific files.
 
-Questions can be directed to the [CCPP Help Desk](mailto:[email protected]). When using the CCPP with NOAA's UFS, questions can be posted in the [UFS Weather Model](https://forums.ufscommunity.org/forum/ufs-weather-model) section of the [UFS Forum](https://forums.ufscommunity.org/)
+### Last updated by Dom Heinzeller, 11/04/2021

physics/GFS_suite_interstitial.F90

@@ -646,9 +646,7 @@ subroutine GFS_suite_interstitial_3_run (im, levs, nn, cscnv,       &
             clw(i,k,1) = gq0(i,k,ntcw)
           enddo
         enddo
-      elseif (imp_physics == imp_physics_gfdl) then
-        clw(1:im,:,1) = gq0(1:im,:,ntcw)
-      elseif (imp_physics == imp_physics_thompson) then
+      elseif (imp_physics == imp_physics_thompson .or. imp_physics == imp_physics_gfdl) then
         do k=1,levs
           do i=1,im
             clw(i,k,1)    = gq0(i,k,ntiw)                    ! ice
@@ -774,9 +772,8 @@ subroutine GFS_suite_interstitial_4_run (im, levs, ltaerosol, tracers_total, ntr
             endif
          endif
          if(ntcw>0) then
-            if (imp_physics == imp_physics_zhao_carr     .or. &
-                 imp_physics == imp_physics_zhao_carr_pdf .or. &
-                 imp_physics == imp_physics_gfdl) then
+            if (imp_physics == imp_physics_zhao_carr .or. &
+                imp_physics == imp_physics_zhao_carr_pdf) then
                idtend=dtidx(100+ntcw,index_of_process_conv_trans)
                if(idtend>=1) then
                   dtend(:,:,idtend) = dtend(:,:,idtend) + clw(:,:,1)+clw(:,:,2) - gq0(:,:,ntcw)
@@ -828,9 +825,8 @@ subroutine GFS_suite_interstitial_4_run (im, levs, ltaerosol, tracers_total, ntr
       if (ntcw > 0) then
 
 !  for microphysics
-        if (imp_physics == imp_physics_zhao_carr     .or. &
-            imp_physics == imp_physics_zhao_carr_pdf .or. &
-            imp_physics == imp_physics_gfdl) then
+        if (imp_physics == imp_physics_zhao_carr .or. &
+            imp_physics == imp_physics_zhao_carr_pdf) then
            gq0(1:im,:,ntcw) = clw(1:im,:,1) + clw(1:im,:,2)
 
         elseif (ntiw > 0) then
@@ -841,7 +837,7 @@ subroutine GFS_suite_interstitial_4_run (im, levs, ltaerosol, tracers_total, ntr
             enddo
           enddo
 
-          if (imp_physics == imp_physics_thompson .and. (ntlnc>0 .or. ntinc>0)) then
+          thompson_only: if (imp_physics == imp_physics_thompson .and. (ntlnc>0 .or. ntinc>0)) then
             if_convert_dry_rho: if (convert_dry_rho) then
               do k=1,levs
                 do i=1,im
@@ -901,7 +897,7 @@ subroutine GFS_suite_interstitial_4_run (im, levs, ltaerosol, tracers_total, ntr
                 dtend(:,:,idtend) = dtend(:,:,idtend) + gq0(:,:,ntinc) - save_inc
               endif
             endif
-          endif
+          endif thompson_only
 
         else
           do k=1,levs