Ignore:
Timestamp:
Mar 6, 2002, 3:58:31 PM (22 years ago)
Author:
lmdz
Message:

Inclusion des modifs de D. Hauglustaine pour la version 1 de INCA
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/gcm.F

    r195 r344  
    22      PROGRAM gcm
    33
     4#ifdef INCA
     5      USE transport_controls, ONLY : adv_flg, mmt_adj
     6#endif 
    47      USE IOIPSL
    58
    … …  
    127130      REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
    128131
     132#ifdef INCA_CH4
     133      REAL :: flxw(ip1jmp1,llm)
     134#endif
     135
    129136      LOGICAL offline  ! Controle du stockage ds "fluxmass"
    130137      PARAMETER (offline=.true.)
    … …  
    409416cccc      de masse pour  Van-Leer dans la routine  tracvl  .
    410417c
    411             CALL vanleer(numvanle,iapp_tracvl,nqmx,q,pbaru,pbarv,
    412      *                      p, masse, dq,  iadv(1), teta, pk     )
     418      CALL vanleer(numvanle,
     419     .             iapp_tracvl,
     420     .             nqmx,
     421     .             q,
     422     .             pbaru,
     423     .             pbarv,
     424     .             p,
     425     .             masse,
     426     .             dq, 
     427     .             iadv(1),
     428     .             teta,
     429#ifdef INCA_CH4
     430     .             flxw,
     431     .             pk,
     432     .             mmt_adj,
     433     .             adv_flg)
     434#else
     435     .             pk)
     436#endif
    413437c
    414438c                   ...  Modif  F.Codron  ....
    … …  
    470494           ENDIF
    471495c
    472         CALL calfis( nqmx, lafin ,rdayvrai,rday_ecri,time  ,
    473      $                 ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
    474      $     du,dv,dteta,dq,w,clesphy0, dufi,dvfi,dhfi,dqfi,dpfi  )
     496        CALL calfis( nqmx,
     497     $               lafin,
     498     $               rdayvrai,
     499     $               rday_ecri,
     500     $               time,
     501     $               ucov,
     502     $               vcov,
     503     $               teta,
     504     $               q,
     505     $               masse,
     506     $               ps,
     507     $               p,
     508     $               pk,
     509     $               phis,
     510     $               phi,
     511     $               du,
     512     $               dv,
     513     $               dteta,
     514     $               dq,
     515     $               w,
     516#ifdef INCA_CH4
     517     $               flxw,
     518#endif
     519     $               clesphy0,
     520     $               dufi,
     521     $               dvfi,
     522     $               dhfi,
     523     $               dqfi,
     524     $               dpfi)
    475525
    476526c      ajout des tendances physiques:
Note: See TracChangeset for help on using the changeset viewer.