- Timestamp:
- 2011-12-11T16:00:26+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r2715 r3211 35 35 INTEGER :: nldf = -2 ! type of lateral diffusion used defined from ln_dynldf_... namlist logicals) 36 36 37 !! * Control permutation of array indices 38 # include "oce_ftrans.h90" 39 # include "dom_oce_ftrans.h90" 40 # include "ldfdyn_oce_ftrans.h90" 41 # include "ldfslp_ftrans.h90" 42 37 43 !! * Substitutions 38 44 # include "domzgr_substitute.h90" … … 53 59 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 54 60 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1 , ztrdv => wrk_3d_2 61 !! DCSE_NEMO: need additional directives for renamed module variables 62 !FTRANS ztrdu :I :I :z 63 !FTRANS ztrdv :I :I :z 64 55 65 ! 56 66 INTEGER, INTENT(in) :: kt ! ocean time-step index
Note: See TracChangeset
for help on using the changeset viewer.