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

Ignore:
Timestamp:
2009-01-15T09:12:00+01:00 (15 years ago)
Author:
rblod
Message:

Addapt AGRIF routines to the new TOP organization, clean some routines and add a sponge layer for passive tracers, see ticket #293

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

Legend:

Unmodified
Added
Removed

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

    r1264 r1271  
    100100      !!     Beckmann, A., and R. Doscher, 1997, J. Phys.Oceanogr., 581-591. 
    101101      !!---------------------------------------------------------------------- 
    102       USE oce_trc, ONLY :   ztrtrd => ua                      ! use ua as 3D workspace    
     102      USE oce, ONLY :   ztrtrd => ua                      ! use ua as 3D workspace    
    103103      !! 
    104104      INTEGER, INTENT( in ) ::   kt                         ! ocean time-step 

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

    r1175 r1271  
    7070      !! ** Action  : - update trb, trn 
    7171      !!---------------------------------------------------------------------- 
     72      USE oce, ONLY :   ztrtrd => ua    ! use ua as 3D workspace  
    7273      !! * Arguments 
    73       USE oce_trc, ONLY : ztrtrd => ua      ! use ua as a 3D workspace 
    74       INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
     74      INTEGER, INTENT( in ) ::   kt     ! ocean time-step index 
    7575      !! * Local declarations 
    7676      INTEGER  ::   ji, jj, jk, jn   ! dummy loop indices 
    … …  
    8383         WRITE(numout,*) 'trc_nxt : time stepping on passive tracers' 
    8484      ENDIF 
    85  
    8685 
    8786      DO jn = 1, jptra 
    … …  
    113112      END DO                                           !   End of slab 
    114113      !                                                ! =============== 
    115       ! Update tracers  
    116       CALL Agrif_trc( kt ) 
     114      ! Interp tracers on boundaries (coarse => fine) 
     115      CALL Agrif_trc 
    117116      !                                                ! =============== 
    118117      DO jn = 1, jptra                                 ! Horizontal slab 

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

    r1256 r1271  
    4242 
    4343   USE zpshde_trc      ! partial step: hor. derivative   (zps_hde_trc routine) 
     44 
     45#if defined key_agrif 
     46   USE agrif_top_sponge ! Momemtum and tracers sponges 
     47#endif 
    4448 
    4549   IMPLICIT NONE 
    … …  
    104108      IF( l_trcldf_iso_zps )   CALL trc_ldf_iso_zps( kt )        ! partial step iso-neutral laplacian 
    105109      IF( l_trcldf_lap     )   CALL trc_ldf_lap    ( kt )        ! iso-level laplacian 
     110 
     111#if defined key_agrif 
     112      IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_trc               ! tracers sponge 
     113#endif 
    106114  
    107115      !                                                      ! vertical diffusion 

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

    r1175 r1271  
    7676      !! 
    7777      !!--------------------------------------------------------------------- 
    78       USE oce_trc, ONLY :   ztrtrd => ua    ! use ua as 3D workspace 
     78      USE oce, ONLY :   ztrtrd => ua    ! use ua as 3D workspace 
    7979      !! * Arguments 
    8080      INTEGER, INTENT( in ) ::   kt           ! ocean time-step index 

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

    r1264 r1271  
    7575      !! 
    7676      !!--------------------------------------------------------------------- 
    77       USE oce_trc, ONLY : ztrtrd => ua      ! use ua as 3D workspace 
    7877      !! 
    7978      !! * Arguments 
     79      USE oce, ONLY :   ztrtrd => ua    ! use ua as 3D workspace  
     80 
    8081      INTEGER, INTENT( in ) ::   kt           ! ocean time-step index 
    8182      INTEGER ::   ikst, ikenm2, ikstp1 

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

    r1258 r1271  
    118118      !!--------------------------------------------------------------------- 
    119119      !! * Modules used 
    120       USE oce_trc , ONLY :    zavs => va, ztrtrd => ua 
     120      USE oce , ONLY :    zavs => va, ztrtrd => ua 
    121121 
    122122      !! * Arguments 

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

    r1264 r1271  
    8585      ! ----------------------------------------------------- 
    8686 
    87       CALL trc_zdf_iso 
     87      CALL trc_zdf_iso( kt ) 
    8888 
    8989      IF( ln_ctl ) THEN    ! print mean trends (used for debugging) 
    … …  
    151151      !!              - Save the trend in trtrd  ('key_trdmld_trc') 
    152152      !!--------------------------------------------------------------------- 
    153       USE oce_trc, ONLY :   zwd   => ua,  &  ! ua, va used as 
     153      USE oce, ONLY :       zwd   => ua,  &  ! ua, va used as 
    154154                            zws   => va      ! workspace 
    155155      INTEGER, INTENT( in ) ::   kt          ! ocean time-step index 
    … …  
    369369 
    370370 
    371    SUBROUTINE trc_zdf_iso 
     371   SUBROUTINE trc_zdf_iso ( kt ) 
    372372      !!---------------------------------------------------------------------- 
    373373      !!                  ***  ROUTINE trc_zdf_iso  *** 
    … …  
    408408      !!         Save in trtrd arrays the trends if 'key_trdmld_trc' defined 
    409409      !!--------------------------------------------------------------------- 
    410       USE oce_trc, ONLY :   zwx => ua,  &  ! use ua, va as 
     410      USE oce, ONLY :   zwx => ua,  &  ! use ua, va as 
    411411                            zwy => va      ! workspace arrays 
     412      INTEGER, INTENT(in) :: kt 
    412413 
    413414      INTEGER ::   ji, jj, jk, jn                ! dummy loop indices 
Note: See TracChangeset for help on using the changeset viewer.