/[MITgcm]/MITgcm/pkg/mypackage/mypackage_check.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_check.F

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

revision 1.4 by jmc, Tue Apr 28 23:27:24 2009 UTC revision 1.5 by jmc, Sun Dec 27 23:40:03 2009 UTC
# Line 25  C     myThid   :: my Thread Id number Line 25  C     myThid   :: my Thread Id number
25        INTEGER myThid        INTEGER myThid
26  CEOP  CEOP
27    
28    #ifdef ALLOW_MYPACKAGE
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30  C     msgBuf   :: Informational/error meesage buffer  C     msgBuf   :: Informational/error message buffer
31        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
32    
 #ifdef ALLOW_MYPACKAGE  
   
33        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
34    
35         WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE'         WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE'
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22