Changeset 8754 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2017-11-20T16:37:17+01:00 (6 years ago)

Author:

cbricaud

Message:

bugfix for coarsening branch

File:

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

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

@@ -38 +38 @@
    USE crs, ONLY : ln_crs_top
    USE ieee_arithmetic
+#if defined key_crs
+   USE crslbclnk , ONLY : crs_lbc_lnk
+#endif
 
    IMPLICIT NONE
@@ -109 +112 @@
       ! Update after tracer on domain lateral boundaries
       DO jn = 1, jptra
+#if defined key_crs
+         CALL crs_lbc_lnk( tra(:,:,:,jn), 'T', 1. )   
+#else
          CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. )   
+#endif
       END DO