Changeset 4855

Timestamp:

Mar 19, 2024, 4:25:22 PM (9 months ago)

Author:

yann meurdesoif

Message:

• move dynamic etat0 initialisation into driver via new etat0 plugin functionnality.
• move computation of parameter for gravity wave in driver
• add method of computation of gravity wave parameters similar of what is done currently by lmdz (legacy method)
• add switch between legacy method (old) sso method in .def file ( param_gw_method = 'legacy' / 'sso' )
• add corresponding XML files

Location:

ICOSA_LMDZ

Files:

• src/phydev/interface_icosa_lmdz.f90 (modified) (1 diff)
• src/phylmd/icolmdz_etat0.f90 (added)
• src/phylmd/icolmdz_param_gravity_wave.f90 (added)
• src/phylmd/interface_icosa_lmdz.F90 (modified) (6 diffs)
• src/wrapper.f90 (modified) (1 diff)
• xml (added)
• xml/icosa_lmdz.xml (added)
• xml/param_gw.xml (added)

ICOSA_LMDZ/src/phydev/interface_icosa_lmdz.f90

@@ -131 +131 @@
 !$OMP PARALLEL
     CALL initialize_physics_omp
+    CALL param_gravity_wave
 !$OMP END PARALLEL            
 

ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90

@@ -1 @@
-MODULE interface_icosa_lmdz_mod
+MODULE interface_icosa_lmdz_mod 
 
   USE field_mod, ONLY: t_field
@@ -38 +38 @@
 CONTAINS
 
+  SUBROUTINE pre_initialize_physics
+  USE etat0_plugin_mod
+  USE icolmdz_etat0
+  USE icolmdz_param_gravity_wave, ONLY: init_param_gravity_wave
+  IMPLICIT NONE
+  !$OMP PARALLEL
+    init_etat0_plugin => init_etat0
+    etat0_plugin => etat0
+    CALL init_param_gravity_wave
+  !$OMP END PARALLEL
+  END SUBROUTINE pre_initialize_physics
+
   SUBROUTINE initialize_physics
   USE distrib_icosa_lmdz_mod, ONLY : init_distrib_icosa_lmdz, transfer_icosa_to_lmdz
@@ -57 +69 @@
   USE physics_distribution_mod, ONLY : init_physics_distribution
   USE infotrac_phy, ONLY: init_infotrac_phy
+  USE icolmdz_param_gravity_wave, ONLY: param_gravity_wave
 
    
@@ -178 +191 @@
 !$OMP PARALLEL
     CALL initialize_physics_omp
+    CALL param_gravity_wave
 !$OMP END PARALLEL            
 
     CALL xios_set_context    
-
-
-     
 
   END SUBROUTINE initialize_physics
@@ -525 +536 @@
   USE geometry_mod, ONLY : cell_area
   USE physiq_mod, ONLY: physiq
+  USE icolmdz_param_gravity_wave, ONLY: param_gravity_wave
   IMPLICIT NONE
   
@@ -627 +639 @@
       ALLOCATE(dps_phy(klon_omp))
 !$OMP BARRIER
+      
+!      CALL param_gravity_wave
     ENDIF
 

ICOSA_LMDZ/src/wrapper.f90

@@ +1 @@
+SUBROUTINE pre_initialize_external_physics
+  USE interface_icosa_lmdz_mod, ONLY: pre_initialize_physics
+  IMPLICIT NONE
+  
+    CALL pre_initialize_physics  
+
+END SUBROUTINE pre_initialize_external_physics
+
 SUBROUTINE initialize_external_physics
   USE interface_icosa_lmdz_mod, ONLY: initialize_physics