Changeset 937 for LMDZ4/trunk/libf/phylmd/physiq.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/phylmd/physiq.F (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -702 +702 @@
 c$OMP THREADPRIVATE(qcondc)
 cym      SAVE qcondc 
-      REAL,allocatable,save :: ema_work1(:, :), ema_work2(:, :)
-c$OMP THREADPRIVATE(ema_work1,ema_work2)
-cym      SAVE ema_work1, ema_work2
       REAL wdn(klon), tdn(klon), qdn(klon)
 
@@ -1430 +1427 @@
       allocate( Ma(klon,klev) )
       allocate( qcondc(klon,klev))  
-      allocate( ema_work1(klon, klev), ema_work2(klon, klev))
       allocate( wd(klon) )
       allocate( pfrac_impa(klon,klev))
@@ -1512 +1508 @@
         ratqs(:,:)=0.
         sollw(:)=0.
-        ema_work1(:,:)=0.
-        ema_work2(:,:)=0.
 cym Attention pbase pas initialise dans concvl !!!!
         pbase(:)=0
@@ -1640 +1634 @@
      .       zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro,tabcntr0,
      .       t_ancien, q_ancien, ancien_ok, rnebcon, ratqs,clwcon,
-     .       pbl_tke, zmax0, f0)
+     .       pbl_tke, zmax0, f0, ema_work1, ema_work2)
 
 
@@ -3759 +3753 @@
      .      zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro,
      .      t_ancien, q_ancien, rnebcon, ratqs, clwcon,
-     .      pbl_tke, zmax0, f0)
+     .      pbl_tke, zmax0, f0, ema_work1, ema_work2)
          open(97,form="unformatted",file="finbin")
          write(97) u_seri,v_seri,t_seri,q_seri