Changeset 15514 for NEMO/branches/2021

Timestamp:

2021-11-16T09:58:22+01:00 (3 years ago)

Author:

techene

Message:

#2605 #2715 debug

Location:

NEMO/branches/2021/dev_r14318_RK3_stage1/src

Files:

• OCE/TRA/traadv.F90 (modified) (1 diff)
• OCE/stprk3_stg.F90 (modified) (1 diff)
• TOP/trcini.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/traadv.F90

@@ -173 +173 @@
          !
          ! TEMP: [tiling] This change not necessary if using XIOS (subdomain support)
-         IF( l_iom )
+         IF( l_iom ) THEN
             IF( ntile == 0 .OR. ntile == nijtile )  THEN                ! Do only on the last tile
                CALL iom_put( "uocetr_eff", zuu )                                        ! output effective transport

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stprk3_stg.F90

@@ -278 +278 @@
 !===>>> CAUTION here may be without GM velocity but stokes drift required ! 0 barotropic divergence for GM  != 0 barotropic divergence for SD 
 !!st consistence 2D / 3D - flux de masse 
-      CALL tra_adv( kstp, Kbb, Kmm, ts, Krhs, zaU, zaV, ww, kstg )       ! hor. + vert. advection  ==> RHS
+      CALL tra_adv( kstp, Kbb, Kmm, ts, Krhs, zaU, zaV, ww )       ! hor. + vert. advection  ==> RHS
 
 !===>>>>>> stg1&2:  Verify the necessity of these trends (we may need it as there are in the RHS of dynspg_ts ?)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcini.F90

@@ -244 +244 @@
       !
       IF( ln_trcdta )   CALL trc_dta_ini( jptra )           ! set initial tracers values
+      !
+      tr(:,:,:,:,Kaa) = 0._wp
       !
       IF( ln_trcbc .AND. lltrcbc )  THEN 
@@ -271 +273 @@
         ! 
       ENDIF
-      !
-      tr(:,:,:,:,Kaa) = 0._wp
       !                                                         ! Partial top/bottom cell: GRADh(tr(Kmm))
    END SUBROUTINE trc_ini_state