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

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

@@ -117 +117 @@
      write(*,*) '   )'
      write(*,*) ' ... might as well stop here ...'
-     stop
+     CALL abort_physiq
   else
      close(90)
@@ -133 +133 @@
      write(*,*) 'Please remove the file and restart the run.'
      write(*,*) 'Runtime parameters are supposed to be in kcm1d.def'
-     stop
+     CALL abort_physiq
   else
      call system('touch run.def')
@@ -144 +144 @@
   if(.not.global1d)then
      print*,'Error, kcm1d must have global1d=.true. in kcm1d.def!'
-     stop
+     CALL abort_physiq
   end if
 
@@ -200 +200 @@
      print*,"In 1D modeling, check_cpp_match is supposed to be F"
      print*,"Please correct callphys.def"
-     stop
+     CALL abort_physiq
   endif
 
@@ -221 +221 @@
            write(*,*) "kcm1d: error reading number of tracers"
            write(*,*) "   (first line of traceur.def) "
-           stop
+           CALL abort_physiq
         endif
         nqtot=nq
@@ -235 +235 @@
            if (ierr.ne.0) then
               write(*,*) 'kcm1d: error reading tracer names...'
-              stop
+              CALL abort_physiq
            endif
         enddo !of do iq=1,nq