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 15489 for NEMO/trunk/src/OCE/DYN/dynspg_ts.F90 – NEMO

Ignore:
Timestamp:
2021-11-10T10:18:39+01:00 (8 months ago)
Author:
jchanut
Message:

Remove an useless computation in 1-way

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DYN/dynspg_ts.F90

    r15350 r15489  
    824824      ! (used to update coarse grid transports at next time step) 
    825825      ! 
    826       IF( .NOT.Agrif_Root() .AND. ln_bt_fw ) THEN 
     826      IF( .NOT.Agrif_Root() .AND. ln_bt_fw .AND. ln_agrif_2way ) THEN 
    827827         IF( Agrif_NbStepint() == 0 ) THEN 
    828828            ub2_i_b(:,:) = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.