- Timestamp:
- 2017-09-18T14:58:22+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90
r6943 r8532 192 192 DO ji = 1, jpi 193 193 ! denitrification factor computed from O2 levels 194 nitrfac(ji,jj,jk) = MAX( 0.e0, 0.4 * ( 6.e-6 - trb(ji,jj,jk,jpoxy) ) &194 nitrfac(ji,jj,jk) = MAX( 0.e0, 0.4 * ( 6.e-6 - trb(ji,jj,jk,jpoxy) ) & 195 195 & / ( oxymin + trb(ji,jj,jk,jpoxy) ) ) 196 nitrfac(ji,jj,jk) = MIN( 1., nitrfac(ji,jj,jk) ) 196 nitrfac(ji,jj,jk) = MIN( 1., nitrfac(ji,jj,jk) ) 197 ! 198 ! denitrification factor computed from NO3 levels 199 nitrfac2(ji,jj,jk) = MAX( 0.e0, ( 1.E-6 - trb(ji,jj,jk,jpno3) ) & 200 & / ( 1.E-6 + trb(ji,jj,jk,jpno3) ) ) 201 nitrfac2(ji,jj,jk) = MIN( 1., nitrfac2(ji,jj,jk) ) 197 202 END DO 198 203 END DO … … 266 271 ! 267 272 nitrfac (:,:,:) = 0._wp 273 nitrfac2(:,:,:) = 0._wp 268 274 ! 269 275 END SUBROUTINE p4z_lim_init
Note: See TracChangeset
for help on using the changeset viewer.