Changeset 10830 for NEMO/branches

Timestamp:

2019-04-03T13:11:17+02:00 (5 years ago)

Author:

smueller

Message:

Reversion of an error message in subroutine dia_harm_init of module diaharm to the version that was present prior to changeset [10425] (ticket #2194)

File:

• NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/DIA/diaharm.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/DIA/diaharm.F90

@@ -122 +122 @@
       !
       IF (nb_ana > jpmax_harmo) THEN
-         WRITE(ctmp1,*) 'Can not use XIOS in iom_g0d, file: '//TRIM(clname)//', var:'//TRIM(cdvar)
+         WRITE(ctmp1,*) ' E R R O R dia_harm_init : nb_ana must be lower than jpmax_harmo, stop'
          WRITE(ctmp2,*) ' jpmax_harmo= ', jpmax_harmo
          CALL ctl_stop( 'dia_harm_init', ctmp1, ctmp2 )