Changeset 383

Timestamp:

03/22/23 09:43:39 (13 months ago)

Author:

dumas

Message:

use only in module calving_frange

File:

• branches/GRISLIv3/SOURCES/calving_frange.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/calving_frange.f90

@@ -16 +16 @@
 module calving_frange
 
-  use module3D_phy
-  use bilan_eau_mod
+  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
+  use param_phy_mod, only: ro,row
+  use bilan_eau_mod, only:calv_dtt
   implicit none
 
@@ -109 +111 @@
   subroutine calving
 
+    integer :: i,j,l
     integer :: I_did_something  ! pour la boucle sur le calving