Changeset 5106 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Timestamp:

Jul 23, 2024, 10:21:18 PM (12 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

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Files:

• phytracr_spl_mod.F90 (modified) (1 diff)
• splaeropt_6bands_rrtm.f90 (modified) (1 diff)
• tiedqneg.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -767 +767 @@
 
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  SUBROUTINE phytracr_spl (debutphy, lafin, jD_cur, jH_cur, iflag_conv, &  ! I
+  SUBROUTINE phytracr_spl(debutphy, lafin, jD_cur, jH_cur, iflag_conv, &  ! I
           pdtphys, ftsol, &  ! I
           t_seri, q_seri, paprs, pplay, RHcl, &  ! I

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_6bands_rrtm.f90

@@ -2 +2 @@
 ! $Id: splaeropt_6bands_rrtm.F90 2644 2016-10-02 16:55:08Z oboucher $
 
-SUBROUTINE SPLAEROPT_6BANDS_RRTM (&
+SUBROUTINE SPLAEROPT_6BANDS_RRTM(&
         zdm, tr_seri, RHcl, &
         tau_allaer, piz_allaer, cg_allaer)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/tiedqneg.f90

@@ -1 @@
-SUBROUTINE tiedqneg (pres_h, q, d_q)
+SUBROUTINE tiedqneg(pres_h, q, d_q)
 
   USE dimphy