Changeset 1204 for trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

Timestamp:

2008-09-24T16:10:30+02:00 (16 years ago)

Author:

ctlod

Message:

add subroutines for dummy module, see ticket: #259

File:

• trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

@@ -1557 +1557 @@
    !!----------------------------------------------------------------------
 
+   INTERFACE trd_mod_trc
+      MODULE PROCEDURE trd_mod_trc_trp, trd_mod_trc_bio
+   END INTERFACE
+
 CONTAINS
 
@@ -1564 +1568 @@
    END SUBROUTINE trd_mld_trc
 
+   SUBROUTINE trd_mld_bio( kt )
+      INTEGER, INTENT( in) ::   kt
+      WRITE(*,*) 'trd_mld_bio: You should not have seen this print! error?', kt
+   END SUBROUTINE trd_mld_bio
+
+   SUBROUTINE trd_mod_trc_bio( ptrbio, ktrd, kt )
+      INTEGER               , INTENT( in )     ::   kt      ! time step
+      INTEGER               , INTENT( in )     ::   ktrd    ! bio trend index
+      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrbio  ! Bio trend
+      WRITE(*,*) 'trd_mod_trc_bio : You should not have seen this print! error?', ptrbio(1,1,1)
+      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd
+      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt
+   END SUBROUTINE trd_mod_trc_bio
+
+   SUBROUTINE trd_mod_trc_trp( ptrtrd, kjn, ktrd, kt )
+      INTEGER               , INTENT( in )     ::   kt      ! time step
+      INTEGER               , INTENT( in )     ::   kjn     ! tracer index
+      INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index
+      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrtrd  ! Temperature or U trend
+      WRITE(*,*) 'trd_mod_trc_trp : You should not have seen this print! error?', ptrtrd(1,1,1)
+      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn
+      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd
+      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt
+   END SUBROUTINE trd_mod_trc_trp
+
    SUBROUTINE trd_mld_trc_zint( ptrc_trdmld, ktrd, ctype, kjn )
-      INTEGER, INTENT( in ) ::   ktrd, kjn                        ! ocean trend index and passive tracer rank
-      CHARACTER(len=2), INTENT( in ) ::  ctype                    ! surface/bottom (2D) or interior (3D) physics
-      REAL, DIMENSION(:,:,:), INTENT( in ) ::  ptrc_trdmld ! passive trc trend
+      INTEGER               , INTENT( in ) ::  ktrd, kjn              ! ocean trend index and passive tracer rank
+      CHARACTER(len=2)      , INTENT( in ) ::  ctype                  ! surface/bottom (2D) or interior (3D) physics
+      REAL, DIMENSION(:,:,:), INTENT( in ) ::  ptrc_trdmld            ! passive trc trend
       WRITE(*,*) 'trd_mld_trc_zint: You should not have seen this print! error?', ptrc_trdmld(1,1,1)
       WRITE(*,*) '  "      "      : You should not have seen this print! error?', ctype