Ignore:
Timestamp:
2018-04-27T14:30:02+02:00 (3 years ago)
Author:
mathiot
Message:

Add option to detect and remove subglacial lake (do not affect closed sea option)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r9342 r9513  
    5050   PUBLIC   dom_zgr        ! called by dom_init.F90 
    5151 
     52   ! remove subglacial lake under the ice sheet. 
     53   LOGICAL , PUBLIC  :: ln_isfsubgl 
     54   REAL(wp), PUBLIC  :: rn_isfsubgllon, rn_isfsubgllat 
    5255   !                              !!* Namelist namzgr_sco * 
    5356   LOGICAL  ::   ln_s_sh94         ! use hybrid s-sig Song and Haidvogel 1994 stretching function fssig1 (ln_sco=T) 
     
    12931296      ! NAMELIST 
    12941297      INTEGER  ::   ios 
    1295       INTEGER  :: nn_kisfmax    = 999.  
    1296       REAL(wp) :: rn_isfdep_min = 10.0_wp ! ice shelf minimal thickness  
     1298      INTEGER  :: nn_kisfmax    = 999.                               
     1299      REAL(wp) :: rn_isfdep_min = 10.0_wp                           ! ice shelf minimal thickness  
    12971300      REAL(wp) :: rn_isfhw_deep = 1.e-3 , rn_isfhw_shallow = 1.0e-3 ! threshold to define grounding line in deep/shallow water 
    1298       REAL(wp) :: rn_isfshallow = 0.0_wp  ! threshold to define shallow ice shelf cavity 
    1299       REAL(wp) :: rn_zisfmax    = 6000.0_wp ! maximun meter of ice we are allowed to dig to assure connectivity 
    1300       LOGICAL  :: ln_isfcheminey= .FALSE. , ln_isfconnect= .FALSE. , ln_isfchannel= .FALSE. !  remove cheminey, assure connectivity 
     1301      REAL(wp) :: rn_isfshallow = 0.0_wp                            ! threshold to define shallow ice shelf cavity 
     1302      REAL(wp) :: rn_zisfmax    = 6000.0_wp                         ! maximun meter of ice we are allowed to dig to assure connectivity 
     1303      LOGICAL  :: ln_isfcheminey= .FALSE. , ln_isfconnect= .FALSE. , ln_isfchannel= .FALSE. !  remove cheminey, assure connectivity, remove channel in water column (on z space not level space) 
    13011304      !!--------------------------------------------------------------------- 
    13021305      NAMELIST/namzgr_isf/nn_kisfmax, rn_zisfmax, & 
    13031306              &           rn_isfdep_min, rn_isfhw_deep, rn_isfhw_shallow, rn_isfshallow, & 
    1304               &           ln_isfcheminey, ln_isfconnect, ln_isfchannel 
     1307              &           ln_isfcheminey, ln_isfconnect, ln_isfchannel, ln_isfsubgl, rn_isfsubgllon, rn_isfsubgllat 
    13051308      ! 
    13061309      IF( nn_timing == 1 )  CALL timing_start('zgr_isf') 
Note: See TracChangeset for help on using the changeset viewer.