Changeset 1719 for trunk/LMDZ.VENUS

Timestamp:

Jul 4, 2017, 12:43:34 PM (7 years ago)

Author:

emillour

Message:

Venus GCM:
Stop using "abort_gcm" in the physics (it is a routine from the dynamics); use "abort_physic" instead.
EM

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• iophy.F90 (modified) (2 diffs)
• physiq_mod.F (modified) (5 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/iophy.F90

@@ -347 +347 @@
     real,allocatable,dimension(:) :: fieldok
 
-    IF (size(field)/=klon) CALL abort_gcm('iophy::histwrite2d','Field first dimension not equal to klon',1)
+    IF (size(field)/=klon) CALL abort_physic('iophy::histwrite2d','Field first dimension not equal to klon',1)
     
     CALL Gather_omp(field,buffer_omp)    
@@ -401 +401 @@
     real,allocatable, dimension(:,:) :: fieldok
 
-    IF (size(field,1)/=klon) CALL abort_gcm('iophy::histwrite3d','Field first dimension not equal to klon',1)
+    IF (size(field,1)/=klon) CALL abort_physic('iophy::histwrite3d','Field first dimension not equal to klon',1)
     nlev=size(field,2)
 

trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

@@ -234 +234 @@
       EXTERNAL suphec    ! initialiser certaines constantes
       EXTERNAL transp    ! transport total de l'eau et de l'energie
-      EXTERNAL abort_gcm
       EXTERNAL printflag
       EXTERNAL zenang
@@ -477 +476 @@
      .                        pdtphys
 c           abort_message='Pas physique n est pas correct '
-c           call abort_gcm(modname,abort_message,1)
+c           call abort_physic(modname,abort_message,1)
 c----------------
 c pour initialiser convenablement le time_counter, il faut tenir compte
@@ -579 +578 @@
      .                      klon
             abort_message='nlon et klon ne sont pas coherents'
-            call abort_gcm(modname,abort_message,1)
+            call abort_physic(modname,abort_message,1)
          ENDIF
          IF (nlev .NE. klev) THEN
@@ -585 +584 @@
      .                       klev
             abort_message='nlev et klev ne sont pas coherents'
-            call abort_gcm(modname,abort_message,1)
+            call abort_physic(modname,abort_message,1)
          ENDIF
 c
@@ -593 +592 @@
            WRITE(lunout,*)"Au minimum 4 appels par jour si cycle diurne"
            abort_message='Nbre d appels au rayonnement insuffisant'
-           call abort_gcm(modname,abort_message,1)
+           call abort_physic(modname,abort_message,1)
          ENDIF
 c