Changeset 1527
- Timestamp:
- 2009-07-22T17:18:48+02:00 (15 years ago)
- Location:
- trunk/NEMO/OPA_SRC/ZDF
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/ZDF/zdfddm.F90
r1163 r1527 173 173 avs (ji,jj,jk) = avt(ji,jj,jk) + zavfs + zavds 174 174 avt (ji,jj,jk) = avt(ji,jj,jk) + zavft + zavdt 175 avm (ji,jj,jk) = avm(ji,jj,jk) + MAX( zavft + zavdt, zavfs + zavds ) 175 176 END DO 176 177 END DO … … 179 180 ! Increase avmu, avmv if necessary 180 181 ! -------------------------------- 182 !!gm to be changed following the definition of avm. 181 183 DO jj = 1, jpjm1 182 184 DO ji = 1, fs_jpim1 ! vector opt. … … 199 201 CALL lbc_lnk( avt , 'W', 1. ) 200 202 CALL lbc_lnk( avs , 'W', 1. ) 203 CALL lbc_lnk( avm , 'W', 1. ) 201 204 CALL lbc_lnk( avmu, 'U', 1. ) 202 205 CALL lbc_lnk( avmv, 'V', 1. ) -
trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90
r1482 r1527 89 89 #endif 90 90 avt (ji ,jj ,jk) = avevd * tmask(ji ,jj ,jk) 91 avm (ji ,jj ,jk) = avevd * tmask(ji ,jj ,jk) 91 92 avmu(ji ,jj ,jk) = avevd * umask(ji ,jj ,jk) 92 93 avmu(ji-1,jj ,jk) = avevd * umask(ji-1,jj ,jk) … … 103 104 ! -------------------------------=================== 104 105 CALL lbc_lnk( avt , 'W', 1. ) 106 CALL lbc_lnk( avm , 'W', 1. ) 105 107 CALL lbc_lnk( avmu, 'U', 1. ) 106 108 CALL lbc_lnk( avmv, 'V', 1. ) -
trunk/NEMO/OPA_SRC/ZDF/zdftmx.F90
r1518 r1527 79 79 !! - update the model vertical eddy viscosity and diffusivity: 80 80 !! avt = avt + av_tides 81 !! avm = avm + av_tides 81 82 !! avmu = avmu + mi(av_tides) 82 83 !! avmv = avmv + mj(av_tides) 83 84 !! 84 !! ** Action : avt, avm u, avmv increased by tidal mixing85 !! ** Action : avt, avm, avmu, avmv increased by tidal mixing 85 86 !! 86 87 !! References : Simmons et al. 2004, Ocean Modelling, 6, 3-4, 245-263. … … 142 143 DO jk = 2, jpkm1 !* update momentum & tracer diffusivity with tidal mixing 143 144 avt(:,:,jk) = avt(:,:,jk) + av_tide(:,:,jk) 145 avm(:,:,jk) = avm(:,:,jk) + av_tide(:,:,jk) 144 146 DO jj = 2, jpjm1 145 147 DO ji = fs_2, fs_jpim1 ! vector opt.
Note: See TracChangeset
for help on using the changeset viewer.