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/dynnxt.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/dynnxt.F90

    r10799 r10946  
    6464CONTAINS 
    6565 
    66    SUBROUTINE dyn_nxt ( kt ) 
     66   SUBROUTINE dyn_nxt ( kt, Kmm ) 
    6767      !!---------------------------------------------------------------------- 
    6868      !!                  ***  ROUTINE dyn_nxt  *** 
     
    9393      !!---------------------------------------------------------------------- 
    9494      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
     95      INTEGER, INTENT( in ) ::   Kmm     ! time level index 
    9596      ! 
    9697      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
     
    157158         ! 
    158159         !                                  ! Kinetic energy and Conversion 
    159          IF( ln_KE_trd  )   CALL trd_dyn( ua, va, jpdyn_ken, kt ) 
     160         IF( ln_KE_trd  )   CALL trd_dyn( ua, va, jpdyn_ken, kt, Kmm ) 
    160161         ! 
    161162         IF( ln_dyn_trd ) THEN              ! 3D output: total momentum trends 
     
    365366         zua(:,:,:) = ( ub(:,:,:) - zua(:,:,:) ) * z1_2dt 
    366367         zva(:,:,:) = ( vb(:,:,:) - zva(:,:,:) ) * z1_2dt 
    367          CALL trd_dyn( zua, zva, jpdyn_atf, kt ) 
     368         CALL trd_dyn( zua, zva, jpdyn_atf, kt, Kmm ) 
    368369      ENDIF 
    369370      ! 
Note: See TracChangeset for help on using the changeset viewer.