source: NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/SED/sedmodel.F90 @ 10963

Last change on this file since 10963 was 10963, checked in by acc, 19 months ago

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Convert TOP routines in top-level TOP directory and all knock on effects of these conversions. SETTE tested.

  • Property svn:keywords set to Id
File size: 1.4 KB
Line 
1MODULE 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
16CONTAINS
17
18   SUBROUTINE sed_model ( kt, Kmm )
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) ::   Kmm      ! time level indices
33
34
35      IF( ln_timing )  CALL timing_start('sed_model')
36
37      IF( kt == nittrc000 ) CALL sed_initrc       ! Initialization of sediment model
38                            CALL sed_stp( kt, Kmm )  ! Time stepping of Sediment model
39
40      IF( ln_timing )  CALL timing_stop('sed_model')
41
42   END SUBROUTINE sed_model
43
44END MODULE sedmodel
Note: See TracBrowser for help on using the repository browser.