source: lim1d_ws/trunk/SOURCES/source_3.20/forcing.com @ 2

Last change on this file since 2 was 2, checked in by vancop, 8 years ago

initial import /Users/ioulianikolskaia/Boulot/CODES/LIM1D/ARCHIVE/TMP/LIM1D_v3.20/
File size: 1.2 KB
Line 
1!
2!               COMMONS FOR FORCING
3!               ====================
4!
5!
6! forc_nam      : name of the forcing fields
7! ts_forc       : time step of the forcing
8! forc_swi      : switch for computation of the forcing
9! forc_uni      : unit conversion factor for a given forcing field
10! forc_val      : prescribed value of a given forcing field if any
11
12      CHARACTER(len=8), DIMENSION(n_forc) ::         
13     &   forc_nam
14
15      INTEGER ::
16     &   n_fofr,
17     &   i_forc_ts,
18     &   i_forc_count,
19     &   i_forc,
20     &   n_forc_min,
21     &   n_forc_max,
22     &   n0_forc,
23     &   n1_forc
24
25      INTEGER, DIMENSION(n_forc) ::
26     &   forc_swi
27
28      REAL(8)                    ::
29     &   ts_forc,
30     &   doy
31
32      REAL(8), DIMENSION(n_forc) ::
33     &   forc_uni,
34     &   forc_val,
35     &   forc_arr_old,
36     &   forc_arr_new,
37     &   forc_coeff,
38     &   forc_arr
39
40      COMMON /forcingf/
41     &   forc_nam,
42     &   n_fofr,
43     &   n0_forc,
44     &   n1_forc,
45     &   i_forc_ts,
46     &   i_forc_count,
47     &   i_forc,
48     &   n_forc_min,
49     &   n_forc_max,
50     &   forc_swi,
51     &   ts_forc,
52     &   doy,
53     &   forc_uni,
54     &   forc_val,
55     &   forc_arr_old,
56     &   forc_arr_new,
57     &   forc_coeff,
58     &   forc_arr
Note: See TracBrowser for help on using the repository browser.