Changeset 5160 for branches/2015/dev_r5144_CMCC5_BDY_for_TOP/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2015-03-23T15:30:55+01:00 (9 years ago)

Author:

lovato

Message:

First implementation of BDY for TOP component, see #1441 (dev_r5144_CMCC5_BDY_for_TOP).

File:

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

branches/2015/dev_r5144_CMCC5_BDY_for_TOP/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
@@ -108 +110 @@
 
 
-#if defined key_bdy
-!!      CALL bdy_trc( kt )               ! BDY open boundaries
-#endif
+      IF( lk_bdy )  CALL trc_bdy( kt )               ! BDY open boundaries
+
 #if defined key_agrif
       CALL Agrif_trc                   ! AGRIF zoom boundaries