31 |
ok_kzmin |
ok_kzmin |
32 |
use clesphys2, only: iflag_con, ok_orolf, ok_orodr, nbapp_rad, & |
use clesphys2, only: iflag_con, ok_orolf, ok_orodr, nbapp_rad, & |
33 |
cycle_diurne, new_oliq, soil_model |
cycle_diurne, new_oliq, soil_model |
34 |
|
use clmain_m, only: clmain |
35 |
use comgeomphy |
use comgeomphy |
36 |
use conf_gcm_m, only: raz_date, offline |
use conf_gcm_m, only: raz_date, offline |
37 |
use conf_phys_m, only: conf_phys |
use conf_phys_m, only: conf_phys |
59 |
use radepsi |
use radepsi |
60 |
use radopt |
use radopt |
61 |
use temps, only: itau_phy, day_ref, annee_ref |
use temps, only: itau_phy, day_ref, annee_ref |
62 |
use yoethf |
use yoethf_m |
63 |
use YOMCST, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega |
use SUPHEC_M, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega |
64 |
|
|
65 |
! Declaration des constantes et des fonctions thermodynamiques : |
! Declaration des constantes et des fonctions thermodynamiques : |
66 |
use fcttre, only: thermcep, foeew, qsats, qsatl |
use fcttre, only: thermcep, foeew, qsats, qsatl |
405 |
|
|
406 |
EXTERNAL alboc ! calculer l'albedo sur ocean |
EXTERNAL alboc ! calculer l'albedo sur ocean |
407 |
EXTERNAL ajsec ! ajustement sec |
EXTERNAL ajsec ! ajustement sec |
|
EXTERNAL clmain ! couche limite |
|
408 |
!KE43 |
!KE43 |
409 |
EXTERNAL conema3 ! convect4.3 |
EXTERNAL conema3 ! convect4.3 |
410 |
EXTERNAL fisrtilp ! schema de condensation a grande echelle (pluie) |
EXTERNAL fisrtilp ! schema de condensation a grande echelle (pluie) |
1035 |
|
|
1036 |
fder = dlw |
fder = dlw |
1037 |
|
|
1038 |
|
! Couche limite: |
1039 |
CALL clmain(pdtphys, itap, date0, pctsrf, pctsrf_new, & |
CALL clmain(pdtphys, itap, date0, pctsrf, pctsrf_new, & |
1040 |
t_seri, q_seri, u_seri, v_seri, & |
t_seri, q_seri, u_seri, v_seri, & |
1041 |
julien, rmu0, co2_ppm, & |
julien, rmu0, co2_ppm, & |