Changeset 1625 for trunk/LMDZ.VENUS/libf/phyvenus

Timestamp:

Nov 4, 2016, 12:53:36 PM (8 years ago)

Author:

emillour

Message:

Venus GCM:
Some debug prints that should not have been commited with rev 1621.
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90 (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90

@@ -80 +80 @@
 !----------------------
 
-      ! Ehouan debug
-      write(*,*) "t2tpot: cpp=",cpp," nu_venus=",nu_venus," t0_venus=",t0_venus
-      !write(*,*) "t2tpot: log(ypk/cpp)=",log(ypk/cpp)
-      do k=1,npoints
-      write(*,*) "t2tpot: k=",k," yt(k)=",yt(k)
-      write(*,*) "t2tpot: k=",k," yt(k)**nu_venus=",yt(k)**nu_venus," ypk(k)=",ypk(k)
-      yteta(k) = yt(k)**nu_venus                                          &
-              - nu_venus * t0_venus**nu_venus * log(ypk(k)/cpp)
-      write(*,*) "t2tpot: k=",k," yteta(k)=",yteta(k)
-      enddo
+      yteta = yt**nu_venus                                          &
+     &            - nu_venus * t0_venus**nu_venus * log(ypk/cpp)
       yteta = yteta**(1./nu_venus)
 !----------------------