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 8863 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90 – NEMO

Ignore:
Timestamp:
2017-11-30T17:19:42+01:00 (6 years ago)
Author:
flavoni
Message:

(ENHANCE-09): fix AGRIF reproducibility problem

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90

    r8637 r8863  
    602602      !!----------------------------------------------------------------------   
    603603      ! 
    604       zalpha = REAL( Agrif_NbStepint() + Agrif_IRhot() - 1, wp ) / REAL( Agrif_IRhot(), wp ) 
    605       IF( zalpha > 1. )   zalpha = 1. 
     604      zalpha = 1._wp ! JC: proper time interpolation impossible  
     605                     ! => use last available value from parent  
    606606      ! 
    607607      Agrif_SpecialValue    = 0.e0 
Note: See TracChangeset for help on using the changeset viewer.