Ignore:
Timestamp:
Jul 10, 2023, 1:40:39 AM (19 months ago)
Author:
yann meurdesoif
Message:

Suppress usage of preprocessing key CPP_XIOS.
Wrapper file is used to suppress XIOS symbol when xios is not linked and not used (-io ioipsl)
The CPP_XIOS key is replaced in model by "using_xios" boolean variable to switch between IOIPSL or XIOS output.

YM

Location:
LMDZ6/trunk/libf/phylmd/cosp2
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_interface_v1p4.F90

    r4593 r4619  
    3030! May 2015 - D. Swales - Original version
    3131! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    32 INCLUDE "cosp_defs.h"
     32#include "cosp_defs.h"
    3333MODULE MOD_COSP_INTERFACE_v1p4
    3434  use COSP_KINDS,          only: wp,dp

  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_mod.F90

    r3435 r4619  
    246246  USE time_phylmdz_mod, ONLY: day_ref, annee_ref, day_ini, start_time, itau_phy
    247247  USE print_control_mod, ONLY: lunout
    248 
    249 #ifdef CPP_XIOS
    250248    ! ug Pour les sorties XIOS
    251     USE wxios
    252 #endif
     249  USE wxios
    253250
    254251  IMPLICIT NONE
    … …  
    275272!!! Variables d'entree
    276273
    277 #ifdef CPP_XIOS
    278     ! ug Variables utilisées pour récupérer le calendrier pour xios
    279     INTEGER :: x_an, x_mois, x_jour
    280     REAL :: x_heure
    281     INTEGER :: ini_an, ini_mois, ini_jour
    282     REAL :: ini_heure
    283 #endif
     274! ug Variables utilisées pour récupérer le calendrier pour xios
     275  INTEGER :: x_an, x_mois, x_jour
     276  REAL :: x_heure
     277  INTEGER :: ini_an, ini_mois, ini_jour
     278  REAL :: ini_heure
    284279
    285280    WRITE(lunout,*) 'Debut cosp_output_mod.F90'
    … …  
    328323    CALL ymds2ju(annee_ref, 1, day_ini, start_time, zjulian_start)
    329324
    330 #ifdef CPP_XIOS
    331    
    332 ! recuperer la valeur indefine Xios
    333 !    CALL xios_get_field_attr("clcalipso",default_value=Cosp_fill_value)
    334 !         Cosp_fill_value=missing_val
    335           Cosp_fill_value=0.
    336          print*,'Cosp_fill_value=',Cosp_fill_value
    337 
    338     CALL wxios_add_vaxis("height", vgrid%Nlvgrid, vgrid%z)
    339     print*,'wxios_add_vaxis vgrid%Nlvgrid, vgrid%z',vgrid%Nlvgrid,vgrid%z
    340 
    341     WRITE(lunout,*) 'wxios_add_vaxis height_mlev, Nlevlmdz vgrid%mz ', &
     325    IF (using_xios) THEN
     326
     327  ! recuperer la valeur indefine Xios
     328  !    CALL xios_get_field_attr("clcalipso",default_value=Cosp_fill_value)
     329  !         Cosp_fill_value=missing_val
     330      Cosp_fill_value=0.
     331      print*,'Cosp_fill_value=',Cosp_fill_value
     332
     333      CALL wxios_add_vaxis("height", vgrid%Nlvgrid, vgrid%z)
     334      print*,'wxios_add_vaxis vgrid%Nlvgrid, vgrid%z',vgrid%Nlvgrid,vgrid%z
     335
     336      WRITE(lunout,*) 'wxios_add_vaxis height_mlev, Nlevlmdz vgrid%mz ', &
    342337                     Nlevlmdz,vgrid%mz
    343     CALL wxios_add_vaxis("height_mlev", Nlevlmdz, vgrid%mz)
    344 
    345     WRITE(lunout,*) 'wxios_add_vaxis sza, PARASOL_NREFL ', &
    346                      PARASOL_NREFL, PARASOL_SZA
    347     CALL wxios_add_vaxis("sza", PARASOL_NREFL, PARASOL_SZA)
    348 
    349     WRITE(lunout,*) 'wxios_add_vaxis pressure2 ',7,pres_binCenters
    350     CALL wxios_add_vaxis("pressure2", 7, pres_binCenters)
    351 
    352     WRITE(lunout,*) 'wxios_add_vaxis column ',Ncolumns,column_ax
    353     CALL wxios_add_vaxis("column", Ncolumns, column_ax)
    354 
    355    WRITE(lunout,*) 'wxios_add_vaxis temp LIDAR_NTEMP, LIDAR_PHASE_TEMP ', &
     338      CALL wxios_add_vaxis("height_mlev", Nlevlmdz, vgrid%mz)
     339
     340      WRITE(lunout,*) 'wxios_add_vaxis sza, PARASOL_NREFL ', &
     341                       PARASOL_NREFL, PARASOL_SZA
     342      CALL wxios_add_vaxis("sza", PARASOL_NREFL, PARASOL_SZA)
     343
     344      WRITE(lunout,*) 'wxios_add_vaxis pressure2 ',7,pres_binCenters
     345      CALL wxios_add_vaxis("pressure2", 7, pres_binCenters)
     346
     347      WRITE(lunout,*) 'wxios_add_vaxis column ',Ncolumns,column_ax
     348      CALL wxios_add_vaxis("column", Ncolumns, column_ax)
     349
     350      WRITE(lunout,*) 'wxios_add_vaxis temp LIDAR_NTEMP, LIDAR_PHASE_TEMP ', &
    356351                    LIDAR_NTEMP, LIDAR_PHASE_TEMP
    357    CALL wxios_add_vaxis("temp", LIDAR_NTEMP, LIDAR_PHASE_TEMP)
    358 
    359    WRITE(lunout,*) 'wxios_add_vaxis cth16 numMISRHgtBins, misr_histHgtCenters ', &
    360                     numMISRHgtBins, misr_histHgtCenters
    361    CALL wxios_add_vaxis("cth16", numMISRHgtBins, misr_histHgtCenters)
    362 
    363    WRITE(lunout,*) 'wxios_add_vaxis dbze DBZE_BINS, dbze_ax ', &
    364                     DBZE_BINS, dbze_ax
    365    CALL wxios_add_vaxis("dbze", DBZE_BINS, dbze_ax)
    366 
    367    WRITE(lunout,*) 'wxios_add_vaxis scatratio SR_BINS, sratio_ax', &
    368                    SR_BINS, sratio_ax
    369    CALL wxios_add_vaxis("scatratio", SR_BINS, sratio_ax)
    370 
    371    WRITE(lunout,*) 'wxios_add_vaxis ReffIce numMODISReffIceBins, &
    372                    reffICE_binCenters',numMODISReffIceBins, reffICE_binCenters
    373    CALL wxios_add_vaxis("ReffIce", numMODISReffIceBins, reffICE_binCenters)
    374 
    375    WRITE(lunout,*) 'wxios_add_vaxis ReffLiq numMODISReffLiqBins, &
     352      CALL wxios_add_vaxis("temp", LIDAR_NTEMP, LIDAR_PHASE_TEMP)
     353
     354      WRITE(lunout,*) 'wxios_add_vaxis cth16 numMISRHgtBins, misr_histHgtCenters ', &
     355                      numMISRHgtBins, misr_histHgtCenters
     356      CALL wxios_add_vaxis("cth16", numMISRHgtBins, misr_histHgtCenters)
     357
     358      WRITE(lunout,*) 'wxios_add_vaxis dbze DBZE_BINS, dbze_ax ', &
     359                       DBZE_BINS, dbze_ax
     360      CALL wxios_add_vaxis("dbze", DBZE_BINS, dbze_ax)
     361
     362      WRITE(lunout,*) 'wxios_add_vaxis scatratio SR_BINS, sratio_ax', &
     363                     SR_BINS, sratio_ax
     364      CALL wxios_add_vaxis("scatratio", SR_BINS, sratio_ax)
     365
     366      WRITE(lunout,*) 'wxios_add_vaxis ReffIce numMODISReffIceBins, &
     367                     reffICE_binCenters',numMODISReffIceBins, reffICE_binCenters
     368     CALL wxios_add_vaxis("ReffIce", numMODISReffIceBins, reffICE_binCenters)
     369
     370     WRITE(lunout,*) 'wxios_add_vaxis ReffLiq numMODISReffLiqBins, &
    376371                    reffLIQ_binCenters', numMODISReffLiqBins, reffLIQ_binCenters
    377    CALL wxios_add_vaxis("ReffLiq", numMODISReffLiqBins, reffLIQ_binCenters)
    378 
    379    WRITE(lunout,*) 'wxios_add_vaxis 7, tau_binCenters', &
    380                     7, tau_binCenters
    381    CALL wxios_add_vaxis("tau", 7, tau_binCenters)
    382 
    383 #endif
    384    
     372     CALL wxios_add_vaxis("ReffLiq", numMODISReffLiqBins, reffLIQ_binCenters)
     373
     374     WRITE(lunout,*) 'wxios_add_vaxis 7, tau_binCenters', &
     375                      7, tau_binCenters
     376     CALL wxios_add_vaxis("tau", 7, tau_binCenters)
     377
     378  ENDIF
     379
    385380    zdtimemoy_cosp = freq_COSP         ! Frequence ou l on moyenne
    386381
    … …  
    394389!                    nhoricosp(iff),cosp_nidfiles(iff)
    395390
    396 #ifdef CPP_XIOS
    397         IF (.not. ok_all_xml) then
    398          WRITE(lunout,*) 'wxios_add_file ',cosp_outfilenames(iff)
    399          CALL wxios_add_file(cosp_outfilenames(iff),chfreq(iff),10)
     391        IF(using_xios) THEN
     392          IF (.not. ok_all_xml) then
     393           WRITE(lunout,*) 'wxios_add_file ',cosp_outfilenames(iff)
     394           CALL wxios_add_file(cosp_outfilenames(iff),chfreq(iff),10)
     395          ENDIF
    400396        ENDIF
    401 #endif
    402397
    403398#ifndef CPP_IOIPSL_NO_OUTPUT

  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_write_mod.F90

    r3398 r4619  
    3636    USE time_phylmdz_mod, ONLY: itau_phy, start_time, day_step_phy
    3737    USE print_control_mod, ONLY: lunout,prt_level
    38 
    39 #ifdef CPP_XIOS
    4038    USE wxios, only: wxios_closedef
    41     USE xios, only: xios_update_calendar, xios_field_is_active
    42 #endif
     39    USE lmdz_xios, only: xios_update_calendar, xios_field_is_active, using_xios
    4340  IMPLICIT NONE 
    4441!!! Variables d'entree
    … …  
    6865  real, dimension(Npoints,numMISRHgtBins,7) :: tmp_fi4da_misr
    6966
    70 #ifdef CPP_XIOS
    71   missing_val=missing_cosp
    72 #else
    73   missing_val=0.
    74 #endif
     67  IF (using_xios) THEN
     68    missing_val=missing_cosp
     69  ELSE
     70    missing_val=0.
     71  ENDIF
    7572
    7673  Nlevout = vgrid%Nlvgrid
    … …  
    10097!   endif
    10198
    102 !!#ifdef CPP_XIOS
     99!! IF (using_xios) THEN
    103100! !$OMP MASTER
    104101!IF (cosp_varsdefined) THEN
    … …  
    111108!  !$OMP END MASTER
    112109!  !$OMP BARRIER
    113 !!#endif
     110!! ENDIF
    114111
    115112!!!! Sorties Calipso
    … …  
    173170!   if (cfg%Lproftemp) CALL histwrite3d_cosp(o_proftemp,stlidar%proftemp,nvert)                    !TIBO
    174171
    175 #ifdef CPP_XIOS
    176    do icl=1,SR_BINS
     172  IF (using_xios) THEN
     173
     174    do icl=1,SR_BINS
    177175      tmp_fi4da_cfadL(:,:,icl)=stlidar%cfad_sr(:,icl,:)
    178    enddo
     176    enddo
    179177!   if (cfg%LcfadLidarsr532) CALL histwrite4d_cosp(o_cfad_lidarsr532,stlidar%cfad_sr)
    180    if (cfg%LcfadLidarsr532) CALL histwrite4d_cosp(o_cfad_lidarsr532,tmp_fi4da_cfadL)
     178    if (cfg%LcfadLidarsr532) CALL histwrite4d_cosp(o_cfad_lidarsr532,tmp_fi4da_cfadL)
    181179!   if (cfg%LprofSR) CALL histwrite4d_cosp(o_profSR,stlidar%profSR)                              !TIBO
    182 #else
    183    if (cfg%LcfadLidarsr532) then
    184      do icl=1,SR_BINS
     180  ELSE
     181    if (cfg%LcfadLidarsr532) then
     182      do icl=1,SR_BINS
    185183        CALL histwrite3d_cosp(o_cfad_lidarsr532,stlidar%cfad_sr(:,icl,:),nvert,icl)
    186      enddo
    187    endif
     184      enddo
     185    endif
    188186!   if (cfg%LprofSR) then
    189187!     do icl=1,Ncolumns                                                              !TIBO
    … …  
    191189!     enddo                                                                          !TIBO
    192190!   endif
    193 #endif
     191  ENDIF
     192
    194193   if (cfg%LparasolRefl) CALL histwrite3d_cosp(o_parasol_refl,stlidar%parasolrefl,nvertp)
    195194
    … …  
    211210  endif
    212211
    213 #ifdef CPP_XIOS
    214    if (cfg%Latb532) CALL histwrite4d_cosp(o_atb532,sglidar%beta_tot)
    215 #else
    216    if (cfg%Latb532) then 
    217      do icl=1,Ncolumns
     212  IF (using_xios) THEN
     213
     214    if (cfg%Latb532) CALL histwrite4d_cosp(o_atb532,sglidar%beta_tot)
     215  ELSE
     216    if (cfg%Latb532) then 
     217      do icl=1,Ncolumns
    218218        CALL histwrite3d_cosp(o_atb532,sglidar%beta_tot(:,icl,:),nvertmcosp,icl)
    219      enddo
    220    endif
    221 #endif
     219      enddo
     220    endif
     221  ENDIF
    222222
    223223   if (cfg%LlidarBetaMol532) CALL histwrite3d_cosp(o_beta_mol532,sglidar%beta_mol,nvertmcosp)
    … …  
    229229
    230230   where(stradar%cfad_ze == R_UNDEF) stradar%cfad_ze = missing_val
    231 #ifdef CPP_XIOS
    232    do icl=1,DBZE_BINS
    233      tmp_fi4da_cfadR(:,:,icl)=stradar%cfad_ze(:,icl,:)
    234    enddo
    235    if (cfg%Ldbze94) CALL histwrite4d_cosp(o_dbze94,sgradar%Ze_tot)
    236 !   if (cfg%LcfadDbze94) CALL histwrite4d_cosp(o_cfadDbze94,stradar%cfad_ze)
    237    if (cfg%LcfadDbze94) CALL histwrite4d_cosp(o_cfadDbze94,tmp_fi4da_cfadR)
    238 #else
    239    if (cfg%Ldbze94) then
    240     do icl=1,Ncolumns
    241        CALL histwrite3d_cosp(o_dbze94,sgradar%Ze_tot(:,icl,:),nvert,icl)
     231  IF (using_xios) THEN
     232    do icl=1,DBZE_BINS
     233      tmp_fi4da_cfadR(:,:,icl)=stradar%cfad_ze(:,icl,:)
    242234    enddo
    243    endif
    244    if (cfg%LcfadDbze94) then
    245     do icl=1,DBZE_BINS
    246     CALL histwrite3d_cosp(o_cfadDbze94,stradar%cfad_ze(:,icl,:),nvert,icl)
    247     enddo
    248    endif
    249 #endif
     235    if (cfg%Ldbze94) CALL histwrite4d_cosp(o_dbze94,sgradar%Ze_tot)
     236 !   if (cfg%LcfadDbze94) CALL histwrite4d_cosp(o_cfadDbze94,stradar%cfad_ze)
     237    if (cfg%LcfadDbze94) CALL histwrite4d_cosp(o_cfadDbze94,tmp_fi4da_cfadR)
     238  ELSE
     239    if (cfg%Ldbze94) then
     240      do icl=1,Ncolumns
     241        CALL histwrite3d_cosp(o_dbze94,sgradar%Ze_tot(:,icl,:),nvert,icl)
     242      enddo
     243     endif
     244     if (cfg%LcfadDbze94) then
     245       do icl=1,DBZE_BINS
     246         CALL histwrite3d_cosp(o_cfadDbze94,stradar%cfad_ze(:,icl,:),nvert,icl)
     247       enddo
     248     endif
     249  ENDIF
    250250 endif
    251251! endif pour radar
    … …  
    273273  where(isccp%boxptop == R_UNDEF) isccp%boxptop = missing_val
    274274
    275    CALL histwrite2d_cosp(o_sunlit,gbx%sunlit)
    276 #ifdef CPP_XIOS
    277   if (cfg%Lclisccp) CALL histwrite4d_cosp(o_clisccp2,isccp%fq_isccp)
    278 #else
    279    if (cfg%Lclisccp) then
    280      do icl=1,7
    281        CALL histwrite3d_cosp(o_clisccp2,isccp%fq_isccp(:,icl,:),nvertisccp,icl)
    282      enddo
    283    endif
    284 #endif
     275  CALL histwrite2d_cosp(o_sunlit,gbx%sunlit)
     276  IF (using_xios) THEN
     277    if (cfg%Lclisccp) CALL histwrite4d_cosp(o_clisccp2,isccp%fq_isccp)
     278  ELSE
     279    if (cfg%Lclisccp) then
     280      do icl=1,7
     281        CALL histwrite3d_cosp(o_clisccp2,isccp%fq_isccp(:,icl,:),nvertisccp,icl)
     282      enddo
     283    endif
     284  ENDIF
    285285
    286286   if (cfg%Lboxtauisccp) CALL histwrite3d_cosp(o_boxtauisccp,isccp%boxtau,nvertcol)
    … …  
    298298   where(misr%fq_MISR == R_UNDEF) misr%fq_MISR = missing_val
    299299
    300 #ifdef CPP_XIOS
    301    do icl=1,numMISRHgtBins
     300  IF (using_xios) THEN
     301    do icl=1,numMISRHgtBins
    302302      tmp_fi4da_misr(:,icl,:)=misr%fq_MISR(:,:,icl)
    303    enddo
     303    enddo
    304304!   if (cfg%LclMISR) CALL histwrite4d_cosp(o_clMISR,misr%fq_MISR)
    305    if (cfg%LclMISR) CALL histwrite4d_cosp(o_clMISR,tmp_fi4da_misr)
    306 #else
    307    if (cfg%LclMISR) then
    308     do icl=1,7
    309       CALL histwrite3d_cosp(o_clMISR,misr%fq_MISR(:,icl,:),nvertmisr,icl)
    310     enddo
    311    endif
    312 #endif
     305    if (cfg%LclMISR) CALL histwrite4d_cosp(o_clMISR,tmp_fi4da_misr)
     306  ELSE
     307    if (cfg%LclMISR) then
     308      do icl=1,7
     309        CALL histwrite3d_cosp(o_clMISR,misr%fq_MISR(:,icl,:),nvertmisr,icl)
     310      enddo
     311     endif
     312  ENDIF
    313313 endif
    314314! endif pour Misr
    … …  
    375375          modis%Optical_Thickness_vs_Cloud_Top_Pressure = missing_val
    376376
    377 #ifdef CPP_XIOS
    378    if (cfg%Lclmodis) CALL histwrite4d_cosp(o_clmodis,modis%Optical_Thickness_vs_Cloud_Top_Pressure)
    379 #else
    380   if (cfg%Lclmodis) then
    381    do icl=1,7
    382    CALL histwrite3d_cosp(o_clmodis, &
    383      modis%Optical_Thickness_vs_Cloud_Top_Pressure(:,icl,:),nvertisccp,icl)           
    384    enddo
    385   endif
    386 #endif
     377  IF (using_xios) THEN
     378    if (cfg%Lclmodis) CALL histwrite4d_cosp(o_clmodis,modis%Optical_Thickness_vs_Cloud_Top_Pressure)
     379  ELSE
     380    if (cfg%Lclmodis) then
     381     do icl=1,7
     382       CALL histwrite3d_cosp(o_clmodis, &
     383         modis%Optical_Thickness_vs_Cloud_Top_Pressure(:,icl,:),nvertisccp,icl)           
     384     enddo
     385    endif
     386  ENDIF
    387387
    388388    where(modis%Optical_Thickness_vs_ReffIce == R_UNDEF) &
    … …  
    392392          modis%Optical_Thickness_vs_ReffLiq = missing_val
    393393
    394 #ifdef CPP_XIOS
    395   if (cfg%Lclmodis) CALL histwrite4d_cosp(o_crimodis,modis%Optical_Thickness_vs_ReffIce)
    396   if (cfg%Lclmodis) CALL histwrite4d_cosp(o_crlmodis,modis%Optical_Thickness_vs_ReffLiq)
    397 #else
    398   if (cfg%Lclmodis) then
    399     do icl=1,7
    400      CALL histwrite3d_cosp(o_crimodis, &
    401           modis%Optical_Thickness_vs_ReffIce(:,icl,:),nvertReffIce,icl)
    402     enddo
    403   endif
    404   if (cfg%Lclmodis) then
    405     do icl=1,7
    406      CALL histwrite3d_cosp(o_crlmodis, &
    407           modis%Optical_Thickness_vs_ReffLiq(:,icl,:),nvertReffLiq,icl)
    408     enddo
    409   endif
    410 #endif
     394    IF (using_xios) THEN
     395      if (cfg%Lclmodis) CALL histwrite4d_cosp(o_crimodis,modis%Optical_Thickness_vs_ReffIce)
     396      if (cfg%Lclmodis) CALL histwrite4d_cosp(o_crlmodis,modis%Optical_Thickness_vs_ReffLiq)
     397    ELSE
     398      if (cfg%Lclmodis) then
     399        do icl=1,7
     400          CALL histwrite3d_cosp(o_crimodis, &
     401             modis%Optical_Thickness_vs_ReffIce(:,icl,:),nvertReffIce,icl)
     402        enddo
     403      endif
     404      if (cfg%Lclmodis) then
     405        do icl=1,7
     406           CALL histwrite3d_cosp(o_crlmodis, &
     407              modis%Optical_Thickness_vs_ReffLiq(:,icl,:),nvertReffLiq,icl)
     408        enddo
     409      endif
     410  ENDIF !using_xios
    411411 endif !modis
    412412
    … …  
    421421#endif
    422422! Fermeture dans phys_output_write
    423 !#ifdef CPP_XIOS
     423! IF (using_xios) THEN
    424424            !On finalise l'initialisation:
    425425            !CALL wxios_closedef()
    426 !#endif
     426! ELSE
    427427
    428428!$OMP END MASTER
    … …  
    461461    USE mod_grid_phy_lmdz, ONLY: nbp_lon
    462462    USE print_control_mod, ONLY: lunout,prt_level
    463 #ifdef CPP_XIOS
    464   USE wxios
    465 #endif
     463    USE wxios
    466464
    467465    IMPLICIT NONE
    … …  
    495493    ENDIF
    496494
    497 #ifdef CPP_XIOS
     495    IF (using_xios) THEN
    498496     IF (.not. ok_all_xml) then
    499497       IF ( var%cles(iff) ) THEN
    … …  
    505503       ENDIF
    506504     ENDIF
    507 #endif
     505    ENDIF
    508506
    509507#ifndef CPP_IOIPSL_NO_OUTPUT
    … …  
    524522    USE mod_grid_phy_lmdz, ONLY: nbp_lon
    525523    USE print_control_mod, ONLY: lunout,prt_level
    526 
    527 #ifdef CPP_XIOS
    528   USE wxios
    529 #endif
    530 
     524    USE wxios
    531525
    532526    IMPLICIT NONE
    … …  
    601595    ENDIF
    602596
    603 #ifdef CPP_XIOS
     597    IF (using_xios) THEN
    604598      IF (.not. ok_all_xml) then
    605599        IF ( var%cles(iff) ) THEN
    … …  
    611605        ENDIF
    612606      ENDIF
    613 #endif
     607    ENDIF
    614608
    615609#ifndef CPP_IOIPSL_NO_OUTPUT
    … …  
    631625  USE mod_grid_phy_lmdz, ONLY: nbp_lon
    632626  USE print_control_mod, ONLY: lunout,prt_level
    633 
    634 #ifdef CPP_XIOS
    635   USE xios, only: xios_send_field
    636 #endif
     627  USE lmdz_xios, only: xios_send_field, using_xios
    637628
    638629  IMPLICIT NONE
    … …  
    677668      firstx=.true.
    678669      DO iff=1, 3
    679            IF (var%cles(iff) .AND. cosp_outfilekeys(iff)) THEN
     670          IF (var%cles(iff) .AND. cosp_outfilekeys(iff)) THEN
    680671                ALLOCATE(index2d(nbp_lon*jj_nb))
    681672#ifndef CPP_IOIPSL_NO_OUTPUT
    … …  
    683674#endif
    684675                deallocate(index2d)
    685 #ifdef CPP_XIOS
     676            IF (using_xios) THEN
    686677              IF (.not. ok_all_xml) then
    687678                 if (firstx) then
    … …  
    693684                 endif
    694685              ENDIF
    695 #endif
    696            ENDIF
     686            ENDIF
     687          ENDIF
    697688      ENDDO
    698689
    699 #ifdef CPP_XIOS
     690    IF (using_xios) THEN
    700691      IF (ok_all_xml) THEN
    701692        if (prt_level >= 1) then
    … …  
    704695       CALL xios_send_field(var%name, Field2d)
    705696      ENDIF
    706 #endif
     697    ENDIF
    707698
    708699!$OMP END MASTER   
    … …  
    720711  USE mod_grid_phy_lmdz, ONLY: nbp_lon
    721712  USE print_control_mod, ONLY: lunout,prt_level
    722 
    723 #ifdef CPP_XIOS
    724   USE xios, only: xios_send_field
    725 #endif
    726 
     713  USE lmdz_xios, only: xios_send_field, using_xios
    727714
    728715  IMPLICIT NONE
    … …  
    786773#endif
    787774
    788 #ifdef CPP_XIOS
     775       IF (using_xios) THEN
    789776          IF (.not. ok_all_xml) then
    790777           IF (firstx) THEN
    … …  
    794781           ENDIF
    795782          ENDIF
    796 #endif
     783        ENDIF
    797784         deallocate(index3d)
    798785        ENDIF
    799786      ENDDO
    800 #ifdef CPP_XIOS
    801     IF (ok_all_xml) THEN
    802      CALL xios_send_field(nom, Field3d(:,:,1:nlev))
    803      IF (prt_level >= 1) WRITE(lunout,*)'xios_send_field ',var%name
     787
     788    IF (using_xios) THEN
     789      IF (ok_all_xml) THEN
     790        CALL xios_send_field(nom, Field3d(:,:,1:nlev))
     791        IF (prt_level >= 1) WRITE(lunout,*)'xios_send_field ',var%name
     792      ENDIF
    804793    ENDIF
    805 #endif
    806794
    807795!$OMP END MASTER   
    … …  
    819807  USE mod_grid_phy_lmdz, ONLY: nbp_lon
    820808  USE print_control_mod, ONLY: lunout,prt_level
    821 
    822 #ifdef CPP_XIOS
    823   USE xios, only: xios_send_field
    824 #endif
    825 
     809  USE lmdz_xios, only: xios_send_field, using_xios
    826810
    827811  IMPLICIT NONE
    … …  
    852836    CALL grid1Dto2D_mpi(buffer_omp,field4d)
    853837
    854 #ifdef CPP_XIOS
     838  IF (using_xios) THEN
    855839!    IF (ok_all_xml) THEN
    856840     CALL xios_send_field(var%name, Field4d(:,:,1:nlev,1:nlev2))
    857841     IF (prt_level >= 1) WRITE(lunout,*)'xios_send_field ',var%name
    858842!    ENDIF
    859 #endif
     843  ENDIF
    860844
    861845!$OMP END MASTER   

  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90

    r3396 r4619  
    228228
    229229 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
    234231  implicit none
    235232  character(len=*),intent(in) :: cosp_nl
    … …  
    755752!    USE MOD_COSP_CONSTANTS
    756753!    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
    760755  implicit none
    761756  type(cosp_config),intent(out) :: cfg
    762757  integer :: i
    763 
    764 #ifdef CPP_XIOS
    765758
    766759 logical :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
    … …  
    784777       
    785778  character(len=32) :: out_list(78)
     779
     780 IF (using_xios) THEN
    786781
    787782  do i=1,78
    … …  
    12491244 endif
    12501245
    1251 #endif
     1246 ENDIF !using_xios
    12521247
    12531248  END SUBROUTINE read_xiosfieldactive

  • LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90

    r4593 r4619  
    8383  use cosp_output_mod
    8484  use cosp_output_write_mod
     85  USE lmdz_xios, ONLY : using_xios
    8586!  use MOD_COSP_Modis_Simulator, only : cosp_modis
    8687!  use mod_cosp_config, only : vgrid_zl,vgrid_zu,vgrid_z
    … …  
    245246
    246247! Clefs Outputs initialisation
    247 #ifdef CPP_XIOS
     248 IF (using_xios) THEN
    248249  call cosp_outputkeys_init(cfg)
    249 #else
     250 ELSE
    250251   call read_cosp_output_nl(itap,cosp_output_nl,cfg)
    251 #endif
     252 ENDIF
    252253
    253254  print*,' Cles des differents simulateurs cosp a itap :',itap
    … …  
    265266!!! Ici on modifie les cles logiques pour les outputs selon les champs actives dans les .xml
    266267  if ((itap.gt.1).and.(first_write))then
    267 #ifdef CPP_XIOS
    268     call read_xiosfieldactive(cfg)
    269 #endif
     268   
     269    IF (using_xios)   call read_xiosfieldactive(cfg)
    270270    first_write=.false.
    271271
Note: See TracChangeset for help on using the changeset viewer.