Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

Timestamp:

Dec 10, 2009, 10:02:56 AM (15 years ago)

Author:

Laurent Fairhead

Message:

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3dpar/conf_gcm.F (modified) (9 diffs)

LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 c
@@ -44 +44 @@
 !#include "clesphys.h"
 #include "iniprint.h"
+#include "temps.h"
+#include "comconst.h"
 
 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
@@ -121 +123 @@
       CALL getin('planet_type',planet_type)
 
+!Config  Key  = calend
+!Config  Desc = type de calendrier utilise
+!Config  Def  = earth_360d
+!Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
+!Config         
+      calend = 'earth_360d'
+      CALL getin('calend', calend)
+
 !Config  Key  = dayref
 !Config  Desc = Jour de l'etat initial
@@ -278 +288 @@
        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 )
+
+       iflag_top_bound=1
+       tau_top_bound=1.e-5
+       CALL getin('iflag_top_bound',iflag_top_bound)
+       CALL getin('tau_top_bound',tau_top_bound)
+
+!
 !Config  Key  = coefdis
 !Config  Desc = coefficient pour gamdissip
@@ -569 +597 @@
       write(lunout,*)' Configuration des parametres du gcm: '
       write(lunout,*)' planet_type = ', planet_type
+      write(lunout,*)' calend = ', calend
       write(lunout,*)' dayref = ', dayref
       write(lunout,*)' anneeref = ', anneeref
@@ -590 +619 @@
       write(lunout,*)' read_start = ', read_start
       write(lunout,*)' iflag_phys = ', iflag_phys
+      write(lunout,*)' iphysiq = ', iphysiq
       write(lunout,*)' clonn = ', clonn 
       write(lunout,*)' clatt = ', clatt
@@ -776 +806 @@
 !Config  Desc = activation de la version strato
 !Config  Def  = .FALSE.
-!Config  Help = active la version stratosph�rique de LMDZ de F. Lott
+!Config  Help = active la version stratosphérique de LMDZ de F. Lott
 
       ok_strato=.FALSE.
@@ -792 +822 @@
       write(lunout,*)' Configuration des parametres du gcm: '
       write(lunout,*)' planet_type = ', planet_type
+      write(lunout,*)' calend = ', calend
       write(lunout,*)' dayref = ', dayref
       write(lunout,*)' anneeref = ', anneeref
@@ -813 +844 @@
       write(lunout,*)' read_start = ', read_start
       write(lunout,*)' iflag_phys = ', iflag_phys
-      write(lunout,*)' clon = ', clon 
+      write(lunout,*)' iphysiq = ', iphysiq
+      write(lunout,*)' clon = ', clon
       write(lunout,*)' clat = ', clat
       write(lunout,*)' grossismx = ', grossismx