Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3p_mixing.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/phylmdiso/cv3p_mixing.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3p_mixing.F90

@@ -278 +278 @@
           ELSE IF (j > i) THEN
             IF (prt_level >= 10) THEN
-              print *,'cv3p_mixing i, j, Sij given by the no-precip eq. ', i, j, Sij(il,i,j)
+              PRINT *,'cv3p_mixing i, j, Sij given by the no-precip eq. ', i, j, Sij(il,i,j)
             ENDIF
           END IF ! new ! IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. (j>=(icb(il)-1)) &
@@ -476 +476 @@
 !jygdebug<
     IF (prt_level >= 10) THEN
-      print *,'cv3p_mixing i, nent(i), icb, inb ',i, nent(igout,i), icb(igout), inb(igout)
+      PRINT *,'cv3p_mixing i, nent(i), icb, inb ',i, nent(igout,i), icb(igout), inb(igout)
       IF (nent(igout,i) > 0) THEN
-        print *,'i,(j,Sij(i,j),j=icb-1,inb) ',i,(j,Sij(igout,i,j),j=icb(igout)-1,inb(igout))
+        PRINT *,'i,(j,Sij(i,j),j=icb-1,inb) ',i,(j,Sij(igout,i,j),j=icb(igout)-1,inb(igout))
       ENDIF
     ENDIF
@@ -848 +848 @@
             END IF
 
-! print *,h(il,j)-hent(il,i,j),LV(il,j)*rs(il,j)/(cpd*rrv*t(il,j)*
+! PRINT *,h(il,j)-hent(il,i,j),LV(il,j)*rs(il,j)/(cpd*rrv*t(il,j)*
 ! :         t(il,j))
 
@@ -865 +865 @@
 !IM 301008 end
 
-! print *,'mix : i,j,hent(il,i,j),Sigij(il,i,j) ',
+! PRINT *,'mix : i,j,hent(il,i,j),Sigij(il,i,j) ',
 ! :               i,j,hent(il,i,j),Sigij(il,i,j)