Changeset 4724 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Oct 11, 2023, 9:27:08 AM (16 months ago)

Author:

evignon

Message:

debut du travail de replayisation des routines de neige soufflee
+ correction bug pour les temperatures positives

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• lmdz_blowing_snow_ini.F90 (moved) (moved from LMDZ6/trunk/libf/phylmdiso/blowing_snow_ini_mod.F90) (1 diff)
• lmdz_blowing_snow_sublim_sedim.F90 (moved) (moved from LMDZ6/trunk/libf/phylmdiso/blowing_snow_sublim_sedim.F90) (1 diff)
• lmdz_call_blowing_snow.F90 (moved) (moved from LMDZ6/trunk/libf/phylmdiso/call_blowing_snow_sublim_sedim.F90) (1 diff)
• pbl_surface_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (2 diffs)
• surf_landice_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/lmdz_blowing_snow_ini.F90

@@ -1 @@
-link ../phylmd/blowing_snow_ini_mod.F90
+link ../phylmd/lmdz_blowing_snow_ini.F90

LMDZ6/trunk/libf/phylmdiso/lmdz_blowing_snow_sublim_sedim.F90

@@ -1 @@
-link ../phylmd/blowing_snow_sublim_sedim.F90
+link ../phylmd/lmdz_blowing_snow_sublim_sedim.F90

LMDZ6/trunk/libf/phylmdiso/lmdz_call_blowing_snow.F90

@@ -1 @@
-link ../phylmd/call_blowing_snow_sublim_sedim.F90
+link ../phylmd/lmdz_call_blowing_snow.F90

LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90

@@ -411 +411 @@
          dser, dt_ds, zsig, zmea
     use phys_output_var_mod, only: tkt, tks, taur, sss
-    use blowing_snow_ini_mod, only : zeta_bs
+    use lmdz_blowing_snow_ini, only : zeta_bs
     USE wxios, ONLY: missing_val_xios => missing_val, using_xios
     use netcdf, only: nf90_fill_real

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -80 +80 @@
     USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop
     USE lmdz_lscp_old, ONLY : fisrtilp
+    USE lmdz_call_blowing_snow, ONLY : call_blowing_snow_sublim_sedim
     USE lmdz_wake_ini, ONLY : wake_ini
     USE yamada_ini_mod, ONLY : yamada_ini
@@ -85 +86 @@
     USE lmdz_thermcell_ini, ONLY : thermcell_ini, iflag_thermals_tenv
     USE lmdz_thermcell_dtke, ONLY : thermcell_dtke
-    USE blowing_snow_ini_mod, ONLY : blowing_snow_ini , qbst_bs 
+    USE lmdz_blowing_snow_ini, ONLY : blowing_snow_ini , qbst_bs 
     USE lmdz_lscp_ini, ONLY : lscp_ini
     USE lmdz_ratqs_main, ONLY : ratqs_main

LMDZ6/trunk/libf/phylmdiso/surf_landice_mod.F90

@@ -50 +50 @@
 !FC
     USE ioipsl_getin_p_mod, ONLY : getin_p
-    USE blowing_snow_ini_mod, ONLY : zeta_bs, pbst_bs, prt_bs, iflag_saltation_bs
+    USE lmdz_blowing_snow_ini, ONLY : zeta_bs, pbst_bs, prt_bs, iflag_saltation_bs
 
 #ifdef CPP_INLANDSIS