Changeset 762 for LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F

Timestamp:

Jun 4, 2007, 3:34:26 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F (modified) (5 diffs)

LMDZ4/trunk/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"
@@ -510 +511 @@
 C verif que somme des sous surface = 1
 C
-      ji=count(abs(sum(pctsrf(1 : klon, 1 : nbsrf), dim = 2) - 1.0 ) 
+      ji=count( (abs( sum(pctsrf(1 : klon, 1 : nbsrf),dim=2))-1.0) 
      $    .GT. EPSFRA)
       IF (ji .NE. 0) THEN
@@ -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