Changeset 8916 for branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC

Timestamp:

2017-12-06T13:24:18+01:00 (6 years ago)

Author:

alexwestmohc

Message:

Protected reading and writing of top layer ice temperature and effective
conductivity in restarts by ln_meto_cpl

Corrected meltponds setting in sbccpl

Added rt0 to sstfrz as this is output in Celsius

File:

• branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

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

@@ -2405 +2405 @@
       IF( ssnd(jps_a_p)%laction .OR. ssnd(jps_ht_p)%laction ) THEN 
          SELECT CASE( sn_snd_mpnd%cldes)  
-         CASE( 'weighted ice' )  
+         CASE( 'ice only' )  
             SELECT CASE( sn_snd_mpnd%clcat )  
             CASE( 'yes' )  
@@ -2768 +2768 @@
 
       CALL eos_fzp(tsn(:,:,1,jp_sal), sstfrz)
-      ztmp1(:,:) = sstfrz(:,:)
+      ztmp1(:,:) = sstfrz(:,:) + rt0
       IF( ssnd(jps_sstfrz)%laction )  CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info)