Changeset 1322 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conf_phys.F90

Timestamp:

Mar 12, 2010, 11:54:11 AM (14 years ago)

Author:

Laurent Fairhead

Message:

Improvements concerning wake parametrisation (from JYG, NR, IT, with more to come).
Alp_offset is read in form physiq.def file

---

Améliorations à la paramétrisation des poches froides (de JYG, NR, IT, d'autres
sont à venir)
Alp_offset est rajouté à la liste des paramètres lus dans physiq.def

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conf_phys.F90 (modified) (5 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conf_phys.F90

@@ -22 +22 @@
                        iflag_thermals,nsplit_thermals,tau_thermals, &
                        iflag_thermals_ed,iflag_thermals_optflux, &
-                       iflag_coupl,iflag_clos,iflag_wake, read_climoz)
+                       iflag_coupl,iflag_clos,iflag_wake, read_climoz, &
+                       alp_offset)
 
    use IOIPSL
@@ -110 +111 @@
   integer :: iflag_clos
   integer :: iflag_wake
+  real :: alp_offset
+  REAL, SAVE :: alp_offset_omp
   integer,SAVE :: iflag_coupl_omp,iflag_clos_omp,iflag_wake_omp
   integer,SAVE :: iflag_cvl_sigd_omp
@@ -1032 +1035 @@
   iflag_wake_omp = 0
   call getin('iflag_wake',iflag_wake_omp)
+
+!Config Key  = alp_offset
+!Config Desc =  
+!Config Def  = 0
+!Config Help = 
+!
+  alp_offset_omp = 0.01
+  call getin('alp_offset',alp_offset_omp)
 
 !
@@ -1449 +1460 @@
     iflag_clos = iflag_clos_omp
     iflag_wake = iflag_wake_omp
+    alp_offset = alp_offset_omp
     iflag_cvl_sigd = iflag_cvl_sigd_omp
     type_run = type_run_omp
@@ -1616 +1628 @@
   write(numout,*)' Fmax = ', Fmax
   write(numout,*)' alphas = ', alphas
+  write(numout,*)' iflag_wake = ', iflag_wake
+  write(numout,*)' alp_offset = ', alp_offset
 
   write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',&