22 |
|
|
23 |
integer:: iecri= 1 ! période d'écriture du fichier "dyn_hist.nc" (en jours) |
integer:: iecri= 1 ! période d'écriture du fichier "dyn_hist.nc" (en jours) |
24 |
|
|
|
integer:: idissip= 10 ! periode de la dissipation (en pas) |
|
|
|
|
25 |
integer:: iphysiq= 5 |
integer:: iphysiq= 5 |
26 |
! Période de la physique en pas de temps de la dynamique. |
! Période de la physique en pas de temps de la dynamique. |
27 |
|
|
49 |
! Auteurs : L. Fairhead, P. Le Van |
! Auteurs : L. Fairhead, P. Le Van |
50 |
! Version du 29/04/97 |
! Version du 29/04/97 |
51 |
|
|
|
! Nouveaux paramètres nitergdiv, nitergrot, niterh, tetagdiv, tetagrot, |
|
|
! tetatemp ajoutés pour la dissipation. |
|
|
|
|
52 |
! On ne compare pas les valeurs des paramètres du zoom, grossismx, |
! On ne compare pas les valeurs des paramètres du zoom, grossismx, |
53 |
! grossismy, clon, clat, fxyhypb lues sur le fichier start avec |
! grossismy, clon, clat, fxyhypb lues sur le fichier start avec |
54 |
! celles passées par run.def, au début du gcm. |
! celles passées par run.def, au début du gcm. |
62 |
use iniprint, only: read_iniprint |
use iniprint, only: read_iniprint |
63 |
|
|
64 |
namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, & |
namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, & |
65 |
iperiod, iapp_tracvl, iconser, iecri, periodav, idissip, & |
iperiod, iapp_tracvl, iconser, iecri, periodav, & |
66 |
iphysiq, clon, clat, grossismx, grossismy, dzoomx, dzoomy, taux, & |
iphysiq, clon, clat, grossismx, grossismy, dzoomx, dzoomy, taux, & |
67 |
tauy, offline |
tauy, offline |
68 |
|
|