Change intent to inout for conditional variables

guoqing-noaa · May 19, 2022 · fc79cc3 · fc79cc3
1 parent 96d0d36
commit fc79cc3
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 11 deletions.
diff --git a/physics/GFS_MP_generic_post.F90 b/physics/GFS_MP_generic_post.F90
@@ -81,8 +81,8 @@ subroutine GFS_MP_generic_post_run(
       real(kind=kind_phys), dimension(:),      intent(inout) :: diceprv
       real(kind=kind_phys), dimension(:),      intent(inout) :: dsnowprv
       real(kind=kind_phys), dimension(:),      intent(inout) :: dgraupelprv
-      real(kind=kind_phys), dimension(:,:),    intent(out)   :: dqdt_qmicro
-      real(kind=kind_phys), dimension(:,:),    intent(out)   :: prevsq
+      real(kind=kind_phys), dimension(:,:),    intent(inout) :: dqdt_qmicro
+      real(kind=kind_phys), dimension(:,:),    intent(inout) :: prevsq
       real(kind=kind_phys),                    intent(in)    :: dtp
 
       ! CCPP error handling

diff --git a/physics/GFS_MP_generic_post.meta b/physics/GFS_MP_generic_post.meta
@@ -738,15 +738,15 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
 [prevsq]
   standard_name = specific_humidity_on_previous_timestep
   long_name = specific_humidity_on_previous_timestep
   units = kg kg-1
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
 [lssav]
   standard_name = flag_for_diagnostics
   long_name = logical flag for storing diagnostics

diff --git a/physics/GFS_suite_interstitial_3.F90 b/physics/GFS_suite_interstitial_3.F90
@@ -52,8 +52,8 @@ subroutine GFS_suite_interstitial_3_run (otsptflag,                 &
       real(kind=kind_phys), intent(in   ), dimension(:,:)   :: gt0
       real(kind=kind_phys), intent(in   ), dimension(:,:,:) :: gq0
 
-      real(kind=kind_phys), intent(out   ), dimension(:,:)   :: sigmain
-      real(kind=kind_phys), intent(out   ), dimension(:,:)   :: sigmaout,qmicro
+      real(kind=kind_phys), intent(inout   ), dimension(:,:)   :: sigmain
+      real(kind=kind_phys), intent(inout   ), dimension(:,:)   :: sigmaout,qmicro
       real(kind=kind_phys), intent(inout), dimension(:,:)   :: rhc, save_qc
       ! save_qi is not allocated for Zhao-Carr MP
       real(kind=kind_phys), intent(inout), dimension(:,:)   :: save_qi

diff --git a/physics/GFS_suite_interstitial_3.meta b/physics/GFS_suite_interstitial_3.meta
@@ -229,15 +229,15 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
 [sigmaout]
   standard_name = updraft_area_fraction_updated_by_physics
   long_name = convective updraft area fraction updated by physics
   units = frac
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
 [qmicro]
   standard_name = instantaneous_tendency_of_specific_humidity_due_to_microphysics
   long_name = moisture tendency due to microphysics

diff --git a/physics/satmedmfvdifq.F b/physics/satmedmfvdifq.F
@@ -99,7 +99,7 @@ subroutine satmedmfvdifq_run(im,km,progsigma,ntrac,ntcw,ntrw,     &
       real(kind=kind_phys), intent(in) :: dspfac, bl_upfr, bl_dnfr
       real(kind=kind_phys), intent(in) :: rlmx, elmx
       real(kind=kind_phys), intent(inout) :: dv(:,:),     du(:,:),      &
-     &                     tdt(:,:),    rtg(:,:,:)
+     &                     tdt(:,:),    rtg(:,:,:), tmf(:,:)
       real(kind=kind_phys), intent(in) ::                               &
      &                     u1(:,:),     v1(:,:),                        &
      &                     t1(:,:),     q1(:,:,:),                      &
@@ -123,7 +123,7 @@ subroutine satmedmfvdifq_run(im,km,progsigma,ntrac,ntcw,ntrw,     &
      &                     dtsfc(:),     dqsfc(:),                      &
      &                     hpbl(:)
       real(kind=kind_phys), intent(out) ::                              &
-     &                     dkt(:,:), dku(:,:), tmf(:,:)
+     &                     dkt(:,:), dku(:,:)
 !
       logical, intent(in)  :: dspheat
       character(len=*), intent(out) :: errmsg

diff --git a/physics/satmedmfvdifq.meta b/physics/satmedmfvdifq.meta
@@ -215,7 +215,7 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
 [u1]
   standard_name = x_wind
   long_name = x component of layer wind