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

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

@@ -14 +14 @@
      &                          nsun,naerkind
       use yomlw_h, only: nlaylte, gcp
+      use callkeys_mod, only: swrtype
       IMPLICIT NONE
 
-c     DECLARATIONS
-c     -------------      
-      include "callkeys.h"
 c     
 c     PURPOSE.
@@ -146 +144 @@
       DO INU = 1,2
 
-! NB: swrtype is set in callkeys.h
+! NB: swrtype is set in callkeys_mod
         if (swrtype.eq.1) then ! Fouquart
           CALL SWR_FOUQUART( KDLON, kflev, INU