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

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

@@ -21 +21 @@
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl
   USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy
-  USE infotrac, only: nbtr, type_trac, tname, niadv
+  USE infotrac_phy, only: nbtr, type_trac, tname, niadv
   USE traclmdz_mod,    ONLY : traclmdz_from_restart
   USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl, co2_send
   USE indice_sol_mod, only: nbsrf, is_ter, epsfra, is_lic, is_oce, is_sic
   USE ocean_slab_mod, ONLY: tslab, seaice, tice, ocean_slab_init
+  USE temps_phy_mod
 
   IMPLICIT none
@@ -36 +37 @@
   include "dimsoil.h"
   include "clesphys.h"
-  include "temps.h"
   include "thermcell.h"
   include "compbl.h"
@@ -211 +211 @@
         IF (nsrf.GT.99) THEN
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str2, '(i2.2)') nsrf
@@ -248 +248 @@
         IF (isw.GT.99 .AND. nsrf.GT.99) THEN
            PRINT*, "Trop de bandes SW ou sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str7, '(i2.2, "srf", i2.2)') isw, nsrf
@@ -278 +278 @@
         IF (isoil.GT.99 .AND. nsrf.GT.99) THEN
            PRINT*, "Trop de couches ou sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str7, '(i2.2, "srf", i2.2)') isoil, nsrf
@@ -303 +303 @@
         IF (nsrf.GT.99) THEN
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str2, '(i2.2)') nsrf
@@ -358 +358 @@
         IF (nsrf.GT.99) THEN
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str2, '(i2.2)') nsrf
@@ -396 +396 @@
         IF (nsrf.GT.99) THEN
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str2, '(i2.2)') nsrf
@@ -533 +533 @@
         IF (nsrf.GT.99) THEN
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str2, '(i2.2)') nsrf
@@ -570 +570 @@
         IF (nsrf.GT.99) THEN
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str2, '(i2.2)') nsrf
@@ -695 +695 @@
         IF (nsrf.GT.99) THEN
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyetat0", "", 1)
+           call abort_physic("phyetat0", "", 1)
         ENDIF
         WRITE(str2, '(i2.2)') nsrf
@@ -715 +715 @@
       IF (nsrf.GT.99) THEN
         PRINT*, "Trop de sous-mailles"
-        call abort_gcm("phyetat0", "", 1)
+        call abort_physic("phyetat0", "", 1)
       ENDIF
       WRITE(str2,'(i2.2)') nsrf
@@ -734 +734 @@
        IF (nsrf.GT.99) THEN
          PRINT*, "Trop de sous-mailles"
-         call abort_gcm("phyetat0", "", 1)
+         call abort_physic("phyetat0", "", 1)
        ENDIF
        WRITE(str2,'(i2.2)') nsrf
@@ -923 +923 @@
      IF (nbsrf.GT.99) THEN
         WRITE(lunout,*) "Trop de sous-mailles"
-        call abort_gcm("phyetat0", "", 1)
+        call abort_physic("phyetat0", "", 1)
      ENDIF