Changeset 2129 for branches/devukmo2010/NEMO/OPA_SRC/step.F90

Timestamp:

2010-09-29T13:01:23+02:00 (14 years ago)

Author:

rfurner

Message:

pervious merge had mised bits of OBS branch, adding these now

File:

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

branches/devukmo2010/NEMO/OPA_SRC/step.F90

@@ -111 +111 @@
    USE diahth          ! thermocline depth                (dia_hth routine)
    USE diafwb          ! freshwater budget                (dia_fwb routine)
+   USE diaobs          ! obs-minus-model (assimilation)   (dia_obs routine)
    USE flo_oce         ! floats variables
    USE floats          ! floats computation               (flo_stp routine)
@@ -250 +251 @@
       IF( lk_diahdy  )   CALL dia_hdy( kstp )         ! dynamical heigh diagnostics
       IF( lk_diafwb  )   CALL dia_fwb( kstp )         ! Fresh water budget diagnostics
+      IF( lk_diaobs  )   CALL dia_obs( kstp )         ! obs-minus-model (assimilation) diagnostics
       IF( ln_diaptr  )   CALL dia_ptr( kstp )         ! Poleward TRansports diagnostics
       IF( lk_diaar5  )   CALL dia_ar5( kstp )         ! ar5 diag