source: trunk/LMDZ.COMMON/libf/dyn3dpar/conf_planete.F90 @ 134

Last change on this file since 134 was 52, checked in by aslmd, 14 years ago

chantier principal du commit
 --- version LMDZ5 qui fonctionne pour tests geantes
--- prochaine etape, tests sur GNOME

M libf/dyn3dpar/comconst.h
M libf/dyn3dpar/conf_planete.F90
ajout du flux de chaleur intrinseque: ihf
[par defaut il est nul]

M libf/dyn3dpar/gcm.F
changements cosmetiques
[pour diff plus efficace avec version non par]

M libf/dyn3dpar/iniacademic.F
possibilites de variations latitudinales
de temperature plus originales
[seulement pour planet_type.eq."giant"]

M libf/dyn3dpar/leapfrog_p.F

  1. ajout d'une tendance causee par le flux de chaleur intrinseque

(seulement prise en compte si planet_type.eq."giant")

  1. correction bugs problematiques a la compilation et au run

--> probleme dans les boucles (l'indice etait llm et non l)
--> ajout de SAVE pour les variables paralleles
--> correction des declarations de variables manquantes

M libf/dyn3dpar/calfis_p.F
correction d'une deuxieme parenthese manquante sur ALLOCATE(zteta(klon,llm))

M libf/phylmd/regr_lat_time_climoz_m.F90
erreur a la compilation avec FCM... il s'agit d'une routine terrestre
il y a visiblement un probleme avec o3_in
en attendant, les lignes sont commentees avec !AS

A deftanks/giant 8 fichiers
ajout de fichiers de configuration typiques pour les geantes gazeuses
[experimental pour le moment... on est loin de jupiter]

--> comparaisons entre un run ancien [avec LMDZ5-dev sur SVN ipsl sans cp var]
et run avec version sur ce SVN planeto donne des resultats similaires

pratique

A ioipsl
A ioipsl/compile_ioipsl.bash
A ioipsl/util 16 fichiers
script et utilitaire pour compiler IOIPSL de facon independante
il suffit d'executer ./compile_ioipsl.bash

M arch/arch-AMD64_CICLAD.path
si IOIPSL a ete compile avec la methode precedente, les bons
PATH sont definis dans ce fichier [le NETCDF est aussi OK]

M 000-README-svn
mise a jour options "svn status"

M mars/libf/phymars/meso_callkeys.h
mise a jour mineure du fichier
[ecri_phys etait defini mais pas dans la liste]
File size: 1.5 KB
Line 
1!
2! $Id$
3!
4SUBROUTINE conf_planete
5!
6#ifdef CPP_IOIPSL
7USE IOIPSL
8#else
9! if not using IOIPSL, we still need to use (a local version of) getin
10USE ioipsl_getincom
11#endif
12IMPLICIT NONE
13!
14!
15!   Declarations :
16!   --------------
17#include "dimensions.h"
18#include "comconst.h"
19#include "comvert.h"
20!
21!   local:
22!   ------
23
24! ---------------------------------------------
25! Initialisations de constantes de la dynamique
26! ---------------------------------------------
27! Pi
28pi=2.*asin(1.)
29
30!Reference surface pressure (Pa)
31preff=101325.
32CALL getin('preff', preff)
33! Reference pressure at which hybrid coord. become purely pressure
34! pa=50000.
35pa=preff/2.
36CALL getin('pa', pa)
37! Gravity
38g=9.80665
39CALL getin('g',g)
40! Molar mass of the atmosphere
41molmass = 28.9644
42CALL getin('molmass',molmass)
43! kappa=R/Cp et Cp     
44kappa = 2./7.
45CALL getin('kappa',kappa)
46cpp=8.3145/molmass/kappa*1000.
47CALL getin('cpp',cpp)
48! Radius of the planet
49rad = 6371229.
50CALL getin('radius',rad)
51! Length of a standard day (s)
52daysec=86400.
53CALL getin('daysec',daysec)
54! Rotation rate of the planet:
55! Length of a solar day, in standard days
56daylen = 1.
57CALL getin('daylen',daylen)
58! Number of days (standard) per year:
59year_day = 365.25
60CALL getin('year_day',year_day)
61! Omega
62! omeg=2.*pi/86400.
63omeg=2.*pi/daysec*(1./daylen+1./year_day)
64CALL getin('omeg',omeg)
65
66! Intrinsic heat flux [default is none]
67! Aymeric -- for giant planets
68! [matters only if planet_type="giant"]
69ihf = 0.
70CALL getin('ihf',ihf)
71
72
73
74END SUBROUTINE conf_planete
Note: See TracBrowser for help on using the repository browser.