Chnaged intent of lw_cloud_optical_props

climbfuji · Feb 18, 2020 · 6d55230 · 6d55230
1 parent a3cd7db
commit 6d55230
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/physics/rrtmgp_lw_rte.F90 b/physics/rrtmgp_lw_rte.F90
@@ -52,9 +52,9 @@ subroutine rrtmgp_lw_rte_run(doLWrad, nCol, nLev, p_lay, t_lay, p_lev, skt, lw_g
     type(ty_source_func_lw),intent(in) :: &
          sources                    ! RRTMGP DDT: longwave source functions
     type(ty_optical_props_1scl),intent(inout) :: &
-         lw_optical_props_clouds, & ! RRTMGP DDT: longwave cloud radiative properties 
          lw_optical_props_clrsky    ! RRTMGP DDT: longwave clear-sky radiative properties 
     type(ty_optical_props_1scl),intent(in) :: &
+         lw_optical_props_clouds, & ! RRTMGP DDT: longwave cloud radiative properties 
          lw_optical_props_aerosol   ! RRTMGP DDT: longwave aerosol radiative properties
     real(kind_phys), dimension(lw_gas_props%get_nband(),ncol),intent(in) :: &
          secdiff

diff --git a/physics/rrtmgp_lw_rte.meta b/physics/rrtmgp_lw_rte.meta
@@ -100,7 +100,7 @@
   units = DDT
   dimensions = ()
   type = ty_optical_props_1scl
-  intent = inout
+  intent = in
   optional = F
 [lw_optical_props_aerosol]
   standard_name = longwave_optical_properties_for_aerosols