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 14224 for NEMO/trunk/src – NEMO

Changeset 14224 for NEMO/trunk/src


Ignore:
Timestamp:
2020-12-19T15:49:56+01:00 (3 years ago)
Author:
smasson
Message:

trunk: minor bugfix in CANAL and with ln_dyn_trd

Location:
NEMO/trunk/src/OCE/DYN
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DYN/dynatf.F90

    r14143 r14224  
    121121      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    122122      REAL(wp) ::   zue3a, zue3n, zue3b, zcoef    ! local scalars 
    123       REAL(wp) ::   zve3a, zve3n, zve3b, z1_2dt   !   -      - 
     123      REAL(wp) ::   zve3a, zve3n, zve3b           !   -      - 
    124124      REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   zue, zve, zwfld 
    125125      REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   zutau, zvtau 
     
    320320      ENDIF 
    321321      IF( l_trddyn ) THEN                ! 3D output: asselin filter trends on momentum 
    322          zua(:,:,:) = ( puu(:,:,:,Kmm) - zua(:,:,:) ) * z1_2dt 
    323          zva(:,:,:) = ( pvv(:,:,:,Kmm) - zva(:,:,:) ) * z1_2dt 
     322         zua(:,:,:) = ( puu(:,:,:,Kmm) - zua(:,:,:) ) * r1_Dt 
     323         zva(:,:,:) = ( pvv(:,:,:,Kmm) - zva(:,:,:) ) * r1_Dt 
    324324         CALL trd_dyn( zua, zva, jpdyn_atf, kt, Kmm ) 
    325325      ENDIF 
  • NEMO/trunk/src/OCE/DYN/dynatf_qco.F90

    r14143 r14224  
    9898      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    9999      REAL(wp) ::   zue3a, zue3n, zue3b, zcoef    ! local scalars 
    100       REAL(wp) ::   zve3a, zve3n, zve3b, z1_2dt   !   -      - 
     100      REAL(wp) ::   zve3a, zve3n, zve3b           !   -      - 
    101101      REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   zue, zve 
    102102      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) ::   zua, zva 
     
    234234      ENDIF 
    235235      IF( l_trddyn ) THEN                ! 3D output: asselin filter trends on momentum 
    236          zua(:,:,:) = ( puu(:,:,:,Kmm) - zua(:,:,:) ) * z1_2dt 
    237          zva(:,:,:) = ( pvv(:,:,:,Kmm) - zva(:,:,:) ) * z1_2dt 
     236         zua(:,:,:) = ( puu(:,:,:,Kmm) - zua(:,:,:) ) * r1_Dt 
     237         zva(:,:,:) = ( pvv(:,:,:,Kmm) - zva(:,:,:) ) * r1_Dt 
    238238         CALL trd_dyn( zua, zva, jpdyn_atf, kt, Kmm ) 
    239239      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.