Changeset 3295 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zmort.F90
- Timestamp:
- 2012-01-30T16:49:07+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zmort.F90
r3294 r3295 191 191 zfactch = trn(ji,jj,jk,jpdch) / ( trn(ji,jj,jk,jpdia) + rtrn ) 192 192 zfactfe = trn(ji,jj,jk,jpdfe) / ( trn(ji,jj,jk,jpdia) + rtrn ) 193 zfactsi = trn(ji,jj,jk,jp bsi) / ( trn(ji,jj,jk,jpdia) + rtrn )193 zfactsi = trn(ji,jj,jk,jpdsi) / ( trn(ji,jj,jk,jpdia) + rtrn ) 194 194 195 195 tra(ji,jj,jk,jpdia) = tra(ji,jj,jk,jpdia) - zmortp2 196 196 tra(ji,jj,jk,jpdch) = tra(ji,jj,jk,jpdch) - zmortp2 * zfactch 197 197 tra(ji,jj,jk,jpdfe) = tra(ji,jj,jk,jpdfe) - zmortp2 * zfactfe 198 tra(ji,jj,jk,jp bsi) = tra(ji,jj,jk,jpbsi) - zmortp2 * zfactsi199 tra(ji,jj,jk,jp dsi) = tra(ji,jj,jk,jpdsi) + zmortp2 * zfactsi198 tra(ji,jj,jk,jpdsi) = tra(ji,jj,jk,jpdsi) - zmortp2 * zfactsi 199 tra(ji,jj,jk,jpgsi) = tra(ji,jj,jk,jpgsi) + zmortp2 * zfactsi 200 200 #if defined key_kriest 201 201 tra(ji,jj,jk,jppoc) = tra(ji,jj,jk,jppoc) + zmortp2
Note: See TracChangeset
for help on using the changeset viewer.