Changeset 461 for LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

Timestamp:

Mar 28, 2003, 3:24:20 PM (22 years ago)

Author:

lmdzadmin

Message:

Pb d'indice de boucle
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -547 +547 @@
 
 !IM cf LF
-      DO i = 1, knon
-       IF (pctsrf_new(i,nisurf) < EPSFRA) then
-          snow(i) = 0.0
-!IM cf LF/JLD         tsurf(i) = RTT - 1.8
-          tsurf_new(i) = RTT - 1.8
-          IF (soil_model) tsoil(i,:) = RTT -1.8
+      DO ii = 1, knon
+       IF (pctsrf_new(ii,nisurf) < EPSFRA) then
+          snow(ii) = 0.0
+!IM cf LF/JLD         tsurf(ii) = RTT - 1.8
+          tsurf_new(ii) = RTT - 1.8
+          IF (soil_model) tsoil(ii,:) = RTT -1.8
         endif
       enddo