Changeset 10975 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/SED/sedmodel.F90
- Timestamp:
- 2019-05-13T18:34:33+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/SED/sedmodel.F90
r10963 r10975 16 16 CONTAINS 17 17 18 SUBROUTINE sed_model ( kt, K mm)18 SUBROUTINE sed_model ( kt, Kbb, Kmm, Krhs ) 19 19 !!--------------------------------------------------------------------- 20 20 !! *** ROUTINE sed_model *** … … 29 29 !! ! 07-02 (C. Ethe) Original 30 30 !!---------------------------------------------------------------------- 31 INTEGER, INTENT(in) :: kt ! number of iteration32 INTEGER, INTENT(in) :: K mm! time level indices31 INTEGER, INTENT(in) :: kt ! number of iteration 32 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices 33 33 34 34 35 35 IF( ln_timing ) CALL timing_start('sed_model') 36 36 37 IF( kt == nittrc000 ) CALL sed_initrc ! Initialization of sediment model38 CALL sed_stp( kt, K mm) ! Time stepping of Sediment model37 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 39 40 40 IF( ln_timing ) CALL timing_stop('sed_model')
Note: See TracChangeset
for help on using the changeset viewer.