Changeset 326 for LMDZ.3.3


Ignore:
Timestamp:
Feb 4, 2002, 5:35:44 PM (23 years ago)
Author:
lmdzadmin
Message:

Pour etre compatible avec le startget de LeVan?
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_limit.F

    r278 r326  
    3737      REAL phy_rug(klon,360)
    3838      REAL phy_ice(klon)
     39      logical interbar
     40      parameter (interbar=.false.)
    3941CPB
    4042c      REAL phy_icet(klon,360)
    … …  
    148150      varname = 'masque'
    149151      masque(:,:) = 0.0
    150       CALL startget(varname, iip1, jjp1, rlonv, rlatu, masque, 0.0)
     152      CALL startget(varname, iip1, jjp1, rlonv, rlatu, masque, 0.0, jjm
     153     ,     ,rlonu,rlatv , interbar )
    151154      pctsrf=0.
    152155      varname = 'zmasq'
    153156      zmasq(:) = 0.
    154       CALL startget(varname,iip1,jjp1,rlonv,rlatu,klon,zmasq,0.0)
     157      CALL startget(varname,iip1,jjp1,rlonv,rlatu,klon,zmasq,0.0,
     158     .jjm ,rlonu,rlatv , interbar)
    155159      WHERE (zmasq(1 : klon) .LT. EPSFRA)
    156160          zmasq(1 : klon) = 0.
Note: See TracChangeset for help on using the changeset viewer.