Changeset 380

Timestamp:

03/21/23 16:05:19 (13 months ago)

Author:

dumas

Message:

use only in subroutine bmelt_grounded

File:

• branches/GRISLIv3/SOURCES/bmelt-grounded.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/bmelt-grounded.f90

@@ -17 +17 @@
 subroutine bmelt_grounded
 
-  use module3d_phy
-  use param_phy_mod
-  use icetemp_declar
+  use module3d_phy, only:nx,ny,nz,flot,bmelt,ibase,hwater,T,phid,cl,H,ghf,dtt
+  use param_phy_mod, only:ro
+  use icetemp_declar, only:ct,dee,cm,dzm,ncond
+  use runparam, only: itracebug
 
-if (itracebug.eq.1)  call tracebug('entree dans  bmelt-grounded')
+  integer :: i,j
+
+  if (itracebug.eq.1)  call tracebug('entree dans  bmelt-grounded')
 
   do j=2,ny-1