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 183 for trunk/NEMO/OPA_SRC/DYN – NEMO

Changeset 183 for trunk/NEMO/OPA_SRC/DYN


Ignore:
Timestamp:
2004-11-05T15:30:14+01:00 (19 years ago)
Author:
opalod
Message:

CT : BUGFIX117 : remove the EMP gradient computation to avoid negative salinity close to rivers in the Arctic

Location:
trunk/NEMO/OPA_SRC/DYN
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynspg_fsc.F90

    r119 r183  
    115115         z2dt, z2dtg, zraur, znugdt,      &  ! temporary scalars 
    116116         znurau, zssha, zspgu, zspgv,     &  !   "          " 
    117          zegu, zegv, zgcb, zbtd,          &  !   "          " 
     117         zgcb, zbtd,                      &  !   "          " 
    118118         ztdgu, ztdgv                        !   "          " 
    119119      !!---------------------------------------------------------------------- 
    … …  
    153153            zspgu =      - grav * ( sshn(ji+1,jj) - sshn(ji,jj) ) / e1u(ji,jj) 
    154154            zspgv =      - grav * ( sshn(ji,jj+1) - sshn(ji,jj) ) / e2v(ji,jj) 
    155             zegu  = + znurau * ( emp (ji+1,jj) - emp (ji,jj) ) / e1u(ji,jj) 
    156             zegv  = + znurau * ( emp (ji,jj+1) - emp (ji,jj) ) / e2v(ji,jj) 
    157             spgu(ji,jj) = zspgu + zegu 
    158             spgv(ji,jj) = zspgv + zegv 
     155            spgu(ji,jj) = zspgu 
     156            spgv(ji,jj) = zspgv 
    159157#if defined key_trddyn || defined key_trd_vor 
    160158            ! save the surface pressure gradient trends  
    161159            utrd2(ji,jj,1) = zspgu 
    162160            vtrd2(ji,jj,1) = zspgv 
    163             ! save the first part of the additional force trend 
    164             utrd2(ji,jj,2) = zegu 
    165             vtrd2(ji,jj,2) = zegv 
    166161#endif 
    167162         END DO  

  • trunk/NEMO/OPA_SRC/DYN/dynspg_fsc_atsk.F90

    r109 r183  
    116116      REAL(wp) ::   &              ! temporary scalars 
    117117         z2dt, z2dtg, zraur, znugdt, znurau,   & 
    118          zssha, zspgu, zspgv, zegu, zegv,   & 
     118         zssha, zspgu, zspgv,                  & 
    119119         zgcb, zbtd, ztdgu, ztdgv, zgwgt 
    120120      !!---------------------------------------------------------------------- 
    … …  
    156156            zspgu =   - grav * ( sshn(ji+1,jj) - sshn(ji,jj) ) / e1u(ji,jj) 
    157157            zspgv =   - grav * ( sshn(ji,jj+1) - sshn(ji,jj) ) / e2v(ji,jj) 
    158             zegu  = + znurau * ( emp (ji+1,jj) - emp (ji,jj) ) / e1u(ji,jj) 
    159             zegv  = + znurau * ( emp (ji,jj+1) - emp (ji,jj) ) / e2v(ji,jj) 
    160             spgu(ji,jj) = zspgu + zegu 
    161             spgv(ji,jj) = zspgv + zegv 
     158            spgu(ji,jj) = zspgu 
     159            spgv(ji,jj) = zspgv 
    162160#if defined key_trddyn || defined key_trd_vor 
    163161            ! save the surface pressure gradient trends  
    164162            utrd2(ji,jj,1) = zspgu 
    165163            vtrd2(ji,jj,1) = zspgv 
    166             ! save the first part of the additional force trend 
    167             utrd2(ji,jj,2) = zegu 
    168             vtrd2(ji,jj,2) = zegv 
    169164#endif 
    170165         END DO  
Note: See TracChangeset for help on using the changeset viewer.