source: NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90 @ 10222

Last change on this file since 10222 was 10222, checked in by aumont, 2 years ago

update of the sediment module + enhancement, bug correction in PISCES generating O2 negative values

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