Changeset 3055 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iophy.F90
- Timestamp:
- Oct 31, 2017, 5:56:42 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iophy.F90
r3003 r3055 17 17 #ifdef CPP_XIOS 18 18 INTERFACE histwrite_phy 19 !#ifdef CPP_XIOSnew20 19 MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios,histwrite0d_xios 21 !#else22 ! MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios23 !#endif24 25 20 END INTERFACE 26 21 #else … … 285 280 is_sequential, klon_mpi_begin, klon_mpi_end, & 286 281 mpi_rank 287 USE mod_grid_phy_lmdz, ONLY: klon_glo, nbp_lon, nbp_lat 282 USE mod_grid_phy_lmdz, ONLY: klon_glo, nbp_lon, nbp_lat, grid1dTo2d_glo 288 283 USE ioipsl, ONLY: histbeg 289 284 … … 360 355 ENDDO 361 356 362 CALL gr _fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon_glo,zx_lon)357 CALL grid1dTo2d_glo(rlon_glo,zx_lon) 363 358 IF ((nbp_lon*nbp_lat).GT.1) THEN 364 359 DO i = 1, nbp_lon … … 367 362 ENDDO 368 363 ENDIF 369 CALL gr _fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat_glo,zx_lat)364 CALL grid1dTo2d_glo(rlat_glo,zx_lat) 370 365 371 366 DO i=1,pim
Note: See TracChangeset
for help on using the changeset viewer.