Changeset 2487 for trunk


Ignore:
Timestamp:
Mar 26, 2021, 9:55:56 AM (4 years ago)
Author:
emillour
Message:

Venus GCM:
Code cleanup: get rid of unused "solaire" variable.
EM

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/clesphys.h

    r2464 r2487  
    2020       INTEGER nb_mode
    2121       REAL    ecriphy
    22        REAL    solaire
    2322       REAL    z0, lmixmin
    2423       REAL    ksta, inertie
    … …  
    3635     &     cl_scheme, nircorr, nltemodel, solvarmod, nb_mode
    3736
    38        COMMON/clesphys_r/ ecriphy, solaire, z0, lmixmin,                &
     37       COMMON/clesphys_r/ ecriphy, z0, lmixmin,                         &
    3938     &     ksta, inertie, euveff, fixed_euv_value
    4039

  • trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90

    r2464 r2487  
    159159  call getin('if_ebil', if_ebil)
    160160!!
    161 !! Constante solaire & Parametres orbitaux & taux gaz effet de serre BEG
     161!! Parametres orbitaux
    162162!!
    163163!Config Key  = R_ecc
    … …  
    189189  call getin('R_incl', R_incl)
    190190!
    191 !Config Key  = solaire
    192 !Config Desc = Constante solaire en W/m2
    193 ! VENUS
    194 !Config Def  = 2620.
    195 !Config Help =
    196 !
    197   solaire = 2620.
    198     call getin('solaire', solaire)
    199191!
    200192!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  • trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90

    r1621 r2487  
    4242      tab_cntrl(2) = radpas
    4343      tab_cntrl(3) = 0.0
    44       tab_cntrl(4) = solaire
     44      tab_cntrl(4) = 0
    4545      tab_cntrl(5) = 0
    4646      tab_cntrl(6) = nbapp_rad
Note: See TracChangeset for help on using the changeset viewer.