/[lmdze]/trunk/libf/phylmd/condsurf.f
ViewVC logotype

Diff of /trunk/libf/phylmd/condsurf.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 70 by guez, Fri Apr 20 14:58:43 2012 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 68  c             PRINT *,' Fichier  Limite Line 68  c             PRINT *,' Fichier  Limite
68           PRINT *,' PBS ! Le jour a lire sur le fichier limit ne se '           PRINT *,' PBS ! Le jour a lire sur le fichier limit ne se '
69           PRINT *,' trouve pas sur les ',nannemax,' annees a partir de '           PRINT *,' trouve pas sur les ',nannemax,' annees a partir de '
70           PRINT *,' l annee de debut', annee_ref           PRINT *,' l annee de debut', annee_ref
71           CALL EXIT(1)           stop 1
72  c  c
73  100     CONTINUE  100     CONTINUE
74  c  c
# Line 86  c Line 86  c
86          WRITE(6,*)' Le fichier limit ',fich,' (avec 4 chiffres , pour'          WRITE(6,*)' Le fichier limit ',fich,' (avec 4 chiffres , pour'
87          WRITE(6,*)'       l an 2000 )  ,  n existe  pas !  '          WRITE(6,*)'       l an 2000 )  ,  n existe  pas !  '
88          WRITE(6,*)' ierr = ', ierr          WRITE(6,*)' ierr = ', ierr
89          CALL EXIT(1)          stop 1
90        ENDIF        ENDIF
91  c     DO k = 1, jour  c     DO k = 1, jour
92  c La tranche de donnees a lire:  c La tranche de donnees a lire:
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21