Changeset 11053 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/SBC/sbcssm.F90
- Timestamp:
- 2019-05-24T12:53:06+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/SBC/sbcssm.F90
r10922 r11053 77 77 sss_m(:,:) = zts(:,:,jp_sal) 78 78 ! ! removed inverse barometer ssh when Patm forcing is used (for sea-ice dynamics) 79 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = ssh n(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) )80 ELSE ; ssh_m(:,:) = ssh n(:,:)79 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = ssh(:,:,Kmm) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) 80 ELSE ; ssh_m(:,:) = ssh(:,:,Kmm) 81 81 ENDIF 82 82 ! … … 100 100 sss_m(:,:) = zcoef * zts(:,:,jp_sal) 101 101 ! ! removed inverse barometer ssh when Patm forcing is used (for sea-ice dynamics) 102 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = zcoef * ( ssh n(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) )103 ELSE ; ssh_m(:,:) = zcoef * sshn(:,:)102 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = zcoef * ( ssh(:,:,Kmm) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) ) 103 ELSE ; ssh_m(:,:) = zcoef * ssh(:,:,Kmm) 104 104 ENDIF 105 105 ! … … 128 128 sss_m(:,:) = sss_m(:,:) + zts(:,:,jp_sal) 129 129 ! ! removed inverse barometer ssh when Patm forcing is used (for sea-ice dynamics) 130 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = ssh_m(:,:) + ssh n(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) )131 ELSE ; ssh_m(:,:) = ssh_m(:,:) + ssh n(:,:)130 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = ssh_m(:,:) + ssh(:,:,Kmm) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) 131 ELSE ; ssh_m(:,:) = ssh_m(:,:) + ssh(:,:,Kmm) 132 132 ENDIF 133 133 ! … … 250 250 ENDIF 251 251 sss_m(:,:) = ts (:,:,1,jp_sal,Kmm) 252 ssh_m(:,:) = ssh n(:,:)252 ssh_m(:,:) = ssh(:,:,Kmm) 253 253 e3t_m(:,:) = e3t (:,:,1,Kmm) 254 254 frq_m(:,:) = 1._wp
Note: See TracChangeset
for help on using the changeset viewer.