source:
NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90
@
13970
Last change on this file since 13970 was 12377, checked in by acc, 4 years ago | |
---|---|
|
|
File size: 1.4 KB |
Line | |
---|---|
1 | MODULE sedmodel |
2 | !!====================================================================== |
3 | !! *** MODULE sedmodel *** |
4 | !! Sediment model : Main routine of sediment model |
5 | !!====================================================================== |
6 | USE sed |
7 | USE sedstp ! time stepping |
8 | USE sedinitrc |
9 | |
10 | IMPLICIT NONE |
11 | PRIVATE |
12 | |
13 | !! * Routine accessibility |
14 | PUBLIC sed_model ! called by step.F90 |
15 | |
16 | CONTAINS |
17 | |
18 | SUBROUTINE sed_model ( kt, Kbb, Kmm, Krhs ) |
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 | !!---------------------------------------------------------------------- |
31 | INTEGER, INTENT(in) :: kt ! number of iteration |
32 | INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices |
33 | |
34 | |
35 | IF( ln_timing ) CALL timing_start('sed_model') |
36 | |
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 |
39 | |
40 | IF( ln_timing ) CALL timing_stop('sed_model') |
41 | |
42 | END SUBROUTINE sed_model |
43 | |
44 | END MODULE sedmodel |
Note: See TracBrowser
for help on using the repository browser.