Changeset 7403 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

Timestamp:

2016-11-30T17:56:53+01:00 (8 years ago)

Author:

timgraham

Message:

Merge dev_INGV_METO_merge_2016 into branch

File:

• branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90 (modified) (2 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -57 +57 @@
    INTEGER ::              nadv             ! chosen advection scheme
    !
-   REAL(wp) ::   r2dttrc  ! vertical profile time-step, = 2 rdt
-   !                                                    ! except at nitrrc000 (=rdt) if neuler=0
-
    !! * Substitutions
 #  include "vectopt_loop_substitute.h90"
@@ -87 +84 @@
       !
       CALL wrk_alloc( jpi,jpj,jpk,   zun, zvn, zwn )
-      !
-      IF( ( neuler == 0 .AND. kt == nittrc000 ) .OR. ln_top_euler ) THEN     ! at nittrc000
-         r2dttrc =  rdttrc           ! = rdttrc (use or restarting with Euler time stepping)
-      ELSEIF( kt <= nittrc000 + nn_dttrc ) THEN          ! at nittrc000 or nittrc000+1
-         r2dttrc = 2. * rdttrc       ! = 2 rdttrc (leapfrog)
-      ENDIF
       !                                               !==  effective transport  ==!
       DO jk = 1, jpkm1