Changeset 1055 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

Nov 14, 2008, 5:57:39 PM (16 years ago)

Author:

lmdzadmin

Message:

Correction sorties niveaux pression
AI/IM

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -263 +263 @@
       real ulevSTD(klon,nlevSTD), vlevSTD(klon,nlevSTD)
       real wlevSTD(klon,nlevSTD) 
+
+      real twriteSTD(klon,nlevSTD,nfiles)
+      real qwriteSTD(klon,nlevSTD,nfiles)
+      real rhwriteSTD(klon,nlevSTD,nfiles)
+      real phiwriteSTD(klon,nlevSTD,nfiles)
+      real uwriteSTD(klon,nlevSTD,nfiles)
+      real vwriteSTD(klon,nlevSTD,nfiles)
+      real wwriteSTD(klon,nlevSTD,nfiles)
 c
 c nout : niveau de output des variables a une pression donnee
@@ -3315 +3323 @@
 c
 #include "calcul_STDlev.h"
+      twriteSTD(:,:,1)=tsumSTD(:,:,2)
+      qwriteSTD(:,:,1)=qsumSTD(:,:,2)
+      rhwriteSTD(:,:,1)=rhsumSTD(:,:,2)
+      phiwriteSTD(:,:,1)=phisumSTD(:,:,2)
+      uwriteSTD(:,:,1)=usumSTD(:,:,2)
+      vwriteSTD(:,:,1)=vsumSTD(:,:,2)
+      wwriteSTD(:,:,1)=wsumSTD(:,:,2)
+
+      twriteSTD(:,:,2)=tsumSTD(:,:,1)
+      qwriteSTD(:,:,2)=qsumSTD(:,:,1)
+      rhwriteSTD(:,:,2)=rhsumSTD(:,:,1)
+      phiwriteSTD(:,:,2)=phisumSTD(:,:,1)
+      uwriteSTD(:,:,2)=usumSTD(:,:,1)
+      vwriteSTD(:,:,2)=vsumSTD(:,:,1)
+      wwriteSTD(:,:,2)=wsumSTD(:,:,1)
+
+      twriteSTD(:,:,3)=tlevSTD(:,:)
+      qwriteSTD(:,:,3)=qlevSTD(:,:)
+      rhwriteSTD(:,:,3)=rhlevSTD(:,:)
+      phiwriteSTD(:,:,3)=philevSTD(:,:)
+      uwriteSTD(:,:,3)=ulevSTD(:,:)
+      vwriteSTD(:,:,3)=vlevSTD(:,:)
+      wwriteSTD(:,:,3)=wlevSTD(:,:)
+
+      twriteSTD(:,:,4)=tlevSTD(:,:)
+      qwriteSTD(:,:,4)=qlevSTD(:,:)
+      rhwriteSTD(:,:,4)=rhlevSTD(:,:)
+      phiwriteSTD(:,:,4)=philevSTD(:,:)
+      uwriteSTD(:,:,4)=ulevSTD(:,:)
+      vwriteSTD(:,:,4)=vlevSTD(:,:)
+      wwriteSTD(:,:,4)=wlevSTD(:,:)
 c
 c slp sea level pressure