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 |
75 |
use serre, only: clon, clat, grossismx, grossismy, alphax, alphay, & |
use serre, only: read_serre |
|
dzoomx, dzoomy, taux, tauy |
|
76 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
77 |
|
|
78 |
namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, & |
namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, & |
79 |
iperiod, iapp_tracvl, iconser, iecri, periodav, & |
iperiod, iapp_tracvl, iconser, iecri, periodav, iphysiq, offline |
|
iphysiq, clon, clat, grossismx, grossismy, dzoomx, dzoomy, taux, & |
|
|
tauy, offline |
|
80 |
|
|
81 |
namelist /iniprint_nml/prt_level |
namelist /iniprint_nml/prt_level |
82 |
|
|
110 |
'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', & |
'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', & |
111 |
ierr = 1) |
ierr = 1) |
112 |
|
|
113 |
IF (grossismx < 1.) THEN |
if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call & |
114 |
PRINT *, 'Error: grossismx < 1' |
abort_gcm(modname = "conf_gcm", & |
115 |
STOP 1 |
message = 'ok_guide day_step iperiod', ierr = 1) |
116 |
ELSE |
|
117 |
alphax = 1. - 1. / grossismx |
call read_serre |
|
ENDIF |
|
|
IF (grossismy < 1.) THEN |
|
|
PRINT *, 'Error: grossismy < 1' |
|
|
STOP 1 |
|
|
ELSE |
|
|
alphay = 1. - 1. / grossismy |
|
|
ENDIF |
|
|
PRINT *, 'alphax = ', alphax |
|
|
PRINT *, 'alphay = ', alphay |
|
118 |
|
|
119 |
END SUBROUTINE conf_gcm |
END SUBROUTINE conf_gcm |
120 |
|
|