Oasis3 4.0.2
|
00001 MODULE mod_timestep 00002 ! 00003 ! -- timestep.h 29-08-95 Version 2.0beta Author: Laurent Terray 00004 ! ********** 01-02-96 Version 2.0 : addition of nitfn (L. Terray) 00005 ! 18-03-02 Version 2.5 changed in module 00006 !@ 00007 !@ Contents : variables controlling timestepping 00008 !@ -------- 00009 !@ 00010 !@ OASIS information : 00011 !@ ----------------- 00012 !@ 00013 !@ -- ntime : total simulated time (in seconds) 00014 !@ 00015 !@ -- niter : number of iterations 00016 !@ 00017 !@ -- nitfn : last iteration number 00018 !@ 00019 !@ -- nstep : timestep value (in seconds) 00020 !@ 00021 !@ Remote models information : 00022 !@ ------------------------- 00023 !@ 00024 !@ -- mstep : number of time steps (1D) 00025 !@ 00026 !@ -- mfcpl : frequency of coupling in timesteps (1D) 00027 !@ 00028 !@ -- mdt : length of timesteps in seconds (1D) 00029 !@ 00030 ! ------------------------------------------------------------------- 00031 ! 00032 USE mod_kinds_oasis 00033 INTEGER (kind=ip_intwp_p) :: ntime, niter, nitfn, nstep 00034 INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: mstep, mfcpl, mdt 00035 ! 00036 ! ------------------------------------------------------------------- 00037 ! 00038 END MODULE mod_timestep 00039 00040 00041