Changeset 4732 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2014-07-29T11:43:18+02:00 (10 years ago)

Author:

vancop

Message:

cosmetic changes

File:

• branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (3 diffs)

branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -138 +138 @@
          ! masked sea surface freezing temperature [Kelvin]
          t_bo(:,:) = ( tfreez( sss_m ) +  rt0 ) * tmask(:,:,1) + rt0 * ( 1. - tmask(:,:,1) )
+
 
          !                                           ! Ice albedo
@@ -367 +368 @@
       !!                   
       !! ** Purpose :   update the ice surface boundary condition by averaging and / or
-     !!                redistributing fluxes on ice categories                   
+      !!                redistributing fluxes on ice categories                   
       !!
       !! ** Method  :   average then redistribute 
@@ -408 +409 @@
          z_dql_m(:,:) = fice_ice_ave ( pdql_ice (:,:,:) )
          DO jl = 1, jpl
-            pdqns_ice(:,:,jl) = z_dqn_m(:,:)
-            pdqla_ice(:,:,jl) = z_dql_m(:,:)
+            pdqn_ice(:,:,jl) = z_dqn_m(:,:)
+            pdql_ice(:,:,jl) = z_dql_m(:,:)
          END DO
          !