Changeset 935 for codes/icosagcm/devel/src/dynamics/compute_caldyn_slow_hydro.F90

Timestamp:

07/03/19 17:15:11 (5 years ago)

Author:

dubos

Message:

devel : interfaces for caldyn_fast and caldyn_slow_hydro

File:

• codes/icosagcm/devel/src/dynamics/compute_caldyn_slow_hydro.F90 (modified) (1 diff)

codes/icosagcm/devel/src/dynamics/compute_caldyn_slow_hydro.F90

@@ -73 +73 @@
     LOGICAL, INTENT(IN) :: zero
     REAL(rstd),INTENT(IN)  :: u(3*iim*jjm,llm)    ! prognostic "velocity"
+    REAL(rstd),INTENT(IN)  :: rhodz(iim*jjm,llm)
+    REAL(rstd),INTENT(IN)  :: hv(2*iim*jjm,llm)   ! height/mass averaged to vertices
     REAL(rstd),INTENT(IN)  :: Kv(2*iim*jjm,llm)   ! kinetic energy at vertices
-    REAL(rstd),INTENT(IN)  :: hv(2*iim*jjm,llm)   ! height/mass averaged to vertices
-    REAL(rstd),INTENT(IN)  :: rhodz(iim*jjm,llm)
+    REAL(rstd), INTENT(OUT) :: berni(iim*jjm,llm)  ! Bernoulli function
     REAL(rstd),INTENT(OUT) :: hflux(3*iim*jjm,llm) ! hflux in kg/s
     REAL(rstd),INTENT(INOUT) :: du(3*iim*jjm,llm)
-    
-    REAL(rstd) :: berni(iim*jjm,llm)  ! Bernoulli function
     REAL(rstd) :: berni1(iim*jjm)  ! Bernoulli function
     REAL(rstd) :: uu_right, uu_lup, uu_ldown, ke, uu