- 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/trcini.F90
r12960 r13176 20 20 USE trcnam ! Namelist read 21 21 USE daymod ! calendar manager 22 USE prtctl _trc ! Print control passive tracers (prt_ctl_trc_init routine)22 USE prtctl ! Print control passive tracers (prt_ctl_init routine) 23 23 USE trcrst 24 24 USE lib_mpp ! distribued memory computing library … … 126 126 IF(lwp) WRITE(numout,*) 127 127 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 128 CALL prt_ctl_ trc_init128 CALL prt_ctl_init( 'top', jptra ) 129 129 WRITE(charout, FMT="('ini ')") 130 CALL prt_ctl_ trc_info( charout)131 CALL prt_ctl _trc( tab4d=tr(:,:,:,:,Kmm), mask=tmask, clinfo=ctrcnm )130 CALL prt_ctl_info( charout, cdcomp = 'top' ) 131 CALL prt_ctl( tab4d_1=tr(:,:,:,:,Kmm), mask1=tmask, clinfo=ctrcnm ) 132 132 DO jn = 1, jptra 133 133 zzmsk(:,:,:,jn) = tmask(:,:,:) 134 134 WRITE(clseb(jn),'(a,i2.2)') 'seb ', jn 135 135 END DO 136 CALL prt_ctl _trc( tab4d=zzmsk, mask=tmask, clinfo=clseb )136 CALL prt_ctl( tab4d_1=zzmsk, mask1=tmask, clinfo=clseb ) 137 137 ENDIF 138 138 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10)
Note: See TracChangeset
for help on using the changeset viewer.