Changeset 581

Timestamp:

2006-11-14T11:12:40+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_080: CT : compilation error correction

File:

• trunk/NEMO/OPA_SRC/SBC/cpl_oasis4.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/cpl_oasis4.F90

@@ -1201 +1201 @@
 CONTAINS
    SUBROUTINE cpl_prism_init             ! Dummy routine
-      WRITE(*,*) 'cpl_prism_init: You should not see this print! error?', kt
    END SUBROUTINE cpl_prism_init
-   SUBROUTINE cpl_prism_define             ! Dummy routine
-      WRITE(*,*) 'cpl_prism_define: You should not see this print! error?', kt
+   SUBROUTINE cpl_prism_define           ! Dummy routine
    END SUBROUTINE cpl_prism_define
-   SUBROUTINE cpl_prism_send( kt )       ! Dummy routine
-      WRITE(*,*) 'cpl_prism_send: You should not see this print! error?', kt
+   SUBROUTINE cpl_prism_send             ! Dummy routine
    END SUBROUTINE cpl_prism_send
-   SUBROUTINE cpl_prism_recv( kt )       ! Dummy routine
-      WRITE(*,*) 'cpl_prism_recv: You should not see this print! error?', kt
+   SUBROUTINE cpl_prism_recv             ! Dummy routine
    END SUBROUTINE cpl_prism_recv
-   SUBROUTINE cpl_prism_finalize( kt )   ! Dummy routine
-      WRITE(*,*) 'cpl_prism_finalize: You should not see this print! error?', kt
+   SUBROUTINE cpl_prism_finalize         ! Dummy routine
    END SUBROUTINE cpl_prism_finalize