Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
MODULE sedmodel
!!======================================================================
!! *** MODULE sedmodel ***
!! Sediment model : Main routine of sediment model
!!======================================================================
USE sed
USE sedstp ! time stepping
USE sedinitrc
IMPLICIT NONE
PRIVATE
!! * Routine accessibility
PUBLIC sed_model ! called by step.F90
CONTAINS
SUBROUTINE sed_model ( kt, Kbb, Kmm, Krhs )
!!---------------------------------------------------------------------
!! *** ROUTINE sed_model ***
!!
!! ** Purpose : main routine of sediment model
!!
!!
!! ** Method : - model general initialization
!! - launch the time-stepping (stp routine)
!!
!! History :
!! ! 07-02 (C. Ethe) Original
!!----------------------------------------------------------------------
INTEGER, INTENT(in) :: kt ! number of iteration
INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices
IF( ln_timing ) CALL timing_start('sed_model')
IF( kt == nittrc000 ) CALL sed_initrc( Kbb, Kmm ) ! Initialization of sediment model
CALL sed_stp( kt, Kbb, Kmm, Krhs ) ! Time stepping of Sediment model
IF( ln_timing ) CALL timing_stop('sed_model')
END SUBROUTINE sed_model
END MODULE sedmodel