- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/TOP/PISCES/P2Z/p2zbio.F90
r13237 r13899 19 19 ! 20 20 USE lbclnk ! 21 USE prtctl _trc! Print control for debbuging21 USE prtctl ! Print control for debbuging 22 22 USE iom ! 23 23 … … 122 122 DO jk = 1, jpkbm1 ! Upper ocean (bio-layers) ! 123 123 ! ! -------------------------- ! 124 DO_2D _00_00124 DO_2D( 0, 0, 0, 0 ) 125 125 ! trophic variables( det, zoo, phy, no3, nh4, dom) 126 126 ! ------------------------------------------------ … … 242 242 DO jk = jpkb, jpkm1 ! Upper ocean (bio-layers) ! 243 243 ! ! -------------------------- ! 244 DO_2D _00_00244 DO_2D( 0, 0, 0, 0 ) 245 245 ! remineralisation of all quantities towards nitrate 246 246 … … 367 367 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 368 368 WRITE(charout, FMT="('bio')") 369 CALL prt_ctl_ trc_info(charout)370 CALL prt_ctl _trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm)369 CALL prt_ctl_info( charout, cdcomp = 'top' ) 370 CALL prt_ctl(tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm) 371 371 ENDIF 372 372 !
Note: See TracChangeset
for help on using the changeset viewer.