- Timestamp:
- 2020-11-05T15:18:53+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_12905_xios_restart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_12905_xios_restart/src/TOP/PISCES/P4Z/p5zprod.F90
r12377 r13727 18 18 USE p4zlim 19 19 USE p5zlim ! Co-limitations of differents nutrients 20 USE prtctl _trc! print control for debugging20 USE prtctl ! print control for debugging 21 21 USE iom ! I/O manager 22 22 … … 52 52 !! * Substitutions 53 53 # include "do_loop_substitute.h90" 54 # include "domzgr_substitute.h90" 54 55 !!---------------------------------------------------------------------- 55 56 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 124 125 ! day length in hours 125 126 zstrn(:,:) = 0. 126 DO_2D _11_11127 DO_2D( 1, 1, 1, 1 ) 127 128 zargu = TAN( zcodel ) * TAN( gphit(ji,jj) * rad ) 128 129 zargu = MAX( -1., MIN( 1., zargu ) ) … … 131 132 132 133 ! Impact of the day duration on phytoplankton growth 133 DO_3D _11_11(1, jpkm1 )134 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 134 135 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 135 136 zval = MAX( 1., zstrn(ji,jj) ) … … 151 152 WHERE( zstrn(:,:) < 1.e0 ) zstrn(:,:) = 24. 152 153 153 DO_3D _11_11(1, jpkm1 )154 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 154 155 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 155 156 ! Computation of the P-I slope for nanos and diatoms … … 185 186 END_3D 186 187 187 DO_3D _11_11(1, jpkm1 )188 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 188 189 189 190 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN … … 207 208 208 209 ! Sea-ice effect on production 209 DO_3D _11_11(1, jpkm1 )210 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 210 211 zprbio(ji,jj,jk) = zprbio(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 211 212 zprpic(ji,jj,jk) = zprpic(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) … … 215 216 216 217 ! Computation of the various production terms of nanophytoplankton 217 DO_3D _11_11(1, jpkm1 )218 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 218 219 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 219 220 ! production terms for nanophyto. … … 248 249 249 250 ! Computation of the various production terms of picophytoplankton 250 DO_3D _11_11(1, jpkm1 )251 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 251 252 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 252 253 ! production terms for picophyto. … … 281 282 282 283 ! Computation of the various production terms of diatoms 283 DO_3D _11_11(1, jpkm1 )284 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 284 285 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 285 286 ! production terms for diatomees … … 315 316 END_3D 316 317 317 DO_3D _11_11(1, jpkm1 )318 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 318 319 IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 319 320 ! production terms for nanophyto. ( chlorophyll ) … … 346 347 347 348 ! Update the arrays TRA which contain the biological sources and sinks 348 DO_3D _11_11(1, jpkm1 )349 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 349 350 zprontot = zpronewn(ji,jj,jk) + zproregn(ji,jj,jk) 350 351 zproptot = zpronewp(ji,jj,jk) + zproregp(ji,jj,jk) … … 409 410 IF( ln_ligand ) THEN 410 411 zpligprod1(:,:,:) = 0._wp ; zpligprod2(:,:,:) = 0._wp 411 DO_3D _11_11(1, jpkm1 )412 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 412 413 zdocprod = excretd * zprorcad(ji,jj,jk) + excretn * zprorcan(ji,jj,jk) + excretp * zprorcap(ji,jj,jk) 413 414 zfeup = texcretn * zprofen(ji,jj,jk) + texcretd * zprofed(ji,jj,jk) + texcretp * zprofep(ji,jj,jk) … … 460 461 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 461 462 WRITE(charout, FMT="('prod')") 462 CALL prt_ctl_ trc_info(charout)463 CALL prt_ctl _trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm)463 CALL prt_ctl_info( charout, cdcomp = 'top' ) 464 CALL prt_ctl(tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm) 464 465 ENDIF 465 466 !
Note: See TracChangeset
for help on using the changeset viewer.