Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (13 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/phylmdiso
Files:
21 edited

Legend:

Unmodified
Added
Removed

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

    r5099 r5101  
    141141
    142142USE dimphy, ONLY: klon, klev
    143 USE phys_state_var_mod, ONLY : phys_tstep
     143USE phys_state_var_mod, ONLY: phys_tstep
    144144USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, qbs_seri, q_seri, t_seri
    145145#ifdef ISO
    … …  
    150150USE print_control_mod, ONLY: prt_level
    151151USE cmp_seri_mod
    152 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
     152USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    153153              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    154154
    … …  
    679679!======================================================================
    680680
    681 USE phys_state_var_mod, ONLY : phys_tstep, ftsol
     681USE phys_state_var_mod, ONLY: phys_tstep, ftsol
    682682USE geometry_mod, ONLY: longitude_deg, latitude_deg
    683683USE print_control_mod, ONLY: prt_level
    684684USE cmp_seri_mod
    685 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
     685USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    686686              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    687687IMPLICIT none
    … …  
    906906
    907907USE dimphy, ONLY: klon, klev
    908 USE phys_state_var_mod, ONLY : phys_tstep
    909 USE phys_state_var_mod, ONLY : topsw, toplw, solsw, sollw, rain_con, snow_con, bs_fall
     908USE phys_state_var_mod, ONLY: phys_tstep
     909USE phys_state_var_mod, ONLY: topsw, toplw, solsw, sollw, rain_con, snow_con, bs_fall
    910910USE geometry_mod, ONLY: longitude_deg, latitude_deg
    911911USE print_control_mod, ONLY: prt_level
    912912USE cmp_seri_mod
    913 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
     913USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    914914              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    915915USE phys_local_var_mod, ONLY: evap, sens
    916916USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, qbs_seri, q_seri, t_seri &
    917917      , rain_lsc, snow_lsc
    918 USE climb_hq_mod, ONLY : d_h_col_vdf, f_h_bnd
     918USE climb_hq_mod, ONLY: d_h_col_vdf, f_h_bnd
    919919IMPLICIT none
    920920include "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/ajsec.F90

    r4143 r5101  
    1111    USE infotrac_phy, ONLY: ntraciso =>ntiso   
    1212#ifdef ISOVERIF
    13   USE isotopes_mod, ONLY : iso_eau,iso_HDO
     13  USE isotopes_mod, ONLY: iso_eau,iso_HDO
    1414  USE isotopes_verif_mod, ONLY: iso_verif_egalite, &
    1515        iso_verif_egalite_choix,iso_verif_noNaN,errmax,errmaxrel
    … …  
    305305    USE infotrac_phy, ONLY: ntraciso=>ntiso   
    306306#ifdef ISOVERIF
    307   USE isotopes_mod, ONLY : iso_eau,iso_HDO
     307  USE isotopes_mod, ONLY: iso_eau,iso_HDO
    308308  USE isotopes_verif_mod, ONLY: iso_verif_egalite, &
    309309        iso_verif_egalite_choix,iso_verif_noNaN,errmax,errmaxrel

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/calwake.F90

    r5099 r5101  
    3434  USE indice_sol_mod, ONLY: is_oce
    3535  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    36   USE lmdz_wake, ONLY : wake
    37 #ifdef ISO
    38   USE infotrac_phy, ONLY : ntraciso=>ntiso
     36  USE lmdz_wake, ONLY: wake
     37#ifdef ISO
     38  USE infotrac_phy, ONLY: ntraciso=>ntiso
    3939#ifdef ISOVERIF
    4040  USE isotopes_mod, ONLY: iso_eau

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/change_srf_frac_mod.F90

    r5099 r5101  
    2727
    2828    USE dimphy
    29     USE surface_data, ONLY : type_ocean,version_ocean
     29    USE surface_data, ONLY: type_ocean,version_ocean
    3030    USE limit_read_mod
    31     USE pbl_surface_mod, ONLY : pbl_surface_newfrac
    32     USE cpl_mod, ONLY : cpl_receive_frac
    33     USE ocean_slab_mod, ONLY : fsic, ocean_slab_frac
     31    USE pbl_surface_mod, ONLY: pbl_surface_newfrac
     32    USE cpl_mod, ONLY: cpl_receive_frac
     33    USE ocean_slab_mod, ONLY: fsic, ocean_slab_frac
    3434    USE indice_sol_mod
    3535    USE print_control_mod, ONLY: lunout

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_routines.F90

    r5099 r5101  
    77SUBROUTINE cv3_param(nd, k_upper, delt)
    88
    9   USE ioipsl_getin_p_mod, ONLY : getin_p
     9  USE ioipsl_getin_p_mod, ONLY: getin_p
    1010  use mod_phys_lmdz_para
    1111
    … …  
    321321#endif
    322322
    323   USE mod_phys_lmdz_transfert_para, ONLY : bcast
     323  USE mod_phys_lmdz_transfert_para, ONLY: bcast
    324324  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    325325  USE print_control_mod, ONLY: prt_level
    … …  
    46934693
    46944694    USE print_control_mod, ONLY: lunout, prt_level
    4695     USE add_phys_tend_mod, only : fl_cor_ebil
     4695    USE add_phys_tend_mod, ONLY: fl_cor_ebil
    46964696
    46974697#ifdef ISO

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3a_uncompress.F90

    r5099 r5101  
    5454
    5555#ifdef ISO
    56   USE infotrac_phy, ONLY : ntraciso=>ntiso
     56  USE infotrac_phy, ONLY: ntraciso=>ntiso
    5757#endif
    5858  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv_driver.F90

    r5099 r5101  
    12291229SUBROUTINE cv_flag(iflag_ice_thermo)
    12301230
    1231   USE ioipsl_getin_p_mod, ONLY : getin_p
     1231  USE ioipsl_getin_p_mod, ONLY: getin_p
    12321232
    12331233  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_mod.F90

    r5098 r5101  
    433433SUBROUTINE getinp_s(nam, val, def, lDisp)
    434434   USE ioipsl_getincom, ONLY: getin
    435    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    436    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    437    USE mod_phys_lmdz_transfert_para, ONLY : bcast
     435   USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     436   USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
     437   USE mod_phys_lmdz_transfert_para, ONLY: bcast
    438438   CHARACTER(LEN=*),           INTENT(IN)    :: nam
    439439   CHARACTER(LEN=*),           INTENT(INOUT) :: val
    … …  
    452452SUBROUTINE getinp_i(nam, val, def, lDisp)
    453453   USE ioipsl_getincom, ONLY: getin
    454    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    455    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    456    USE mod_phys_lmdz_transfert_para, ONLY : bcast
     454   USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     455   USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
     456   USE mod_phys_lmdz_transfert_para, ONLY: bcast
    457457   CHARACTER(LEN=*),  INTENT(IN)    :: nam
    458458   INTEGER,           INTENT(INOUT) :: val
    … …  
    471471SUBROUTINE getinp_r(nam, val, def, lDisp)
    472472   USE ioipsl_getincom, ONLY: getin
    473    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    474    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    475    USE mod_phys_lmdz_transfert_para, ONLY : bcast
     473   USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     474   USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
     475   USE mod_phys_lmdz_transfert_para, ONLY: bcast
    476476   CHARACTER(LEN=*),  INTENT(IN)    :: nam
    477477   REAL,              INTENT(INOUT) :: val
    … …  
    490490SUBROUTINE getinp_l(nam, val, def, lDisp)
    491491   USE ioipsl_getincom, ONLY: getin
    492    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    493    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    494    USE mod_phys_lmdz_transfert_para, ONLY : bcast
     492   USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     493   USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
     494   USE mod_phys_lmdz_transfert_para, ONLY: bcast
    495495   CHARACTER(LEN=*),  INTENT(IN)    :: nam
    496496   LOGICAL,           INTENT(INOUT) :: val

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

    r5099 r5101  
    1586015860        xtrain_fall,xtsnow_fall, ql_ancien,xtl_ancien,qs_ancien,xts_ancien, &
    1586115861        rain_fall,snow_fall,fevap,fxtevap,xtsol,qsol
    15862       !USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy
     15862      !USE iostart, ONLY: close_startphy, get_field, get_var, open_startphy
    1586315863      !USE write_field_phy
    1586415864      USE indice_sol_mod, only: nbsrf 

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_verif_mod.F90

    r5087 r5101  
    9393
    9494        SUBROUTINE iso_verif_init()
    95         use ioipsl_getin_p_mod, ONLY : getin_p
     95        use ioipsl_getin_p_mod, ONLY: getin_p
    9696        use isotopes_mod, ONLY: iso_O17, iso_O18, iso_HDO
    9797        implicit none

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotrac_routines_mod.F90

    r5087 r5101  
    13731373        subroutine initialise_bassins_boites(presnivs)
    13741374        USE dimphy, only: klev
    1375         USE geometry_mod, ONLY : longitude_deg, latitude_deg
     1375        USE geometry_mod, ONLY: longitude_deg, latitude_deg
    13761376        use isotrac_mod, only: bassin_map,option_traceurs,boite_map
    13771377#ifdef ISOVERIF
    … …  
    22852285
    22862286        subroutine isotrac_recolorise_general(xt_seri,t_seri,zx_rh,presnivs)
    2287         USE geometry_mod, ONLY : latitude_deg
     2287        USE geometry_mod, ONLY: latitude_deg
    22882288        USE dimphy, only: klon,klev
    22892289        use isotrac_mod, only: option_traceurs,boite_map

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

    r5100 r5101  
    142142! This subroutine returns the sea surface temperature already read from limit.nc.
    143143
    144     USE dimphy, ONLY : klon
     144    USE dimphy, ONLY: klon
    145145#ifdef ISO
    146146    USE infotrac_phy, ONLY: niso
    … …  
    273273    USE mod_grid_phy_lmdz
    274274    USE mod_phys_lmdz_para
    275     USE surface_data, ONLY : type_ocean, ok_veget
     275    USE surface_data, ONLY: type_ocean, ok_veget
    276276    USE netcdf, ONLY:nf90_noerr,nf90_close,nf90_get_var,nf90_inq_varid,nf90_nowrite,&
    277277            nf90_inq_dimid,nf90_inquire_dimension,nf90_open,nf90_get_att,nf90_inquire
    278278    USE indice_sol_mod
    279279#ifdef ISO
    280     USE isotopes_mod, ONLY : iso_HTO,ok_prod_nucl_tritium
     280    USE isotopes_mod, ONLY: iso_HTO,ok_prod_nucl_tritium
    281281#ifdef ISOVERIF
    282     USE isotopes_verif_mod, ONLY : iso_verif_positif_nostop
    283 #endif
    284 #endif
    285     USE phys_cal_mod, ONLY : calend, year_len
     282    USE isotopes_verif_mod, ONLY: iso_verif_positif_nostop
     283#endif
     284#endif
     285    USE phys_cal_mod, ONLY: calend, year_len
    286286    USE print_control_mod, ONLY: lunout, prt_level
    287287    USE lmdz_XIOS, ONLY: xios_recv_field
    … …  
    357357
    358358          !--- WARNING IF CALENDAR IS KNOWN AND DOES NOT MATCH THE ONE OF LMDZ
    359           ierr=NF90_INQ_VARID(nid, 'TEMPS', nvarid)
     359          ierr=nf90_inq_varid(nid, 'TEMPS', nvarid)
    360360          ierr=nf90_get_att(nid, nvarid, 'calendar', calendar)
    361361          IF(ierr==nf90_noerr.AND.calendar/=calend.AND.prt_level>=1) THEN
    … …  
    369369            ierr=nf90_inq_dimid(nid,"time_year",ndimid)
    370370          ELSE
    371             ierr=NF90_INQUIRE(nid, UnlimitedDimID=ndimid)
     371            ierr=nf90_inquire(nid, UnlimitedDimID=ndimid)
    372372          ENDIF
    373373          ierr=nf90_inquire_dimension(nid, ndimid, len=nn)
    … …  
    469469
    470470! Ocean fraction
    471              ierr = NF90_INQ_VARID(nid, 'FOCE', nvarid)
     471             ierr = nf90_inq_varid(nid, 'FOCE', nvarid)
    472472             IF (ierr /= nf90_noerr) CALL abort_physic(modname, 'Le champ <FOCE> est absent',1)
    473473             
    … …  
    476476
    477477! Sea-ice fraction
    478              ierr = NF90_INQ_VARID(nid, 'FSIC', nvarid)
     478             ierr = nf90_inq_varid(nid, 'FSIC', nvarid)
    479479             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <FSIC> est absent',1)
    480480
    … …  
    487487
    488488! Land fraction
    489                 ierr = NF90_INQ_VARID(nid, 'FTER', nvarid)
     489                ierr = nf90_inq_varid(nid, 'FTER', nvarid)
    490490                IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <FTER> est absent',1)
    491491               
    … …  
    494494
    495495! Continentale ice fraction
    496                 ierr = NF90_INQ_VARID(nid, 'FLIC', nvarid)
     496                ierr = nf90_inq_varid(nid, 'FLIC', nvarid)
    497497                IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <FLIC> est absent',1)
    498498
    … …  
    509509          IF ( type_ocean /= 'couple') THEN
    510510
    511              ierr = NF90_INQ_VARID(nid, 'SST', nvarid)
     511             ierr = nf90_inq_varid(nid, 'SST', nvarid)
    512512             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <SST> est absent',1)
    513513
    … …  
    517517#ifdef ISO
    518518             IF ((iso_HTO.gt.0).and.(ok_prod_nucl_tritium)) THEN
    519                ierr = NF90_INQ_VARID(nid, 'TUOCE', nvarid)
     519               ierr = nf90_inq_varid(nid, 'TUOCE', nvarid)
    520520               IF (ierr /= nf90_noerr) CALL abort_gcm(modname,'Le champ <TUOCE> est absent',1)
    521521
    … …  
    545545
    546546! Read albedo
    547              ierr = NF90_INQ_VARID(nid, 'ALB', nvarid)
     547             ierr = nf90_inq_varid(nid, 'ALB', nvarid)
    548548             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <ALB> est absent',1)
    549549
    … …  
    552552
    553553! Read rugosity
    554              ierr = NF90_INQ_VARID(nid, 'RUG', nvarid)
     554             ierr = nf90_inq_varid(nid, 'RUG', nvarid)
    555555             IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <RUG> est absent',1)
    556556

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_lscp_old.F90

    r5099 r5101  
    2121  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    2222  USE print_control_mod, ONLY: prt_level, lunout
    23   USE lmdz_cloudth, only : cloudth, cloudth_v3, cloudth_v6
    24   USE ioipsl_getin_p_mod, ONLY : getin_p
     23  USE lmdz_cloudth, ONLY: cloudth, cloudth_v3, cloudth_v6
     24  USE ioipsl_getin_p_mod, ONLY: getin_p
    2525  USE phys_local_var_mod, ONLY: ql_seri,qs_seri
    2626  USE phys_local_var_mod, ONLY: rneblsvol
    2727  ! flag to include modifications to ensure energy conservation (if flag >0)
    28   USE add_phys_tend_mod, only : fl_cor_ebil
     28  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    2929  USE lmdz_lscp_ini, ONLY: iflag_t_glace,t_glace_min, t_glace_max, exposant_glace
    3030  USE lmdz_lscp_ini, ONLY: iflag_cloudth_vert, iflag_rain_incloud_vol
    … …  
    3232  USE lmdz_lscp_ini, ONLY: cld_tau_lsc, cld_tau_con, cld_lc_lsc, cld_lc_con
    3333  USE lmdz_lscp_ini, ONLY: reevap_ice, iflag_bergeron, iflag_fisrtilp_qsat, iflag_pdf
    34       use phys_output_var_mod, ONLY : cloudth_sth,cloudth_senv
    35       use phys_output_var_mod, ONLY : cloudth_sigmath,cloudth_sigmaenv
     34      use phys_output_var_mod, ONLY: cloudth_sth,cloudth_senv
     35      use phys_output_var_mod, ONLY: cloudth_sigmath,cloudth_sigmaenv
    3636
    3737

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

    r5099 r5101  
    2929  ! **************************************************************
    3030
    31   USE ioipsl_getin_p_mod, ONLY : getin_p
     31  USE ioipsl_getin_p_mod, ONLY: getin_p
    3232  USE dimphy
    3333  use mod_phys_lmdz_para
    3434  USE print_control_mod, ONLY: prt_level
    3535#ifdef ISO
    36   USE infotrac_phy, ONLY : ntraciso=>ntiso
     36  USE infotrac_phy, ONLY: ntraciso=>ntiso
    3737#ifdef ISOVERIF
    3838  USE isotopes_verif_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.F90

    r5099 r5101  
    2323
    2424    USE dimphy, ONLY: klon
    25     USE geometry_mod, ONLY : latitude
     25    USE geometry_mod, ONLY: latitude
    2626    USE surface_data, ONLY: type_ocean, ok_veget
    2727    USE pbl_surface_mod, ONLY: pbl_surface_init
    2828    USE fonte_neige_mod, ONLY: fonte_neige_init
    2929#ifdef ISO
    30   USE fonte_neige_mod,  ONLY : fonte_neige_init_iso
    31   USE pbl_surface_mod,  ONLY : pbl_surface_init_iso
     30  USE fonte_neige_mod,  ONLY: fonte_neige_init_iso
     31  USE pbl_surface_mod,  ONLY: pbl_surface_init_iso
    3232#endif
    3333    USE phys_state_var_mod
    … …  
    4040    USE mod_phys_lmdz_transfert_para, ONLY: bcast
    4141    USE mod_grid_phy_lmdz
    42     USE ioipsl_getin_p_mod, ONLY : getin_p
     42    USE ioipsl_getin_p_mod, ONLY: getin_p
    4343    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
    4444#ifdef ISO

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

    r5099 r5101  
    1111
    1212  USE dimphy, only: klon, zmasq, klev
    13   USE iophy, ONLY : init_iophy_new
    14   USE ocean_cpl_mod,    ONLY : ocean_cpl_init
    15   USE fonte_neige_mod,  ONLY : fonte_neige_init
    16   USE pbl_surface_mod,  ONLY : pbl_surface_init
     13  USE iophy, ONLY: init_iophy_new
     14  USE ocean_cpl_mod,    ONLY: ocean_cpl_init
     15  USE fonte_neige_mod,  ONLY: fonte_neige_init
     16  USE pbl_surface_mod,  ONLY: pbl_surface_init
    1717#ifdef ISO
    18   USE fonte_neige_mod,  ONLY : fonte_neige_init_iso
    19   USE pbl_surface_mod,  ONLY : pbl_surface_init_iso
    20 #endif
    21   USE phyetat0_get_mod, ONLY : phyetat0_get, phyetat0_srf
    22   USE surface_data,     ONLY : type_ocean, version_ocean
    23   USE phys_state_var_mod, ONLY : ancien_ok, clwcon, detr_therm, phys_tstep, &
     18  USE fonte_neige_mod,  ONLY: fonte_neige_init_iso
     19  USE pbl_surface_mod,  ONLY: pbl_surface_init_iso
     20#endif
     21  USE phyetat0_get_mod, ONLY: phyetat0_get, phyetat0_srf
     22  USE surface_data,     ONLY: type_ocean, version_ocean
     23  USE phys_state_var_mod, ONLY: ancien_ok, clwcon, detr_therm, phys_tstep, &
    2424       qsol, fevap, z0m, z0h, agesno, &
    2525       du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &

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

    r5099 r5101  
    1010!-------------------------------------------------------------------------------
    1111  USE dimphy, ONLY: klon, klev
    12   USE fonte_neige_mod,  ONLY : fonte_neige_final
    13   USE pbl_surface_mod,  ONLY : pbl_surface_final
     12  USE fonte_neige_mod,  ONLY: fonte_neige_final
     13  USE pbl_surface_mod,  ONLY: pbl_surface_final
    1414  USE phys_state_var_mod, ONLY: radpas, zmasq, pctsrf,                       &
    1515                                ftsol, beta_aridity, delta_tsurf, falb_dir,  &
    … …  
    3636                                wake_deltaxt                             
    3737#endif
    38   USE geometry_mod, ONLY : longitude_deg, latitude_deg
     38  USE geometry_mod, ONLY: longitude_deg, latitude_deg
    3939  USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var
    40   USE traclmdz_mod, ONLY : traclmdz_to_restart
     40  USE traclmdz_mod, ONLY: traclmdz_to_restart
    4141  USE infotrac_phy, ONLY: type_trac, nqtot, tracers, nbtr, niso
    4242#ifdef ISO
    … …  
    4545#endif
    4646#endif
    47   USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
     47  USE carbon_cycle_mod, ONLY: carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
    4848  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra
    4949  USE surface_data, ONLY: type_ocean, version_ocean
    50   USE ocean_slab_mod, ONLY : nslay, tslab, seaice, tice, fsic
     50  USE ocean_slab_mod, ONLY: nslay, tslab, seaice, tice, fsic
    5151  USE time_phylmdz_mod, ONLY: annee_ref, day_end, itau_phy, pdtphys
    5252  use config_ocean_skin_m, only: activate_ocean_skin 

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_local_var_mod.F90

    r5099 r5101  
    33
    44MODULE phys_local_var_mod
    5   USE lmdz_cppkeys_wrapper, ONLY : CPPKEY_STRATAER
     5  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    66  ! Variables locales pour effectuer les appels en serie
    77  !======================================================================
    … …  
    798798  SUBROUTINE phys_local_var_init
    799799    USE dimphy
    800     USE infotrac_phy, ONLY : nbtr, nqtot
    801 #ifdef ISO
    802 USE infotrac_phy, ONLY : ntraciso=>ntiso,niso
     800    USE infotrac_phy, ONLY: nbtr, nqtot
     801#ifdef ISO
     802USE infotrac_phy, ONLY: ntraciso=>ntiso,niso
    803803#endif
    804804    USE aero_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_output_mod.F90

    r5099 r5101  
    44  USE indice_sol_mod
    55  USE phys_output_var_mod
    6   USE phys_output_write_mod, ONLY : phys_output_write
     6  USE phys_output_write_mod, ONLY: phys_output_write
    77  REAL, DIMENSION(nfiles),SAVE :: ecrit_files
    88  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    … …  
    3838    USE strings_mod,  ONLY: maxlen
    3939    USE ioipsl
    40     USE phys_cal_mod, only : hour, calend
     40    USE phys_cal_mod, ONLY: hour, calend
    4141    USE mod_phys_lmdz_para
    4242    !Martin
    43     USE surface_data, ONLY : landice_opt
     43    USE surface_data, ONLY: landice_opt
    4444    USE phys_output_ctrlout_mod
    4545    USE mod_grid_phy_lmdz, only: klon_glo,nbp_lon,nbp_lat

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

    r5099 r5101  
    2222    USE ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
    2323    USE aero_mod
    24     USE add_phys_tend_mod, only : add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
     24    USE add_phys_tend_mod, ONLY: add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
    2525         fl_ebil, fl_cor_ebil
    2626    USE assert_m, only: assert
    2727    USE change_srf_frac_mod
    2828    USE conf_phys_m, only: conf_phys
    29     USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad
     29    USE carbon_cycle_mod, ONLY: infocfields_init, RCO2_glo, carbon_cycle_rad
    3030    USE CFMIP_point_locations   ! IM stations CFMIP
    3131    USE cmp_seri_mod
    … …  
    3737    USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
    3838         histwrite, ju2ymds, ymds2ju, getin
    39     USE ioipsl_getin_p_mod, ONLY : getin_p
     39    USE ioipsl_getin_p_mod, ONLY: getin_p
    4040    USE indice_sol_mod
    4141    USE infotrac_phy, ONLY: nqtot, nbtr, nqo, tracers, type_trac,ivap,iliq,isol
    … …  
    4343    USE strings_mod,  ONLY: strIdx
    4444    USE iophy
    45     USE limit_read_mod, ONLY : init_limit_read
     45    USE limit_read_mod, ONLY: init_limit_read
    4646    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured
    4747    USE mod_phys_lmdz_mpi_data, only: is_mpi_root
    … …  
    5151    USE open_climoz_m, only: open_climoz ! ozone climatology from a file
    5252    USE ozonecm_m, only: ozonecm ! ozone of J.-F. Royer
    53     USE pbl_surface_mod, ONLY : pbl_surface
     53    USE pbl_surface_mod, ONLY: pbl_surface
    5454    USE phyaqua_mod, only: zenang_an
    5555    USE phyetat0_mod, only: phyetat0
    … …  
    5757    USE phys_cal_mod, only: year_len, mth_len, days_elapsed, jh_1jan, &
    5858         year_cur, mth_cur,jD_cur, jH_cur, jD_ref, day_cur, hour, calend
    59 !!  USE phys_local_var_mod, ONLY : a long list of variables
     59!!  USE phys_local_var_mod, ONLY: a long list of variables
    6060!!              ==> see below, after "CPP Keys" section
    6161    USE phys_state_var_mod ! Variables sauvegardees de la physique
    … …  
    6464    USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level, &
    6565         alert_first_call, call_alert, prt_alerte
    66     USE readaerosol_mod, ONLY : init_aero_fromfile
    67     USE readaerosolstrato_m, ONLY : init_readaerosolstrato
     66    USE readaerosol_mod, ONLY: init_aero_fromfile
     67    USE readaerosolstrato_m, ONLY: init_readaerosolstrato
    6868    USE radlwsw_m, only: radlwsw
    6969    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    7070    USE regr_pr_time_av_m, only: regr_pr_time_av
    71     USE surface_data,     ONLY : type_ocean, ok_veget
     71    USE surface_data,     ONLY: type_ocean, ok_veget
    7272    USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time
    7373    USE tracinca_mod, ONLY: config_inca
    … …  
    7777    USE write_field_phy
    7878    USE wxios, ONLY: g_ctx, wxios_set_context
    79     USE lmdz_lscp, ONLY : lscp
    80     USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop
    81     USE lmdz_lscp_old, ONLY : fisrtilp
    82     USE lmdz_call_blowing_snow, ONLY : call_blowing_snow_sublim_sedim
    83     USE lmdz_wake_ini, ONLY : wake_ini
    84     USE yamada_ini_mod, ONLY : yamada_ini
    85     USE lmdz_atke_turbulence_ini, ONLY : atke_ini
    86     USE lmdz_thermcell_ini, ONLY : thermcell_ini, iflag_thermals_tenv
    87     USE lmdz_thermcell_dtke, ONLY : thermcell_dtke
    88     USE lmdz_blowing_snow_ini, ONLY : blowing_snow_ini , qbst_bs
    89     USE lmdz_lscp_ini, ONLY : lscp_ini
    90     USE lmdz_ratqs_main, ONLY : ratqs_main
    91     USE lmdz_ratqs_ini, ONLY : ratqs_ini
    92     USE lmdz_cloud_optics_prop_ini, ONLY : cloud_optics_prop_ini
    93     USE phys_output_var_mod, ONLY :      cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv
    94     USE phys_output_var_mod, ONLY : cloud_cover_sw, cloud_cover_sw_s2
     79    USE lmdz_lscp, ONLY: lscp
     80    USE lmdz_call_cloud_optics_prop, ONLY: call_cloud_optics_prop
     81    USE lmdz_lscp_old, ONLY: fisrtilp
     82    USE lmdz_call_blowing_snow, ONLY: call_blowing_snow_sublim_sedim
     83    USE lmdz_wake_ini, ONLY: wake_ini
     84    USE yamada_ini_mod, ONLY: yamada_ini
     85    USE lmdz_atke_turbulence_ini, ONLY: atke_ini
     86    USE lmdz_thermcell_ini, ONLY: thermcell_ini, iflag_thermals_tenv
     87    USE lmdz_thermcell_dtke, ONLY: thermcell_dtke
     88    USE lmdz_blowing_snow_ini, ONLY: blowing_snow_ini , qbst_bs
     89    USE lmdz_lscp_ini, ONLY: lscp_ini
     90    USE lmdz_ratqs_main, ONLY: ratqs_main
     91    USE lmdz_ratqs_ini, ONLY: ratqs_ini
     92    USE lmdz_cloud_optics_prop_ini, ONLY: cloud_optics_prop_ini
     93    USE phys_output_var_mod, ONLY:      cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv
     94    USE phys_output_var_mod, ONLY: cloud_cover_sw, cloud_cover_sw_s2
    9595    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
    9696
    … …  
    109109        USE phytracr_spl_mod, ONLY: phytracr_spl, phytracr_spl_out_init
    110110    USE phys_output_write_spl_mod
    111     USE phytrac_mod, ONLY : phytrac_init, phytrac
     111    USE phytrac_mod, ONLY: phytrac_init, phytrac
    112112    USE phys_output_write_mod
    113113
    … …  
    125125
    126126#ifdef CPP_RRTM
    127     USE YOERAD, ONLY : NRADLP
    128 !    USE YOESW, ONLY : RSUN
     127    USE YOERAD, ONLY: NRADLP
     128!    USE YOESW, ONLY: RSUN
    129129#endif
    130130
    … …  
    175175!!!!!!!!!!!!!!!!!!  END "USE" for CPP keys !!!!!!!!!!!!!!!!!!!!!!
    176176
    177 USE physiqex_mod, ONLY : physiqex
     177USE physiqex_mod, ONLY: physiqex
    178178USE phys_local_var_mod, ONLY: phys_local_var_init, phys_local_var_end, &
    179179       ! [Variables internes non sauvegardees de la physique]

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

    r5099 r5101  
    33
    44    ! flag to include modifications to ensure energy conservation (if flag >0)
    5     USE add_phys_tend_mod, only : fl_cor_ebil
     5    USE add_phys_tend_mod, ONLY: fl_cor_ebil
    66#ifdef ISO
    77    USE infotrac_phy, ONLY: ntiso,nqtot,ivap,iliq,isol,iqWIsoPha
Note: See TracChangeset for help on using the changeset viewer.