Changeset 5686 for LMDZ6

Timestamp:

May 28, 2025, 1:21:47 PM (11 days ago)

Author:

Laurent Fairhead

Message:

Superfluous print that takes a lot of time

File:

• LMDZ6/trunk/libf/phylmd/rrtm/radlsw.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/rrtm/radlsw.F90

@@ -1253 +1253 @@
       J2 = J2 + GP_PER_LWBAND(JI)
       DO J = J1, J2
-      PRINT*, ' J1, J2, J ', J1,J2,J, PTOAB(JL,JI) , PTOAG(JL,J)
         PTOAB(JL,JI) = PTOAB(JL,JI) + PTOAG(JL,J)
-!        print*,'FKC', JI,J, PTOAB(JL,JI), PTOAG(JL,J)
         PTOACB(JL,JI) = PTOACB(JL,JI) + PTOACG(JL,J)
       ENDDO