Changeset 3828 for trunk/LMDZ.VENUS


Ignore:
Timestamp:
Jul 3, 2025, 3:50:22 PM (5 weeks ago)
Author:
ikovalenko
Message:
 
Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
3 edited
1 moved

Legend:

Unmodified
Added
Removed

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

    r2836 r3828  
    55        use dimphy
    66        use conc, only:  rnew, cpnew
     7        use mmol_mod
    78
    89      IMPLICIT NONE
    … …  
    3334#include "YOMCST.h"
    3435#include "clesphys.h"
    35 #include "mmol.h"
     36!#include "mmol.h"
    3637!-----------------------------------------------------------------------
    3738!    Input/Output

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

    r2836 r3828  
    11261126      use dimphy
    11271127      use param_v4_h
     1128      use mmol_mod
    11281129      implicit none
    11291130
    11301131c    common variables and constants
    11311132#include "clesphys.h"
    1132 #include "mmol.h"
     1133c#include "mmol.h"
     1134
    11331135
    11341136c    local parameters and variables

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

    r3827 r3828  
    1    
    21
     2MODULE mmol_mod
     3  IMPLICIT NONE
     4  PUBLIC
    35
    4       real,parameter :: mmolo=16., mmolco=28., mmolco2=44., mmoln2=28. ! molar mass g/mol
    5       real,parameter :: mmolh2=2., mmolh2o2=34., mmolh2o=18., mmolo2=32.
    6       real,parameter :: mmolo3=48., mmolno=30., mmolno2=46., mmoln=14.
    7       real,parameter :: mmolh=1.
     6  REAL, PARAMETER :: mmolo   = 16.0
     7  REAL, PARAMETER :: mmolco  = 28.0
     8  REAL, PARAMETER :: mmolco2 = 44.0
     9  REAL, PARAMETER :: mmoln2  = 28.0
     10  REAL, PARAMETER :: mmolh2  = 2.0
     11  REAL, PARAMETER :: mmolh2o2= 34.0
     12  REAL, PARAMETER :: mmolh2o = 18.0
     13  REAL, PARAMETER :: mmolo2  = 32.0
     14  REAL, PARAMETER :: mmolo3  = 48.0
     15  REAL, PARAMETER :: mmolno  = 30.0
     16  REAL, PARAMETER :: mmolno2 = 46.0
     17  REAL, PARAMETER :: mmoln   = 14.0
     18  REAL, PARAMETER :: mmolh   = 1.0
     19
     20END MODULE mmol_mod

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

    r2580 r3828  
    55       use geometry_mod, only: longitude_deg, latitude_deg
    66       use chemparam_mod, only: i_co2, i_o
     7       use mmol_mod
    78c       use compo_hedin83_mod2
    89
    … …  
    6061#include "nirdata.h"
    6162c#include "tracer.h"
    62 #include "mmol.h"
     63c#include "mmol.h"
     64
    6365c-----------------------------------------------------------------------
    6466c    Input/Output
Note: See TracChangeset for help on using the changeset viewer.