source:
NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90
@
10222
Last change on this file since 10222 was 10222, checked in by aumont, 5 years ago | |
---|---|
|
|
File size: 1.3 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 | ||
18 | SUBROUTINE sed_model ( kt ) | |
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 | ||
33 | ||
[10222] | 34 | IF( ln_timing ) CALL timing_start('sed_model') |
[3443] | 35 | |
[10222] | 36 | IF( kt == nittrc000 ) CALL sed_initrc ! Initialization of sediment model |
37 | CALL sed_stp( kt ) ! Time stepping of Sediment model | |
[3443] | 38 | |
[10222] | 39 | IF( ln_timing ) CALL timing_stop('sed_model') |
[3443] | 40 | |
41 | END SUBROUTINE sed_model | |
42 | ||
43 | END MODULE sedmodel |
Note: See TracBrowser
for help on using the repository browser.