- Timestamp:
- 2009-04-06T15:32:40+02:00 (15 years ago)
- Location:
- branches/dev_004_VVL/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/OPA_SRC/DYN/dynnxt.F90
r1381 r1382 79 79 INTEGER, INTENT( in ) :: kt ! ocean time-step index 80 80 !! 81 INTEGER :: j k ! dummy loop indices81 INTEGER :: ji, jj, jk ! dummy loop indices 82 82 REAL(wp) :: z2dt ! temporary scalar 83 REAL(wp) :: zue3a , zue3n , zue3b ! temporary scalar 84 REAL(wp) :: zve3a , zve3n , zve3b ! - - 85 REAL(wp) :: ze3u_b, ze3u_n, ze3u_a ! - - 86 REAL(wp) :: ze3v_b, ze3v_n, ze3v_a ! - - 83 87 !!---------------------------------------------------------------------- 84 88 -
branches/dev_004_VVL/NEMO/OPA_SRC/DYN/wzvmod.F90
r1381 r1382 34 34 !! * Substitutions 35 35 # include "domzgr_substitute.h90" 36 # include "vectopt_loop_substitute.h90" 37 36 38 !!---------------------------------------------------------------------- 37 39 !! OPA 9.0 , LOCEAN-IPSL (2005) -
branches/dev_004_VVL/NEMO/OPA_SRC/TRA/tranxt.F90
r1381 r1382 22 22 USE dom_oce ! ocean space and time domain variables 23 23 USE zdf_oce ! ??? 24 USE domvvl ! variable volume 24 25 USE dynspg_oce ! surface pressure gradient variables 25 26 USE trdmod_oce ! ocean variables trends
Note: See TracChangeset
for help on using the changeset viewer.