Changeset 1204


Ignore:
Timestamp:
2008-09-24T16:10:30+02:00 (12 years ago)
Author:
ctlod
Message:

add subroutines for dummy module, see ticket: #259

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1189 r1204  
    15571557   !!---------------------------------------------------------------------- 
    15581558 
     1559   INTERFACE trd_mod_trc 
     1560      MODULE PROCEDURE trd_mod_trc_trp, trd_mod_trc_bio 
     1561   END INTERFACE 
     1562 
    15591563CONTAINS 
    15601564 
     
    15641568   END SUBROUTINE trd_mld_trc 
    15651569 
     1570   SUBROUTINE trd_mld_bio( kt ) 
     1571      INTEGER, INTENT( in) ::   kt 
     1572      WRITE(*,*) 'trd_mld_bio: You should not have seen this print! error?', kt 
     1573   END SUBROUTINE trd_mld_bio 
     1574 
     1575   SUBROUTINE trd_mod_trc_bio( ptrbio, ktrd, kt ) 
     1576      INTEGER               , INTENT( in )     ::   kt      ! time step 
     1577      INTEGER               , INTENT( in )     ::   ktrd    ! bio trend index 
     1578      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrbio  ! Bio trend 
     1579      WRITE(*,*) 'trd_mod_trc_bio : You should not have seen this print! error?', ptrbio(1,1,1) 
     1580      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
     1581      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
     1582   END SUBROUTINE trd_mod_trc_bio 
     1583 
     1584   SUBROUTINE trd_mod_trc_trp( ptrtrd, kjn, ktrd, kt ) 
     1585      INTEGER               , INTENT( in )     ::   kt      ! time step 
     1586      INTEGER               , INTENT( in )     ::   kjn     ! tracer index 
     1587      INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index 
     1588      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrtrd  ! Temperature or U trend 
     1589      WRITE(*,*) 'trd_mod_trc_trp : You should not have seen this print! error?', ptrtrd(1,1,1) 
     1590      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn 
     1591      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
     1592      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
     1593   END SUBROUTINE trd_mod_trc_trp 
     1594 
    15661595   SUBROUTINE trd_mld_trc_zint( ptrc_trdmld, ktrd, ctype, kjn ) 
    1567       INTEGER, INTENT( in ) ::   ktrd, kjn                        ! ocean trend index and passive tracer rank 
    1568       CHARACTER(len=2), INTENT( in ) ::  ctype                    ! surface/bottom (2D) or interior (3D) physics 
    1569       REAL, DIMENSION(:,:,:), INTENT( in ) ::  ptrc_trdmld ! passive trc trend 
     1596      INTEGER               , INTENT( in ) ::  ktrd, kjn              ! ocean trend index and passive tracer rank 
     1597      CHARACTER(len=2)      , INTENT( in ) ::  ctype                  ! surface/bottom (2D) or interior (3D) physics 
     1598      REAL, DIMENSION(:,:,:), INTENT( in ) ::  ptrc_trdmld            ! passive trc trend 
    15701599      WRITE(*,*) 'trd_mld_trc_zint: You should not have seen this print! error?', ptrc_trdmld(1,1,1) 
    15711600      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ctype 
Note: See TracChangeset for help on using the changeset viewer.