Changeset 110 for trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

Timestamp:

05/24/17 17:46:02 (7 years ago)

Author:

aquiquet

Message:

Implementation of Schoof4Schoof parametrisation instead of Tsai4Schoof. Detection of floating points stuck inside grounded points (marais). Islands and marais are discarded for Schoof computation. flottab reverted to determin_tache and front (icebergs have to be put in calving for mass conservation).

File:

• trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (2 diffs)

trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -908 +908 @@
                    tab(:,:) = tot_water(:,:)
                 endif
-                if (itab.eq.59) then 
+                if (itab.eq.59) then
                    tab(:,:) = gr_line_schoof(:,:)
                 endif 
@@ -968 +968 @@
                             if (ilemy(i,j)) then
                                tab(i,j)=2
+                            else if (fleuvemy(i,j)) then
+                               tab(i,j)=5        ! actual grounded streams
                             else
                                tab(i,j)=1