Changeset 4949 for LMDZ6/trunk/libf


Ignore:
Timestamp:
May 22, 2024, 2:59:35 PM (6 months ago)
Author:
lebasn
Message:

StratAer/Reprobus?: move strataer var init after iniradia call (avoid undef var usage)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4887 r4949  
    13951395          CALL regr_horiz_time_climoz(read_climoz,ok_daily_climoz)
    13961396
    1397 #ifdef REPROBUS
    1398        CALL strataer_init
    1399        CALL strataer_emiss_init
    1400 #endif
    1401 
    1402 #ifdef CPP_StratAer
    1403        CALL strataer_init
    1404        CALL strataer_nuc_init
    1405        CALL strataer_emiss_init
    1406 #endif
    1407 
    14081397       print*, '================================================='
    14091398       !
    … …  
    19001889       !
    19011890!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     1891#ifdef REPROBUS
     1892       CALL strataer_init
     1893       CALL strataer_emiss_init
     1894#endif
     1895
     1896#ifdef CPP_StratAer
     1897       CALL strataer_init
     1898       CALL strataer_nuc_init
     1899       CALL strataer_emiss_init
     1900#endif
    19021901
    19031902#ifdef CPP_Dust
Note: See TracChangeset for help on using the changeset viewer.