Changeset 3753 for LMDZ6/branches


Ignore:
Timestamp:
Jul 8, 2020, 7:49:08 PM (4 years ago)
Author:
adurocher
Message:

Refactoring IOs : added new phys_output_write_xios with XIOS only

This is a combination of 9 commits.

Added phys_output_write_xios
Moved C preprocessing in phys_output_write_xios_mod to a separate file
Added iophy_xios
Removed non-xios code from phys_output_write_xios_mod
Add separate subroutine for debug prints
Cleaning and refactoring iophy_xios
Only one test for vars_defined
Check once for inactive xios fields
Fix bug

Location:
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd
Files:
3 added
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_mod.F90

    r3630 r3753  
    55  USE indice_sol_mod
    66  USE phys_output_var_mod
    7   USE phys_output_write_mod, ONLY : phys_output_write
     7  !USE phys_output_write_mod, ONLY : phys_output_write
    88  REAL, DIMENSION(nfiles),SAVE :: ecrit_files
    99

  • LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_var_mod.F90

    r3149 r3753  
    127127     CHARACTER(len=20)                    :: unit
    128128     CHARACTER(len=20),DIMENSION(nfiles)  :: type_ecrit
     129     logical                              :: enabled = .true., check_enabled = .false.
    129130  END TYPE ctrl_out
    130131

  • LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/physiq_mod.F90

    r3706 r3753  
    223223#endif
    224224
    225     USE phys_output_write_mod
     225    USE phys_output_write_xios_mod
    226226    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
    227227    USE phys_output_mod
    … …  
    16941694        ENDIF
    16951695
    1696        CALL phys_output_write(itap, pdtphys, paprs, pphis,                    &
     1696       CALL phys_output_write_xios(itap, pdtphys, paprs, pphis,                    &
    16971697                              pplay, lmax_th, aerosol_couple,                 &
    16981698                              ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,&
    … …  
    51115111       flag_aerosol, flag_aerosol_strat, ok_cdnc)
    51125112#else
    5113     CALL phys_output_write(itap, pdtphys, paprs, pphis,  &
     5113    CALL phys_output_write_xios(itap, pdtphys, paprs, pphis,  &
    51145114         pplay, lmax_th, aerosol_couple,                 &
    51155115         ok_ade, ok_aie, ok_volcan, ivap, iliq, isol,    &
Note: See TracChangeset for help on using the changeset viewer.