Ignore:
Timestamp:
Jul 26, 2024, 5:56:37 PM (12 months ago)
Author:
abarral
Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust
Files:
11 edited

Legend:

Unmodified
Added
Removed

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

    r5105 r5134  
    1010  USE dimphy
    1111  USE infotrac
    12   IMPLICIT none
     12  IMPLICIT NONE
    1313  !
    1414  INCLUDE "chem.h"

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

    r5105 r5134  
    33
    44  USE dimphy
    5   IMPLICIT none
     5  IMPLICIT NONE
    66  !======================================================================
    77  ! Auteur(s): O. Boucher (LOA/LMD) date: 19961127

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

    r5117 r5134  
    55  USE dimphy
    66  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
    7   IMPLICIT none
     7  IMPLICIT NONE
    88
    99  ! Lire les conditions aux limites du modele pour la chimie.

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

    r5117 r5134  
    77  USE dimphy
    88  USE netcdf, ONLY: nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
    9   IMPLICIT none
     9  IMPLICIT NONE
    1010
    1111  ! Lire les conditions aux limites du modele pour la chimie.

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

    r5117 r5134  
    66  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, &
    77          nf90_nowrite, nf90_get_var
    8   IMPLICIT none
     8  IMPLICIT NONE
    99
    1010  ! Lire les conditions aux limites du modele pour la chimie.

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

    r5117 r5134  
    1010  USE dimphy
    1111  USE netcdf, ONLY: nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
    12   IMPLICIT none
     12  IMPLICIT NONE
    1313
    1414  ! Lire les conditions aux limites du modele pour la chimie.

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

    r5117 r5134  
    2121!=====================================================================
    2222
    23   include "dimensions.h"
    24   include "chem.h"
    25   include "YOECUMF.h"
     23  INCLUDE "dimensions.h"
     24  INCLUDE "chem.h"
     25  INCLUDE "YOECUMF.h"
    2626
    2727  REAL,INTENT(IN)                        :: pdtime ! time step (s)

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

    r5117 r5134  
    2323! SPLA version taken from trunk revision 2041
    2424
    25   include "dimensions.h"
    26   include "chem.h"
    27   include "YOECUMF.h"
     25  INCLUDE "dimensions.h"
     26  INCLUDE "chem.h"
     27  INCLUDE "YOECUMF.h"
    2828
    2929  REAL,INTENT(IN)                        :: pdtime ! time step (s)

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

    r5123 r5134  
    7575  !JE20150620>>
    7676
    77   ! Author: Abderrahmane IDELKADI (original include file)
     77  ! Author: Abderrahmane IDELKADI (original INCLUDE file)
    7878  ! Author: Laurent FAIRHEAD (transformation to module/subroutine)
    7979  ! Author: Ulysse GERARD (effective implementation)
    … …  
    396396    USE lmdz_yomcst
    397397    USE lmdz_iniprint, ONLY: lunout, prt_level
     398    USE lmdz_alpale
    398399
    399400    IMPLICIT NONE
    … …  
    401402    !   INCLUDE "temps.h"
    402403    INCLUDE "clesphys.h"
    403     INCLUDE "alpale.h"
    404404    INCLUDE "compbl.h"
    405405    INCLUDE "dimensions.h"

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

    r5133 r5134  
    798798
    799799    USE lmdz_yomcst
    800 
    801     IMPLICIT none
     800    USE lmdz_alpale
     801
     802    IMPLICIT NONE
    802803
    803804    !======================================================================
    … …  
    817818    INCLUDE "YOETHF.h"
    818819    INCLUDE "paramet.h"
    819     INCLUDE "alpale.h"
    820820
    821821    !======================================================================
    … …  
    11611161    ! JE for updating in  cltrac
    11621162    REAL, DIMENSION(klon, klev) :: delp     ! epaisseur de couche (Pa)
    1163     !! JE for include gas to particle conversion in output
     1163    !! JE for INCLUDE gas to particle conversion in output
    11641164    !      REAL his_g2pgas(klon)      ! gastoparticle in gas units (check!)
    11651165    !      REAL his_g2paer(klon)      ! gastoparticle in aerosol units (check!)

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

    r5106 r5134  
    22
    33  USE dimphy
    4   IMPLICIT none
     4  IMPLICIT NONE
    55  !======================================================================
    66  ! Auteur(s): CG (LGGE/CNRS) date: 19950201
Note: See TracChangeset for help on using the changeset viewer.