Changeset 1621 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Oct 25, 2016, 9:23:21 AM (8 years ago)
Author:
emillour
Message:

Further work on full dynamics/physics separation.

LMDZ.COMMON:

  • added phy_common/vertical_layers_mod.F90 to store information on vertical grid. This is where routines in the physics should get the information.
  • The contents of vertical_layers_mod intialized via dynphy_lonlat/inigeomphy_mod.F90.

LMDZ.MARS:

  • physics now completely decoupled from dynamics; the physics package may now be compiled as a library (-libphy option of makelmdz_fcm).
  • created an "ini_tracer_mod" routine in module "tracer_mod" for a cleaner initialization of the later.
  • removed some purely dynamics-related outputs (etot0, zoom parameters, etc.) from diagfi.nc and stats.nc outputs as these informations are not available in the physics.

LMDZ.GENERIC:

  • physics now completely decoupled from dynamics; the physics package may now be compiled as a library (-libphy option of makelmdz_fcm).
  • added nqtot to tracer_h.F90.
  • removed some purely dynamics-related outputs (etot0, zoom parameters, etc.) from diagfi.nc and stats.nc outputs as these informations are not available in the physics.

LMDZ.VENUS:

  • physics now completely decoupled from dynamics; the physics package may now be compiled as a library (-libphy option of makelmdz_fcm).
  • added infotrac_phy.F90 to store information on tracers in the physics. Initialized via iniphysiq.
  • added cpdet_phy_mod.F90 to store t2tpot etc. functions to be used in the physics. Initialized via iniphysiq. IMPORTANT: there are some hard-coded constants! These should match what is in cpdet_mod.F90 in the dynamics.
  • got rid of references to moyzon_mod module within the physics. The required variables (tmoy, plevmoy) are passed to the physics as arguments to physiq.

LMDZ.TITAN:

  • added infotrac_phy.F90 to store information on tracers in the physics. Initialized via iniphysiq.
  • added cpdet_phy_mod.F90 to store t2tpot etc. functions to be used in the physics.
  • Extra work required to completely decouple physics and dynamics: moyzon_mod should be cleaned up and information passed from dynamics to physics as as arguments. Likewise moyzon_ch and moyzon_mu should not be queried from logic_mod (which is in the dynamics).

EM

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

Legend:

