Changeset 1573 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/inigeomphy_mod.F90
- Timestamp:
- Jul 12, 2016, 3:17:48 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/dynphy_lonlat/inigeomphy_mod.F90
r1566 r1573 6 6 nbp, communicator, & 7 7 rlatu,rlatv,rlonu,rlonv,aire,cu,cv) 8 USE dimphy, ONLY: init_dimphy9 8 USE mod_grid_phy_lmdz, ONLY: klon_glo, & ! number of atmospheric columns (on full grid) 10 9 regular_lonlat, & ! regular longitude-latitude grid type … … 15 14 klon_mpi_begin ! start indes of columns (on local mpi grid) 16 15 USE geometry_mod, ONLY : init_geometry 17 ! USE comgeomphy, ONLY: initcomgeomphy, &18 ! airephy, & ! physics grid area (m2)19 ! cuphy, & ! cu coeff. (u_covariant = cu * u)20 ! cvphy, & ! cv coeff. (v_covariant = cv * v)21 ! rlond, & ! longitudes22 ! rlatd ! latitudes23 16 USE physics_distribution_mod, ONLY : init_physics_distribution 24 17 USE regular_lonlat_mod, ONLY : init_regular_lonlat, & … … 220 213 airefi,cufi,cvfi) 221 214 222 223 ! Initialize dimphy module224 CALL init_dimphy(klon_omp,nlayer)225 226 215 !$OMP END PARALLEL 227 216
Note: See TracChangeset
for help on using the changeset viewer.