- Timestamp:
- Oct 19, 2023, 4:02:57 PM (11 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/cosp2/cosp_read_otputkeys.F90
r3396 r4727 228 228 229 229 SUBROUTINE READ_COSP_OUTPUT_NL(itap,cosp_nl,cfg) 230 231 #ifdef CPP_XIOS 232 USE xios, ONLY: xios_field_is_active 233 #endif 230 USE lmdz_xios, ONLY: xios_field_is_active, using_xios 234 231 implicit none 235 232 character(len=*),intent(in) :: cosp_nl … … 755 752 ! USE MOD_COSP_CONSTANTS 756 753 ! USE MOD_COSP_TYPES 757 #ifdef CPP_XIOS 758 USE xios, ONLY: xios_field_is_active 759 #endif 754 USE lmdz_xios, ONLY: xios_field_is_active, using_xios 760 755 implicit none 761 756 type(cosp_config),intent(out) :: cfg 762 757 integer :: i 763 764 #ifdef CPP_XIOS765 758 766 759 logical :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, & … … 784 777 785 778 character(len=32) :: out_list(78) 779 780 IF (using_xios) THEN 786 781 787 782 do i=1,78 … … 1249 1244 endif 1250 1245 1251 #endif 1246 ENDIF !using_xios 1252 1247 1253 1248 END SUBROUTINE read_xiosfieldactive
Note: See TracChangeset
for help on using the changeset viewer.