Changeset 5106 for LMDZ6/branches/Amaury_dev/libf/phylmd/add_phys_tend_mod.F90

Timestamp:

Jul 23, 2024, 10:21:18 PM (4 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/add_phys_tend_mod.F90 (modified) (3 diffs)

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

@@ -86 +86 @@
 ! $Id: add_phys_tend.F90 2611 2016-08-03 15:41:26Z jyg $
 
-SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,zdqbs,paprs,text, &
+SUBROUTINE add_phys_tend(zdu,zdv,zdt,zdq,zdql,zdqi,zdqbs,paprs,text, &
                           abortphy,flag_inhib_tend, itap, diag_mode)
 !======================================================================
@@ -488 +488 @@
 END SUBROUTINE add_phys_tend
 
-SUBROUTINE diag_phys_tend (nlon, nlev, uu, vv, temp, qv, ql, qs, qbs, &
+SUBROUTINE diag_phys_tend(nlon, nlev, uu, vv, temp, qv, ql, qs, qbs, &
                           zdu,zdv,zdt,zdq,zdql,zdqs,zdqbs,paprs,text)
 !======================================================================
@@ -715 +715 @@
 END SUBROUTINE integr_v
 
-SUBROUTINE prt_enerbil (text, itap)
+SUBROUTINE prt_enerbil(text, itap)
 !======================================================================
 ! Print enenrgy budget diagnotics for the 1D case