Changeset 8216

Timestamp:

2017-06-26T12:40:15+02:00 (7 years ago)

Author:

clne

Message:

Fix incorrect comment

File:

• branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -241 +241 @@
       IF( ln_blk_core     ) THEN   ;   nsbc = jp_core    ; icpt = icpt + 1   ;   ENDIF       ! CORE bulk            formulation
       IF( ln_blk_mfs      ) THEN   ;   nsbc = jp_mfs     ; icpt = icpt + 1   ;   ENDIF       ! MFS  bulk            formulation
-      IF( ln_sbcsurge     ) THEN   ;   nsbc = jp_sbcsurge; icpt = icpt + 1   ;   ENDIF       ! MFS  bulk            formulation
+      IF( ln_sbcsurge     ) THEN   ;   nsbc = jp_sbcsurge; icpt = icpt + 1   ;   ENDIF       ! Surge                formulation
       IF( ll_purecpl      ) THEN   ;   nsbc = jp_purecpl ; icpt = icpt + 1   ;   ENDIF       ! Pure Coupled         formulation
       IF( cp_cfg == 'gyre') THEN   ;   nsbc = jp_gyre                        ;   ENDIF       ! GYRE analytical      formulation