Changeset 32 for trunk/NEMO/OPA_SRC/TRA/zpshde.F90

Timestamp:

2004-02-17T10:20:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/TRA/zpshde.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/zpshde.F90

@@ -250 +250 @@
       REAL(wp), DIMENSION(:,:,:) :: ptem, psal, prd
       REAL(wp) :: pgtu, pgsu, pgru, pgtv, pgsv, pgrv
-      WRITE(*,*) kt, ptem, psal, prd, pgtu, pgsu, pgru, pgtv, pgsv, pgrv
+      WRITE(*,*) 'zps_hde: You should not have seen this print! error?',   &
+         kt, ptem, psal, prd, pgtu, pgsu, pgru, pgtv, pgsv, pgrv
    END SUBROUTINE zps_hde
 #endif