Changes from fortran-to-metadata comparision

Author: dustinswales

physics/CONV/Grell_Freitas/cu_gf_driver.F90

@@ -129,7 +129,7 @@ subroutine cu_gf_driver_run(ntracer,garea,im,km,dt,flag_init,flag_restart, gf_co
    integer, dimension (:), intent(out) :: hbot,htop,kcnv
    integer, dimension (:), intent(in)  :: xland
    real(kind=kind_phys),    dimension (:), intent(in) :: pbl
-   real(kind=kind_phys),    dimension (:), intent(in) :: maxMF
+   real(kind=kind_phys),    dimension (:), intent(in), optional :: maxMF
 !$acc declare copyout(hbot,htop,kcnv)
 !$acc declare copyin(xland,pbl)
    integer, dimension (im) :: tropics

physics/CONV/Grell_Freitas/cu_gf_driver.meta

@@ -335,6 +335,7 @@
   type = real
   kind = kind_phys
   intent = inout
+  optional = True
 [cliw]
   standard_name = ice_water_mixing_ratio_convective_transport_tracer
   long_name = ratio of mass of ice water to mass of dry air plus vapor (without condensates) in the convectively transported tracer array

physics/CONV/SAMF/samfdeepcnv.f

@@ -11,7 +11,9 @@ module samfdeepcnv
       use progomega, only : progomega_calc
 
       contains
-
+!! \section arg_table_samfdeepcnv_init Argument Table
+!! \htmlinclude samfdeepcnv_init.html
+!!
       subroutine samfdeepcnv_init(imfdeepcnv,imfdeepcnv_samf,            &
      &                            errmsg, errflg)
 

physics/CONV/SAMF/samfshalcnv.f

@@ -9,6 +9,9 @@ module samfshalcnv
       use progomega, only : progomega_calc
       contains
 
+!! \section arg_table_samfshalcnv_init Argument Table
+!! \htmlinclude samfshalcnv_init.html
+!!
       subroutine samfshalcnv_init(imfshalcnv, imfshalcnv_samf,          &
      &                            errmsg, errflg)
 

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_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)

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rad_time_vary.scm.F90

@@ -29,19 +29,19 @@ subroutine GFS_rad_time_vary_timestep_init (lrseeds, rseeds,
 
          ! Interface variables
          logical,                intent(in)    :: lrseeds
-         integer,                intent(in)    :: rseeds(:,:)
+         integer,                intent(in), optional    :: rseeds(:,:)
          integer,                intent(in)    :: isubc_lw, isubc_sw, cnx, cny, isc, jsc, kdt
          integer,                intent(in)    :: imp_physics, imp_physics_zhao_carr, ipsd0, ipsdlim
          logical,                intent(in)    :: lslwr, lsswr
-         integer,                intent(inout) :: icsdsw(:), icsdlw(:)
+         integer,                intent(inout), optional :: icsdsw(:), icsdlw(:)
          integer,                intent(in)    :: imap(:), jmap(:)
          real(kind_phys),        intent(in)    :: sec
-         real(kind_phys),        intent(inout) :: ps_2delt(:)
-         real(kind_phys),        intent(inout) :: ps_1delt(:)
-         real(kind_phys),        intent(inout) :: t_2delt(:,:)
-         real(kind_phys),        intent(inout) :: t_1delt(:,:)
-         real(kind_phys),        intent(inout) :: qv_2delt(:,:)
-         real(kind_phys),        intent(inout) :: qv_1delt(:,:)
+         real(kind_phys),        intent(inout), optional :: ps_2delt(:)
+         real(kind_phys),        intent(inout), optional :: ps_1delt(:)
+         real(kind_phys),        intent(inout), optional :: t_2delt(:,:)
+         real(kind_phys),        intent(inout), optional :: t_1delt(:,:)
+         real(kind_phys),        intent(inout), optional :: qv_2delt(:,:)
+         real(kind_phys),        intent(inout), optional :: qv_1delt(:,:)
          real(kind_phys),        intent(in)    :: t(:,:), qv(:,:), ps(:)
          character(len=*),       intent(out)   :: errmsg
          integer,                intent(out)   :: errflg

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_surface.meta

@@ -327,7 +327,7 @@
   units = flag
   dimensions = (horizontal_loop_extent)
   type = integer
-  intent = inout
+  intent = in
 [alvsf]
   standard_name = vis_albedo_strong_cosz
   long_name = mean vis albedo with strong cosz dependency

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmg_post.F90

@@ -19,7 +19,7 @@ module GFS_rrtmg_post
 !! \htmlinclude GFS_rrtmg_post_run.html
 !!
       subroutine GFS_rrtmg_post_run (im, km, kmp1, lm, ltp, kt, kb, kd, nspc1, &
-              nfxr, nday, lsswr, lslwr, lssav, fhlwr, fhswr, raddt, coszen,    &
+              lmk,nfxr, nday, lsswr, lslwr, lssav, fhlwr, fhswr, raddt, coszen,&
               coszdg, prsi, tgrs, aerodp, cldsa, mtopa, mbota, clouds1,        &
               cldtaulw, cldtausw, sfcflw, sfcfsw, topflw, topfsw, scmpsw,      &
               fluxr, total_albedo, errmsg, errflg)
@@ -33,7 +33,7 @@ subroutine GFS_rrtmg_post_run (im, km, kmp1, lm, ltp, kt, kb, kd, nspc1, &
 
       ! Interface variables
       integer,              intent(in) :: im, km, kmp1, lm, ltp, kt, kb, kd,   &
-                                          nspc1, nfxr, nday
+                                          nspc1, nfxr, nday, lmk
       logical,              intent(in) :: lsswr, lslwr, lssav
       real(kind=kind_phys), intent(in) :: raddt, fhlwr, fhswr
 
@@ -45,9 +45,9 @@ subroutine GFS_rrtmg_post_run (im, km, kmp1, lm, ltp, kt, kb, kd, nspc1, &
       real(kind=kind_phys), dimension(im,NSPC1),  intent(in) :: aerodp
       real(kind=kind_phys), dimension(im,5),      intent(in) :: cldsa
       integer,              dimension(im,3),      intent(in) :: mbota, mtopa
-      real(kind=kind_phys), dimension(im,lm+LTP), intent(in) :: clouds1
-      real(kind=kind_phys), dimension(im,lm+LTP), intent(in) :: cldtausw
-      real(kind=kind_phys), dimension(im,lm+LTP), intent(in) :: cldtaulw
+      real(kind=kind_phys), dimension(im,lmk),    intent(in) :: clouds1
+      real(kind=kind_phys), dimension(im,lmk),    intent(in) :: cldtausw
+      real(kind=kind_phys), dimension(im,lmk),    intent(in) :: cldtaulw
       real(kind=kind_phys), dimension(im),        intent(inout) :: total_albedo
 
       type(sfcflw_type), dimension(im), intent(in) :: sfcflw

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmg_post.meta

@@ -44,6 +44,13 @@
   dimensions = ()
   type = integer
   intent = in
+[lmk]
+  standard_name = adjusted_vertical_layer_dimension_for_radiation
+  long_name = adjusted number of vertical layers for radiation
+  units = count
+  dimensions = ()
+  type = integer
+  intent = in
 [kt]
   standard_name = vertical_index_difference_between_layer_and_upper_bound
   long_name = vertical index difference between layer and upper bound