- Timestamp:
- 2018-11-15T10:46:57+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/icedyn_rdgrft.F90
r9935 r10312 39 39 40 40 ! Variables shared among ridging subroutines 41 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: closing_net ! net rate at which area is removed (1/s)42 ! ! (ridging ice area - area of new ridges) / dt43 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: opning! rate of opening due to divergence/shear44 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: closing_gross! rate at which area removed, not counting area of new ridges45 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: apartf! participation function; fraction of ridging/closing associated w/ category n46 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hrmin! minimum ridge thickness47 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hrmax! maximum ridge thickness48 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hraft! thickness of rafted ice49 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hi_hrdg! thickness of ridging ice / mean ridge thickness50 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: aridge! participating ice ridging51 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: araft! participating ice rafting41 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: closing_net ! net rate at which area is removed (1/s) 42 ! ! (ridging ice area - area of new ridges) / dt 43 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: opning ! rate of opening due to divergence/shear 44 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) :: closing_gross ! rate at which area removed, not counting area of new ridges 45 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: apartf ! participation function; fraction of ridging/closing associated w/ category n 46 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hrmin ! minimum ridge thickness 47 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hrmax ! maximum ridge thickness 48 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hraft ! thickness of rafted ice 49 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: hi_hrdg ! thickness of ridging ice / mean ridge thickness 50 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: aridge ! participating ice ridging 51 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: araft ! participating ice rafting 52 52 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: ze_i_2d 53 53 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: ze_s_2d … … 59 59 LOGICAL :: ln_str_H79 ! ice strength parameterization (Hibler79) 60 60 REAL(wp) :: rn_pstar ! determines ice strength, Hibler JPO79 61 REAL(wp) :: rn_crhg ! determines changes in ice strength62 61 REAL(wp) :: rn_csrdg ! fraction of shearing energy contributing to ridging 63 62 LOGICAL :: ln_partf_lin ! participation function linear (Thorndike et al. (1975))
Note: See TracChangeset
for help on using the changeset viewer.