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

Menage
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

    r325 r332  
    418418        isst = 0
    419419        where (ocemask_fi(2:klon-1) >0.) isst = 1
    420         write(45,'(72i1)')isst
    421420      endif
    422421
     
    503502      isst = 0
    504503      where (pctsrf(2:klon-1,is_oce) >0.) isst = 1
    505       write(46,'(72i1)')isst
    506504C
    507505C verif que somme des sous surface = 1
Note: See TracChangeset for help on using the changeset viewer.