50 |
! Auteurs : L. Fairhead, P. Le Van |
! Auteurs : L. Fairhead, P. Le Van |
51 |
! Version du 29/04/97 |
! Version du 29/04/97 |
52 |
|
|
|
! On ne compare pas les paramètres du zoom (grossismx, grossismy, |
|
|
! clon, clat) lus sur le fichier start avec ceux lus dans |
|
|
! une namelist, au début de gcm. Ces paramètres définissent entre |
|
|
! autres la grille et doivent être identiques, sinon il y aura |
|
|
! divergence du gcm. |
|
|
|
|
53 |
use abort_gcm_m, only: abort_gcm |
use abort_gcm_m, only: abort_gcm |
54 |
use comdissnew, only: read_comdissnew |
use comdissnew, only: read_comdissnew |
55 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |