Changeset 733 for LMDZ4/branches/V3_test/libf/dyn3d/etat0_netcdf.F

Timestamp:

Nov 10, 2006, 3:39:12 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Petit nettoyage
YM/LF

File:

• LMDZ4/branches/V3_test/libf/dyn3d/etat0_netcdf.F (modified) (4 diffs)

LMDZ4/branches/V3_test/libf/dyn3d/etat0_netcdf.F

@@ -8 +8 @@
       USE startvar
       USE ioipsl
+      USE dimphy
       !
       IMPLICIT NONE
@@ -23 +24 @@
 #include "comconst.h"
 #include "indicesol.h"
-#include "dimphy.h"
+c#include "dimphy.h"
 #include "dimsoil.h"
 #include "temps.h"
@@ -671 +672 @@
       rnebcon = 0.0
       ratqs = 0.0
-      run_off_lic_0 = 0.0
+      run_off_lic_0 = 0.0 
 
 cIM   call phyredem("startphy.nc",phystep,radpas, co2_ppm, solaire,
+    
       call phyredem("startphy.nc",phystep,radpas,
      $    latfi, lonfi, pctsrf, tsolsrf, tsoil, tslab, seaice, 
@@ -683 +685 @@
      $    t_ancien, q_ancien, rnebcon, ratqs, clwcon,
      $    run_off_lic_0)
-      print*,'sortie phyredem'
 
 C     Sortie Visu pour les champs dynamiques