Context Navigation

biaspar.F90 @ 8400

Last change on this file since 8400 was 8400, checked in by timgraham, 7 years ago

GMED ticket 335:

Merge dev_r5518_GO6_package_inc_asm into package branch to make everything easier for data assimilation
No effect on configs without data assimilation

File size: 1.6 KB

Line
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	& 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
40	END MODULE biaspar

Note: See TracBrowser for help on using the repository browser.