Ignore:
Timestamp:
Jun 6, 2011, 10:16:33 AM (13 years ago)
Author:
musat
Message:

Petites corrections pour le cas ou l'on veut pas sortir de fichier
histstn (et qu'on a pas les fichiers initiaux correspondants).
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/CFMIP_point_locations_mod.F90

    r1532 r1536  
    1111
    1212  WRITE(*,*) 'npCFMIP=',npCFMIP
    13   OPEN(20, file="pointlocations.txt",status='old')
     13! OPEN(20, file="pointlocations.txt",status='old')
     14  OPEN(20, file="pointlocations.txt",status='old',err=999)
    1415  OPEN(21, file="pointlocations_lon180.txt")
    1516  np=1
    … …  
    2627   CLOSE(20)
    2728   CLOSE(21)
     29999 RETURN
    2830 END SUBROUTINE read_CFMIP_point_locations
    2931
Note: See TracChangeset for help on using the changeset viewer.