Changeset 90 for branches/iLoveclim/SOURCES/3D-physique-gen_mod.f90

Timestamp:

10/14/16 14:45:46 (8 years ago)

Author:

aquiquet

Message:

GRISLI-loveclim branch, GRISLI freshwater flux needed by iLOVECLIM

File:

• branches/iLoveclim/SOURCES/3D-physique-gen_mod.f90 (modified) (1 diff)

branches/iLoveclim/SOURCES/3D-physique-gen_mod.f90

@@ -251 +251 @@
   !hassine
   real, dimension(nx,ny) :: beta_centre !< beta on major node (average)
+  real (kind = 8),dimension(nx,ny) :: calvingGRIS
   real (kind = 8),dimension(nx,ny),target :: calvin_GRIS ! calving flux[m3/s] given to CLIO
   real, dimension(nx,ny) :: coef_drag   !< coefficient de la loi de friction non lineaire : depend de la valeur de alpha_drag