Changeset 6703

Timestamp:

2016-06-13T18:09:22+02:00 (8 years ago)

Author:

huwlewis

Message:

Update to scale sent SST field by land/sea mask to ensure land values = 0K rather than 273.15K

File:

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

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

@@ -1771 +1771 @@
             !
             SELECT CASE( sn_snd_temp%cldes)
-            CASE( 'oce only'             )   ;   ztmp1(:,:) =   ztmp1(:,:) + rt0
+            CASE( 'oce only'             )   ;   ztmp1(:,:) =   (ztmp1(:,:) + rt0) * tmask(:,:,1)
             CASE( 'oce and ice'          )   ;   ztmp1(:,:) =   ztmp1(:,:) + rt0
                SELECT CASE( sn_snd_temp%clcat )