source:
branches/UKMO/r8395_mix-lyr_diag/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/sedmodel.F90
Last change on this file was 11290, checked in by jcastill, 5 years ago | |
---|---|
File size: 1.7 KB |
Line | |
---|---|
1 | MODULE sedmodel |
2 | #if defined key_sed |
3 | !!====================================================================== |
4 | !! *** MODULE sedmodel *** |
5 | !! Sediment model : Main routine of sediment model |
6 | !!====================================================================== |
7 | USE sed |
8 | USE sedini ! sediment variables initialization |
9 | USE sedstp ! time stepping |
10 | |
11 | IMPLICIT NONE |
12 | PRIVATE |
13 | |
14 | !! * Routine accessibility |
15 | PUBLIC sed_model ! called by step.F90 |
16 | |
17 | CONTAINS |
18 | |
19 | SUBROUTINE sed_model ( kt ) |
20 | !!--------------------------------------------------------------------- |
21 | !! *** ROUTINE sed_model *** |
22 | !! |
23 | !! ** Purpose : main routine of sediment model |
24 | !! |
25 | !! |
26 | !! ** Method : - model general initialization |
27 | !! - launch the time-stepping (stp routine) |
28 | !! |
29 | !! History : |
30 | !! ! 07-02 (C. Ethe) Original |
31 | !!---------------------------------------------------------------------- |
32 | INTEGER, INTENT(in) :: kt ! number of iteration |
33 | |
34 | |
35 | IF( kt == nittrc000 ) CALL sed_init ! Initialization of sediment model |
36 | |
37 | CALL sed_stp( kt ) ! Time stepping of Sediment model |
38 | |
39 | |
40 | END SUBROUTINE sed_model |
41 | |
42 | #else |
43 | !!====================================================================== |
44 | !! MODULE sedmodel : Dummy module |
45 | !!====================================================================== |
46 | CONTAINS |
47 | SUBROUTINE sed_model( kt ) ! Empty routine |
48 | INTEGER, INTENT(in) :: kt |
49 | WRITE(*,*) 'sed_stp: You should not have seen this print! error?', kt |
50 | END SUBROUTINE sed_model |
51 | #endif |
52 | |
53 | END MODULE sedmodel |
Note: See TracBrowser
for help on using the repository browser.