Changeset 15003 for NEMO/branches/2021/ticket2690_consign_isf/src/ICE/icethd_do.F90

Timestamp:

2021-06-16T12:21:35+02:00 (3 years ago)

Author:

mathiot

Message:

ticket #2690: sette successful ; update branch to head of trunk

Location:

NEMO/branches/2021/ticket2690_consign_isf

Files:

• . (modified) (1 prop)
• src/ICE/icethd_do.F90 (modified) (1 diff)

NEMO/branches/2021/ticket2690_consign_isf

@@ -9 +9 @@
 
 # SETTE
-^/utils/CI/sette@14244        sette
+^/utils/CI/sette@HEAD        sette
+

@@ -9 +9 @@
 
 # SETTE
-^/utils/CI/sette@14244        sette
+^/utils/CI/sette@HEAD        sette
+

NEMO/branches/2021/ticket2690_consign_isf/src/ICE/icethd_do.F90

@@ -204 +204 @@
       ! Identify grid points where new ice forms
       npti = 0   ;   nptidx(:) = 0
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
          IF ( qlead(ji,jj)  <  0._wp ) THEN
             npti = npti + 1

@@ -9 +9 @@
 
 # SETTE
-^/utils/CI/sette@14244        sette
+^/utils/CI/sette@HEAD        sette
+