Changeset 4425
- Timestamp:
- 2014-02-04T13:13:49+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r4409 r4425 576 576 !!---------------------------------------------------------------------- 577 577 USE oce, ONLY: zmpdl => ua , zmxlm => va , zmxld => ta ! (ua,va,ta) used as workspace 578 USE arpdebugging, ONLY: dump_array579 578 !! DCSE_NEMO: need additional directives for renamed module variables 580 579 !FTRANS zmpdl zmxlm zmxld :I :I :z … … 584 583 REAL(wp) :: zdku, zpdlr, zri, zsqen ! - - 585 584 REAL(wp) :: zdkv, zemxl, zemlm, zemlp ! - - 586 INTEGER, PARAMETER :: DUMP_LEVEL = 26 ! ARPDBG - level to dump to disk587 585 !!-------------------------------------------------------------------- 588 586 … … 793 791 CALL lbc_lnk( avmu, 'U', 1. ) ; CALL lbc_lnk( avmv, 'V', 1. ) ! Lateral boundary conditions 794 792 ! 795 CALL dump_array(1, 'avmu_tke',avmu(:,:,DUMP_LEVEL), &796 withHalos=.TRUE.,atStep=1)797 798 793 IF( nn_pdl == 1 ) THEN !* Prandtl number case: update avt 799 794 #if defined key_z_first
Note: See TracChangeset
for help on using the changeset viewer.