Changeset 2011 for LMDZ5/trunk/libf/phylmd/surf_land_orchidee_mod.F90

Timestamp:

Apr 10, 2014, 3:16:18 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Homogénéisation des calculs du nombre de Richardson et de f_cdrag entre coefcdrag.F90 et clcdrag.F90
modification des zlev pour orchidee

---

Keeping the same calculation between coefcdrag.F90 and clcdrag.F90 for richardson number & f_cdrag
modification of zlev for orchidee

Fuxing Wang

File:

• LMDZ5/trunk/libf/phylmd/surf_land_orchidee_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/surf_land_orchidee_mod.F90

@@ -370 +370 @@
 
 ! zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/287.05*temp_air(1:knon))*9.80665)
-    zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/RD*temp_air(1:knon))*RG)
+!    zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/RD*temp_air(1:knon))*RG)
+     zlev(1:knon) = plev(1:knon)*RD*temp_air(1:knon)/((ps(1:knon)*100.0)*RG)