Adding morphing params to TWOSTREAM call wrf-model#1

johnrobertlawson · Mar 31, 2019 · 231b2d6 · 231b2d6
1 parent ac3a289
commit 231b2d6
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/phys/module_sf_noahmplsm.F b/phys/module_sf_noahmplsm.F
@@ -2756,7 +2756,10 @@ SUBROUTINE ALBEDO (parameters,VEGTYP ,IST    ,ICE    ,NSOIL  , & !in
                       FWET   ,TV      ,ALBGRD  ,ALBGRI  ,RHO    , & !in
                       TAU    ,FVEG    ,IST     ,ILOC    ,JLOC   , & !in
                       FABD   ,ALBD    ,FTDD    ,FTID    ,GDIR   , &!)   !out
-                      FREVD  ,FREGD   ,BGAP    ,WGAP)
+                      ! JRL ----------
+                        !FREVD  ,FREGD   ,BGAP    ,WGAP)
+                        FREVD,FREGD,BGAP,WGAP,MORPHR_RAD, MORPHTH_RAD)
+                      ! --------------
 
       IC = 1      ! diffuse
       CALL TWOSTREAM (parameters,IB     ,IC      ,VEGTYP  ,COSZ    ,VAI    , & !in