Changeset 12027 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcstp.F90
- Timestamp:
- 2019-12-02T15:59:00+01:00 (5 years ago)
- 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 111 111 IF( lrst_trc ) CALL trc_rst_wri ( kt, Kmm, Kaa, Kbb ) ! write tracer restart file 112 112 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 113 120 ! 114 121 IF (ll_trcstat) THEN
Note: See TracChangeset
for help on using the changeset viewer.