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 12041 for NEMO/branches/2019 – NEMO

Changeset 12041 for NEMO/branches/2019


Ignore:
Timestamp:
2019-12-03T15:55:45+01:00 (4 years ago)
Author:
davestorkey
Message:

2019/dev_r11943_MERGE_2019: Bug fix for ln_top_euler=T case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trcstp.F90

    r11949 r12041  
    111111      IF( lrst_trc )            CALL trc_rst_wri  ( kt, Kmm, Kaa, Kbb  )       ! write tracer restart file 
    112112      IF( lk_trdmxl_trc  )      CALL trd_mxl_trc  ( kt,      Kaa       )       ! trends: Mixed-layer 
     113      ! 
     114      IF( ln_top_euler ) THEN  
     115         ! For Euler timestepping for TOP we need to copy the "after" to the "now" fields  
     116         ! here then after the (leapfrog) swapping of the time-level indices in OCE/step.F90 we have  
     117         ! "before" fields = "now" fields. 
     118         tr(:,:,:,:,Kmm) = tr(:,:,:,:,Kaa) 
     119      ENDIF 
    113120      ! 
    114121      IF (ll_trcstat) THEN 
Note: See TracChangeset for help on using the changeset viewer.