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

Timestamp:

May 24, 2004, 5:31:58 PM (20 years ago)

Author:

lmdzadmin

Message:

Manque le runoff des glaciers dans l'etat initial
LF

File:

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

LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F

@@ -51 +51 @@
       REAL :: pctsrf(klon, nbsrf)
       REAL :: t_ancien(klon,klev), q_ancien(klon,klev)      !
+      REAL :: run_off_lic_0(klon)
       real :: clwcon(klon,klev),rnebcon(klon,klev),ratqs(klon,klev)
       ! declarations pour lecture glace de mer
@@ -659 +660 @@
       rnebcon = 0.0
       ratqs = 0.0
+      run_off_lic_0 = 0.0
 
 cIM   call phyredem("startphy.nc",phystep,radpas, co2_ppm, solaire,
@@ -667 +669 @@
      $    radsol, frugs,  agesno, 
      $    zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel, 
-     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon)
+     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon,
+     $    run_off_lic_0)
       print*,'sortie phyredem'