Changeset 13176 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/PISCES/P2Z/p2zopt.F90
- Timestamp:
- 2020-06-29T18:02:13+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/PISCES/P2Z/p2zopt.F90
r12377 r13176 18 18 USE trc 19 19 USE sms_pisces 20 USE prtctl _trc! Print control for debbuging20 USE prtctl ! Print control for debbuging 21 21 22 22 IMPLICIT NONE … … 124 124 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 125 125 WRITE(charout, FMT="('opt')") 126 CALL prt_ctl_ trc_info( charout)127 CALL prt_ctl _trc( tab4d=tr(:,:,:,:,Kmm), mask=tmask, clinfo=ctrcnm )126 CALL prt_ctl_info( charout, cdcomp = 'top' ) 127 CALL prt_ctl( tab4d_1=tr(:,:,:,:,Kmm), mask1=tmask, clinfo=ctrcnm ) 128 128 ENDIF 129 129 !
Note: See TracChangeset
for help on using the changeset viewer.