Changeset 14986 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ISF/isftbl.F90
- Timestamp:
- 2021-06-14T13:34:08+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ISF/isftbl.F90
r14644 r14986 176 176 ! 177 177 ! get htbl 178 DO_2D( 1, 1, 1, 1)178 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 179 179 ! 180 180 ! tbl top/bottom indices initialisation … … 193 193 ! 194 194 ! get pfrac 195 DO_2D( 1, 1, 1, 1)195 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 196 196 ! 197 197 ! tbl top/bottom indices initialisation … … 227 227 ! 228 228 ! get ktbl 229 DO_2D( 1, 1, 1, 1)229 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 230 230 ! 231 231 ! determine the deepest level influenced by the boundary layer … … 261 261 ! test: this routine run with pdep = 0 should return 1 262 262 ! 263 DO_2D( 1, 1, 1, 1)263 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 264 264 ! comput ktop 265 265 ikt = 2
Note: See TracChangeset
for help on using the changeset viewer.