Changeset 414 for branches/GRISLIv3

Timestamp:

04/07/23 15:26:01 (15 months ago)

Author:

dumas

Message:

use only in subroutine lineartemp

File:

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

branches/GRISLIv3/SOURCES/lineartemp-0.2.f90

@@ -1 @@
-!> \file lineartemp-0.2.F
+!> \file lineartemp-0.2.f90
 !!  Linear temperature in ice
 !<
@@ -5 +5 @@
 !> SUBROUTINE: LINEARTEMP
 !! Calculate the linear temperature in ice
-!! \author  ...
-!! \date ...
-!! @note Used modules:
-!! @note    - use module3D_phy
-!! @note    - use icetemp_declar
-!<
 
-subroutine LINEARTEMP
+subroutine lineartemp
 
   !     *********************************************************
@@ -18 +12 @@
   !     *********************************************************
 
-  USE module3D_phy
-  USE icetemp_declar
+  use geography, only:nx,ny,nz,nzm
+  use module3D_phy, only:H1,H,B1,B,TG,bmelt,T,TS,tpmp,ghf
+  use icetemp_declar, only:Dzm,Cm
+  
   implicit none
 
-  !     character(len=80) :: filin
-
-  !     char SccsId[] = "@(#)lineartemp.f       1.3   date delta= 01/06/95    heure delta= 14:56:20    date lecture= 01/09/95"
-
-
-  !     filin='templin.res'
-
-
-  !     open(num_templin,file=filin)
-  !     write(num_templin,*) 'temperature initiale lineaire'
-
+  integer :: i,j,k
 
   do I=1,NX
@@ -62 +48 @@
      end do
   end do
-  close(num_templin) 
 
 
-end subroutine LINEARTEMP
+end subroutine lineartemp