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

Diff of /MITgcm/model/src/config_summary.F

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

revision 1.4 by cnh, Fri Apr 24 02:08:39 1998 UTC revision 1.5 by cnh, Sun Apr 26 23:41:54 1998 UTC
# Line 32  CEndOfInterface Line 32  CEndOfInterface
32    
33  C     == Local variables ==  C     == Local variables ==
34        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
35          INTEGER                  I,J,K
36    
       _BARRIER  
37    
38          _BARRIER
39        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
40        WRITE(msgBuf,100) '// '  
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)  
41        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
42       &'// ======================================================='       &'// ======================================================='
43        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
# Line 47  C     == Local variables == Line 47  C     == Local variables ==
47       &'// ======================================================='       &'// ======================================================='
48        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
49       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
50    
51          CALL WRITE_1D_R8( tRef, Nz, INDEX_K,'tRef =',
52         &'   /* Reference temperature profile ( oC or oK ) */')
53          CALL WRITE_1D_R8( viscAh, 1, INDEX_NONE,'viscAh =',
54         &'   /* Lateral eddy viscosity ( m^2/s ) */')
55          CALL WRITE_1D_R8( viscAz, 1, INDEX_NONE,'viscAz =',
56         &'   /* Vertical eddy viscosity ( m^2/s ) */')
57          CALL WRITE_1D_R8( diffKhT, 1, INDEX_NONE,'diffKhT =',
58         &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')
59          CALL WRITE_1D_R8( diffKzT, 1, INDEX_NONE,'diffKzT =',
60         &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')
61          CALL WRITE_1D_R8( diffK4T, 1, INDEX_NONE,'diffK4T =',
62         &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')
63          CALL WRITE_1D_R8( diffKhS, 1, INDEX_NONE,'diffKhS =',
64         &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')
65          CALL WRITE_1D_R8( diffKzS, 1, INDEX_NONE,'diffKzS =',
66         &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
67          CALL WRITE_1D_R8( diffK4S, 1, INDEX_NONE,'diffK4S =',
68         &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')
69    
70    
71        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
72        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
73       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
       _END_MASTER(myThid)  
74    
75          _END_MASTER(myThid)
76        _BARRIER        _BARRIER
77    
78    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22