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

Timestamp:

Mar 31, 2008, 5:59:23 PM (16 years ago)

Author:

lmdzadmin

Message:

Ajout variables convection (ema_work1, ema_work2) dans startphy.nc
IM

File:

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

LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F

@@ -121 +121 @@
       REAL, DIMENSION(klon,klev,nbsrf) :: pbl_tke ! turb kinetic energy
       REAL, DIMENSION(klon) :: zmax0, f0 
+      REAL, DIMENSION(klon,klev) :: ema_work1, ema_work2
       REAL :: dummy(klon, nbsrf)
       !
@@ -690 +691 @@
       zmax0(:) = 40.
       f0(:) = 1.e-5
+      ema_work1(:,:) = 0.
+      ema_work2(:,:) = 0.
 
       call fonte_neige_init(run_off_lic_0)
@@ -702 +705 @@
      $    zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel, 
      $    t_ancien, q_ancien, rnebcon, ratqs, clwcon, pbl_tke,
-     $    zmax0, f0 )
+     $    zmax0, f0, ema_work1, ema_work2 )