Changeset 11374


Ignore:
Timestamp:
2019-07-31T09:30:19+02:00 (14 months ago)
Author:
clem
Message:

remove inopportune stop related to harmonic diags

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DIA/diaharm.F90

    r11365 r11374  
    7979      ENDIF 
    8080      ! 
    81       IF( .NOT. ln_tide )   CALL ctl_stop( 'dia_harm_init : ln_tide must be true for harmonic analysis') 
    82       ! 
    8381      REWIND( numnam_ref )              ! Namelist nam_diaharm in reference namelist : Tidal harmonic analysis 
    8482      READ  ( numnam_ref, nam_diaharm, IOSTAT = ios, ERR = 901) 
     
    9593         WRITE(numout,*) '   Time step frequency for harmonic analysis: nstep_han = ', nstep_han 
    9694      ENDIF 
     95 
     96      IF( ln_diaharm .AND. .NOT.ln_tide )   CALL ctl_stop( 'dia_harm_init : ln_tide must be true for harmonic analysis') 
    9797 
    9898      IF( ln_diaharm ) THEN 
Note: See TracChangeset for help on using the changeset viewer.