Changeset 11922


Ignore:
Timestamp:
2019-11-15T21:12:45+01:00 (9 months ago)
Author:
smueller
Message:

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

Location:
NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/cfgs/SHARED/field_def_nemo-oce.xml

    r11536 r11922  
    10061006    </field_group>     
    10071007 
     1008    <!-- configuration of multiple-linear-regression analysis (diamlr) --> 
     1009    <field_group id="diamlr_fields"> 
     1010      <field id="diamlr_time" grid_ref="diamlr_grid_2D" prec="8" /> 
     1011    </field_group> 
     1012 
    10081013   </field_definition> 
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/cfgs/SHARED/grid_def_nemo.xml

    r11536 r11922  
     1<?xml version="1.0"?> 
    12 
    23    <grid_definition>     
     
    5758        <scalar/> 
    5859      </grid> 
     60      <!-- grid definition for diamlr --> 
     61      <grid id="diamlr_grid_2D" > 
     62   <domain domain_ref="grid_T" /> 
     63   <scalar /> 
     64      </grid> 
    5965 
    6066    </grid_definition> 
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90

    r11921 r11922  
    77   !!---------------------------------------------------------------------- 
    88 
     9   USE par_oce        , ONLY :   wp, jpi, jpj 
    910   USE in_out_manager , ONLY :   lwp, numout, ln_timing 
     11   USE iom            , ONLY :   iom_put, iom_use 
     12   USE dom_oce        , ONLY :   adatrj 
    1013   USE timing         , ONLY :   timing_start, timing_stop 
    1114   USE xios 
     
    6366      ! Get handle to multiple-linear-regression analysis configuration; if no 
    6467      ! configuration is found, disable diamlr 
    65       IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) ) THEN 
     68      IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) .AND. xios_is_valid_field( "diamlr_time" ) ) THEN 
    6669         CALL xios_get_handle("diamlr_fields",  slxhdl_fldgrp) 
    6770      ELSE 
     
    8386      !!---------------------------------------------------------------------- 
    8487 
     88      REAL, DIMENSION(jpi,jpj) ::   zadatrj2d 
     89 
    8590      IF( ln_timing )   CALL timing_start('dia_mlr') 
    8691 
    87       ! Update time 
     92      ! Update time to the continuous time since the start of the model run 
     93      ! (value of adatrj converted to time in units of seconds) 
     94      ! 
     95      ! A 2-dimensional field of constant value is sent, and subsequently used 
     96      ! directly or transformed to a scalar or a constant 3-dimensional field as 
     97      ! required. 
     98      zadatrj2d(:,:) = adatrj*86400.0_wp 
     99      IF ( iom_use('diamlr_time') ) CALL iom_put('diamlr_time', zadatrj2d) 
    88100       
    89101      IF( ln_timing )   CALL timing_stop('dia_mlr') 
Note: See TracChangeset for help on using the changeset viewer.