Changeset 771 for branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90

Timestamp:

2007-12-17T11:51:41+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - small error corrections

File:

• branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90 (modified) (4 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90

@@ -197 +197 @@
    END SUBROUTINE trcdit_wr
 
-
 # if defined key_trc_diatrd
 
@@ -435 +434 @@
    END SUBROUTINE trcdid_wr
 
+# else
+   SUBROUTINE trcdid_wr( kt, kindic )                      ! Dummy routine
+      INTEGER, INTENT ( in ) ::   kt, kindic
+      WRITE(*,*) 'trcdid_wr: You should not have seen this print! error?', kt, kindic
+   END SUBROUTINE trcdid_wr
 # endif
 
@@ -580 +584 @@
 END SUBROUTINE trcdii_wr
 
+# else
+   SUBROUTINE trcdii_wr( kt, kindic )                      ! Dummy routine
+      INTEGER, INTENT ( in ) :: kt, kindic
+      WRITE(*,*) 'trcdii_wr: You should not have seen this print! error?', kt, kindic
+   END SUBROUTINE trcdii_wr
 # endif
 
@@ -701 +710 @@
    END SUBROUTINE trcdib_wr
 
+# else
+   SUBROUTINE trcdib_wr( kt, kindic )                      ! Dummy routine
+      INTEGER, INTENT ( in ) ::   kt, kindic
+      WRITE(*,*) 'trcdib_wr: You should not have seen this print! error?', kt, kindic
+   END SUBROUTINE trcdib_wr
 # endif