- Timestamp:
- 2021-07-15T11:11:28+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_r4.2RC_GO8_package/src/TOP/PISCES/P4Z/p4zprod.F90
r13295 r15122 110 110 ! day length in hours 111 111 zstrn(:,:) = 0. 112 DO_2D( 1, 1, 1, 1)112 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 113 113 zargu = TAN( zcodel ) * TAN( gphit(ji,jj) * rad ) 114 114 zargu = MAX( -1., MIN( 1., zargu ) ) … … 117 117 118 118 ! Impact of the day duration and light intermittency on phytoplankton growth 119 DO_3D( 1, 1, 1, 1, 1, jpkm1)119 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 120 120 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 121 121 zval = MAX( 1., zstrn(ji,jj) ) … … 135 135 136 136 ! Computation of the P-I slope for nanos and diatoms 137 DO_3D( 1, 1, 1, 1, 1, jpkm1)137 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 138 138 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 139 139 ztn = MAX( 0., ts(ji,jj,jk,jp_tem,Kmm) - 15. ) … … 150 150 END_3D 151 151 152 DO_3D( 1, 1, 1, 1, 1, jpkm1)152 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 153 153 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 154 154 ! Computation of production function for Carbon … … 171 171 ! Computation of a proxy of the N/C ratio 172 172 ! --------------------------------------- 173 DO_3D( 1, 1, 1, 1, 1, jpkm1)173 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 174 174 zval = MIN( xnanopo4(ji,jj,jk), ( xnanonh4(ji,jj,jk) + xnanono3(ji,jj,jk) ) ) & 175 175 & * zprmaxn(ji,jj,jk) / ( zprbio(ji,jj,jk) + rtrn ) … … 181 181 182 182 183 DO_3D( 1, 1, 1, 1, 1, jpkm1)183 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 184 184 185 185 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN … … 205 205 ! Sea-ice effect on production 206 206 207 DO_3D( 1, 1, 1, 1, 1, jpkm1)207 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 208 208 zprbio(ji,jj,jk) = zprbio(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 209 209 zprdia(ji,jj,jk) = zprdia(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) … … 211 211 212 212 ! Computation of the various production terms 213 DO_3D( 1, 1, 1, 1, 1, jpkm1)213 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 214 214 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 215 215 ! production terms for nanophyto. (C) … … 237 237 238 238 ! Computation of the chlorophyll production terms 239 DO_3D( 1, 1, 1, 1, 1, jpkm1)239 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 240 240 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 241 241 ! production terms for nanophyto. ( chlorophyll ) … … 260 260 261 261 ! Update the arrays TRA which contain the biological sources and sinks 262 DO_3D( 1, 1, 1, 1, 1, jpkm1)262 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 263 263 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 264 264 zproreg = zprorcan(ji,jj,jk) - zpronewn(ji,jj,jk) … … 288 288 IF( ln_ligand ) THEN 289 289 zpligprod1(:,:,:) = 0._wp ; zpligprod2(:,:,:) = 0._wp 290 DO_3D( 1, 1, 1, 1, 1, jpkm1)290 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 291 291 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 292 292 zdocprod = excretd * zprorcad(ji,jj,jk) + excretn * zprorcan(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.