Changeset 5271 for LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.f90

Timestamp:

Oct 24, 2024, 4:25:39 PM (26 hours ago)

Author:

abarral

Message:

Move dimensions.h into a module
Nb: doesn't compile yet

File:

• LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.f90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.f90

@@ -6 +6 @@
    USE iso_params_mod, ONLY: tnat_H216O, tnat_H217O, tnat_H218O, tnat_HDO, tnat_HTO
    USE ioipsl,          ONLY: getin
-   IMPLICIT NONE
-   include "dimensions.h"
+   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
+
    REAL,             INTENT(INOUT) :: q(ijb_u:ije_u,llm,nqtot)
    INTEGER,          INTENT(IN)    :: ijb, ije   !--- Can be local and different from ijb_u,ije_u, for example in qminimum