Changeset 4425


Ignore:
Timestamp:
2014-02-04T13:13:49+01:00 (7 years ago)
Author:
trackstand2
Message:

Removed dump_array calls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r4409 r4425  
    576576      !!---------------------------------------------------------------------- 
    577577      USE oce, ONLY:   zmpdl => ua , zmxlm => va , zmxld => ta   ! (ua,va,ta) used as workspace 
    578       USE arpdebugging, ONLY: dump_array 
    579578      !! DCSE_NEMO: need additional directives for renamed module variables 
    580579!FTRANS zmpdl zmxlm zmxld :I :I :z 
     
    584583      REAL(wp) ::   zdku, zpdlr, zri, zsqen     !   -      - 
    585584      REAL(wp) ::   zdkv, zemxl, zemlm, zemlp   !   -      - 
    586       INTEGER, PARAMETER :: DUMP_LEVEL = 26 ! ARPDBG - level to dump to disk 
    587585      !!-------------------------------------------------------------------- 
    588586 
     
    793791      CALL lbc_lnk( avmu, 'U', 1. )   ;   CALL lbc_lnk( avmv, 'V', 1. )      ! Lateral boundary conditions 
    794792      ! 
    795       CALL dump_array(1, 'avmu_tke',avmu(:,:,DUMP_LEVEL), & 
    796                       withHalos=.TRUE.,atStep=1) 
    797  
    798793      IF( nn_pdl == 1 ) THEN      !* Prandtl number case: update avt 
    799794#if defined key_z_first 
Note: See TracChangeset for help on using the changeset viewer.