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 10946 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/dynadv_ubs.F90 – NEMO

Ignore:
Timestamp:
2019-05-08T10:56:14+02:00 (5 years ago)
Author:
acc
Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Convert STO, TRD and USR modules and all knock on effects of these conversions. Note change to USR module may have implications for the TEST CASES (not tested yet). Standard SETTE tested only

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/dynadv_ubs.F90

    r10928 r10946  
    183183         zfu_uw(:,:,:) = puu(:,:,:,Krhs) - zfu_uw(:,:,:) 
    184184         zfv_vw(:,:,:) = pvv(:,:,:,Krhs) - zfv_vw(:,:,:) 
    185          CALL trd_dyn( zfu_uw, zfv_vw, jpdyn_keg, kt ) 
     185         CALL trd_dyn( zfu_uw, zfv_vw, jpdyn_keg, kt, Kmm ) 
    186186         zfu_t(:,:,:) = puu(:,:,:,Krhs) 
    187187         zfv_t(:,:,:) = pvv(:,:,:,Krhs) 
    … …  
    231231         zfu_t(:,:,:) = puu(:,:,:,Krhs) - zfu_t(:,:,:) 
    232232         zfv_t(:,:,:) = pvv(:,:,:,Krhs) - zfv_t(:,:,:) 
    233          CALL trd_dyn( zfu_t, zfv_t, jpdyn_zad, kt ) 
     233         CALL trd_dyn( zfu_t, zfv_t, jpdyn_zad, kt, Kmm ) 
    234234      ENDIF 
    235235      !                                         ! Control print 
Note: See TracChangeset for help on using the changeset viewer.