Changeset 11922 for NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src

Timestamp:

2019-11-15T21:12:45+01:00 (4 years ago)

Author:

smueller

Message:

Addition of output of the elapsed model time for multiple-linear-regression analysis (ticket #2175)

File:

• NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90

@@ -7 +7 @@
    !!----------------------------------------------------------------------
 
+   USE par_oce        , ONLY :   wp, jpi, jpj
    USE in_out_manager , ONLY :   lwp, numout, ln_timing
+   USE iom            , ONLY :   iom_put, iom_use
+   USE dom_oce        , ONLY :   adatrj
    USE timing         , ONLY :   timing_start, timing_stop
    USE xios
@@ -63 +66 @@
       ! Get handle to multiple-linear-regression analysis configuration; if no
       ! configuration is found, disable diamlr
-      IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) ) THEN
+      IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) .AND. xios_is_valid_field( "diamlr_time" ) ) THEN
          CALL xios_get_handle("diamlr_fields",  slxhdl_fldgrp)
       ELSE
@@ -83 +86 @@
       !!----------------------------------------------------------------------
 
+      REAL, DIMENSION(jpi,jpj) ::   zadatrj2d
+
       IF( ln_timing )   CALL timing_start('dia_mlr')
 
-      ! Update time
+      ! Update time to the continuous time since the start of the model run
+      ! (value of adatrj converted to time in units of seconds)
+      !
+      ! A 2-dimensional field of constant value is sent, and subsequently used
+      ! directly or transformed to a scalar or a constant 3-dimensional field as
+      ! required.
+      zadatrj2d(:,:) = adatrj*86400.0_wp
+      IF ( iom_use('diamlr_time') ) CALL iom_put('diamlr_time', zadatrj2d)
       
       IF( ln_timing )   CALL timing_stop('dia_mlr')