Changeset 1012 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Jul 24, 2013, 6:04:38 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.COMMON. No need for ok_strato to activate sponge layer at model top. Default iflag_top_bound is 0 and no longer 1. Modified doc accordingly.

Location:

trunk/LMDZ.COMMON/libf/dyn3dpar

Files:

• conf_gcm.F (modified) (1 diff)
• leapfrog_p.F (modified) (1 diff)
• top_bound_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F

@@ -374 +374 @@
 !                   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
+       iflag_top_bound=0
        CALL getin('iflag_top_bound',iflag_top_bound)
 

trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

@@ -1001 +1001 @@
 c      Couche superieure :
 c      -------------------
-         IF (ok_strato) THEN
+         IF (iflag_top_bound > 0) THEN
            CALL top_bound_p(vcov,ucov,teta,masse,dtphys,
      $                       dutop)

trunk/LMDZ.COMMON/libf/dyn3dpar/top_bound_p.F

@@ -76 +76 @@
       INTEGER j,l,jjb,jje
 
-
-      if (iflag_top_bound == 0) return
 
       if (first) then