Changeset 15090 for NEMO/trunk/src/OFF/dtadyn.F90

Timestamp:

2021-07-06T16:25:18+02:00 (3 years ago)

Author:

cetlod

Message:

trunk : minor changes in PISCES to make it work in debug mode when nn_hls=2 ( still not working when enabling tiles )

File:

• NEMO/trunk/src/OFF/dtadyn.F90 (modified) (4 diffs)

NEMO/trunk/src/OFF/dtadyn.F90

@@ -419 +419 @@
       gdepw(:,:,1,Kmm) = 0.0_wp
       !
-      DO_3D( 1, 1, 1, 1, 2, jpk )
+      DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 2, jpk )
          zcoef = (tmask(ji,jj,jk) - wmask(ji,jj,jk))
          gdepw(ji,jj,jk,Kmm) = gdepw(ji,jj,jk-1,Kmm) + e3t(ji,jj,jk-1,Kmm)
@@ -503 +503 @@
          !
          nk_rnf(:,:) = 0                               ! set the number of level over which river runoffs are applied
-         DO_2D( 1, 1, 1, 1 )
+         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
             IF( h_rnf(ji,jj) > 0._wp ) THEN
                jk = 2
@@ -517 +517 @@
          END_2D
          !
-         DO_2D( 1, 1, 1, 1 )                           ! set the associated depth
+         ! set the associated depth
+         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
             h_rnf(ji,jj) = 0._wp
             DO jk = 1, nk_rnf(ji,jj)
@@ -552 +553 @@
       !!----------------------------------------------------------------------
       !
-      DO_2D( 1, 1, 1, 1 )               ! update the depth over which runoffs are distributed
+      !  update the depth over which runoffs are distributed
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
          h_rnf(ji,jj) = 0._wp
          DO jk = 1, nk_rnf(ji,jj)                           ! recalculates h_rnf to be the depth in metres