New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11921 for NEMO/branches – NEMO

Changeset 11921 for NEMO/branches


Ignore:
Timestamp:
2019-11-15T19:03:39+01:00 (4 years ago)
Author:
smueller
Message:

Addition of a test for the existence of a regression-analysis configuration to the IOM context setup for multiple-linear-regression analysis (ticket #2175)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90

    r11911 r11921  
    99   USE in_out_manager , ONLY :   lwp, numout, ln_timing 
    1010   USE timing         , ONLY :   timing_start, timing_stop 
     11   USE xios 
    1112 
    1213   IMPLICIT NONE 
     
    5253      !!---------------------------------------------------------------------- 
    5354 
     55      TYPE(xios_fieldgroup)  ::   slxhdl_fldgrp 
     56 
    5457      IF(lwp) THEN 
    5558         WRITE(numout, *) 
    5659         WRITE(numout, *) 'dia_mlr_iom_init : IOM context setup for multiple-linear-regression' 
    5760         WRITE(numout, *) '~~~~~~~~~~~~~~~~' 
     61      END IF 
     62 
     63      ! Get handle to multiple-linear-regression analysis configuration; if no 
     64      ! configuration is found, disable diamlr 
     65      IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) ) THEN 
     66         CALL xios_get_handle("diamlr_fields",  slxhdl_fldgrp) 
     67      ELSE 
     68         IF (lwp) THEN 
     69            WRITE(numout, *) "diamlr: no configuration found (field group 'diamlr_fields' is missing);" 
     70            WRITE(numout, *) "        disabling output for multiple-linear-regression analysis." 
     71         END IF 
     72         lk_diamlr = .FALSE. 
    5873      END IF 
    5974 
Note: See TracChangeset for help on using the changeset viewer.