- Timestamp:
- 2018-12-19T15:14:45+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diaharm.F90
r10068 r10417 22 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 23 USE timing ! preformance summary 24 USE lib_mpp ! MPP library 24 25 25 26 IMPLICIT NONE … … 126 127 ! 127 128 IF (nb_ana > jpmax_harmo) THEN 128 IF(lwp) WRITE(numout,*) ' E R R O R dia_harm_init : nb_ana must be lower than jpmax_harmo, stop'129 IF(lwp) WRITE(numout,*) ' jpmax_harmo= ', jpmax_harmo130 nstop = nstop + 1129 WRITE(ctmp1,*) 'Can not use XIOS in iom_g0d, file: '//TRIM(clname)//', var:'//TRIM(cdvar) 130 WRITE(ctmp2,*) ' jpmax_harmo= ', jpmax_harmo 131 CALL ctl_stop( 'dia_harm_init', ctmp1, ctmp2 ) 131 132 ENDIF 132 133
Note: See TracChangeset
for help on using the changeset viewer.