Changeset 5724

Timestamp:

Jun 26, 2025, 7:33:28 PM (5 weeks ago)

Author:

yann meurdesoif

Message:

Due to dynamico module reorganization, some module imports were missing.
YM

Location:

ICOSA_LMDZ/src/phylmd

Files:

• icolmdz_etat0.f90 (modified) (1 diff)
• icolmdz_param_gravity_wave.f90 (modified) (4 diffs)
• interface_icosa_lmdz.F90 (modified) (3 diffs)

ICOSA_LMDZ/src/phylmd/icolmdz_etat0.f90

@@ -66 +66 @@
       USE omp_para
       USE tracer_icosa_mod
+      USE earth_const, ONLY : g
       IMPLICIT NONE
       TYPE(t_field), POINTER :: f_ps(:)

ICOSA_LMDZ/src/phylmd/icolmdz_param_gravity_wave.f90

@@ -9 +9 @@
   
   SUBROUTINE init_param_gravity_wave
-  USE getin_mod
-  USE xios_mod
+  USE getin_mod  ! from dynamico
+  USE xios_mod   ! from dynamico 
   IMPLICIT NONE
     CHARACTER(LEN=255) :: param_gw_method
@@ -133 +133 @@
   !from icosa_lmdz
   USE distrib_icosa_lmdz_mod
+  USE math_const, ONLY: Pi
   IMPLICIT NONE
     INTEGER :: ibegin, jbegin, ni, nj, ni_glo,nj_glo
@@ -415 +416 @@
   SUBROUTINE compute_sigma_gamma_theta(zxtzx, zytzy, zxtzy, zsig, zgam, zthe)
   USE icosa
+  USE math_const, ONLY : Pi
   IMPLICIT NONE
     REAL(rstd),INTENT(IN)   :: zxtzx(iim*jjm)
@@ -487 +489 @@
   USE xios_mod
   USE icosa
+  USE math_const, ONLY : Pi
   IMPLICIT NONE
     REAL, ALLOCATABLE :: mask(:,:) , zmea(:,:), zpic(:,:), zval(:,:), ztz(:,:), zstd(:,:)

ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90

@@ -207 +207 @@
   USE mpipara
   USE disvert_mod
-  USE earth_const, ONLY: scale_height
   USE xios_mod
   USE time_mod , init_time_icosa=> init_time 
   USE omp_para
+  USE earth_const
 
 ! from LMDZ
@@ -224 +224 @@
   USE readTracFiles_mod, ONLY: trac_type, isot_type
   USE tracer_icosa_mod, ONLY : tracs
-   USE readTracFiles_mod, ONLY: delPhase
+  USE readTracFiles_mod, ONLY: delPhase
 !  USE phyaqua_mod, ONLY : iniaqua 
-   USE phystokenc_mod, ONLY : init_phystokenc       !  use to generate mass flow files for offline mode 
+  USE phystokenc_mod, ONLY : init_phystokenc       !  use to generate mass flow files for offline mode 
   
   IMPLICIT NONE
@@ -547 +547 @@
   USE checksum_mod
   USE vorticity_mod
+  USE earth_const
 
 ! from LMDZ