Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/compar1d.h

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/dyn1d/compar1d.h (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/compar1d.h

@@ -2 +2 @@
 ! $Id: compar1d.h 2010-08-04 17:02:56Z lahellec $
 
-      integer :: forcing_type
-      integer :: tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo
-      real :: nudge_u,nudge_v,nudge_w,nudge_t,nudge_q
-      integer :: iflag_nudge
-      real :: nat_surf
-      real :: tsurf
-      real :: beta_surf
-      real :: rugos
-      real :: rugosh
-      real :: xqsol(1:2)
-      real :: qsurf
-      real :: psurf
-      real :: zsurf
-      real :: albedo
-      real :: snowmass
+      INTEGER :: forcing_type
+      INTEGER :: tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo
+      REAL :: nudge_u,nudge_v,nudge_w,nudge_t,nudge_q
+      INTEGER :: iflag_nudge
+      REAL :: nat_surf
+      REAL :: tsurf
+      REAL :: beta_surf
+      REAL :: rugos
+      REAL :: rugosh
+      REAL :: xqsol(1:2)
+      REAL :: qsurf
+      REAL :: psurf
+      REAL :: zsurf
+      REAL :: albedo
+      REAL :: snowmass
 
-      real :: time
-      real :: time_ini
-      real :: xlat 
-      real :: xlon 
-      real :: airefi
-      real :: wtsurf 
-      real :: wqsurf 
-      real :: restart_runoff 
-      real :: xagesno 
-      real :: qsolinp 
-      real :: zpicinp 
+      REAL :: time
+      REAL :: time_ini
+      REAL :: xlat
+      REAL :: xlon
+      REAL :: airefi
+      REAL :: wtsurf
+      REAL :: wqsurf
+      REAL :: restart_runoff
+      REAL :: xagesno
+      REAL :: qsolinp
+      REAL :: zpicinp
 
       logical :: restart
@@ -41 +41 @@
 ! Parametres de nudging en u,v,t,q valent 0 ou 1 ou le temps de nudging
 
-      integer :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
-      integer :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
+      INTEGER :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
+      INTEGER :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
       real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_qv
       real    :: p_nudging_u, p_nudging_v, p_nudging_w, p_nudging_t, p_nudging_qv