New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15281 – NEMO

Changeset 15281


Ignore:
Timestamp:
2021-09-23T16:43:50+02:00 (14 months ago)
Author:
techene
Message:

#2715 RK3 bug correction

Location:
NEMO/branches/2021/dev_r14318_RK3_stage1/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stprk3_stg.F90

    r15192 r15281  
    238238         !                 !---------------! 
    239239         CALL trc_sms( kstp, Kbb, Kbb, Krhs      )       ! tracers: sinks and sources 
    240          CALL trc_trp( kstp, Kbb, Kbb, Krhs, Kaa )       ! transport of passive tracers (without advection) 
     240         CALL trc_trp( kstp, Kbb, Kmm, Krhs, Kaa )       ! transport of passive tracers (without advection) 
    241241         ! 
    242242!!st a mettre dans trp  
  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcstp_rk3.F90

    r15192 r15281  
    130130            cvol(:,:,jk) = e1e2t(:,:) * e3t(:,:,jk,Kmm) * tmask(:,:,jk) 
    131131         END DO 
    132 !!st         IF ( l_trcstat .OR. kt == nitrst .OR. ( ln_check_mass .AND. kt == nitend )   & 
    133 !!st            & .OR. iom_use( "pno3tot" ) .OR. iom_use( "ppo4tot" ) .OR. iom_use( "psiltot" )   & 
    134 !!st            & .OR. iom_use( "palktot" ) .OR. iom_use( "pfertot" ) )                           & 
    135 !!st            &     areatot = glob_sum( 'trcstp', cvol(:,:,:) ) 
     132         IF ( l_trcstat .OR. kt == nitrst .OR. ( ln_check_mass .AND. kt == nitend )   & 
     133            & .OR. iom_use( "pno3tot" ) .OR. iom_use( "ppo4tot" ) .OR. iom_use( "psiltot" )   & 
     134            & .OR. iom_use( "palktot" ) .OR. iom_use( "pfertot" ) )                           & 
     135            &     areatot = glob_sum( 'trcstp', cvol(:,:,:) ) 
    136136      ENDIF 
    137137      ! 
Note: See TracChangeset for help on using the changeset viewer.