Changeset 5062


Ignore:
Timestamp:
2015-02-05T15:35:39+01:00 (6 years ago)
Author:
flavoni
Message:

correction to previous committ

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90

    r5061 r5062  
    1616   USE oce            ! ocean dynamics and tracers 
    1717   USE dom_oce        ! ocean space and time domain 
    18    USE trdmod         ! ocean dynamics trends 
    19    USE trdmod_oce     ! ocean variables trends 
     18   USE trd_oce        ! trends: ocean variables 
     19   USE trddyn         ! trend manager: dynamics 
     20   ! 
    2021   USE in_out_manager ! I/O manager 
    2122   USE prtctl         ! Print control 
    2223   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    2324   USE lib_mpp        ! MPP library 
    24    USE wrk_nemo        ! Memory Allocation 
    25    USE timing          ! Timing 
     25   USE wrk_nemo       ! Memory Allocation 
     26   USE timing         ! Timing 
    2627 
    2728   IMPLICIT NONE 
     
    197198         zfu_uw(:,:,:) = ua(:,:,:) - zfu_uw(:,:,:) 
    198199         zfv_vw(:,:,:) = va(:,:,:) - zfv_vw(:,:,:) 
    199          CALL trd_mod( zfu_uw, zfv_vw, jpdyn_trd_had, 'DYN', kt ) 
     200         CALL trd_dyn( zfu_uw, zfv_vw, jpdyn_keg, kt ) 
    200201         zfu_t(:,:,:) = ua(:,:,:) 
    201202         zfv_t(:,:,:) = va(:,:,:) 
     
    246247         zfu_t(:,:,:) = ua(:,:,:) - zfu_t(:,:,:) 
    247248         zfv_t(:,:,:) = va(:,:,:) - zfv_t(:,:,:) 
    248          CALL trd_mod( zfu_t, zfv_t, jpdyn_trd_zad, 'DYN', kt ) 
     249         CALL trd_dyn( zfu_t, zfv_t, jpdyn_zad, kt ) 
    249250      ENDIF 
    250251      !                                            ! Control print 
Note: See TracChangeset for help on using the changeset viewer.