Last change
on this file since 150 was
4,
checked in by dumas, 10 years ago
|
initial import GRISLI trunk
|
File size:
663 bytes
|
Rev | Line | |
---|
[4] | 1 | !> \file masque.f90 |
---|
| 2 | !! Module pour definir le masque de flottaison de glace |
---|
| 3 | !< |
---|
| 4 | |
---|
| 5 | !> SUBROUTINE: masque |
---|
| 6 | !! \author .... |
---|
| 7 | !! \date juillet 2009 |
---|
| 8 | !! @note Cette routine permet de calculer le masque de flottaison de glace |
---|
| 9 | !! @note Used modules: |
---|
| 10 | !! @note - use module3D_phy |
---|
| 11 | !! |
---|
| 12 | !< |
---|
| 13 | |
---|
| 14 | ! version juillet 2009 |
---|
| 15 | subroutine masque |
---|
| 16 | |
---|
| 17 | use module3D_phy |
---|
| 18 | implicit none |
---|
| 19 | |
---|
| 20 | if (itracebug.eq.1) call tracebug(' Entree dans masque') |
---|
| 21 | |
---|
| 22 | ! mk donne la flottaison |
---|
| 23 | do j=1,ny |
---|
| 24 | do i=1,nx |
---|
| 25 | if (flot(i,j)) then |
---|
| 26 | mk(i,j)=1 |
---|
| 27 | else |
---|
| 28 | mk(i,j)=0 |
---|
| 29 | endif |
---|
| 30 | end do |
---|
| 31 | end do |
---|
| 32 | |
---|
| 33 | ! pour eventuellement enlever certaines zones |
---|
| 34 | mk(:,:)=mk(:,:)*mk0(:,:) |
---|
| 35 | |
---|
| 36 | end subroutine masque |
---|
Note: See
TracBrowser
for help on using the repository browser.