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 12808 for NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablmod.F90 – NEMO

Ignore:
Timestamp:
2020-04-23T18:53:33+02:00 (4 years ago)
Author:
gsamson
Message:

change ABL time swap to work with nn_fsbc > 1 (ticket #2419)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablmod.F90

    r12799 r12808  
    655655      !                            !  8 *** Swap time indices for the next timestep 
    656656      !                            !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    657       nt_n = 1 + MOD( kt  , 2) 
    658       nt_a = 1 + MOD( kt+1, 2) 
     657      nt_n = 1 + MOD( nt_n, 2) 
     658      nt_a = 1 + MOD( nt_a, 2) 
    659659      ! 
    660660!--------------------------------------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.