Changeset 13478 for NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/DYN/dynspg_ts.F90

Timestamp:

2020-09-16T18:37:46+02:00 (4 years ago)

Author:

dancopsey

Message:

Undo last change.

File:

• NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/DYN/dynspg_ts.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/DYN/dynspg_ts.F90

@@ -1469 +1469 @@
       !                    !==  Set the barotropic drag coef.  ==!
       !
-      IF( ln_isfcav.OR.ln_drgice_imp ) THEN          ! top+bottom friction (ocean cavities)
+      IF( ln_isfcav ) THEN          ! top+bottom friction (ocean cavities)
          
          DO jj = 2, jpjm1
@@ -1532 +1532 @@
       !                    !==  TOP stress contribution from baroclinic velocities  ==!   (no W/D case)
       !
-      IF( ln_isfcav.OR.ln_drgice_imp ) THEN
+      IF( ln_isfcav ) THEN
          !
          IF( ln_bt_fw ) THEN                ! FORWARD integration: use NOW top baroclinic velocity