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

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

@@ -16 +16 @@
       use yomlw_h, only: nlaylte
       use nlteparams_h, only: ptrans, pminte, zw
+      use callkeys_mod, only: callnlte
       implicit none
-      include "callkeys.h"
 
 c
@@ -26 +26 @@
 c
 c     Local:
-      integer igpmax, ismax
-      logical firstcall
-
+      integer ismax
+      integer,save :: igpmax
+      logical,save :: firstcall = .true.
 !$OMP THREADPRIVATE(firstcall,igpmax)
 
-      data firstcall /.true./
-      save firstcall, igpmax
 c
       if(firstcall) then