- Timestamp:
- 2015-12-16T10:25:22+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc.F90
r5836 r6060 66 66 67 67 !! * Substitutions 68 # include "domzgr_substitute.h90"69 68 # include "zdfddm_substitute.h90" 70 69 !!---------------------------------------------------------------------- … … 175 174 DO jj = 1, jpj 176 175 DO ji = 1, jpi 177 IF( jk - nmld_trc(ji,jj) < 0 ) wkx_trc(ji,jj,jk) = fse3t(ji,jj,jk) * tmask(ji,jj,jk)176 IF( jk - nmld_trc(ji,jj) < 0 ) wkx_trc(ji,jj,jk) = e3t_n(ji,jj,jk) * tmask(ji,jj,jk) 178 177 END DO 179 178 END DO … … 293 292 DO jj = 1,jpj 294 293 DO ji = 1,jpi 295 IF( jk - nmld_trc(ji,jj) < 0. ) wkx_trc(ji,jj,jk) = fse3t(ji,jj,jk) * tmask(ji,jj,jk)294 IF( jk - nmld_trc(ji,jj) < 0. ) wkx_trc(ji,jj,jk) = e3t_n(ji,jj,jk) * tmask(ji,jj,jk) 296 295 END DO 297 296 END DO … … 417 416 DO jn = 1, jptra 418 417 IF( ln_trdtrc(jn) ) & 419 tmltrd_trc(ji,jj,jpmxl_trc_zdf,jn) = - zavt / fse3w(ji,jj,ik) * tmask(ji,jj,ik) &418 tmltrd_trc(ji,jj,jpmxl_trc_zdf,jn) = - zavt / e3w_n(ji,jj,ik) * tmask(ji,jj,ik) & 420 419 & * ( trn(ji,jj,ik-1,jn) - trn(ji,jj,ik,jn) ) & 421 420 & / MAX( 1., rmld_trc(ji,jj) ) * tmask(ji,jj,1)
Note: See TracChangeset
for help on using the changeset viewer.