Last change
on this file since 26 was
6,
checked in by vancop, 8 years ago
|
initial import of v3.20 /Users/ioulianikolskaia/Boulot/CODES/LIM1D/ARCHIVE/TMP/LIM1D_v3.20/
|
File size:
1.2 KB
|
Line | |
---|
1 | SUBROUTINE ice_bio_column(kideb,kiut,ntra,zmt_i,zc_i, |
---|
2 | & zdeltaz,ln_write) |
---|
3 | |
---|
4 | ! This routine sums the mass of tracers over the whole column |
---|
5 | ! (c) Martin Vancoppenolle, June 2007 |
---|
6 | |
---|
7 | INCLUDE 'type.com' |
---|
8 | INCLUDE 'para.com' |
---|
9 | |
---|
10 | INTEGER :: |
---|
11 | & ji , ! : index for space |
---|
12 | & jk , ! : index for ice layers |
---|
13 | & jn ! : index for tracers |
---|
14 | |
---|
15 | REAL(8), DIMENSION(ntra_bio_max) :: |
---|
16 | & zmt_i |
---|
17 | REAL(8), DIMENSION(ntra_bio_max,nlay_bio) :: |
---|
18 | & zc_i |
---|
19 | REAL(8), DIMENSION(nlay_bio) :: |
---|
20 | & zdeltaz |
---|
21 | LOGICAL :: |
---|
22 | & ln_write |
---|
23 | |
---|
24 | !=============================================================================! |
---|
25 | |
---|
26 | IF ( ln_write ) THEN |
---|
27 | WRITE(numout,*) ' *** ice_bio_column : ' |
---|
28 | WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~ ' |
---|
29 | ENDIF |
---|
30 | |
---|
31 | DO jn = 1, ntra |
---|
32 | zmt_i(jn) = 0.0 |
---|
33 | END DO |
---|
34 | |
---|
35 | DO jn = 1, ntra |
---|
36 | DO jk = 1, nlay_bio |
---|
37 | zmt_i(jn) = zmt_i(jn) + zc_i(jn,jk) * |
---|
38 | & zdeltaz(jk) |
---|
39 | END DO |
---|
40 | END DO |
---|
41 | |
---|
42 | RETURN |
---|
43 | |
---|
44 | !=============================================================================! |
---|
45 | !-- End of ice_bio_column -- |
---|
46 | |
---|
47 | END |
---|
Note: See
TracBrowser
for help on using the repository browser.