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

Timestamp:

01/26/24 16:49:00 (5 months ago)

Author:

aquiquet

Message:

Cleaning branch: continuing module3D cleaning

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

@@ -665 +665 @@
     use geography,    only: nx,ny,nz,nzm,dx,dy
     use runparam,     only: itracebug,xmin,ymin,dirsource
-    use module3d_phy, only: s,s0,h,h0,b,socle_cry,sealevel,mk,mk_init,hdot,dhdt,tann,tjuly,t,tpmp, &
+    use module3d_phy, only: s,s0,h,h0,b,sealevel,mk,mk_init,hdot,dhdt,tann,tjuly,t,tpmp, &
                             acc,abl,ghf,phid,bmelt,uxbar,uybar,ux,uy,frotmx,frotmy,tobmx,tobmy,    &
                             taushelf,epsxx,epsyy,epsxy,eps,abar,pvi,pvm,betamx,betamy,beta_centre, &
-                            ablbord_dtt,ice,front,gr_line_schoof,hwater,hdotwater,kond,bsoc,bm,    &
-                            pgx,pgy,phiwx,phiwy,flot_marais,neffmx,neffmy,gzmx,gzmy,ilemx,ilemy,   &
-                            fleuvemx,fleuvemy,flotmx,flotmy,hmx,hmy,frontfacex,frontfacey,sux,suy, &
+                            ablbord_dtt,ice,front,gr_line_schoof,hwater,hdotwater,bsoc,bm,    &
+                            flot_marais,neffmx,neffmy,gzmx,gzmy,ilemx,ilemy,   &
+                            fleuvemx,fleuvemy,flotmx,flotmy,hmx,hmy,sux,suy, &
                             tpmp,ux,uy,uzr,debug_3d,xlong,ylat,time,dtt
+    use eau_basale, only: kond,pgx,pgy,phiwx,phiwy
     use tracer_vars,  only: xdep_out,ydep_out,tdep_out
     use bilan_eau_mod,only: tot_water,calv_dtt
@@ -788 +789 @@
                    tab(:,:) = b(:,:)
                 end if
-                if (itab.eq.8) then
-                   tab(:,:) = socle_cry(:,:)
-                end if
+                !if (itab.eq.8) then
+                !   tab(:,:) = socle_cry(:,:)  !no longer computed
+                !end if
                 if (itab.eq.9) then
                    tab(:,:) = mk_init(:,:)
@@ -1015 +1016 @@
                    end do
                 end if
-                if (itab.eq.72) then 
-                   tab(:,:) = frontfacex(:,:)
-                end if
-                if (itab.eq.73) then 
-                   tab(:,:) = frontfacey(:,:)
-                end if
+                !if (itab.eq.72) then !no longer computed
+                !   tab(:,:) = frontfacex(:,:)
+                !end if
+                !if (itab.eq.73) then 
+                !   tab(:,:) = frontfacey(:,:)
+                !end if
 
                 !SORTIE 3D