Changeset 1975 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/step.F90

Timestamp:

2010-06-28T19:22:14+02:00 (14 years ago)

Author:

mlelod

Message:

ticket: #663 MLF: first part

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/step.F90 (modified) (2 diffs)

branches/DEV_r1837_MLF/NEMO/OPA_SRC/step.F90

@@ -116 +116 @@
    USE restart         ! ocean restart                    (rst_wri routine)
    USE prtctl          ! Print control                    (prt_ctl routine)
+   ! - ML - 
+   USE diatrb          ! global tracer conservation       (dia_trb  routine)
 
 #if defined key_agrif
@@ -317 +319 @@
 
                                CALL ssh_nxt( kstp )         ! sea surface height at next time step
+                               CALL dia_trb( kstp )         ! - ML - global conservation diagnostics
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>