Changeset 3814 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/interfoce_lim.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/interfoce_lim.F90 (modified) (13 diffs)

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

@@ -118 +118 @@
         IF (ierr.NE.NF_NOERR) THEN
            abort_message = 'Pb d''ouverture du fichier de conditions aux limites'
-           CALL abort_gcm(modname,abort_message,1)
+           CALL abort_physic(modname,abort_message,1)
         ENDIF
 
@@ -135 +135 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Le champ <FOCE> est absent'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
 #ifdef NC_DOUBLE
@@ -144 +144 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FOCE>'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
            !
@@ -152 +152 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Le champ <FSIC> est absent'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
 #ifdef NC_DOUBLE
@@ -161 +161 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FSIC>'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
            !
@@ -169 +169 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Le champ <FTER> est absent'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
 #ifdef NC_DOUBLE
@@ -178 +178 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FTER>'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
            !
@@ -186 +186 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Le champ <FLIC> est absent'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
 #ifdef NC_DOUBLE
@@ -195 +195 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FLIC>'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
            !
@@ -203 +203 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Le champ <NAT> est absent'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
 #ifdef NC_DOUBLE
@@ -212 +212 @@
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <NAT>'
-              CALL abort_gcm(modname,abort_message,1)
+              CALL abort_physic(modname,abort_message,1)
            ENDIF
 !
@@ -237 +237 @@
         IF (ierr /= NF_NOERR) THEN
            abort_message = 'Le champ <SST> est absent'
-           CALL abort_gcm(modname,abort_message,1)
+           CALL abort_physic(modname,abort_message,1)
         ENDIF
 #ifdef NC_DOUBLE
@@ -246 +246 @@
         IF (ierr /= NF_NOERR) THEN
            abort_message = 'Lecture echouee pour <SST>'
-           CALL abort_gcm(modname,abort_message,1)
+           CALL abort_physic(modname,abort_message,1)
         ENDIF