Ignore:
Timestamp:
Apr 17, 2015, 10:30:37 PM (10 years ago)
Author:
millour
Message:

Further cleanup and removal of references to iniprint.h.
Also added bench testcase 48x36x19.
EM

Location:
dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd
Files:
70 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/abort_physic.F90

    r3814 r3817  
    88#endif
    99      USE mod_phys_lmdz_para
    10 #include "iniprint.h"
     10      USE inifis_mod, ONLY: lunout
    1111 
    1212!

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/add_phys_tend.F90

    r3809 r3817  
    1717use phys_local_var_mod
    1818use phys_state_var_mod
     19USE inifis_mod, ONLY: prt_level
    1920IMPLICIT none
    20   include "iniprint.h"
    2121  include "YOMCST.h"
    2222  include "clesphys.h"

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/aeropt_2bands.F90

    r3814 r3817  
    2222
    2323  INCLUDE "YOMCST.h"
    24   INCLUDE "iniprint.h"
    2524
    2625  !

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/calbeta_clim.F90

    r3809 r3817  
    1414
    1515  USE phys_cal_mod, only: year_len
     16  USE inifis_mod, ONLY: prt_level
    1617
    1718  implicit none
    … …  
    2425  real lat_nord,lat_sud
    2526
    26   include "iniprint.h"
    2727  !==============================================
    2828

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/calltherm.F90

    r3814 r3817  
    2121      USE dimphy
    2222      USE indice_sol_mod
     23      USE inifis_mod, ONLY: lunout, prt_level
    2324
    2425      implicit none
    … …  
    2627!#include "dimphy.h"
    2728#include "thermcell.h"
    28 #include "iniprint.h"
    2929
    3030

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/carbon_cycle_mod.F90

    r3814 r3817  
    9292    USE surface_data, ONLY : ok_veget, type_ocean
    9393    USE phys_cal_mod, ONLY : mth_len
     94    USE inifis_mod, ONLY: lunout
    9495
    9596    IMPLICIT NONE
    9697    INCLUDE "clesphys.h"
    97     INCLUDE "iniprint.h"
    9898 
    9999! Input argument
    … …  
    310310    USE comgeomphy
    311311    USE indice_sol_mod
     312    USE inifis_mod, ONLY: lunout
    312313
    313314    IMPLICIT NONE
    314315
    315316    INCLUDE "clesphys.h"
    316     INCLUDE "iniprint.h"
    317317    INCLUDE "YOMCST.h"
    318318

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cdrag.F90

    r3814 r3817  
    99  USE dimphy
    1010  USE indice_sol_mod
     11  USE inifis_mod, ONLY: lunout
    1112  IMPLICIT NONE
    1213! ================================================================= c
    … …  
    9899!  INCLUDE "indicesol.h"
    99100  INCLUDE "clesphys.h"
    100   INCLUDE "iniprint.h"
    101101!
    102102! Quelques constantes et options:

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/change_srf_frac_mod.F90

    r3814 r3817  
    3333    USE ocean_slab_mod, ONLY : fsic, ocean_slab_frac
    3434    USE indice_sol_mod
     35    USE inifis_mod, ONLY: lunout
    3536
    36     INCLUDE "iniprint.h"
    3737    INCLUDE "YOMCST.h"
    3838!albedo SB >>>

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cloudth.F90

    r3809 r3817  
    1818#include "YOETHF.h"
    1919#include "FCTTRE.h"
    20 #include "iniprint.h"
    2120#include "thermcell.h"
    2221

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/coef_diff_turb_mod.F90

    r3809 r3817  
    1818    USE dimphy
    1919    USE indice_sol_mod
     20    USE inifis_mod, ONLY: prt_level, lunout
    2021!
    2122! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the
    … …  
    5657!****************************************************************************************
    5758    INCLUDE "clesphys.h"
    58     INCLUDE "iniprint.h"
    5959    INCLUDE "compbl.h"
    6060    INCLUDE "YOETHF.h"
    … …  
    188188    USE dimphy
    189189    USE indice_sol_mod
     190    USE inifis_mod, ONLY: lunout, prt_level
    190191 
    191192!======================================================================
    … …  
    211212    INCLUDE "YOMCST.h"
    212213    INCLUDE "FCTTRE.h"
    213     INCLUDE "iniprint.h"
    214214    INCLUDE "compbl.h"
    215215!

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/concvl.F90

    r3814 r3817  
    3131  USE infotrac_phy, ONLY: nbtr
    3232  USE phys_local_var_mod, ONLY: omega
     33  USE inifis_mod, ONLY: lunout, prt_level
    3334  IMPLICIT NONE
    3435! ======================================================================
    … …  
    213214  include "YOETHF.h"
    214215  include "FCTTRE.h"
    215   include "iniprint.h"
    216216
    217217  IF (first) THEN

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/conf_phys_m.F90

    r3816 r3817  
    2929    !USE control_phy_mod
    3030    USE mod_grid_phy_lmdz, only: klon_glo
    31 
     31    USE inifis_mod, ONLY: lunout
    3232
    3333
    … …  
    3939
    4040    include "thermcell.h"
    41     include "iniprint.h"
    4241
    4342    !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
    … …  
    22892288
    22902289  use IOIPSL
     2290  USE inifis_mod, ONLY: lunout
    22912291  implicit none
    2292   include "iniprint.h"
    22932292  ! Configuration de l'interace atm/surf
    22942293  !

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/conflx.F90

    r3809 r3817  
    992992    pdpmel, ktopm2, pmflxr, pmflxs)
    993993  USE dimphy
     994  USE inifis_mod, ONLY: prt_level
    994995  IMPLICIT NONE
    995996  ! ----------------------------------------------------------------------
    … …  
    10021003  include "YOETHF.h"
    10031004  include "YOECUMF.h"
    1004   include "iniprint.h"
    10051005
    10061006  REAL cevapcu(klon, klev)

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cpl_mod.F90

    r3816 r3817  
    104104    USE indice_sol_mod
    105105   ! USE temps_phy_mod
    106     USE inifis_mod, ONLY: annee_ref, day_ini, itau_phy, itaufin
     106    USE inifis_mod, ONLY: annee_ref, day_ini, itau_phy, itaufin, lunout
    107107    INCLUDE "dimensions.h"
    108     INCLUDE "iniprint.h"
    109108
    110109! Input arguments
    … …  
    301300    USE inifis_mod, ONLY: start_time, itau_phy
    302301   
    303   !  INCLUDE "iniprint.h"
    304302    INCLUDE "YOMCST.h"
    305303    INCLUDE "dimensions.h"

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cv30_routines.F90

    r3814 r3817  
    733733    iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, &
    734734    v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)
     735 
     736  USE inifis_mod, ONLY: lunout
    735737  IMPLICIT NONE
    736738
    737739  include "cv30param.h"
    738   include 'iniprint.h'
    739740
    740741  ! inputs:

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cv3_inip.F90

    r3814 r3817  
    2929!
    3030!----------------------------------------------
    31 
     31  USE inifis_mod, ONLY: prt_level, lunout
    3232  IMPLICIT NONE
    3333
    3434  include "YOMCST2.h"
    35 
    36   include 'iniprint.h'
    3735
    3836!----------------------------------------------

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cv3_routines.F90

    r3814 r3817  
    885885                        h, lv, cpn, p, ph, tv, tp, tvp, clw, &
    886886                        sig, w0)
     887  USE inifis_mod, ONLY: lunout
    887888  IMPLICIT NONE
    888889
    889890  include "cv3param.h"
    890   include 'iniprint.h'
    891891
    892892!inputs:

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cv3p1_closure.F90

    r3814 r3817  
    1818  ! Julie Frohwirth,     14/10/2005  17.44.22  *
    1919  ! **************************************************************
    20 
     20  USE inifis_mod, ONLY: prt_level, lunout
    2121  IMPLICIT NONE
    2222
    … …  
    2626  include "YOMCST.h"
    2727  include "conema3.h"
    28   include "iniprint.h"
    2928
    3029  ! input:

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cv_routines.F90

    r3814 r3817  
    396396    tp1, tvp1, clw1, iflag, nk, icb, cbmf, plcl, tnk, qnk, gznk, t, q, qs, u, &
    397397    v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, dph)
     398  USE inifis_mod, ONLY: lunout
    398399  IMPLICIT NONE
    399400
    … …  
    422423  CHARACTER (LEN=20) :: modname = 'cv_compress'
    423424  CHARACTER (LEN=80) :: abort_message
    424 
    425   include 'iniprint.h'
    426425
    427426

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cva_driver.F90

    r3814 r3817  
    3737
    3838  USE dimphy
     39  USE inifis_mod, ONLY: lunout, prt_level
    3940  IMPLICIT NONE
    4041
    … …  
    154155  include "dimensions.h"
    155156!!!!!#include "dimphy.h"
    156   include 'iniprint.h'
    157157
    158158

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/fisrtilp.F90

    r3814 r3817  
    1313  !
    1414  USE dimphy
     15  USE inifis_mod, ONLY: prt_level, lunout
    1516  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    1617  IMPLICIT none
    … …  
    2728  include "fisrtilp.h"
    2829  include "nuage.h" ! JBM (3/14)
    29   include "iniprint.h"
    3030
    3131  !

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/fisrtilp_tr.F90

    r3814 r3817  
    1010
    1111  USE dimphy
     12  USE inifis_mod, ONLY: lunout
    1213  IMPLICIT NONE
    1314  ! ======================================================================
    … …  
    2122  ! ym#include "dimphy.h"
    2223  include "YOMCST.h"
    23   include "iniprint.h"
    2424
    2525  ! Arguments:

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/hgardfou.F90

    r3814 r3817  
    55  USE phys_state_var_mod
    66  USE indice_sol_mod
     7  USE inifis_mod, ONLY: lunout
    78  IMPLICIT NONE
    89  ! ======================================================================
    … …  
    1112  include "dimensions.h"
    1213  include "YOMCST.h"
    13   include "iniprint.h"
    1414  REAL t(klon, klev), tsol(klon, nbsrf)
    1515  CHARACTER(len=*), intent(in):: text

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/infotrac_phy.f90

    r3816 r3817  
    6060    nbtr=nbtr_
    6161    ALLOCATE(tname(nqtot))
     62    tname(:) = tname_(:)
    6263    ALLOCATE(ttext(nqtot))
    63     ALLOCATE(niadv(nqtot))
    64     tname(:) = tname_(:)
    6564    ttext(:) = ttext_(:)
    66     niadv(:) = niadv_(:)
    6765    ALLOCATE(niadv(nqtot))
    6866    niadv(:)=niadv_(:)
    … …  
    7472    solsym(:)=solsym_(:)
    7573 
     74    write(*,*) "init_infotrac_phy: nqtot,nqo,nbtr",nqtot,nqo,nbtr
     75 
    7676  END SUBROUTINE init_infotrac_phy
    7777 

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/ini_wake.F90

    r3809 r3817  
    44SUBROUTINE ini_wake(wape, fip, it_wape_prescr, wape_prescr, fip_prescr, &
    55    alp_bl_prescr, ale_bl_prescr)
     6  USE inifis_mod, ONLY: lunout
    67  IMPLICIT NONE
    78  ! **************************************************************
    … …  
    3839  ! alpbl  = Alp de PBL lue
    3940
    40   include 'iniprint.h'
    4141  ! declarations
    4242  REAL wape, fip, wape_prescr, fip_prescr

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/inifis_mod.F90

    r3816 r3817  
    4545
    4646  include "YOMCST.h"
    47 !  include 'iniprint.h'
    4847  REAL,INTENT(IN) :: punjours,prad, pg, pr, pcpp
    4948  REAL,INTENT(IN) :: ptimestep ! physics time step (s)

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/iophy.F90

    r3816 r3817  
    5454  IMPLICIT NONE
    5555  INCLUDE 'dimensions.h'
    56   include 'iniprint.h'
    5756    REAL,DIMENSION(klon),INTENT(IN) :: rlon
    5857    REAL,DIMENSION(klon),INTENT(IN) :: rlat
    … …  
    567566    INCLUDE "dimensions.h"
    568567    INCLUDE "clesphys.h"
    569     INCLUDE "iniprint.h"
    570568
    571569    INTEGER                          :: iff
    … …  
    653651    INCLUDE "dimensions.h"
    654652    INCLUDE "clesphys.h"
    655     INCLUDE "iniprint.h"
    656653
    657654    INTEGER                          :: iff
    … …  
    723720    use ioipsl, only: getin
    724721    use phys_output_var_mod, only: nfiles
     722    use inifis_mod, only: prt_level, lunout
    725723    IMPLICIT NONE
    726 
    727     include 'iniprint.h'
    728724
    729725    CHARACTER(LEN=20)                :: nam_var
    … …  
    745741                                jj_nb, klon_mpi
    746742  USE ioipsl, only: histwrite
     743  USE inifis_mod, ONLY: prt_level, lunout
    747744  IMPLICIT NONE
    748745  include 'dimensions.h'
    749   include 'iniprint.h'
    750746   
    751747    integer,INTENT(IN) :: nid
    … …  
    810806                                jj_nb, klon_mpi
    811807  use ioipsl, only: histwrite
     808  use inifis_mod, only: prt_level, lunout
    812809  IMPLICIT NONE
    813810  include 'dimensions.h'
    814   include 'iniprint.h'
    815811   
    816812    integer,INTENT(IN) :: nid
    … …  
    887883  USE xios, only: xios_send_field
    888884#endif
    889 
     885  USE inifis_mod, ONLY: lunout, prt_level
    890886
    891887  IMPLICIT NONE
    892888  INCLUDE 'dimensions.h'
    893   INCLUDE 'iniprint.h'
    894889  include 'clesphys.h'
    895890
    … …  
    10471042  USE xios, only: xios_send_field
    10481043#endif
    1049 
     1044  USE inifis_mod, ONLY: prt_level, lunout
    10501045
    10511046  IMPLICIT NONE
    10521047  INCLUDE 'dimensions.h'
    1053   INCLUDE 'iniprint.h'
    10541048  include 'clesphys.h'
    10551049
    … …  
    11961190  IMPLICIT NONE
    11971191  INCLUDE 'dimensions.h'
    1198   INCLUDE 'iniprint.h'
    11991192
    12001193    CHARACTER(LEN=*), INTENT(IN) :: field_name
    … …  
    12671260  IMPLICIT NONE
    12681261  INCLUDE 'dimensions.h'
    1269   INCLUDE 'iniprint.h'
    12701262
    12711263    CHARACTER(LEN=*), INTENT(IN) :: field_name

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/limit_read_mod.F90

    r3814 r3817  
    151151    IMPLICIT NONE
    152152   
    153     INCLUDE "iniprint.h"
    154 
    155153! In- and ouput arguments
    156154!****************************************************************************************

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/minmaxqfi.F90

    r3809 r3817  
    44SUBROUTINE minmaxqfi(zq,qmin,qmax,comment)
    55  USE dimphy
     6  USE inifis_mod, ONLY: prt_level
    67  IMPLICIT NONE
    78
    … …  
    1516  INTEGER                     :: i, jbad, k
    1617
    17   include "iniprint.h"
    18  
    1918  DO k = 1, klev
    2019     jbad = 0

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/mod_phys_lmdz_mpi_data.F90

    r3814 r3817  
    170170
    171171  SUBROUTINE print_module_data
     172 
     173  USE inifis_mod, ONLY: lunout
    172174  IMPLICIT NONE
    173   INCLUDE "iniprint.h"
    174175 
    175176    WRITE(lunout,*) 'ii_begin =', ii_begin

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/mod_phys_lmdz_omp_data.F90

    r3814 r3817  
    9090
    9191  SUBROUTINE Print_module_data
     92  USE inifis_mod, ONLY: lunout
    9293  IMPLICIT NONE
    93   INCLUDE "iniprint.h"
    9494
    9595!$OMP CRITICAL 

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/mod_phys_lmdz_para.F90

    r3814 r3817  
    4747  SUBROUTINE Test_transfert
    4848  USE mod_grid_phy_lmdz
     49  USE inifis_mod, ONLY: lunout
    4950  IMPLICIT NONE
    50     INCLUDE "iniprint.h"
    5151 
    5252    REAL :: Test_Field1d_glo(klon_glo,nbp_lev)

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/nonlocal.F90

    r3809 r3817  
    2121  ! ======================================================================
    2222  include "YOMCST.h"
    23   include "iniprint.h"
    2423
    2524  ! Arguments:

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/oasis.F90

    r3814 r3817  
    102102
    103103    INCLUDE "dimensions.h"
    104     INCLUDE "iniprint.h"
    105104
    106105! Local variables
    … …  
    321320!
    322321    INCLUDE "dimensions.h"
    323     INCLUDE "iniprint.h"
    324322! Input arguments
    325323!************************************************************************************
    … …  
    383381!
    384382    INCLUDE "dimensions.h"
    385     INCLUDE "iniprint.h"
    386383! Input arguments
    387384!************************************************************************************

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/ocean_slab_mod.F90

    r3814 r3817  
    8888    use IOIPSL
    8989
    90     INCLUDE "iniprint.h"
    9190    ! For ok_xxx vars (Ekman...)
    9291    INCLUDE "clesphys.h"
    … …  
    225224   
    226225    USE calcul_fluxs_mod
    227 
    228     INCLUDE "iniprint.h"
    229226
    230227! Input arguments

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/pbl_surface_mod.F90

    r3816 r3817  
    4949
    5050    USE indice_sol_mod
    51 
     51    USE inifis_mod, ONLY: lunout
     52    IMPLICIT NONE
    5253    INCLUDE "dimsoil.h"
    53     INCLUDE "iniprint.h"
    5454 
    5555! Input variables
    … …  
    262262    USE indice_sol_mod
    263263  !  USE temps_phy_mod
    264     USE inifis_mod, ONLY: annee_ref, day_ini, itau_phy
     264    USE inifis_mod, ONLY: annee_ref, day_ini, itau_phy, lunout, prt_level
    265265    IMPLICIT NONE
    266266
    267267    INCLUDE "dimsoil.h"
    268268    INCLUDE "YOMCST.h"
    269     INCLUDE "iniprint.h"
    270269    INCLUDE "YOETHF.h"
    271270    INCLUDE "FCTTRE.h"

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyetat0.F90

    r3816 r3817  
    867867USE iostart, ONLY : get_field
    868868USE dimphy, only: klon
     869USE inifis_mod, ONLY: lunout
    869870
    870871IMPLICIT NONE
    871 INCLUDE "iniprint.h"
    872872
    873873LOGICAL phyetat0_get
    … …  
    906906USE dimphy, only: klon
    907907USE indice_sol_mod, only: nbsrf
     908USE inifis_mod, ONLY: lunout
    908909
    909910IMPLICIT NONE
    910 INCLUDE "iniprint.h"
    911911
    912912LOGICAL phyetat0_srf

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_output_mod.F90

    r3816 r3817  
    5353    USE wxios
    5454#endif
    55 
     55    USE inifis_mod, ONLY: prt_level, lunout
     56   
    5657    IMPLICIT NONE
    5758    include "dimensions.h"
    5859    include "clesphys.h"
    5960    include "thermcell.h"
    60     include "iniprint.h"
    6161
    6262    ! ug Nouveaux arguments n\'ecessaires au histwrite_mod:
    … …  
    526526    !USE comconst_phy_mod
    527527    !USE temps_phy_mod
    528     USE inifis_mod, ONLY: day_ref, annee_ref
     528    USE inifis_mod, ONLY: day_ref, annee_ref, lunout
    529529    IMPLICIT NONE
    530530
    … …  
    534534    real                :: ttt,xxx,timestep,dayseconde,dtime
    535535    parameter (dayseconde=86400.)
    536     include "iniprint.h"
    537536
    538537    ipos=scan(str,'0123456789.',.TRUE.)

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_output_write_mod.F90

    r3816 r3817  
    259259    INCLUDE "YOMCST.h"
    260260    INCLUDE "dimensions.h"
    261     include "iniprint.h"
    262261
    263262    ! Input

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_state_var_mod.F90

    r3816 r3817  
    404404!USE control_mod
    405405USE aero_mod
    406 !USE infotrac_phy, ONLY : nbtr
    407 USE phytrac_mod, ONLY: nbtr
     406USE infotrac_phy, ONLY : nbtr
     407!USE phytrac_mod, ONLY: nbtr
    408408USE indice_sol_mod
    409409IMPLICIT NONE

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/physiq.F90

    r3816 r3817  
    2121  USE mod_phys_lmdz_para
    2222  USE iophy
    23   USE misc_mod, mydebug=>debug
     23  USE inifis_mod, ONLY: mydebug=>debug
    2424  USE vampir
    2525  USE pbl_surface_mod, ONLY : pbl_surface
    … …  
    4949  !USE temps_phy_mod
    5050  USE inifis_mod, only: config_inca,day_step,iphysiq,offline,raz_date, &
    51                         annee_ref, day_ref, itau_phy, jD_ref, start_time
     51                        annee_ref, day_ref, itau_phy, jD_ref, start_time, &
     52                        prt_level, lunout
    5253#ifdef REPROBUS
    5354  USE CHEM_REP, ONLY : Init_chem_rep_xjour
    … …  
    118119  include "clesphys.h"
    119120!  include "temps.h"
    120   include "iniprint.h"
    121121  include "thermcell.h"
    122122  !======================================================================

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phystokenc.F90

    r3816 r3817  
    1313  USE indice_sol_mod
    1414  USE tracstoke_phy_mod
     15  USE inifis_mod, ONLY: lunout
    1516 
    1617  IMPLICIT NONE
    … …  
    2324  INCLUDE "dimensions.h"
    2425!  INCLUDE "tracstoke.h"
    25   INCLUDE "iniprint.h"
    2626!======================================================================
    2727

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phytrac_mod.F90

    r3816 r3817  
    2020!=================================================================================
    2121
    22 
    23   IMPLICIT NONE
    24 ! tracer settings, inherited from the dynamics (see ini_trac_mod)
    25 ! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
    26   INTEGER, SAVE :: nqtot
    27 ! nqo: numbre of water tracers
    28   INTEGER, SAVE :: nqo
    29 ! nbtr : number of tracers not including higher order of moment or water vapor or liquid
    30 !        number of tracers used in the physics
    31   INTEGER, SAVE :: nbtr
    32 !$OMP THREADRIVATE(nqtot,nqo,nbtr)
    33 ! Name variables
    34   CHARACTER(len=20), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
    35   CHARACTER(len=23), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
    36 ! niadv : vector keeping the coorspondance between all tracers(nqtot) treated in the
    37 !         dynamic part of the code and the tracers (nbtr+2) used in the physics part of the code.
    38   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: niadv ! equivalent dyn / physique
    39 !$OMP THREADRIVATE(tname,ttext,niadv)
    40 ! conv_flg(it)=0 : convection desactivated for tracer number it
    41   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: conv_flg
    42 ! pbl_flg(it)=0  : boundary layer diffusion desactivaded for tracer number it
    43   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: pbl_flg
    44   CHARACTER(len=4),SAVE :: type_trac
    45   CHARACTER(len=8),DIMENSION(:),ALLOCATABLE, SAVE :: solsym
    46 !$OMP THREADRIVATE(conv_flg,pbl_flg,type_trac,solsym)
    4722!
    4823! Tracer tendencies, for outputs
    … …  
    7954CONTAINS
    8055
    81   SUBROUTINE ini_phytrac_mod(nqtot_dyn,nqo_dyn,nbtr_dyn, &
    82                              tname_dyn,ttext_dyn,type_trac_dyn, &
    83                              niadv_dyn,conv_flg_dyn,pbl_flg_dyn,solsym_dyn)
    84   IMPLICIT NONE
    85  
    86   INTEGER,INTENT(IN) :: nqtot_dyn
    87   INTEGER,INTENT(IN) :: nqo_dyn
    88   INTEGER,INTENT(IN) :: nbtr_dyn
    89   CHARACTER(len=*),INTENT(IN) :: tname_dyn(nqtot_dyn)
    90   CHARACTER(len=*),INTENT(IN) :: ttext_dyn(nqtot_dyn)
    91   CHARACTER(len=*),INTENT(IN) :: type_trac_dyn
    92   INTEGER,INTENT(IN) :: niadv_dyn(nqtot_dyn)
    93   INTEGER,INTENT(IN) :: conv_flg_dyn(nbtr_dyn)
    94   INTEGER,INTENT(IN) :: pbl_flg_dyn(nbtr_dyn)
    95   CHARACTER(len=*),INTENT(IN) :: solsym_dyn(nbtr_dyn)
    96  
    97   INTEGER :: i
    98  
    99   nqtot=nqtot_dyn
    100   nqo=nqo_dyn
    101   nbtr=nbtr_dyn
    102   type_trac=type_trac_dyn
    103  
    104   allocate(tname(nqtot))
    105   allocate(ttext(nqtot))
    106   allocate(niadv(nqtot))
    107   allocate(conv_flg(nbtr))
    108   allocate(pbl_flg(nbtr))
    109   allocate(solsym(nbtr))
    110  
    111   DO i=1,nqtot_dyn
    112     tname(i)=tname_dyn(i)
    113     ttext(i)=ttext_dyn(i)
    114     niadv(i)=niadv_dyn(i)
    115   ENDDO
    116   DO i=1,nbtr_dyn
    117     conv_flg(i)=conv_flg_dyn(i)
    118     pbl_flg(i)=pbl_flg_dyn(i)
    119     solsym(i)=solsym_dyn(i)
    120   ENDDO
    121  
    122   END SUBROUTINE ini_phytrac_mod
    123 
    12456  SUBROUTINE phytrac(                                 &
    12557       nstep,     julien,   gmtime,   debutphy,       &
    … …  
    15789    USE phys_cal_mod, only : hour
    15890    USE dimphy
    159     !USE infotrac_phy
     91    USE infotrac_phy, ONLY: nbtr, pbl_flg, conv_flg, type_trac, solsym
    16092    USE mod_grid_phy_lmdz
    16193    USE mod_phys_lmdz_para
    … …  
    16597    USE tracreprobus_mod
    16698    !USE control_phy_mod
    167     USE inifis_mod, ONLY: config_inca
     99    USE inifis_mod, ONLY: config_inca, lunout
    168100   
    169101    USE indice_sol_mod
    … …  
    177109    INCLUDE "clesphys.h"
    178110    INCLUDE "thermcell.h"
    179     INCLUDE "iniprint.h"
    180111    !==========================================================================
    181112    !                   -- ARGUMENT DESCRIPTION --

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/radiation_AR4.F90

    r3814 r3817  
    66    psolswai, ok_ade, ok_aie)
    77  USE dimphy
     8  USE inifis_mod, ONLY: lunout
    89  IMPLICIT NONE
    910
    … …  
    1213  ! ym#include "raddim.h"
    1314  include "YOMCST.h"
    14   include "iniprint.h"
    1515
    1616  ! ------------------------------------------------------------------
    … …  
    494494  ! ym#include "dimphy.h"
    495495  ! ym#include "raddim.h"i
    496   include "iniprint.h"
    497496
    498497  ! ------------------------------------------------------------------
    … …  
    21522151    plwup, plwdn, plwup0, plwdn0)
    21532152  USE dimphy
     2153  USE inifis_mod, ONLY: lunout
    21542154  IMPLICIT NONE
    21552155  ! ym#include "dimensions.h"
    … …  
    21582158  include "raddimlw.h"
    21592159  include "YOMCST.h"
    2160   include "iniprint.h"
    21612160
    21622161  ! -----------------------------------------------------------------------

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/radlwsw_m.F90

    r3814 r3817  
    171171  include "YOMCST.h"
    172172  include "clesphys.h"
    173   include "iniprint.h"
    174173
    175174! Input arguments

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/read_map2D.F90

    r3814 r3817  
    66  USE mod_grid_phy_lmdz
    77  USE mod_phys_lmdz_para
    8 
     8  USE inifis_mod, ONLY: lunout
    99
    1010  IMPLICIT NONE
    … …  
    2727  REAL, DIMENSION(nbp_lon,nbp_lat) :: var_glo2D_tmp ! 2D global
    2828  REAL, DIMENSION(klon_glo)        :: var_glo1D     ! 1D global
    29   INCLUDE "iniprint.h"
    3029
    3130! Read variable from file. Done by master process MPI and master thread OpenMP
    … …  
    6665  CONTAINS
    6766    SUBROUTINE write_err_mess(err_mess)
    68 
     67      USE inifis_mod, ONLY: lunout
     68      IMPLICIT NONE
    6969      CHARACTER(len=*), INTENT(IN) :: err_mess
    70       INCLUDE "iniprint.h"
    7170     
    7271      WRITE(lunout,*) 'Error in read_map2D, filename = ', trim(filename)

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/readaerosol.F90

    r3816 r3817  
    2020!****************************************************************************************
    2121  USE dimphy
     22  USE inifis_mod, ONLY: lunout
    2223
    2324  IMPLICIT NONE
    24 
    25  INCLUDE "iniprint.h"
    2625
    2726  ! Input arguments
    … …  
    192191    USE mod_phys_lmdz_para
    193192    USE iophy, ONLY : io_lon, io_lat
     193    USE inifis_mod, ONLY: lunout
    194194
    195195    IMPLICIT NONE
    196196     
    197197    INCLUDE "dimensions.h"     
    198     INCLUDE "iniprint.h"
    199198
    200199! Input argumets
    … …  
    573572  SUBROUTINE check_err(status,text)
    574573    USE netcdf
     574    USE inifis_mod, ONLY: lunout
    575575    IMPLICIT NONE
    576576
    577     INCLUDE "iniprint.h"
    578577    INTEGER, INTENT (IN) :: status
    579578    CHARACTER(len=*), INTENT (IN), OPTIONAL :: text

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/readaerosol_interp.F90

    r3814 r3817  
    2121  USE phys_cal_mod
    2222  USE pres2lev_mod
     23  USE inifis_mod, ONLY: lunout
    2324
    2425  IMPLICIT NONE
    … …  
    2728  INCLUDE "chem.h"     
    2829  INCLUDE "clesphys.h"
    29   INCLUDE "iniprint.h"
    3030  INCLUDE "dimensions.h"
    3131!

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/soil.F90

    r3814 r3817  
    88  USE mod_phys_lmdz_para
    99  USE indice_sol_mod
     10  USE inifis_mod, ONLY: lunout
    1011
    1112  IMPLICIT NONE
    … …  
    5556  INCLUDE "dimsoil.h"
    5657  INCLUDE "comsoil.h"
    57   INCLUDE "iniprint.h"
    5858!-----------------------------------------------------------------------
    5959! Arguments

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/solarlong.F90

    r3809 r3817  
    22
    33  USE ioipsl
     4  USE inifis_mod, ONLY: lunout
    45
    56  IMPLICIT NONE
    … …  
    4647  include "planete.h"
    4748  include "YOMCST.h"
    48   include 'iniprint.h'
    4949
    5050  ! arguments:

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/surf_land_orchidee_mod.F90

    r3816 r3817  
    4545    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
    4646    USE indice_sol_mod
     47    USE inifis_mod, ONLY: lunout
    4748
    4849!   
    … …  
    99100!
    100101    INCLUDE "YOMCST.h"
    101     INCLUDE "iniprint.h"
    102102    INCLUDE "dimensions.h"
    103103 

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

    r3814 r3817  
    102102    INCLUDE "temps.h"
    103103    INCLUDE "YOMCST.h"
    104     INCLUDE "iniprint.h"
    105104    INCLUDE "dimensions.h"
    106105 

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/sw_aeroAR4.F90

    r3809 r3817  
    2222  USE dimphy
    2323  USE phys_output_mod, ONLY : swaero_diag
     24  USE inifis_mod, ONLY: lunout
    2425  IMPLICIT NONE
    2526
    2627#include "YOMCST.h"
    2728#include "clesphys.h"
    28 #include "iniprint.h"
    2929  !
    3030  !     ------------------------------------------------------------------

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcellV0_main.F90

    r3814 r3817  
    1414      USE dimphy
    1515      USE comgeomphy , ONLY:rlond,rlatd
     16      USE inifis_mod, ONLY: lunout, prt_level
    1617      IMPLICIT NONE
    1718
    … …  
    4546      include "YOETHF.h"
    4647      include "FCTTRE.h"
    47       include "iniprint.h"
    4848
    4949!   arguments:
    … …  
    790790
    791791      subroutine testV0_ltherm(klon,klev,pplev,pplay,long,seuil,ztv,po,ztva,zqla,f_star,zw2,comment)
     792      USE inifis_mod, ONLY: prt_level
    792793      IMPLICIT NONE
    793       include "iniprint.h"
    794794
    795795      integer i, k, klon,klev
    … …  
    833833!thermcell_closure: fermeture, determination de f
    834834!-------------------------------------------------------------------------
     835      USE inifis_mod, ONLY: prt_level, lunout
    835836      IMPLICIT NONE
    836837
    837       include "iniprint.h"
    838838      include "thermcell.h"
    839839      INTEGER ngrid,nlay
    … …  
    912912!thermcell_plume: calcule les valeurs de qt, thetal et w dans l ascendance
    913913!--------------------------------------------------------------------------
    914 
     914      USE inifis_mod, ONLY: prt_level, lunout
     915     
    915916      IMPLICIT NONE
    916917
    … …  
    918919      include "YOETHF.h"
    919920      include "FCTTRE.h"
    920       include "iniprint.h"
    921921      include "thermcell.h"
    922922
    … …  
    17111711!thermcell_dry: calcul de zmax et wmax du thermique sec
    17121712!--------------------------------------------------------------------------
     1713       USe inifis_mod, ONLY: prt_level
    17131714       IMPLICIT NONE
    17141715      include "YOMCST.h"       
    1715       include "iniprint.h"
    17161716       INTEGER l,ig
    17171717
    … …  
    19231923!thermcell_init: calcul du profil d alimentation du thermique
    19241924!----------------------------------------------------------------------
     1925      USE inifis_mod, ONLY: prt_level
    19251926      IMPLICIT NONE
    1926       include "iniprint.h"
    19271927      include "thermcell.h"
    19281928

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_closure.F90

    r3809 r3817  
    1717      IMPLICIT NONE
    1818
    19 #include "iniprint.h"
    2019#include "thermcell.h"
    2120INTEGER ngrid,nlay

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_dq.F90

    r3814 r3817  
    11      subroutine thermcell_dq(ngrid,nlay,impl,ptimestep,fm,entr,  &
    22     &           masse,q,dq,qa,lev_out)
     3      USE inifis_mod, ONLY: prt_level
    34      implicit none
    45
    5 #include "iniprint.h"
    66!=======================================================================
    77!
    … …  
    152152      subroutine thermcell_dq_o(ngrid,nlay,impl,ptimestep,fm,entr,  &
    153153     &           masse,q,dq,qa,lev_out)
     154      USE inifis_mod, ONLY: prt_level
    154155      implicit none
    155156
    156 #include "iniprint.h"
    157157!=======================================================================
    158158!

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_dry.F90

    r3809 r3817  
    1414! la temperature potentielle virtuelle pondérée par alim_star.
    1515!--------------------------------------------------------------------------
    16 
     16       USE inifis_mod, ONLY: prt_level
    1717       IMPLICIT NONE
    1818#include "YOMCST.h"       
    19 #include "iniprint.h"
    2019       INTEGER l,ig
    2120

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_dtke.F90

    r3809 r3817  
    11      subroutine thermcell_dtke(ngrid,nlay,nsrf,ptimestep,fm0,entr0,  &
    22     &           rg,pplev,tke)
     3      USE inifis_mod, ONLY: prt_level
    34      implicit none
    45
    5 #include "iniprint.h"
    66!=======================================================================
    77!

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_dv2.F90

    r3809 r3817  
    22     &    ,fraca,larga  &
    33     &    ,u,v,du,dv,ua,va,lev_out)
     4      USE inifis_mod, ONLY: prt_level, lunout
    45      implicit none
    56
    6 #include "iniprint.h"
    77!=======================================================================
    88!

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_env.F90

    r3809 r3817  
    66!necessaires au calcul des proprietes dans le thermique
    77!--------------------------------------------------------------
    8 
     8      USE inifis_mod, ONLY: prt_level
    99      IMPLICIT NONE
    1010
    … …  
    1212#include "YOETHF.h"
    1313#include "FCTTRE.h"     
    14 #include "iniprint.h"
    1514
    1615      INTEGER ngrid,nlay

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_flux.F90

    r3814 r3817  
    1313!thermcell_flux: deduction des flux
    1414!---------------------------------------------------------------------------
    15 
     15      USE inifis_mod, ONLY: prt_level, lunout
    1616      IMPLICIT NONE
    17 #include "iniprint.h"
    1817     
    1918      INTEGER ig,l

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_flux2.F90

    r3814 r3817  
    1212!thermcell_flux: deduction des flux
    1313!---------------------------------------------------------------------------
    14 
     14      USE inifis_mod, ONLY: prt_level
    1515      IMPLICIT NONE
    16 #include "iniprint.h"
    1716#include "thermcell.h"
    1817     

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_height.F90

    r3809 r3817  
    66!-----------------------------------------------------------------------------
    77      IMPLICIT NONE
    8 #include "iniprint.h"
    98#include "thermcell.h"
    109

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_init.F90

    r3809 r3817  
    88!thermcell_init: calcul du profil d alimentation du thermique
    99!----------------------------------------------------------------------
     10      USE inifis_mod, ONLY: lunout
    1011      IMPLICIT NONE
    11 #include "iniprint.h"
    1212#include "thermcell.h"
    1313

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_main.F90

    r3814 r3817  
    2525      USE comgeomphy , ONLY:rlond,rlatd
    2626      USE indice_sol_mod
     27      USE inifis_mod, ONLY: lunout, prt_level
    2728      IMPLICIT NONE
    2829
    … …  
    6667#include "YOETHF.h"
    6768#include "FCTTRE.h"
    68 #include "iniprint.h"
    6969#include "thermcell.h"
    7070
    … …  
    10971097
    10981098      subroutine test_ltherm(klon,klev,pplev,pplay,long,seuil,ztv,po,ztva,zqla,f_star,zw2,comment)
     1099      USE inifis_mod, ONLY: prt_level
    10991100      IMPLICIT NONE
    1100 #include "iniprint.h"
    11011101
    11021102      integer i, k, klon,klev
    … …  
    11381138      subroutine thermcell_tke_transport(ngrid,nlay,ptimestep,fm0,entr0,  &
    11391139     &           rg,pplev,therm_tke_max)
     1140      USE inifis_mod, ONLY: prt_level
    11401141      implicit none
    11411142
    1142 #include "iniprint.h"
    11431143!=======================================================================
    11441144!

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_plume.F90

    r3809 r3817  
    1313USE IOIPSL, ONLY : getin
    1414
     15       USE inifis_mod, ONLY: prt_level
    1516       IMPLICIT NONE
    1617
    … …  
    1819#include "YOETHF.h"
    1920#include "FCTTRE.h"
    20 #include "iniprint.h"
    2121#include "thermcell.h"
    2222
    … …  
    803803! Code ecrit par Catherine Rio, Arnaud Jam et Frederic Hourdin
    804804!--------------------------------------------------------------------------
    805 
     805      USE inifis_mod, ONLY: prt_level
    806806      IMPLICIT NONE
    807807
    … …  
    809809#include "YOETHF.h"
    810810#include "FCTTRE.h"
    811 #include "iniprint.h"
    812811#include "thermcell.h"
    813812

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/traclmdz_mod.F90

    r3816 r3817  
    9696    USE mod_phys_lmdz_para
    9797    USE indice_sol_mod
    98 
    99     INCLUDE "iniprint.h"
     98    USE inifis_mod, ONLY: lunout
     99
    100100! Input variables
    101101    REAL,DIMENSION(klon,nbsrf),INTENT(IN)     :: pctsrf ! Pourcentage de sol f(nature du sol)

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/wake.F90

    r3809 r3817  
    2020  USE dimphy
    2121  use mod_phys_lmdz_para
     22  USE inifis_mod, ONLY: prt_level
    2223  IMPLICIT NONE
    2324  ! ============================================================================
    … …  
    113114  include "YOMCST.h"
    114115  include "cvthermo.h"
    115   include "iniprint.h"
    116116
    117117  ! Arguments en entree

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/yamada4.F90

    r3809 r3817  
    55    cd, q2, km, kn, kq, ustar, iflag_pbl)
    66  USE dimphy
     7  USE inifis_mod, ONLY: prt_level
    78  IMPLICIT NONE
    8   include "iniprint.h"
    99  ! .......................................................................
    1010  ! ym#include "dimensions.h"

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/yamada_c.F90

    r3809 r3817  
    66     &   ,iflag_pbl,okiophys)
    77      use dimphy
     8      USE inifis_mod, ONLY: prt_level
    89      IMPLICIT NONE
    9 #include "iniprint.h"
    1010#include "YOMCST.h"
    1111!.......................................................................
Note: See TracChangeset for help on using the changeset viewer.