Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (12 months ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

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

Legend:

Unmodified
Added
Removed

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

    r5158 r5159  
    11! $Id$
    22
    3 !
    4 !
     3
     4
    55SUBROUTINE calfis(lafin, &
    66        jD_cur, jH_cur, &
    … …  
    2525        pdqfi, &
    2626        pdpsfi)
    27   !
     27
    2828  !    Auteur :  P. Le Van, F. Hourdin
    2929  !   .........
    … …  
    3737  USE lmdz_ssum_scopy, ONLY: scopy, ssum
    3838  USE lmdz_comgeom2
     39  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     40  USE lmdz_paramet
    3941
    4042  IMPLICIT NONE
    4143  !=======================================================================
    42   !
     44
    4345  !   1. rearrangement des tableaux et transformation
    4446  !  variables dynamiques  >  variables physiques
    4547  !   2. calcul des termes physiques
    4648  !   3. retransformation des tendances physiques en tendances dynamiques
    47   !
     49
    4850  !   remarques:
    4951  !   ----------
    50   !
     52
    5153  !    - les vents sont donnes dans la physique par leurs composantes
    5254  !  naturelles.
    … …  
    6466  !      ngridmx pour le pole sud
    6567  !  ---> ngridmx=2+(jjm-1)*iim
    66   !
     68
    6769  ! Input :
    6870  ! -------
    … …  
    7476  !   pts             surface temperature  (K)
    7577  !   callrad         clef d'appel au rayonnement
    76   !
     78
    7779  !    Output :
    7880  !    --------
    … …  
    8183  !    pdhfi          tendency for the potential temperature
    8284  !    pdtsfi         tendency for the surface temperature
    83   !
     85
    8486  !    pdtrad         radiative tendencies  \  both input
    8587  !    pfluxrad       radiative fluxes      /  and output
    86   !
     88
    8789  !=======================================================================
    88   !
     90
    8991  !-----------------------------------------------------------------------
    90   !
     92
    9193  !    0.  Declarations :
    9294  !    ------------------
    93 
    94   INCLUDE "dimensions.h"
    95   INCLUDE "paramet.h"
    9695
    9796  INTEGER :: ngridmx
    … …  
    137136  REAL :: zplev(ngridmx, llm + 1), zplay(ngridmx, llm)
    138137  REAL :: zphi(ngridmx, llm), zphis(ngridmx)
    139   !
     138
    140139  REAL :: zrot(iip1, jjm, llm) ! AdlC May 2014
    141140  REAL :: zufi(ngridmx, llm), zvfi(ngridmx, llm)
    … …  
    143142  REAL :: ztfi(ngridmx, llm), zqfi(ngridmx, llm, nqtot)
    144143  REAL :: zpk(ngridmx, llm)
    145   !
     144
    146145  REAL :: pcvgu(ngridmx, llm), pcvgv(ngridmx, llm)
    147146  REAL :: pcvgt(ngridmx, llm), pcvgq(ngridmx, llm, 2)
    148   !
     147
    149148  REAL :: zdufi(ngridmx, llm), zdvfi(ngridmx, llm)
    150149  REAL :: zdtfi(ngridmx, llm), zdqfi(ngridmx, llm, nqtot)
    151150  REAL :: zdpsrf(ngridmx)
    152   !
     151
    153152  REAL :: zdufic(ngridmx, llm), zdvfic(ngridmx, llm)
    154153  REAL :: zdtfic(ngridmx, llm), zdqfic(ngridmx, llm, nqtot)
    … …  
    160159  REAL :: zsinbis(iim), zcosbis(iim), z1bis(iim)
    161160  REAL :: unskap, pksurcp
    162   !
     161
    163162  REAL :: flxwfi(ngridmx, llm)  ! Flux de masse verticale sur la grille physiq
    164   !
     163
    165164  LOGICAL, SAVE :: firstcal = .TRUE., debut = .TRUE.
    166165  ! REAL rdayvrai
    167166
    168   !
     167
    169168  !-----------------------------------------------------------------------
    170   !
     169
    171170  !    1. Initialisations :
    172171  !    --------------------
    173   !
    174   !
     172
     173
    175174  IF (firstcal)  THEN
    176175    debut = .TRUE.
    … …  
    187186  ENDIF ! of IF (firstcal)
    188187
    189   !
    190   !
     188
     189
    191190  !-----------------------------------------------------------------------
    192191  !   40. transformation des variables dynamiques en variables physiques:
    … …  
    208207
    209208  !   42. pression intercouches et fonction d'Exner:
    210   !
     209
    211210  !   -----------------------------------------------------------------
    212211  ! .... zplev  definis aux (llm +1) interfaces des couches  ....
    … …  
    215214
    216215  !    ...    Exner = cp * ( p(l) / preff ) ** kappa     ....
    217   !
     216
    218217  unskap = 1. / kappa
    219   !
     218
    220219  DO l = 1, llm
    221220    zpk(1, l) = ppk(1, 1, l)
    … …  
    241240  ENDDO
    242241  zplev(ngridmx, llmp1) = pp(1, jjp1, llmp1)
    243   !
     242
    244243  !
    245244
    … …  
    274273  !   43.bis traceurs
    275274  !   ---------------
    276   !
     275
    277276  itr = 0
    278277  DO iq = 1, nqtot
    … …  
    337336  ! ENDDO
    338337
    339   !
     338
    340339  !   45. champ u:
    341340  !   ------------
    … …  
    452451    zrfi(ngridmx, l) = 0.
    453452  ENDDO
    454   !
     453
    455454  ! On change de grille, dynamique vers physiq, pour le flux de masse verticale
    456455  CALL gr_dyn_fi(llm, iip1, jjp1, ngridmx, flxw, flxwfi)
    … …  
    542541
    543542  CALL gr_fi_dyn(1, ngridmx, iip1, jjp1, zdpsrf, pdpsfi)
    544   !
     543
    545544  !   62. enthalpie potentielle
    546545  !   ---------------------
    … …  
    587586  ! initialisation des tendances
    588587  pdqfi(:, :, :, :) = 0.
    589   !
     588
    590589  itr = 0
    591590  DO iq = 1, nqtot

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

    r5158 r5159  
    5353    USE lmdz_ssum_scopy, ONLY: ssum
    5454    USE lmdz_comgeom2
    55 
     55    USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     56    USE lmdz_paramet
    5657
    5758    !=======================================================================
    … …  
    108109    !    0.  Declarations :
    109110    !    ------------------
    110 
    111     INCLUDE "dimensions.h"
    112     INCLUDE "paramet.h"
    113111
    114112    INTEGER :: ngridmx

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

    r5134 r5159  
    1313  SUBROUTINE Init_interface_dyn_phys
    1414    USE lmdz_phys_mpi_data
     15USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    1516    IMPLICIT NONE
    16     INCLUDE 'dimensions.h'
     17
    1718   
    1819    INTEGER :: i,j,k

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

    r5136 r5159  
    4848  USE lmdz_comgeom2
    4949
     50  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     51  USE lmdz_paramet
    5052  IMPLICIT NONE
    5153
    5254  !-------------------------------------------------------------------------------
    5355  ! Local variables:
    54   INCLUDE "dimensions.h"
    55   INCLUDE "paramet.h"
     56
     57
    5658
    5759  REAL :: masque(iip1, jjp1)             !--- CONTINENTAL MASK

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

    r5136 r5159  
    4545  USE lmdz_comgeom2
    4646
     47USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     48  USE lmdz_paramet
    4749  IMPLICIT NONE
    4850
    … …  
    5052  PUBLIC :: etat0dyn_netcdf
    5153
    52   INCLUDE "dimensions.h"
    53   INCLUDE "paramet.h"
     54
     55
    5456  REAL, SAVE :: deg2rad
    5557  INTEGER, SAVE :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn

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

    r5158 r5159  
    5252  USE comconst_mod, ONLY: pi, dtvr
    5353  USE lmdz_iniprint, ONLY: lunout, prt_level
     54  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    5455  USE lmdz_comgeom2
    5556  USE lmdz_clesphys
     57  USE lmdz_paramet
    5658
    5759  PRIVATE
    5860  PUBLIC :: etat0phys_netcdf
    5961
    60   INCLUDE "dimensions.h"
    61   INCLUDE "paramet.h"
     62
    6263  INCLUDE "dimsoil.h"
    6364  REAL, SAVE :: deg2rad

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

    r5158 r5159  
    4545    USE lmdz_tracstoke
    4646
     47USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     48  USE lmdz_paramet
    4749    IMPLICIT NONE
    4850
    … …  
    5254    ! =======================================================================
    5355
    54     INCLUDE "dimensions.h"
    55     INCLUDE "paramet.h"
     56
     57
    5658
    5759    REAL, INTENT (IN) :: prad ! radius of the planet (m)

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

    r5136 r5159  
    33  !*******************************************************************************
    44
     5  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    56  USE indice_sol_mod, ONLY: is_ter, is_oce, is_oce, is_lic, epsfra
    67  USE dimphy, ONLY: klon, zmasq
    … …  
    1415  USE lmdz_iniprint, ONLY: lunout, prt_level
    1516  USE lmdz_comgeom2
     17  USE lmdz_paramet
    1618
    1719  CHARACTER(LEN = 256), PARAMETER :: icefname = "landiceref.nc", icevar = "landice"
    1820  PRIVATE
    1921  PUBLIC :: start_init_subsurf
    20   INCLUDE "dimensions.h"
    21   INCLUDE "paramet.h"
    2222
    2323CONTAINS

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

    r5136 r5159  
    8484    USE lmdz_comgeom2
    8585
     86  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     87  USE lmdz_paramet
    8688    IMPLICIT NONE
    8789    !-------------------------------------------------------------------------------
    8890    ! Arguments:
    89     INCLUDE "dimensions.h"
    90     INCLUDE "paramet.h"
     91
     92
    9193    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: masque ! land mask
    9294    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: phis   ! ground geopotential
    … …  
    335337      USE lmdz_comgeom2
    336338
     339USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     340  USE lmdz_paramet
    337341      IMPLICIT NONE
    338       INCLUDE "dimensions.h"
    339       INCLUDE "paramet.h"
     342
     343
    340344      !-----------------------------------------------------------------------------
    341345      ! Arguments:

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

    r5158 r5159  
    11module test_disvert_m
    22
     3  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    34  IMPLICIT NONE
    45
    … …  
    1920
    2021    ! For llm:
    21     INCLUDE "dimensions.h"
     22
    2223
    2324    ! Local:
Note: See TracChangeset for help on using the changeset viewer.