Ignore:
Timestamp:
Jul 24, 2024, 1:17:08 PM (4 months ago)
Author:
abarral
Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

Location:
LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat
Files:
9 edited

Legend:

Unmodified
Added
Removed

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

    r5105 r5113  
    114114  REAL,INTENT(IN) :: pducov(iip1,jjp1,llm) ! dynamical tendency on ucov
    115115  REAL,INTENT(IN) :: pdteta(iip1,jjp1,llm) ! dynamical tendency on teta
    116   ! ! NB: pdteta is used only to compute pcvgt which is in fact not used...
     116  ! NB: pdteta is used only to compute pcvgt which is in fact not used...
    117117  REAL,INTENT(IN) :: pdq(iip1,jjp1,llm,nqtot) ! dynamical tendency on tracers
    118   ! ! NB: pdq is only used to compute pcvgq which is in fact not used...
     118  ! NB: pdq is only used to compute pcvgq which is in fact not used...
    119119
    120120  REAL,INTENT(IN) :: pps(iip1,jjp1) ! surface pressure (Pa)
    … …  
    123123  REAL,INTENT(IN) :: flxw(iip1,jjp1,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) (on llm because flxw(:,:,llm+1)=0)
    124124
    125   ! ! tendencies (in */s) from the physics
     125  ! tendencies (in */s) from the physics
    126126  REAL,INTENT(OUT) :: pdvfi(iip1,jjm,llm) ! tendency on covariant meridional wind
    127127  REAL,INTENT(OUT) :: pdufi(iip1,jjp1,llm) ! tendency on covariant zonal wind

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

    r5099 r5113  
    55!*******************************************************************************
    66
    7   USE assert_eq_m, ONLY: assert_eq
     7  USE lmdz_assert_eq, ONLY: assert_eq
    88
    99  PRIVATE

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

    r5110 r5113  
    135135    REAL, INTENT(IN) :: flxw(iip1, jjb_u:jje_u, llm) ! Vertical mass flux on lower mesh interfaces (kg/s) (on llm because flxw(:,:,llm+1)=0)
    136136
    137     ! ! tendencies (in */s) from the physics
     137    ! tendencies (in */s) from the physics
    138138    REAL, INTENT(OUT) :: pdvfi(iip1, jjb_v:jje_v, llm) ! tendency on covariant meridional wind
    139139    REAL, INTENT(OUT) :: pdufi(iip1, jjb_u:jje_u, llm) ! tendency on covariant zonal wind

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

    r5110 r5113  
    3131  REAL,INTENT(IN) :: prad ! radius of the planet (m)
    3232  REAL,INTENT(IN) :: pg ! gravitational acceleration (m/s2)
    33   REAL,INTENT(IN) :: pr ! ! reduced gas constant R/mu
     33  REAL,INTENT(IN) :: pr ! reduced gas constant R/mu
    3434  REAL,INTENT(IN) :: pcpp ! specific heat Cp
    3535  REAL,INTENT(IN) :: punjours ! length (in s) of a standard day

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

    r5106 r5113  
    3535!-------------------------------------------------------------------------------
    3636  USE ioipsl,         ONLY: flininfo, flinopen, flinget, flinclo, histclo
    37   USE assert_eq_m,    ONLY: assert_eq
     37  USE lmdz_assert_eq,    ONLY: assert_eq
    3838  USE comconst_mod, ONLY: pi, cpp, kappa
    3939  USE comvert_mod, ONLY: ap, bp, preff, pressure_exner
    … …  
    389389!-------------------------------------------------------------------------------
    390390  USE conf_dat_m, ONLY: conf_dat3d
    391   USE pchsp_95_m, ONLY: pchsp_95
    392   USE pchfe_95_m, ONLY: pchfe_95
     391  USE lmdz_libmath_pch, ONLY: pchsp_95, pchfe_95
    393392  IMPLICIT NONE
    394393!-------------------------------------------------------------------------------

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

    r5103 r5113  
    3838
    3939  USE ioipsl,             ONLY: flininfo, flinopen, flinget, flinclo
    40   USE assert_eq_m,        ONLY: assert_eq
     40  USE lmdz_assert_eq,        ONLY: assert_eq
    4141  USE dimphy,             ONLY: klon
    4242  USE conf_dat_m,         ONLY: conf_dat2d

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

    r5112 r5113  
    5757  REAL, INTENT (IN) :: prad ! radius of the planet (m)
    5858  REAL, INTENT (IN) :: pg ! gravitational acceleration (m/s2)
    59   REAL, INTENT (IN) :: pr ! ! reduced gas constant R/mu
     59  REAL, INTENT (IN) :: pr ! reduced gas constant R/mu
    6060  REAL, INTENT (IN) :: pcpp ! specific heat Cp
    6161  REAL, INTENT (IN) :: punjours ! length (in s) of a standard day

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

    r5112 r5113  
    1818
    1919  USE ioipsl, ONLY: flininfo, flinopen, flinget, flinclo
    20   USE assert_eq_m, ONLY: assert_eq
     20  USE lmdz_assert_eq, ONLY: assert_eq
    2121  USE cal_tools_m, ONLY: year_len, mid_month
    2222  USE conf_dat_m, ONLY: conf_dat2d, conf_dat3d
    … …  
    327327              nf90_close, nf90_inq_dimid, nf90_inquire_dimension, nf90_get_var, &
    328328              nf90_get_att
    329       USE pchsp_95_m, ONLY: pchsp_95
    330       USE pchfe_95_m, ONLY: pchfe_95
    331       USE arth_m, ONLY: arth
     329      USE lmdz_libmath_pch, ONLY: pchsp_95, pchfe_95
     330      USE lmdz_arth, ONLY: arth
    332331      USE indice_sol_mod
    333332      USE lmdz_abort_physic, ONLY: abort_physic

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

    r5112 r5113  
    11module test_disvert_m
    22
    3   implicit none
     3  IMPLICIT NONE
    44
    55contains
Note: See TracChangeset for help on using the changeset viewer.