| 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 |
!------------------------------------------------ |
!------------------------------------------------ |
Parent Directory
| 
Revision Log
| 
Patch