Changeset 1322 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3_cine.F

Timestamp:

Mar 12, 2010, 11:54:11 AM (14 years ago)

Author:

Laurent Fairhead

Message:

Improvements concerning wake parametrisation (from JYG, NR, IT, with more to come).
Alp_offset is read in form physiq.def file

---

Améliorations à la paramétrisation des poches froides (de JYG, NR, IT, d'autres
sont à venir)
Alp_offset est rajouté à la liste des paramètres lus dans physiq.def

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3_cine.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3_cine.F

@@ +1 @@
+!
+! $Id$
+!
         SUBROUTINE cv3_cine(nloc,ncum,nd,icb,inb
      :                      ,pbase,plcl,p,ph,tv,tvp
-     :                      ,cina,cinb)
+     :                      ,cina,cinb,plfc)
 
 ***************************************************************
@@ -26 +29 @@
 c
 c output
-      real cina(nloc),cinb(nloc)
+      real cina(nloc),cinb(nloc),plfc(nloc)
 c
 c local variables
@@ -34 +37 @@
       logical lswitch(nloc),lswitch1(nloc),lswitch2(nloc)
       logical exist_lfc(nloc)
-      real plfc(nloc)
       real dpmax
       real deltap,dcin