Ignore:
Timestamp:
Oct 28, 2024, 11:17:48 AM (6 weeks ago)
Author:
abarral
Message:

Turn comgeom.h comgeom2.h into modules

Location:
LMDZ6/trunk/libf/dynphy_lonlat
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis.f90

    r5272 r5281  
    2929  !    Auteur :  P. Le Van, F. Hourdin
    3030  !   .........
     31  USE comgeom2_mod_h
    3132  USE infotrac, ONLY: nqtot, tracers
    3233  USE control_mod, ONLY: planet_type, nsplit_phys
    … …  
    9495  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    9596
    96   include "comgeom2.h"
    9797  include "iniprint.h"
    9898

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

    r5272 r5281  
    5151  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    5252#ifdef CPP_PARA
     53  USE comgeom2_mod_h
    5354  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5455  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    111112  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    112113
    113   include "comgeom2.h"
    114114  include "iniprint.h"
    115115  !    Arguments :

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

    r5272 r5281  
    3939#endif
    4040
     41  USE comgeom2_mod_h
    4142  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, kappa, omeg, r, rad, &
    4243                          pi, jmp1
    … …  
    5556
    5657
    57   include "comgeom2.h"
    5858  include "iniprint.h"
    5959 

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5280 r5281  
    4545          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4646  USE comdissnew_mod_h
     47  USE comgeom2_mod_h
    4748IMPLICIT NONE
    4849
    … …  
    5354
    5455
    55   include "comgeom2.h"
    5656  REAL, SAVE :: deg2rad
    5757  INTEGER,            SAVE      :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r5273 r5281  
    5757          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    5858  USE dimsoil_mod_h, ONLY: nsoilmx
     59  USE comgeom2_mod_h
    5960  PRIVATE
    6061  PUBLIC :: etat0phys_netcdf
    6162
    6263  include "iniprint.h"
    63   include "comgeom2.h"
    6464  include "clesphys.h"
    6565  REAL, SAVE :: deg2rad

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5272 r5281  
    3838  USE bands, ONLY : distrib_phys
    3939#endif
    40   USE mod_phys_lmdz_omp_data, ONLY: klon_omp
     40  USE comgeom_mod_h
     41  USE mod_phys_lmdz_omp_data, ONLY: klon_omp
    4142  USE ioipsl_getin_p_mod, ONLY: getin_p
    4243  USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
    … …  
    5657  include "iniprint.h"
    5758  include "tracstoke.h"
    58   include "comgeom.h"
    5959
    6060  REAL, INTENT (IN) :: prad ! radius of the planet (m)

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90

    r5272 r5281  
    33!*******************************************************************************
    44
     5  USE comgeom2_mod_h
    56  USE indice_sol_mod,     ONLY: is_ter, is_oce, is_oce, is_lic, epsfra
    67  USE dimphy,             ONLY: klon, zmasq
    … …  
    2021  PUBLIC :: start_init_subsurf
    2122  include "iniprint.h"
    22   include "comgeom2.h"
    2323
    2424CONTAINS

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r5272 r5281  
    7070!-------------------------------------------------------------------------------
    7171#ifndef CPP_1D
     72  USE comgeom2_mod_h
    7273  USE indice_sol_mod
    7374  USE netcdf,             ONLY: NF90_OPEN,    NF90_CREATE,  NF90_CLOSE,        &
    … …  
    8283  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
    8384  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    84 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     85  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    8586          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    86 IMPLICIT NONE
     87  USE comgeom2_mod_h
     88  IMPLICIT NONE
    8789!-------------------------------------------------------------------------------
    8890! Arguments:
    … …  
    9395  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis   ! ground geopotential
    9496  LOGICAL,                    INTENT(IN)    :: extrap ! SST extrapolation flag
    95 !-------------------------------------------------------------------------------
    96 ! Local variables:
    97   include "comgeom2.h"
    9897
    9998!--- INPUT NETCDF FILES AND VARIABLES NAMES ------------------------------------
    … …  
    339338
    340339
    341   include "comgeom2.h"
    342340!-----------------------------------------------------------------------------
    343341! Arguments:
Note: See TracChangeset for help on using the changeset viewer.