--- MITgcm/tools/OAD_support/ad_template.streamice_get_vel_resid_err_oad.F 2015/03/23 14:08:18 1.3 +++ MITgcm/tools/OAD_support/ad_template.streamice_get_vel_resid_err_oad.F 2015/03/25 17:35:29 1.4 @@ -12,6 +12,8 @@ !logical isTape !type(modeType) :: our_orig_mode +#if (defined (ALLOW_STREAMICE_OAD_FP)) + if (our_rev_mode%plain .or. our_rev_mode%tape) then ! if (our_rev_mode%plain) then @@ -89,5 +91,5 @@ end if - +#endif end subroutine template