Ignore:
Timestamp:
Oct 28, 2024, 1:11:48 PM (13 months ago)
Author:
abarral
Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

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

Legend:

Unmodified
Added
Removed

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

    r5281 r5282  
    2929  !    Auteur :  P. Le Van, F. Hourdin
    3030  !   .........
     31  USE iniprint_mod_h
    3132  USE comgeom2_mod_h
    3233  USE infotrac, ONLY: nqtot, tracers
    … …  
    9596  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    9697
    97   include "iniprint.h"
    9898
    9999  !    Arguments :

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

    r5281 r5282  
    5151  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    5252#ifdef CPP_PARA
     53  USE iniprint_mod_h
    5354  USE comgeom2_mod_h
    5455  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    112113  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
    113114
    114   include "iniprint.h"
    115115  !    Arguments :
    116116  !    -----------

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

    r5268 r5282  
    99                     nbp, communicator, &
    1010                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv)
     11  USE iniprint_mod_h
    1112  USE mod_grid_phy_lmdz, ONLY: klon_glo,  & ! number of atmospheric columns (on full grid)
    1213                               regular_lonlat, &  ! regular longitude-latitude grid type
    … …  
    3435  ! =======================================================================
    3536
    36   include "iniprint.h"
    3737
    3838  INTEGER, INTENT (IN) :: nlayer ! number of atmospheric layers

  • LMDZ6/trunk/libf/dynphy_lonlat/phydev/iniphysiq_mod.f90

    r5268 r5282  
    1111                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv, &
    1212                     prad,pg,pr,pcpp,iflag_phys)
     13  USE iniprint_mod_h
    1314  USE dimphy, ONLY: init_dimphy
    1415  USE inigeomphy_mod, ONLY: inigeomphy
    … …  
    2223  !
    2324  !=======================================================================
    24   !   Initialisation of the physical constants and some positional and 
     25  !   Initialisation of the physical constants and some positional and
    2526  !   geometrical arrays for the physics
    2627  !=======================================================================
    27  
    28  
    29   include "iniprint.h"
     28
     29
    3030
    3131  REAL,INTENT(IN) :: prad ! radius of the planet (m)

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

    r5281 r5282  
    3939#endif
    4040
     41  USE iniprint_mod_h
    4142  USE comgeom2_mod_h
    4243  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, kappa, omeg, r, rad, &
    … …  
    5657
    5758
    58   include "iniprint.h"
    5959 
    6060  REAL               :: masque(iip1,jjp1)             !--- CONTINENTAL MASK

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

    r5281 r5282  
    4646  USE comdissnew_mod_h
    4747  USE comgeom2_mod_h
     48  USE iniprint_mod_h
    4849IMPLICIT NONE
    4950
    … …  
    5152  PUBLIC :: etat0dyn_netcdf
    5253
    53   include "iniprint.h"
    5454
    5555

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

    r5281 r5282  
    5858  USE dimsoil_mod_h, ONLY: nsoilmx
    5959  USE comgeom2_mod_h
     60  USE clesphys_mod_h
     61  USE iniprint_mod_h
    6062  PRIVATE
    6163  PUBLIC :: etat0phys_netcdf
    6264
    63   include "iniprint.h"
    64   include "clesphys.h"
    6565  REAL, SAVE :: deg2rad
    6666  REAL, SAVE, ALLOCATABLE :: tsol(:)

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

    r5281 r5282  
    3838  USE bands, ONLY : distrib_phys
    3939#endif
     40  USE iniprint_mod_h
    4041  USE comgeom_mod_h
    4142  USE mod_phys_lmdz_omp_data, ONLY: klon_omp
    … …  
    5556
    5657
    57   include "iniprint.h"
    5858  include "tracstoke.h"
    5959

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

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

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

    r5281 r5282  
    7070!-------------------------------------------------------------------------------
    7171#ifndef CPP_1D
     72  USE iniprint_mod_h
    7273  USE comgeom2_mod_h
    7374  USE indice_sol_mod
    … …  
    8990!-------------------------------------------------------------------------------
    9091! Arguments:
    91   include "iniprint.h"
    9292
    9393
Note: See TracChangeset for help on using the changeset viewer.