Changeset 1516 for LMDZ5/trunk/libf/phylmd/cv3_routines.F

Timestamp:

May 6, 2011, 4:45:19 PM (14 years ago)

Author:

idelkadi

Message:

• Modification dans physiq.F pour que les pluies stratiformes n'alimentent les pochers que si le spoches occupent plus de 10% de la surface.
• Dans le cas iflag_wake=2, on ne prend en compte les tendances de fisrtilp pour forcer les poches que si les poches existent deja (en controlant si elles couvrent deja 10% de la maille)
• On autorise differentes formulations pour la vitesse a la base de la convection WB (plus precisement au niveau de convection libre LFC, en haut de la zone d'inhibition) en fonction de flag_wb, lu dans conv_param.data

flag_wb=0 : wb=wbmax, wbmax etant lu dans conv_param.data
flag_wb=1 : wb=wbmax/[1+ 500hPa / (ps-p_LFC) ]
Concerne cv3_routines.F cv3param.h cv3p1_closure.F

File:

• LMDZ5/trunk/libf/phylmd/cv3_routines.F (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/cv3_routines.F

@@ -36 +36 @@
       real delt ! timestep (seconds)
 
+
       CHARACTER (LEN=20) :: modname='cv3_param'
       CHARACTER (LEN=80) :: abort_message
@@ -74 +75 @@
 ccc      dttrig = 5.   ! (loose) condition for triggering
       dttrig = 10.   ! (loose) condition for triggering
-      wb = 1.   ! (m/s) adiab updraught speed at LFC (used in cv3p1_closure)
+      flag_wb=0
+      wbmax = 1.   ! (m/s) adiab updraught speed at LFC (used in cv3p1_closure)
 
 c -- rate of approach to quasi-equilibrium:
@@ -97 +99 @@
       READ(99,*,end=9998) spfac
       READ(99,*,end=9998) tau
-      READ(99,*,end=9998) wb
+      READ(99,*,end=9998) flag_wb
+      READ(99,*,end=9998) wbmax
 9998  Continue
       CLOSE(99)
@@ -107 +110 @@
         WRITE(*,*)'spfac=',spfac
         WRITE(*,*)'tau=',tau
-        WRITE(*,*)'wb =',wb
+        WRITE(*,*)'flag_wb =',flag_wb
+        WRITE(*,*)'wbmax =',wbmax
 
 cIM Lecture du fichier ep_param.data