Changeset 467 for branches/GRISLIv3/SOURCES/lineartemp-0.2.f90

Timestamp:

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

Author:

aquiquet

Message:

Cleaning branch: continuing module3D cleaning

File:

• branches/GRISLIv3/SOURCES/lineartemp-0.2.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/lineartemp-0.2.f90

@@ -13 +13 @@
 
   use geography, only:nx,ny,nz,nzm
-  use module3D_phy, only:H1,H,B1,B,TG,bmelt,T,TS,tpmp,ghf
+  use module3D_phy, only:H,B,bmelt,T,TS,tpmp,ghf
   use icetemp_declar, only:Dzm,Cm
   
@@ -19 +19 @@
 
   integer :: i,j,k
+  real,dimension(nx,ny) :: TG           !< degrees above melting point at the base
 
   do I=1,NX
      do J=1,NY 
-        H1(I,J)=H(I,J) 
-        B1(I,J)=B(I,J) 
         TG(I,J)=0.
         BMELT(I,J)=0.