source:
branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/sedmodel.F90
@
9499
Last change on this file since 9499 was 9499, checked in by davestorkey, 6 years ago | |
---|---|
File size: 1.7 KB |
Rev | Line | |
---|---|---|
[3443] | 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.