- Timestamp:
- 2011-08-09T10:29:53+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zrem.F90
r2773 r2819 12 12 !! 'key_pisces' PISCES bio-model 13 13 !!---------------------------------------------------------------------- 14 !! p4z_rem : Compute remineralization/scavenging of organic compounds 15 !!---------------------------------------------------------------------- 16 USE trc 17 USE oce_trc ! 18 USE sms_pisces ! 19 USE prtctl_trc 20 USE p4zint 21 USE p4zopt 22 USE p4zmeso 23 USE p4zprod 24 USE p4zche 14 !! p4z_rem : Compute remineralization/scavenging of organic compounds 15 !! p4z_rem_init : Initialisation of parameters for remineralisation 16 !! p4z_rem_alloc : Allocate remineralisation variables 17 !!---------------------------------------------------------------------- 18 USE oce_trc ! shared variables between ocean and passive tracers 19 USE trc ! passive tracers common variables 20 USE sms_pisces ! PISCES Source Minus Sink variables 21 USE p4zopt ! optical model 22 USE p4zche ! chemical model 23 USE p4zprod ! Growth rate of the 2 phyto groups 24 USE p4zmeso ! Sources and sinks of mesozooplankton 25 USE prtctl_trc ! print control for debugging 25 26 26 27 IMPLICIT NONE … … 61 62 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 62 63 USE wrk_nemo, ONLY: ztempbac => wrk_2d_1 63 USE wrk_nemo, ONLY: zdepbac => wrk_3d_2 64 USE wrk_nemo, ONLY: zdepbac => wrk_3d_2, zolimi => wrk_3d_3 64 65 ! 65 66 INTEGER, INTENT(in) :: kt ! ocean time step … … 117 118 DO jj = 1, jpj 118 119 DO ji = 1, jpi 120 zstep = xstep 119 121 # if defined key_degrad 120 zstep = xstep * facvol(ji,jj,jk) 121 # else 122 zstep = xstep 122 zstep = zstep * facvol(ji,jj,jk) 123 123 # endif 124 124 ! DOC ammonification. Depends on depth, phytoplankton biomass … … 153 153 DO jj = 1, jpj 154 154 DO ji = 1, jpi 155 zstep = xstep 155 156 # if defined key_degrad 156 zstep = xstep * facvol(ji,jj,jk) 157 # else 158 zstep = xstep 157 zstep = zstep * facvol(ji,jj,jk) 159 158 # endif 160 159 ! NH4 nitrification to NO3. Ceased for oxygen concentrations … … 214 213 DO jj = 1, jpj 215 214 DO ji = 1, jpi 215 zstep = xstep 216 216 # if defined key_degrad 217 zstep = xstep * facvol(ji,jj,jk) 218 # else 219 zstep = xstep 217 zstep = zstep * facvol(ji,jj,jk) 220 218 # endif 221 219 ! POC disaggregation by turbulence and bacterial activity. … … 266 264 DO jj = 1, jpj 267 265 DO ji = 1, jpi 266 zstep = xstep 268 267 # if defined key_degrad 269 zstep = xstep * facvol(ji,jj,jk) 270 # else 271 zstep = xstep 268 zstep = zstep * facvol(ji,jj,jk) 272 269 # endif 273 270 ! Remineralization rate of BSi depedant on T and saturation … … 300 297 !CDIR NOVERRCHK 301 298 DO ji = 1, jpi 299 zstep = xstep 302 300 # if defined key_degrad 303 zstep = xstep * facvol(ji,jj,jk) 304 # else 305 zstep = xstep 301 zstep = zstep * facvol(ji,jj,jk) 306 302 # endif 307 303 ! Compute de different ratios for scavenging of iron … … 414 410 !!---------------------------------------------------------------------- 415 411 416 REWIND( numnat ) ! read numnat417 READ ( numnat , nampisrem )412 REWIND( numnatp ) ! read numnatp 413 READ ( numnatp, nampisrem ) 418 414 419 415 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.