Feature/capgen ng

.gitmodules

@@ -4,8 +4,10 @@
   branch = main
 [submodule "physics/MP/TEMPO/TEMPO"]
   path = physics/MP/TEMPO/TEMPO
-  url = https://github.com/NCAR/TEMPO
-  branch = main
+  #url = https://github.com/NCAR/TEMPO
+  #branch = main
+  url = https://github.com/climbfuji/TEMPO
+  branch = feature/capgen-ng
 [submodule "physics/SFC_Layer/MYNN/MYNN"]
   path = physics/SFC_Layer/MYNN/MYNN
   url = https://github.com/NCAR/MYNN-SFC

physics/CONV/C3/cu_c3_driver.meta

@@ -288,6 +288,7 @@
   units = none
   dimensions = ()
   type = real
+  kind = kind_phys
   intent = in
 [phil]
   standard_name = geopotential

physics/CONV/Grell_Freitas/cu_gf_driver.meta

@@ -579,7 +579,6 @@
   type = real
   kind = kind_phys
   intent = in
-  optional = True
 [do_mynnedmf]
   standard_name = flag_for_mellor_yamada_nakanishi_niino_pbl_scheme
   long_name = flag to activate MYNN-EDMF

physics/CONV/SAMF/samfdeepcnv.meta

@@ -517,6 +517,7 @@
   units = none
   dimensions = ()
   type = real
+  kind = kind_phys
   intent = in
 [maxMF]
   standard_name = maximum_mass_flux

physics/CONV/SAMF/samfshalcnv.meta

@@ -549,6 +549,7 @@
   units = none
   dimensions = ()
   type = real
+  kind = kind_phys
   intent = in
 [cat_adj_shal]
   standard_name = adjustment_for_convective_advection_time_for_shallow

physics/GWD/cires_ugwp.F90

@@ -16,7 +16,7 @@ module cires_ugwp
 
     use machine, only: kind_phys
 
-    use cires_ugwpv0_module, only: knob_ugwp_version, cires_ugwpv0_mod_init, cires_ugwpv0_mod_finalize
+    use cires_ugwpv0_module, only: knob_ugwp_version, cires_ugwpv0_mod_init, cires_ugwpv0_mod_final
     use ugwp_driver_v0
     use gwdps, only: gwdps_run
     use cires_ugwp_triggers
@@ -25,7 +25,7 @@ module cires_ugwp
 
     private
 
-    public cires_ugwp_init, cires_ugwp_run, cires_ugwp_finalize
+    public cires_ugwp_init, cires_ugwp_run, cires_ugwp_final
 
     logical :: is_initialized = .False.
 
