/[MITgcm]/MITgcm/pkg/land/land_stepfwd.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_stepfwd.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Fri May 14 16:14:48 2004 UTC revision 1.4 by jmc, Sat May 15 20:43:27 2004 UTC
# Line 123  C--   step forward ground temperature: e Line 123  C--   step forward ground temperature: e
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
# Line 135  C--   Initialize run-off arrays. Line 131  C--   Initialize run-off arrays.
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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22