Changeset 953 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
May 2, 2013, 10:33:18 AM (12 years ago)
Author:
slebonnois
Message:

SL: optimisation pour le parallèle suite à tests Venus / petite correction appels routines secondaires dans Venus et Titan

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/physiq.F

    r887 r953  
    14361436c====================================================================
    14371437      if (ballons.eq.1) then
    1438          CALL ballon(30,pdtphys,rjourvrai,gmtime,rlatd,rlond,
     1438         CALL ballon(30,pdtphys,rjourvrai,gmtime*RDAY,rlatd,rlond,
    14391439c    C               t,pplay,u,v,pphi)   ! alt above surface (smoothed for GCM)
    14401440     C               t,pplay,u,v,zphi)   ! alt above planet average radius
    … …  
    14681468      ENDDO
    14691469
    1470       CALL aaam_bud (27,klon,klev,rjourvrai,gmtime,
     1470      CALL aaam_bud (27,klon,klev,rjourvrai,gmtime*RDAY,
    14711471     C               ra,rg,romega,
    14721472     C               rlatd,rlond,pphis,
Note: See TracChangeset for help on using the changeset viewer.