Changeset 1300 for trunk/LMDZ.COMMON/libf/dyn3d_common/defrun.F

Timestamp:

Jun 25, 2014, 1:19:59 PM (10 years ago)

Author:

emillour

Message:

Common dynamics:
Some updates to keep up with LMDZ5 Earth model evolution (up to LMDZ5 rev 1955).
Main change is the introduction of a "dyn3d_common" directory
to store files common to dyn3d and dyn3dpar.
See file "DOC/chantiers/commit_importants.log" for detailed list
of changes. These changes do not change results on test cases.
EM

Location:

trunk/LMDZ.COMMON/libf/dyn3d_common

Files:

• . (added)
• defrun.F (moved) (moved from trunk/LMDZ.COMMON/libf/dyn3d/defrun.F) (4 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/defrun.F

@@ -370 +370 @@
         WRITE(tapeout,*)' La valeur de dzoomx passee par run.def est dif
      *ferente de celle lue sur le fichier  start '
-        CALL ABORT
+        CALL ABORT_gcm("defrun", "", 1)
        ENDIF
 
@@ -376 +376 @@
         WRITE(tapeout,*)' La valeur de dzoomy passee par run.def est dif
      *ferente de celle lue sur le fichier  start '
-        CALL ABORT
+        CALL ABORT_gcm("defrun", "", 1)
        ENDIF
 
@@ -382 +382 @@
         WRITE(6,*)' La valeur de taux passee par run.def est differente
      *  de celle lue sur le fichier  start '
-        CALL ABORT
+        CALL ABORT_gcm("defrun", "", 1)
        ENDIF
 
@@ -388 +388 @@
         WRITE(6,*)' La valeur de tauy passee par run.def est differente
      *  de celle lue sur le fichier  start '
-        CALL ABORT
+        CALL ABORT_gcm("defrun", "", 1)
        ENDIF