Changeset 9734 for branches

Timestamp:

2018-06-04T15:58:26+02:00 (6 years ago)

Author:

dancopsey

Message:

Changed tn_ice to t1_ice in sbccpl

File:

• branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (5 diffs)

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

@@ -1895 +1895 @@
 
       ! Heat content per unit mass of snow (J/kg)
-      WHERE( SUM( a_i, dim=3 ) > 1.e-10 )   ;   zcptsnw(:,:) = cpic * SUM( (tn_ice - rt0) * a_i, dim=3 ) / SUM( a_i, dim=3 )
+      WHERE( SUM( a_i, dim=3 ) > 1.e-10 )   ;   zcptsnw(:,:) = cpic * SUM( (t1_ice - rt0) * a_i, dim=3 ) / SUM( a_i, dim=3 )
       ELSEWHERE                             ;   zcptsnw(:,:) = zcptn(:,:)
       ENDWHERE
       ! Heat content per unit mass of rain (J/kg)
-      zcptrain(:,:) = rcp * ( SUM( (tn_ice(:,:,:) - rt0) * a_i(:,:,:), dim=3 ) + sst_m(:,:) * ziceld(:,:) ) 
+      zcptrain(:,:) = rcp * ( SUM( (t1_ice(:,:,:) - rt0) * a_i(:,:,:), dim=3 ) + sst_m(:,:) * ziceld(:,:) ) 
 
       ! --- enthalpy of snow precip over ice in J/m3 (to be used in 1D-thermo) --- !
@@ -2140 +2140 @@
                SELECT CASE( sn_snd_temp%clcat )
                CASE( 'yes' )   
-                  ztmp3(:,:,1:jpl) = tn_ice(:,:,1:jpl)
+                  ztmp3(:,:,1:jpl) = t1_ice(:,:,1:jpl)
                CASE( 'no' )
                   WHERE( SUM( a_i, dim=3 ) /= 0. )
-                     ztmp3(:,:,1) = SUM( tn_ice * a_i, dim=3 ) / SUM( a_i, dim=3 )
+                     ztmp3(:,:,1) = SUM( t1_ice * a_i, dim=3 ) / SUM( a_i, dim=3 )
                   ELSEWHERE
                      ztmp3(:,:,1) = rt0
@@ -2152 +2152 @@
                SELECT CASE( sn_snd_temp%clcat )
                CASE( 'yes' )   
-                  ztmp3(:,:,1:jpl) = tn_ice(:,:,1:jpl) * a_i(:,:,1:jpl)
+                  ztmp3(:,:,1:jpl) = t1_ice(:,:,1:jpl) * a_i(:,:,1:jpl)
                CASE( 'no' )
                   ztmp3(:,:,:) = 0.0
                   DO jl=1,jpl
-                     ztmp3(:,:,1) = ztmp3(:,:,1) + tn_ice(:,:,jl) * a_i(:,:,jl)
+                     ztmp3(:,:,1) = ztmp3(:,:,1) + t1_ice(:,:,jl) * a_i(:,:,jl)
                   ENDDO
                CASE default                  ;   CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_temp%clcat' )
@@ -2163 +2163 @@
                SELECT CASE( sn_snd_temp%clcat ) 
                CASE( 'yes' )    
-                  ztmp3(:,:,1:jpl) = tn_ice(:,:,1:jpl) * a_i(:,:,1:jpl) 
+                  ztmp3(:,:,1:jpl) = t1_ice(:,:,1:jpl) * a_i(:,:,1:jpl) 
                CASE( 'no' ) 
                   ztmp3(:,:,:) = 0.0 
                   DO jl=1,jpl 
-                     ztmp3(:,:,1) = ztmp3(:,:,1) + tn_ice(:,:,jl) * a_i(:,:,jl) 
+                     ztmp3(:,:,1) = ztmp3(:,:,1) + t1_ice(:,:,jl) * a_i(:,:,jl) 
                   ENDDO 
                CASE default                  ;   CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_temp%clcat' ) 
@@ -2174 +2174 @@
                ztmp1(:,:) = ( ztmp1(:,:) + rt0 ) * zfr_l(:,:) 
                DO jl=1,jpl
-                  ztmp1(:,:) = ztmp1(:,:) + tn_ice(:,:,jl) * a_i(:,:,jl)
+                  ztmp1(:,:) = ztmp1(:,:) + t1_ice(:,:,jl) * a_i(:,:,jl)
                ENDDO
             CASE default                     ;   CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_temp%cldes' )