Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/dynredem_p.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/dyn3dpar/dynredem_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/dynredem_p.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 c
       SUBROUTINE dynredem0_p(fichnom,iday_end,phis)
+#ifdef CPP_IOIPSL
       USE IOIPSL
+#endif
       USE parallel
       USE infotrac
@@ -57 +59 @@
       if (mpi_rank==0) then
       
-      modname='dynredem'
-
+      modname='dynredem0_p'
+
+#ifdef CPP_IOIPSL
       call ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
       call ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
-        
+#else
+! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used)
+      yyears0=0
+      mmois0=1
+      jjour0=1
+#endif                
 
       DO l=1,length