Changeset 3726 for trunk/LMDZ.MARS/libf/phymars/initracer.F

Timestamp:

Apr 17, 2025, 9:45:14 AM (2 months ago)

Author:

emillour

Message:

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

File:

• trunk/LMDZ.MARS/libf/phymars/initracer.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/initracer.F

@@ -4 +4 @@
        use comcstfi_h, only: pi
        use dust_param_mod, only: doubleq, submicron, dustbin
+       use callkeys_mod, only: water, microphys, scavenging, rdstorm,
+     &                         topflows, photochem, callthermos, hdo,
+     &                         callnlte, nltemodel, dustinjection,
+     &                         co2clouds, co2useh2o, meteo_flux
        IMPLICIT NONE
 c=======================================================================
@@ -24 +28 @@
 c=======================================================================
 
-
-      include "callkeys.h"
 
       integer,intent(in) :: ngrid ! number of atmospheric columns