Changeset 59 for trunk/SOURCES/branche-Cat-spinup-dec2011

Timestamp:

04/29/16 15:25:33 (8 years ago)

Author:

aquiquet

Message:

Introduction of Betamax_2d for all geoms / call to sliding removed / Drastic change in dragging module based on effective pressure (no curvature but slow_ssa zones)

File:

• trunk/SOURCES/branche-Cat-spinup-dec2011/dragging_prescr_beta_mod.f90 (modified) (1 diff)

trunk/SOURCES/branche-Cat-spinup-dec2011/dragging_prescr_beta_mod.f90

@@ -99 +99 @@
     betamy_file = trim(dirnameinp)//trim(betamy_file)
     betamax = beta_limgz
+    betamax_2d(:,:) = betamax
 
 !  read the beta value on centered and staggered grids