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

Legend:

Unmodified
Added
Removed

  • 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.