Changeset 973 for LMDZ4/trunk/libf/phylmd/cv3_routines.F

Timestamp:

Jun 19, 2008, 12:25:57 PM (16 years ago)

Author:

lmdzadmin

Message:

Initialisations : concvl, cv3_routines, cva_driver, physiq
Correction bug i0 + ajout tests : cv3p1_closure
Ajout sorties : ale, alp, cin, wape
Ajout variables wake : phyetat0, phyredem
IM

File:

• LMDZ4/trunk/libf/phylmd/cv3_routines.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/cv3_routines.F

@@ -2464 +2464 @@
       enddo
 
-! FH WARNING a modifier :
-      cpinv=0.
 
        do j=2,nl
       IF (iflag_mix .gt. 0) then
         do il=1,ncum
+c FH WARNING a modifier :
+      cpinv=0.
+c     cpinv=1.0/cpn(il,1)
          if (j.le.inb(il) .and. iflag(il) .le. 1) then
          if (cvflag_grav) then