1 | MODULE 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 | END MODULE biaspar |
---|