Changeset 1127 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/cv3a_compress.F

Timestamp:

Mar 19, 2009, 11:38:04 AM (15 years ago)

Author:

idelkadi

Message:

Corrections sur les wakes et la convection pour surmonter le probleme de l'eau negative

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/cv3a_compress.F (modified) (5 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/cv3a_compress.F

@@ -3 +3 @@
      :    ,plcl1,tnk1,qnk1,gznk1,hnk1,unk1,vnk1
      :    ,wghti1,pbase1,buoybase1
-     :    ,t1,q1,qs1,t1_wake,q1_wake,qs1_wake,u1,v1,gz1,th1,th1_wake
+     :    ,t1,q1,qs1,t1_wake,q1_wake,qs1_wake,s1_wake
+     :    ,u1,v1,gz1,th1,th1_wake
      :    ,tra1
      :    ,h1     ,lv1     ,cpn1   ,p1,ph1,tv1    ,tp1,tvp1,clw1
@@ -12 +13 @@
      o    ,plcl,tnk,qnk,gznk,hnk,unk,vnk
      o    ,wghti,pbase,buoybase
-     o    ,t,q,qs,t_wake,q_wake,qs_wake,u,v,gz,th,th_wake
+     o    ,t,q,qs,t_wake,q_wake,qs_wake,s_wake
+     o    ,u,v,gz,th,th_wake
      o    ,tra
      o    ,h     ,lv     ,cpn    ,p,ph,tv    ,tp,tvp,clw
@@ -39 +41 @@
       real t1(len,nd),q1(len,nd),qs1(len,nd)
       real t1_wake(len,nd),q1_wake(len,nd),qs1_wake(len,nd)
+      real s1_wake(len)
       real u1(len,nd),v1(len,nd)
       real gz1(len,nd),th1(len,nd),th1_wake(len,nd)
@@ -58 +61 @@
       real t(len,nd),q(len,nd),qs(len,nd)
       real t_wake(len,nd),q_wake(len,nd),qs_wake(len,nd)
+      real s_wake(len)
       real u(len,nd),v(len,nd)
       real gz(len,nd),th(len,nd),th_wake(len,nd)
@@ -131 +135 @@
       if(iflag1(i).eq.0)then
       nn=nn+1
+      s_wake(nn)=s1_wake(i)
       iflag(nn)=iflag1(i)
       nk(nn)=nk1(i)