- Timestamp:
- 2018-12-03T12:45:01+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/C1D/dyndmp.F90
r10297 r10368 182 182 DO jj = 2, jpjm1 183 183 DO ji = fs_2, fs_jpim1 ! vector opt. 184 IF( avt(ji,jj,jk) <= 5.e-4_wp) THEN184 IF( avt(ji,jj,jk) <= avt_c ) THEN 185 185 zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - ub(ji,jj,jk) ) 186 186 zva = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,2) - vb(ji,jj,jk) )
Note: See TracChangeset
for help on using the changeset viewer.