Ignore:
Timestamp:
2018-10-08T14:47:55+02:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 4a: add si3 in BENCH, see #2133

Location:
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mpp_lnk_generic.h90

    r10172 r10179  
    155155         IF ( ncom_stp == nit000 ) THEN 
    156156            IF( .NOT. ALLOCATED( ncomm_sequence) ) THEN 
    157                ALLOCATE( ncomm_sequence(1000,2), STAT=ierr ) 
     157               ALLOCATE( ncomm_sequence(2000,2), STAT=ierr ) 
    158158               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 ) 
    160160               IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'lnk_generic, cannot allocate crname' ) 
    161161            ENDIF 
    162162            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' ) 
    164164            ncomm_sequence(n_sequence,1) = ipk*ipl   ! size of 3rd and 4th dimensions 
    165165            ncomm_sequence(n_sequence,2) = ipf       ! number of arrays to be treated (multi) 
     
    172172               WRITE(numout,*) ' -----------------------------------------------' 
    173173               WRITE(numout,*) ' ' 
    174                WRITE(numout,'(A,I3)') ' Exchanged halos : ', n_sequence 
     174               WRITE(numout,'(A,I4)') ' Exchanged halos : ', n_sequence 
    175175               jj = 0; jk = 0; jf = 0; jh = 0 
    176176               DO ji = 1, n_sequence 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcssm.F90

    r10068 r10179  
    1818   USE sbcapr         ! surface boundary condition: atmospheric pressure 
    1919   USE eosbn2         ! equation of state and related derivatives 
     20   USE traqsr, ONLY: ln_traqsr 
    2021   ! 
    2122   USE in_out_manager ! I/O manager 
     
    253254      ENDIF 
    254255      ! 
     256      IF( .NOT. ln_traqsr )   fraqsr_1lev(:,:) = 1._wp   ! default definition: qsr 100% in the fisrt level  
     257      ! 
    255258      IF( lwxios.AND.nn_fsbc > 1 ) THEN 
    256259         CALL iom_set_rstw_var_active('nn_fsbc') 
Note: See TracChangeset for help on using the changeset viewer.