Changeset 1165


Ignore:
Timestamp:
May 28, 2009, 12:17:20 PM (15 years ago)
Author:
Laurent Fairhead
Message:

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

Location:
LMDZ4/branches/LMDZ4-dev/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/disvert.F

    r1164 r1165  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44      SUBROUTINE disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
    … …  
    114114
    115115         IF (ok_strato) THEN
    116            dsig(l) =(1.0 + 7.0 * SIN(x)**2)
     116           dsig(l) =(dsigmin + 7.0 * SIN(x)**2)
    117117     &            *(0.5*(1.-tanh(1.*(x-asin(1.))/asin(1.))))**2       
    118118         ELSE

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

    r1164 r1165  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44      SUBROUTINE disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
    … …  
    114114
    115115         IF (ok_strato) THEN
    116            dsig(l) =(1.0 + 7.0 * SIN(x)**2)
     116           dsig(l) =(dsigmin + 7.0 * SIN(x)**2)
    117117     &            *(0.5*(1.-tanh(1.*(x-asin(1.))/asin(1.))))**2       
    118118         ELSE
Note: See TracChangeset for help on using the changeset viewer.