Ignore:
Timestamp:
May 27, 2009, 12:35:49 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Reglage d'une configuration a 39 niveaux pour la discretisation verticale FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/disvert.F

    r999 r1164  
    3636c
    3737      INTEGER l
    38       REAL snorm
     38      REAL snorm,dsigmin
    3939      REAL alpha,beta,gama,delta,deltaz,h
    4040      INTEGER np,ierr
     
    9696      WRITE(LUNOUT,*)'WARNING!!! Ancienne discretisation verticale'
    9797
     98      if (ok_strato) then
     99         if (llm==39) then
     100            dsigmin=0.3
     101         else if (llm==50) then
     102            dsigmin=1.
     103         else
     104            WRITE(LUNOUT,*) 'ATTENTION discretisation z a ajuster'
     105            dsigmin=1.
     106         endif
     107         WRITE(LUNOUT,*) 'Discretisation verticale DSIGMIN=',dsigmin
     108      endif
     109
    98110      h=7.
    99111      snorm  = 0.
     
    149161c
    150162      ENDDO
     163
     164      bp(1)=1.
     165      ap(1)=0.
     166
    151167      ap(llmp1) = pa * ( sig(llmp1) - bp(llmp1) )
    152168
Note: See TracChangeset for help on using the changeset viewer.