- Timestamp:
- 2014-02-04T13:12:20+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_exp.F90
r3211 r4409 91 91 INTEGER , INTENT(in ) :: kjpt ! number of tracers 92 92 INTEGER , INTENT(in ) :: kn_zdfexp ! number of sub-time step 93 REAL(wp), DIMENSION( jpk), INTENT(in ) :: p2dt ! vertical profile of tracer time-step93 REAL(wp), DIMENSION( jpkorig ), INTENT(in ) :: p2dt ! vertical profile of tracer time-step 94 94 95 95 !! DCSE_NEMO: This style defeats ftrans … … 98 98 99 99 !FTRANS ptb pta :I :I :z : 100 REAL(wp), INTENT(in ) :: ptb(jpi,jpj,jpk ,kjpt) ! before and now tracer fields101 REAL(wp), INTENT(inout) :: pta(jpi,jpj,jpk ,kjpt) ! tracer trend100 REAL(wp), INTENT(in ) :: ptb(jpi,jpj,jpkorig,kjpt) ! before and now tracer fields 101 REAL(wp), INTENT(inout) :: pta(jpi,jpj,jpkorig,kjpt) ! tracer trend 102 102 ! 103 103 INTEGER :: ji, jj, jk, jn, jl ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.