Changeset 4088 for trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90

Timestamp:

Feb 27, 2026, 8:46:42 AM (2 weeks ago)

Author:

emillour

Message:

Venus PCM:
Cleanup: remove unused (because are remains from Earth LMDZ code
never adapted to venus) diagnostics diagphy and diagetpq routines
and related flag "if_ebil".
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90 (modified) (4 diffs)

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

@@ -5 +5 @@
 contains
 
-  subroutine conf_phys(ok_journe, ok_mensuel, ok_instan, &
- &                     if_ebil)
+  subroutine conf_phys(ok_journe, ok_mensuel, ok_instan)
    use init_print_control_mod, only: init_print_control
    use print_control_mod, only: lunout
@@ -25 +24 @@
 ! Sortie:
   logical,intent(out)  :: ok_journe, ok_mensuel, ok_instan        
-  integer,intent(out)  :: if_ebil
 
 
@@ -151 +149 @@
 !
 !
-!Config Key  = if_ebil
-!Config Desc = Niveau de sortie pour les diags bilan d'energie 
-!Config Def  = 0
-!Config Help = 
-!               
-!
-  if_ebil = 0
-  call getin_p('if_ebil', if_ebil)
+
 !!
 !! Parametres orbitaux
@@ -746 +737 @@
   write(lunout,*)' Sortie instantanee = ', ok_instan
   write(lunout,*)' frequence sorties = ', ecriphy  
-  write(lunout,*)' Sortie bilan d''energie, if_ebil =', if_ebil
   write(lunout,*)' Excentricite = ',R_ecc
   write(lunout,*)' Equinoxe = ',R_peri