Ignore:
Timestamp:
2018-12-14T13:42:03+01:00 (23 months ago)
Author:
dford
Message:

Delete commented out code.

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  
    109109         CALL iom_put( "voce_op"   , vn                                    )    ! j-current 
    110110         !CALL iom_put( "woce_op"   , wn                                    )    ! k-current 
    111 !#if defined key_spm 
    112 !         cltra = TRIM(ctrc3d(5))//"_op" 
    113 !         zw3d(:,:,:) = trc3d(:,:,:,5)*tmask(:,:,:) + zmdi*(1.0-tmask(:,:,:)) ! Visibility 
    114 !         CALL iom_put( cltra, zw3d  ) 
    115 !#endif 
    116111         CALL calc_max_cur(zwu,zwv,zwz,zmdi) 
    117112         CALL iom_put( "maxu" , zwu                                     ) ! max u current 
Note: See TracChangeset for help on using the changeset viewer.