Changeset 5295


Ignore:
Timestamp:
Oct 30, 2024, 2:05:05 PM (4 weeks ago)
Author:
abarral
Message:

lint
F90 -> f90
finish removing svn !Id: headers, which were inconsistent

Location:
LMDZ6/branches/Amaury_dev/libf
Files:
7 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/vlspltgen_loc.F90

    r5182 r5295  
    2424  USE parallel_lmdz
    2525  USE mod_hallo
    26   USE write_field_loc, ONLY: WriteField_u, WriteField_v
    2726  USE lmdz_vampir
    2827  ! CRisi: on rajoute variables utiles d'infotrac

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.F90

    r5182 r5295  
    88!      CPP_PHYS       -> CPPKEY_PHYS
    99!      INCA           -> CPPKEY_INCA   ! -> also in lmdz_inca_wrappers.F90
    10 !      REPROBUS       -> CPPKEY_REPROBUS ! -> also in lmdz_reprobus_wrappers.F90
     10!      REPROBUS       -> CPPKEY_REPROBUS  ! -> also in lmdz_reprobus_wrappers.F90
    1111!      CPP_StratAer   -> CPPKEY_STRATAER
    12 !      CPP_DUST       -> CPPKEY_DUST
    13 !      CPP_INLANDSIS  -> CPPKEY_INLANDSIS
    14 !      OUTPUT_PHYS_SCM-> CPPKEY_OUTPUTPHYSSCM
    15 !      CPP_COSP       -> CPPKEY_COSP
    16 !      CPP_COSP2      -> CPPKEY_COSP2
    17 !      CPP_COSPV2     -> CPPKEY_COSPV2
     12!      CPP_DUST       -> CPPKEY_DUST  ! only used in PHYS
     13!      CPP_INLANDSIS  -> CPPKEY_INLANDSIS  ! only used in PHYS
     14!      OUTPUT_PHYS_SCM-> CPPKEY_OUTPUTPHYSSCM ! only used in DYN1D
     15!      CPP_COSP       -> CPPKEY_COSP  ! only used in PHYS
     16!      CPP_COSP2      -> CPPKEY_COSP2  ! only used in PHYS
     17!      CPP_COSPV2     -> CPPKEY_COSPV2  ! only used in PHYS
     18!
     19! NB Laurent 09/24: Certaines clés sont utilisées uniquement dans la physique, mais on décide de les laisser dans misc/ pour l'instant.
    1820! ---------------------------------------------
    1921

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read.F90

    r5160 r5295  
    11MODULE mod_1D_cases_read
    2   USE netcdf, ONLY: nf90_noerr, nf90_strerror, nf90_inq_varid, nf90_inquire_dimension, nf90_inq_dimid, &
    3           nf90_nowrite, nf90_open, nf90_get_var
    42
    53  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    256254
    257255    !program reading forcing of the case study
     256    USE netcdf, ONLY: nf90_get_var
    258257
    259258    INTEGER ntime, nlevel

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read2.F90

    r5160 r5295  
    309309  !**********************************************************************************************
    310310  SUBROUTINE old_read_SCM_cas
     311    USE netcdf, ONLY: nf90_get_var
    311312    USE lmdz_date_cas, ONLY: year_ini_cas, mth_ini_cas, day_deb, heure_ini_cas, pdt_cas, day_ju_ini_cas
    312313
    … …  
    529530
    530531    !program reading forcing of the case study
     532    USE netcdf, ONLY: nf90_get_var
    531533    IMPLICIT NONE
    532534
    … …  
    641643
    642644    !program reading forcing of the case study
     645    USE netcdf, ONLY: nf90_get_var
    643646    IMPLICIT NONE
    644647
    … …  
    807810
    808811    !program reading forcing of the case study
     812    USE netcdf, ONLY: nf90_get_var
    809813    IMPLICIT NONE
    810814

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_clesphys.f90

    r5224 r5295  
    7474  REAL(kind = 8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act
    7575  REAL(kind = 8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
    76   !IM ajout CFMIP2/CMIP5
     76  !IM ajout CFMIP2/CMIP5ok_bs
    7777  REAL(kind = 8) RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per
    7878  REAL(kind = 8) CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_yoerad.f90

    r5099 r5295  
    1 ! Copied from rrtm/yoerad.F90 to allow compilation of StratAer blocks
     1! Sourced from rrtm/yoerad.F90 to allow compilation of StratAer blocks
    22
    33MODULE lmdz_yoerad

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

    r5231 r5295  
    5757
    5858    USE indice_sol_mod
    59   USE lmdz_clesphys
    60   USE lmdz_yomcst
     59    USE lmdz_clesphys
     60    USE lmdz_yomcst
    6161
    6262    !    INCLUDE "indicesol.h"
Note: See TracChangeset for help on using the changeset viewer.