41 |
! 1 : physique normale (appel \`a phylmd, phymars...) (default) |
! 1 : physique normale (appel \`a phylmd, phymars...) (default) |
42 |
! 2 : rappel Newtonien pour la temp\'erature + friction au sol |
! 2 : rappel Newtonien pour la temp\'erature + friction au sol |
43 |
|
|
44 |
|
INTEGER, SAVE:: lmt_pas ! number of time steps of "physics" per day |
45 |
|
|
46 |
contains |
contains |
47 |
|
|
48 |
SUBROUTINE conf_gcm |
SUBROUTINE conf_gcm |
51 |
! Version du 29/04/97 |
! Version du 29/04/97 |
52 |
|
|
53 |
use abort_gcm_m, only: abort_gcm |
use abort_gcm_m, only: abort_gcm |
|
use comdissnew, only: read_comdissnew |
|
54 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
55 |
|
|
56 |
namelist /conf_gcm_nml/ raz_date, nday, day_step, iperiod, iapp_tracvl, & |
namelist /conf_gcm_nml/ raz_date, nday, day_step, iperiod, iapp_tracvl, & |
72 |
read(unit=*, nml=logic_nml) |
read(unit=*, nml=logic_nml) |
73 |
write(unit_nml, nml=logic_nml) |
write(unit_nml, nml=logic_nml) |
74 |
|
|
|
call read_comdissnew |
|
|
|
|
75 |
print *, "Enter namelist 'conf_gcm_nml'." |
print *, "Enter namelist 'conf_gcm_nml'." |
76 |
read(unit=*, nml=conf_gcm_nml) |
read(unit=*, nml=conf_gcm_nml) |
77 |
write(unit_nml, nml=conf_gcm_nml) |
write(unit_nml, nml=conf_gcm_nml) |
82 |
IF (MOD(day_step, iphysiq)/= 0) call abort_gcm("conf_gcm", & |
IF (MOD(day_step, iphysiq)/= 0) call abort_gcm("conf_gcm", & |
83 |
'Il faut choisir un nombre de pas par jour multiple de "iphysiq".') |
'Il faut choisir un nombre de pas par jour multiple de "iphysiq".') |
84 |
|
|
85 |
|
lmt_pas = day_step / iphysiq |
86 |
|
print *, 'Number of time steps of "physics" per day: ', lmt_pas |
87 |
|
|
88 |
END SUBROUTINE conf_gcm |
END SUBROUTINE conf_gcm |
89 |
|
|
90 |
end module conf_gcm_m |
end module conf_gcm_m |