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
|
Rev | Line | |
---|
[2] | 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.