Changeset 3961 for trunk/LMDZ.COMMON/libf/evolution/iostart_PEM.F90

Timestamp:

Nov 14, 2025, 5:26:48 PM (4 weeks ago)

Author:

jbclement

Message:

PEM:
Clearing all the tags and code related to the Generic PCM.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/iostart_PEM.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/iostart_PEM.F90

@@ -475 +475 @@
   USE mod_grid_phy_lmdz, only: klon_glo
   USE dimphy, only: klev, klevp1
-#ifndef CPP_STD
   USE tracer_mod, only: nqmx
-#else
-  use tracer_h, only:   nqtot
-#endif
   USE comsoil_h_PEM, only:  nsoilmx_PEM
   USE comslope_mod, only: nslope
@@ -487 +483 @@
     INTEGER                     :: ierr
     LOGICAL,SAVE :: already_created=.false.
-
-#ifdef CPP_STD
-    INTEGER :: nqmx
-    nqmx=nqtot
-#endif
 
     IF (is_master) THEN