Changeset 4425 for branches/2011

Timestamp:

2014-02-04T13:13:49+01:00 (10 years ago)

Author:

trackstand2

Message:

Removed dump_array calls

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -576 +576 @@
       !!----------------------------------------------------------------------
       USE oce, ONLY:   zmpdl => ua , zmxlm => va , zmxld => ta   ! (ua,va,ta) used as workspace
-      USE arpdebugging, ONLY: dump_array
       !! DCSE_NEMO: need additional directives for renamed module variables
 !FTRANS zmpdl zmxlm zmxld :I :I :z
@@ -584 +583 @@
       REAL(wp) ::   zdku, zpdlr, zri, zsqen     !   -      -
       REAL(wp) ::   zdkv, zemxl, zemlm, zemlp   !   -      -
-      INTEGER, PARAMETER :: DUMP_LEVEL = 26 ! ARPDBG - level to dump to disk
       !!--------------------------------------------------------------------
 
@@ -793 +791 @@
       CALL lbc_lnk( avmu, 'U', 1. )   ;   CALL lbc_lnk( avmv, 'V', 1. )      ! Lateral boundary conditions
       !
-      CALL dump_array(1, 'avmu_tke',avmu(:,:,DUMP_LEVEL), &
-                      withHalos=.TRUE.,atStep=1)
-
       IF( nn_pdl == 1 ) THEN      !* Prandtl number case: update avt
 #if defined key_z_first