Changeset 5106 for LMDZ6/branches/Amaury_dev/libf/phylmdiso

Timestamp:

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

Files:

• add_phys_tend_mod.F90 (modified) (3 diffs)
• isotopes_routines_mod.F90 (modified) (8 diffs)
• phyetat0_mod.F90 (modified) (1 diff)
• phyredem.F90 (modified) (2 diffs)
• physiq_mod.F90 (modified) (1 diff)
• reevap.F90 (modified) (1 diff)

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

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

@@ -15848 +15848 @@
 !***           
 
-      SUBROUTINE phyisoetat0 (snow,run_off_lic_0, &
+      SUBROUTINE phyisoetat0(snow,run_off_lic_0, &
                  xtsnow,xtrun_off_lic_0, &
                  Rland_ice)
@@ -16021 +16021 @@
       
 
-      SUBROUTINE phyiso_etat0_dur ( &
+      SUBROUTINE phyiso_etat0_dur( &
                 xtsnow, &
                xtrun_off_lic_0, Rland_ice, &
@@ -18317 +18317 @@
 #ifdef ISOVERIF
       if (kmin_jessai.gt.kmax_jessai) then ! on plante si kmin>=kmax pour k<klev
-         write(*,*) 'Pb SUBROUTINE coord_prod_nucl_HTO (kmin>kmax)'
+         write(*,*) 'Pb SUBROUTINE coord_prod_nucl_HTO(kmin>kmax)'
          write(*,*) 'coord_jessai', coord_jessai
          write(*,*) 'lon_nucl, lat_nucl', lon_jessai, lat_jessai
@@ -18326 +18326 @@
 
       if ((kmin_jessai.eq.klev).and.(kmax_jessai.ne.klev)) then ! on plante si on n'a pas kmax=klev quand kmin=klev
-         write(*,*) 'Pb SUBROUTINE coord_prod_nucl_HTO (kmin=klev)'
+         write(*,*) 'Pb SUBROUTINE coord_prod_nucl_HTO(kmin=klev)'
          write(*,*) 'coord_jessai', coord_jessai
          write(*,*) 'lon_nucl, lat_nucl', lon_jessai, lat_jessai
@@ -18411 +18411 @@
 #ifdef ISOVERIF
        if (kmin_jessai.ge.kmax_jessai) then
-       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO (k<klev)'
+       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO(k<klev)'
        write(*,*) 'kmin_HTO devrait etre plus petit que kmax_HTO'
        write(*,*) 'kmin_HTO,kmax_HTO',kmin_jessai,kmax_jessai
@@ -18421 +18421 @@
        if ((prod_nucl_tmp(j,k).le.0.).or. &
             (prod_nucl(ixt,j,k).le.0.)) then
-       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO (k<klev)'
+       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO(k<klev)'
        write(*,*) 'prod_nucl_tmp(i,k) ou d_xt_prod_nucl devraient etre positifs'
        write(*,*) 'ixt,i,k',ixt,j,k
@@ -18446 +18446 @@
        if ((kmin_jessai.ne.kmax_jessai).and. &
            (kmin_jessai.ne.klev)) then
-       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO (k=klev)'
+       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO(k=klev)'
        write(*,*) 'kmin_HTO et kmax_HTO devraient etre egaux a klev'
        write(*,*) 'kmin_HTO,kmax_HTO',kmin_jessai,kmax_jessai
@@ -18456 +18456 @@
        if ((prod_nucl_tmp(j,k).le.0.).or. &
            (prod_nucl(ixt,j,k).le.0.)) then
-       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO (k=klev)'
+       write(*,*) 'Pb SUBROUTINE calcul_prod_nucl_HTO(k=klev)'
        write(*,*) 'prod_nucl_tmp(i,k) ou d_xt_prod_nucl devraient etre positifs'
        write(*,*) 'ixt,i,k',ixt,j,k

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

@@ -8 +8 @@
 CONTAINS
 
-SUBROUTINE phyetat0 (fichnom, clesphy0, tabcntr0)
+SUBROUTINE phyetat0(fichnom, clesphy0, tabcntr0)
 
   USE dimphy, only: klon, zmasq, klev

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

@@ -2 +2 @@
 ! $Id: phyredem.F90 3506 2019-05-16 14:38:11Z ymeurdesoif $
 
-SUBROUTINE phyredem (fichnom)
+SUBROUTINE phyredem(fichnom)
 
 !-------------------------------------------------------------------------------
@@ -486 +486 @@
 ! je voulais mettre cette SUBROUTINE dans isotopes_mod, mais elle a besoin de put_field_srf1 qui est contenue dans la SUBROUTINE phyredem. Si on veut mettre cette routine dans isotopes_mod, il faudrait convertir ce fichier en module pour pouvoir en appeler des routines
 
-      SUBROUTINE phyisoredem (pass, &
+      SUBROUTINE phyisoredem(pass, &
                 xtsnow, &
                 xtrun_off_lic_0,Rland_ice, &

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

@@ -9 +9 @@
 CONTAINS
 
-  SUBROUTINE physiq (nlon,nlev, &
+  SUBROUTINE physiq(nlon,nlev, &
        debut,lafin,pdtphys_, &
        paprs,pplay,pphi,pphis,presnivs, &

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

@@ -1 @@
-  SUBROUTINE reevap (klon,klev,iflag_ice_thermo,t_seri,qx, &
+  SUBROUTINE reevap(klon,klev,iflag_ice_thermo,t_seri,qx, &
              d_t_eva,d_qx_eva)