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 8442 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP – NEMO

Ignore:
Timestamp:
2017-08-17T13:39:18+02:00 (7 years ago)
Author:
frrh
Message:

Commit changes relating to Met Office GMED ticket 340 for the
tidying of MEDUSA related code and debugging statements in the TOP code.

Only code introduced at revision 8434 of branch
http://fcm3/projects/NEMO.xm/log/branches/NERC/dev_r5518_GO6_split_trcbiomedusa
is included here, all previous revisions of that branch having been dealt with
under GMED ticket 339.

Location:
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r8280 r8442  
    2929   USE trdtra 
    3030   USE prtctl_trc      ! Print control 
    31    !! USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3231 
    3332   IMPLICIT NONE 
     
    109108      zvn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
    110109      zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
    111       !  
    112       !! Jpalm -- 14-01-2016 -- restart and proc pb - try this...  
    113       !! DO jn = 1, jptra 
    114       !!   CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 
    115       !!   CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. ) 
    116       !! END DO 
    117       ! 
    118110 
    119111      IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif )   &  ! add the eiv transport (if necessary) 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r8356 r8442  
    7777         IF( ln_trcdmp )        CALL trc_dmp( kstp )            ! internal damping trends 
    7878                                CALL trc_adv( kstp )            ! horizontal & vertical advection  
    79 # if defined key_debug_medusa 
    80          IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kstp 
    81          CALL trc_rst_tra_stat 
    82          CALL flush(numout) 
    83 # endif 
    84  
    8579         IF( ln_zps ) THEN 
    8680           IF( ln_isfcav ) THEN ; CALL zps_hde_isf( kstp, jptra, trb, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )  ! both top & bottom 
     
    9589#endif 
    9690                                CALL trc_zdf( kstp )            ! vertical mixing and after tracer fields 
    97 # if defined key_debug_medusa 
    98          IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kstp 
    99          CALL trc_rst_tra_stat 
    100          CALL flush(numout) 
    101 # endif 
    10291                                CALL trc_nxt( kstp )            ! tracer fields at next time step      
    10392# if defined key_debug_medusa 
Note: See TracChangeset for help on using the changeset viewer.