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

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/physics

Files:

• physics.f90 (modified) (3 diffs)
• physics_interface.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/physics/physics.f90

@@ -11 +11 @@
 
   INTEGER :: phys_type
-  TYPE(t_field),POINTER,SAVE :: f_extra_physics_2D(:), f_extra_physics_3D(:)
   TYPE(t_field),POINTER,SAVE :: f_dulon(:), f_dulat(:)
   TYPE(t_field),POINTER,SAVE :: f_ulon(:), f_ulat(:)
@@ -162 +161 @@
     TYPE(t_field),POINTER :: f_wflux(:)
     TYPE(t_field),POINTER :: f_q(:)
-    
+
     LOGICAL,SAVE :: first=.TRUE.
-!$OMP THREADPRIVATE(first)
-    
-    LOGICAL:: firstcall,lastcall
-    INTEGER :: ind
-    TYPE(t_physics_inout) :: args
-
+    !$OMP THREADPRIVATE(first)
     IF (first) THEN
       CALL init_message(f_theta_rhodz, req_i0, req_theta0)
@@ -176 +170 @@
       first=.FALSE.
     ENDIF
-
-
+    
     IF (phys_external) THEN
     

codes/icosagcm/trunk/src/physics/physics_interface.f90

@@ -195 +195 @@
     USE icosa
     IMPLICIT NONE
-    INTEGER :: ind, offset
+    INTEGER :: ind
     DO ind=1,ndomain
        IF (.NOT. assigned_domain(ind)) CYCLE