Changeset 587 for codes/icosagcm/devel/src/diagnostics/wind.F90

Timestamp:

10/16/17 15:22:59 (7 years ago)

Author:

dubos

Message:

devel : multiplicative factor in flux/wind reconstructions

File:

• codes/icosagcm/devel/src/diagnostics/wind.F90 (modified) (1 diff)

codes/icosagcm/devel/src/diagnostics/wind.F90

@@ -53 +53 @@
   REAL(rstd) :: ucenter(iim*jjm,llm,3)
   INTEGER :: ij,l
-  REAL(rstd) :: ue_le, cx,cy,cz, ux,uy,uz
+  REAL(rstd), PARAMETER :: scale=1.
+  REAL(rstd) :: fac, ue_le, cx,cy,cz, ux,uy,uz
 #include "../kernels/wind_centered.k90"
  END SUBROUTINE compute_wind_centered
  
-  SUBROUTINE compute_flux_centered(ue,ucenter)
+  SUBROUTINE compute_flux_centered(scale,ue,ucenter)
+  REAL(rstd), INTENT(IN) :: scale
   REAL(rstd) :: ue(3*iim*jjm,llm)
   REAL(rstd) :: ucenter(iim*jjm,llm,3)
   INTEGER :: ij,l
-  REAL(rstd) :: ue_le, cx,cy,cz, ux,uy,uz
+  REAL(rstd) :: fac, ue_le, cx,cy,cz, ux,uy,uz
 #include "../kernels/flux_centered.k90"
   END SUBROUTINE compute_flux_centered