Changeset 1785 for LMDZ5/trunk/libf/phylmd/surf_ocean_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/surf_ocean_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -25 +25 @@
   USE ocean_slab_mod, ONLY   : ocean_slab_noice
   USE ocean_cpl_mod, ONLY    : ocean_cpl_noice
+  USE indice_sol_mod
 !
 ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 
 ! slab or couple). The calculations of albedo and rugosity for the ocean surface are 
 ! done in here because they are identical for the different modes of ocean. 
-!
-    INCLUDE "indicesol.h"
+
+
     INCLUDE "YOMCST.h"