Changeset 9342


Ignore:
Timestamp:
2018-02-21T12:16:04+01:00 (2 years ago)
Author:
mathiot
Message:

condition to detect grounding line for deep isf overwrite in some case the one for shallow isf

Location:
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/CONFIG/SHARED/namelist_ref

    r9316 r9342  
    121121!----------------------------------------------------------------------- 
    122122   rn_isfdep_min    = 10.         ! minimum isf draft tickness (if lower, isf draft set to this value) 
    123    rn_isfhw_deep    = 1.e-3       ! minimum water column thickness to declare a column 'wet' 
     123   rn_isfhw_deep    = 1.e-3       ! minimum water column thickness to declare a column 'wet' in case of deep isf 
    124124   rn_isfshallow    = 0.0         ! bathy between surface and rn_isfshallow are declared shallow 
    125125   rn_isfhw_shallow = 1.e-3       ! minimum water column thickness to declare a column 'wet' in case of shallow isf 
  • branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r9316 r9342  
    395395      IF(lwp) WRITE(numout,*) '    zgr_bat : defines level and meter bathymetry' 
    396396      IF(lwp) WRITE(numout,*) '    ~~~~~~~' 
     397      ! 
     398      ! (ISF) initialisation ice shelf draft and top level 
     399      risfdep(:,:)=0._wp 
     400      misfdep(:,:)=1 
    397401      !                                               ! ================== !  
    398402      IF( ntopo == 0 .OR. ntopo == -1 ) THEN          !   defined by hand  ! 
     
    484488            END DO 
    485489         END DO 
    486          risfdep(:,:)=0.e0 
    487          misfdep(:,:)=1 
    488490         ! 
    489491         DEALLOCATE( idta, zdta ) 
     
    535537            CALL iom_close( inum ) 
    536538            !                                                 
    537             risfdep(:,:)=0._wp          
    538             misfdep(:,:)=1              
    539539            IF ( ln_isfcav ) THEN 
    540540               CALL iom_open ( 'isf_draft_meter.nc', inum )  
     
    13371337      !   
    13381338      ! 1.1 ground ice shelf if water column less than X m 
    1339       WHERE( bathy(:,:) - risfdep(:,:) < rn_isfhw_deep )  
     1339      WHERE( bathy(:,:) - risfdep(:,:) < rn_isfhw_deep .AND. (bathy(:,:) > rn_isfshallow) )  
    13401340         risfdep(:,:)=0.0 ; misfdep(:,:) = 1 
    13411341         bathy  (:,:)=0.0 ; mbathy (:,:) = 0 
     
    13431343      ! 
    13441344      ! 1.2 ensure a minimum thickness for iceshelf cavity in shallow water 
    1345       WHERE( (bathy(:,:) < rn_isfshallow) .AND. (bathy(:,:) - risfdep(:,:) < rn_isfhw_shallow) )  
     1345      WHERE( (bathy(:,:) <= rn_isfshallow) .AND. (bathy(:,:) - risfdep(:,:) < rn_isfhw_shallow) )  
    13461346         risfdep(:,:)=0.0 ; misfdep(:,:) = 1 
    13471347         bathy  (:,:)=0.0 ; mbathy (:,:) = 0 
Note: See TracChangeset for help on using the changeset viewer.