Changeset 7865 for branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/trcini.F90

Timestamp:

2017-04-03T10:17:15+02:00 (7 years ago)

Author:

marc

Message:

Adding extra arguments to ZPS_HDE

File:

• branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/trcini.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -17 +17 @@
    !!----------------------------------------------------------------------
    USE oce_trc         ! shared variables between ocean and passive tracers
+   USE dom_oce, ONLY: e3w_n, gdep3w_n, gdept_n
    USE trc             ! passive tracers common variables
    USE trcrst          ! passive tracers restart
@@ -147 +148 @@
       tra(:,:,:,:) = 0._wp
       IF( ln_zps .AND. .NOT. lk_c1d .AND. .NOT. ln_isfcav )   &              ! Partial steps: before horizontal gradient of passive
-        &    CALL zps_hde    ( nit000, jptra, trn, gtru, gtrv  )  ! Partial steps: before horizontal gradient
+        &    CALL zps_hde    ( nit000, jptra, trn, e3w_n, gdept_n,    &
+        &                      gtru, gtrv  )  ! Partial steps: before horizontal gradient
       IF( ln_zps .AND. .NOT. lk_c1d .AND.       ln_isfcav )   &
-        &    CALL zps_hde_isf( nit000, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )       ! tracers at the bottom ocean level
+        &    CALL zps_hde_isf( nit000, jptra, trn, e3w_n, gdept_n, gdep3w_n,  &
+        &                      pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )       ! tracers at the bottom ocean level