18 |
USE abort_gcm_m, ONLY: abort_gcm |
USE abort_gcm_m, ONLY: abort_gcm |
19 |
use aeropt_m, only: aeropt |
use aeropt_m, only: aeropt |
20 |
use ajsec_m, only: ajsec |
use ajsec_m, only: ajsec |
|
USE calendar, ONLY: ymds2ju |
|
21 |
use calltherm_m, only: calltherm |
use calltherm_m, only: calltherm |
22 |
USE clesphys, ONLY: cdhmax, cdmmax, co2_ppm, ecrit_hf, ecrit_ins, & |
USE clesphys, ONLY: cdhmax, cdmmax, co2_ppm, ecrit_hf, ecrit_ins, & |
23 |
ecrit_mth, ecrit_reg, ecrit_tra, ksta, ksta_ter, ok_kzmin |
ecrit_mth, ecrit_reg, ecrit_tra, ksta, ksta_ter, ok_kzmin |
59 |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
60 |
USE temps, ONLY: annee_ref, day_ref, itau_phy |
USE temps, ONLY: annee_ref, day_ref, itau_phy |
61 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
62 |
|
USE ymds2ju_m, ONLY: ymds2ju |
63 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
64 |
|
|
65 |
logical, intent(in):: lafin ! dernier passage |
logical, intent(in):: lafin ! dernier passage |