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

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

@@ -587 +587 @@
            if (is_master) write(*,*) "taking dynamics day for physics:  ",day_ini
            day_ini=pday
-!ym           stop
+!ym           CALL abort_physiq
          endif
 
@@ -670 +670 @@
               if (is_master) write(*,*) "physiq: Error! No num_run file!"
               if (is_master) write(*,*) " (which is needed for sourceevol option)"
-              stop
+              CALL abort_physiq
             endif
             read(128,*) num_run 
@@ -797 +797 @@
         print*,'I need values for flatten, J2, Rmean and MassPlanet to compute glat (else set oblate=.false.)'
 
-        call abort
+        call abort_physiq
         else
 
@@ -940 +940 @@
               if(kastprof)then
                  print*,'kastprof should not = true here'
-                 call abort
+                 call abort_physiq
               endif
               if(water) then
@@ -1287 +1287 @@
          if (.not.tracer) then
             print*,'We need a CO2 ice tracer to condense CO2'
-            call abort
+            call abort_physiq
          endif
          call condense_cloud(ngrid,nlayer,nq,ptimestep,   &
@@ -1392 +1392 @@
                   call planetwide_sumval(cpp*massarea(:,:)*dtlscale(:,:)/totarea_planet,dEtot)
 !                 if(isnan(dEtot)) then ! NB: isnan() is not a standard function...
-!                    print*,'Nan in largescale, abort'
-!                     STOP
+!                    print*,'Nan in largescale, abort_physiq'
+!                     CALL abort_physiq
 !                 endif
                   if (is_master) print*,'In largescale atmospheric energy change =',dEtot,' W m-2'
@@ -1794 +1794 @@
                print*,'temp=   ',pt(ig,:)
                print*,'pplay=  ',pplay(ig,:)
-               call abort
+               call abort_physiq
             endif
          end do
@@ -1844 +1844 @@
          print*,'As testradtimes enabled,'
          print*,'exiting physics on first call'
-         call abort
+         call abort_physiq
       endif