Changeset 276 for trunk

Timestamp:

07/24/19 17:26:46 (5 years ago)

Author:

dumas

Message:

Update Bmelt module for ISMIP

File:

• trunk/SOURCES/bmelt-ismip6-param_mod.f90 (modified) (2 diffs)

trunk/SOURCES/bmelt-ismip6-param_mod.f90

@@ -208 +208 @@
           if (flot(i,j)) then
 
-             if (H(i,j).gt.200.d0) then !limit on the critical thickness of ice to define the ice shelf mask
+             if (H(i,j).gt.0.d0) then !limit on the critical thickness of ice to define the ice shelf mask
                                         ! we should use Hcalv
 
@@ -256 +256 @@
        do i=1,nx
           if ( TF_draft(i,j) .gt. -5.d0 ) then !floating points
-             if ((mean_TF(basinNumber(i,j)+1).gt.-9999.d0).and.(H(i,j).gt.200.)) then !should use Hcoup
+             if ((mean_TF(basinNumber(i,j)+1).gt.-9999.d0).and.(H(i,j).gt.0.)) then !should use Hcoup
                 bmelt(i,j) = gamma0 * cste * ( TF_draft(i,j) + deltaT_basin(i,j) )* abs( mean_TF(basinNumber(i,j)+1) + deltaT_basin(i,j) ) 
                 !if (bmelt(i,j).lt.-0.2) then