Changeset 1999 for LMDZ5/branches/testing/libf/dyn3dmem/dissip_loc.F

Timestamp:

Mar 20, 2014, 10:57:19 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1920:1997 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/dissip_loc.F (modified) (2 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/dissip_loc.F

@@ +1 @@
+!
+! $Id: $
+!
       SUBROUTINE dissip_loc( vcov,ucov,teta,p, dv,du,dh )
 c
       USE parallel_lmdz
       USE write_field_loc
-      USE dissip_mod
+      USE dissip_mod, ONLY: dissip_allocate
       IMPLICIT NONE
 
@@ -35 +38 @@
 c   ----------
 
-      REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm)
-      REAL teta(ijb_u:ije_u,llm)
-      REAL  p( ijb_u:ije_u,llmp1 )
-      REAL dv(ijb_v:ije_v,llm),du(ijb_u:ije_u,llm),dh(ijb_u:ije_u,llm)
+      REAL,INTENT(IN) :: vcov(ijb_v:ije_v,llm) ! covariant meridional wind
+      REAL,INTENT(IN) :: ucov(ijb_u:ije_u,llm) ! covariant zonal wind
+      REAL,INTENT(IN) :: teta(ijb_u:ije_u,llm) ! potential temperature
+      REAL,INTENT(IN) :: p(ijb_u:ije_u,llmp1) ! interlayer pressure
+      ! tendencies (.../s) on covariant winds and potential temperature
+      REAL,INTENT(OUT) :: dv(ijb_v:ije_v,llm)
+      REAL,INTENT(OUT) :: du(ijb_u:ije_u,llm)
+      REAL,INTENT(OUT) :: dh(ijb_u:ije_u,llm)
 
 c   Local: