Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/cva_driver.F90

Timestamp:

Aug 3, 2024, 2:56:58 PM (3 months ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cva_driver.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cva_driver.F90

@@ -556 +556 @@
 
 
-! print *, 't1, t1_wake ',(k,t1(1,k),t1_wake(1,k),k=1,nd)
-! print *, 'q1, q1_wake ',(k,q1(1,k),q1_wake(1,k),k=1,nd)
+! PRINT *, 't1, t1_wake ',(k,t1(1,k),t1_wake(1,k),k=1,nd)
+! PRINT *, 'q1, q1_wake ',(k,q1(1,k),q1_wake(1,k),k=1,nd)
 
 ! -------------------------------------------------------------------
@@ -775 +775 @@
   END IF
 
-! print *, 'cv3_feed-> iflag1, plcl1 ',iflag1(1),plcl1(1)
+! PRINT *, 'cv3_feed-> iflag1, plcl1 ',iflag1(1),plcl1(1)
 
 ! --------------------------------------------------------------------
@@ -804 +804 @@
 ! -------------------------------------------------------------------
 
-! print *,' avant triggering, iflag_con ',iflag_con
+! PRINT *,' avant triggering, iflag_con ',iflag_con
 
   IF (iflag_con==3) THEN
@@ -1035 +1035 @@
     END IF
 
-! print *,'cv_closure-> cape ',cape(1)
+! PRINT *,'cv_closure-> cape ',cape(1)
 
 ! -------------------------------------------------------------------
@@ -1128 +1128 @@
     END IF !(debut) THEN
 
-! print *,'cv_unsat-> mp ',mp
-! print *,'cv_unsat-> water ',water
+! PRINT *,'cv_unsat-> mp ',mp
+! PRINT *,'cv_unsat-> water ',water
 ! -------------------------------------------------------------------
 ! --- YIELD