Changeset 2056 for LMDZ5/branches/testing/libf/phylmd/phyetat0.F90

Timestamp:

Jun 11, 2014, 3:46:46 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1997:2055 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phyetat0.F90 (modified) (3 diffs)

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

@@ -195 +195 @@
              'coherente ', i, zmasq(i) , pctsrf(i, is_oce) &
              , pctsrf(i, is_sic)
-        WRITE(*, *) 'Je force la coherence zmasq=fractint'
-        zmasq(i) = fractint(i)
+        WRITE(*, *) 'Je force la coherence zmasq=1.-fractint'
+        zmasq(i) = 1. - fractint(i)
      ENDIF
   END DO
@@ -1048 +1048 @@
   CALL close_startphy
 
-  CALL init_iophy_new(rlat, rlon)
-
   ! Initialize module pbl_surface_mod 
 
@@ -1060 +1058 @@
   ENDIF
 
+  CALL init_iophy_new(rlat, rlon)
+
   ! Initilialize module fonte_neige_mod      
-
   CALL fonte_neige_init(run_off_lic_0)