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

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

simplifiyng the code

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