113 |
& CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4D =', |
& CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4D =', |
114 |
& ' /* Lateral biharmonic viscosity (Divergence)( m^4/s ) */') |
& ' /* Lateral biharmonic viscosity (Divergence)( m^4/s ) */') |
115 |
IF ( viscA4Z.NE.viscA4 ) |
IF ( viscA4Z.NE.viscA4 ) |
116 |
& CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4Z =', |
& CALL WRITE_0D_R8( viscA4Z, INDEX_NONE,'viscA4Z =', |
117 |
& ' /* Lateral biharmonic viscosity (Vorticity) ( m^4/s ) */') |
& ' /* 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 ) */') |