Changeset 3896

Timestamp:

Jan 25, 2016, 10:54:07 AM (9 years ago)

Author:

ymipsl

Message:

Bug fix when creating etat0 physics files (LMDZ5) :

• falb_dir is incorrectly initialized
• falb_dif is not initialized

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/etat0phys_netcdf.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/etat0phys_netcdf.F90

@@ -181 +181 @@
   DO i=1,nbsrf; ftsol(:,i) = tsol; END DO
   DO i=1,nbsrf; snsrf(:,i) = sn;   END DO
-  falb_dir(:,is_ter,:) = 0.08
-  falb_dir(:,is_lic,:) = 0.6
-  falb_dir(:,is_oce,:) = 0.5
-  falb_dir(:,is_sic,:) = 0.6
+  falb_dir(:,:,is_ter) = 0.08
+  falb_dir(:,:,is_lic) = 0.6
+  falb_dir(:,:,is_oce) = 0.5
+  falb_dir(:,:,is_sic) = 0.6
+  falb_dif(:,:,:)=0
+
   fevap(:,:) = 0.
   DO i=1,nbsrf; qsolsrf(:,i)=150.; END DO