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

Timestamp:

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

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

@@ -123 +123 @@
 ! $Id$
 
-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 &
 #ifdef ISO
@@ -666 +666 @@
 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)
 !======================================================================
@@ -896 +896 @@
 END SUBROUTINE integr_v
 
-SUBROUTINE prt_enerbil (text, itap)
+SUBROUTINE prt_enerbil(text, itap)
 !======================================================================
 ! Print enenrgy budget diagnotics for the 1D case