Changeset 3460 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Feb 1, 2019, 3:54:47 PM (6 years ago)
Author:
Laurent Fairhead
Message:

Need initialisation of RRTM before starting to write outputs

File:
1 edited

Legend:

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

    r3457 r3460  
    16151615#endif
    16161616
    1617        CALL phys_output_write(itap, pdtphys, paprs, pphis,                    &
    1618                               pplay, lmax_th, aerosol_couple,                 &
    1619                               ok_ade, ok_aie, ivap, iliq, isol, new_aod, ok_sync,&
    1620                               ptconv, read_climoz, clevSTD,                   &
    1621                               ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
    1622                               flag_aerosol, flag_aerosol_strat, ok_cdnc)
     1617       !
     1618       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     1619       ! Nouvelle initialisation pour le rayonnement RRTM
     1620       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     1621
     1622       CALL iniradia(klon,klev,paprs(1,1:klev+1))
     1623
    16231624
    16241625#ifdef CPP_XIOS
     
    17711772       tave = 'ave(X)'
    17721773       !IM cf. AM 081204 BEG
    1773        write(lunout,*)'AVANT HIST IFLAG_CON=',iflag_con
    17741774       !IM cf. AM 081204 END
    17751775       !
     
    17771777       !   Initialisation des sorties
    17781778       !=============================================================
     1779
     1780       CALL phys_output_write(itap, pdtphys, paprs, pphis,                    &
     1781                              pplay, lmax_th, aerosol_couple,                 &
     1782                              ok_ade, ok_aie, ivap, iliq, isol, new_aod, ok_sync,&
     1783                              ptconv, read_climoz, clevSTD,                   &
     1784                              ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
     1785                              flag_aerosol, flag_aerosol_strat, ok_cdnc)
    17791786
    17801787#ifdef CPP_XIOS
     
    18611868#endif
    18621869       ENDIF
    1863        !
    1864        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1865        ! Nouvelle initialisation pour le rayonnement RRTM
    1866        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1867 
    1868        CALL iniradia(klon,klev,paprs(1,1:klev+1))
    1869 
    18701870       !$omp single
    18711871       IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
Note: See TracChangeset for help on using the changeset viewer.