Housekeeping

physics/GFS_phys_time_vary.fv3.F90

@@ -841,7 +841,7 @@ subroutine GFS_phys_time_vary_timestep_init (
 !$OMP          shared(levs,prsl,iccn,jindx1_ci,jindx2_ci,ddy_ci,iindx1_ci,iindx2_ci)     &
 !$OMP          shared(ddx_ci,in_nm,ccn_nm,do_ugwp_v1,jindx1_tau,jindx2_tau,ddy_j1tau)    &
 !$OMP          shared(ddy_j2tau,tau_amf,iflip,ozphys)                                    &
-!$OMP          private(iseed,iskip,i,j)
+!$OMP          private(iseed,iskip,i,j,k)
 
 !$OMP sections
 

physics/GFS_phys_time_vary.fv3.meta

@@ -30,6 +30,13 @@
   dimensions = ()
   type = logical
   intent = in
+[ntoz]
+  standard_name = index_of_ozone_mixing_ratio_in_tracer_concentration_array
+  long_name = tracer index for ozone mixing ratio
+  units = index
+  dimensions = ()
+  type = integer
+  intent = in
 [iaerclm]
   standard_name = flag_for_aerosol_input_MG_radiation
   long_name = flag for using aerosols in Morrison-Gettelman MP_radiation
@@ -72,36 +79,6 @@
   dimensions = ()
   type = integer
   intent = in
-  intent = in
-[ntoz]
-  standard_name = index_of_ozone_mixing_ratio_in_tracer_concentration_array
-  long_name = tracer index for ozone mixing ratio
-  units = index
-  dimensions = ()
-  type = integer
-  intent = in
-[jindx1_o3]
-  standard_name = lower_latitude_index_of_ozone_forcing_for_interpolation
-  long_name = interpolation low index for ozone
-  units = index
-  dimensions = (horizontal_dimension)
-  type = integer
-  intent = in
-[jindx2_o3]
-  standard_name = upper_latitude_index_of_ozone_forcing_for_interpolation
-  long_name = interpolation high index for ozone
-  units = index
-  dimensions = (horizontal_dimension)
-  type = integer
-  intent = in
-[ddy_o3]
-  standard_name = latitude_interpolation_weight_for_ozone_forcing
-  long_name = interpolation high index for ozone
-  units = none
-  dimensions = (horizontal_dimension)
-  type = real
-  kind = kind_phys
-  intent = in
 [nx]
   standard_name = number_of_points_in_x_direction_for_this_MPI_rank
   long_name = number of points in x direction for this MPI rank
@@ -139,6 +116,28 @@
   type = real
   kind = kind_phys
   intent = in
+[jindx1_o3]
+  standard_name = lower_latitude_index_of_ozone_forcing_for_interpolation
+  long_name = interpolation low index for ozone
+  units = index
+  dimensions = (horizontal_dimension)
+  type = integer
+  intent = inout
+[jindx2_o3]
+  standard_name = upper_latitude_index_of_ozone_forcing_for_interpolation
+  long_name = interpolation high index for ozone
+  units = index
+  dimensions = (horizontal_dimension)
+  type = integer
+  intent = inout
+[ddy_o3]
+  standard_name = latitude_interpolation_weight_for_ozone_forcing
+  long_name = interpolation high index for ozone
+  units = none
+  dimensions = (horizontal_dimension)
+  type = real
+  kind = kind_phys
+  intent = inout
 [jindx1_h]
   standard_name = lower_latitude_index_of_stratospheric_water_vapor_forcing_for_interpolation
   long_name = interpolation low index for stratospheric water vapor