Changeset 11922
- Timestamp:
- 2019-11-15T21:12:45+01:00 (4 years ago)
- 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 1006 1006 </field_group> 1007 1007 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 1008 1013 </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"?> 1 2 2 3 <grid_definition> … … 57 58 <scalar/> 58 59 </grid> 60 <!-- grid definition for diamlr --> 61 <grid id="diamlr_grid_2D" > 62 <domain domain_ref="grid_T" /> 63 <scalar /> 64 </grid> 59 65 60 66 </grid_definition> -
NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90
r11921 r11922 7 7 !!---------------------------------------------------------------------- 8 8 9 USE par_oce , ONLY : wp, jpi, jpj 9 10 USE in_out_manager , ONLY : lwp, numout, ln_timing 11 USE iom , ONLY : iom_put, iom_use 12 USE dom_oce , ONLY : adatrj 10 13 USE timing , ONLY : timing_start, timing_stop 11 14 USE xios … … 63 66 ! Get handle to multiple-linear-regression analysis configuration; if no 64 67 ! configuration is found, disable diamlr 65 IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) ) THEN68 IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) .AND. xios_is_valid_field( "diamlr_time" ) ) THEN 66 69 CALL xios_get_handle("diamlr_fields", slxhdl_fldgrp) 67 70 ELSE … … 83 86 !!---------------------------------------------------------------------- 84 87 88 REAL, DIMENSION(jpi,jpj) :: zadatrj2d 89 85 90 IF( ln_timing ) CALL timing_start('dia_mlr') 86 91 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) 88 100 89 101 IF( ln_timing ) CALL timing_stop('dia_mlr')
Note: See TracChangeset
for help on using the changeset viewer.