95 |
&' /* Reference salinity profile ( ppt ) */') |
&' /* Reference salinity profile ( ppt ) */') |
96 |
CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =', |
CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =', |
97 |
&' /* Lateral eddy viscosity ( m^2/s ) */') |
&' /* Lateral eddy viscosity ( m^2/s ) */') |
98 |
|
IF ( viscAhD.NE.viscAh ) |
99 |
|
& CALL WRITE_0D_R8( viscAhD, INDEX_NONE,'viscAhD =', |
100 |
|
& ' /* Lateral eddy viscosity (Divergence)( m^2/s ) */') |
101 |
|
IF ( viscAhZ.NE.viscAh ) |
102 |
|
& CALL WRITE_0D_R8( viscAhZ, INDEX_NONE,'viscAhZ =', |
103 |
|
& ' /* Lateral eddy viscosity (Vorticity) ( m^2/s ) */') |
104 |
CALL WRITE_0D_R8( viscAhMax, INDEX_NONE,'viscAhMax =', |
CALL WRITE_0D_R8( viscAhMax, INDEX_NONE,'viscAhMax =', |
105 |
&' /* Maximum lateral eddy viscosity ( m^2/s ) */') |
&' /* Maximum lateral eddy viscosity ( m^2/s ) */') |
106 |
CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =', |
CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =', |
109 |
&' /* Leith harmonic viscosity factor ( non-dom. ) */') |
&' /* Leith harmonic viscosity factor ( non-dom. ) */') |
110 |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
111 |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
&' /* Lateral biharmonic viscosity ( m^4/s ) */') |
112 |
|
IF ( viscA4D.NE.viscA4 ) |
113 |
|
& CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4D =', |
114 |
|
& ' /* Lateral biharmonic viscosity (Divergence)( m^4/s ) */') |
115 |
|
IF ( viscA4Z.NE.viscA4 ) |
116 |
|
& CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4Z =', |
117 |
|
& ' /* Lateral biharmonic viscosity (Vorticity) ( m^4/s ) */') |
118 |
CALL WRITE_0D_R8( viscA4Max, INDEX_NONE,'viscA4Max =', |
CALL WRITE_0D_R8( viscA4Max, INDEX_NONE,'viscA4Max =', |
119 |
&' /* Maximum biharmonic viscosity ( m^2/s ) */') |
&' /* Maximum biharmonic viscosity ( m^2/s ) */') |
120 |
CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =', |
CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =', |