Changeset 2264 for LMDZ5/trunk/libf/phylmd

Timestamp:

Apr 17, 2015, 10:25:14 PM (10 years ago)

Author:

fhourdin

Message:

Bug fixing

File:

• LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -208 +208 @@
 
 ELSE IF (iflag_z0_oce==1) THEN
-    DO i = 1, knon
-       tmp = MAX(cepdu2,u1(i)**2+v1(i)**2)
-       z0m(i) = 0.018*cdragm(i) * (u1(i)**2+v1(i)**2)/RG  &
-            +  0.11*14e-6 / SQRT(cdragm(i) * tmp)
-       z0m(i) = MAX(1.5e-05,z0m(i))
-       z0h(i)=0.62*14e-6 / SQRT(cdragm(i) * tmp)
-    ENDDO  
-
+    DO i = 1, knon
+       tmp = MAX(cepdu2,u1(i)**2+v1(i)**2)
+       z0m(i) = 0.018*cdragm(i) * (u1(i)**2+v1(i)**2)/RG  &
+            + 0.11*14e-6 / SQRT(cdragm(i) * tmp)
+       z0m(i) = MAX(1.5e-05,z0m(i))
+       z0h(i)=0.62*14e-6 / SQRT(cdragm(i) * tmp)
+    ENDDO
 ELSE
        STOP'version non prevue'