Changeset 3471 for branches/2012/dev_r3438_LOCEAN15_PISLOB
- Timestamp:
- 2012-09-06T12:50:24+02:00 (12 years ago)
- Location:
- branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90
r3446 r3471 140 140 # else 141 141 zgrazffe = grazflux * zstep * wsbio3(ji,jj,jk) & 142 & * tgfunc2(ji,jj,jk) * trn(ji,jj,jk,jppoc) * trn(ji,jj,jk,jpmes) 142 143 zgrazfff = zgrazffe * trn(ji,jj,jk,jpsfe) / (trn(ji,jj,jk,jppoc) + rtrn) 143 144 # endif -
branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90
r3446 r3471 403 403 ! ---------------------------------------------- 404 404 405 zagg1 = (0.163 * trn(ji,jj,jk,jpnum)**2 &405 zagg1 = 0.163 * trn(ji,jj,jk,jpnum)**2 & 406 406 & * 2.*( (zfm-1.)*(zfm*xkr_mass_max**3-xkr_mass_min**3) & 407 407 & * (zeps-1)/zdiv1 + 3.*(zfm*xkr_mass_max-xkr_mass_min) & -
branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r3451 r3471 374 374 & + trn(:,:,:,jpphy) + trn(:,:,:,jpdia) & 375 375 & + trn(:,:,:,jpzoo) + trn(:,:,:,jpmes) & 376 #if ! defined key_kriest 376 377 & + trn(:,:,:,jppoc) + trn(:,:,:,jpgoc) & 378 #else 379 & + trn(:,:,:,jppoc) & 380 #endif 377 381 & + trn(:,:,:,jpdoc) ) * cvol(:,:,:) ) 378 382 !
Note: See TracChangeset
for help on using the changeset viewer.