Changeset 1987 for LMDZ5/trunk/libf/dyn3dmem/call_dissip_mod.F90

Timestamp:

Feb 24, 2014, 4:05:47 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Add updating pressure, mass and Exner function (ie: all variables which depend on surface pressure) after adding physics tendencies (which include a surface pressure tendency).
Note that this change induces slight changes in GCM results with respect to previous svn version of the code, even if surface pressure tendency is zero (because of recomputation of polar values as an average over polar points on the dynamics grid).
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/call_dissip_mod.F90 (modified) (1 diff)

LMDZ5/trunk/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