Changeset 14667 for NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/LDF/ldfc1d_c2d.F90

Timestamp:

2021-04-01T10:43:32+02:00 (3 years ago)

Author:

francesca

Message:

TRA additional changes + first set of DYN files

File:

• NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/LDF/ldfc1d_c2d.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/LDF/ldfc1d_c2d.F90

@@ -135 +135 @@
       !
       CASE( 'DYN' )                       ! T- and F-points
-         DO_2D( 1, 1, 1, 1 )
+         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
             pah1(ji,jj,1) = pUfac * MAX( e1t(ji,jj) , e2t(ji,jj) )**knn
             pah2(ji,jj,1) = pUfac * MAX( e1f(ji,jj) , e2f(ji,jj) )**knn