Changeset 8506 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerdgrft.F90

Timestamp:

2017-09-07T12:28:42+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part5 - continue changing init routines

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerdgrft.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerdgrft.F90

@@ -36 +36 @@
    PUBLIC   ice_rdgrft_alloc         ! called by ice_init 
 
-   !-----------------------------------------------------------------------
    ! Variables shared among ridging subroutines
-   !-----------------------------------------------------------------------
    REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   asum     ! sum of total ice and open water area
    REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   aksum    ! ratio of area removed to area ridged
@@ -51 +49 @@
    REAL(wp), PARAMETER ::   krdgmin = 1.1_wp    ! min ridge thickness multiplier
    REAL(wp), PARAMETER ::   kraft   = 0.5_wp    ! rafting multipliyer
-   !
    REAL(wp)            ::   zdrho               ! 
    !
+   ! ** namelist (namiceitdme) **
+   REAL(wp) ::   rn_cs            !: fraction of shearing energy contributing to ridging            
+   INTEGER  ::   nn_partfun       !: participation function: =0 Thorndike et al. (1975), =1 Lipscomb et al. (2007)
+   REAL(wp) ::   rn_gstar         !: fractional area of young ice contributing to ridging
+   REAL(wp) ::   rn_astar         !: equivalent of G* for an exponential participation function
+   LOGICAL  ::   ln_ridging       !: ridging of ice or not                        
+   REAL(wp) ::   rn_hstar         !: thickness that determines the maximal thickness of ridged ice
+   REAL(wp) ::   rn_por_rdg       !: initial porosity of ridges (0.3 regular value)
+   REAL(wp) ::   rn_fsnowrdg      !: fractional snow loss to the ocean during ridging
+   REAL(wp) ::   rn_fpondrdg      !: fractional melt pond loss to the ocean during ridging
+   LOGICAL  ::   ln_rafting       !: rafting of ice or not                        
+   REAL(wp) ::   rn_hraft         !: threshold thickness (m) for rafting / ridging 
+   REAL(wp) ::   rn_craft         !: coefficient for smoothness of the hyperbolic tangent in rafting
+   REAL(wp) ::   rn_fsnowrft      !: fractional snow loss to the ocean during ridging
+   REAL(wp) ::   rn_fpondrft      !: fractional snow loss to the ocean during rafting
    !
    !!----------------------------------------------------------------------