@@ -103,16 +103,16 @@ subroutine cires_ugwp_init (me, master, nlunit, input_nml_file, logunit, &
     end subroutine cires_ugwp_init
 
 ! -----------------------------------------------------------------------
-! finalize of cires_ugwp   (_finalize)
+! finalize of cires_ugwp   (_final)
 ! -----------------------------------------------------------------------
 
 !> The subroutine finalizes the CIRES UGWP
 #if 0
-!> \section arg_table_cires_ugwp_finalize Argument Table
-!! \htmlinclude cires_ugwp_finalize.html
+!> \section arg_table_cires_ugwp_final Argument Table
+!! \htmlinclude cires_ugwp_final.html
 !!
 #endif
-    subroutine cires_ugwp_finalize(errmsg, errflg)
+    subroutine cires_ugwp_final(errmsg, errflg)
 
     implicit none
 !
@@ -125,11 +125,11 @@ subroutine cires_ugwp_finalize(errmsg, errflg)
 
     if (.not.is_initialized) return
 
-    call cires_ugwpv0_mod_finalize()
+    call cires_ugwpv0_mod_final()
 
     is_initialized = .false.
 
-    end subroutine cires_ugwp_finalize
+    end subroutine cires_ugwp_final
 
 ! -----------------------------------------------------------------------
 !    originally from ugwp_driver_v0.f

physics/GWD/cires_ugwp.meta

@@ -163,7 +163,7 @@
 
 ########################################################################
 [ccpp-arg-table]
-  name = cires_ugwp_finalize
+  name = cires_ugwp_final
   type = scheme
 [errmsg]
   standard_name = ccpp_error_message

physics/GWD/cires_ugwp_module.F90

@@ -71,7 +71,7 @@ module  cires_ugwpv0_module
 !/
 !
 ! allocatable arrays, initilized during "cires_ugwp_init" &
-!                     released   during "cires_ugwp_finalize"
+!                     released   during "cires_ugwp_final"
 !
    real, allocatable :: kvg(:), ktg(:), krad(:), kion(:)
    real, allocatable :: zkm(:), pmb(:)
@@ -227,11 +227,11 @@ subroutine cires_ugwpv0_mod_init (me, master, nlunit, input_nml_file, logunit, &
     end subroutine cires_ugwpv0_mod_init
 !
 ! -----------------------------------------------------------------------
-! finalize  of cires_ugwp   (_finalize)
+! finalize  of cires_ugwp   (_final)
 ! -----------------------------------------------------------------------
 
 !> This subroutine deallocate sources/spectra and some diagnostics.
-  subroutine cires_ugwpv0_mod_finalize
+  subroutine cires_ugwpv0_mod_final
 !
 ! deallocate sources/spectra & some diagnostics need to find where "deaalocate them"
 ! before "end" of the FV3GFS
@@ -245,5 +245,5 @@ subroutine cires_ugwpv0_mod_finalize
     deallocate( zkm,   pmb  )
     deallocate( rfdis, rfdist)
 
-   end subroutine cires_ugwpv0_mod_finalize
+   end subroutine cires_ugwpv0_mod_final
 end module cires_ugwpv0_module

physics/GWD/cires_ugwpv1_module.F90

@@ -92,7 +92,7 @@ module  cires_ugwpv1_module
 
 !
 ! allocatable arrays, initilized during "cires_ugwp_init" &
-!                     released   during "cires_ugwp_finalize"
+!                     released   during "cires_ugwp_final"
 !
    real(kind=kind_phys), allocatable :: kvg(:), ktg(:), krad(:), kion(:)
    real(kind=kind_phys), allocatable :: zkm(:), pmb(:)

physics/GWD/ugwpv1_gsldrag.F90

@@ -54,7 +54,7 @@ module ugwpv1_gsldrag
 
     private
 
-    public ugwpv1_gsldrag_init, ugwpv1_gsldrag_run, ugwpv1_gsldrag_finalize
+    public ugwpv1_gsldrag_init, ugwpv1_gsldrag_run, ugwpv1_gsldrag_final
 
     logical :: is_initialized = .False.
 
@@ -249,15 +249,15 @@ subroutine ugwpv1_gsldrag_init  (                                          &
     end subroutine ugwpv1_gsldrag_init
 
 ! -----------------------------------------------------------------------
-! finalize of ugwpv1_gsldrag   (_finalize)
+! finalize of ugwpv1_gsldrag   (_final)
 ! -----------------------------------------------------------------------
 
 !>@brief The subroutine finalizes the CIRES UGWP
 
-!> \section arg_table_ugwpv1_gsldrag_finalize Argument Table
-!! \htmlinclude ugwpv1_gsldrag_finalize.html
+!> \section arg_table_ugwpv1_gsldrag_final Argument Table
+!! \htmlinclude ugwpv1_gsldrag_final.html
 !!
-    subroutine ugwpv1_gsldrag_finalize(errmsg, errflg)
+    subroutine ugwpv1_gsldrag_final(errmsg, errflg)
 
     implicit none
 
@@ -274,7 +274,7 @@ subroutine ugwpv1_gsldrag_finalize(errmsg, errflg)
 
     is_initialized = .false.
 
-    end subroutine ugwpv1_gsldrag_finalize
+    end subroutine ugwpv1_gsldrag_final
 
 ! -----------------------------------------------------------------------
 !    originally from ugwp_driver_v0.f

physics/GWD/ugwpv1_gsldrag.meta

@@ -257,7 +257,7 @@
 
 ########################################################################
 [ccpp-arg-table]
-  name = ugwpv1_gsldrag_finalize
+  name = ugwpv1_gsldrag_final
   type = scheme
 [errmsg]
   standard_name = ccpp_error_message

physics/GWD/unified_ugwp.F90

@@ -35,8 +35,8 @@ module unified_ugwp
 
     use machine, only: kind_phys
 
-!    use cires_ugwp_module,   only: knob_ugwp_version, cires_ugwp_mod_init,   cires_ugwp_mod_finalize
-    use cires_ugwpv0_module, only: knob_ugwp_version, cires_ugwpv0_mod_init, cires_ugwpv0_mod_finalize
+!    use cires_ugwp_module,   only: knob_ugwp_version, cires_ugwp_mod_init,   cires_ugwp_mod_final
+    use cires_ugwpv0_module, only: knob_ugwp_version, cires_ugwpv0_mod_init, cires_ugwpv0_mod_final
     use gwdps, only: gwdps_run
     use cires_ugwp_triggers
     use ugwp_driver_v0
@@ -46,7 +46,7 @@ module unified_ugwp
 
     private
 
-    public unified_ugwp_init, unified_ugwp_run, unified_ugwp_finalize
+    public unified_ugwp_init, unified_ugwp_run, unified_ugwp_final
 
     logical :: is_initialized = .false.
 
@@ -146,15 +146,15 @@ subroutine unified_ugwp_init (me, master, nlunit, input_nml_file, logunit, &
     end subroutine unified_ugwp_init
 
 ! -----------------------------------------------------------------------
-! finalize of unified_ugwp   (_finalize)
+! finalize of unified_ugwp   (_final)
 ! -----------------------------------------------------------------------
 
 !>@brief The subroutine finalizes the GFS UGWP
 
-!> \section arg_table_unified_ugwp_finalize Argument Table
-!! \htmlinclude unified_ugwp_finalize.html
+!> \section arg_table_unified_ugwp_final Argument Table
+!! \htmlinclude unified_ugwp_final.html
 !!
-    subroutine unified_ugwp_finalize(do_ugwp_v0,do_ugwp_v0_nst_only,  &
+    subroutine unified_ugwp_final(do_ugwp_v0,do_ugwp_v0_nst_only,  &
                                      errmsg, errflg)
 
     implicit none
@@ -169,11 +169,11 @@ subroutine unified_ugwp_finalize(do_ugwp_v0,do_ugwp_v0_nst_only,  &
 
     if (.not.is_initialized) return
 
-    if ( do_ugwp_v0 .or. do_ugwp_v0_nst_only )  call cires_ugwpv0_mod_finalize()
+    if ( do_ugwp_v0 .or. do_ugwp_v0_nst_only )  call cires_ugwpv0_mod_final()
 
     is_initialized = .false.
 
-    end subroutine unified_ugwp_finalize
+    end subroutine unified_ugwp_final
 
 ! -----------------------------------------------------------------------
 !    originally from ugwp_driver_v0.f

physics/GWD/unified_ugwp.meta

@@ -229,7 +229,7 @@
 
 ########################################################################
 [ccpp-arg-table]
-  name = unified_ugwp_finalize
+  name = unified_ugwp_final
   type = scheme
 [do_ugwp_v0]
   standard_name = flag_for_ugwp_version_0

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_MP_generic_post.meta

@@ -228,7 +228,7 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = in
+  intent = inout
 [gq0]
   standard_name = tracer_concentration_of_new_state
   long_name = tracer concentration updated by physics

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_SCNV_generic_post.meta

@@ -184,7 +184,7 @@
 [shcnvcw]
   standard_name = flag_for_saving_shallow_convective_cloud_area_fraction
   long_name = flag for shallow convective cloud
-  units = 
+  units = flag
   dimensions = ()
   type = logical
   intent = in

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_SCNV_generic_pre.meta

@@ -98,7 +98,7 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension,number_of_tracers)
   type = real
   kind = kind_phys
-  intent = in
+  intent = inout
 [ntqv]
   standard_name = index_of_specific_humidity_in_tracer_concentration_array
   long_name = tracer index for water vapor (specific humidity)