Ignore:
Timestamp:
Mar 8, 2024, 1:09:51 PM (2 months ago)
Author:
Laurent Fairhead
Message:

Modifications needed for XIOS3

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/iophy.F90

    r4619 r4848  
    15321532  USE mod_phys_lmdz_para, ONLY: is_master
    15331533  USE print_control_mod, ONLY: prt_level,lunout
     1534  USE phys_output_var_mod, ONLY: vars_defined
     1535
    15341536  IMPLICIT NONE
    15351537
    … …  
    15391541  IF (check_dim .AND. is_master) WRITE(lunout,*)'histwrite0d_xios for ', field_name
    15401542
     1543  IF (vars_defined) THEN
    15411544!$OMP MASTER
    1542   CALL xios_send_field(field_name, field)
     1545    CALL xios_send_field(field_name, field)
    15431546!$OMP END MASTER
     1547  ENDIF
    15441548
    15451549  END SUBROUTINE histwrite0d_xios
Note: See TracChangeset for help on using the changeset viewer.