Changeset 2487 for trunk/LMDZ.VENUS

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:

• clesphys.h (modified) (2 diffs)
• conf_phys.F90 (modified) (2 diffs)
• phyredem.F90 (modified) (1 diff)

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

@@ -20 +20 @@
        INTEGER nb_mode
        REAL    ecriphy
-       REAL    solaire
        REAL    z0, lmixmin
        REAL    ksta, inertie
@@ -36 +35 @@
      &     cl_scheme, nircorr, nltemodel, solvarmod, nb_mode
 
-       COMMON/clesphys_r/ ecriphy, solaire, z0, lmixmin,                &
+       COMMON/clesphys_r/ ecriphy, z0, lmixmin,                         &
      &     ksta, inertie, euveff, fixed_euv_value
 

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

@@ -159 +159 @@
   call getin('if_ebil', if_ebil)
 !!
-!! Constante solaire & Parametres orbitaux & taux gaz effet de serre BEG
+!! Parametres orbitaux
 !!
 !Config Key  = R_ecc
@@ -189 +189 @@
   call getin('R_incl', R_incl)
 !
-!Config Key  = solaire
-!Config Desc = Constante solaire en W/m2
-! VENUS
-!Config Def  = 2620.
-!Config Help = 
-!
-  solaire = 2620.
-    call getin('solaire', solaire)
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

@@ -42 +42 @@
       tab_cntrl(2) = radpas
       tab_cntrl(3) = 0.0
-      tab_cntrl(4) = solaire
+      tab_cntrl(4) = 0
       tab_cntrl(5) = 0
       tab_cntrl(6) = nbapp_rad