Changeset 388 for branches/GRISLIv3/SOURCES/Temperature-routines/Qprod_icetemp.f90

Timestamp:

03/22/23 17:15:38 (16 months ago)

Author:

aquiquet

Message:

Cleaning branch: use only statements in temperature

File:

• branches/GRISLIv3/SOURCES/Temperature-routines/Qprod_icetemp.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/Temperature-routines/Qprod_icetemp.f90

@@ -16 +16 @@
 subroutine Qprod_ice(Iq1)
 
-  use Icetemp_declar
+  use module3D_phy, only: nx,ny,nz,flot,h,epsxx,epsyy,epsxy,sdx,sdy,gzmx,gzmy,flgzmx,flgzmy,fleuvemx,fleuvemy,flotmx,flotmy,  &
+                            hmx,hmy,ddbx,ddby,tobmx,tobmy,phid,t,tpmp,uxbar,uybar,ux,uy
+  use module_choix, only: ddx,ddy,visc,btt,glen ! afq - 03/2023 - not clean
+  use Icetemp_declar,only: chaldef_maj,chalx,chaly,chal2_x,chal2_y,chal2_z,chal2_xy,chalgliss_maj,chalglissx,chalglissy,ffx,ffy,cp,ee, &
+                             ecart_phid,fracq,dee
+  use param_phy_mod, only: ro,g
+
 !$ USE OMP_LIB
 
 
   implicit none
+
+  integer i,j,k,l
 
   !<Arguments