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 |
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 |