Changeset 8754 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.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/trcsbc.F90 (modified) (2 diffs)

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

@@ -23 +23 @@
    USE trdtra
    USE ieee_arithmetic
+#if defined key_crs
+   USE crslbclnk , ONLY : crs_lbc_lnk
+#endif
 
    IMPLICIT NONE
@@ -173 +176 @@
          ENDIF
          !
+#if defined key_crs
+         CALL crs_lbc_lnk( sbc_trc(:,:,jn), 'T', 1. )
+#else
          CALL lbc_lnk( sbc_trc(:,:,jn), 'T', 1. )
+#endif
          !                                       Concentration dilution effect on tracers due to evaporation & precipitation 
          DO jj = 2, jpj