Changeset 13092

Timestamp:

2020-06-10T16:58:06+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2482 remove print statement

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DIA/diaprod.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DIA/diaprod.F90

@@ -264 +264 @@
    SUBROUTINE dia_prod( kt )   ! Empty routine
       INTEGER ::   kt
-      WRITE(*,*) 'dia_prod: You should not have seen this print! error?', kt
+      IF(lk_diaprod) WRITE(*,*) 'dia_prod: You should not have seen this print! error?', kt
    END SUBROUTINE dia_prod
 #endif