Changeset 386 for branches/GRISLIv3

Timestamp:

03/22/23 13:59:16 (16 months ago)

Author:

dumas

Message:

use only in module calving_frange_glaciers

File:

• branches/GRISLIv3/SOURCES/calving_frange_ISMIP_glaciers.f90 (modified) (3 diffs)

branches/GRISLIv3/SOURCES/calving_frange_ISMIP_glaciers.f90

@@ -17 +17 @@
 module calving_frange_glaciers
 
-  use module3D_phy
+  use module3D_phy, only:nx,ny,calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,&
+       bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,dx,S,B,iceberg,ice,dirnameinp,time,dt
+  use param_phy_mod, only: ro,row
+  use bilan_eau_mod, only:calv_dtt
   use netcdf
   use io_netcdf_grisli
-  use bilan_eau_mod
+
   implicit none
 
@@ -53 +56 @@
     real*8, dimension(:,:), pointer      :: tab2d => null()         !< tableau 2d real pointer
     real*8, dimension(:,:,:), pointer    :: tab3d => null()         !< tableau 3d real pointer
-
+    integer :: err
+    
     namelist/calving_glaciers/Hcoup_plateau,Hcoup_abysses,prof_plateau,prof_abysses,ifrange,meth_hcoup,file_IS_glaciers,file_IS_toporef,nb_snap,time_depart_snaps
 
@@ -164 +168 @@
   !---------------------------------------------------------------------------------------
   subroutine calving
-
+    
+    integer :: i,j,l
     integer :: I_did_something  ! pour la boucle sur le calving
     integer :: k