Changeset 12027


Ignore:
Timestamp:
2019-12-02T15:59:00+01:00 (8 weeks ago)
Author:
davestorkey
Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Bug fix for ln_top_euler=T case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcstp.F90

    r11527 r12027  
    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.