Changeset 4619 for LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90
- Timestamp:
- Jul 10, 2023, 1:40:39 AM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90
r4600 r4619 10 10 11 11 SUBROUTINE init_etat0_limit_unstruct 12 #ifdef CPP_XIOS 13 USE xios, ONLY: xios_set_axis_attr, xios_set_fieldgroup_attr, & 12 USE lmdz_xios, ONLY: xios_set_axis_attr, xios_set_fieldgroup_attr, & 14 13 xios_set_filegroup_attr, xios_set_file_attr 15 14 USE mod_phys_lmdz_para, ONLY: is_omp_master … … 49 48 ENDIF 50 49 51 #endif52 50 END SUBROUTINE init_etat0_limit_unstruct 53 51 54 52 SUBROUTINE create_etat0_limit_unstruct 55 #ifdef CPP_XIOS56 53 USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured 57 54 USE create_etat0_unstruct_mod, ONLY: create_etat0_unstruct … … 62 59 USE ioipsl_getin_p_mod, ONLY: getin_p 63 60 USE dimphy, ONLY: klon 64 USE xios, ONLY: xios_context_finalize, xios_set_current_context, &61 USE lmdz_xios, ONLY: xios_context_finalize, xios_set_current_context, & 65 62 xios_finalize 66 63 USE print_control_mod, ONLY: lunout … … 109 106 ENDIF 110 107 111 #endif112 108 END SUBROUTINE create_etat0_limit_unstruct 113 109
Note: See TracChangeset
for help on using the changeset viewer.