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

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

@@ -11 +11 @@
   USE iostart
   USE traclmdz_mod, ONLY : traclmdz_to_restart
-  USE infotrac
-  USE control_mod
+  USE infotrac_phy
+  USE control_phy_mod
   USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
   USE indice_sol_mod
   USE surface_data
   USE ocean_slab_mod, ONLY : tslab, seaice, tice, fsic
+  USE temps_phy_mod
 
   IMPLICIT none
@@ -26 +27 @@
   include "dimsoil.h"
   include "clesphys.h"
-  include "temps.h"
   include "thermcell.h"
   include "compbl.h"
@@ -133 +133 @@
      ELSE
         PRINT*, "Trop de sous-mailles"
-        call abort_gcm("phyredem", "", 1)
+        call abort_physic("phyredem", "", 1)
      ENDIF
   ENDDO
@@ -150 +150 @@
         ELSE
            PRINT*, "Trop de couches"
-           call abort_gcm("phyredem", "", 1)
+           call abort_physic("phyredem", "", 1)
         ENDIF
      ENDDO
@@ -164 +164 @@
         ELSE
            PRINT*, "Trop de couches"
-           call abort_gcm("phyredem", "", 1)
+           call abort_physic("phyredem", "", 1)
         ENDIF
      ENDDO
@@ -176 +176 @@
      ELSE
         PRINT*, "Trop de sous-mailles"
-        call abort_gcm("phyredem", "", 1)
+        call abort_physic("phyredem", "", 1)
      ENDIF
   END DO
@@ -189 +189 @@
      ELSE
         PRINT*, "Trop de sous-mailles"
-        call abort_gcm("phyredem", "", 1)
+        call abort_physic("phyredem", "", 1)
      ENDIF
   ENDDO
@@ -200 +200 @@
      ELSE
         PRINT*, "Trop de sous-mailles"
-        call abort_gcm("phyredem", "", 1)
+        call abort_physic("phyredem", "", 1)
      ENDIF
   ENDDO
@@ -227 +227 @@
      ELSE
         PRINT*, "Trop de sous-mailles"
-        call abort_gcm("phyredem", "", 1)
+        call abort_physic("phyredem", "", 1)
      ENDIF
   ENDDO
@@ -239 +239 @@
      ELSE
         PRINT*, "Trop de sous-mailles"
-        call abort_gcm("phyredem", "", 1)
+        call abort_physic("phyredem", "", 1)
      ENDIF
   ENDDO
@@ -287 +287 @@
         ELSE
            PRINT*, "Trop de sous-mailles"
-           call abort_gcm("phyredem", "", 1)
+           call abort_physic("phyredem", "", 1)
         ENDIF
      ENDDO