Ignore:
Timestamp:
Mar 13, 2018, 1:09:36 PM (7 years ago)
Author:
Laurent Fairhead
Message:

XIOS/OMP problem resolved

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3250 r3256  
    48084808      dryaod_diag=.FALSE.
    48094809      ok_4xCO2atm= .FALSE.
    4810       if (is_master) write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
    4811 
    4812        !--setting up swaero_diag to TRUE in XIOS case
    4813        IF (xios_field_is_active("topswad").OR.xios_field_is_active("topswad0").OR. &
     4810      write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
     4811
     4812      IF (is_master) then
     4813        !--setting up swaero_diag to TRUE in XIOS case
     4814        IF (xios_field_is_active("topswad").OR.xios_field_is_active("topswad0").OR. &
    48144815           xios_field_is_active("solswad").OR.xios_field_is_active("solswad0").OR. &
    48154816           xios_field_is_active("topswai").OR.xios_field_is_active("solswai").OR.  &
     
    48204821           swaero_diag=.TRUE.
    48214822
    4822        !--setting up swaerofree_diag to TRUE in XIOS case
    4823        IF (xios_field_is_active("SWdnSFCcleanclr").OR.xios_field_is_active("SWupSFCcleanclr").OR. &
     4823        !--setting up swaerofree_diag to TRUE in XIOS case
     4824        IF (xios_field_is_active("SWdnSFCcleanclr").OR.xios_field_is_active("SWupSFCcleanclr").OR. &
    48244825           xios_field_is_active("SWupTOAcleanclr").OR.xios_field_is_active("rsucsaf").OR.   &
    48254826           xios_field_is_active("rsdcsaf") .OR. xios_field_is_active("LWdnSFCcleanclr").OR. &
     
    48274828           swaerofree_diag=.TRUE.
    48284829
    4829        !--setting up dryaod_diag to TRUE in XIOS case
    4830        DO naero = 1, naero_tot-1
     4830        !--setting up dryaod_diag to TRUE in XIOS case
     4831        DO naero = 1, naero_tot-1
    48314832         IF (xios_field_is_active("dryod550_"//name_aero_tau(naero))) dryaod_diag=.TRUE.
    4832        ENDDO
    4833        !
    4834        !--setting up ok_4xCO2atm to TRUE in XIOS case
    4835        IF (xios_field_is_active("rsut4co2").OR.xios_field_is_active("rlut4co2").OR. &
     4833        ENDDO
     4834        !
     4835        !--setting up ok_4xCO2atm to TRUE in XIOS case
     4836        IF (xios_field_is_active("rsut4co2").OR.xios_field_is_active("rlut4co2").OR. &
    48364837           xios_field_is_active("rsutcs4co2").OR.xios_field_is_active("rlutcs4co2").OR. &
    48374838           xios_field_is_active("rsu4co2").OR.xios_field_is_active("rsucs4co2").OR. &
     
    48404841           xios_field_is_active("rld4co2").OR.xios_field_is_active("rldcs4co2")) &
    48414842           ok_4xCO2atm=.TRUE.
    4842       if (is_master) write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
     4843      endif
     4844      !$OMP BARRIER
     4845      call bcast(swaero_diag)
     4846      call bcast(swaerofree_diag)
     4847      call bcast(dryaod_diag)
     4848      call bcast(ok_4xCO2atm)
     4849      write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
    48434850#endif
    48444851    endif
Note: See TracChangeset for help on using the changeset viewer.