Changeset 10833

Timestamp:

2019-04-03T16:04:48+02:00 (6 years ago)

Author:

smueller

Message:

Further modification of an error message string in module diaharm, see changeset [10832] and ticket #2266

File:

• NEMO/releases/release-4.0/src/OCE/DIA/diaharm.F90 (modified) (1 diff)

NEMO/releases/release-4.0/src/OCE/DIA/diaharm.F90

@@ -127 +127 @@
       !
       IF (nb_ana > jpmax_harmo) THEN
-         WRITE(ctmp1,*) ' E R R O R dia_harm_init : nb_ana must be lower than jpmax_harmo, stop'
+         WRITE(ctmp1,*) ' nb_ana must be lower than jpmax_harmo'
          WRITE(ctmp2,*) ' jpmax_harmo= ', jpmax_harmo
          CALL ctl_stop( 'dia_harm_init', ctmp1, ctmp2 )