Changeset 1536


Ignore:
Timestamp:
Jun 6, 2011, 10:16:33 AM (14 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

Location:
LMDZ4/branches/LMDZ4_AR5/libf/phylmd
Files:
3 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

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

    r1534 r1536  
    704704   clef_stations(4) = .FALSE.
    705705   clef_stations(5) = .FALSE.
    706    clef_stations(6) = .TRUE.
     706   clef_stations(6) = .FALSE.
    707707
    708708   lev_files(1) = lev_histmth

  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/physiq.F

    r1534 r1536  
    14781478998   CONTINUE
    14791479      CLOSE(98)
    1480 999   CONTINUE
     1480      CONTINUE
    14811481      IF(nCFMIP.GT.npCFMIP) THEN
    14821482       print*,'nCFMIP > npCFMIP : augmenter npCFMIP et recompiler'
    … …  
    15061506     $tabijGCM, lonGCM, latGCM, iGCM, jGCM)
    15071507c
     1508999      CONTINUE
    15081509         ENDIF !debut
    15091510 
Note: See TracChangeset for help on using the changeset viewer.