Last change
on this file since 83 was
4,
checked in by dumas, 10 years ago
|
initial import GRISLI trunk
|
File size:
663 bytes
|
Line | |
---|
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.