Changeset 3942 for trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

Timestamp:

Oct 29, 2025, 11:20:13 PM (2 months ago)

Author:

mturbet

Message:

remove startype options from ave_stelspec routine

File:

• trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

@@ -101 +101 @@
       integer,save :: iaervar
       integer,save :: iradia
-      integer,save :: startype
       integer,save :: versH2H2cia
       character(64),save :: H2orthopara_mixture
       integer,save :: nlayaero
-!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,H2orthopara_mixture,nlayaero)
+!$OMP THREADPRIVATE(iddist,iaervar,iradia,versH2H2cia,H2orthopara_mixture,nlayaero)
       integer,dimension(:),allocatable,save :: aeronlay_choice
 !$OMP THREADPRIVATE(aeronlay_choice)