/[MITgcm]/MITgcm/model/src/modeldata_example.F
ViewVC logotype

Diff of /MITgcm/model/src/modeldata_example.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:48 2001 UTC revision 1.9 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: MODELDATA_EXAMPLE
8    C     !INTERFACE:
9        SUBROUTINE MODELDATA_EXAMPLE( myThid )        SUBROUTINE MODELDATA_EXAMPLE( myThid )
 C     /==========================================================\  
 C     | S/R MODELDATA_EXAMPLE                                    |  
 C     | o Write example data file                                |  
 C     |==========================================================|  
 C     | Notes                                                    |  
 C     | =====                                                    |  
 C     | Some systems require & as the namelist terminator.       |  
 C     | Other systems use a / character.                         |  
 C     \==========================================================/  
       IMPLICIT NONE  
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | S/R MODELDATA_EXAMPLE                                    
14    C     | o Write example data file                                
15    C     *==========================================================*
16    C     | Notes                                                    
17    C     | =====                                                    
18    C     | Some systems require & as the namelist terminator.        
19    C     | Other systems use a / character.                          
20    C     *==========================================================*
21    C     \ev
22    
23    C     !USES:
24          IMPLICIT NONE
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28    
29  C     -- Routine arguments --  C     !INPUT/OUTPUT PARAMETERS:
30    C     == Routine arguments ==
31        INTEGER myThid        INTEGER myThid
32    
33  C     -- Local variables --  C     !LOCAL VARIABLES:
34    C     == Local variables ==
35        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
36    CEOP
37                
38        WRITE(msgBuf,'(A)') '// Shown below is an example "data" file.'        WRITE(msgBuf,'(A)') '// Shown below is an example "data" file.'
39        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22