Merge pull request #78 from climbfuji/rrtmg-pre-bugfix-intent-radtend

Bugfix in GFS_rrtmg_pre.F90: fix intent attribute of Radtend
NCAR · May 11, 2018 · 3996b27 · 3996b27
2 parents cc5b7fb + b5d74cd
commit 3996b27
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/physics/GFS_rrtmg_pre.F90 b/physics/GFS_rrtmg_pre.F90
@@ -22,7 +22,7 @@ end subroutine GFS_rrtmg_pre_init
 !! | Statein           | FV3-GFS_Statein_type                                          | Fortran DDT containing FV3-GFS prognostic state data in from dycore           | DDT      |    0 | GFS_statein_type |           | in     | F        |
 !! | Tbd               | FV3-GFS_Tbd_type                                              | Fortran DDT containing FV3-GFS data not yet assigned to a defined container   | DDT      |    0 | GFS_tbd_type     |           | in     | F        |
 !! | Cldprop           | FV3-GFS_Cldprop_type                                          | Fortran DDT containing FV3-GFS cloud fields needed by radiation from physics  | DDT      |    0 | GFS_cldprop_type |           | in     | F        |
-!! | Radtend           | FV3-GFS_Radtend_type                                          | Fortran DDT containing FV3-GFS radiation tendencies                           | DDT      |    0 | GFS_radtend_type |           | in     | F        |
+!! | Radtend           | FV3-GFS_Radtend_type                                          | Fortran DDT containing FV3-GFS radiation tendencies                           | DDT      |    0 | GFS_radtend_type |           | inout  | F        |
 !! | lm                | vertical_layer_dimension_for_radiation                        | number of vertical layers for radiation calculation                           | count    |    0 | integer          |           | in     | F        |
 !! | im                | horizontal_loop_extent                                        | horizontal loop extent                                                        | count    |    0 | integer          |           | in     | F        |
 !! | lmk               | adjusted_vertical_layer_dimension_for_radiation               | number of vertical layers for radiation                                       | count    |    0 | integer          |           | in     | F        |
@@ -74,7 +74,8 @@ end subroutine GFS_rrtmg_pre_init
       ! Attention - the output arguments lm, im, lmk, lmp must not be set
       ! in the CCPP version - they are defined in the interstitial_create routine
       subroutine GFS_rrtmg_pre_run (Model, Grid, Sfcprop, Statein,   & ! input
-          Tbd, Cldprop, Radtend,                                     & 
+          Tbd, Cldprop,                                              &
+          Radtend,                                                   & ! input/output
           lm, im, lmk, lmp, kd, kt, kb, raddt, plvl, plyr,           & ! output
           tlvl, tlyr, tsfg, tsfa, qlyr, olyr,                        &
           gasvmr_co2,   gasvmr_n2o,   gasvmr_ch4,   gasvmr_o2,       &
@@ -123,7 +124,7 @@ subroutine GFS_rrtmg_pre_run (Model, Grid, Sfcprop, Statein,   & ! input
       type(GFS_grid_type),                 intent(in)    :: Grid
       type(GFS_sfcprop_type),              intent(in)    :: Sfcprop
       type(GFS_statein_type),              intent(in)    :: Statein
-      type(GFS_radtend_type),              intent(in)    :: Radtend
+      type(GFS_radtend_type),              intent(inout) :: Radtend
       type(GFS_tbd_type),                  intent(in)    :: Tbd
       type(GFS_cldprop_type),              intent(in)    :: Cldprop