Changeset 1279 for LMDZ4/trunk/libf/dyn3d/create_etat0_limit.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/create_etat0_limit.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
        PROGRAM create_etat0_limit
+#ifdef CPP_EARTH
+! This prog. is designed to work for Earth
        USE dimphy
        USE comgeomphy
        USE infotrac
+#ifdef CPP_IOIPSL
+       use ioipsl, only: ioconf_calendar
+#endif
+       IMPLICIT NONE
 c
 c
@@ -41 +47 @@
       END IF
 
-      CALL Init_Phys_lmdz(iim,jjp1,llm,1,(jjm-1)*iim+2)
+      CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
+      PRINT *,'---> klon=',klon
       call InitComgeomphy
+
+#ifdef CPP_IOIPSL
+      call ioconf_calendar('360d')
+#endif
 
       WRITE(6,*) '  *********************  '
@@ -59 +70 @@
 1     FORMAT(//)
 
+#endif
+! of #ifdef CPP_EARTH
       STOP
       END