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

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cv3_buoy.F90 (modified) (3 diffs)

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

@@ -44 +44 @@
 
 
-  ! print *,' Ale+cin ',ale(1)+cin(1)
+  ! PRINT *,' Ale+cin ',ale(1)+cin(1)
   ! --------------------------------------------------------------
   ! Recompute buoyancies
@@ -102 +102 @@
       IF (ale(il)+cin(il)>0. .AND. ok(il)) THEN
         IF (k>icb(il) .AND. k<=inb(il)) THEN
-          ! c         print *,'k,p(il,k),plcl(il)-200. ',
+          ! c         PRINT *,'k,p(il,k),plcl(il)-200. ',
           ! k,p(il,k),plcl(il)-200.
           IF (p(il,k)>plcl(il)-200.) THEN
@@ -116 +116 @@
   END DO
 
-  ! print *,' ==cv3_buoy== bll(1),bmx(1),icb(1),kmx(1) '
+  ! PRINT *,' ==cv3_buoy== bll(1),bmx(1),icb(1),kmx(1) '
   ! $       ,bll(1),bmx(1),icb(1),kmx(1)