New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
sedmodel.F90 in NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/TOP/PISCES/SED – NEMO

source: NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/TOP/PISCES/SED/sedmodel.F90 @ 12928

Last change on this file since 12928 was 12928, checked in by smueller, 4 years ago

Synchronizing with /NEMO/trunk@12925 (ticket #2170)

  • 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, Kbb, Kmm, Krhs )
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) ::   Kbb, Kmm, Krhs   ! time level indices
33
34
35      IF( ln_timing )  CALL timing_start('sed_model')
36
37      IF( kt == nittrc000 ) CALL sed_initrc( Kbb, Kmm )         ! Initialization of sediment model
38                            CALL sed_stp( kt, Kbb, Kmm, Krhs )  ! 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.