Changeset 14593 for NEMO

Timestamp:

2021-03-05T17:27:27+01:00 (3 years ago)

Author:

gsamson

Message:

bugfix related to CS/WL options; ticket #2632

File:

• NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/SBC/sbcblk.F90 (modified) (2 diffs)

NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/SBC/sbcblk.F90

@@ -762 +762 @@
 
       IF( ln_skin_cs .OR. ln_skin_wl ) THEN
-         !! ptsk and pssq have been updated!!!
-         ptsk(:,:) = ptsk(:,:) + ( zsspt(:,:) - zztmp1(:,:) )
-         !!
          !! In the presence of sea-ice we forget about the cool-skin/warm-layer update of ptsk and pssq:
          WHERE ( fr_i(:,:) > 0.001_wp )
@@ -771 +768 @@
             pssq(:,:)  = zztmp2(:,:)
          END WHERE
+         !! ptsk and pssq have been updated!!!
+         ptsk(:,:) = ptsk(:,:) + ( zsspt(:,:) - zztmp1(:,:) )
       END IF