Changeset 1785 for LMDZ5/trunk/libf/phylmd/phys_state_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_state_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -361 +361 @@
 !======================================================================
 SUBROUTINE phys_state_var_init(read_climoz)
-use dimphy
+USE dimphy
 USE control_mod
-use aero_mod
-use infotrac, ONLY : nbtr
+USE aero_mod
+USE infotrac, ONLY : nbtr
+USE indice_sol_mod
 IMPLICIT NONE
 
@@ -375 +376 @@
 ! climatology and the daylight climatology
 
-#include "indicesol.h"
       ALLOCATE(rlat(klon), rlon(klon))
       ALLOCATE(pctsrf(klon,nbsrf))
@@ -522 +522 @@
 !======================================================================
 SUBROUTINE phys_state_var_end
-use dimphy
-use control_mod
+USE dimphy
+USE control_mod
+USE indice_sol_mod
 IMPLICIT NONE
-#include "indicesol.h"
 
       deallocate(rlat, rlon, pctsrf, ftsol, falb1, falb2)