Changeset 7403 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.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/trczdf.F90 (modified) (2 diffs)

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

@@ -35 +35 @@
    INTEGER ::   nzdf = 0               ! type vertical diffusion algorithm used
       !                                ! defined from ln_zdf...  namlist logicals)
-   REAL(wp) ::  r2dttrc   ! vertical profile time-step, = 2 rdt
-      !                   ! except at nittrc000 (=rdt) if neuler=0
-
    !! * Substitutions
 #  include "zdfddm_substitute.h90"
@@ -63 +60 @@
       IF( nn_timing == 1 )  CALL timing_start('trc_zdf')
       !
-      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
-
       IF( l_trdtrc )  THEN
          CALL wrk_alloc( jpi, jpj, jpk, jptra, ztrtrd )