Changeset 467 for branches/GRISLIv3/SOURCES/Temperature-routines/icetemp_mod.f90

Timestamp:

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

Author:

aquiquet

Message:

Cleaning branch: continuing module3D cleaning

File:

• branches/GRISLIv3/SOURCES/Temperature-routines/icetemp_mod.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/Temperature-routines/icetemp_mod.f90

@@ -70 +70 @@
   subroutine icetemp
     !$ use OMP_LIB 
-    use module3D_phy, only: uxbar,uybar,dtt,nzm,time,ux,uy,uzr,ts,h,h1,b,b1, &
+    use module3D_phy, only: uxbar,uybar,dtt,nzm,time,ux,uy,uzr,ts,h,b, &
                              ghf,t,tpmp,phid,flot,ibase,debug_3D,tbdot
     use runparam, only: itracebug,num_tracebug
@@ -223 +223 @@
     Do J=1,Ny
        Do I=1,Nx
-          H1(I,J)=H(I,J)
-          B1(I,J)=B(I,J)
           Tpmp(I,J,1)=0.
        End Do