Changeset 313 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/start2archive.F

Timestamp:

12/15/14 17:04:28 (10 years ago)

Author:

ymipsl

Message:

• implement splitting of XIOS file for lmdz physics
• Termination is done properly in parallel by calling MPI_ABORT instead of abort or stop

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/start2archive.F (modified) (8 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/start2archive.F

@@ -176 +176 @@
        IF (ierr.NE.NF_NOERR) THEN
          write(6,*)' Pb d''ouverture du fichier'//trim(fichnom)
-        CALL ABORT
+        CALL abort_physiq
        ENDIF
                                                 
@@ -182 +182 @@
       IF (ierr .NE. NF_NOERR) THEN
        PRINT*, "start2archive: Le champ <controle> est absent"
-       CALL abort
+       CALL abort_physiq
       ENDIF
 #ifdef NC_DOUBLE
@@ -191 +191 @@
        IF (ierr .NE. NF_NOERR) THEN
           PRINT*, "start2archive: Lecture echoue pour <controle>"
-          CALL abort
+          CALL abort_physiq
        ENDIF
 
@@ -217 +217 @@
        IF (ierr.NE.NF_NOERR) THEN
          write(6,*)' Pb d''ouverture du fichier'//trim(fichnom)
-        CALL ABORT
+        CALL abort_physiq
        ENDIF
                                                 
@@ -223 +223 @@
       IF (ierr .NE. NF_NOERR) THEN
        PRINT*, "start2archive: Le champ <controle> est absent"
-       CALL abort
+       CALL abort_physiq
       ENDIF
 #ifdef NC_DOUBLE
@@ -232 +232 @@
        IF (ierr .NE. NF_NOERR) THEN
           PRINT*, "start2archive: Lecture echoue pour <controle>"
-          CALL abort
+          CALL abort_physiq
        ENDIF
 
@@ -242 +242 @@
 c-----------------------------------------------------------------------
 !mars a voir      if ((day_ini_fi.ne.day_ini).or.(abs(timefi-timedyn).gt.1.e-10)) 
-      if ((day_ini_fi.ne.day_ini)) 
-     &  stop ' Probleme de Synchro entre start et startfi !!!'
+      if ((day_ini_fi.ne.day_ini)) THEN
+        PRINT*, 'Probleme de Synchro entre start et startfi !!!'
+        CALL abort_physiq
+      endif
 
 
@@ -401 +403 @@
       if (ierr.ne.NF_NOERR) then
          write(*,*) "time matter ",NF_STRERROR(ierr)
-         stop
+         CALL abort_physiq
       endif