Changeset 3540 for LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

Timestamp:

Jun 25, 2019, 4:50:13 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Modifications needed for "real" calendar in 1D model
MPL/EM

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h (modified) (2 diffs, 1 prop)

LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

@@ -2 +2 @@
 
 !
-! $Id: conf_unicol.F 1279 2010-08-04 17:20:56Z lahellec $
+! $Id$
 !
 !
@@ -826 +826 @@
       ENDDO
 
-      modname = 'dyn1dredem'
-      ierr = NF_OPEN(fichnom, NF_WRITE, nid)
-      IF (ierr .NE. NF_NOERR) THEN
-         abort_message="Pb. d ouverture "//fichnom
-         CALL abort_gcm('Modele 1D',abort_message,1)
-      ENDIF
+!     modname = 'dyn1dredem'
+!     ierr = NF_OPEN(fichnom, NF_WRITE, nid)
+!     IF (ierr .NE. NF_NOERR) THEN
+!        abort_message="Pb. d ouverture "//fichnom
+!        CALL abort_gcm('Modele 1D',abort_message,1)
+!     ENDIF
 
       DO l=1,length