[4] | 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 |
---|