- 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/cosp/cosp_read_otputkeys.F90
r3377 r4727 226 226 227 227 SUBROUTINE READ_COSP_OUTPUT_NL(itap,cosp_nl,cfg) 228 229 #ifdef CPP_XIOS 230 USE xios, ONLY: xios_field_is_active 231 #endif 228 USE lmdz_xios, ONLY: xios_field_is_active, using_xios 232 229 implicit none 233 230 character(len=*),intent(in) :: cosp_nl … … 746 743 USE MOD_COSP_CONSTANTS 747 744 USE MOD_COSP_TYPES 748 #ifdef CPP_XIOS 749 USE xios, ONLY: xios_field_is_active 750 #endif 745 USE lmdz_xios, ONLY: xios_field_is_active,using_xios 751 746 implicit none 752 747 type(cosp_config),intent(out) :: cfg 753 748 integer :: i 754 755 #ifdef CPP_XIOS756 749 757 750 logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, & … … 776 769 character(len=32) :: out_list(N_OUT_LIST) 777 770 778 do i=1,N_OUT_LIST 779 cfg%out_list(i)='' 780 enddo 771 IF (using_xios) THEN 772 773 do i=1,N_OUT_LIST 774 cfg%out_list(i)='' 775 enddo 781 776 782 777 LcfadDbze94 = .false. … … 1232 1227 cfg%Lrttov_sim = Lrttov_sim 1233 1228 1234 #endif 1229 ENDIF ! using_xios 1235 1230 1236 1231 END SUBROUTINE read_xiosfieldactive
Note: See TracChangeset
for help on using the changeset viewer.