Changeset 1146 for LMDZ4/trunk/libf/phylmd/surf_land_bucket_mod.F90

Timestamp:

Apr 9, 2009, 12:11:35 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_land_bucket_mod.F90 (modified) (1 diff)

LMDZ4/trunk/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