Merge branch 'rrtmgp-dev2' of https://github.com/dustinswales/ccpp-ph…

…ysics into rrtmgp-dev2-no-mpi_bcast
SamuelTrahanNOAA · Feb 18, 2020 · 12acbb0 · 12acbb0
2 parents c5ba6f9 + 6d55230
commit 12acbb0
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