Last change
on this file since 3553 was
1543,
checked in by emillour, 9 years ago
|
All models: Further adaptations to keep up with changes in LMDZ5 concerning
physics/dynamics separation:
- dyn3d:
- adapted gcm.F so that all physics initializations are now done in iniphysiq.
- dyn3dpar:
- adapted gcm.F so that all physics initializations are now done in iniphysiq.
- updated calfis_p.F to follow up with changes.
- copied over updated "bands.F90" from LMDZ5.
- dynphy_lonlat:
- calfis_p.F90, mod_interface_dyn_phys.F90,
follow up of changes in phy_common/mod_* routines
- phy_common:
- added "geometry_mod.F90" to store information about the grid (replaces
phy*/comgeomphy.F90) and give variables friendlier names: rlond =>
longitude , rlatd => latitude, airephy => cell_area,
cuphy => dx , cvphy => dy
- added "physics_distribution_mod.F90"
- updated "mod_grid_phy_lmdz.F90", "mod_phys_lmdz_mpi_data.F90",
"mod_phys_lmdz_para.F90", "mod_phys_lmdz_mpi_transfert.F90",
"mod_grid_phy_lmdz.F90", "mod_phys_lmdz_omp_data.F90",
"mod_phys_lmdz_omp_transfert.F90", "write_field_phy.F90"
and "ioipsl_getin_p_mod.F90" to LMDZ5 versions.
- phy[venus/titan/mars/std]:
- removed "init_phys_lmdz.F90", "comgeomphy.F90"; adapted routines to use
geometry_mod (longitude, latitude, cell_area, etc.)
EM
|
File size:
951 bytes
|
Line | |
---|
1 | ! |
---|
2 | ! $Id: write_field_phy.F90 2342 2015-08-19 13:21:38Z emillour $ |
---|
3 | ! |
---|
4 | MODULE write_field_phy |
---|
5 | |
---|
6 | ! Dump a field on the global (nbp_lon by nbp_lat) physics grid |
---|
7 | |
---|
8 | CONTAINS |
---|
9 | |
---|
10 | SUBROUTINE WriteField_phy(name,Field,ll) |
---|
11 | USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root, & |
---|
12 | Gather |
---|
13 | USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, & |
---|
14 | Grid1Dto2D_glo |
---|
15 | USE Write_Field, ONLY: WriteField |
---|
16 | |
---|
17 | IMPLICIT NONE |
---|
18 | |
---|
19 | CHARACTER(len=*),INTENT(IN) :: name |
---|
20 | INTEGER,INTENT(IN) :: ll |
---|
21 | REAL,INTENT(IN) :: Field(klon_omp,ll) |
---|
22 | |
---|
23 | real, dimension(klon_glo,ll):: New_Field |
---|
24 | real, dimension(nbp_lon,nbp_lat,ll):: Field_2d |
---|
25 | |
---|
26 | CALL Gather(Field,New_Field) |
---|
27 | !$OMP MASTER |
---|
28 | IF (is_mpi_root) THEN |
---|
29 | CALL Grid1Dto2D_glo(New_Field,Field_2D) |
---|
30 | CALL WriteField(name,Field_2d) |
---|
31 | ENDIF |
---|
32 | !$OMP END MASTER |
---|
33 | |
---|
34 | |
---|
35 | END SUBROUTINE WriteField_phy |
---|
36 | |
---|
37 | END MODULE write_field_phy |
---|
Note: See
TracBrowser
for help on using the repository browser.