source: LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90 @ 4660

Last change on this file since 4660 was 4389, checked in by dcugnet, 23 months ago
  • revert to original "type_trac" management:
    • 4 characters keyword (lmdz, Inca, repr, co2i, into, aeNP, coag
    • no longer a list of component with "|" separator
    • the parsed (with "|" separator) version "types_trac" is no longer used
    • the sole routine using a list of component is readTracFiles
  • fix for INCA and CO2Aer modes: setGeneration is now a function, index corrections for had/vadv.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.1 KB
RevLine 
[775]1!
[2351]2!$Id: physics_distribution_mod.F90 4389 2023-01-23 10:28:51Z fairhead $
[775]3!
[2351]4MODULE physics_distribution_mod
[1565]5
[2351]6
7CONTAINS
8
9  SUBROUTINE init_physics_distribution(grid_type, nvertex, &
10                                       nbp, nbp_lon, nbp_lat, nbp_lev, &
11                                       communicator)
[3435]12  USE mod_phys_lmdz_para, ONLY: init_phys_lmdz_para, klon_omp
[2351]13  USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz
[3435]14  USE dimphy, ONLY : Init_dimphy
[4389]15  USE infotrac_phy, ONLY : type_trac
[3435]16#ifdef REPROBUS
17  USE CHEM_REP, ONLY : Init_chem_rep_phys
18#endif
19
[775]20  IMPLICIT NONE
[2351]21    INTEGER,INTENT(IN) :: grid_type
22    INTEGER,INTENT(IN) :: nvertex
23    INTEGER,INTENT(IN) :: nbp           
24    INTEGER,INTENT(IN) :: nbp_lon
25    INTEGER,INTENT(IN) :: nbp_lat
26    INTEGER,INTENT(IN) :: nbp_lev
27    INTEGER,INTENT(IN) :: communicator
28
29
30    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
[4127]31    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
[3435]32!$OMP PARALLEL
33    CALL init_dimphy(klon_omp,nbp_lev)
[2351]34
[4127]35#ifdef INCA
36       CALL Init_inca_dim(klon_omp,nbp_lev)
37#endif
38
[4172]39#ifdef REPROBUS
[3435]40! Initialization of Reprobus
[4389]41    IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
[3435]42#endif
43
44!$OMP END PARALLEL
45
[2351]46  END SUBROUTINE init_physics_distribution 
47
48!SUBROUTINE Init_Phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
49!  USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para!, klon_omp
50!  USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz!, nbp_lev
51!  USE dimphy, ONLY : Init_dimphy
[4389]52!  USE infotrac_phy, ONLY : type_trac
[2351]53!#ifdef REPROBUS
54!  USE CHEM_REP, ONLY : Init_chem_rep_phys
55!#endif
56
57!  IMPLICIT NONE
[775]58 
[2351]59!    INTEGER,INTENT(in) :: iim
60!    INTEGER,INTENT(in) :: jjp1
61!    INTEGER,INTENT(in) :: llm
62!    INTEGER,INTENT(in) :: nb_proc
63!    INTEGER,INTENT(in) :: distrib(0:nb_proc-1)
[775]64
65
[2351]66!    CALL Init_grid_phy_lmdz(iim,jjp1,llm)
67!    CALL Init_phys_lmdz_para(iim,jjp1,nb_proc,distrib)
68!!$OMP PARALLEL
69!    CALL Init_dimphy(klon_omp,nbp_lev)
70!
[4172]71!#ifdef REPROBUS
[2351]72!! Initialization of Reprobus
[4389]73!    IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
[4172]74!    END IF
[2351]75!#endif
76!
77!!$OMP END PARALLEL
78 
79!END SUBROUTINE Init_Phys_lmdz 
[1565]80
81
[2351]82
83
84
85
86
87
88END MODULE physics_distribution_mod
89
Note: See TracBrowser for help on using the repository browser.