New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7681 for trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90 – NEMO

Ignore:
Timestamp:
2017-02-14T18:56:01+01:00 (7 years ago)
Author:
cetlod
Message:

Remove unused routines trd_mld_bio etc ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90

    r5836 r7681  
    2222   PRIVATE 
    2323 
    24    INTERFACE trd_trc 
    25       MODULE PROCEDURE trd_trc_trp, trd_trc_bio 
    26    END INTERFACE 
    27  
    2824   PUBLIC trd_trc 
    2925 
     
    3632CONTAINS 
    3733 
    38    SUBROUTINE trd_trc_trp( ptrtrd, kjn, ktrd, kt ) 
     34   SUBROUTINE trd_trc( ptrtrd, kjn, ktrd, kt ) 
    3935      !!---------------------------------------------------------------------- 
    4036      !!                  ***  ROUTINE trd_trc  *** 
     
    10399      END IF 
    104100 
    105    END SUBROUTINE trd_trc_trp 
     101   END SUBROUTINE trd_trc 
    106102 
    107    SUBROUTINE trd_trc_bio( ptrbio, ktrd, kt ) 
    108       !!---------------------------------------------------------------------- 
    109       !!                  ***  ROUTINE trd_bio  *** 
    110       !!---------------------------------------------------------------------- 
    111  
    112       INTEGER, INTENT( in )  ::   kt                                  ! time step 
    113       INTEGER, INTENT( in )  ::   ktrd                                ! bio trend index 
    114       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout )  ::   ptrbio  ! Bio trend 
    115       !!---------------------------------------------------------------------- 
    116  
    117 #if defined key_trdmxl_trc   
    118       CALL trd_mxl_bio_zint( ptrbio, ktrd ) ! Verticaly integrated biological trends 
    119 #endif 
    120  
    121    END SUBROUTINE trd_trc_bio 
    122103#else 
    123104   !!---------------------------------------------------------------------- 
     
    125106   !!---------------------------------------------------------------------- 
    126107 
    127    INTERFACE trd_trc 
    128       MODULE PROCEDURE trd_trc_trp, trd_trc_bio 
    129    END INTERFACE 
     108   PUBLIC trd_trc 
    130109 
    131110CONTAINS 
    132111 
    133    SUBROUTINE trd_trc_trp( ptrtrd, kjn, ktrd, kt ) 
     112   SUBROUTINE trd_trc( ptrtrd, kjn, ktrd, kt ) 
    134113      INTEGER               , INTENT( in )     ::   kt      ! time step 
    135114      INTEGER               , INTENT( in )     ::   kjn     ! tracer index 
    136115      INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index 
    137116      REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrtrd  ! Temperature or U trend 
    138       WRITE(*,*) 'trd_trc_trp : You should not have seen this print! error?', ptrtrd(1,1,1) 
     117      WRITE(*,*) 'trd_trc : You should not have seen this print! error?', ptrtrd(1,1,1) 
    139118      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn 
    140119      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
    141120      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
    142    END SUBROUTINE trd_trc_trp 
    143  
    144    SUBROUTINE trd_trc_bio( ptrbio, ktrd, kt ) 
    145       INTEGER               , INTENT( in )     ::   kt      ! time step 
    146       INTEGER               , INTENT( in )     ::   ktrd    ! tracer trend index 
    147       REAL, DIMENSION(:,:,:), INTENT( inout )  ::   ptrbio  ! Temperature or U trend 
    148       WRITE(*,*) 'trd_trc_trp : You should not have seen this print! error?', ptrbio(1,1,1) 
    149       WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
    150       WRITE(*,*) '  "      "      : You should not have seen this print! error?', kt 
    151    END SUBROUTINE trd_trc_bio 
     121   END SUBROUTINE trd_trc 
    152122 
    153123#endif 
Note: See TracChangeset for help on using the changeset viewer.