- Timestamp:
- 2018-12-14T13:42:03+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaopfoam.F90
r10308 r10387 109 109 CALL iom_put( "voce_op" , vn ) ! j-current 110 110 !CALL iom_put( "woce_op" , wn ) ! k-current 111 !#if defined key_spm112 ! cltra = TRIM(ctrc3d(5))//"_op"113 ! zw3d(:,:,:) = trc3d(:,:,:,5)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) ! Visibility114 ! CALL iom_put( cltra, zw3d )115 !#endif116 111 CALL calc_max_cur(zwu,zwv,zwz,zmdi) 117 112 CALL iom_put( "maxu" , zwu ) ! max u current
Note: See TracChangeset
for help on using the changeset viewer.