Changeset 1012 for LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F

Timestamp:

Oct 7, 2008, 7:44:32 PM (16 years ago)

Author:

lsce

Message:

• Error in another argument list.
• Added writing in double precision in case of NC_DOUBLE

JG

File:

• LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F

@@ -148 +148 @@
 !      CALL defrun_new(99,.TRUE.,clesphy0)
       CALL conf_gcm( 99, .TRUE. , clesphy0 )
-      call conf_phys( ok_veget, ok_journe, ok_mensuel, ok_instan,       &
-     &                 ok_hf,                                           &
+      call conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf,         &
      &                 solarlong0,seuil_inversion,                      &
      &                 fact_cldcon, facttemps,ok_newmicro,iflag_radia,  &