Changeset 10387 for branches/UKMO

Timestamp:

2018-12-14T13:42:03+01:00 (5 years ago)

Author:

dford

Message:

Delete commented out code.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaopfoam.F90 (modified) (1 diff)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaopfoam.F90

@@ -109 +109 @@
          CALL iom_put( "voce_op"   , vn                                    )    ! j-current
          !CALL iom_put( "woce_op"   , wn                                    )    ! k-current
-!#if defined key_spm
-!         cltra = TRIM(ctrc3d(5))//"_op"
-!         zw3d(:,:,:) = trc3d(:,:,:,5)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) ! Visibility
-!         CALL iom_put( cltra, zw3d  )
-!#endif
          CALL calc_max_cur(zwu,zwv,zwz,zmdi)
          CALL iom_put( "maxu" , zwu                                     ) ! max u current