1 | !> \file climat_GrIce2sea_mod.f90 |
---|
2 | !! Module ou les variations temporelles des variables climatiques |
---|
3 | !! sont directement imposees |
---|
4 | !< |
---|
5 | |
---|
6 | !> \namespace climat_Grice2sea_mod |
---|
7 | !! Module ou les variations temporelles des variables climatiques |
---|
8 | !! sont directement imposees |
---|
9 | !! \author Cat |
---|
10 | !! \date 31 oct |
---|
11 | !! @note Used modules: |
---|
12 | !! @note - use module3D_phy |
---|
13 | !< |
---|
14 | module climat_Grice2sea_mod |
---|
15 | |
---|
16 | |
---|
17 | use module3d_phy |
---|
18 | implicit none |
---|
19 | |
---|
20 | |
---|
21 | real :: T_lapse_rate !< pour la temperature |
---|
22 | |
---|
23 | |
---|
24 | ! Pour l'instant on prend un seul fichier (donnees observees) |
---|
25 | ! introduire les variations et les anomalies par la suite |
---|
26 | |
---|
27 | contains |
---|
28 | |
---|
29 | !-------------------------------------------------------------------------------- |
---|
30 | !> SUBROUTINE: input_clim |
---|
31 | !! Routine qui permet d'initialiser les variations temporelles des variables climatiques |
---|
32 | !> |
---|
33 | subroutine input_clim !routine qui permet d'initialiser les variations temporelles des variables climatiques |
---|
34 | ! pour l'instant fake |
---|
35 | end subroutine input_clim |
---|
36 | |
---|
37 | !-------------------------------------------------------------------------------- |
---|
38 | !> SUBROUTINE: init_forclim |
---|
39 | !! Routine qui permet d'initialiser les variables climatiques au cours du temps |
---|
40 | !> |
---|
41 | subroutine init_forclim |
---|
42 | |
---|
43 | |
---|
44 | namelist/lapse_rates/T_lapse_rate |
---|
45 | |
---|
46 | rewind(num_param) ! pour revenir au debut du fichier param_list.dat |
---|
47 | read(num_param,lapse_rates) |
---|
48 | |
---|
49 | ! formats pour les ecritures dans 42 |
---|
50 | 428 format(A) |
---|
51 | |
---|
52 | rewind(num_param) ! pour revenir au debut du fichier param_list.dat |
---|
53 | read(num_param,lapse_rates) |
---|
54 | |
---|
55 | write(num_rep_42,428)'!___________________________________________________________' |
---|
56 | write(num_rep_42,428)'! module climat_Grice2sea_mod ' |
---|
57 | write(num_rep_42,lapse_rates) |
---|
58 | write(num_rep_42,428)'!___________________________________________________________' |
---|
59 | |
---|
60 | return |
---|
61 | end subroutine init_forclim |
---|
62 | |
---|
63 | !-------------------------------------------------------------------------------- |
---|
64 | !> SUBROUTINE: forclim |
---|
65 | !! |
---|
66 | !! Routine qui permet le calcul climatique au cours du temps |
---|
67 | !! @note Au temps considere (time) attribue les scalaires |
---|
68 | !! @note - tafor : forcage en temperature |
---|
69 | !! @note - sealevel : forcage niveau des mers |
---|
70 | !! @note - coefbmelt : forcage fusion basale ice shelves |
---|
71 | !> |
---|
72 | subroutine forclim ! au temps considere (time) |
---|
73 | |
---|
74 | use module3d_phy |
---|
75 | implicit none |
---|
76 | |
---|
77 | call massb_Ice2sea_fixe |
---|
78 | |
---|
79 | end subroutine forclim |
---|
80 | |
---|
81 | end module climat_Grice2sea_mod |
---|