Changeset 6920 for branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags

Timestamp:

2016-09-06T18:12:25+02:00 (8 years ago)

Author:

malcolmroberts

Message:

Added fix from UKMO/dev_r5518_GO6_package@6912 to temporarily fix bug in
coupling in ticket #1766

File:

• branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -1921 +1921 @@
 #else
       ! clem: this formulation is certainly wrong... but better than it was...
+
       zqns_tot(:,:) = zqns_tot(:,:)                       &            ! zqns_tot update over free ocean with:
-         &          - ztmp(:,:)                           &            ! remove the latent heat flux of solid precip. melting
+         &          - (p_frld(:,:) * zsprecip(:,:) * lfus)  &          ! remove the latent heat flux of solid precip. melting
          &          - (  zemp_tot(:,:)                    &            ! remove the heat content of mass flux (assumed to be at SST)
          &             - zemp_ice(:,:) * zicefr(:,:)  ) * zcptn(:,:)