- 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/TRP/trcatf.F90
r13237 r13899 43 43 ! 44 44 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 45 USE prtctl _trc! Print control for debbuging45 USE prtctl ! Print control for debbuging 46 46 47 47 IMPLICIT NONE … … 184 184 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 185 185 WRITE(charout, FMT="('nxt')") 186 CALL prt_ctl_ trc_info(charout)187 CALL prt_ctl _trc(tab4d=ptr(:,:,:,:,Kmm), mask=tmask, clinfo=ctrcnm)186 CALL prt_ctl_info( charout, cdcomp = 'top' ) 187 CALL prt_ctl(tab4d_1=ptr(:,:,:,:,Kmm), mask1=tmask, clinfo=ctrcnm) 188 188 ENDIF 189 189 ! … … 239 239 ! 240 240 DO jn = 1, jptra 241 DO_3D _11_11(1, jpkm1 )241 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 242 242 ze3t_b = e3t(ji,jj,jk,Kbb) 243 243 ze3t_n = e3t(ji,jj,jk,Kmm) … … 314 314 ! 315 315 DO jn = 1, jptra 316 DO_3D _11_11(1, jpkm1 )316 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 317 317 ze3t_b = 1._wp + r3t(ji,jj,Kbb) * tmask(ji,jj,jk) 318 318 ze3t_n = 1._wp + r3t(ji,jj,Kmm) * tmask(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.