Changeset 313 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/kcmprof_fn.F90

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/kcmprof_fn.F90 (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/kcmprof_fn.F90

@@ -95 +95 @@
         print*,'Must have Psat_max=0 if no variable species'
         psat_max=0.0
-        !stop
+        !CALL abort_physiq
      endif
      print*, 'Assuming pure atmosphere'
@@ -109 +109 @@
      m_v   = 16.04/1000.
      tcrit = 1.91d2
-     stop
+     CALL abort_physiq
   else
      print*,'Variable gas not recognised!'
-     call abort
+     call abort_physiq
   endif
 
@@ -326 +326 @@
            if(ilay.eq.1)then
               print*,'Error in create_profils: Psurf here less than Psurf in RCM!'
-              call abort
+              call abort_physiq
            endif