Changeset 1987 for LMDZ5/trunk/libf/dyn3dmem/leapfrog_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/leapfrog_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/leapfrog_mod.F90

@@ -1 +1 @@
 MODULE leapfrog_mod
 
-  REAL,POINTER,SAVE :: ucov(:,:)
-  REAL,POINTER,SAVE :: vcov(:,:)
-  REAL,POINTER,SAVE :: teta(:,:)
-  REAL,POINTER,SAVE :: ps(:)
-  REAL,POINTER,SAVE :: masse(:,:)
-  REAL,POINTER,SAVE :: phis(:)
-  REAL,POINTER,SAVE :: q(:,:,:)
-  REAL,POINTER,SAVE :: p(:,:)
-  REAL,POINTER,SAVE :: pks(:)
-  REAL,POINTER,SAVE :: pk(:,:)
-  REAL,POINTER,SAVE :: pkf(:,:)
-  REAL,POINTER,SAVE :: phi(:,:)
-  REAL,POINTER,SAVE :: w(:,:)
+  REAL,POINTER,SAVE :: ucov(:,:) ! zonal covariant wind
+  REAL,POINTER,SAVE :: vcov(:,:) ! meridional covariant wind
+  REAL,POINTER,SAVE :: teta(:,:) ! potential temperature
+  REAL,POINTER,SAVE :: ps(:) ! surface pressure
+  REAL,POINTER,SAVE :: masse(:,:) ! air mass
+  REAL,POINTER,SAVE :: phis(:) ! geopotential at the surface
+  REAL,POINTER,SAVE :: q(:,:,:) ! advected tracers
+  REAL,POINTER,SAVE :: p(:,:) ! interlayer pressure
+  REAL,POINTER,SAVE :: pks(:) ! Exner at the surface
+  REAL,POINTER,SAVE :: pk(:,:) ! Exner at mid-layer
+  REAL,POINTER,SAVE :: pkf(:,:) ! filtered Exner
+  REAL,POINTER,SAVE :: phi(:,:) ! geopotential
+  REAL,POINTER,SAVE :: w(:,:) ! vertical velocity
   REAL,POINTER,SAVE :: pbaru(:,:)
   REAL,POINTER,SAVE :: pbarv(:,:)