Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/physiqex_mod.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/physiqex_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/physiqex_mod.F90

@@ -26 +26 @@
 ! Routine argument:
 
-      integer,intent(in) :: nlon ! number of atmospheric colums
-      integer,intent(in) :: nlev ! number of vertical levels (should be =klev)
-      logical,intent(in) :: debut ! signals first CALL to physics
-      logical,intent(in) :: lafin ! signals last CALL to physics
-      real,intent(in) :: pdtphys ! physics time step (s)
-      real,intent(in) :: paprs(klon,klev+1) ! interlayer pressure (Pa)
-      real,intent(in) :: pplay(klon,klev) ! mid-layer pressure (Pa)
-      real,intent(in) :: pphi(klon,klev) ! geopotential at mid-layer
-      real,intent(in) :: pphis(klon) ! surface geopotential
-      real,intent(in) :: presnivs(klev) ! pseudo-pressure (Pa) of mid-layers
-      real,intent(in) :: u(klon,klev) ! eastward zonal wind (m/s)
-      real,intent(in) :: v(klon,klev) ! northward meridional wind (m/s)
-      real,intent(in) :: rot(klon,klev) ! northward meridional wind (m/s)
-      real,intent(in) :: t(klon,klev) ! temperature (K)
-      real,intent(in) :: qx(klon,klev,nqtot) ! tracers (.../kg_air)
-      real,intent(in) :: flxmass_w(klon,klev) ! vertical mass flux
-      real,intent(out) :: d_u(klon,klev) ! physics tendency on u (m/s/s)
-      real,intent(out) :: d_v(klon,klev) ! physics tendency on v (m/s/s)
-      real,intent(out) :: d_t(klon,klev) ! physics tendency on t (K/s)
-      real,intent(out) :: d_qx(klon,klev,nqtot) ! physics tendency on tracers
-      real,intent(out) :: d_ps(klon) ! physics tendency on surface pressure
+      INTEGER,INTENT(IN) :: nlon ! number of atmospheric colums
+      INTEGER,INTENT(IN) :: nlev ! number of vertical levels (should be =klev)
+      logical,INTENT(IN) :: debut ! signals first CALL to physics
+      logical,INTENT(IN) :: lafin ! signals last CALL to physics
+      REAL,INTENT(IN) :: pdtphys ! physics time step (s)
+      REAL,INTENT(IN) :: paprs(klon,klev+1) ! interlayer pressure (Pa)
+      REAL,INTENT(IN) :: pplay(klon,klev) ! mid-layer pressure (Pa)
+      REAL,INTENT(IN) :: pphi(klon,klev) ! geopotential at mid-layer
+      REAL,INTENT(IN) :: pphis(klon) ! surface geopotential
+      REAL,INTENT(IN) :: presnivs(klev) ! pseudo-pressure (Pa) of mid-layers
+      REAL,INTENT(IN) :: u(klon,klev) ! eastward zonal wind (m/s)
+      REAL,INTENT(IN) :: v(klon,klev) ! northward meridional wind (m/s)
+      REAL,INTENT(IN) :: rot(klon,klev) ! northward meridional wind (m/s)
+      REAL,INTENT(IN) :: t(klon,klev) ! temperature (K)
+      REAL,INTENT(IN) :: qx(klon,klev,nqtot) ! tracers (.../kg_air)
+      REAL,INTENT(IN) :: flxmass_w(klon,klev) ! vertical mass flux
+      REAL,INTENT(OUT) :: d_u(klon,klev) ! physics tendency on u (m/s/s)
+      REAL,INTENT(OUT) :: d_v(klon,klev) ! physics tendency on v (m/s/s)
+      REAL,INTENT(OUT) :: d_t(klon,klev) ! physics tendency on t (K/s)
+      REAL,INTENT(OUT) :: d_qx(klon,klev,nqtot) ! physics tendency on tracers
+      REAL,INTENT(OUT) :: d_ps(klon) ! physics tendency on surface pressure
 
 !    include "clesphys.h"
@@ -62 +62 @@
 !$OMP THREADPRIVATE(first)
 
-real,save :: rg=9.81
+REAL,save :: rg=9.81
 !$OMP THREADPRIVATE(rg)