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 – NEMO

Changeset 7681


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

Remove unused routines trd_mld_bio etc ...

Location:
trunk/NEMOGCM
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/ARCH/arch-macport_osx.fcm

    r7646 r7681  
    4242%NCDF_HOME           /opt/local 
    4343%HDF5_HOME           /opt/local 
    44 ###%XIOS_HOME           /Users/$( whoami )/xios-2.0_r966 
    45 %XIOS_HOME           /Users/$( whoami )/xios-1.0 
     44%XIOS_HOME           /Users/$( whoami )/xios-2.0 
    4645%OASIS_HOME          /not/defined 
    4746 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90

    r7646 r7681  
    123123           DO ji = 1, jpi 
    124124              IF( etot(ji,jj,jk) >= zpar100(ji,jj) )   neln(ji,jj) = jk + 1  
    125               !                                       ! nb. this is to ensure compatibility with 
    126               !                                       ! nmld_trc definition in trd_mxl_trc_zint 
    127125           END DO 
    128126         END DO 

  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsms.F90

    r7646 r7681  
    6161      END IF 
    6262 
    63       IF( lk_trdmxl_trc )  CALL trd_mxl_bio( kt )   ! trends: Mixed-layer 
    6463      ! 
    6564      IF ( lwm .AND. kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES 

  • 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.