Changeset 2427

Timestamp:

Jan 26, 2016, 6:36:22 PM (9 years ago)

Author:

lguez

Message:

Fix bug from revision 2227.

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynphy_lonlat/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
   fevap(:,:) = 0.
   DO i=1,nbsrf; qsolsrf(:,i)=150.; END DO