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) |
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 |
|
|