- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 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/cospv2/lmdz_cosp_read_outputkeys.F90
r3491 r4727 422 422 423 423 SUBROUTINE READ_COSP_OUTPUT_NL(itap,cosp_nl,cfg) 424 425 #ifdef CPP_XIOS 426 USE xios, ONLY: xios_field_is_active 427 #endif 424 USE lmdz_xios, ONLY: xios_field_is_active, using_xios 428 425 implicit none 429 426 character(len=*),intent(in) :: cosp_nl … … 1020 1017 1021 1018 SUBROUTINE read_xiosfieldactive(cfg) 1022 1023 #ifdef CPP_XIOS 1024 USE xios, ONLY: xios_field_is_active 1025 #endif 1019 USE lmdz_xios, ONLY: xios_field_is_active, using_xios 1026 1020 implicit none 1027 1021 type(cosp_config),intent(inout) :: cfg 1028 1022 integer :: i 1029 1030 #ifdef CPP_XIOS1031 1023 1032 1024 !COSPv2 local variables … … 1067 1059 1068 1060 character(len=32) :: out_list(107) 1061 1062 IF (using_xios) THEN 1069 1063 1070 1064 do i=1,107 … … 1717 1711 endif 1718 1712 1719 #endif 1713 ENDIF !using_xios 1720 1714 1721 1715 END SUBROUTINE read_xiosfieldactive
Note: See TracChangeset
for help on using the changeset viewer.