1 | !> \file climat-mismip3d_mod.f90 |
---|
2 | !!Module pour la lecture du climat des experience Heino |
---|
3 | !< |
---|
4 | |
---|
5 | !> \namespace climat_mismip3 |
---|
6 | !! Module pour la lecture du climat |
---|
7 | !! \author ... |
---|
8 | !! \date ... |
---|
9 | !! @note Used module |
---|
10 | !! @note - use module3D_phy |
---|
11 | !< |
---|
12 | |
---|
13 | |
---|
14 | module climat_mismip3 ! pour le climat des experiences Heino |
---|
15 | |
---|
16 | |
---|
17 | use module3d_phy |
---|
18 | use no_ablation |
---|
19 | |
---|
20 | implicit none |
---|
21 | |
---|
22 | |
---|
23 | contains |
---|
24 | !______________________________________________________________________________ |
---|
25 | |
---|
26 | !>SUBROUTINE: input_clim |
---|
27 | !!Initialise la distance au centre |
---|
28 | !< |
---|
29 | |
---|
30 | subroutine input_clim ! initialise la distance au centre |
---|
31 | |
---|
32 | |
---|
33 | if (itracebug.eq.1) call tracebug(' Mismip3D: entree dans routine input_clim') |
---|
34 | |
---|
35 | |
---|
36 | abl(:,:)=0.00 |
---|
37 | bm(:,:)= 0.30 ! en m/an |
---|
38 | acc(:,:)=bm(:,:) |
---|
39 | |
---|
40 | |
---|
41 | where (mk0.eq.0) bm(:,:)=0. ! 0 dans l'ocean |
---|
42 | |
---|
43 | |
---|
44 | Tann(:,:)=-100.0 |
---|
45 | Ts(:,:)=-100.0 |
---|
46 | |
---|
47 | |
---|
48 | return |
---|
49 | end subroutine input_clim |
---|
50 | |
---|
51 | !-------------------------------------------------------------------------------- |
---|
52 | !> SUBROUTINE: init_forclim |
---|
53 | !! Routine qui permet d'initialiser les variables climatiques au cours du temps |
---|
54 | !> |
---|
55 | subroutine init_forclim |
---|
56 | |
---|
57 | if (itracebug.eq.1) call tracebug(' Mismip3D: entree dans routine init_forclim') |
---|
58 | |
---|
59 | return |
---|
60 | end subroutine init_forclim |
---|
61 | |
---|
62 | !__________________________________________________________________________ |
---|
63 | |
---|
64 | !>SUBROUTINE: forclim |
---|
65 | !! Clacule du climat au cours du temps |
---|
66 | !< |
---|
67 | subroutine forclim |
---|
68 | if (itracebug.eq.1) call tracebug(' Mismip3D : entree dans routine forclim') |
---|
69 | |
---|
70 | |
---|
71 | abl(:,:)=0.00 |
---|
72 | bm(:,:)= 0.30 |
---|
73 | acc(:,:)=bm(:,:) |
---|
74 | |
---|
75 | !if (time.gt.time_change) then |
---|
76 | ! Tann(:,:)=Tann(:,:)+deltaTann |
---|
77 | ! Ts(:,:)=Tann(:,:) |
---|
78 | ! bm(:,:)=bm(:,:)*ratiobil |
---|
79 | !endif |
---|
80 | |
---|
81 | |
---|
82 | end subroutine forclim |
---|
83 | |
---|
84 | end module climat_mismip3 |
---|