Changeset 970 for LMDZ4/trunk


Ignore:
Timestamp:
Jun 12, 2008, 11:38:46 AM (16 years ago)
Author:
Laurent Fairhead
Message:

Corrections petits bugs divers
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/concvl.F

    r963 r970  
    404404c     print*, 'concvl->: dd_t,dd_q ',dd_t(1,1),dd_q(1,1)
    405405
     406        DO k = 1, klev
     407         DO i = 1, klon
     408            dtvpdt1(i,k) = 0.
     409            dtvpdq1(i,k) = 0.
     410         ENDDO
     411        ENDDO
     412        DO i = 1, klon
     413           dplcldt(i) = 0.
     414           dplcldr(i) = 0.
     415        ENDDO
     416
     417
    406418      RETURN
    407419      END
  • LMDZ4/trunk/libf/phylmd/conf_phys.F90

    r967 r970  
    928928!Config Help =
    929929!
    930    lonmax_ins = 130.
     930   lonmax_ins_omp = 130.
    931931   call getin('lonmax_ins',lonmax_ins_omp)
    932932!
  • LMDZ4/trunk/libf/phylmd/cv3_mixscale.F

    r879 r970  
    1010*
    1111      implicit none
     12
     13#include "cv3param.h"
     14
    1215      integer nloc,ncum,na
    1316      integer i,j,il
    1417      real ment(nloc,na,na),m(nloc,na)
    1518c
    16       do 100 j=1,na
    17         do 101 i=1,na
     19      do 100 j=1,nl
     20        do 101 i=1,nl
    1821          do 102 il=1,ncum
    1922             ment(il,i,j) = m(il,i)*ment(il,i,j)
  • LMDZ4/trunk/libf/phylmd/cv3_routines.F

    r939 r970  
    24642464      enddo
    24652465
     2466! FH WARNING a modifier :
     2467      cpinv=0.
     2468
    24662469       do j=2,nl
    24672470      IF (iflag_mix .gt. 0) then
  • LMDZ4/trunk/libf/phylmd/ini_wake.F

    r880 r970  
    3535      real it
    3636cCR: on rajoute ale et alp de la PBL precrits
    37       open (99,file='wake.data',form='formatted')
    38       read (99,*) it
    39       read (99,*) w
    40       read (99,*) f
    41       read (99,*) u
    42       read (99,*) p
    43       close (99)
     37c     open (99,file='wake.data',form='formatted')
     38c     read (99,*) it
     39c     read (99,*) w
     40c     read (99,*) f
     41c     read (99,*) u
     42c     read (99,*) p
     43c     close (99)
     44
     45! FH A mettre si besoin dans physiq.def
     46! FH : voir avec JYG
     47      it=0.
     48      w=4.
     49      f=0.1
     50      u=0.1
     51      p=4.
    4452c
    4553      print *,' it,w ',it,w
  • LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90

    r967 r970  
    458458      deallocate(wsumSTD, phisumSTD)
    459459      deallocate(tnondef)
     460      deallocate(qsumSTD, rhsumSTD)
    460461      deallocate(uvsumSTD)
    461462      deallocate(vqsumSTD)
  • LMDZ4/trunk/libf/phylmd/physiq.F

    r968 r970  
    592592      REAL ment(klon,klev,klev),sij(klon,klev,klev)
    593593      REAL dd_t(klon,klev),dd_q(klon,klev)
    594       real alp_bl_prescr
    595       save alp_bl_prescr
    596       real ale_bl_prescr
    597       save ale_bl_prescr
     594
     595      real, save :: alp_bl_prescr=0.
     596      real, save :: ale_bl_prescr=0.
     597c$OMP THREADPRIVATE(alp_bl_prescr,ale_bl_prescr)
     598
    598599      real ale_wake(klon)
    599600      real alp_wake(klon)
  • LMDZ4/trunk/libf/phylmd/thermcell_env.F90

    r938 r970  
    4343
    4444      Zsat=.false.
     45      RLvCp = RLVTT/RCPD
     46
    4547!
    4648! Pr Tprec=Tl calcul de qsat
Note: See TracChangeset for help on using the changeset viewer.