Changeset 771 for branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90
- Timestamp:
- 2007-12-17T11:51:41+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90
r768 r771 197 197 END SUBROUTINE trcdit_wr 198 198 199 200 199 # if defined key_trc_diatrd 201 200 … … 435 434 END SUBROUTINE trcdid_wr 436 435 436 # else 437 SUBROUTINE trcdid_wr( kt, kindic ) ! Dummy routine 438 INTEGER, INTENT ( in ) :: kt, kindic 439 WRITE(*,*) 'trcdid_wr: You should not have seen this print! error?', kt, kindic 440 END SUBROUTINE trcdid_wr 437 441 # endif 438 442 … … 580 584 END SUBROUTINE trcdii_wr 581 585 586 # else 587 SUBROUTINE trcdii_wr( kt, kindic ) ! Dummy routine 588 INTEGER, INTENT ( in ) :: kt, kindic 589 WRITE(*,*) 'trcdii_wr: You should not have seen this print! error?', kt, kindic 590 END SUBROUTINE trcdii_wr 582 591 # endif 583 592 … … 701 710 END SUBROUTINE trcdib_wr 702 711 712 # else 713 SUBROUTINE trcdib_wr( kt, kindic ) ! Dummy routine 714 INTEGER, INTENT ( in ) :: kt, kindic 715 WRITE(*,*) 'trcdib_wr: You should not have seen this print! error?', kt, kindic 716 END SUBROUTINE trcdib_wr 703 717 # endif 704 718
Note: See TracChangeset
for help on using the changeset viewer.