Changeset 1559 for trunk/NEMO/OPA_SRC/BDY

Timestamp:

2009-07-29T16:03:14+02:00 (15 years ago)

Author:

ctlod

Message:

only cosmetic changes

File:

• trunk/NEMO/OPA_SRC/BDY/bdydyn.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/BDY/bdydyn.F90

@@ -183 +183 @@
       WRITE(*,*) 'bdy_dyn_frs: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_dyn_frs
-   SUBROUTINE bdy_dyn_fla            ! Empty routine
-      WRITE(*,*) 'bdy_dyn_fla: You should not have seen this print! error?'
+   SUBROUTINE bdy_dyn_fla( pssh )    ! Empty routine
+      REAL :: pssh(:,:)
+      WRITE(*,*) 'bdy_dyn_fla: You should not have seen this print! error?', pssh(1,1)
    END SUBROUTINE bdy_dyn_fla
 #endif