Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/output_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/output_physiqex_mod.F90 (modified) (2 diffs)

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

@@ -20 +20 @@
 
 IMPLICIT NONE
-logical, intent(in) :: debut
-real, intent(in) :: pdtphys,zjulian
-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) :: theta(klon,klev) ! temperature (K)
-real,intent(in) :: paprs(klon,klev+1) ! interlayer pressure (Pa)
-real,intent(in) :: qx(klon,klev,nqtot) !tracers
-real,intent(in) :: cf(klon,klev) !cloud fraction
-real,intent(in) :: zqr(klon,klev) !rain specifiq content
-real,intent(in) :: zqs(klon,klev) !snow specifiq content
-real,intent(in) :: zqg(klon,klev) !graupel specifiq content
-real,intent(in) :: ptke(klon,klev) !tke
+logical, INTENT(IN) :: debut
+REAL, INTENT(IN) :: pdtphys,zjulian
+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) :: theta(klon,klev) ! temperature (K)
+REAL,INTENT(IN) :: paprs(klon,klev+1) ! interlayer pressure (Pa)
+REAL,INTENT(IN) :: qx(klon,klev,nqtot) !tracers
+REAL,INTENT(IN) :: cf(klon,klev) !cloud fraction
+REAL,INTENT(IN) :: zqr(klon,klev) !rain specifiq content
+REAL,INTENT(IN) :: zqs(klon,klev) !snow specifiq content
+REAL,INTENT(IN) :: zqg(klon,klev) !graupel specifiq content
+REAL,INTENT(IN) :: ptke(klon,klev) !tke
 
 REAL :: t_ops ! frequency of the IOIPSL operations (eg average over...)
@@ -40 +40 @@
 REAL :: dtime
 
-integer,save :: iwrite_phys=1 ! output every iwrite_phys physics step
+INTEGER,save :: iwrite_phys=1 ! output every iwrite_phys physics step
 !$OMP THREADPRIVATE(iwrite_phys)
 INTEGER :: nhori ! horizontal coordinate ID
-integer,save :: nid_hist ! output file ID
+INTEGER,save :: nid_hist ! output file ID
 !$OMP THREADPRIVATE(nid_hist)
-integer, save :: itau=0
+INTEGER, save :: itau=0
 !$OMP THREADPRIVATE(itau)
 
-integer, save :: ioex=1
+INTEGER, save :: ioex=1