- Timestamp:
- 2011-12-11T16:00:26+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90
r2715 r3211 28 28 29 29 PUBLIC dyn_ldf_bilap ! called by step.F90 30 31 !! * Control permutation of array indices 32 # include "oce_ftrans.h90" 33 # include "dom_oce_ftrans.h90" 34 # include "ldfdyn_oce_ftrans.h90" 30 35 31 36 !! * Substitutions … … 75 80 !!---------------------------------------------------------------------- 76 81 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 77 USE wrk_nemo, ONLY: zcu => wrk_2d_1 , zcv => wrk_2d_2 ! 3D workspace82 USE wrk_nemo, ONLY: zcu => wrk_2d_1 , zcv => wrk_2d_2 ! 2D workspace 78 83 USE wrk_nemo, ONLY: zuf => wrk_3d_3 , zut => wrk_3d_4 ! 3D workspace 79 84 USE wrk_nemo, ONLY: zlu => wrk_3d_5 , zlv => wrk_3d_6 85 !! DCSE_NEMO: need additional directives for renamed module variables 86 !FTRANS zuf :I :I :z 87 !FTRANS zut :I :I :z 88 !FTRANS zlu :I :I :z 89 !FTRANS zlv :I :I :z 80 90 ! 81 91 INTEGER, INTENT(in) :: kt ! ocean time-step index
Note: See TracChangeset
for help on using the changeset viewer.