- Timestamp:
- 2019-11-15T19:03:39+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90
r11911 r11921 9 9 USE in_out_manager , ONLY : lwp, numout, ln_timing 10 10 USE timing , ONLY : timing_start, timing_stop 11 USE xios 11 12 12 13 IMPLICIT NONE … … 52 53 !!---------------------------------------------------------------------- 53 54 55 TYPE(xios_fieldgroup) :: slxhdl_fldgrp 56 54 57 IF(lwp) THEN 55 58 WRITE(numout, *) 56 59 WRITE(numout, *) 'dia_mlr_iom_init : IOM context setup for multiple-linear-regression' 57 60 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. 58 73 END IF 59 74
Note: See TracChangeset
for help on using the changeset viewer.