Changeset 470 for branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

Timestamp:

01/31/24 09:13:31 (5 months ago)

Author:

aquiquet

Message:

Cleaning branch: some cleaning in flottab - ilemx,ilemy removed

File:

• branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (3 diffs)

branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -669 +669 @@
                             taushelf,epsxx,epsyy,epsxy,eps,abar,pvi,pvm,betamx,betamy,beta_centre, &
                             ablbord_dtt,ice,front,gr_line_schoof,hwater,hdotwater,bsoc,bm,    &
-                            flot_marais,neffmx,neffmy,gzmx,gzmy,ilemx,ilemy,   &
+                            flot_marais,neffmx,neffmy,gzmx,gzmy,   &
                             fleuvemx,fleuvemy,flotmx,flotmy,hmx,hmy,sux,suy, &
                             tpmp,ux,uy,uzr,debug_3d,xlong,ylat,time,dtt
@@ -970 +970 @@
                 end if
                
-                if (itab.eq.70) then  ! posx : grounded -> 0, , grzone ->1  ilemx->2   flot->3
+                if (itab.eq.70) then  ! posx : grounded -> 0, , grzone ->1    flot->3
                    do j=1,ny
                       do i=1,nx  
                          if (gzmx(i,j)) then     
-                            if (ilemx(i,j)) then     ! ile
-                               tab(i,j)=2
-                            else if (fleuvemx(i,j)) then
+                            if (fleuvemx(i,j)) then
                                tab(i,j)=5        ! actual grounded streams
                             else                  
@@ -989 +987 @@
                          else                     ! pose
                             tab(i,j)=0
-                         endif
+                         enf
                       end do
                    end do
                 end if
-                if (itab.eq.71) then   ! posy : grounded -> 0, , grzone ->1  ilemx->2   flot->3
+                if (itab.eq.71) then   ! posy : grounded -> 0, , grzone ->1   flot->3
                    do j=1,ny
                       do i=1,nx  
                          if (gzmy(i,j)) then 
-                            if (ilemy(i,j)) then
-                               tab(i,j)=2
-                            else if (fleuvemy(i,j)) then
+                            if (fleuvemy(i,j)) then
                                tab(i,j)=5        ! actual grounded streams
                             else