Context Navigation

ice_bio_column.f @ 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	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.