Changeset 8588 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

Timestamp:

2017-10-04T09:58:01+02:00 (7 years ago)

Author:

francesca

Message:

fix ticket #1826 in nemo_v3_6_STABLE

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90 (modified) (1 diff)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

@@ -238 +238 @@
    !!   Default option :                                         NO diaprod
    !!----------------------------------------------------------------------
+   USE in_out_manager  ! I/O manager
    LOGICAL, PUBLIC, PARAMETER :: lk_diaprod = .FALSE.   ! coupled flag
 CONTAINS
    SUBROUTINE dia_prod( kt )   ! Empty routine
       INTEGER ::   kt
-      WRITE(*,*) 'dia_prod: You should not have seen this print! error?', kt
+      IF( kt == nit000 .AND. lwp ) &
+         WRITE(*,*) 'dia_prod: You should not have seen this print! error?', kt
    END SUBROUTINE dia_prod
 #endif