Ignore:
Timestamp:
Oct 20, 2016, 10:23:23 PM (8 years ago)
Author:
oboucher
Message:

Dealing with initialisation of swaero_diag in the case of XIOS outputs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing/libf/phylmd/physiq_mod.F90

    r2669 r2675  
    219219#ifdef CPP_XIOS
    220220    USE wxios, ONLY: missing_val, missing_val_omp
    221     USE xios, ONLY: xios_get_field_attr
     221    USE xios, ONLY: xios_get_field_attr, xios_field_is_active
    222222#endif
    223223#ifdef REPROBUS
     
    15231523       !   Initialisation des sorties
    15241524       !=============================================================
     1525
     1526#ifdef CPP_XIOS
     1527    !--setting up swaero_diag to TRUE in XIOS case
     1528    IF (xios_field_is_active("topswad").OR.xios_field_is_active("topswad0").OR. &
     1529        xios_field_is_active("solswad").OR.xios_field_is_active("solswad0").OR. &
     1530        xios_field_is_active("topswai").OR.xios_field_is_active("solswai").OR.  &
     1531           (iflag_rrtm==1.AND.(xios_field_is_active("toplwad").OR.xios_field_is_active("toplwad0").OR. &
     1532                               xios_field_is_active("sollwad").OR.xios_field_is_active("sollwad0"))))  &
     1533        !!!--for now these fields are not in the XML files so they are omitted
     1534        !!!  xios_field_is_active("toplwai").OR.xios_field_is_active("sollwai") !))) &
     1535        swaero_diag=.TRUE.
     1536#endif
    15251537
    15261538#ifdef CPP_IOIPSL
     
    36933705               ZSWFT0_i, ZFSDN0, ZFSUP0)
    36943706
    3695           !--OB 30/05/2016
     3707#ifndef CPP_XIOS
     3708          !--OB 30/05/2016 modified 20/10/2016
    36963709          !--here we return swaero_diag to FALSE
    36973710          !--and histdef will switch it back to TRUE if necessary
    36983711          !--this is necessary to get the right swaero at first step
     3712          !--but only in the case of no XIOS as XIOS is covered elsewhere
    36993713          IF (debut) swaero_diag = .FALSE.
     3714#endif
    37003715          !
    37013716          !IM 2eme calcul radiatif pour le cas perturbe ou au moins un
Note: See TracChangeset for help on using the changeset viewer.