Ignore:
Timestamp:
Apr 17, 2025, 9:45:14 AM (3 months ago)
Author:
emillour
Message:

Mars PCM:
Turn "callkeys.h" into module "callkeys_mod.F90"
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified trunk/LMDZ.MARS/libf/aeronomars/jthermcalc_util.F

    r3464 r3726  
    2323
    2424      implicit none
    25 
    26 
    27 c     common variables and constants
    28       include 'callkeys.h'
    29 
    3025
    3126
    … …  
    719714      use param_v4_h, only: ninter,
    720715     .                      fluxtop, ct1, ct2, p1, p2
     716      use callkeys_mod, only: solvarmod
    721717      implicit none
    722718
    723719
    724 !     common variables and constants
    725       include "callkeys.h"
    726 
    727 
    728720!     Arguments
    729721
    730       real date
     722      real,intent(inout) :: date
    731723
    732724
Note: See TracChangeset for help on using the changeset viewer.