Unmodified
Added
Removed

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

    r1530 r1621  
    88      use dimphy
    99      use mod_grid_phy_lmdz, only: nbp_lev
    10       use cpdet_mod, only: t2tpot, tpot2t
     10      use cpdet_phy_mod, only: t2tpot, tpot2t
    1111      IMPLICIT none
    1212c======================================================================

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

    r1468 r1621  
    671671 
    672672  SUBROUTINE chemparam_ini
    673   USE infotrac
     673  USE infotrac_phy, ONLY: nqtot, tname
    674674  IMPLICIT NONE
    675675  INTEGER :: i

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

    r1591 r1621  
    3636      use dimphy
    3737      use mod_grid_phy_lmdz, only: nbp_lev
    38       use cpdet_mod, only: t2tpot
     38      use cpdet_phy_mod, only: t2tpot
    3939      IMPLICIT none
    4040c======================================================================
    … …  
    480480      use dimphy
    481481      use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
    482       use cpdet_mod, only: t2tpot,tpot2t,cpdet
     482      use cpdet_phy_mod, only: t2tpot,tpot2t,cpdet
    483483
    484484      IMPLICIT none
    … …  
    918918
    919919      use dimphy
    920       use cpdet_mod, only: cpdet,t2tpot
     920      use cpdet_phy_mod, only: cpdet,t2tpot
    921921      IMPLICIT none
    922922c======================================================================
    … …  
    12291229      use dimphy
    12301230      use mod_grid_phy_lmdz, only: nbp_lev
    1231       use cpdet_mod, only: cpdet
     1231      use cpdet_phy_mod, only: cpdet
    12321232      IMPLICIT none
    12331233c======================================================================

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

    r1591 r1621  
    33      use dimphy
    44      use conc,  only: mmean, rho, Akknew, rnew, cpnew
    5       use cpdet_mod, only: cpdet                       
     5      use cpdet_phy_mod, only: cpdet                       
    66      USE chemparam_mod
    7       use infotrac
    87
    98      implicit none

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

    r1530 r1621  
    208208 
    209209      use dimphy
    210       use cpdet_mod, only: cpdet
     210      use cpdet_phy_mod, only: cpdet
    211211      IMPLICIT NONE
    212212C

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

    r1549 r1621  
    403403     ,     plev,play,pk,phi,phisfi,
    404404     ,     presnivs,
    405      ,     u,v,temp,q, 
     405     ,     u,v,temp,q,
     406     ,     plev,temp, ! "planetary mean" plev and temperature
    406407     ,     w,
    407408C - sorties

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

    r1591 r1621  
    11      SUBROUTINE FLOTT_GWD_RAN(NLON,NLEV,DTIME, pp, pn2,  &
    2                   tt,uu,vv,zustr,zvstr,d_t, d_u, d_v)
     2                  tt,uu,vv, plevmoy, &
     3                  zustr,zvstr,d_t, d_u, d_v)
    34
    45    !----------------------------------------------------------------------
    … …  
    1415
    1516      use dimphy
    16       use moyzon_mod, only: plevmoy
    1717      implicit none
    1818
    … …  
    3232    REAL, intent(in):: UU(NLON, NLEV) , VV(NLON, NLEV)
    3333    ! Hor winds at full levels
     34    REAL, intent(in) :: plevmoy(NLEV+1) ! (planet-averaged) mean pressure (Pa) at interlayers
    3435
    3536    ! 0.2 OUTPUTS

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

    r1017 r1621  
    4646
    4747      use write_field_phy
    48       use cpdet_mod, only: cpdet
     48      use cpdet_phy_mod, only: cpdet
    4949
    5050      IMPLICIT none
    … …  
    197197
    198198  use write_field_phy
    199   use cpdet_mod, only: t2tpot, tpot2t
     199  use cpdet_phy_mod, only: t2tpot, tpot2t
    200200
    201201  IMPLICIT none

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

    r1530 r1621  
    66     
    77      use dimphy
    8       use cpdet_mod, only: cpdet
     8      use cpdet_phy_mod, only: cpdet
    99      IMPLICIT none
    1010

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

    r1530 r1621  
    22
    33      use dimphy
    4       use cpdet_mod, only: cpdet
     4      use cpdet_phy_mod, only: cpdet
    55      implicit none
    66

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

    r1609 r1621  
    33
    44USE chemparam_mod
    5 USE infotrac
     5USE infotrac_phy
    66USE dimphy   
    77
    … …  
    935935        SUBROUTINE QMNEW(Q1,DQ,Q2,dtime,nl,nq,gc,ig)
    936936        use chemparam_mod
    937         use infotrac
     937        use infotrac_phy
    938938        IMPLICIT NONE
    939939
    … …  
    971971        SUBROUTINE MMOY(massemoy,mol_tr,qq,gc,nl,nq)
    972972        use chemparam_mod
    973         use infotrac
     973        use infotrac_phy
    974974        IMPLICIT NONE
    975975
    … …  
    10571057     & Nraf,Nrafk,Rraf,Rrafk,il,nl,nq,nlx,ig)
    10581058        use chemparam_mod
    1059         use infotrac
     1059        use infotrac_phy
    10601060        IMPLICIT NONE
    10611061#include "YOMCST.h"
    … …  
    14011401     &    pp,M,gc,nl,nq,nlx,ig)
    14021402        use chemparam_mod
    1403         use infotrac
     1403        use infotrac_phy
    14041404        IMPLICIT NONE
    14051405#include "YOMCST.h"

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

    r1530 r1621  
    22
    33       USE chemparam_mod
    4        USE infotrac
     4       USE infotrac_phy
    55       USE dimphy   
    6        use infotrac
    76
    87       IMPLICIT NONE

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

    r1543 r1621  
    55
    66      USE ioipsl
    7       USE infotrac
    87      USE dimphy
    98      USE chemparam_mod

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

    r1525 r1621  
    55
    66 USE chemparam_mod
    7  USE infotrac
    87     
    98 implicit none

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

    r1545 r1621  
    1212      USE phys_state_var_mod
    1313      USE iostart
    14       USE infotrac
    1514      use geometry_mod, only: longitude_deg, latitude_deg
    1615      USE time_phylmdz_mod, only: itau_phy, raz_date

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

    r1545 r1621  
    1111      USE iostart, only : open_restartphy,close_restartphy, &
    1212                          put_var,put_field
    13       USE infotrac
    1413      use geometry_mod, only: longitude_deg, latitude_deg
    1514      USE time_phylmdz_mod, only: day_end, annee_ref, itau_phy, raz_date

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

    r1572 r1621  
    1212     .            paprs,pplay,ppk,pphi,pphis,presnivs,
    1313     .            u,v,t,qx,
    14      .            flxmw,
     14     .            flxmw, plevmoy, tmoy,
    1515     .            d_u, d_v, d_t, d_qx, d_ps)
    1616
    … …  
    6161      USE ioipsl
    6262!      USE histcom ! not needed; histcom is included in ioipsl
    63       USE infotrac
    6463      use dimphy
    6564      USE geometry_mod,only: longitude, latitude, ! in radians
    … …  
    7271      USE write_field_phy
    7372      USE iophy
    74       USE cpdet_mod, only: cpdet, t2tpot
     73      USE cpdet_phy_mod, only: cpdet, t2tpot
    7574      USE chemparam_mod
    7675      USE conc
    7776      USE compo_hedin83_mod2
    78       use moyzon_mod, only: tmoy
    7977!      use ieee_arithmetic
    8078      use time_phylmdz_mod, only: annee_ref, day_ref, itau_phy
    8179      use mod_grid_phy_lmdz, only: nbp_lon
    82       use logic_mod, only: iflag_trac
     80      use infotrac_phy, only: iflag_trac, tname, ttext
    8381      IMPLICIT none
    8482c======================================================================
    … …  
    139137
    140138      REAL flxmw(klon,klev)
     139      REAL,INTENT(IN) :: plevmoy(klev+1) ! planet-averaged mean pressure (Pa) at interfaces
     140      REAL,INTENT(IN) :: tmoy(klev) ! planet-averaged mean temperature (Pa) at mid-layers
    141141
    142142      REAL d_u(klon,klev)
    … …  
    15491549
    15501550      call flott_gwd_ran(klon,klev,dtime,pplay,zn2,
    1551      e               t_seri, u_seri, v_seri,
     1551     e               t_seri, u_seri, v_seri, plevmoy,
    15521552     o               zustrhi,zvstrhi,
    15531553     o               d_t_hin, d_u_hin, d_v_hin)

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

    r1543 r1621  
    2828c
    2929c======================================================================
    30       USE infotrac
     30      USE infotrac_phy, ONLY: nqtot
    3131      use dimphy
    3232      USE geometry_mod, only: cell_area

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

    r1543 r1621  
    2525c
    2626c======================================================================
    27       USE infotrac
     27      USE infotrac_phy, ONLY: nqtot, tname
    2828      use dimphy
    2929      USE chemparam_mod,only:M_tr

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

    r1530 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99

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

    r1530 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99

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

    r1530 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99

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

    r1530 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99

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

    r1591 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99

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

    r1591 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99

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

    r1530 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99

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

    r1530 r1621  
    55     
    66      use dimphy
    7       use cpdet_mod, only: cpdet
     7      use cpdet_phy_mod, only: cpdet
    88      IMPLICIT none
    99
Note: See TracChangeset for help on using the changeset viewer.