Changeset 5447 for branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

Timestamp:

2015-06-19T18:07:11+02:00 (9 years ago)

Author:

davestorkey

Message:

Update UKMO/dev_r5107_mld_zint branch to revision 5442 of the trunk.

File:

• branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90 (modified) (1 diff)

branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

@@ -105 +105 @@
          fr_i(:,:) = eos_fzp( sss_m ) * tmask(:,:,1)      ! sea surface freezing temperature [Celcius]
 
-         IF( lk_cpl )   a_i(:,:,1) = fr_i(:,:)         
+         IF( ln_cpl )   a_i(:,:,1) = fr_i(:,:)         
 
          ! Flux and ice fraction computation