Skip to content

Commit

Permalink
Merge pull request #169 from fabiooliveira72/develop_v4.8
Browse files Browse the repository at this point in the history
Initialized MULCHWATER subroutine local variables
  • Loading branch information
chporter authored Dec 13, 2021
2 parents ae39636 + ef7979f commit e25b199
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion Soil/Mulch/MULCHWAT.for
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,7 @@ C REVISION HISTORY
C 08/27/1998 AAA (A. Andales) Wrote TILLRAIN.
C 03/08/2001 CHP moved TILLRAIN to WATBAL module.
C 05/22/2003 CHP Added mulch routine to current model.
C 12/11/2021 FO Initialized local variables for MULCHWAT Integr.
C=======================================================================

SUBROUTINE MULCHWATER(CONTROL, ISWITCH,
Expand Down Expand Up @@ -44,7 +45,12 @@ C-----------------------------------------------------------------------
!***********************************************************************
IF (DYNAMIC .EQ. SEASINIT) THEN
!-----------------------------------------------------------------------
CNRAIN = 0.0
CNRAIN = 0.0
NRAIN = 0.0
MULCHWAT = 0.0
MULWATADD = 0.0
RESWATADD = 0.0
MULCHEVAP = 0.0

!Mulch water balance not simulated
! IF (INDEX('RSN',MEINF) .GT. 0) THEN
Expand Down

0 comments on commit e25b199

Please sign in to comment.