Changeset 1520 for trunk/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2009-07-22T12:45:36+02:00 (15 years ago)

Author:

smasson

Message:

remove compilation warning in iom.F90, see ticket:482

File:

• trunk/NEMO/OPA_SRC/IOM/iom.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -100 +100 @@
       ! end file definition
       CALL event__close_io_definition
+#else
+      IF( .FALSE. )   WRITE(numout,*) pjulian   ! useless test to avoid compilation warnings
 #endif
 
@@ -900 +902 @@
 #if defined key_iomput
       CALL event__write_field2D( cdname, pfield2d(nldi:nlei, nldj:nlej) )
+#else
+      IF( .FALSE. )   WRITE(numout,*) cdname, pfield2d   ! useless test to avoid compilation warnings
 #endif
    END SUBROUTINE iom_p2d
@@ -908 +912 @@
 #if defined key_iomput
       CALL event__write_field3D( cdname, pfield3d(nldi:nlei, nldj:nlej, :) )
+#else
+      IF( .FALSE. )   WRITE(numout,*) cdname, pfield3d   ! useless test to avoid compilation warnings
 #endif
    END SUBROUTINE iom_p3d
@@ -937 +943 @@
    SUBROUTINE iom_setkt( kt )
       INTEGER, INTENT(in   )::   kt 
+      IF( .FALSE. )   WRITE(numout,*) kt   ! useless test to avoid compilation warnings
    END SUBROUTINE iom_setkt