Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/fisrtilp.F

Timestamp:

Aug 17, 2006, 5:41:51 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/fisrtilp.F (modified) (9 diffs)

LMDZ4/branches/V3_test/libf/phylmd/fisrtilp.F

@@ -10 +10 @@
 
 c
+      USE dimphy
       IMPLICIT none
 c======================================================================
@@ -18 +19 @@
 c======================================================================
 c======================================================================
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 #include "YOMCST.h"
 #include "tracstoke.h"
@@ -90 +91 @@
       LOGICAL appel1er
       SAVE appel1er
+c$OMP THREADPRIVATE(appel1er)
 c
 c---------------------------------------------------------------
@@ -99 +101 @@
       REAL a_tr_sca(4)
       save a_tr_sca
+c$OMP THREADPRIVATE(a_tr_sca)
 c
 c Variables intermediaires
@@ -110 +113 @@
       REAL zlh_solid(klon), zm_solid
 cIM 
-      INTEGER klevm1
+cym      INTEGER klevm1
 c---------------------------------------------------------------
 c
@@ -210 +213 @@
 c
 cIM : klevm1
-      klevm1=klev-1
+cym      klevm1=klev-1
       DO 9999 k = klev, 1, -1
 c
@@ -269 +272 @@
      .                            /RG/dtime
 
-c pour la glace, on réévapore toute la précip dans la couche du dessous
+c pour la glace, on r�vapore toute la pr�ip dans la couche du dessous
 c la glace venant de la couche du dessus est simplement dans la couche
 c du dessous.
@@ -322 +325 @@
 c   zqn   : eau totale dans le nuage
 c   zcond : eau condensee moyenne dans la maille.
-c           on prend en compte le réchauffement qui diminue la partie condensee
+c           on prend en compte le r�hauffement qui diminue la partie condensee
 c
 c   Version avec les raqts
@@ -427 +430 @@
             zct(i)=1./cld_tau_lsc
          endif
-c  quantité d'eau à élminier.
+c  quantit�d'eau ��minier.
          zchau(i) = zct(i)*dtime/FLOAT(ninter) * zoliq(i)
      .         *(1.0-EXP(-(zoliq(i)/zneb(i)/zcl(i))**2)) *(1.-zfice(i))