Changeset 8003 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
- Timestamp:
- 2017-05-09T12:14:45+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r7180 r8003 142 142 trn(:,:,:,jppon) = bioma0 143 143 trn(:,:,:,jppop) = bioma0 144 # if ! defined key_kriest145 144 trn(:,:,:,jpgoc) = bioma0 146 145 trn(:,:,:,jpgon) = bioma0 147 146 trn(:,:,:,jpgop) = bioma0 148 147 trn(:,:,:,jpbfe) = bioma0 * 5.e-6 149 # else150 trn(:,:,:,jpnum) = bioma0 / ( 6. * xkr_massp )151 # endif152 148 trn(:,:,:,jpsil) = silic1 153 149 trn(:,:,:,jpdsi) = bioma0 * 0.15 … … 293 289 trn(:,:,:,jppo4) = po4 / po4r 294 290 trn(:,:,:,jppoc) = bioma0 295 # if ! defined key_kriest296 291 trn(:,:,:,jpgoc) = bioma0 297 292 trn(:,:,:,jpbfe) = bioma0 * 5.e-6 298 # else299 trn(:,:,:,jpnum) = bioma0 / ( 6. * xkr_massp )300 # endif301 293 trn(:,:,:,jpsil) = silic1 302 294 trn(:,:,:,jpdsi) = bioma0 * 0.15
Note: See TracChangeset
for help on using the changeset viewer.