Ignore:
Timestamp:
Jul 26, 2024, 5:56:37 PM (8 weeks 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/dynphy_lonlat
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.f90

    r5128 r5134  
    9292  !    ------------------
    9393
    94   include "dimensions.h"
    95   include "paramet.h"
     94  INCLUDE "dimensions.h"
     95  INCLUDE "paramet.h"
    9696
    9797  INTEGER :: ngridmx
    9898  PARAMETER(ngridmx = 2 + (jjm - 1) * iim - 1 / jjm)
    9999
    100   include "comgeom2.h"
     100  INCLUDE "comgeom2.h"
    101101
    102102  !    Arguments :

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/lmdz_calfis_loc.F90

    r5128 r5134  
    109109    !    ------------------
    110110
    111     include "dimensions.h"
    112     include "paramet.h"
     111    INCLUDE "dimensions.h"
     112    INCLUDE "paramet.h"
    113113
    114114    INTEGER :: ngridmx
    115115    PARAMETER(ngridmx = 2 + (jjm - 1) * iim - 1 / jjm)
    116116
    117     include "comgeom2.h"
     117    INCLUDE "comgeom2.h"
    118118    !    Arguments :
    119119    !    -----------

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/mod_interface_dyn_phys.F90

    r5117 r5134  
    1414    USE lmdz_phys_mpi_data
    1515    IMPLICIT NONE
    16     include 'dimensions.h'   
     16    INCLUDE 'dimensions.h'
    1717   
    1818    INTEGER :: i,j,k

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/ce0l.F90

    r5128 r5134  
    5252  !-------------------------------------------------------------------------------
    5353  ! Local variables:
    54   include "dimensions.h"
    55   include "paramet.h"
    56   include "comgeom2.h"
     54  INCLUDE "dimensions.h"
     55  INCLUDE "paramet.h"
     56  INCLUDE "comgeom2.h"
    5757
    5858  REAL :: masque(iip1, jjp1)             !--- CONTINENTAL MASK

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5128 r5134  
    4141  USE lmdz_strings, ONLY: strLower
    4242  USE lmdz_iniprint, ONLY: lunout, prt_level
     43  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
     44          tetagrot, tetatemp, coefdis, vert_prof_dissip
    4345
    4446  IMPLICIT NONE
    … …  
    4749  PUBLIC :: etat0dyn_netcdf
    4850
    49   include "dimensions.h"
    50   include "paramet.h"
    51   include "comgeom2.h"
    52   include "comdissnew.h"
     51  INCLUDE "dimensions.h"
     52  INCLUDE "paramet.h"
     53  INCLUDE "comgeom2.h"
    5354  REAL, SAVE :: deg2rad
    5455  INTEGER, SAVE :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

    r5132 r5134  
    5656  PUBLIC :: etat0phys_netcdf
    5757
    58   include "dimensions.h"
    59   include "paramet.h"
    60   include "comgeom2.h"
    61   include "dimsoil.h"
    62   include "clesphys.h"
     58  INCLUDE "dimensions.h"
     59  INCLUDE "paramet.h"
     60  INCLUDE "comgeom2.h"
     61  INCLUDE "dimsoil.h"
     62  INCLUDE "clesphys.h"
    6363  REAL, SAVE :: deg2rad
    6464  REAL, SAVE, ALLOCATABLE :: tsol(:)
    … …  
    9494    USE phys_state_var_mod, ONLY: beta_aridity, delta_tsurf, awake_dens, cv_gen, &
    9595            ratqs_inter_, rneb_ancien
     96    USE lmdz_alpale
     97
    9698    IMPLICIT NONE
    9799    !-------------------------------------------------------------------------------
    … …  
    128130
    129131    INCLUDE "compbl.h"
    130     INCLUDE "alpale.h"
    131132
    132133    deg2rad = pi / 180.0

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5118 r5134  
    4949    ! =======================================================================
    5050
    51     include "dimensions.h"
    52     include "paramet.h"
    53     include "tracstoke.h"
    54     include "comgeom.h"
     51    INCLUDE "dimensions.h"
     52    INCLUDE "paramet.h"
     53    INCLUDE "tracstoke.h"
     54    INCLUDE "comgeom.h"
    5555
    5656    REAL, INTENT (IN) :: prad ! radius of the planet (m)

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

    r5118 r5134  
    1717  PRIVATE
    1818  PUBLIC :: start_init_subsurf
    19   include "dimensions.h"
    20   include "paramet.h"
    21   include "comgeom2.h"
     19  INCLUDE "dimensions.h"
     20  INCLUDE "paramet.h"
     21  INCLUDE "comgeom2.h"
    2222
    2323CONTAINS

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/limit_netcdf.f90

    r5128 r5134  
    8585    !-------------------------------------------------------------------------------
    8686    ! Arguments:
    87     include "dimensions.h"
    88     include "paramet.h"
     87    INCLUDE "dimensions.h"
     88    INCLUDE "paramet.h"
    8989    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: masque ! land mask
    9090    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: phis   ! ground geopotential
    … …  
    9292    !-------------------------------------------------------------------------------
    9393    ! Local variables:
    94     include "comgeom2.h"
     94    INCLUDE "comgeom2.h"
    9595
    9696    !--- INPUT NETCDF FILES AND VARIABLES NAMES ------------------------------------
    … …  
    334334
    335335      IMPLICIT NONE
    336       include "dimensions.h"
    337       include "paramet.h"
    338       include "comgeom2.h"
     336      INCLUDE "dimensions.h"
     337      INCLUDE "paramet.h"
     338      INCLUDE "comgeom2.h"
    339339      !-----------------------------------------------------------------------------
    340340      ! Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/test_disvert_m.F90

    r5119 r5134  
    1919
    2020    ! For llm:
    21     include "dimensions.h"
     21    INCLUDE "dimensions.h"
    2222
    2323    ! Local:
Note: See TracChangeset for help on using the changeset viewer.