23 |
!AA - stockage des moyennes des champs necessaires |
!AA - stockage des moyennes des champs necessaires |
24 |
!AA en mode traceur off-line |
!AA en mode traceur off-line |
25 |
|
|
26 |
|
use abort_gcm_m, only: abort_gcm |
27 |
USE calendar, only: ymds2ju |
USE calendar, only: ymds2ju |
|
USE histwrite_m, only: histwrite |
|
|
USE histcom, only: histsync |
|
|
use dimens_m, only: jjm, iim, llm |
|
|
use indicesol, only: nbsrf, is_ter, is_lic, is_sic, is_oce, & |
|
|
clnsurf, epsfra |
|
|
use dimphy, only: klon, nbtr |
|
|
use conf_gcm_m, only: raz_date, offline |
|
|
use dimsoil, only: nsoilmx |
|
|
use temps, only: itau_phy, day_ref, annee_ref |
|
28 |
use clesphys, only: ecrit_hf, ecrit_ins, ecrit_mth, & |
use clesphys, only: ecrit_hf, ecrit_ins, ecrit_mth, & |
29 |
cdmmax, cdhmax, & |
cdmmax, cdhmax, & |
30 |
co2_ppm, ecrit_reg, ecrit_tra, ksta, ksta_ter, & |
co2_ppm, ecrit_reg, ecrit_tra, ksta, ksta_ter, & |
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 |
|
use iniprint, only: prt_level |
|
|
use abort_gcm_m, only: abort_gcm |
|
|
use YOMCST, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega |
|
34 |
use comgeomphy |
use comgeomphy |
35 |
|
use conf_gcm_m, only: raz_date, offline |
36 |
|
use conf_phys_m, only: conf_phys |
37 |
use ctherm |
use ctherm |
38 |
use phytrac_m, only: phytrac |
use dimens_m, only: jjm, iim, llm |
39 |
use oasis_m |
use dimphy, only: klon, nbtr |
40 |
use radepsi |
use dimsoil, only: nsoilmx |
41 |
use radopt |
use hgardfou_m, only: hgardfou |
42 |
use yoethf |
USE histcom, only: histsync |
43 |
|
USE histwrite_m, only: histwrite |
44 |
|
use indicesol, only: nbsrf, is_ter, is_lic, is_sic, is_oce, & |
45 |
|
clnsurf, epsfra |
46 |
use ini_hist, only: ini_histhf, ini_histday, ini_histins |
use ini_hist, only: ini_histhf, ini_histday, ini_histins |
47 |
|
use iniprint, only: prt_level |
48 |
|
use oasis_m |
49 |
use orbite_m, only: orbite, zenang |
use orbite_m, only: orbite, zenang |
50 |
|
use ozonecm_m, only: ozonecm |
51 |
use phyetat0_m, only: phyetat0, rlat, rlon |
use phyetat0_m, only: phyetat0, rlat, rlon |
|
use hgardfou_m, only: hgardfou |
|
|
use conf_phys_m, only: conf_phys |
|
52 |
use phyredem_m, only: phyredem |
use phyredem_m, only: phyredem |
53 |
|
use phystokenc_m, only: phystokenc |
54 |
|
use phytrac_m, only: phytrac |
55 |
use qcheck_m, only: qcheck |
use qcheck_m, only: qcheck |
56 |
use ozonecm_m, only: ozonecm |
use radepsi |
57 |
|
use radopt |
58 |
|
use temps, only: itau_phy, day_ref, annee_ref |
59 |
|
use yoethf |
60 |
|
use YOMCST, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega |
61 |
|
|
62 |
! Declaration des constantes et des fonctions thermodynamiques : |
! Declaration des constantes et des fonctions thermodynamiques : |
63 |
use fcttre, only: thermcep, foeew, qsats, qsatl |
use fcttre, only: thermcep, foeew, qsats, qsatl |
1917 |
|
|
1918 |
subroutine write_histday |
subroutine write_histday |
1919 |
|
|
1920 |
use grid_change, only: gr_phy_write_3d |
use gr_phy_write_3d_m, only: gr_phy_write_3d |
1921 |
integer itau_w ! pas de temps ecriture |
integer itau_w ! pas de temps ecriture |
1922 |
|
|
1923 |
!------------------------------------------------ |
!------------------------------------------------ |