Changeset 8434 for branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/TRP

Timestamp:

2017-08-11T12:47:19+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- 11-08-2017 -- MEDUSA cleaned and purged

Location:

branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/TRP

Files:

• trcadv.F90 (modified) (2 diffs)
• trctrp.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -29 +29 @@
    USE trdtra
    USE prtctl_trc      ! Print control
-   !! USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
 
    IMPLICIT NONE
@@ -109 +108 @@
       zvn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
       zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
-      ! 
-      !! Jpalm -- 14-01-2016 -- restart and proc pb - try this... 
-      !! DO jn = 1, jptra
-      !!   CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )
-      !!   CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )
-      !! END DO
-      !
 
       IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif )   &  ! add the eiv transport (if necessary)

branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

@@ -77 +77 @@
          IF( ln_trcdmp )        CALL trc_dmp( kstp )            ! internal damping trends
                                 CALL trc_adv( kstp )            ! horizontal & vertical advection 
-# if defined key_debug_medusa
-         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kstp
-         CALL trc_rst_tra_stat
-         CALL flush(numout)
-# endif
-
          IF( ln_zps ) THEN
            IF( ln_isfcav ) THEN ; CALL zps_hde_isf( kstp, jptra, trb, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )  ! both top & bottom
@@ -95 +89 @@
 #endif
                                 CALL trc_zdf( kstp )            ! vertical mixing and after tracer fields
-# if defined key_debug_medusa
-         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kstp
-         CALL trc_rst_tra_stat
-         CALL flush(numout)
-# endif
                                 CALL trc_nxt( kstp )            ! tracer fields at next time step     
 # if defined key_debug_medusa