123 |
|
|
124 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
125 |
|
|
126 |
#ifdef LAND_OLD_VERSION |
IF ( land_calc_grW .OR. land_calc_snow ) THEN |
|
IF ( .TRUE. ) THEN |
|
|
#else |
|
|
IF ( land_calc_grW ) THEN |
|
|
#endif |
|
127 |
C-- Initialize run-off arrays. |
C-- Initialize run-off arrays. |
128 |
DO j=1,sNy |
DO j=1,sNy |
129 |
DO i=1,sNx |
DO i=1,sNx |
131 |
land_enRnOf(i,j,bi,bj) = 0. _d 0 |
land_enRnOf(i,j,bi,bj) = 0. _d 0 |
132 |
ENDDO |
ENDDO |
133 |
ENDDO |
ENDDO |
134 |
|
ENDIF |
135 |
|
|
136 |
|
#ifdef LAND_OLD_VERSION |
137 |
|
IF ( .TRUE. ) THEN |
138 |
|
#else |
139 |
|
IF ( land_calc_grW ) THEN |
140 |
|
#endif |
141 |
C-- need (later on) ground temp. to be consistent with updated enthalpy: |
C-- need (later on) ground temp. to be consistent with updated enthalpy: |
142 |
DO k=1,land_nLev |
DO k=1,land_nLev |
143 |
DO j=1,sNy |
DO j=1,sNy |