Changeset 2258 for LMDZ5/branches/testing/libf/phylmd/etat0_netcdf.F90

Timestamp:

Apr 13, 2015, 10:21:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes 2216:2237 into testing branch

Location:

LMDZ5/branches/testing

Files:

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

LMDZ5/branches/testing/libf/phylmd/etat0_netcdf.F90

@@ -482 +482 @@
   falb1(:,is_oce) = 0.5;  falb1(:,is_sic) = 0.6
   falb2 = falb1
+!albedo SB >>>
+  falb_dir(:,is_ter,:)=0.08; falb_dir(:,is_lic,:)=0.6
+  falb_dir(:,is_oce,:)=0.5;  falb_dir(:,is_sic,:)=0.6
+!albedo SB <<<
   evap(:,:) = 0.
   DO i=1,nbsrf; qsolsrf(:,i)=150.; END DO