42 |
! Help = Choix du schema d'integration temporel. |
! Help = Choix du schema d'integration temporel. |
43 |
! y = pure Matsuno sinon c'est du Matsuno-leapfrog |
! y = pure Matsuno sinon c'est du Matsuno-leapfrog |
44 |
|
|
|
logical:: ok_guide= .FALSE. ! guidage |
|
|
|
|
45 |
INTEGER:: iflag_phys = 1 |
INTEGER:: iflag_phys = 1 |
46 |
! contrôle l'appel ŕ la physique : |
! contrôle l'appel ŕ la physique : |
47 |
! 0 : pas de physique |
! 0 : pas de physique |
70 |
|
|
71 |
namelist /iniprint_nml/prt_level |
namelist /iniprint_nml/prt_level |
72 |
|
|
73 |
namelist /logic_nml/ purmats, ok_guide, iflag_phys |
namelist /logic_nml/ purmats, iflag_phys |
74 |
|
|
75 |
!------------------------------------ |
!------------------------------------ |
76 |
|
|
100 |
'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', & |
'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', & |
101 |
ierr = 1) |
ierr = 1) |
102 |
|
|
|
if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call & |
|
|
abort_gcm(modname = "conf_gcm", & |
|
|
message = 'ok_guide day_step iperiod', ierr = 1) |
|
|
|
|
103 |
END SUBROUTINE conf_gcm |
END SUBROUTINE conf_gcm |
104 |
|
|
105 |
end module conf_gcm_m |
end module conf_gcm_m |