Changeset 6053 for branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2015-12-15T15:50:11+01:00 (8 years ago)

Author:

lovato

Message:

Merge branches/2015/dev_r5144_CMCC5_BDY_for_TOP (see ticket #1441)

File:

• branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (2 diffs)

branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -33 +33 @@
    USE trdtra
    USE tranxt
+   USE trcbdy          ! BDY open boundaries
+   USE bdy_par, only: lk_bdy
 # if defined key_agrif
    USE agrif_top_interp
@@ -98 +100 @@
       END DO
 
-
-#if defined key_bdy
-!!      CALL bdy_trc( kt )               ! BDY open boundaries
-#endif
-
+      IF( lk_bdy )  CALL trc_bdy( kt )               ! BDY open boundaries
 
       ! set time step size (Euler/Leapfrog)