Changeset 146 for branches/iLoveclim/SOURCES/main3D-0.4-40km.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/main3D-0.4-40km.f90 (modified) (2 diffs)

branches/iLoveclim/SOURCES/main3D-0.4-40km.f90

@@ -237 +237 @@
 
 
-
-  if (iter_beta.eq.0) then
-
-     if (itracebug.eq.1)  call tracebug(' Avant appel routine icethick3')
-     call icethick3
-     debug_3D(:,:,88) = S(:,:)
-     if (itracebug.eq.1)  call tracebug(' Apres appel routine icethick3')
-  end if
+!cdc supprime pour initialisation propre
+!~   if (iter_beta.eq.0) then
+
+!~      if (itracebug.eq.1)  call tracebug(' Avant appel routine icethick3')
+!~      call icethick3
+!~      debug_3D(:,:,88) = S(:,:)
+!~      if (itracebug.eq.1)  call tracebug(' Apres appel routine icethick3')
+!~   end if
 
 
@@ -305 +305 @@
            end do
 
-
            call Neffect()
            call flottab()
-
-
+           call calving
+           call ablation_bord
+           call flottab
            call Neffect()
-
-
            call diffusiv()
            call SIA_velocities()
-
         endif