Changeset 1165 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar

Timestamp:

May 28, 2009, 12:17:20 PM (16 years ago)

Author:

Laurent Fairhead

Message:

La modification sur la discretisation verticale n'etait pas appliquee FH
LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/disvert.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/disvert.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       SUBROUTINE disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
@@ -114 +114 @@
 
          IF (ok_strato) THEN
-           dsig(l) =(1.0 + 7.0 * SIN(x)**2)
+           dsig(l) =(dsigmin + 7.0 * SIN(x)**2)
      &            *(0.5*(1.-tanh(1.*(x-asin(1.))/asin(1.))))**2        
          ELSE