Changeset 3726 for trunk/LMDZ.MARS/libf/phymars/read_dust_scenario_mod.F90

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:

• trunk/LMDZ.MARS/libf/phymars/read_dust_scenario_mod.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/read_dust_scenario_mod.F90 ¶

@@ -15 +15 @@
 use planete_h, only: year_day
 USE mod_phys_lmdz_transfert_para, ONLY: bcast
+use callkeys_mod, only: iaervar, dustinjection, swrtype
+
 implicit none
-
-include "callkeys.h"
 
 integer, intent(in) :: ngrid,nlayer
@@ -66 +66 @@
    radeg=180/pi
    
-   ! assimilated dust file: (NB: iaervar is a common in "callkeys.h")
    ! iaervar=4 means read dust_tes.nc file
    ! iaervar=6 means read dust_cold.nc file
@@ -386 +385 @@
 endif
 
-if (swrtype.eq.1) then ! Fouquart (NB: swrtype is set in callkeys.h)
+if (swrtype.eq.1) then ! Fouquart (NB: swrtype is set in callkeys_mod)
  ! when using old radiative transfer (like in MCD 4.x)
  ! needed to decrease opacity (*0.825) to compensate overestimation of