Changeset 5284 for LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

Timestamp:

Oct 28, 2024, 2:12:55 PM (6 hours ago)

Author:

abarral

Message:

Turn alpale.h alpale.f90 YOETHF.h into modules

File:

• LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

@@ -12981 +12981 @@
     USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso
 #endif
+USE yoethf_mod_h
         USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
@@ -13000 +13001 @@
         ! commun aux dfférentes sous-surfaces.
 
-INCLUDE "YOETHF.h"
 INCLUDE "FCTTRE.h"
 !
@@ -13565 +13565 @@
 &       bassin_map
 #endif
+USE yoethf_mod_h
         USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
@@ -13579 +13580 @@
 implicit none
 
-INCLUDE "YOETHF.h"
 INCLUDE "FCTTRE.h"
 
@@ -14492 +14492 @@
 #endif
 
+USE yoethf_mod_h
         USE dimensions_mod, ONLY: iim, jjm, llm, ndm
 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
@@ -14509 +14510 @@
 implicit none
 
-INCLUDE "YOETHF.h"
 INCLUDE "FCTTRE.h"