Changeset 9100 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90

Timestamp:

2017-12-15T18:43:46+01:00 (7 years ago)

Author:

cetlod

Message:

Bugfix in trdmxl

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90

@@ -532 +532 @@
          CALL lbc_lnk_multi( ztmltot2, 'T', 1., zsmltot2, 'T', 1., &
                   &          ztmlres2, 'T', 1., zsmlres2, 'T', 1. )
-         CALL lbc_lnk_multi( ztmltrd2(:,:,:), 'T', zsmltrd2(:,:,:), 'T', 1. ) ! /  in the NetCDF trends file
+         DO jl = 1, jpltrd
+            CALL lbc_lnk_multi( ztmltrd2(:,:,jl), 'T', zsmltrd2(:,:,jl), 'T', 1. ) ! /  in the NetCDF trends file
+         END DO
          
          ! III.3 Time evolution array swap