Changeset 303

Timestamp:

Sep 22, 2011, 1:46:35 PM (13 years ago)

Author:

rwordsworth

Message:

Option added to output k.out in 1D at lastcall

File:

• trunk/LMDZ.GENERIC/libf/phystd/vdifc.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/vdifc.F

@@ -5 +5 @@
      &     pdufi,pdvfi,pdhfi,pdqfi,pfluxsrf,
      &     pdudif,pdvdif,pdhdif,pdtsrf,pq2,
-     &     pdqdif,pdqsdif)
+     &     pdqdif,pdqsdif,lastcall)
 
       use watercommon_h, only : RLVTT, To, RCPD, mx_eau_sol
@@ -97 +97 @@
       LOGICAL firstcall
       SAVE firstcall
+      
+      LOGICAL lastcall
 
 !     variables added for CO2 condensation
@@ -720 +722 @@
       endif
 
+!      if(lastcall)then
+!        if(ngrid.eq.1)then
+!           print*,'Saving k.out...'
+!           OPEN(12,file='k.out',form='formatted')
+!           DO ilay=1,nlay
+!              write(12,*) zkh(1,ilay), pplay(1,ilay)
+!           ENDDO
+!           CLOSE(12)
+!         endif
+!      endif
+
+
       return
       end