Changeset 1080 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_mod.F90

Timestamp:

Jan 26, 2009, 11:51:20 AM (15 years ago)

Author:

jghattas

Message:

Modifications pour que la rugosite ne devient jamais zero (ajout des valeurs minimales).

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_mod.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_mod.F90

@@ -133 +133 @@
 !  
        DO i=1,knon
-          z0_new(i) = SQRT(z0_new(i)**2 + rugoro(i)**2)
+          z0_new(i) = MAX(1.5e-05,SQRT(z0_new(i)**2 + rugoro(i)**2))
        ENDDO