Changeset 1026 for codes/icosagcm/devel/src/initial/etat0_heldsz.f90

Timestamp:

05/18/20 14:08:19 (4 years ago)

Author:

dubos

Message:

devel : towards conformity to F2008 standard

File:

• codes/icosagcm/devel/src/initial/etat0_heldsz.f90 (modified) (1 diff)

codes/icosagcm/devel/src/initial/etat0_heldsz.f90

@@ -8 +8 @@
   TYPE(t_field),POINTER :: f_theta(:)
 
-  REAL(rstd),ALLOCATABLE,SAVE :: knewt_t(:),kfrict(:)
+  REAL(rstd),ALLOCATABLE :: knewt_t(:),kfrict(:)
 !$OMP THREADPRIVATE(knewt_t,kfrict)
-  LOGICAL, SAVE :: done=.FALSE.
+  LOGICAL :: done=.FALSE.
 !$OMP THREADPRIVATE(done)
 
-  REAL(rstd),SAVE :: p0,teta0,ttp,delt_y,delt_z,eps
+  REAL(rstd) :: p0,teta0,ttp,delt_y,delt_z,eps
 !$OMP THREADPRIVATE(p0,teta0,ttp,delt_y,delt_z,eps)
 
-  REAL(rstd),SAVE :: knewt_g, k_f,k_c_a,k_c_s
+  REAL(rstd) :: knewt_g, k_f,k_c_a,k_c_s
 !$OMP THREADPRIVATE(knewt_g, k_f,k_c_a,k_c_s)