Changeset 15494 for NEMO/trunk/src/ICE/icedyn_rhg_evp.F90
- Timestamp:
- 2021-11-10T17:06:06+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_rhg_evp.F90
r15385 r15494 828 828 829 829 ! Stress invariants (sigma_I, sigma_II, Coon 1974, Feltham 2008) 830 zsig_I (ji,jj) = zsig1 * 0.5_wp 831 zsig_II(ji,jj) = SQRT ( MAX( 0._wp, zsig2 * zsig2 * 0.25_wp + zsig12 ) ) ! 2nd '' '', aka maximum shear stress830 zsig_I (ji,jj) = zsig1 * 0.5_wp ! 1st stress invariant, aka average normal stress, aka negative pressure 831 zsig_II(ji,jj) = SQRT ( zsig2 * zsig2 * 0.25_wp + zsig12 * zsig12 ) ! 2nd '' '' , aka maximum shear stress 832 832 833 833 END_2D … … 860 860 861 861 ! Stress invariants (sigma_I, sigma_II, Coon 1974, Feltham 2008), T-point 862 zsig_I(ji,jj) = zsig1 * 0.5_wp 863 zsig_II(ji,jj) = SQRT ( MAX( 0._wp, zsig2 * zsig2 * 0.25_wp + zsig12 ) ) ! 2nd '' '', aka maximum shear stress862 zsig_I(ji,jj) = zsig1 * 0.5_wp ! 1st stress invariant, aka average normal stress, aka negative pressure 863 zsig_II(ji,jj) = SQRT ( zsig2 * zsig2 * 0.25_wp + zsig12 * zsig12 ) ! 2nd '' '' , aka maximum shear stress 864 864 865 865 ! Normalized principal stresses (used to display the ellipse)
Note: See TracChangeset
for help on using the changeset viewer.