Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/limit_netcdf.F90

Timestamp:

Jul 18, 2013, 10:20:28 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/limit_netcdf.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/limit_netcdf.F90

@@ -21 +21 @@
 !-------------------------------------------------------------------------------
   USE control_mod
+  USE indice_sol_mod
 #ifdef CPP_EARTH
   USE dimphy
@@ -50 +51 @@
 #include "comgeom2.h"
 #include "comconst.h"
-#include "indicesol.h"
 
 !--- INPUT NETCDF FILES NAMES --------------------------------------------------
@@ -276 +276 @@
   USE phys_state_var_mod, ONLY : pctsrf
   USE control_mod
-  use pchsp_95_m, only: pchsp_95
-  use pchfe_95_m, only: pchfe_95
-  use arth_m, only: arth
+  USE pchsp_95_m, only: pchsp_95
+  USE pchfe_95_m, only: pchfe_95
+  USE arth_m, only: arth
+  USE indice_sol_mod
 
   IMPLICIT NONE
@@ -284 +285 @@
 #include "paramet.h"
 #include "comgeom2.h"
-#include "indicesol.h"
 #include "iniprint.h"
 !-----------------------------------------------------------------------------