Changeset 3857 for trunk


Ignore:
Timestamp:
Jul 18, 2025, 2:40:30 PM (7 weeks ago)
Author:
ikovalenko
Message:

Venus PCM:
Replaced comcstfi.h by comcstfi_mod.F90.
IK

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

Legend:

Unmodified
Added
Removed

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

    r3856 r3857  
    11!-----------------------------------------------------------------------
    22! INCLUDE comcstfi.h
    3 
    4       COMMON/comcstfi/rad,g,r,rcp,dtphys,daysec,mugaz,omeg
    5 
    6       REAL rad,g,r,rcp,dtphys,daysec,mugaz,omeg
    7 
     3!
     4!     COMMON/comcstfi/rad,g,r,rcp,dtphys,daysec,mugaz,omeg
     5!
     6!      REAL rad,g,r,rcp,dtphys,daysec,mugaz,omeg
     7!
    88!-----------------------------------------------------------------------
     9MODULE comcstfi_mod
     10  IMPLICIT NONE
     11  REAL, SAVE :: rad, g, r, rcp, dtphys, daysec, mugaz, omeg
     12END MODULE comcstfi_mod

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

    r3835 r3857  
    2020      USE parallel_lmdz, ONLY: init_parallel
    2121      USE clesphys_mod
     22      USE comcstfi_mod
    2223      IMPLICIT NONE
    2324
    … …  
    4344#include "dimensions.h"
    4445#include "dimsoil.h"
    45 #include "comcstfi.h"
     46c#include "comcstfi.h"
    4647#include "netcdf.inc"
    4748c#include "clesphys.h"

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

    r3221 r3857  
    44USE chemparam_mod
    55USE infotrac_phy
    6 USE dimphy   
     6USE dimphy
     7USE comcstfi_mod   
    78
    89implicit none
    910
    10 #include "comcstfi.h"
     11!#include "comcstfi.h"
    1112#include "diffusion.h"
    1213
Note: See TracChangeset for help on using the changeset viewer.