Changeset 4446 for LMDZ6/branches/Portage_acc/libf/phy_common
- Timestamp:
- Mar 1, 2023, 6:22:39 PM (16 months ago)
- Location:
- LMDZ6/branches/Portage_acc/libf/phy_common
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Portage_acc/libf/phy_common/physics_distribution_mod.F90
r4127 r4446 37 37 #endif 38 38 39 #ifdef REPROBUS 39 40 ! Initialization of Reprobus 40 IF (type_trac == 'repr') THEN 41 #ifdef REPROBUS 42 CALL Init_chem_rep_phys(klon_omp,nbp_lev) 41 IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev) 43 42 #endif 44 END IF45 43 46 44 !$OMP END PARALLEL … … 71 69 ! CALL Init_dimphy(klon_omp,nbp_lev) 72 70 ! 71 !#ifdef REPROBUS 73 72 !! Initialization of Reprobus 74 ! IF (type_trac == 'repr') THEN 75 !#ifdef REPROBUS 76 ! CALL Init_chem_rep_phys(klon_omp,nbp_lev) 73 ! IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev) 74 ! END IF 77 75 !#endif 78 ! END IF79 76 ! 80 77 !!$OMP END PARALLEL -
LMDZ6/branches/Portage_acc/libf/phy_common/vertical_layers_mod.F90
r2786 r4446 15 15 REAL,SAVE,ALLOCATABLE :: presnivs(:) ! reference pressure at mid-layer (Pa), 16 16 ! based on preff, ap and bp 17 REAL,SAVE,ALLOCATABLE :: presinter(:) ! reference pressure at interface (Pa), 18 ! based on preff, ap and bp 17 19 REAL,SAVE,ALLOCATABLE :: pseudoalt(:) ! pseudo-altitude of model layers (km), 18 20 ! based on preff and scaleheight 19 21 20 !$OMP THREADPRIVATE(preff,scaleheight,ap,bp,aps,bps,presnivs,p seudoalt)22 !$OMP THREADPRIVATE(preff,scaleheight,ap,bp,aps,bps,presnivs,presinter,pseudoalt) 21 23 22 24 … … 24 26 25 27 SUBROUTINE init_vertical_layers(nlayer,preff_,scaleheight_,ap_,bp_,& 26 aps_,bps_,presnivs_, p seudoalt_)28 aps_,bps_,presnivs_, presinter_, pseudoalt_) 27 29 IMPLICIT NONE 28 30 INTEGER,INTENT(IN) :: nlayer ! number of atmospheric layers … … 34 36 REAL,INTENT(IN) :: bps_(nlayer) ! hybrid coordinate at mid-layer 35 37 REAL,INTENT(IN) :: presnivs_(nlayer) ! Appproximative pressure of atm. layers (Pa) 38 REAL,INTENT(IN) :: presinter_(nlayer+1) ! Appproximative pressure of atm. layers (Pa) 36 39 REAL,INTENT(IN) :: pseudoalt_(nlayer) ! pseudo-altitude of atm. layers (km) 37 40 … … 41 44 ALLOCATE(bps(nlayer)) 42 45 ALLOCATE(presnivs(nlayer)) 46 ALLOCATE(presinter(nlayer+1)) 43 47 ALLOCATE(pseudoalt(nlayer)) 44 48 … … 50 54 bps(:) = bps_(:) 51 55 presnivs(:) = presnivs_(:) 56 presinter(:) = presinter_(:) 52 57 pseudoalt(:) = pseudoalt_(:) 53 58
Note: See TracChangeset
for help on using the changeset viewer.