Changeset 5106 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

Timestamp:

Jul 23, 2024, 10:21:18 PM (3 months ago)

Author:

abarral

Message:

Turn coefils.h into lmdz_coefils.f90
Put filtreg.F90 inside lmdz_filtreg.F90
Turn mod_filtreg_p.F90 into lmdz_filtreg_p.F90
Delete obsolete parafilt.h*
(lint) remove spaces between routine name and args

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

@@ -1425 +1425 @@
 
 
-  Subroutine Nudge_RHT_init (paprs, pplay, t, q, t_targ, rh_targ)
+  SubROUTINE Nudge_RHT_init(paprs, pplay, t, q, t_targ, rh_targ)
     ! ========================================================
     USE dimphy
@@ -1473 +1473 @@
   END SUBROUTINE nudge_rht_init
 
-  Subroutine Nudge_UV_init (paprs, pplay, u, v, u_targ, v_targ)
+  SubROUTINE Nudge_UV_init(paprs, pplay, u, v, u_targ, v_targ)
     ! ========================================================
     USE dimphy
@@ -1505 +1505 @@
   END
 
-  Subroutine Nudge_RHT (dtime, paprs, pplay, t_targ, rh_targ, t, q, &
+  SubROUTINE Nudge_RHT(dtime, paprs, pplay, t_targ, rh_targ, t, q, &
           &                      d_t, d_q)
     ! ========================================================
@@ -1594 +1594 @@
   END
 
-  Subroutine Nudge_UV (dtime, paprs, pplay, u_targ, v_targ, u, v, &
+  SubROUTINE Nudge_UV(dtime, paprs, pplay, u_targ, v_targ, u, v, &
           &                      d_u, d_v)
     ! ========================================================