- Timestamp:
- 2010-08-18T13:35:40+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r1517 r2060 136 136 #if defined key_ldfslp 137 137 ! update and save of avt (and avs if double diffusive mixing) 138 IF( l_traldf_rot ) THEN 138 IF ( ln_traldf_grif ) THEN 139 DO jk = 2, jpkm1 140 DO jj = 2, jpjm1 141 DO ji = fs_2, fs_jpim1 ! vector opt. 142 zavi = fsahtw(ji,jj,jk) * wslp2(ji,jj,jk) ! vertical mixing coef. due to lateral mixing 143 zwt(ji,jj,jk) = avt(ji,jj,jk) + zavi ! zwt=avt+zavi (total vertical mixing coef. on temperature) 144 # if defined key_zdfddm 145 zavsi(ji,jj,jk) = fsavs(ji,jj,jk) + zavi ! dd mixing: zavsi = total vertical mixing coef. on salinity 146 # endif 147 END DO 148 END DO 149 END DO 150 ELSE IF (l_traldf_rot ) THEN 139 151 DO jk = 2, jpkm1 140 152 DO jj = 2, jpjm1 … … 281 293 END DO 282 294 283 ! Surface bou dary conditions295 ! Surface boundary conditions 284 296 DO jj = 2, jpjm1 285 297 DO ji = fs_2, fs_jpim1 ! vector opt.
Note: See TracChangeset
for help on using the changeset viewer.