Changeset 937 for LMDZ4/trunk/libf/phylmd/phyredem.F

Timestamp:

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

Author:

lmdzadmin

Message:

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

File:

• LMDZ4/trunk/libf/phylmd/phyredem.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/phyredem.F

@@ -10 +10 @@
      .           zgam_p,zthe_p,zpic_p,zval_p,rugsrel_p,
      .           t_ancien_p, q_ancien_p, rnebcon_p, ratqs_p, clwcon_p,
-     .           pbl_tke_p, zmax0_p, f0_p)
+     .           pbl_tke_p, zmax0_p, f0_p, ema_work1_p, ema_work2_p)
 
       USE dimphy
@@ -40 +40 @@
       REAL pbl_tke_p(klon,klev,nbsrf)
       REAL zmax0_p(klon), f0_p(klon)
+      REAL ema_work1_p(klon, klev), ema_work2_p(klon, klev)
       REAL tsoil_p(klon,nsoilmx,nbsrf)
       CHARACTER*6 ocean
@@ -75 +76 @@
       REAL pbl_tke(klon_glo,klev,nbsrf)
       REAL zmax0(klon_glo), f0(klon)
+      REAL ema_work1(klon, klev), ema_work2(klon, klev)
       REAL tsoil(klon_glo,nsoilmx,nbsrf)
       REAL tslab(klon_glo), seaice(klon_glo)
@@ -143 +145 @@
       call Gather( zmax0_p,zmax0)
       call Gather( f0_p,f0)
+      call Gather( ema_work1_p, ema_work1)
+      call Gather( ema_work2_p, ema_work2)
       call Gather( tsoil_p,tsoil)
       call Gather( tslab_p,tslab)