Changeset 1698

Timestamp:

Apr 19, 2017, 4:16:55 PM (8 years ago)

Author:

emillour

Message:

Dynamico-LMDZ interface:
Fix pseudoalt computation in interface_icosa_lmdz.f90
EM

File:

• trunk/ICOSA_LMDZ/src/phystd/interface_icosa_lmdz.f90 (modified) (1 diff)

trunk/ICOSA_LMDZ/src/phystd/interface_icosa_lmdz.f90

@@ -283 +283 @@
     aps(1:llm)=0.5*(ap(1:llm)+ap(2:llm+1))
     bps(1:llm)=0.5*(bp(1:llm)+bp(2:llm+1))
-    pseudoalt(:)=0
+    pseudoalt(:)=-scaleheight*log(presnivs(:)/preff)
     CALL init_vertical_layers(llm,preff,scaleheight,ap,bp,aps,bps,presnivs,pseudoalt)