Changeset 384 for LMDZ.3.3/branches

Timestamp:

Jul 15, 2002, 1:21:02 PM (22 years ago)

Author:

lmdzadmin

Message:

Sauvegardes des variables pour le schema de nuages
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

@@ -48 +48 @@
       REAL :: pctsrf(klon, nbsrf)
       REAL :: t_ancien(klon,klev), q_ancien(klon,klev)      !
+      real :: clwcon(klon,klev),rnebcon(klon,klev),ratqs(klon,klev)
       ! declarations pour lecture glace de mer
       REAL :: rugv(klon)
@@ -653 +654 @@
       frugs(1:klon,is_sic) = 0.001
       fder = 0.0
+      clwcon = 0.0
+      rnebcon = 0.0
+      ratqs = 0.0
 
       call phyredem("startphy.nc",phystep,radpas, co2_ppm, solaire,
@@ -659 +663 @@
      $    radsol, frugs,  agesno, 
      $    zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel, 
-     $    t_ancien, q_ancien)
+     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon)
 
 C     Sortie Visu pour les champs dynamiques