- Timestamp:
- 2018-10-08T14:47:55+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mpp_lnk_generic.h90
r10172 r10179 155 155 IF ( ncom_stp == nit000 ) THEN 156 156 IF( .NOT. ALLOCATED( ncomm_sequence) ) THEN 157 ALLOCATE( ncomm_sequence( 1000,2), STAT=ierr )157 ALLOCATE( ncomm_sequence(2000,2), STAT=ierr ) 158 158 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'lnk_generic, cannot allocate ncomm_sequence' ) 159 ALLOCATE( crname( 1000), STAT=ierr )159 ALLOCATE( crname(2000), STAT=ierr ) 160 160 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'lnk_generic, cannot allocate crname' ) 161 161 ENDIF 162 162 n_sequence = n_sequence + 1 163 IF( n_sequence > 1000 ) CALL ctl_stop( 'STOP', 'lnk_generic, increase ncomm_sequence first dimension' )163 IF( n_sequence > 2000 ) CALL ctl_stop( 'STOP', 'lnk_generic, increase ncomm_sequence first dimension' ) 164 164 ncomm_sequence(n_sequence,1) = ipk*ipl ! size of 3rd and 4th dimensions 165 165 ncomm_sequence(n_sequence,2) = ipf ! number of arrays to be treated (multi) … … 172 172 WRITE(numout,*) ' -----------------------------------------------' 173 173 WRITE(numout,*) ' ' 174 WRITE(numout,'(A,I 3)') ' Exchanged halos : ', n_sequence174 WRITE(numout,'(A,I4)') ' Exchanged halos : ', n_sequence 175 175 jj = 0; jk = 0; jf = 0; jh = 0 176 176 DO ji = 1, n_sequence
Note: See TracChangeset
for help on using the changeset viewer.