diff --git a/drivers/wrf/module_sf_noahmpdrv.F b/drivers/wrf/module_sf_noahmpdrv.F index d0095b04..7a0f0ab5 100644 --- a/drivers/wrf/module_sf_noahmpdrv.F +++ b/drivers/wrf/module_sf_noahmpdrv.F @@ -359,11 +359,11 @@ SUBROUTINE noahmplsm(ITIMESTEP, YR, JULIAN, COSZIN,XLAT,XLONG, & ! IN REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: SOILENERGY REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: SNOWENERGY REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: CANHSXY - REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: ACC_DWATERXY - REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: ACC_PRCPXY - REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: ACC_ECANXY - REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: ACC_ETRANXY - REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT ) :: ACC_EDIRXY + REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: ACC_DWATERXY + REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: ACC_PRCPXY + REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: ACC_ECANXY + REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: ACC_ETRANXY + REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: ACC_EDIRXY INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & ! d -> domain & ims,ime, jms,jme, kms,kme, & ! m -> memory diff --git a/src/module_sf_noahmplsm.F b/src/module_sf_noahmplsm.F index 19352c3d..d41e7737 100644 --- a/src/module_sf_noahmplsm.F +++ b/src/module_sf_noahmplsm.F @@ -775,8 +775,8 @@ SUBROUTINE NOAHMP_SFLX (parameters, & REAL :: HETERS !organic respiration (g/m2/s C) REAL :: TROOT !root-zone averaged temperature (k) REAL :: BDFALL !bulk density of new snow (kg/m3) ! MB/AN: v3.7 - REAL :: RAIN !rain rate (mm/s) ! MB/AN: v3.7 - REAL :: SNOW !liquid equivalent snow rate (mm/s) ! MB/AN: v3.7 + REAL , INTENT(OUT) :: RAIN !rain rate (mm/s) ! MB/AN: v3.7 + REAL , INTENT(OUT) :: SNOW !liquid equivalent snow rate (mm/s) ! MB/AN: v3.7 REAL :: FP ! MB/AN: v3.7 REAL :: PRCP ! MB/AN: v3.7 !more local variables for precip heat MB