Changeset 10375 for NEMO/trunk/src/TOP/trcini.F90

Timestamp:

2018-12-07T17:27:26+01:00 (5 years ago)

Author:

aumont

Message:

Create generic routines for vertical sinking of particles

File:

• NEMO/trunk/src/TOP/trcini.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/trcini.F90

@@ -205 +205 @@
       USE trcldf , ONLY:  trc_ldf_ini
       USE trcrad , ONLY:  trc_rad_ini
+      USE trcsink, ONLY:  trc_sink_ini
       !
       INTEGER :: ierr
@@ -214 +215 @@
                        !                          ! vertical diffusion: always implicit time stepping scheme
                        CALL  trc_rad_ini          ! positivity of passive tracers 
+                       CALL  trc_sink_ini         ! Vertical sedimentation of particles
       !
    END SUBROUTINE trc_ini_trp