Changeset 1795 for LMDZ5/branches/testing/libf/dyn3dmem/conf_gcm.F

Timestamp:

Jul 18, 2013, 10:20:28 AM (12 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/conf_gcm.F (modified) (1 diff)

LMDZ5/branches/testing/libf/dyn3dmem/conf_gcm.F

@@ -335 +335 @@
        CALL getin('dissip_zref',dissip_zref )
 
+! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
+!                   iflag_top_bound=0 for no sponge
+!                   iflag_top_bound=1 for sponge over 4 topmost layers
+!                   iflag_top_bound=2 for sponge from top to ~1% of top layer pressure
        iflag_top_bound=1
+       CALL getin('iflag_top_bound',iflag_top_bound)
+
+! mode_top_bound : fields towards which sponge relaxation will be done:
+!                  mode_top_bound=0: no relaxation
+!                  mode_top_bound=1: u and v relax towards 0
+!                  mode_top_bound=2: u and v relax towards their zonal mean
+!                  mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean
+       mode_top_bound=3
+       CALL getin('mode_top_bound',mode_top_bound)
+
+! top_bound sponge : inverse of charactericstic relaxation time scale for sponge
        tau_top_bound=1.e-5
-       CALL getin('iflag_top_bound',iflag_top_bound)
        CALL getin('tau_top_bound',tau_top_bound)