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 7865 for branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90 – NEMO

Ignore:
Timestamp:
2017-04-03T10:17:15+02:00 (7 years ago)
Author:
marc
Message:

Adding extra arguments to ZPS_HDE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r7850 r7865  
    1414   !!---------------------------------------------------------------------- 
    1515   USE oce_trc         ! ocean dynamics and active tracers variables 
     16   USE dom_oce, ONLY: e3w_n, gdep3w_n, gdept_n 
    1617   USE trc             ! ocean passive tracers variables  
    1718   USE trcnam_trp      ! passive tracers transport namelist variables 
     
    8485 
    8586         IF( ln_zps  .AND. .NOT. ln_isfcav)        & 
    86             &            CALL zps_hde    ( kstp, jptra, trn, gtru, gtrv )   ! Partial steps: now horizontal gradient of passive 
     87            &            CALL zps_hde    ( kstp, jptra, trn, e3w_n, gdept_n, & 
     88            &                              gtru, gtrv )   ! Partial steps: now horizontal gradient of passive 
    8789         IF( ln_zps .AND.        ln_isfcav)        & 
    88             &            CALL zps_hde_isf( kstp, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )  ! Partial steps: now horizontal gradient of passive 
     90            &            CALL zps_hde_isf( kstp, jptra, trn,                 & 
     91            &                              e3w_n, gdept_n, gdep3w_n,         & 
     92            &                              pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )  ! Partial steps: now horizontal gradient of passive 
    8993                                                                ! tracers at the bottom ocean level 
    9094         ! 
Note: See TracChangeset for help on using the changeset viewer.