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 – NEMO

Changeset 12808


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)

Location:
NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL
Files:
2 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!--------------------------------------------------------------------------------------------------- 
  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90

    r12799 r12808  
    268268 
    269269      ! Initialize the time index for now time (nt_n) and after time (nt_a) 
    270       nt_n = 1 + MOD( nit000+1, 2) 
    271       nt_a = 1 + MOD( nit000  , 2) 
     270      nt_n = 1; nt_a = 2 
    272271 
    273272      ! initialize ABL from data or restart 
Note: See TracChangeset for help on using the changeset viewer.