Changeset 3754
- Timestamp:
- Jul 8, 2020, 7:49:08 PM (4 years ago)
- Location:
- LMDZ6/branches/Optimisation_LMDZ/libf
- Files:
-
- 2 added
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Optimisation_LMDZ/libf/misc/wxios.F90
r3465 r3754 673 673 END SUBROUTINE wxios_close 674 674 END MODULE wxios 675 #else 676 MODULE wxios 677 REAL :: missing_val = 0 678 contains 679 SUBROUTINE wxios_set_context() 680 END SUBROUTINE wxios_set_context 681 SUBROUTINE wxios_closedef() 682 END SUBROUTINE wxios_closedef 683 END MODULE wxios 675 684 #endif -
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/iophy_xios.f90
r3753 r3754 2 2 ! ok_all_xml must be true 3 3 MODULE iophy_xios 4 use iophy, only: npstn, nptabij,check_dim4 use iophy, only: check_dim 5 5 implicit none 6 6 … … 21 21 USE mod_phys_lmdz_para, ONLY: is_master 22 22 USE phys_output_var_mod, ONLY: ctrl_out 23 USE xios , ONLY: xios_field_is_active23 USE xios_interface, ONLY: xios_field_is_active 24 24 USE print_control_mod, ONLY: lunout 25 25 IMPLICIT NONE … … 47 47 USE phys_output_var_mod, ONLY: ctrl_out 48 48 USE print_control_mod, ONLY: lunout 49 USE xios , ONLY: xios_field_is_active49 USE xios_interface, ONLY: xios_field_is_active 50 50 IMPLICIT NONE 51 51 INCLUDE 'clesphys.h' … … 74 74 jj_nb, klon_mpi, is_master 75 75 USE mod_grid_phy_lmdz, ONLY: nbp_lon, grid_type, unstructured, regular_lonlat 76 USE xios , ONLY: xios_send_field76 USE xios_interface, ONLY: xios_send_field 77 77 USE print_control_mod, ONLY: lunout 78 78 … … 120 120 USE mod_phys_lmdz_para, ONLY: gather_omp, grid1Dto2D_mpi, & 121 121 jj_nb, klon_mpi, is_master 122 USE xios , ONLY: xios_send_field122 USE xios_interface, ONLY: xios_send_field 123 123 USE mod_grid_phy_lmdz, ONLY: nbp_lon, grid_type, regular_lonlat, unstructured 124 124 USE print_control_mod, ONLY: lunout … … 167 167 168 168 SUBROUTINE histwrite0d_xios(field_name, field) 169 USE xios , ONLY: xios_send_field169 USE xios_interface, ONLY: xios_send_field 170 170 USE mod_phys_lmdz_para, ONLY: is_master 171 171 USE print_control_mod, ONLY: lunout -
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_mod.F90
r3630 r3754 460 460 ! iinitend = 1 461 461 ! ENDIF 462 if( ok_all_xml ) call abort_physic("phys_output_write", "Support of this IO backend with ok_all_xml=.true. is deprecated : use phys_output_write_xios instead", 1) 462 463 463 464 #ifdef CPP_XIOS -
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_mod.f90
r3753 r3754 326 326 USE print_control_mod, ONLY: prt_level, lunout 327 327 328 USE xios 328 USE xios_interface, ONLY : CPP_XIOS_defined, xios_fieldgroup, xios_field, xios_get_handle, xios_add_child, xios_set_attr, xios_update_calendar 329 329 USE wxios, ONLY: wxios_closedef, missing_val, wxios_set_context 330 330 USE vertical_layers_mod, ONLY: presnivs … … 382 382 REAL, DIMENSION(klon) :: zrho, zt 383 383 384 if( .not. CPP_XIOS_defined ) call abort_physic("phys_output_write_xios", "This io backend can only be used when LMDZ is compiled with XIOS support",1 ) 384 385 if( .not. ok_all_xml ) call abort_physic("phys_output_write_xios", "This io backend only supports ok_all_xml = .true.", 1) 385 386 -
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_preprocess.F90
r3753 r3754 1 #ifndef CPP_XIOS2 #error "CPP_XIOS must be defined to compile this file"3 #endif4 #ifndef CPP_IOIPSL_NO_OUTPUT5 #error "CPP_IOIPSL_NO_OUTPUT is not mandatory to compile this file"6 #endif7 8 1 MODULE phys_output_write_xios_preprocess 9 2 -
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/physiq_mod.F90
r3753 r3754 223 223 #endif 224 224 225 USE phys_output_write_ xios_mod225 USE phys_output_write_interface_mod, only : phys_output_write, phys_output_write_xios 226 226 USE fonte_neige_mod, ONLY : fonte_neige_get_vars 227 227 USE phys_output_mod … … 1694 1694 ENDIF 1695 1695 1696 CALL phys_output_write_xios(itap, pdtphys, paprs, pphis, & 1696 if( ok_all_xml ) then 1697 CALL phys_output_write_xios(itap, pdtphys, paprs, pphis, & 1697 1698 pplay, lmax_th, aerosol_couple, & 1698 1699 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,& … … 1700 1701 ptconvth, d_u, d_t, qx, d_qx, zmasse, & 1701 1702 flag_aerosol, flag_aerosol_strat, ok_cdnc) 1703 else 1704 CALL phys_output_write(itap, pdtphys, paprs, pphis, & 1705 pplay, lmax_th, aerosol_couple, & 1706 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,& 1707 ptconv, read_climoz, clevSTD, & 1708 ptconvth, d_u, d_t, qx, d_qx, zmasse, & 1709 flag_aerosol, flag_aerosol_strat, ok_cdnc) 1710 endif 1702 1711 1703 1712 #ifdef CPP_XIOS … … 5111 5120 flag_aerosol, flag_aerosol_strat, ok_cdnc) 5112 5121 #else 5113 CALL phys_output_write_xios(itap, pdtphys, paprs, pphis, & 5114 pplay, lmax_th, aerosol_couple, & 5115 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, & 5116 ok_sync, ptconv, read_climoz, clevSTD, & 5117 ptconvth, d_u, d_t, qx, d_qx, zmasse, & 5118 flag_aerosol, flag_aerosol_strat, ok_cdnc) 5122 if( ok_all_xml ) then 5123 CALL phys_output_write_xios(itap, pdtphys, paprs, pphis, & 5124 pplay, lmax_th, aerosol_couple, & 5125 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,& 5126 ptconv, read_climoz, clevSTD, & 5127 ptconvth, d_u, d_t, qx, d_qx, zmasse, & 5128 flag_aerosol, flag_aerosol_strat, ok_cdnc) 5129 else 5130 CALL phys_output_write(itap, pdtphys, paprs, pphis, & 5131 pplay, lmax_th, aerosol_couple, & 5132 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,& 5133 ptconv, read_climoz, clevSTD, & 5134 ptconvth, d_u, d_t, qx, d_qx, zmasse, & 5135 flag_aerosol, flag_aerosol_strat, ok_cdnc) 5136 endif 5119 5137 #endif 5120 5138
Note: See TracChangeset
for help on using the changeset viewer.