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 |
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 |