Changeset 824 for codes/icosagcm/devel/src/diagnostics

Timestamp:

04/30/19 16:59:07 (5 years ago)

Author:

dubos

Message:

devel : fix errors caught by F_Front

File:

• codes/icosagcm/devel/src/diagnostics/check_conserve.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/diagnostics/check_conserve.f90

@@ -66 +66 @@
 
     REAL(rstd),POINTER :: p(:,:),rhodz(:,:) 
-    INTEGER :: ind,ierr
+    INTEGER :: ind
     REAL(rstd) :: mtot, angtot, rmsdpdt
     REAL(rstd) :: etot, stot, ang_mass, ang_vel, ang_velp, ang_velm, rmsvtot, ztot
@@ -171 +171 @@
 
     REAL(rstd),POINTER :: p(:,:),rhodz(:,:) 
-    INTEGER::ind,ierr
+    INTEGER::ind
     REAL(rstd) :: mtot, ztot, rmsdpdt, etot,stot,rmsv, ang_mass, ang_vel, ang_velp, ang_velm