Changeset 15145 for NEMO/trunk/src/OCE/SBC/sbcssm.F90

Timestamp:

2021-07-26T18:16:45+02:00 (3 years ago)

Author:

smasson

Message:

trunk: pass all sette tests in debug with nn_hls = 2

File:

• NEMO/trunk/src/OCE/SBC/sbcssm.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/SBC/sbcssm.F90

@@ -65 +65 @@
       zts(:,:,jp_sal) = ts(:,:,1,jp_sal,Kmm)
       !
-      IF( nn_fsbc == 1 ) THEN                             !   Instantaneous surface fields        !
+         !                                                ! ---------------------------------------- !
+      IF( nn_fsbc == 1 ) THEN                             !      Instantaneous surface fields        !
          !                                                ! ---------------------------------------- !
          ssu_m(:,:) = uu(:,:,1,Kbb)
@@ -92 +93 @@
             ssu_m(:,:) = zcoef * uu(:,:,1,Kbb)
             ssv_m(:,:) = zcoef * vv(:,:,1,Kbb)
-            IF( l_useCT )  THEN    ;   sst_m(:,:) = zcoef * eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) )
+            IF( l_useCT   )  THEN   ;   sst_m(:,:) = zcoef * eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) )
             ELSE                    ;   sst_m(:,:) = zcoef * zts(:,:,jp_tem)
             ENDIF