| 1 | MODULE diamlr |
|---|
| 2 | !!====================================================================== |
|---|
| 3 | !! *** MODULE diamlr *** |
|---|
| 4 | !! Management of the IOM context for multiple-linear-regression analysis |
|---|
| 5 | !!====================================================================== |
|---|
| 6 | !! History : ! 2019 (S. Mueller) |
|---|
| 7 | !!---------------------------------------------------------------------- |
|---|
| 8 | |
|---|
| 9 | USE in_out_manager , ONLY : lwp, numout, ln_timing |
|---|
| 10 | USE timing , ONLY : timing_start, timing_stop |
|---|
| 11 | |
|---|
| 12 | IMPLICIT NONE |
|---|
| 13 | PRIVATE |
|---|
| 14 | |
|---|
| 15 | LOGICAL, PUBLIC :: lk_diamlr = .FALSE. |
|---|
| 16 | |
|---|
| 17 | PUBLIC :: dia_mlr_init, dia_mlr_iom_init, dia_mlr |
|---|
| 18 | |
|---|
| 19 | !!---------------------------------------------------------------------- |
|---|
| 20 | !! NEMO/OCE 4.0 , NEMO Consortium (2019) |
|---|
| 21 | !! $Id$ |
|---|
| 22 | !! Software governed by the CeCILL license (see ./LICENSE) |
|---|
| 23 | !!---------------------------------------------------------------------- |
|---|
| 24 | CONTAINS |
|---|
| 25 | |
|---|
| 26 | SUBROUTINE dia_mlr_init |
|---|
| 27 | !!---------------------------------------------------------------------- |
|---|
| 28 | !! *** ROUTINE dia_mlr_init *** |
|---|
| 29 | !! |
|---|
| 30 | !! ** Purpose : initialisation of IOM context management for |
|---|
| 31 | !! multiple-linear-regression analysis |
|---|
| 32 | !! |
|---|
| 33 | !!---------------------------------------------------------------------- |
|---|
| 34 | |
|---|
| 35 | lk_diamlr = .TRUE. |
|---|
| 36 | |
|---|
| 37 | IF(lwp) THEN |
|---|
| 38 | WRITE(numout, *) |
|---|
| 39 | WRITE(numout, *) 'dia_mlr_init : initialisation of IOM context management for' |
|---|
| 40 | WRITE(numout, *) '~~~~~~~~~~~~ multiple-linear-regression analysis' |
|---|
| 41 | END IF |
|---|
| 42 | |
|---|
| 43 | END SUBROUTINE dia_mlr_init |
|---|
| 44 | |
|---|
| 45 | SUBROUTINE dia_mlr_iom_init |
|---|
| 46 | !!---------------------------------------------------------------------- |
|---|
| 47 | !! *** ROUTINE dia_mlr_iom_init *** |
|---|
| 48 | !! |
|---|
| 49 | !! ** Purpose : IOM context setup for multiple-linear-regression |
|---|
| 50 | !! analysis |
|---|
| 51 | !! |
|---|
| 52 | !!---------------------------------------------------------------------- |
|---|
| 53 | |
|---|
| 54 | IF(lwp) THEN |
|---|
| 55 | WRITE(numout, *) |
|---|
| 56 | WRITE(numout, *) 'dia_mlr_iom_init : IOM context setup for multiple-linear-regression' |
|---|
| 57 | WRITE(numout, *) '~~~~~~~~~~~~~~~~ |
|---|
| 58 | END IF |
|---|
| 59 | |
|---|
| 60 | END SUBROUTINE dia_mlr_iom_init |
|---|
| 61 | |
|---|
| 62 | SUBROUTINE dia_mlr |
|---|
| 63 | !!---------------------------------------------------------------------- |
|---|
| 64 | !! *** ROUTINE dia_mlr *** |
|---|
| 65 | !! |
|---|
| 66 | !! ** Purpose : update time used in multiple-linear-regression analysis |
|---|
| 67 | !! |
|---|
| 68 | !!---------------------------------------------------------------------- |
|---|
| 69 | |
|---|
| 70 | IF( ln_timing ) CALL timing_start('dia_mlr') |
|---|
| 71 | |
|---|
| 72 | ! Update time |
|---|
| 73 | |
|---|
| 74 | IF( ln_timing ) CALL timing_stop('dia_mlr') |
|---|
| 75 | |
|---|
| 76 | END SUBROUTINE dia_mlr |
|---|
| 77 | |
|---|
| 78 | END MODULE diamlr |
|---|
