Changeset 7544 for branches/UKMO/dev_r5518_GO6_package

Timestamp:

2017-01-11T11:15:44+01:00 (7 years ago)

Author:

timgraham

Message:

Fix to prevent large number of "You should not have seen this print" messages

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

@@ -331 +331 @@
             ztraz_T(:,:,:) = ztraz(:,:,:)
          ENDIF
-         IF( l_trdtra .AND. cdtype == "TRC" )   THEN      ! save the horizontal component of diffusive trends for further diagnostics
+         IF( l_trdtrc .AND. cdtype == "TRC" )   THEN      ! save the horizontal component of diffusive trends for further diagnostics
             CALL trd_tra( kt, cdtype, jn, jptra_iso_x, ztrax )
             CALL trd_tra( kt, cdtype, jn, jptra_iso_y, ztray )