Ignore:
Timestamp:
Jul 23, 2024, 10:21:18 PM (7 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
Files:
22 edited

Legend:

Unmodified
Added
Removed

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

    r5105 r5106  
    767767
    768768  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    769   SUBROUTINE phytracr_spl (debutphy, lafin, jD_cur, jH_cur, iflag_conv, &  ! I
     769  SUBROUTINE phytracr_spl(debutphy, lafin, jD_cur, jH_cur, iflag_conv, &  ! I
    770770          pdtphys, ftsol, &  ! I
    771771          t_seri, q_seri, paprs, pplay, RHcl, &  ! I

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

    r5101 r5106  
    22! $Id: splaeropt_6bands_rrtm.F90 2644 2016-10-02 16:55:08Z oboucher $
    33
    4 SUBROUTINE SPLAEROPT_6BANDS_RRTM (&
     4SUBROUTINE SPLAEROPT_6BANDS_RRTM(&
    55        zdm, tr_seri, RHcl, &
    66        tau_allaer, piz_allaer, cg_allaer)

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

    r5105 r5106  
    1 SUBROUTINE tiedqneg (pres_h, q, d_q)
     1SUBROUTINE tiedqneg(pres_h, q, d_q)
    22
    33  USE dimphy

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

    r5105 r5106  
    8686! $Id: add_phys_tend.F90 2611 2016-08-03 15:41:26Z jyg $
    8787
    88 SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,zdqbs,paprs,text, &
     88SUBROUTINE add_phys_tend(zdu,zdv,zdt,zdq,zdql,zdqi,zdqbs,paprs,text, &
    8989                          abortphy,flag_inhib_tend, itap, diag_mode)
    9090!======================================================================
    … …  
    488488END SUBROUTINE add_phys_tend
    489489
    490 SUBROUTINE diag_phys_tend (nlon, nlev, uu, vv, temp, qv, ql, qs, qbs, &
     490SUBROUTINE diag_phys_tend(nlon, nlev, uu, vv, temp, qv, ql, qs, qbs, &
    491491                          zdu,zdv,zdt,zdq,zdql,zdqs,zdqbs,paprs,text)
    492492!======================================================================
    … …  
    715715END SUBROUTINE integr_v
    716716
    717 SUBROUTINE prt_enerbil (text, itap)
     717SUBROUTINE prt_enerbil(text, itap)
    718718!======================================================================
    719719! Print enenrgy budget diagnotics for the 1D case

  • LMDZ6/branches/Amaury_dev/libf/phylmd/alpale.F90

    r5103 r5106  
    1 SUBROUTINE alpale ( debut, itap, dtime, paprs, omega, t_seri,   &
     1SUBROUTINE alpale( debut, itap, dtime, paprs, omega, t_seri,   &
    22                    alp_offset, it_wape_prescr,  wape_prescr, fip_prescr, &
    33                    ale_bl_prescr, alp_bl_prescr, &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_th.F90

    r5105 r5106  
    22! $Id$
    33
    4 SUBROUTINE alpale_th ( dtime, lmax_th, t_seri, cell_area,  &
     4SUBROUTINE alpale_th( dtime, lmax_th, t_seri, cell_area,  &
    55                       cin, s2, n2, strig,  &
    66                       ale_bl_trig, ale_bl_stat, ale_bl,  &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_wk.F90

    r5105 r5106  
    1 SUBROUTINE alpale_wk ( dtime, cell_area, zoccur, sigmaw, wdens, fip ,  &
     1SUBROUTINE alpale_wk( dtime, cell_area, zoccur, sigmaw, wdens, fip ,  &
    22                       fip_cond)
    33

  • LMDZ6/branches/Amaury_dev/libf/phylmd/atm2geo.F90

    r5099 r5106  
    22! $Id$
    33
    4 SUBROUTINE atm2geo ( im, jm, pte, ptn, plon, plat, pxx, pyy, pzz )
     4SUBROUTINE atm2geo( im, jm, pte, ptn, plon, plat, pxx, pyy, pzz )
    55  USE dimphy
    66  USE mod_phys_lmdz_para

  • LMDZ6/branches/Amaury_dev/libf/phylmd/coefcdrag.F90

    r5105 r5106  
    22
    33
    4       SUBROUTINE coefcdrag (klon, knon, nsrf, zxli, &
     4      SUBROUTINE coefcdrag(klon, knon, nsrf, zxli, &
    55                            speed, t, q, zgeop, psol, &
    66                            ts, qsurf, rugos, okri, ri1, &

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

    r5105 r5106  
    14251425
    14261426
    1427   Subroutine Nudge_RHT_init (paprs, pplay, t, q, t_targ, rh_targ)
     1427  SubROUTINE Nudge_RHT_init(paprs, pplay, t, q, t_targ, rh_targ)
    14281428    ! ========================================================
    14291429    USE dimphy
    … …  
    14731473  END SUBROUTINE nudge_rht_init
    14741474
    1475   Subroutine Nudge_UV_init (paprs, pplay, u, v, u_targ, v_targ)
     1475  SubROUTINE Nudge_UV_init(paprs, pplay, u, v, u_targ, v_targ)
    14761476    ! ========================================================
    14771477    USE dimphy
    … …  
    15051505  END
    15061506
    1507   Subroutine Nudge_RHT (dtime, paprs, pplay, t_targ, rh_targ, t, q, &
     1507  SubROUTINE Nudge_RHT(dtime, paprs, pplay, t_targ, rh_targ, t, q, &
    15081508          &                      d_t, d_q)
    15091509    ! ========================================================
    … …  
    15941594  END
    15951595
    1596   Subroutine Nudge_UV (dtime, paprs, pplay, u_targ, v_targ, u, v, &
     1596  SubROUTINE Nudge_UV(dtime, paprs, pplay, u_targ, v_targ, u, v, &
    15971597          &                      d_u, d_v)
    15981598    ! ========================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/surf_inlandsis_mod.F90

    r5105 r5106  
    10291029    !***************************************************************************
    10301030
    1031     SUBROUTINE sisvatetat0 (fichnom, ikl2i)
     1031    SUBROUTINE sisvatetat0(fichnom, ikl2i)
    10321032
    10331033        USE dimphy
    … …  
    12601260
    12611261    !======================================================================
    1262     SUBROUTINE sisvatredem (fichnom, ikl2i, rlon, rlat)
     1262    SUBROUTINE sisvatredem(fichnom, ikl2i, rlon, rlat)
    12631263
    12641264

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.F90

    r5103 r5106  
    452452
    453453
    454   SUBROUTINE histdef2d_old (iff,lpoint,flag_var,nomvar,titrevar,unitvar)
     454  SUBROUTINE histdef2d_old(iff,lpoint,flag_var,nomvar,titrevar,unitvar)
    455455
    456456    USE ioipsl, ONLY: histdef
    … …  
    528528  END SUBROUTINE histdef2d_old
    529529
    530   SUBROUTINE histdef3d_old (iff,lpoint,flag_var,nomvar,titrevar,unitvar)
     530  SUBROUTINE histdef3d_old(iff,lpoint,flag_var,nomvar,titrevar,unitvar)
    531531
    532532    USE ioipsl, ONLY: histdef
    … …  
    579579  END SUBROUTINE histdef3d_old
    580580
    581   SUBROUTINE histdef2d (iff,var)
     581  SUBROUTINE histdef2d(iff,var)
    582582
    583583    USE ioipsl, ONLY: histdef
    … …  
    694694  END SUBROUTINE histdef2d
    695695
    696   SUBROUTINE histdef3d (iff,var)
     696  SUBROUTINE histdef3d(iff,var)
    697697
    698698    USE ioipsl, ONLY: histdef

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_wake.F90

    r5105 r5106  
    24102410
    24112411
    2412 SUBROUTINE pkupper (klon, klev, ptop, ph, p, pupper, kupper, &
     2412SUBROUTINE pkupper(klon, klev, ptop, ph, p, pupper, kupper, &
    24132413                    dth, hw_, rho, delta_t_min_in, &
    24142414                    ktop, wk_adv, h_zzz, ptop1, ktop1)
    … …  
    29692969    END SUBROUTINE wake_popdyn_1
    29702970   
    2971     SUBROUTINE wake_popdyn_2 ( klon, klev, wk_adv, dtimesub, wgen, &
     2971    SUBROUTINE wake_popdyn_2( klon, klev, wk_adv, dtimesub, wgen, &
    29722972                             wdensmin, &
    29732973                             sigmaw, wdens, awdens, &   !! states variables
    … …  
    31193119    END SUBROUTINE wake_popdyn_2 
    31203120 
    3121     SUBROUTINE wake_popdyn_3 ( klon, klev, phys_sub, wk_adv, dtimesub, wgen, &
     3121    SUBROUTINE wake_popdyn_3( klon, klev, phys_sub, wk_adv, dtimesub, wgen, &
    31223122                             wdensmin, &
    31233123                             sigmaw, asigmaw, wdens, awdens, &                       !! state variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/mo_simple_plumes.F90

    r5105 r5106  
    315315  ! optical properties on a host models vertical grid.
    316316
    317   SUBROUTINE sp_aop_profile                                                                           ( &
     317  SUBROUTINE sp_aop_profile( &
    318318       nlevels        ,ncol           ,lambda         ,oro            ,lon            ,lat            , &
    319319       year_fr        ,z              ,dz             ,dNovrN         ,aod_prof       ,ssa_prof       , &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyetat0_mod.F90

    r5103 r5106  
    88CONTAINS
    99
    10 SUBROUTINE phyetat0 (fichnom, clesphy0, tabcntr0)
     10SUBROUTINE phyetat0(fichnom, clesphy0, tabcntr0)
    1111
    1212  USE dimphy, only: klon, zmasq, klev

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyredem.F90

    r5103 r5106  
    22! $Id$
    33
    4 SUBROUTINE phyredem (fichnom)
     4SUBROUTINE phyredem(fichnom)
    55
    66!-------------------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/physiq_mod.F90

    r5103 r5106  
    88CONTAINS
    99
    10   SUBROUTINE physiq (nlon, nlev, &
     10  SUBROUTINE physiq(nlon, nlev, &
    1111          debut, lafin, pdtphys_, &
    1212          paprs, pplay, pphi, pphis, presnivs, &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/physiqex_mod.F90

    r5103 r5106  
    66CONTAINS
    77
    8       SUBROUTINE physiqex (nlon,nlev, &
     8      SUBROUTINE physiqex(nlon,nlev, &
    99              debut,lafin,pdtphys, &
    1010              paprs,pplay,pphi,pphis,presnivs, &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phystokenc_mod.F90

    r5101 r5106  
    2424  END SUBROUTINE init_phystokenc
    2525
    26 SUBROUTINE phystokenc (nlon,nlev,pdtphys,rlon,rlat, &
     26SUBROUTINE phystokenc(nlon,nlev,pdtphys,rlon,rlat, &
    2727     pt,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
    2828     pfm_therm,pentr_therm, &

  • LMDZ6/branches/Amaury_dev/libf/phylmd/print_debug_phys.F90

    r5103 r5106  
    1 SUBROUTINE print_debug_phys (i,debug_lev,text)
     1SUBROUTINE print_debug_phys(i,debug_lev,text)
    22
    33USE dimphy, ONLY: klev

  • LMDZ6/branches/Amaury_dev/libf/phylmd/reevap.F90

    r5105 r5106  
    1   SUBROUTINE reevap (klon,klev,iflag_ice_thermo,t_seri,q_seri,ql_seri,qs_seri, &
     1  SUBROUTINE reevap(klon,klev,iflag_ice_thermo,t_seri,q_seri,ql_seri,qs_seri, &
    22           d_t_eva,d_q_eva,d_ql_eva,d_qs_eva)
    33

  • LMDZ6/branches/Amaury_dev/libf/phylmd/simu_airs.F90

    r5105 r5106  
    514514
    515515
    516         SUBROUTINE masque (ibeg, iend, som_tau, &
     516        SUBROUTINE masque(ibeg, iend, som_tau, &
    517517   visible, w)
    518518
    … …  
    555555
    556556
    557          SUBROUTINE caract (ibeg, iend, temp_cs, tau_cs, iwco_cs, &
     557         SUBROUTINE caract(ibeg, iend, temp_cs, tau_cs, iwco_cs, &
    558558   pres_cs, dz_cs, rhodz_cs, rad_cs, pcld, tcld, &
    559559   som_tau, som_iwc, som_dz, som_rad)
Note: See TracChangeset for help on using the changeset viewer.