Changeset 434 for branches

Timestamp:

06/22/23 16:57:20 (12 months ago)

Author:

dumas

Message:

Remove not used Delta_H and i_delta_H variables from module3D_phy

File:

• branches/GRISLIv3/SOURCES/3D-physique-gen_mod.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/3D-physique-gen_mod.f90

@@ -265 +265 @@
   real,dimension(nx,ny)    :: Hp           !< H value if prescribed
   real,dimension(nx,ny)    :: Hp0          !< H value if prescribed (reference value)
-  real,dimension(nx,ny)    :: Delta_H      !< Delta_H value if prescribed
-  integer,dimension(nx,ny) :: i_delta_H    !< 1 if Delta_H is prescribed on this node, else 0
+!  real,dimension(nx,ny)    :: Delta_H      !< Delta_H value if prescribed
+!  integer,dimension(nx,ny) :: i_delta_H    !< 1 if Delta_H is prescribed on this node, else 0
   integer,dimension(nx,ny) :: i_Hp         !< 1 if H is prescribed on this node, else 0
   integer,dimension(nx,ny) :: i_Hp0        !< i_hp mask reference value does not change with time