/[MITgcm]/MITgcm/eesupp/src/check_threads.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/check_threads.F

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

revision 1.8 by cnh, Sun Feb 4 14:38:42 2001 UTC revision 1.9 by adcroft, Tue May 29 14:01:36 2001 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    #define HAVE_SYSTEM
6    
7  CStartOfInterface  CStartOfInterface
8        SUBROUTINE CHECK_THREADS( myThid )        SUBROUTINE CHECK_THREADS( myThid )
# Line 87  C       but this causes KAP to insert a Line 88  C       but this causes KAP to insert a
88         GOTO 10         GOTO 10
89        ENDIF        ENDIF
90     11 CONTINUE     11 CONTINUE
91  C    
 C  
92        RETURN        RETURN
93        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22