source:
NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90
Last change on this file was 12377, checked in by acc, 4 years ago | |
---|---|
|
|
File size: 1.4 KB |
Rev | Line | |
---|---|---|
[3443] | 1 | MODULE sedmodel |
2 | !!====================================================================== | |
3 | !! *** MODULE sedmodel *** | |
4 | !! Sediment model : Main routine of sediment model | |
5 | !!====================================================================== | |
6 | USE sed | |
7 | USE sedstp ! time stepping | |
[10222] | 8 | USE sedinitrc |
[3443] | 9 | |
10 | IMPLICIT NONE | |
11 | PRIVATE | |
12 | ||
13 | !! * Routine accessibility | |
14 | PUBLIC sed_model ! called by step.F90 | |
15 | ||
16 | CONTAINS | |
17 | ||
[12377] | 18 | SUBROUTINE sed_model ( kt, Kbb, Kmm, Krhs ) |
[3443] | 19 | !!--------------------------------------------------------------------- |
20 | !! *** ROUTINE sed_model *** | |
21 | !! | |
22 | !! ** Purpose : main routine of sediment model | |
23 | !! | |
24 | !! | |
25 | !! ** Method : - model general initialization | |
26 | !! - launch the time-stepping (stp routine) | |
27 | !! | |
28 | !! History : | |
29 | !! ! 07-02 (C. Ethe) Original | |
30 | !!---------------------------------------------------------------------- | |
[12377] | 31 | INTEGER, INTENT(in) :: kt ! number of iteration |
32 | INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices | |
[3443] | 33 | |
34 | ||
[10222] | 35 | IF( ln_timing ) CALL timing_start('sed_model') |
[3443] | 36 | |
[12377] | 37 | IF( kt == nittrc000 ) CALL sed_initrc( Kbb, Kmm ) ! Initialization of sediment model |
38 | CALL sed_stp( kt, Kbb, Kmm, Krhs ) ! Time stepping of Sediment model | |
[3443] | 39 | |
[10222] | 40 | IF( ln_timing ) CALL timing_stop('sed_model') |
[3443] | 41 | |
42 | END SUBROUTINE sed_model | |
43 | ||
44 | END MODULE sedmodel |
Note: See TracBrowser
for help on using the repository browser.