Changeset 8003 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P5Z/p5zmicro.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/P5Z/p5zmicro.F90
r7617 r8003 114 114 zcompaz = MAX( ( trb(ji,jj,jk,jpzoo) - 1.e-9 ), 0.e0 ) 115 115 zstep = xstep 116 # if defined key_degrad117 zstep = zstep * facvol(ji,jj,jk)118 # endif119 116 zfact = zstep * tgfunc2(ji,jj,jk) * zcompaz 120 117 … … 275 272 tra(ji,jj,jk,jpzoo) = tra(ji,jj,jk,jpzoo) + zepsherv * zgraztotc - zrespirc & 276 273 & - ztortz - zgrazz 274 IF (mig(ji) == 72 .and. mjg(jj) == 74 .and. jk == 1) THEN 275 write(0,*) 'plante ',zfood, zepsherv, zgraztotc * rday/rfact2/trn(ji,jj,jk,jpzoo), & 276 & zrespirc * rday/rfact2/trn(ji,jj,jk,jpzoo) 277 ENDIF 277 278 tra(ji,jj,jk,jpphy) = tra(ji,jj,jk,jpphy) - zgraznc 278 279 tra(ji,jj,jk,jpnph) = tra(ji,jj,jk,jpnph) - zgraznn … … 298 299 tra(ji,jj,jk,jppop) = tra(ji,jj,jk,jppop) + po4rat3 * ztortz + zgrapop - zgrazpop 299 300 tra(ji,jj,jk,jpsfe) = tra(ji,jj,jk,jpsfe) + ferat3 * ztortz + zgrapof - zgrazpof 300 #if defined key_kriest301 tra(ji,jj,jk,jpnum) = tra(ji,jj,jk,jpnum) + zgrapoc * xkr_dmicro302 #endif303 301 ! 304 302 ! calcite production … … 311 309 & + rno3 * zgraren 312 310 tra(ji,jj,jk,jpcal) = tra(ji,jj,jk,jpcal) + zprcaca 313 #if defined key_kriest314 tra(ji,jj,jk,jpnum) = tra(ji,jj,jk,jpnum) + ztortz * xkr_dmicro &315 - zgrazpoc * trb(ji,jj,jk,jpnum) / ( trb(ji,jj,jk,jppoc) + rtrn )316 #endif317 311 END DO 318 312 END DO
Note: See TracChangeset
for help on using the changeset viewer.