Changeset 3875


Ignore:
Timestamp:
Aug 1, 2025, 4:33:06 PM (3 days ago)
Author:
emillour
Message:

Venus PCM:
Code tidying: get rid of common in tabcontrol.h; turn it into a module.
EM

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
5 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

    r3857 r3875  
    2121      USE clesphys_mod
    2222      USE comcstfi_mod
     23      USE tabcontrol_mod, ONLY: dtime, radpas
    2324      IMPLICIT NONE
    2425
    … …  
    4445#include "dimensions.h"
    4546#include "dimsoil.h"
    46 c#include "comcstfi.h"
    4747#include "netcdf.inc"
    48 c#include "clesphys.h"
    4948#include "iniprint.h"
    50 #include "tabcontrol.h"
    5149
    5250c --------------------------------------------------------------

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

    r3835 r3875  
    2121  use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd, &
    2222                                east_gwstress, west_gwstress
     23  use tabcontrol_mod, only: dtime, radpas, length, tabcntr0
    2324  use clesphys_mod
    2425
    … …  
    2627!======================================================================
    2728include "dimsoil.h"
    28 !include "clesphys.h"
    29 include "tabcontrol.h"
    3029!======================================================================
    3130

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

    r3841 r3875  
    1616                                east_gwstress, west_gwstress
    1717  use age_of_air_mod, only: ok_aoa
     18  use tabcontrol_mod, only: dtime, radpas, length
    1819  use clesphys_mod
    1920 
    … …  
    2526!include "netcdf.inc"
    2627include "dimsoil.h"
    27 !include "clesphys.h"
    28 include "tabcontrol.h"
    2928!======================================================================
    3029

  • trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

    r3841 r3875  
    8484      use sed_and_prod_mad, only: aer_sedimentation, drop_sedimentation
    8585      use iono_h, only: temp_elect, temp_ion
     86      use tabcontrol_mod, only: radpas, dtime
    8687      use clesphys_mod
    8788#ifdef CPP_XIOS     
    … …  
    115116c======================================================================
    116117#include "dimsoil.h"
    117 c#include "clesphys.h"
    118118#include "iniprint.h"
    119119#include "timerad.h"
    120 #include "tabcontrol.h"
    121120#include "nirdata.h"
    122121#include "hedin.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/printflag.F

    r3835 r3875  
    88c      Auteur :  P. Le Van
    99
     10       USE tabcontrol_mod
    1011       USE clesphys_mod
    1112
    … …  
    1718       INTEGER radpas0
    1819c
    19 c#include "clesphys.h"
    20 #include "tabcontrol.h"
    2120#include "YOMCST.h"
    2221c

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

    r3874 r3875  
    1 !-------------------------------------------------------------------
    2 ! INCLUDE tabcontrol.h
    3 !-------------------------------------------------------------------
     1MODULE tabcontrol_mod
    42
    5       INTEGER radpas,chimpas ! frequences d'appel rayonnement, chimie
    6       REAL dtime             ! pas temporel de la physique
     3! stores some formation about run parameters
    74
    8 ! tableau de controle
    9       INTEGER        length
    10       PARAMETER    ( length = 100 )
    11       REAL tabcntr0( length       )
     5IMPLICIT NONE
    126
     7INTEGER,SAVE :: radpas ! rate of computation of radiative transfert, in physics steps
     8!$OMP THREADPRIVATE(radpas)
    139
    14       COMMON/ctltab_i/radpas,chimpas
    15       COMMON/ctltab_r/dtime
    16       COMMON/ctltab/tabcntr0
     10INTEGER,SAVE :: chimpas ! rate of computation of chemistry, in physics steps
     11!$OMP THREADPRIVATE(chimpas)
    1712
    18 !$OMP THREADPRIVATE(/ctltab_i/,/ctltab_r/,/ctltab/)
     13REAL,SAVE :: dtime  ! time step of the physics (s)
     14!$OMP THREADPRIVATE(dtime)
     15
     16! the "controle" array, used to store information in the restartphy file
     17INTEGER,PARAMETER :: length=100
     18REAL,SAVE :: tabcntr0(length)
     19!$OMP THREADPRIVATE(tabcntr0)
     20
     21END MODULE tabcontrol_mod
Note: See TracChangeset for help on using the changeset viewer.