Changeset 3814 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_old.F90

Timestamp:

Apr 15, 2015, 6:49:07 PM (10 years ago)

Author:

ymipsl

Message:

remove all dynamic dependency in LMDZ physics except for the include "dimensions.h"

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_old.F90 (modified) (6 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_old.F90

@@ -520 +520 @@
       IF (fracd(ig,l)<0.1) THEN
         abort_message = 'fracd trop petit'
-        CALL abort_gcm(modname, abort_message, 1)
+        CALL abort_physic(modname, abort_message, 1)
       ELSE
         ! vitesse descendante "diagnostique"
@@ -1747 +1747 @@
         PRINT *, 'THERMCELL PB ig=', ig, '   l=', l
         abort_message = 'THERMCELL PB'
-        CALL abort_gcm(modname, abort_message, 1)
+        CALL abort_physic(modname, abort_message, 1)
       END IF
       ! if ((zw2(ig,l+1).gt.1.e-10).and.(zw2(ig,l).gt.1.e-10).and.
@@ -2051 +2051 @@
       IF (fracd(ig,l)<0.1 .AND. (test(ig)==1)) THEN
         abort_message = 'fracd trop petit'
-        CALL abort_gcm(modname, abort_message, 1)
+        CALL abort_physic(modname, abort_message, 1)
       ELSE
         ! vitesse descendante "diagnostique"
@@ -3101 +3101 @@
       IF (fracd(ig,l)<0.1) THEN
         abort_message = 'fracd trop petit'
-        CALL abort_gcm(modname, abort_message, 1)
+        CALL abort_physic(modname, abort_message, 1)
       ELSE
         ! vitesse descendante "diagnostique"
@@ -3906 +3906 @@
       IF (fracd(ig,l)<0.1) THEN
         abort_message = 'fracd trop petit'
-        CALL abort_gcm(modname, abort_message, 1)
+        CALL abort_physic(modname, abort_message, 1)
       ELSE
         ! vitesse descendante "diagnostique"
@@ -5209 +5209 @@
       IF (fracd(ig,l)<0.1) THEN
         abort_message = 'fracd trop petit'
-        CALL abort_gcm(modname, abort_message, 1)
+        CALL abort_physic(modname, abort_message, 1)
       ELSE
         ! vitesse descendante "diagnostique"