Changeset 15281 for NEMO/branches/2021

Timestamp:

2021-09-23T16:43:50+02:00 (3 years ago)

Author:

techene

Message:

#2715 RK3 bug correction

Location:

NEMO/branches/2021/dev_r14318_RK3_stage1/src

Files:

• OCE/stprk3_stg.F90 (modified) (1 diff)
• TOP/trcstp_rk3.F90 (modified) (1 diff)

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

@@ -238 +238 @@
          !                 !---------------!
          CALL trc_sms( kstp, Kbb, Kbb, Krhs      )       ! tracers: sinks and sources
-         CALL trc_trp( kstp, Kbb, Kbb, Krhs, Kaa )       ! transport of passive tracers (without advection)
+         CALL trc_trp( kstp, Kbb, Kmm, Krhs, Kaa )       ! transport of passive tracers (without advection)
          !
 !!st a mettre dans trp 

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

@@ -130 +130 @@
             cvol(:,:,jk) = e1e2t(:,:) * e3t(:,:,jk,Kmm) * tmask(:,:,jk)
          END DO
-!!st         IF ( l_trcstat .OR. kt == nitrst .OR. ( ln_check_mass .AND. kt == nitend )   &
-!!st            & .OR. iom_use( "pno3tot" ) .OR. iom_use( "ppo4tot" ) .OR. iom_use( "psiltot" )   &
-!!st            & .OR. iom_use( "palktot" ) .OR. iom_use( "pfertot" ) )                           &
-!!st            &     areatot = glob_sum( 'trcstp', cvol(:,:,:) )
+         IF ( l_trcstat .OR. kt == nitrst .OR. ( ln_check_mass .AND. kt == nitend )   &
+            & .OR. iom_use( "pno3tot" ) .OR. iom_use( "ppo4tot" ) .OR. iom_use( "psiltot" )   &
+            & .OR. iom_use( "palktot" ) .OR. iom_use( "pfertot" ) )                           &
+            &     areatot = glob_sum( 'trcstp', cvol(:,:,:) )
       ENDIF
       !