Changeset 2373

Timestamp:

Jun 12, 2020, 8:47:17 AM (5 years ago)

Author:

aslmd

Message:

Titan: a couple of calls to abort_gcm remaining in the physics replaced by abort_physic.

File:

• trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90 (modified) (4 diffs)

trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90

@@ -121 +121 @@
           WRITE(*,'((a),I3,(a))') "initracer2:error: Inconsistent number of microphysical tracers &
             &(expected at least 7 tracers,",nmicro," given)"
-          CALL abort_gcm("initracer2", "inconsistent number of tracers", 42)
+          CALL abort_physic("initracer2", "inconsistent number of tracers", 42)
           STOP
         ENDIF
@@ -127 +127 @@
           WRITE(*,'((a),I3,(a))') "initracer2:error: Inconsistent number of microphysical tracers &
             &(expected at least 4 tracers,",nmicro," given)"
-          CALL abort_gcm("initracer2", "inconsistent number of tracers", 42)
+          CALL abort_physic("initracer2", "inconsistent number of tracers", 42)
       ELSE IF  (nmicro > 4) THEN
         WRITE(*,'(a)') "initracer2:info: I was expecting only four tracers, you gave me &
@@ -156 +156 @@
       IF (nchimi .NE. nkim) THEN
         WRITE(*,*) "initracer2:error: Inconsistent number of chemical species given (",nkim," expected)"
-        CALL abort_gcm("initracer2", "inconsistent number of tracers", 42)
+        CALL abort_physic("initracer2", "inconsistent number of tracers", 42)
       ENDIF
       IF (.NOT.ALLOCATED(chimi_indx)) ALLOCATE(chimi_indx(nchimi))
@@ -178 +178 @@
       IF (n .NE. nkim) THEN
         WRITE(*,*) "initracer2:error: Inconsistent number of chemical species given (",nkim," expected)"
-        CALL abort_gcm("initracer2", "inconsistent number of tracers", 42)
+        CALL abort_physic("initracer2", "inconsistent number of tracers", 42)
       ENDIF
     ELSE