Changeset 270 for trunk


Ignore:
Timestamp:
07/08/19 16:35:30 (5 years ago)
Author:
dumas
Message:

Calving fracture ISMIP : fracture for every point with mask_fracture_time > 0.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/calving_frange_ISMIP_fracture.f90

    r268 r270  
    498498 
    499499    ! on met en calving les points detectes iceberg et les points mask_fracture : 
    500     where ((iceberg(:,:).and.(H(:,:).gt.0.)).or.((mask_fracture_time(:,:).eq.1).and.(H(:,:).gt.0.).and.flot(:,:))) 
     500    where ((iceberg(:,:).and.(H(:,:).gt.0.)).or.((mask_fracture_time(:,:).gt.0.).and.(H(:,:).gt.0.).and.flot(:,:))) 
    501501        calv(:,:)=-h(:,:) 
    502502        ice(:,:)=0 
Note: See TracChangeset for help on using the changeset viewer.