/[lmdze]/trunk/dyn3d/Guide/Read_reanalyse/reanalyse2nat.f
ViewVC logotype

Diff of /trunk/dyn3d/Guide/Read_reanalyse/reanalyse2nat.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 137 by guez, Wed May 6 15:51:03 2015 UTC
# Line 42  contains Line 42  contains
42    
43      real p(iip1, jjp1, llmp1)      real p(iip1, jjp1, llmp1)
44      real pks(iip1, jjp1)      real pks(iip1, jjp1)
     real pkf(iip1, jjp1, llm)  
45      real pls(iip1, jjp1, llm)      real pls(iip1, jjp1, llm)
46      real prefkap, unskap      real prefkap, unskap
47    
# Line 53  contains Line 52  contains
52      ! calcul de la pression au milieu des couches      ! calcul de la pression au milieu des couches
53      forall (l = 1: llm + 1) p(:, :, l) = ap(l) + bp(l) * psi      forall (l = 1: llm + 1) p(:, :, l) = ap(l) + bp(l) * psi
54      call massdair(p, masse)      call massdair(p, masse)
55      CALL exner_hyb(psi, p, pks, pk, pkf)      CALL exner_hyb(psi, p, pks, pk)
56    
57      ! Calcul de pls, pression au milieu des couches, en Pascals      ! Calcul de pls, pression au milieu des couches, en Pascals
58      unskap=1./kappa      unskap=1./kappa
Legend:
Removed from v.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21