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

Timestamp:

Jan 26, 2009, 11:51:20 AM (16 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_bucket_mod.F90 (modified) (1 diff)

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

@@ -153 +153 @@
 !
     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))
     END DO