Changeset 10351 for NEMO/trunk/src/OCE/TRA/tradmp.F90
- Timestamp:
- 2018-11-21T15:19:04+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/tradmp.F90
r10068 r10351 123 123 DO jj = 2, jpjm1 124 124 DO ji = fs_2, fs_jpim1 ! vector opt. 125 IF( avt(ji,jj,jk) <= 5.e-4_wp) THEN125 IF( avt(ji,jj,jk) <= avt_c ) THEN 126 126 tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem) & 127 127 & + resto(ji,jj,jk) * ( zts_dta(ji,jj,jk,jp_tem) - tsb(ji,jj,jk,jp_tem) )
Note: See TracChangeset
for help on using the changeset viewer.