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 |
|
|
114 |
abort_gcm(modname = "conf_gcm", & |
abort_gcm(modname = "conf_gcm", & |
115 |
message = 'ok_guide day_step iperiod', ierr = 1) |
message = 'ok_guide day_step iperiod', ierr = 1) |
116 |
|
|
117 |
IF (grossismx < 1.) THEN |
call read_serre |
|
PRINT *, 'Error: grossismx < 1' |
|
|
STOP 1 |
|
|
ELSE |
|
|
alphax = 1. - 1. / grossismx |
|
|
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 |
|
|