Changeset 384
- Timestamp:
- 03/22/23 09:54:26 (13 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/GRISLIv3/SOURCES/calving_frange_abuk.f90
r237 r384 18 18 module calving_frange_abuk 19 19 20 use module3D_phy 21 use bilan_eau_mod 20 use module3D_phy, only:nx,ny,calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 21 bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,dx,S,B,ice 22 use param_phy_mod, only: ro,row 23 use bilan_eau_mod, only:calv_dtt 22 24 implicit none 23 25 … … 115 117 !--------------------------------------------------------------------------------------- 116 118 subroutine calving 117 119 120 integer :: i,j,l 118 121 integer :: I_did_something ! pour la boucle sur le calving 119 122
Note: See TracChangeset
for help on using the changeset viewer.