New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10035 for NEMO/branches/UKMO – NEMO

Changeset 10035 for NEMO/branches/UKMO


Ignore:
Timestamp:
2018-08-03T15:51:37+02:00 (6 years ago)
Author:
davestorkey
Message:

UKMO dev_r9950_old_tidal_mixing branch : merge in changes to rev 10032 of NEMO4_beta_mirror branch (=rev 10031 of trunk).

Location:
NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/OCE/IOM/iom.F90

    r10014 r10035  
    696696      ! do we read the overlap  
    697697      ! ugly patch SM+JMM+RB to overwrite global definition in some cases 
    698       !llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif 
    699       !llnoov = .true. 
    700       llnoov = .NOT. lk_agrif 
     698      llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif 
    701699      ! create the file name by added, if needed, TRIM(Agrif_CFixed()) and TRIM(clsuffix) 
    702700      ! ============= 
  • NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/OCE/TRA/traadv_fct.F90

    r9950 r10035  
    311311            IF( l_hst )   CALL dia_ar5_hst( jn, 'adv', ztrdx(:,:,:), ztrdy(:,:,:) ) 
    312312            ! 
    313             DEALLOCATE( ztrdx, ztrdy, ztrdz ) 
    314313         ENDIF 
    315314         IF( l_ptr ) THEN              ! "Poleward" transports 
    316315            zptry(:,:,:) = zptry(:,:,:) + zwy(:,:,:)  ! <<< add anti-diffusive fluxes 
    317316            CALL dia_ptr_hst( jn, 'adv', zptry(:,:,:) ) 
    318             DEALLOCATE( zptry ) 
    319317         ENDIF 
    320318         ! 
    321319      END DO                     ! end of tracer loop 
     320      ! 
     321      IF( l_trd .OR. l_hst ) THEN  
     322         DEALLOCATE( ztrdx, ztrdy, ztrdz ) 
     323      ENDIF 
     324      IF( l_ptr ) THEN  
     325         DEALLOCATE( zptry ) 
     326      ENDIF 
    322327      ! 
    323328   END SUBROUTINE tra_adv_fct 
Note: See TracChangeset for help on using the changeset viewer.