Changeset 3778 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Oct 22, 2020, 1:36:13 PM (4 years ago)
Author:
Laurent Fairhead
Message:

Problem with previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3777 r3778  
    15381538       CALL phyetat0 ("startphy.nc",clesphy0,tabcntr0)
    15391539
    1540 
    15411540          !===================================================================
    15421541          !IM stations CFMIP
     
    16491648               pmflxr(:,1:klev),pmflxs(:,1:klev), &
    16501649               mr_ozone,cldtau, cldemi)
     1650      ENDIF
     1651#endif
    16511652
    16521653#ifdef CPP_COSP2
     
    19121913
    19131914#ifdef CPP_XIOS
    1914        !--setting up swaero_diag to TRUE in XIOS case
    1915        IF (xios_field_is_active("topswad").OR.xios_field_is_active("topswad0").OR. &
    1916            xios_field_is_active("solswad").OR.xios_field_is_active("solswad0").OR. &
    1917            xios_field_is_active("topswai").OR.xios_field_is_active("solswai").OR.  &
    1918              (iflag_rrtm==1.AND.(xios_field_is_active("toplwad").OR.xios_field_is_active("toplwad0").OR. &
    1919                                  xios_field_is_active("sollwad").OR.xios_field_is_active("sollwad0"))))  &
    1920            !!!--for now these fields are not in the XML files so they are omitted
    1921            !!!  xios_field_is_active("toplwai").OR.xios_field_is_active("sollwai") !))) &
    1922            swaero_diag=.TRUE.
    1923 
    1924        !--setting up dryaod_diag to TRUE in XIOS case
    1925        DO naero = 1, naero_tot-1
    1926          IF (xios_field_is_active("dryod550_"//name_aero_tau(naero))) dryaod_diag=.TRUE.
    1927        ENDDO
    1928        !
    1929        !--setting up ok_4xCO2atm to TRUE in XIOS case
    1930        IF (xios_field_is_active("rsut4co2").OR.xios_field_is_active("rlut4co2").OR. &
    1931            xios_field_is_active("rsutcs4co2").OR.xios_field_is_active("rlutcs4co2").OR. &
    1932            xios_field_is_active("rsu4co2").OR.xios_field_is_active("rsucs4co2").OR. &
    1933            xios_field_is_active("rsd4co2").OR.xios_field_is_active("rsdcs4co2").OR. &
    1934            xios_field_is_active("rlu4co2").OR.xios_field_is_active("rlucs4co2").OR. &
    1935            xios_field_is_active("rld4co2").OR.xios_field_is_active("rldcs4co2")) &
    1936            ok_4xCO2atm=.TRUE.
     1915! Need to put this initialisation after phyetat0 as in the coupled model the XIOS context is only
     1916! initialised at that moment
     1917       ! Get "missing_val" value from XML files (from temperature variable)
     1918       !$OMP MASTER
     1919       CALL xios_get_field_attr("temp",default_value=missing_val_omp)
     1920       !$OMP END MASTER
     1921       !$OMP BARRIER
     1922       missing_val=missing_val_omp
    19371923#endif
    19381924
Note: See TracChangeset for help on using the changeset viewer.