Changeset 559 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Nov 9, 2004, 5:55:41 PM (20 years ago)
Author:
lmdzadmin
Message:

Initialisations diverses YM
LF

Location:
LMDZ4/trunk/libf
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/bilan_dyn.F

    r541 r559  
    298298
    299299c   énergie cinétique
     300      ucont(:,:,:)=0
    300301      CALL covcont(llm,ucov,vcov,ucont,vcont)
    301302      CALL enercin(vcov,ucov,vcont,ucont,ecin)

  • LMDZ4/trunk/libf/dyn3d/leapfrog.F

    r550 r559  
    44c
    55c
    6       SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0)
     6      SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0,
     7     &                    time_0)
    78
    89#ifdef INCA

  • LMDZ4/trunk/libf/phylmd/clouds_gno.F

    r524 r559  
    5858       LOGICAL lconv(klon)
    5959
    60 
     60cym
     61      cldf(:,:)=0.0
     62     
    6163      pi = ACOS(-1.)
    6264      sqrtpi=sqrt(pi)

  • LMDZ4/trunk/libf/phylmd/concvl.F

    r524 r559  
    8888c
    8989c
     90cym
     91      snow(:)=0
     92     
    9093      IF (ifrst .EQ. 0) THEN
    9194         ifrst = 1

  • LMDZ4/trunk/libf/phylmd/cv3_routines.F

    r524 r559  
    194194      real pnk(len), qsnk(len), rh(len), chi(len)
    195195      real A, B ! convect3
    196 
     196cym
     197      plcl=0.0
    197198c@ !-------------------------------------------------------------------
    198199c@ ! --- Find level of minimum moist static energy
    … …  
    14881489            vent(i,k,j)=v(i,j)
    14891490            elij(i,k,j)=0.0
    1490             ment(i,k,j)=0.0
    1491             sij(i,k,j)=0.0
     1491cym            ment(i,k,j)=0.0
     1492cym            sij(i,k,j)=0.0
    14921493 385      continue
    14931494 390    continue
    14941495 400  continue
    14951496
     1497cym
     1498      ment(1:ncum,1:nd,1:nd)=0.0
     1499      sij(1:ncum,1:nd,1:nd)=0.0
     1500     
    14961501c      do k=1,ntra
    14971502c       do j=1,nd  ! instead nlp
    … …  
    16201625c=====================================================================
    16211626
    1622       call zilch(asum,ncum*nd)
    1623       call zilch(bsum,ncum*nd)
    1624       call zilch(csum,ncum*nd)
     1627cym      call zilch(asum,ncum*nd)
     1628cym      call zilch(bsum,ncum*nd)
     1629cym      call zilch(csum,ncum*nd)
     1630      call zilch(asum,nloc*nd)
     1631      call zilch(csum,nloc*nd)
     1632      call zilch(csum,nloc*nd)
    16251633
    16261634      do il=1,ncum

  • LMDZ4/trunk/libf/phylmd/cv_driver.F

    r524 r559  
    321321         tp1(i,k)=0.0
    322322         clw1(i,k)=0.0
     323cym
     324         clw(i,k)=0.0   
    323325         gz1(i,k) = 0.
    324326

  • LMDZ4/trunk/libf/phylmd/fisrtilp.F

    r524 r559  
    123123c
    124124      DATA appel1er /.TRUE./
    125 
     125cym
     126      zdelq=0.0
     127     
    126128      IF (appel1er) THEN
    127129c

  • LMDZ4/trunk/libf/phylmd/ini_histmth.h

    r548 r559  
    739739c     endif
    740740c
    741 c        CALL histdef(nid_mth, "ozone", "Ozone concentration", "-",
    742 c    .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
    743 c    .                "ave(X)", zsto,zout)
    744 c
    745741         if (nqmax.GE.3) THEN
    746742         DO iq=1,nqmax-2

  • LMDZ4/trunk/libf/phylmd/interface_surf.F90

    r557 r559  
    300300        call abort_gcm(modname,abort_message,1)
    301301      endif
     302cym     
     303      run_off=0.0
     304cym
     305
    302306!!$PB
    303307      ALLOCATE (tmp_rriv(iim,jjm+1), stat=error)

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r557 r559  
    625625      REAL sens(klon), dsens(klon) ! chaleur sensible et sa derivee
    626626      REAL dlw(klon)    ! derivee infra rouge
     627cym
     628      SAVE dlw
     629cym
    627630      REAL bils(klon) ! bilan de chaleur au sol
    628631      REAL wfbils(klon,nbsrf) ! bilan de chaleur au sol, pour chaque
    … …  
    824827c
    825828      INTEGER ibas_con(klon), itop_con(klon)
     829cym
     830      SAVE ibas_con,itop_con
     831cym
    826832      REAL rain_con(klon), rain_lsc(klon)
    827833      REAL snow_con(klon), snow_lsc(klon)
    … …  
    974980      LOGICAL ok_ade, ok_aie    ! Apply aerosol (in)direct effects or not
    975981      REAL bl95_b0, bl95_b1   ! Parameter in Boucher and Lohmann (1995)
     982cym
     983      SAVE ok_ade, ok_aie, bl95_b0, bl95_b1
     984cym
    976985cjq-end
    977986c
    … …  
    9971006      bl95_b1=0.
    9981007!rv
     1008cym
     1009      wfbils(:,:)=0
     1010cym     
    9991011      modname = 'physiq'
    10001012      IF (if_ebil.ge.1) THEN
    … …  
    23612373         CALL aeropt(pplay, paprs, t_seri, sulfate, rhcl,
    23622374     .        tau_ae, piz_ae, cg_ae, aerindex)
     2375cym
     2376      ELSE
     2377        tau_ae(:,:,:)=0.0
     2378        piz_ae(:,:,:)=0.0
     2379        cg_ae(:,:,:)=0.0
     2380cym     
    23632381      ENDIF
    23642382
Note: See TracChangeset for help on using the changeset viewer.