- 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/dynzdf.F90
r2715 r3211 35 35 REAL(wp) :: r2dt ! time-step, = 2 rdttra except at nit000 (=rdttra) if neuler=0 36 36 37 !! * Control permutation of array indices 38 # include "oce_ftrans.h90" 39 # include "dom_oce_ftrans.h90" 40 # include "zdf_oce_ftrans.h90" 41 # include "ldfdyn_oce_ftrans.h90" 42 37 43 !! * Substitutions 38 44 # include "domzgr_substitute.h90" … … 55 61 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 56 62 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1 , ztrdv => wrk_3d_2 ! 3D workspace 63 !! DCSE_NEMO: need additional directives for renamed module variables 64 !FTRANS ztrdu :I :I :z 65 !FTRANS ztrdv :I :I :z 57 66 !! 58 67 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 112 121 USE zdfgls 113 122 USE zdfkpp 123 # include "zdftke_ftrans.h90" 114 124 !!---------------------------------------------------------------------- 115 125 !
Note: See TracChangeset
for help on using the changeset viewer.