Changeset 15090 for NEMO/trunk/src/TOP/C14/trcsms_c14.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/TOP/C14/trcsms_c14.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/C14/trcsms_c14.F90

@@ -81 +81 @@
       ! -------------------------------------------------------------------
 
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
          IF( tmask(ji,jj,1) >  0. ) THEN
             !
@@ -128 +128 @@
       !
       ! Add the surface flux to the trend of jp_c14
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
          tr(ji,jj,1,jp_c14,Krhs) = tr(ji,jj,1,jp_c14,Krhs) + qtr_c14(ji,jj) / e3t(ji,jj,1,Kmm) 
       END_2D
       !
       ! Computation of decay effects on jp_c14
-      DO_3D( 1, 1, 1, 1, 1, jpk )
+      DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpk )
          !
          tr(ji,jj,jk,jp_c14,Krhs) = tr(ji,jj,jk,jp_c14,Krhs) - rlam14 * tr(ji,jj,jk,jp_c14,Kbb) * tmask(ji,jj,jk)