Changeset 14593 for NEMO/branches
- Timestamp:
- 2021-03-05T17:27:27+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/SBC/sbcblk.F90
r14592 r14593 762 762 763 763 IF( ln_skin_cs .OR. ln_skin_wl ) THEN 764 !! ptsk and pssq have been updated!!!765 ptsk(:,:) = ptsk(:,:) + ( zsspt(:,:) - zztmp1(:,:) )766 !!767 764 !! In the presence of sea-ice we forget about the cool-skin/warm-layer update of ptsk and pssq: 768 765 WHERE ( fr_i(:,:) > 0.001_wp ) … … 771 768 pssq(:,:) = zztmp2(:,:) 772 769 END WHERE 770 !! ptsk and pssq have been updated!!! 771 ptsk(:,:) = ptsk(:,:) + ( zsspt(:,:) - zztmp1(:,:) ) 773 772 END IF 774 773
Note: See TracChangeset
for help on using the changeset viewer.