Changeset 7398 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2016-11-30T15:44:11+01:00 (7 years ago)

Author:

cbricaud

Message:

coarsening branch: first implementation of coarsening in PISCES

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    USE oce_trc          ! ocean dynamics and active tracers variables
-   USE trc
+   USE trc, ONLY: cvol,numont,numstr
    USE trctrp           ! passive tracers transport
    USE trcsms           ! passive tracers sources and sinks
@@ -22 +22 @@
    USE iom, ONLY : lk_iomput , iom_close, iom_varid, jpdom_autoglo, iom_get, iom_rstput
    USE in_out_manager
-   USE trcsub
+   USE trcsub, ONLY: trc_sub_stp,trc_sub_reset
    USE dom_oce, ONLY : nday, nmonth, nyear, nsec1jan000, nsec_year
-   !USE sbc_oce
 
    IMPLICIT NONE