Changeset 513 for LMDZ.3.3

Timestamp:

Mar 24, 2004, 2:17:50 PM (20 years ago)

Author:

lmdzadmin

Message:

Initialisation albedo lic a 0.77
IM

Location:

LMDZ.3.3/branches/rel-LF/libf

Files:

• dyn3d/etat0_netcdf.F (modified) (1 diff)
• phylmd/interface_surf.F90 (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

@@ -631 +631 @@
       snsrf(:,is_sic) = sn
       albe(:,is_ter) = 0.08
-      albe(:,is_lic) = 0.6
+      albe(:,is_lic) = 0.77
       albe(:,is_oce) = 0.5
       albe(:,is_sic) = 0.6

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

@@ -700 +700 @@
 !IM: KstaTER0.8 & LMD_ARMIP5    alb_new(1 : knon)  = 0.8
 !IM: KstaTER0.77 & LMD_ARMIP6    
-        alb_new(1 : knon)  = 0.8
+        alb_new(1 : knon)  = 0.77
 
 !