Changeset 313 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagfi.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/writediagfi.F (modified) (3 diffs)

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

@@ -150 +150 @@
             if (n.ge.n_nom_def_max) then
                write(*,*)"n_nom_def_max too small in writediagfi.F:",n
-               stop
+               CALL abort_physiq
             end if 
             n_nom_def=n-1
@@ -183 +183 @@
            write(*,*) "   firstnom string not long enough!!"
            write(*,*) "   increase its size to at least ",len_trim(nom)
-           stop
+           CALL abort_physiq
          endif
          
@@ -457 +457 @@
            write(*,*) "writediagfi error: dim=1 not implemented ",
      &                 "in parallel mode"
-           stop
+           CALL abort_physiq
          endif
 !         Passage variable physique -->  physique dynamique