Changeset 10850 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/DIA/diaopfoam.F90

Timestamp:

2019-04-08T15:00:20+02:00 (5 years ago)

Author:

kingr

Message:

Merged updates from AMM15_v3_6_STABLE_package_collate

File:

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

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/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