source: branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/biaspar.F90 @ 8447

Last change on this file since 8447 was 8447, checked in by anaguiar, 3 years ago

Merging with the dev_r5518_pcbias_ipc@8446 branch

File size: 1.7 KB
Line 
1MODULE biaspar
2   !! Variables relevant to bias module
3   !!======================================================================
4   !!                 *** Module biaspar ***
5   !!----------------------------------------------------------------------
6   !! * Modules used
7   USE par_kind, ONLY: &
8      & wp
9   USE par_oce, ONLY: &
10      & jpi, &
11      & jpj, &
12      & jpk
13
14   IMPLICIT NONE
15   PUBLIC
16
17   !! * Shared module variables
18   LOGICAL, PUBLIC :: ln_bias        = .FALSE. !: estimate (apply) bias arrays
19   LOGICAL, PUBLIC :: ln_bias_asm    = .FALSE. !: estimate bias from assim incr
20   LOGICAL, PUBLIC :: ln_bias_rlx    = .FALSE. !: estimate bias from relaxation
21   LOGICAL, PUBLIC :: ln_bias_ofl    = .FALSE. !: bias estimated offline
22   LOGICAL, PUBLIC :: ln_bias_ts_app = .FALSE. !: estimate (apply) bias arrays
23   LOGICAL, PUBLIC :: ln_bias_pc_app = .FALSE. !: estimate bias from assim incr
24   LOGICAL, PUBLIC :: lrst_bias      = .FALSE. !: estimate bias from assim incr
25
26   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE :: &
27      & tbias, &       !: Temperature bias field for T correction
28      & tbias_p, &     !:  "           "    "    "   P correction
29      & tbias_i, &     !:  "           "    "    "   incremental P correction
30      & sbias, &       !: Salinity bias field    for S correction
31      & sbias_p, &     !:  "           "    "    "   P correction
32      & sbias_i, &     !:  "           "    "    "   incremental P correction
33      & rhd_pc         !: Press corrtd density from online to use in dyn_hpg
34
35
36   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: &
37      & gru_pc, &      !: Press corrtd bottom pressure gradient (x-dir)
38      & grv_pc         !: Press corrtd bottom pressure gradient (y-dir)
39
40
41
42END MODULE biaspar
Note: See TracBrowser for help on using the repository browser.