Changeset 14857 for NEMO/trunk/tests/SWG/MY_SRC

Timestamp:

2021-05-12T18:47:25+02:00 (3 years ago)

Author:

hadcv

Message:

#2600: Fixes in MY_SRC for nn_hls = 2/tiling and traadv_fct.F90 for nn_hls = 1

File:

• NEMO/trunk/tests/SWG/MY_SRC/usrdef_hgr.F90 (modified) (1 diff)

NEMO/trunk/tests/SWG/MY_SRC/usrdef_hgr.F90

@@ -113 +113 @@
       DO jj = 1, jpj 
          DO ji = 1, jpi 
-            zim1 = REAL( ji + nimpp - 1 )   ;   zim05 = REAL( ji + nimpp - 1 ) - 0.5 
-            zjm1 = REAL( jj + njmpp - 1 )   ;   zjm05 = REAL( jj + njmpp - 1 ) - 0.5 
+            zim1 = REAL( ji + nimpp - nn_hls )   ;   zim05 = REAL( ji + nimpp - nn_hls ) - 0.5
+            zjm1 = REAL( jj + njmpp - nn_hls )   ;   zjm05 = REAL( jj + njmpp - nn_hls ) - 0.5
             !   
             !glamt(i,j) position (meters) at T-point