/[lmdze]/trunk/phylmd/Interface_surf/soil.f90
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/soil.f90

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

revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC revision 330 by guez, Wed Jul 31 14:55:23 2019 UTC
# Line 78  contains Line 78  contains
78      IF (nisurf==is_sic) THEN      IF (nisurf==is_sic) THEN
79         DO ig = 1, knon         DO ig = 1, knon
80            ztherm_i(ig) = iice            ztherm_i(ig) = iice
81            IF (snow(ig) > 0.0) ztherm_i(ig) = isno            IF (snow(ig) > 0.) ztherm_i(ig) = isno
82         END DO         END DO
83      ELSE IF (nisurf==is_lic) THEN      ELSE IF (nisurf==is_lic) THEN
84         DO ig = 1, knon         DO ig = 1, knon
85            ztherm_i(ig) = iice            ztherm_i(ig) = iice
86            IF (snow(ig) > 0.0) ztherm_i(ig) = isno            IF (snow(ig) > 0.) ztherm_i(ig) = isno
87         END DO         END DO
88      ELSE IF (nisurf==is_ter) THEN      ELSE IF (nisurf==is_ter) THEN
89         DO ig = 1, knon         DO ig = 1, knon
90            ztherm_i(ig) = isol            ztherm_i(ig) = isol
91            IF (snow(ig) > 0.0) ztherm_i(ig) = isno            IF (snow(ig) > 0.) ztherm_i(ig) = isno
92         END DO         END DO
93      ELSE IF (nisurf==is_oce) THEN      ELSE IF (nisurf==is_oce) THEN
94         DO ig = 1, knon         DO ig = 1, knon
Legend:
Removed from v.328  
changed lines
  Added in v.330
  ViewVC Help
Powered by ViewVC 1.1.21