Changeset 3726 for trunk/LMDZ.MARS/libf/phymars/nuclea.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/nuclea.F (modified) (2 diffs)

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

@@ -9 +9 @@
       use microphys_h, only: nbin_cld, rad_cld, nav, mteta, m0
       use microphys_h, only: desorp, kbz, nus, rgp, surfdif, vo1
+      use callkeys_mod, only: temp_dependent_m, cloud_adapt_ts
       implicit none
 *                                                     *
@@ -20 +21 @@
 *     Optimisation by A. Spiga (February 2012)        *  
 *******************************************************
-
-      include "callkeys.h"
 
 c     Inputs