Changeset 4855 for ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90

Timestamp:

Mar 19, 2024, 4:25:22 PM (8 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

File:

• ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90 (modified) (6 diffs)

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