Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r2715 r3294 64 64 ssu_m(:,:) = ub(:,:,1) 65 65 ssv_m(:,:) = vb(:,:,1) 66 sst_m(:,:) = t n(:,:,1)67 sss_m(:,:) = sn(:,:,1)66 sst_m(:,:) = tsn(:,:,1,jp_tem) 67 sss_m(:,:) = tsn(:,:,1,jp_sal) 68 68 ! ! removed inverse barometer ssh when Patm forcing is used (for sea-ice dynamics) 69 69 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) … … 104 104 ssu_m(:,:) = zcoef * ub(:,:,1) 105 105 ssv_m(:,:) = zcoef * vb(:,:,1) 106 sst_m(:,:) = zcoef * t n(:,:,1)107 sss_m(:,:) = zcoef * sn(:,:,1)106 sst_m(:,:) = zcoef * tsn(:,:,1,jp_tem) 107 sss_m(:,:) = zcoef * tsn(:,:,1,jp_sal) 108 108 ! ! removed inverse barometer ssh when Patm forcing is used 109 109 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = zcoef * ( sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) ) … … 126 126 ssu_m(:,:) = ssu_m(:,:) + ub(:,:,1) 127 127 ssv_m(:,:) = ssv_m(:,:) + vb(:,:,1) 128 sst_m(:,:) = sst_m(:,:) + t n(:,:,1)129 sss_m(:,:) = sss_m(:,:) + sn(:,:,1)128 sst_m(:,:) = sst_m(:,:) + tsn(:,:,1,jp_tem) 129 sss_m(:,:) = sss_m(:,:) + tsn(:,:,1,jp_sal) 130 130 ! ! removed inverse barometer ssh when Patm forcing is used (for sea-ice dynamics) 131 131 IF( ln_apr_dyn ) THEN ; ssh_m(:,:) = ssh_m(:,:) + sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) )
Note: See TracChangeset
for help on using the changeset viewer.