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

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

@@ -89 +89 @@
     USE phys_cal_mod, only : hour
     USE dimphy
-    USE infotrac
+    USE infotrac_phy
     USE mod_grid_phy_lmdz
     USE mod_phys_lmdz_para
@@ -97 +97 @@
     USE tracinca_mod
     USE tracreprobus_mod
-    USE control_mod
+    USE control_phy_mod
     USE indice_sol_mod
 
@@ -107 +107 @@
     INCLUDE "dimensions.h"
     INCLUDE "clesphys.h"
-    INCLUDE "temps.h"
-    INCLUDE "paramet.h"
     INCLUDE "thermcell.h"
     INCLUDE "iniprint.h"
@@ -445 +443 @@
        WRITE(*,*) 'FIRST TIME IN PHYTRAC : pdtphys(sec) = ',pdtphys,'ecrit_tra (sec) = ',ecrit_tra
        ALLOCATE( source(klon,nbtr), stat=ierr)
-       IF (ierr /= 0) CALL abort_gcm('phytrac', 'pb in allocation 1',1)
+       IF (ierr /= 0) CALL abort_physic('phytrac', 'pb in allocation 1',1)
 
        ALLOCATE( aerosol(nbtr), stat=ierr)
-       IF (ierr /= 0) CALL abort_gcm('phytrac', 'pb in allocation 2',1)
+       IF (ierr /= 0) CALL abort_physic('phytrac', 'pb in allocation 2',1)
 
 
@@ -503 +501 @@
 !                ELSE 
 !                   WRITE(lunout,*) 'pb it=', it
-!                   CALL abort_gcm('phytrac','pb it scavenging',1)
+!                   CALL abort_physic('phytrac','pb it scavenging',1)
 !                ENDIF
                 !--test OB 
@@ -539 +537 @@
 
        IF (lessivage.AND.config_inca.EQ.'inca') THEN
-          CALL abort_gcm('phytrac', 'lessivage=T config_inca=inca impossible',1)
+          CALL abort_physic('phytrac', 'lessivage=T config_inca=inca impossible',1)
           STOP
        ENDIF
@@ -740 +738 @@
     ELSE
        !
-       CALL abort_gcm('iflag_vdf_trac', 'cas non prevu',1)
+       CALL abort_physic('iflag_vdf_trac', 'cas non prevu',1)
        !
     END IF ! couche limite