- Timestamp:
- 2021-07-15T11:11:28+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_r4.2RC_GO8_package/src/TOP/TRP/trcatf.F90
r14172 r15122 239 239 ENDIF 240 240 ! 241 DO jn = 1, jptra 242 DO_3D( 1, 1, 1, 1, 1, jpkm1 )241 DO jn = 1, jptra 242 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 ) 243 243 ze3t_b = 1._wp + r3t(ji,jj,Kbb) * tmask(ji,jj,jk) 244 244 ze3t_n = 1._wp + r3t(ji,jj,Kmm) * tmask(ji,jj,jk) … … 313 313 ! 314 314 DO jn = 1, jptra 315 DO_3D( 1, 1, 1, 1, 1, jpkm1 )315 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 ) 316 316 ze3t_b = e3t(ji,jj,jk,Kbb) 317 317 ze3t_n = e3t(ji,jj,jk,Kmm)
Note: See TracChangeset
for help on using the changeset viewer.