Changeset 1322 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phyredem.F

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/phyredem.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phyredem.F

@@ -299 +299 @@
 !!!!!!!!!!!!!!!!!!!! FIN TKE PBL !!!!!!!!!!!!!!!!!!!!!!!!!
 cIM ajout zmax0, f0, ema_work1, ema_work2
-cIM wake_deltat, wake_deltaq, wake_s, wake_cstar, wake_fip
+cIM wake_deltat, wake_deltaq, wake_s, wake_cstar, wake_pe, wake_fip
       
       CALL put_field("ZMAX0","ZMAX0",zmax0)
@@ -318 +318 @@
       CALL put_field("WAKE_CSTAR","WAKE_CSTAR",wake_cstar)
       
+      CALL put_field("WAKE_PE","WAKE_PE",wake_pe)
+
       CALL put_field("WAKE_FIP","WAKE_FIP",wake_fip)