Changeset 1785 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 16, 2013, 11:22:04 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Transformation de l'include indicesol.h en un module indice_sol_mod et modification des appels dans tous les fichiers concernés.
Aucun changement des résultats ni des sorties du modèle vs 1784.
UG

...................................................

Replacement of the indicesol.h include by a module named indice_sol_mod. Modification of the calls in every affected files.
Results and outputs of simulations are unchanged in comparison with rev 1784.
UG

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -191 +191 @@
 !======================================================================
 SUBROUTINE phys_local_var_init
-use dimphy
-use infotrac, ONLY : nbtr
+USE dimphy
+USE infotrac, ONLY : nbtr
 USE aero_mod
+USE indice_sol_mod
 
 IMPLICIT NONE
-#include "indicesol.h"
       allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
       allocate(u_seri(klon,klev),v_seri(klon,klev))
@@ -283 +283 @@
 !======================================================================
 SUBROUTINE phys_local_var_end
-use dimphy
+USE dimphy
+USE indice_sol_mod
 IMPLICIT NONE
-#include "indicesol.h"
       deallocate(t_seri,q_seri,ql_seri,qs_seri)
       deallocate(u_seri,v_seri)