Changeset 9502 for branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90

Timestamp:

2018-04-25T10:24:20+02:00 (6 years ago)

Author:

frrh

Message:

Ensure numerous diagnostics are bit comparable ond different PE
decompositions.

File:

• branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90

@@ -19 +19 @@
    USE trdmxl_trc        ! Mixed layer trends diag.
    USE iom               ! I/O library
+   USE lbclnk,            ONLY: lbc_lnk
 # if defined key_debug_medusa
    USE trcstat,          ONLY: trc_rst_dia_stat     
@@ -192 +193 @@
          CALL trc_rst_dia_stat( ptrtrd(:,:,1), cltra)
 # endif
+         CALL lbc_lnk( ptrtrd(:,:,:), 'T', 1.0 )
          CALL iom_put( cltra,  ptrtrd(:,:,:) )
 # if defined key_debug_medusa