43 |
! y = pure Matsuno sinon c'est du Matsuno-leapfrog |
! y = pure Matsuno sinon c'est du Matsuno-leapfrog |
44 |
|
|
45 |
logical:: fxyhypb = .TRUE. |
logical:: fxyhypb = .TRUE. |
46 |
! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée |
! fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée |
47 |
! sinusoïdale) |
! sinusoïdale |
48 |
|
|
49 |
logical:: ysinus = .TRUE. |
logical:: ysinus = .TRUE. |
50 |
! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.) |
! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.) |
64 |
! Auteurs : L. Fairhead, P. Le Van |
! Auteurs : L. Fairhead, P. Le Van |
65 |
! Version du 29/04/97 |
! Version du 29/04/97 |
66 |
|
|
67 |
! On ne compare pas les valeurs des paramètres du zoom, grossismx, |
! On ne compare pas les paramètres du zoom (grossismx, grossismy, |
68 |
! grossismy, clon, clat, fxyhypb lues sur le fichier start avec |
! clon, clat, fxyhypb) lus sur le fichier start avec ceux lus dans |
69 |
! celles passées par run.def, au début du gcm. |
! une namelist, au début de gcm. Ces paramètres définissent entre |
70 |
! Ces paramètres définissent entre autres la grille et doivent être |
! autres la grille et doivent être identiques, sinon il y aura |
71 |
! cohérents, sinon il y aura divergence du gcm. |
! divergence du gcm. |
72 |
|
|
73 |
use abort_gcm_m, only: abort_gcm |
use abort_gcm_m, only: abort_gcm |
74 |
use comdissnew, only: read_comdissnew |
use comdissnew, only: read_comdissnew |