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

Timestamp:

Jul 24, 2013, 6:04:38 PM (12 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/dyn3d

Files:

• conf_gcm.F (modified) (1 diff)
• leapfrog.F (modified) (1 diff)
• top_bound.F (modified) (1 diff)

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

@@ -347 +347 @@
 !                   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/dyn3d/leapfrog.F

@@ -504 +504 @@
 c      Couche superieure :
 c      -------------------
-         IF (ok_strato) THEN
+         IF (iflag_top_bound > 0) THEN
            CALL top_bound(vcov,ucov,teta,masse,dtphys,dutop)
            dutop(:,:)=dutop(:,:)/dtphys   ! convert to a tendency in (m/s)/s

trunk/LMDZ.COMMON/libf/dyn3d/top_bound.F

@@ -78 +78 @@
       INTEGER j,l
       
-      if (iflag_top_bound.eq.0) return
-
       if (first) then
          if (iflag_top_bound.eq.1) then