Commit 02390bea3e743a09a2a5568478a9e537b459f74d

Authored by Jérémy Baudry
1 parent cf00e5c6
Exists in master

obsolete

Showing 1 changed file with 0 additions and 66 deletions   Show diff stats
src/fsd_build.f90 deleted
... ... @@ -1,66 +0,0 @@
1   -
2   -!________________________________________________________________________________
3   -
4   - !DESCRIPTION: In this routine the average floe size
5   - !Dave is computed using the value of Dmax calculated in
6   - !the subroutine 'floe_breaking'.
7   -
8   -!________________________________________________________________________________
9   -
10   -
11   -
12   - !INTERFACE:
13   - subroutine fsd_build
14   -
15   - !MODULE USES:
16   - use parameters
17   -
18   - !LOCAL PARAMETERS:
19   - implicit none
20   -
21   - double precision :: coeff
22   - double precision, allocatable :: ND(:)
23   - double precision, allocatable :: NN(:)
24   - integer :: M
25   - integer :: mm
26   -
27   -!_________________________________________________________________________________
28   -
29   - if(C_ice(i).eq.0)then
30   - Dave(i)=0
31   - elseif (Dmax(i).eq.D0) then
32   - Dave(i)=Dmax(i)
33   - elseif (Dmax(i).eq.Dmin) then
34   - Dave(i)=Dmin
35   -
36   - elseif (FSD_scheme.eq.1) then !use a power law to compute <D>
37   - coeff=1/((1/(1-gam))*(Dmax(i)**(1-gam)-Dmin**(1-gam)))
38   - Dave(i)=coeff*(1/(2-gam))*(Dmax(i)**(2-gam)-Dmin**(2-gam))
39   -
40   - else !use the method from Dumont et al.(2011) to compute <D>
41   -
42   - M=floor(log(Dmax(i)/Dmin)/log(psi))
43   -
44   - allocate(ND(M+1))
45   - allocate(NN(M+1))
46   - jj=1
47   - do mm=0,M-1
48   -
49   - NN(jj)=((1-ff)*(psi**2*ff)**mm)*(Dmax(i)/psi**mm)
50   - ND(jj)=(1-ff)*(psi**2*ff)**mm
51   - jj=jj+1
52   -
53   - end do
54   -
55   - Dave(i)=(sum(NN)+((psi**2*ff)**M)*(Dmax(i)/psi**M))/(sum(ND)+(psi**2*ff)**M)
56   -
57   - deallocate(ND)
58   - deallocate(NN)
59   -
60   - end if
61   -
62   -
63   -
64   -!_________________________________________________________________________________
65   -
66   -end subroutine fsd_build