/[lmdze]/trunk/Sources/phylmd/Interface_surf/soil.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Interface_surf/soil.f

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

revision 220 by guez, Thu Sep 1 10:30:53 2016 UTC revision 221 by guez, Thu Apr 20 14:44:47 2017 UTC
# Line 139  contains Line 139  contains
139         ! PB         ! PB
140         firstsurf(nisurf) = .FALSE.         firstsurf(nisurf) = .FALSE.
141      ELSE      ELSE
142         ! Computation of the soil temperatures using the Cgrd and Dgrd         ! Computation of the soil temperatures using the Zc and Zd
143         ! coefficient computed at the previous time-step:         ! coefficient computed at the previous time-step:
144    
145         ! surface temperature         ! surface temperature
# Line 157  contains Line 157  contains
157         END DO         END DO
158      END IF      END IF
159    
160      ! Computation of the Cgrd and Dgrd coefficient for the next step:      ! Computation of the Zc and Zd coefficient for the next step:
161    
162      IF (nisurf==is_sic) THEN      IF (nisurf==is_sic) THEN
163         DO ig = 1, knon         DO ig = 1, knon

Legend:
Removed from v.220  
changed lines
  Added in v.221

  ViewVC Help
Powered by ViewVC 1.1.21