Changeset 2221 for LMDZ5/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

Timestamp:

Mar 9, 2015, 7:38:03 AM (10 years ago)

Author:

Ehouarn Millour

Message:

Some cleanup: remove (unused) clesph0 from dynamics.
EM

File:

• LMDZ5/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

@@ -31 +31 @@
   INTEGER out_latudim,out_latvdim,out_dim(3)
   INTEGER out_levdim
-
-  INTEGER, PARAMETER :: longcles = 20
-  REAL  clesphy0(longcles)
 
   INTEGER start(4),COUNT(4)
@@ -60 +57 @@
   pa= 50000.
 
-  CALL conf_gcm( 99, .TRUE. , clesphy0 )
+  CALL conf_gcm( 99, .TRUE. )
   CALL iniconst
   CALL inigeom