Changeset 1279 for LMDZ4/trunk/libf/dyn3d/limit_netcdf.F

Timestamp:

Dec 10, 2009, 10:02:56 AM (15 years ago)

Author:

Laurent Fairhead

Message:

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3d/limit_netcdf.F (modified) (7 diffs)

LMDZ4/trunk/libf/dyn3d/limit_netcdf.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 C
 C
       SUBROUTINE limit_netcdf(interbar, extrap, oldice, masque)
+#ifdef CPP_EARTH
+! This routine is designed to work for Earth
       USE dimphy
       use phys_state_var_mod , ONLY : pctsrf
@@ -33 +35 @@
 cy#include "dimphy.h"
 #include "indicesol.h"
+#include "iniprint.h"
 c
 c-----------------------------------------------------------------------
@@ -403 +406 @@
       ENDDO
 
-      PRINT 222, timeyear
+      PRINT 222, timeyear(:lmdep)
 222   FORMAT(2x,' Time year ',10f6.1)
 c
@@ -620 +623 @@
          timeyear(l) = tmidmonth(l)
       ENDDO
-      PRINT 222,  timeyear
+      PRINT 222,  timeyear(:lmdep)
 c
       PRINT*, 'Interpolation temporelle'
@@ -939 +942 @@
          timeyear(l) = tmidmonth(l)
       ENDDO
-      print 222,  timeyear
+      print 222,  timeyear(:lmdep)
 c
 C interpolation temporelle
@@ -1134 +1137 @@
          timeyear(l) = timecoord(l)
       ENDDO
-      print 222,  timeyear
+      print 222,  timeyear(:lmdep)
 c
 C interpolation temporelle
@@ -1323 +1326 @@
       ierr = NF_CLOSE(nid)
 c
+#else
+      WRITE(lunout,*)
+     & 'limit_netcdf: Earth-specific routine, needs Earth physics'
+#endif
+! of #ifdef CPP_EARTH
       STOP
       END