Changeset 1322 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar

Timestamp:

Mar 12, 2010, 11:54:11 AM (15 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

Location:

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar

Files:

• etat0_netcdf.F (modified) (2 diffs)
• leapfrog_p.F (modified) (1 diff)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/etat0_netcdf.F

@@ -144 +144 @@
       REAL      :: solarlong0
       real :: seuil_inversion
+      REAL :: alp_offset
 
       integer  read_climoz ! read ozone climatology
@@ -184 +185 @@
      &                 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)
 
 ! co2_ppm0 : initial value of atmospheric CO2 from .def file (co2_ppm value)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/leapfrog_p.F

@@ -677 +677 @@
          call suspend_timer(timer_caldyn)
 
+        if (prt_level >= 10) then
          write(lunout,*)
      &   'leapfrog_p: Entree dans la physique : Iteration No ',true_itau
+        endif
 c$OMP END MASTER