Changeset 1176 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/conf_gcm.F

Timestamp:

Jun 11, 2009, 10:54:10 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Modif pour la compilation avec fcm sur Vargas SD
Corrections relatives au controle de histins et de l'utilisation des
options INST(X) pour l'appel au routines de IOIPSL FH
Mise en place de diagnostics sur les critères CFL pour l'advection
de traceurs. FH
Controle dans les .def de la dépendance verticale de l'efficacite
de la diffusion. Actif pour le moment uniquement avec ok_strato=y et llm=39. FH
LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3d/conf_gcm.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/conf_gcm.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 c
@@ -38 +38 @@
 #include "serre.h"
 #include "comdissnew.h"
+#include "comconst.h"
 
 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
@@ -267 +268 @@
        tetatemp  = 7200.
        CALL getin('tetatemp',tetatemp )
+
+! Parametres controlant la variation sur la verticale des constantes de
+! dissipation.
+! Pour le moment actifs uniquement dans la version a 39 niveaux
+! avec ok_strato=y
+
+       dissip_factz=4.
+       dissip_deltaz=10.
+       dissip_zref=30.
+       CALL getin('dissip_factz',dissip_factz )
+       CALL getin('dissip_deltaz',dissip_deltaz )
+       CALL getin('dissip_zref',dissip_zref )
 
 !Config  Key  = coefdis