Changeset 9916 for NEMO/trunk/src/ICE/icestp.F90

Timestamp:

2018-07-10T16:04:04+02:00 (6 years ago)

Author:

clem

Message:

cosmetics (quater)

File:

• NEMO/trunk/src/ICE/icestp.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icestp.F90

@@ -427 +427 @@
 
       ! SIMIP diagnostics
-      qcn_ice_bot(:,:) = 0._wp ; qcn_ice_top(:,:) = 0._wp
-      t_si(:,:,:) = rt0       ! temp at the ice-snow interface
+      qcn_ice_bot(:,:,:) = 0._wp ; qcn_ice_top(:,:,:) = 0._wp ! conductive fluxes
+      t_si       (:,:,:) = rt0   ! temp at the ice-snow interface
 
       tau_icebfr(:,:)   = 0._wp   ! landfast ice param only (clem: important to keep the init here)