Changeset 271 for trunk/SOURCES/bilan_flux_output_mod.f90

Timestamp:

07/08/19 17:25:37 (5 years ago)

Author:

aquiquet

Message:

Further computations of mass conservation in double precision for small timesteps

File:

• trunk/SOURCES/bilan_flux_output_mod.f90 (modified) (1 diff)

trunk/SOURCES/bilan_flux_output_mod.f90

@@ -25 +25 @@
 real,dimension(nx,ny) :: bmeltgr_flux   ! bmelt on ice grounded mask
 real,dimension(nx,ny) :: bmeltfl_flux   ! bmelt on floating ice mask
-real,dimension(nx,ny) :: dhdt_flux      ! dhdt on ice mask
+double precision,dimension(nx,ny) :: dhdt_flux      ! dhdt on ice mask
 real,dimension(nx,ny) :: calving_flux   ! calving on ice mask
 real,dimension(nx,ny) :: grline_flux    ! grounding line flux
 real,dimension(nx,ny) :: calv_abl_bord_flux ! calving + abl_bord sur points en contact avec la mer
 
-real,dimension(nx,ny) :: vieuxH_flux    ! H at previous time step
+double precision,dimension(nx,ny) :: vieuxH_flux    ! H at previous time step
 !real,dimension(nx,ny) :: archimtab      ! point pose si > 0
 !integer,dimension(nx,ny) :: gr_line        ! point grounding line (pose sous niveau de la mer avec point flottant a cote)