Changeset 1525 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Mar 30, 2016, 8:24:43 AM (9 years ago)
Author:
emillour
Message:

All GCMs:
More on enforcing dynamics/physics separation: get rid of references to "control_mod" from physics packages.
EM

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
1 added
12 edited

Legend:

Unmodified
Added
Removed

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

    r1452 r1525  
    6868     subroutine conc_init
    6969     USE dimphy
    70      USE control_mod
    7170     implicit none
    7271#include"param.h"

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

    r1523 r1525  
    22     
    33      USE infotrac
    4       use control_mod
     4      use control_mod, only: planet_type, day_step
    55      use comgeomphy
    66      USE phys_state_var_mod

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

    r1442 r1525  
    66      USE ioipsl
    77      USE infotrac
    8       USE control_mod
    98      USE dimphy
    109      USE comgeomphy

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

    r1506 r1525  
    44 SUBROUTINE new_photochemistry_venus(nz, n_lon, ptimestep, p, t ,tr, mumean, sza_input, nesp)
    55
    6 ! USE ioipsl
    7 ! USE control_mod
    8 ! USE dimphy
    9 ! USE comgeomphy
    106 USE chemparam_mod
    117 USE infotrac

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

    r1524 r1525  
    1414      USE infotrac
    1515      USE comgeomphy,  only: rlatd,rlond
    16       USE control_mod, only: raz_date
    17       USE time_phylmdz_mod, only: itau_phy
     16      USE time_phylmdz_mod, only: itau_phy, raz_date
    1817
    1918implicit none

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

    r1524 r1525  
    1313      USE infotrac
    1414      USE comgeomphy,  only: rlatd,rlond
    15       USE control_mod, only: raz_date
    16       USE time_phylmdz_mod, only: day_end, annee_ref, itau_phy
     15      USE time_phylmdz_mod, only: day_end, annee_ref, itau_phy, raz_date
    1716
    1817      implicit none

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

    r1314 r1525  
    110110!======================================================================
    111111SUBROUTINE phys_state_var_init
    112 use dimphy
    113 USE control_mod
     112
    114113IMPLICIT NONE
    115114#include "dimsoil.h"
    … …  
    161160!======================================================================
    162161SUBROUTINE phys_state_var_end
    163 use dimphy
    164 use control_mod
     162
    165163IMPLICIT NONE
    166164

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

    r1524 r1525  
    5757!      USE histcom ! not needed; histcom is included in ioipsl
    5858      USE infotrac
    59       USE control_mod
    6059      use dimphy
    6160      USE comgeomphy

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

    r1452 r1525  
    2424cAA 1/ le call phytrac se fait avec nqmax
    2525c======================================================================
    26 c      USE ioipsl
    27 c      USE infotrac
    28 c      USE control_mod
    29 c      USE dimphy
    30 c      USE comgeomphy
    3126      USE chemparam_mod
    3227      use conc, only: mmean

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

    r1519 r1525  
    2828c
    2929c======================================================================
    30       USE ioipsl
    3130      USE infotrac
    32       USE control_mod
    3331      use dimphy
    3432      USE comgeomphy

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

    r1519 r1525  
    2525c
    2626c======================================================================
    27       USE ioipsl
    2827      USE infotrac
    29       USE control_mod
    3028      use dimphy
    3129      USE comgeomphy

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

    r1524 r1525  
    1212    INTEGER,SAVE :: day_end     ! final day of the run since first day of annee_ref
    1313!$OMP THREADPRIVATE(day_end)
     14    INTEGER,SAVE :: raz_date    ! flag to reset date (0:no, 1:yes)
     15!$OMP THREADPRIVATE(raz_date)
    1416    INTEGER,SAVE :: itau_phy     ! number of physics iterations
    1517!$OMP THREADPRIVATE(itau_phy)
    … …  
    1820
    1921  SUBROUTINE init_time(annee_ref_, day_ref_, day_ini_, day_end_, pdtphys_)
     22    USE ioipsl_getin_p_mod, ONLY : getin_p
    2023    IMPLICIT NONE
    2124    INTEGER,INTENT(IN) :: annee_ref_
    … …  
    3134    pdtphys=pdtphys_
    3235
     36    ! Initialize module variable not inherited from dynamics
     37    raz_date = 0 ! default value
     38    CALL getin_p('raz_date', raz_date)
     39   
    3340  END SUBROUTINE init_time
    3441
Note: See TracChangeset for help on using the changeset viewer.