Changeset 13427 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OFF/nemogcm.F90

Timestamp:

2020-08-21T18:26:57+02:00 (4 years ago)

Author:

techene

Message:

debug in order to pass non linear SETTE test when agrif in not activated see #2385

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OFF/nemogcm.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OFF/nemogcm.F90

@@ -64 +64 @@
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
    USE lbcnfd  , ONLY : isendto, nsndto   ! Setup of north fold exchanges
-   USE step, ONLY : Nbb, Nnn, Naa, Nrhs   ! time level indices
+#if defined key_qco
+   USE stepMLF , ONLY : Nbb, Nnn, Naa, Nrhs   ! time level indices
+#else
+   USE step    , ONLY : Nbb, Nnn, Naa, Nrhs   ! time level indices
+#endif
    USE halo_mng
 
@@ -126 +130 @@
                                 CALL dta_dyn_atf( istp, Nbb, Nnn, Naa )       ! time filter of sea  surface height and vertical scale factors
 # if defined key_qco
-                                CALL dom_qco_r3c( ssh(:,:,Kmm), r3t_f, r3u_f, r3v_f )
+                                CALL dom_qco_r3c( ssh(:,:,Nnn), r3t_f, r3u_f, r3v_f )
 # endif
          ENDIF
                                 CALL trc_stp    ( istp, Nbb, Nnn, Nrhs, Naa ) ! time-stepping
 # if defined key_qco
-                                !r3t(:,:,Kmm) = r3t_f(:,:)                     ! update ssh to h0 ratio
-                                !r3u(:,:,Kmm) = r3u_f(:,:)
-                                !r3v(:,:,Kmm) = r3v_f(:,:)
+                                !r3t(:,:,Nnn) = r3t_f(:,:)                     ! update ssh to h0 ratio
+                                !r3u(:,:,Nnn) = r3u_f(:,:)
+                                !r3v(:,:,Nnn) = r3v_f(:,:)
 # endif
 #endif
@@ -143 +147 @@
          !
 #if ! defined key_qco
-#if ! defined key_sed_off
+# if ! defined key_sed_off
          IF( .NOT.ln_linssh )   CALL dta_dyn_sf_interp( istp, Nnn )  ! calculate now grid parameters
-#endif
+# endif
 #endif         
                                 CALL stp_ctl    ( istp )             ! Time loop: control and print