Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (2 months ago)
Author:
abarral
Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/aer_sedimnt.F90

    r5099 r5101  
    1919  USE phys_local_var_mod, ONLY: mdw, budg_sed_part, DENSO4, DENSO4B, f_r_wet, f_r_wetB, vsed_aer
    2020  USE strataer_local_var_mod, ONLY: flag_new_strat_compo
    21   USE dimphy, ONLY : klon,klev
     21  USE dimphy, ONLY: klon,klev
    2222  USE infotrac_phy
    2323  USE aerophys

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90

    r5099 r5101  
    2323  !     -----------------------------------------------------------------------
    2424
    25   USE dimphy, ONLY : klon,klev
     25  USE dimphy, ONLY: klon,klev
    2626  USE aerophys
    2727  USE infotrac_phy

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/cond_evap_tstep_mod.F90

    r5099 r5101  
    2828      USE aerophys
    2929      USE infotrac_phy
    30       USE lmdz_yomcst, ONLY : RPI
    31       USE sulfate_aer_mod, ONLY : wph2so4, surftension, solh2so4, rpmvh2so4
    32       USE strataer_local_var_mod, ONLY : ALPH2SO4, RRSI
     30      USE lmdz_yomcst, ONLY: RPI
     31      USE sulfate_aer_mod, ONLY: wph2so4, surftension, solh2so4, rpmvh2so4
     32      USE strataer_local_var_mod, ONLY: ALPH2SO4, RRSI
    3333     
    3434      IMPLICIT NONE
    … …  
    177177      USE aerophys
    178178      USE infotrac_phy
    179       USE lmdz_yomcst, ONLY : RPI
    180       USE strataer_local_var_mod, ONLY : ALPH2SO4, RRSI
     179      USE lmdz_yomcst, ONLY: RPI
     180      USE strataer_local_var_mod, ONLY: ALPH2SO4, RRSI
    181181
    182182      IMPLICIT NONE
    … …  
    290290      USE aerophys
    291291      USE infotrac_phy
    292       USE lmdz_yomcst, ONLY : RPI
    293       USE strataer_local_var_mod, ONLY : RRSI,Vbin
     292      USE lmdz_yomcst, ONLY: RPI
     293      USE strataer_local_var_mod, ONLY: RRSI,Vbin
    294294     
    295295      IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/interp_sulf_input.F90

    r5099 r5101  
    99
    1010  USE mod_grid_phy_lmdz
    11   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    12   USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    13   USE phys_local_var_mod, ONLY : budg_3D_backgr_ocs, budg_3D_backgr_so2
    14   USE phys_local_var_mod, ONLY : OCS_lifetime, SO2_lifetime, H2SO4_lifetime, O3_clim
     11  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     12  USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
     13  USE phys_local_var_mod, ONLY: budg_3D_backgr_ocs, budg_3D_backgr_so2
     14  USE phys_local_var_mod, ONLY: OCS_lifetime, SO2_lifetime, H2SO4_lifetime, O3_clim
    1515  USE mod_phys_lmdz_para
    1616  USE dimphy
    … …  
    1919  USE aerophys
    2020  USE lmdz_yomcst
    21   USE strataer_local_var_mod, ONLY : flag_newclim_file,flag_verbose_strataer
     21  USE strataer_local_var_mod, ONLY: flag_newclim_file,flag_verbose_strataer
    2222
    2323  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/micphy_tstep.F90

    r5099 r5101  
    44SUBROUTINE micphy_tstep(pdtphys,tr_seri,t_seri,pplay,paprs,rh,is_strato)
    55
    6   USE geometry_mod, ONLY : latitude_deg !NL- latitude corr. to local domain
    7   USE dimphy, ONLY : klon,klev
     6  USE geometry_mod, ONLY: latitude_deg !NL- latitude corr. to local domain
     7  USE dimphy, ONLY: klon,klev
    88  USE aerophys
    9   USE infotrac_phy, ONLY : nbtr_bin, nbtr_sulgas, nbtr, id_H2SO4_strat
     9  USE infotrac_phy, ONLY: nbtr_bin, nbtr_sulgas, nbtr, id_H2SO4_strat
    1010  USE phys_local_var_mod, ONLY: mdw, budg_3D_nucl, budg_3D_cond_evap, budg_h2so4_to_part, R2SO4, DENSO4, &
    1111       f_r_wet, R2SO4B, DENSO4B, f_r_wetB
    1212  USE nucleation_tstep_mod
    1313  USE cond_evap_tstep_mod
    14   USE sulfate_aer_mod, ONLY : STRAACT
    15   USE lmdz_yomcst, ONLY : RPI, RD, RG
     14  USE sulfate_aer_mod, ONLY: STRAACT
     15  USE lmdz_yomcst, ONLY: RPI, RD, RG
    1616  USE print_control_mod, ONLY: lunout
    1717  USE strataer_local_var_mod ! contains also RRSI and Vbin

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/miecalc_aer.F90

    r5099 r5101  
    1818  USE aerophys, ONLY: dens_aer_dry, dens_aer_ref, V_rat
    1919  USE aero_mod
    20   USE infotrac_phy, ONLY : nbtr, nbtr_bin, nbtr_sulgas, id_SO2_strat
     20  USE infotrac_phy, ONLY: nbtr, nbtr_bin, nbtr_sulgas, id_SO2_strat
    2121  USE dimphy
    22   USE lmdz_yomcst  , ONLY : RG, RPI
     22  USE lmdz_yomcst  , ONLY: RG, RPI
    2323  USE mod_phys_lmdz_para, only: gather, scatter, bcast
    24   USE mod_grid_phy_lmdz, ONLY : klon_glo
    25   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     24  USE mod_grid_phy_lmdz, ONLY: klon_glo
     25  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    2626  USE print_control_mod, ONLY: prt_level, lunout
    2727

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/nucleation_tstep_mod.F90

    r5099 r5101  
    1010  USE aerophys
    1111  USE infotrac_phy
    12   USE strataer_local_var_mod, ONLY : flag_new_nucl
     12  USE strataer_local_var_mod, ONLY: flag_new_nucl
    1313  USE lmdz_yomcst
    1414 
    … …  
    3939  REAL ipr     ! Ion pair production rate (cm-3 s-1) NOT IN USE
    4040
    41   ! call nucleation routine
     41  ! CALL nucleation routine
    4242  IF (.NOT.flag_new_nucl) THEN
    4343    ! Use older routine from Hanna Vehkamäki (FMI)
    … …  
    7373  USE aerophys
    7474  USE infotrac_phy
    75   USE strataer_local_var_mod, ONLY : Vbin
     75  USE strataer_local_var_mod, ONLY: Vbin
    7676 
    7777  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/ocs_to_so2.F90

    r5099 r5101  
    44SUBROUTINE ocs_to_so2(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato)
    55
    6   USE dimphy, ONLY : klon,klev
     6  USE dimphy, ONLY: klon,klev
    77  USE aerophys
    88  USE infotrac_phy
    9   USE lmdz_yomcst, ONLY : RG
    10   USE phys_local_var_mod, ONLY : OCS_lifetime, budg_3D_ocs_to_so2, budg_ocs_to_so2
    11   USE strataer_local_var_mod, ONLY : flag_min_rreduce
     9  USE lmdz_yomcst, ONLY: RG
     10  USE phys_local_var_mod, ONLY: OCS_lifetime, budg_3D_ocs_to_so2, budg_ocs_to_so2
     11  USE strataer_local_var_mod, ONLY: flag_min_rreduce
    1212
    1313  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/so2_to_h2so4.F90

    r5099 r5101  
    44SUBROUTINE SO2_TO_H2SO4(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato)
    55
    6   USE dimphy, ONLY : klon,klev
     6  USE dimphy, ONLY: klon,klev
    77  USE aerophys
    88  USE infotrac_phy
    9   USE lmdz_yomcst, ONLY : RG, RD
     9  USE lmdz_yomcst, ONLY: RG, RD
    1010  ! lifetime (sec) et O3_clim (VMR)
    11   USE phys_local_var_mod, ONLY : SO2_lifetime, H2SO4_lifetime, O3_clim, budg_3D_so2_to_h2so4, budg_so2_to_h2so4
    12   USE strataer_local_var_mod, ONLY : flag_OH_reduced, flag_H2SO4_photolysis, flag_min_rreduce
     11  USE phys_local_var_mod, ONLY: SO2_lifetime, H2SO4_lifetime, O3_clim, budg_3D_so2_to_h2so4, budg_so2_to_h2so4
     12  USE strataer_local_var_mod, ONLY: flag_OH_reduced, flag_H2SO4_photolysis, flag_min_rreduce
    1313 
    1414  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratH2O_methox.F90

    r5099 r5101  
    1111
    1212  USE mod_grid_phy_lmdz
    13   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    14   USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
     13  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     14  USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
    1515
    1616  USE mod_phys_lmdz_para
    1717  USE dimphy
    18   USE phys_cal_mod, ONLY : mth_cur
     18  USE phys_cal_mod, ONLY: mth_cur
    1919  USE infotrac_phy
    2020  USE aerophys
    2121  USE lmdz_yomcst
    22   USE strataer_local_var_mod, ONLY : flag_newclim_file
     22  USE strataer_local_var_mod, ONLY: flag_newclim_file
    2323 
    2424  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/strataer_emiss_mod.F90

    r5098 r5101  
    77
    88    USE strataer_local_var_mod
    9     USE ioipsl_getin_p_mod, ONLY : getin_p
    10     USE print_control_mod, ONLY : lunout
    11     USE mod_phys_lmdz_para, ONLY : is_master
     9    USE ioipsl_getin_p_mod, ONLY: getin_p
     10    USE print_control_mod, ONLY: lunout
     11    USE mod_phys_lmdz_para, ONLY: is_master
    1212
    1313    ! Local variables
    … …  
    217217    USE dimphy, ONLY: klon
    218218    USE mod_grid_phy_lmdz, ONLY: nbp_lat, nbp_lon
    219     USE print_control_mod, ONLY : lunout
     219    USE print_control_mod, ONLY: lunout
    220220    USE strataer_local_var_mod
    221221    USE lmdz_yomcst, ONLY: RPI

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/strataer_nuc_mod.F90

    r5099 r5101  
    1010  SUBROUTINE strataer_nuc_init()
    1111   
    12     USE ioipsl_getin_p_mod, ONLY : getin_p
    13     USE print_control_mod, ONLY : lunout
    14     USE mod_phys_lmdz_para, ONLY : is_master
     12    USE ioipsl_getin_p_mod, ONLY: getin_p
     13    USE print_control_mod, ONLY: lunout
     14    USE mod_phys_lmdz_para, ONLY: is_master
    1515    USE strataer_local_var_mod, ONLY: ALPH2SO4,flag_nuc_rate_box,nuclat_min,nuclat_max, &
    1616         nucpres_min,nucpres_max
    … …  
    5050   
    5151    USE infotrac_phy, ONLY: nbtr, nbtr_sulgas, id_H2SO4_strat
    52     USE ioipsl, ONLY : getin
    53     USE print_control_mod, ONLY : lunout
     52    USE ioipsl, ONLY: getin
     53    USE print_control_mod, ONLY: lunout
    5454   
    5555    ! Output variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratdistrib.F90

    r5099 r5101  
    44SUBROUTINE STRATDISTRIB(altLMDz,altemiss,sigma_alt,f_lay_emiss)
    55
    6   USE dimphy, ONLY : klon,klev
     6  USE dimphy, ONLY: klon,klev
    77  USE strataer_local_var_mod
    8   USE lmdz_yomcst, only : RPI
     8  USE lmdz_yomcst, ONLY: RPI
    99
    1010  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratemit.F90

    r5099 r5101  
    66                    stretchlong,ispeci,id_species_total)
    77
    8   USE dimphy, ONLY : klon,klev
     8  USE dimphy, ONLY: klon,klev
    99  USE strataer_local_var_mod
    1010  USE phys_cal_mod
    1111  USE phys_local_var_mod, ONLY: d_q_emiss
    12   USE lmdz_yomcst, only : RD, RPI, RG
    13   USE geometry_mod, ONLY : cell_area, boundslat
     12  USE lmdz_yomcst, ONLY: RD, RPI, RG
     13  USE geometry_mod, ONLY: cell_area, boundslat
    1414  USE aerophys
    1515  USE infotrac_phy
    16   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     16  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    1717  USE mod_grid_phy_lmdz, ONLY: nbp_lon
    1818 

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/sulfate_aer_mod.F90

    r5099 r5101  
    2525!        assuming 'curved surface' composition (depends on aerosol size)
    2626   
    27       USE dimphy, ONLY : klon,klev ! nb of longitude and altitude bands
    28       USE infotrac_phy, ONLY : nbtr_bin
     27      USE dimphy, ONLY: klon,klev ! nb of longitude and altitude bands
     28      USE infotrac_phy, ONLY: nbtr_bin
    2929      USE aerophys
    3030      USE phys_local_var_mod, ONLY: R2SO4, R2SO4B, DENSO4, DENSO4B, f_r_wet, f_r_wetB
    … …  
    164164!   R2SO4: aerosol H2SO4 weight fraction (percent)
    165165 
    166     USE dimphy, ONLY : klon,klev
     166    USE dimphy, ONLY: klon,klev
    167167    USE aerophys
    168168    USE phys_local_var_mod, ONLY: R2SO4
    … …  
    550550!   ACTSO4: H2SO4 activity (percent)
    551551 
    552     USE dimphy, ONLY : klon,klev
     552    USE dimphy, ONLY: klon,klev
    553553    USE phys_local_var_mod, ONLY: R2SO4
    554554
    … …  
    635635!   DENSO4: aerosol mass density (gr/cm3 = aerosol mass/aerosol volume)
    636636
    637     USE dimphy, ONLY : klon,klev
     637    USE dimphy, ONLY: klon,klev
    638638    USE phys_local_var_mod, ONLY: R2SO4, DENSO4
    639639
    … …  
    986986!        mfh2so4 = Mh2so4*sulfmolal / (1000.+Mh2so4*sulfmolal)
    987987!        wph2so4 (% mass fraction)= 100.*Mh2so4*sulfmolal / (1000.+Mh2so4*sulfmolal)
    988 !        recall activity of i = a_i = P_i/P_pure_i and
     988!        reCALL activity of i = a_i = P_i/P_pure_i and
    989989!          activity coefficient of i = gamma_i = a_i/X_i (X_i: mole fraction of i)
    990990!        so  P_i = gamma_i*X_i*P_pure_i

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/traccoag_mod.F90

    r5099 r5101  
    1515   
    1616    USE dimphy
    17     USE infotrac_phy, ONLY : nbtr_bin, nbtr_sulgas, nbtr, id_SO2_strat
     17    USE infotrac_phy, ONLY: nbtr_bin, nbtr_sulgas, nbtr, id_SO2_strat
    1818    USE aerophys
    19     USE geometry_mod, ONLY : cell_area, boundslat
     19    USE geometry_mod, ONLY: cell_area, boundslat
    2020    USE mod_grid_phy_lmdz
    21     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     21    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    2222    USE mod_phys_lmdz_para, only: gather, scatter
    23     USE phys_cal_mod, ONLY : year_len, year_cur, mth_cur, day_cur, hour
     23    USE phys_cal_mod, ONLY: year_len, year_cur, mth_cur, day_cur, hour
    2424    USE sulfate_aer_mod
    2525    USE phys_local_var_mod, ONLY: stratomask
    … …  
    325325    CALL micphy_tstep(pdtphys,tr_seri,t_seri,pplay,paprs,rh,is_strato)
    326326
    327 !--call coagulation routine
     327!--CALL coagulation routine
    328328    CALL coagulate(pdtphys,mdw,tr_seri,t_seri,pplay,dens_aer,is_strato)
    329329
    330 !--call sedimentation routine
     330!--CALL sedimentation routine
    331331    CALL aer_sedimnt(pdtphys, t_seri, pplay, paprs, tr_seri, dens_aer)
    332332
Note: See TracChangeset for help on using the changeset viewer.