Changeset 10425 for NEMO/trunk/src/TOP/trcnam.F90

Timestamp:

2018-12-19T22:54:16+01:00 (6 years ago)

Author:

smasson

Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:

• NEMO/trunk/src/TOP/trcnam.F90 (modified) (3 diffs)

NEMO/trunk/src/TOP/trcnam.F90

@@ -23 +23 @@
    USE trdtrc_oce  !
    USE iom         ! I/O manager
+#if defined key_mpp_mpi
+   USE lib_mpp, ONLY: ncom_dttrc
+#endif
 
    IMPLICIT NONE
@@ -76 +79 @@
       ENDIF
       !
-      rdttrc = rdt * FLOAT( nn_dttrc )          ! passive tracer time-step
+      rdttrc = rdt * FLOAT( nn_dttrc )          ! passive tracer time-step      
       ! 
       IF(lwp) THEN                              ! control print
@@ -128 +131 @@
       ENDIF
       !
-    END SUBROUTINE trc_nam_run
+#if defined key_mpp_mpi
+      ncom_dttrc = nn_dttrc    ! make nn_fsbc available for lib_mpp
+#endif
+      !
+   END SUBROUTINE trc_nam_run