Changeset 724 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Oct 19, 2006, 2:28:36 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Parenthese mal placee LG
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r644 r724  
    510510C verif que somme des sous surface = 1
    511511C
    512       ji=count( (abs( sum(pctsrf(1 : klon, 1 : nbsrf), dim = 2)) - 1.0 )
     512      ji=count(abs(sum(pctsrf(1 : klon, 1 : nbsrf), dim = 2) - 1.0 )
    513513     $    .GT. EPSFRA)
    514514      IF (ji .NE. 0) THEN
Note: See TracChangeset for help on using the changeset viewer.