| 38 |
USE dimphy, ONLY: klon |
USE dimphy, ONLY: klon |
| 39 |
USE dimsoil, ONLY: nsoilmx |
USE dimsoil, ONLY: nsoilmx |
| 40 |
use drag_noro_m, only: drag_noro |
use drag_noro_m, only: drag_noro |
| 41 |
|
use dynetat0_m, only: day_ref, annee_ref |
| 42 |
USE fcttre, ONLY: foeew, qsatl, qsats, thermcep |
USE fcttre, ONLY: foeew, qsatl, qsats, thermcep |
| 43 |
use fisrtilp_m, only: fisrtilp |
use fisrtilp_m, only: fisrtilp |
| 44 |
USE hgardfou_m, ONLY: hgardfou |
USE hgardfou_m, ONLY: hgardfou |
| 58 |
use readsulfate_preind_m, only: readsulfate_preind |
use readsulfate_preind_m, only: readsulfate_preind |
| 59 |
use sugwd_m, only: sugwd |
use sugwd_m, only: sugwd |
| 60 |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
| 61 |
USE temps, ONLY: annee_ref, day_ref, itau_phy |
USE temps, ONLY: itau_phy |
| 62 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
| 63 |
USE ymds2ju_m, ONLY: ymds2ju |
USE ymds2ju_m, ONLY: ymds2ju |
| 64 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
| 681 |
! Initialisation des sorties |
! Initialisation des sorties |
| 682 |
|
|
| 683 |
call ini_histins(dtphys, ok_instan, nid_ins) |
call ini_histins(dtphys, ok_instan, nid_ins) |
| 684 |
CALL ymds2ju(annee_ref, 1, int(day_ref), 0., date0) |
CALL ymds2ju(annee_ref, 1, day_ref, 0., date0) |
| 685 |
! Positionner date0 pour initialisation de ORCHIDEE |
! Positionner date0 pour initialisation de ORCHIDEE |
| 686 |
print *, 'physiq date0: ', date0 |
print *, 'physiq date0: ', date0 |
| 687 |
ENDIF test_firstcal |
ENDIF test_firstcal |
Parent Directory
| 
Revision Log
| 
Patch