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

Timestamp:

Feb 6, 2004, 3:15:17 PM (20 years ago)

Author:

lmdzadmin

Message:

Convergence avec la simulation LJ27
LF

File:

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

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

@@ -647 +647 @@
 
      
-    z0_new = 0.001
+    z0_new = 0.002
     z0_new = SQRT(z0_new**2+rugoro**2)
     alblw(1:knon) = alb_new(1:knon)
@@ -700 +700 @@
 !IM: KstaTER0.8 & LMD_ARMIP5    alb_new(1 : knon)  = 0.8
 !IM: KstaTER0.77 & LMD_ARMIP6    
-        alb_new(1 : knon)  = 0.77
+        alb_new(1 : knon)  = 0.8
 
 !