Ignore:
Timestamp:
2017-09-07T12:28:42+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - continue changing init routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerdgrft.F90

    r8500 r8506  
    3636   PUBLIC   ice_rdgrft_alloc         ! called by ice_init  
    3737 
    38    !----------------------------------------------------------------------- 
    3938   ! Variables shared among ridging subroutines 
    40    !----------------------------------------------------------------------- 
    4139   REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   asum     ! sum of total ice and open water area 
    4240   REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   aksum    ! ratio of area removed to area ridged 
     
    5149   REAL(wp), PARAMETER ::   krdgmin = 1.1_wp    ! min ridge thickness multiplier 
    5250   REAL(wp), PARAMETER ::   kraft   = 0.5_wp    ! rafting multipliyer 
    53    ! 
    5451   REAL(wp)            ::   zdrho               !  
    5552   ! 
     53   ! ** namelist (namiceitdme) ** 
     54   REAL(wp) ::   rn_cs            !: fraction of shearing energy contributing to ridging             
     55   INTEGER  ::   nn_partfun       !: participation function: =0 Thorndike et al. (1975), =1 Lipscomb et al. (2007) 
     56   REAL(wp) ::   rn_gstar         !: fractional area of young ice contributing to ridging 
     57   REAL(wp) ::   rn_astar         !: equivalent of G* for an exponential participation function 
     58   LOGICAL  ::   ln_ridging       !: ridging of ice or not                         
     59   REAL(wp) ::   rn_hstar         !: thickness that determines the maximal thickness of ridged ice 
     60   REAL(wp) ::   rn_por_rdg       !: initial porosity of ridges (0.3 regular value) 
     61   REAL(wp) ::   rn_fsnowrdg      !: fractional snow loss to the ocean during ridging 
     62   REAL(wp) ::   rn_fpondrdg      !: fractional melt pond loss to the ocean during ridging 
     63   LOGICAL  ::   ln_rafting       !: rafting of ice or not                         
     64   REAL(wp) ::   rn_hraft         !: threshold thickness (m) for rafting / ridging  
     65   REAL(wp) ::   rn_craft         !: coefficient for smoothness of the hyperbolic tangent in rafting 
     66   REAL(wp) ::   rn_fsnowrft      !: fractional snow loss to the ocean during ridging 
     67   REAL(wp) ::   rn_fpondrft      !: fractional snow loss to the ocean during rafting 
    5668   ! 
    5769   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.