Changeset 1999 for LMDZ5/branches/testing/libf/dyn3dmem/call_dissip_mod.F90

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/call_dissip_mod.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/dyn3dmem/call_dissip_mod.F90

@@ -87 +87 @@
   IMPLICIT NONE
     INCLUDE 'comgeom.h'
-    REAL :: ucov_dyn(ijb_u:ije_u,llm)
-    REAL :: vcov_dyn(ijb_v:ije_v,llm)
-    REAL :: teta_dyn(ijb_u:ije_u,llm)
-    REAL :: p_dyn(ijb_u:ije_u,llmp1 )
-    REAL :: pk_dyn(ijb_u:ije_u,llm)
-    REAL :: ps_dyn(ijb_u:ije_u)
+    REAL,INTENT(INOUT) :: ucov_dyn(ijb_u:ije_u,llm) ! covariant zonal wind
+    REAL,INTENT(INOUT) :: vcov_dyn(ijb_v:ije_v,llm) ! covariant meridional wind
+    REAL,INTENT(INOUT) :: teta_dyn(ijb_u:ije_u,llm) ! covariant meridional wind
+    REAL,INTENT(INOUT) :: p_dyn(ijb_u:ije_u,llmp1 ) ! pressure at interlayer
+    REAL,INTENT(INOUT) :: pk_dyn(ijb_u:ije_u,llm) ! Exner at midlayer
+    REAL,INTENT(INOUT) :: ps_dyn(ijb_u:ije_u) ! surface pressure
     REAL :: tppn(iim),tpps(iim)
     REAL :: tpn,tps