Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/cv3_estatmix.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/cv3_estatmix.F90 (modified) (5 diffs)

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

@@ -65 +65 @@
 
 
-!!  print *,' ->cv3_vertmix, plim1,plim2 ', plim1,plim2   !jyg
+!!  PRINT *,' ->cv3_vertmix, plim1,plim2 ', plim1,plim2   !jyg
   plim2p(:) = min(plim2(:),plim1(:)-dpmin)
   j1(:)=nd
@@ -103 +103 @@
   END DO
 
-!!  print *,'cv3_vertmix, j1,j2,coef ', j1,j2,coef  !jyg
+!!  PRINT *,'cv3_vertmix, j1,j2,coef ', j1,j2,coef  !jyg
 
   DO j = 1, nd
@@ -116 +116 @@
         dpw(i) = dpw(i) + wi(i, j)
 
-!!  print *,'cv3_vertmix, j, wi(1,j),dpw ', j, wi(1,j),dpw  !jyg
+!!  PRINT *,'cv3_vertmix, j, wi(1,j),dpw ', j, wi(1,j),dpw  !jyg
 
       END IF
@@ -143 +143 @@
 
 
-!!  print *,'cv3_vertmix, rdcp ', rdcp  !jyg
+!!  PRINT *,'cv3_vertmix, rdcp ', rdcp  !jyg
 
   DO i = 1, len
@@ -192 +192 @@
   END DO
 
-!!  print *,' cv3_vertmix->'  !jyg
+!!  PRINT *,' cv3_vertmix->'  !jyg