Changeset 1999 for LMDZ5/branches/testing/libf/dyn3dmem/addfi_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/addfi_loc.F (modified) (2 diffs)

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

@@ -55 +55 @@
 c    -----------
 c
-      REAL pdt
-c
-      REAL pvcov(ijb_v:ije_v,llm),pucov(ijb_u:ije_u,llm)
-      REAL pteta(ijb_u:ije_u,llm),pq(ijb_u:ije_u,llm,nqtot)
-      REAL pps(ijb_u:ije_u)
-c
-      REAL pdvfi(ijb_v:ije_v,llm),pdufi(ijb_u:ije_u,llm)
-      REAL pdqfi(ijb_u:ije_u,llm,nqtot),pdhfi(ijb_u:ije_u,llm)
-      REAL pdpfi(ijb_u:ije_u)
-c
-      LOGICAL leapf,forward
+      REAL,INTENT(IN) :: pdt ! time step for the integration (s)
+c
+      REAL,INTENT(INOUT) :: pvcov(ijb_v:ije_v,llm) ! covariant meridional wind
+      REAL,INTENT(INOUT) :: pucov(ijb_u:ije_u,llm) ! covariant zonal wind
+      REAL,INTENT(INOUT) :: pteta(ijb_u:ije_u,llm) ! potential temperature
+      REAL,INTENT(INOUT) :: pq(ijb_u:ije_u,llm,nqtot) ! tracers
+      REAL,INTENT(INOUT) :: pps(ijb_u:ije_u) ! surface pressure (Pa)
+c respective tendencies (.../s) to add
+      REAL,INTENT(IN) :: pdvfi(ijb_v:ije_v,llm)
+      REAL,INTENT(IN) :: pdufi(ijb_u:ije_u,llm)
+      REAL,INTENT(IN) :: pdqfi(ijb_u:ije_u,llm,nqtot)
+      REAL,INTENT(IN) :: pdhfi(ijb_u:ije_u,llm)
+      REAL,INTENT(IN) :: pdpfi(ijb_u:ije_u)
+c
+      LOGICAL,INTENT(IN) :: leapf,forward ! not used
 c
 c
@@ -73 +77 @@
       REAL xpn(iim),xps(iim),tpn,tps
       INTEGER j,k,iq,ij
-      REAL qtestw, qtestt
-      PARAMETER ( qtestw = 1.0e-15 )
-      PARAMETER ( qtestt = 1.0e-40 )
+      REAL,PARAMETER :: qtestw = 1.0e-15
+      REAL,PARAMETER :: qtestt = 1.0e-40
 
       REAL SSUM