Changeset 899 for codes/icosagcm/trunk/src/dissip

Timestamp:

06/13/19 16:45:41 (5 years ago)

Author:

adurocher

Message:

trunk : Fixed GCC warnings

Fixed iso c bindings
fixed warnings with -Wall -Wno-aliasing -Wno-unused -Wno-unused-dummy-argument -Wno-maybe-uninitialized -Wno-tabs warnings
Removed all unused variables (-Wunused-variable)
vector%dot_product is now dot_product_3d to avoid compilation warning "dot_product shadows intrinsic" with GCC

Location:

codes/icosagcm/trunk/src/dissip

Files:

• dissip_gcm.f90 (modified) (2 diffs)
• guided_mod.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/dissip/dissip_gcm.f90

@@ -84 +84 @@
   CHARACTER(len=255)    :: rayleigh_friction_key
   REAL(rstd)            :: mintau
-  INTEGER               :: seed_size
-  INTEGER,ALLOCATABLE   :: seed(:)
   
   ! New variables added for dissipation vertical profile (SF, 19/09/18)
@@ -592 +590 @@
       SUBROUTINE relax(shift_t, shift_u)
         USE dcmip_initial_conditions_test_1_2_3
-        REAL(rstd) :: z, ulon,ulat, lon,lat, & ! input to test2_schaer_mountain
+        REAL(rstd) :: z, ulon,ulat, & ! input to test2_schaer_mountain
              p,hyam,hybm,w,t,phis,ps,rho,q, &   ! unused input/output to test2_schaer_mountain
              fz, u3d(3), uref

codes/icosagcm/trunk/src/dissip/guided_mod.f90

@@ -35 +35 @@
     REAL(rstd), INTENT(IN):: tt
     TYPE(t_field),POINTER :: f_ps(:)
-    TYPE(t_field),POINTER :: f_phis(:)
     TYPE(t_field),POINTER :: f_theta_rhodz(:)
     TYPE(t_field),POINTER :: f_u(:)