Changeset 15191 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcstp.F90

Timestamp:

2021-08-13T15:09:12+02:00 (3 years ago)

Author:

techene

Message:

#2715 MLF & RK3 : change time level arguments of restart write routine, RK3 : only read/write Kbb fields

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcstp.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcstp.F90

@@ -30 +30 @@
    PRIVATE
 
-   PUBLIC   trc_stp    ! called by step
+   PUBLIC   trc_stp    ! called by step or stpmlf
 
    LOGICAL  ::   llnew                   ! ???
@@ -114 +114 @@
          IF(lwm) CALL FLUSH( numont )                     ! flush namelist output
       ENDIF
-      IF( lrst_trc )            CALL trc_rst_wri  ( kt, Kmm, Kaa, Kbb  )       ! write tracer restart file
+      IF( lrst_trc )            CALL trc_rst_wri  ( kt, Kbb, Kmm, Kaa  )       ! write tracer restart file
+!     IF( lrst_trc )            CALL trc_rst_wri  ( kt, Kmm, Kaa, Kbb  )       ! write tracer restart file
+
       IF( lk_trdmxl_trc  )      CALL trd_mxl_trc  ( kt,      Kaa       )       ! trends: Mixed-layer
       !