source: branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/biaspar.F90 @ 7128

Last change on this file since 7128 was 7128, checked in by isabella, 4 years ago

ln_incpc should not be public

File size: 1.6 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      & sbias, &       !: Salinity bias field    for S correction
30      & sbias_p, &     !:  "           "    "    "   P correction
31      & rhd_pc         !: Press corrtd density from online to use in dyn_hpg
32
33
34   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: &
35      & gru_pc, &      !: Press corrtd bottom pressure gradient (x-dir)
36      & grv_pc         !: Press corrtd bottom pressure gradient (y-dir)
37
38
39
40END MODULE biaspar
Note: See TracBrowser for help on using the repository browser.