- Timestamp:
- 2020-09-29T12:41:06+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/r12377_ticket2386
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12377_ticket2386
- 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@13507 sette
-
- Property svn:externals
-
NEMO/branches/2020/r12377_ticket2386/src/TOP/PISCES/P4Z/p4zpoc.F90
r12377 r13540 15 15 USE trc ! passive tracers common variables 16 16 USE sms_pisces ! PISCES Source Minus Sink variables 17 USE prtctl _trc! print control for debugging17 USE prtctl ! print control for debugging 18 18 USE iom ! I/O manager 19 19 … … 39 39 !! * Substitutions 40 40 # include "do_loop_substitute.h90" 41 # include "domzgr_substitute.h90" 41 42 !!---------------------------------------------------------------------- 42 43 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 106 107 ! ----------------------------------------------------------------------- 107 108 ztremint(:,:,:) = zremigoc(:,:,:) 108 DO_3D _11_11(2, jpkm1 )109 DO_3D( 1, 1, 1, 1, 2, jpkm1 ) 109 110 IF (tmask(ji,jj,jk) == 1.) THEN 110 111 zdep = hmld(ji,jj) … … 191 192 192 193 IF( ln_p4z ) THEN 193 DO_3D _11_11(1, jpkm1 )194 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 194 195 ! POC disaggregation by turbulence and bacterial activity. 195 196 ! -------------------------------------------------------- … … 211 212 END_3D 212 213 ELSE 213 DO_3D _11_11(1, jpkm1 )214 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 214 215 ! POC disaggregation by turbulence and bacterial activity. 215 216 ! -------------------------------------------------------- … … 241 242 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 242 243 WRITE(charout, FMT="('poc1')") 243 CALL prt_ctl_ trc_info(charout)244 CALL prt_ctl _trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm)244 CALL prt_ctl_info( charout, cdcomp = 'top' ) 245 CALL prt_ctl(tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm) 245 246 ENDIF 246 247 … … 259 260 ! ---------------------------------------------------------------- 260 261 ! 261 DO_3D _11_11(1, jpkm1 )262 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 262 263 zdep = hmld(ji,jj) 263 264 IF (tmask(ji,jj,jk) == 1. .AND. gdept(ji,jj,jk,Kmm) <= zdep ) THEN … … 274 275 ! --------------------------------------------------------------------- 275 276 ztremint(:,:,:) = zremipoc(:,:,:) 276 DO_3D _11_11(1, jpkm1 )277 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 277 278 IF (tmask(ji,jj,jk) == 1.) THEN 278 279 zdep = hmld(ji,jj) … … 309 310 ! ----------------------------------------------------------------------- 310 311 ! 311 DO_3D _11_11(2, jpkm1 )312 DO_3D( 1, 1, 1, 1, 2, jpkm1 ) 312 313 IF (tmask(ji,jj,jk) == 1.) THEN 313 314 zdep = hmld(ji,jj) … … 383 384 384 385 IF( ln_p4z ) THEN 385 DO_3D _11_11(1, jpkm1 )386 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 386 387 IF (tmask(ji,jj,jk) == 1.) THEN 387 388 ! POC disaggregation by turbulence and bacterial activity. … … 400 401 END_3D 401 402 ELSE 402 DO_3D _11_11(1, jpkm1 )403 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 403 404 ! POC disaggregation by turbulence and bacterial activity. 404 405 ! -------------------------------------------------------- … … 433 434 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 434 435 WRITE(charout, FMT="('poc2')") 435 CALL prt_ctl_ trc_info(charout)436 CALL prt_ctl _trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm)436 CALL prt_ctl_info( charout, cdcomp = 'top' ) 437 CALL prt_ctl(tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm) 437 438 ENDIF 438 439 !
Note: See TracChangeset
for help on using the changeset viewer.