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 1264 for trunk/NEMO/TOP_SRC/TRP – NEMO

Ignore:
Timestamp:
2009-01-13T19:54:08+01:00 (15 years ago)
Author:
cetlod
Message:

clean TOP model routines to avoid warning when compiling, see ticket:303

Location:
trunk/NEMO/TOP_SRC/TRP
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

    r1193 r1264  
    8080      REAL(wp) ::   z0u, z0v, z0w 
    8181      REAL(wp) ::   zzt1, zzt2, zalpha, z2dtt 
    82       REAL(wp) ::   ztai, ztaj, zfui, zfvj 
     82      REAL(wp) ::   zfui, zfvj 
    8383      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd 
     84#if defined key_trc_diatrd 
     85      REAL(wp) ::   ztai, ztaj 
     86#endif 
    8487      CHARACTER (len=22) :: charout 
    8588      !!---------------------------------------------------------------------- 

  • trunk/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90

    r1193 r1264  
    8282      REAL(wp) ::   z0u, z0v, z0w 
    8383      REAL(wp) ::   zzt1, zzt2, zalpha 
    84  
    85       REAL(wp) ::   ztai, ztaj 
    8684      REAL(wp) ::   zfui, zfvj 
    8785      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd 
     86#if defined key_trc_diatrd 
     87      REAL(wp) ::   ztai, ztaj 
     88#endif 
    8889      CHARACTER (len=22) :: charout 
    8990      !!---------------------------------------------------------------------- 

  • trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

    r1193 r1264  
    7777      REAL(wp) ::   zfp_ui, zfp_vj, zfp_wk 
    7878      REAL(wp) ::   zfm_ui, zfm_vj, zfm_wk 
     79#if defined key_trc_diatrd 
    7980      REAL(wp) ::   zgm, zgz 
     81#endif 
    8082      CHARACTER (len=22) :: charout 
    8183      !!---------------------------------------------------------------------- 

  • trunk/NEMO/TOP_SRC/TRP/trcbbl.F90

    r1198 r1264  
    107107      INTEGER ::   ii0, ii1, ij0, ij1                       ! temporary integers 
    108108      INTEGER ::   iku1, iku2, ikv1, ikv2                   ! temporary intergers 
    109       REAL(wp) ::   ze3u, ze3v                              ! temporary scalars 
    110       REAL(wp) ::   zsign, zt, zs, zh, zalbet 
    111       REAL(wp) ::   zgdrho, zbtr, ztra 
    112       REAL(wp), DIMENSION(jpi,jpj) ::   zki, zkj, zkx, zky  ! temporary workspace arrays 
     109      REAL(wp) ::  ze3u, ze3v                              ! temporary scalars 
     110      REAL(wp) ::  zbtr, ztra 
     111#if ! defined key_off_tra 
     112      REAL(wp) ::   zgdrho, zalbet, zsign, zt, zs, zh 
     113      REAL(wp), DIMENSION(jpi,jpj) ::   zki, zkj 
     114#endif 
     115      REAL(wp), DIMENSION(jpi,jpj) ::   zkx, zky  ! temporary workspace arrays 
    113116      REAL(wp), DIMENSION(jpi,jpj) ::   ztnb, zsnb, zdep 
    114117      REAL(wp), DIMENSION(jpi,jpj) ::   ztrb, zahu, zahv 

  • trunk/NEMO/TOP_SRC/TRP/trcldf_bilapg.F90

    r1175 r1264  
    6565      INTEGER, INTENT( in ) ::   kt                         ! ocean time-step index 
    6666      INTEGER ::   ji, jj, jk, jn                           ! dummy loop indices 
    67       REAL(wp) ::   ztra                                    ! workspace    
    6867      REAL(wp), DIMENSION(jpi,jpj,jpk,jptra) ::   wk1, wk2  ! work array used for rotated biharmonic 
    6968      !                                                     ! operator on tracers and/or momentum 

  • trunk/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90

    r1193 r1264  
    320320 
    321321         ENDIF 
    322 !CDIR END 
    323322         !                                                       ! =========== 
    324323      END DO                                                     ! tracer loop 

  • trunk/NEMO/TOP_SRC/TRP/trcldf_lap.F90

    r1175 r1264  
    7878 
    7979      REAL(wp) ::   & 
    80          ztra, ztrax, ztray               ! workspace 
     80         ztrax, ztray               ! workspace 
    8181      CHARACTER (len=22) :: charout 
    8282      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd 

  • trunk/NEMO/TOP_SRC/TRP/trczdf_imp.F90

    r1175 r1264  
    8585         zwd, zws, zwi,          &  ! ??? 
    8686         zwx, zwy, zwt              ! ??? 
     87#if defined key_trc_diatrd 
    8788      REAL(wp) ::  ztra      ! temporary scalars 
     89#endif 
    8890      REAL(wp), DIMENSION(jpi,jpj,jpk,jptra) ::   & 
    8991         ztrd 

  • trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

    r1258 r1264  
    8585      ! ----------------------------------------------------- 
    8686 
    87       CALL trc_zdf_iso( kt ) 
     87      CALL trc_zdf_iso 
    8888 
    8989      IF( ln_ctl ) THEN    ! print mean trends (used for debugging) 
    … …  
    369369 
    370370 
    371    SUBROUTINE trc_zdf_iso( kt ) 
     371   SUBROUTINE trc_zdf_iso 
    372372      !!---------------------------------------------------------------------- 
    373373      !!                  ***  ROUTINE trc_zdf_iso  *** 
    … …  
    411411                            zwy => va      ! workspace arrays 
    412412 
    413       INTEGER, INTENT( in ) ::   kt              ! ocean time-step index 
    414413      INTEGER ::   ji, jj, jk, jn                ! dummy loop indices 
    415414      INTEGER ::   iku, ikv                       

  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1258 r1264  
    15981598      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ctype 
    15991599      WRITE(*,*) '  "      "      : You should not have seen this print! error?', ktrd 
     1600      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn 
    16001601   END SUBROUTINE trd_mld_trc_zint 
    16011602 
Note: See TracChangeset for help on using the changeset viewer.