Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phydev/physiq_mod.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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/phydev/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phydev/physiq_mod.F90

@@ -24 +24 @@
 
       USE lmdz_xios, ONLY: xios_update_calendar, using_xios
-      USE wxios, ONLY: wxios_add_vaxis, wxios_set_cal, wxios_closedef
+      USE lmdz_wxios, ONLY: wxios_add_vaxis, wxios_set_cal, wxios_closedef
       USE iophy, ONLY: histwrite_phy
 
@@ -31 +31 @@
 ! 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) :: 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) :: 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,save :: itau=0 ! counter to count number of calls to physics
+INTEGER,save :: itau=0 ! counter to count number of calls to physics
 !$OMP THREADPRIVATE(itau)
 REAL :: temp_newton(klon,klev)
@@ -64 +64 @@
 REAL :: dtime
 INTEGER :: nhori ! horizontal coordinate ID
-integer,save :: nid_hist ! output file ID
+INTEGER,save :: nid_hist ! output file ID
 !$OMP THREADPRIVATE(nid_hist)
 INTEGER :: zvertid ! vertical coordinate ID
-integer,save :: iwrite_phys ! output every iwrite_phys physics step
+INTEGER,save :: iwrite_phys ! output every iwrite_phys physics step
 !$OMP THREADPRIVATE(iwrite_phys)
-integer,save :: iwrite_phys_omp ! intermediate variable to read iwrite_phys
+INTEGER,save :: iwrite_phys_omp ! intermediate variable to read iwrite_phys
                                 ! (must be shared by all threads)
 REAL :: t_ops ! frequency of the IOIPSL operations (eg average over...)