Changeset 11910


Ignore:
Timestamp:
2019-11-15T13:38:16+01:00 (6 months ago)
Author:
smueller
Message:

Inclusion of a skeletal version of the new module diamlr that will be used to manage the IOM context for multiple-linear-regression analysis of model fields (ticket #2175)

Location:
NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE
Files:
1 added
3 edited

Legend:

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

    r11536 r11910  
    6060   USE diacfl         ! CFL diagnostics               (dia_cfl_init routine) 
    6161   USE diaharm        ! tidal harmonics diagnostics  (dia_harm_init routine) 
     62   USE diamlr         ! IOM context management for multiple-linear-regression analysis 
    6263   USE step           ! NEMO time-stepping                 (stp     routine) 
    6364   USE icbini         ! handle bergs, initialisation 
     
    488489                           CALL dia_harm_init   ! tidal harmonics outputs 
    489490     IF( ln_diaobs    )    CALL dia_obs( nit000-1 )   ! Observation operator for restart 
     491                           CALL dia_mlr_init    ! Initialisation of IOM context management for multiple-linear-regression analysis 
    490492 
    491493      !                                      ! Assimilation increments 
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/step.F90

    r11536 r11910  
    100100                              
    101101      IF( kstp == nit000 ) THEN                       ! initialize IOM context (must be done after nemo_init for AGRIF+XIOS+OASIS) 
    102                              CALL iom_init(      cxios_context          )  ! for model grid (including passible AGRIF zoom) 
     102                             CALL iom_init( cxios_context, ld_closedef=.FALSE. )   ! for model grid (including passible AGRIF zoom) 
     103         IF( lk_diamlr   )   CALL dia_mlr_iom_init    ! with additional setup for multiple-linear-regression analysis 
     104                             CALL iom_init_closedef 
    103105         IF( ln_crs      )   CALL iom_init( TRIM(cxios_context)//"_crs" )  ! for coarse grid 
    104106      ENDIF 
     
    211213                         CALL dia_wri ( kstp )        ! ocean model: outputs 
    212214      ! 
     215      IF( lk_diamlr  )   CALL dia_mlr                 ! Update time used in multiple-linear-regression analysis 
    213216      IF( ln_crs     )   CALL crs_fld       ( kstp )  ! ocean model: online field coarsening & output 
    214217       
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/step_oce.F90

    r10068 r11910  
    8282   USE diacfl 
    8383   USE diaobs          ! Observation operator 
     84   USE diamlr          ! IOM context management for multiple-linear-regression analysis 
    8485   USE flo_oce         ! floats variables 
    8586   USE floats          ! floats computation               (flo_stp routine) 
Note: See TracChangeset for help on using the changeset viewer.