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 6912 – NEMO

Changeset 6912


Ignore:
Timestamp:
2016-09-06T12:42:26+02:00 (8 years ago)
Author:
timgraham
Message:

Temporary fix in this branch for first bug in ticket #1766

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r6795 r6912  
    19261926#else 
    19271927      ! clem: this formulation is certainly wrong... but better than it was... 
     1928       
    19281929      zqns_tot(:,:) = zqns_tot(:,:)                       &            ! zqns_tot update over free ocean with: 
    1929          &          - ztmp(:,:)                           &            ! remove the latent heat flux of solid precip. melting 
     1930         &          - (p_frld(:,:) * zsprecip(:,:) * lfus)  &          ! remove the latent heat flux of solid precip. melting 
    19301931         &          - (  zemp_tot(:,:)                    &            ! remove the heat content of mass flux (assumed to be at SST) 
    19311932         &             - zemp_ice(:,:) ) * zcptn(:,:)  
Note: See TracChangeset for help on using the changeset viewer.