Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/output_physiqex_mod.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/output_physiqex_mod.F90 (modified) (3 diffs)

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

@@ -35 +35 @@
 real,intent(in) :: ptke(klon,klev) !tke
 
-real :: t_ops ! frequency of the IOIPSL operations (eg average over...)
-real :: t_wrt ! frequency of the IOIPSL outputs
-integer :: zvertid ! vertical coordinate ID
-real :: dtime
+REAL :: t_ops ! frequency of the IOIPSL operations (eg average over...)
+REAL :: t_wrt ! frequency of the IOIPSL outputs
+INTEGER :: zvertid ! vertical coordinate ID
+REAL :: dtime
 
 integer,save :: iwrite_phys=1 ! output every iwrite_phys physics step
 !$OMP THREADPRIVATE(iwrite_phys)
-integer :: nhori ! horizontal coordinate ID
+INTEGER :: nhori ! horizontal coordinate ID
 integer,save :: nid_hist ! output file ID
 !$OMP THREADPRIVATE(nid_hist)
@@ -53 +53 @@
 PRINT*,'nnnnnnn ',nid_hist,debut,itau
 
-IF(debut)then
-
+IF(debut)THEN
    CALL getin_p("iwrite_phys",iwrite_phys)
 
@@ -67 +66 @@
 itau=itau+1
 
-IF (modulo(itau,iwrite_phys)==0) then
+IF (modulo(itau,iwrite_phys)==0) THEN
      CALL iophys_ecrit('temp',klev,'Temperature','K',t)
      CALL iophys_ecrit('u',klev,'zonal wind','m/s',u)