- 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/TRA/traldf_bilap.F90
r2715 r3211 34 34 35 35 PUBLIC tra_ldf_bilap ! routine called by step.F90 36 37 !! * Control permutation of array indices 38 # include "oce_ftrans.h90" 39 # include "dom_oce_ftrans.h90" 40 # include "ldftra_oce_ftrans.h90" 41 # include "ldfslp_ftrans.h90" 42 # include "trc_oce_ftrans.h90" 36 43 37 44 !! * Substitutions … … 77 84 USE oce , ONLY: ztu => ua , ztv => va ! (ua,va) used as workspace 78 85 USE wrk_nemo, ONLY: zeeu => wrk_2d_1 , zeev => wrk_2d_2 , zlt => wrk_2d_3 ! 2D workspace 86 87 !! DCSE_NEMO: need additional directives for renamed module variables 88 !FTRANS ztu ztv :I :I :z 89 79 90 !! 80 91 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 82 93 INTEGER , INTENT(in ) :: kjpt ! number of tracers 83 94 REAL(wp), DIMENSION(jpi,jpj, kjpt), INTENT(in ) :: pgu, pgv ! tracer gradient at pstep levels 84 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb ! before and now tracer fields 85 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend 95 96 !! DCSE_NEMO: This style defeats ftrans 97 ! REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb ! before and now tracer fields 98 ! REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend 99 !FTRANS ptb pta :I :I :z : 100 REAL(wp), INTENT(in ) :: ptb(jpi,jpj,jpk,kjpt) ! before tracer fields 101 REAL(wp), INTENT(inout) :: pta(jpi,jpj,jpk,kjpt) ! tracer trend 102 86 103 !! 87 104 INTEGER :: ji, jj, jk, jn ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.