Changeset 146 for branches/iLoveclim/SOURCES/prescribe-H-i2s_mod.f90

Timestamp:

10/20/17 09:31:39 (7 years ago)

Author:

aquiquet

Message:

Grisli-iLoveclim branch: merged to trunk at revision 145

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/prescribe-H-i2s_mod.f90 (modified) (1 diff)

branches/iLoveclim/SOURCES/prescribe-H-i2s_mod.f90

@@ -127 +127 @@
        hp(:,:)   = Hp0(:,:)
     end where
-if (itracebug.eq.1)  call tracebug(' fin prescribe_present_H_gl ')
+if (itracebug.eq.1)  call tracebug(' fin prescribe_present_H_gl')
 
 
   end subroutine prescribe_present_H_gl
+  
+   !______________________________________________________________________________________
+  !>  function prescribe_present_H_gl_bmelt
+  !! calculate the initial grounding line position
+  !! only grounding line points are prescribed to present value
+  !! @return i_hp(:,:) and hp(:,:)
+
+  subroutine prescribe_present_H_gl_bmelt
+
+    implicit none
+
+    if (itracebug.eq.1)  call tracebug(' Entree dans routine  prescribe_present_H_gl_bmelt')
+
+!    where (MK_gl0(:,:) .eq. 1) ! grounding line only !cdc pour calcule fonte basale
+!       i_hp(:,:) = 1                                 ! thickness prescribed to present value
+!       hp(:,:)   = Hp0(:,:)
+!    end where
+    i_hp(:,:) = 0
+if (itracebug.eq.1)  call tracebug(' fin prescribe_present_H_gl_bmelt')
+
+
+  end subroutine prescribe_present_H_gl_bmelt
 
   !______________________________________________________________________________________