22 CHARACTER(LEN=24),
PARAMETER ::
code=
'TOMAWAC ' 25 CHARACTER(LEN=MAXLENTMPDIR) path 54 INTEGER,
INTENT(IN) :: U_LU, U_LNG, U_COMM
55 LOGICAL,
INTENT(IN) :: U_STD_OUTPUT
56 INTEGER,
INTENT(OUT) :: IERR
82 CHARACTER(LEN=250),
INTENT(IN) :: CAS_FILE
83 CHARACTER(LEN=250),
INTENT(IN) :: DICO_FILE
84 LOGICAL,
INTENT(IN) :: INIT
85 INTEGER,
INTENT(OUT) :: IERR
93 CALL date_and_time(values=
tdeb)
97 CALL print_header(
code,
' ')
120 INTEGER,
INTENT(OUT) :: IERR
154 INTEGER,
INTENT(OUT) :: IERR
176 INTEGER,
INTENT(OUT) :: IERR
196 INTEGER,
INTENT(OUT) :: IERR
201 & inst%MAXLU_WAC,.false.)
208 11
FORMAT(1x,///,1x,
'CORRECT END OF RUN',///)
212 CALL date_and_time(values=
tfin)
subroutine bief_init(CHAINE, NCAR, PINIT)
subroutine, public run_set_config_wac_d(INST, U_LU, U_LNG, U_COMM, U_STD_OUTPUT, IERR)
character(len=24), parameter code
character(len=250), dimension(4, maxkeyword) file_desc
character(len=maxlentmpdir) path
integer, parameter maxkeyword
subroutine, public run_allocation_wac_d(INST, IERR)
subroutine elapse(TDEB, TFIN)
subroutine wac(PART, NIT_ORI)
logical function inclus(C1, C2)
subroutine, public run_read_case_wac_d(INST, CAS_FILE, DICO_FILE, INIT, IERR)
subroutine, public run_init_wac_d(INST, IERR)
integer, dimension(8) tdeb
subroutine lecdon_tomawac(FILE_DESC, PATH, NCAR, CAS_FILE, DICO_FILE)
subroutine bief_open_files(CODE, FILES, NFILES, PATH, NCAR, ICODE, FULLNAME)
subroutine, public run_finalize_wac_d(INST, IERR)
subroutine bief_close_files(FILES, NFILES, PEXIT)
integer, dimension(8) tfin
subroutine, public run_timestep_wac_d(INST, IERR)