Changeset 4231 for LMDZ6/trunk/libf/phylmd/wake.F90

Timestamp:

Aug 25, 2022, 12:14:04 PM (2 years ago)

Author:

fhourdin

Message:

Removing prints in wake.F90

File:

• LMDZ6/trunk/libf/phylmd/wake.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/wake.F90

@@ -673 +673 @@
     END DO
   END DO
-  print*, 'ptop, pupper, ktop, kupper', ptop, pupper, ktop, kupper
+  !print*, 'ptop, pupper, ktop, kupper', ptop, pupper, ktop, kupper
  
 
@@ -870 +870 @@
   CALL pkupper (klon, klev, ptop, ph, pupper, kupper)
  
-    print*, 'ptop, pupper, ktop, kupper', ptop, pupper, ktop, kupper
+    !print*, 'ptop, pupper, ktop, kupper', ptop, pupper, ktop, kupper
 
     ! wk_adv is the logical flag enabling wake evolution in the time advance
@@ -1151 +1151 @@
         IF (wk_adv(i) .AND. k<=kupper(i)+1) THEN
           dth(i, k) = deltatw(i, k)/ppi(i, k)
-  print *, 'VVVVwake k, the(i,k), dth(i,k), sigmaw(i) ', k, the(i,k), dth(i,k), sigmaw(i)
+! print *, 'VVVVwake k, the(i,k), dth(i,k), sigmaw(i) ', k, the(i,k), dth(i,k), sigmaw(i)
           th1(i, k) = the(i, k) - sigmaw(i)*dth(i, k) ! undisturbed area
           th2(i, k) = the(i, k) + (1.-sigmaw(i))*dth(i, k) ! wake