Changeset 8782 for branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

Timestamp:

2017-11-22T11:41:37+01:00 (6 years ago)

Author:

clem

Message:

debug previous step

File:

• branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 (modified) (2 diffs)

branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

@@ -262 +262 @@
       fr_i   (:,:)   = at_i(:,:)       ! initialisation of sea-ice fraction
       tn_ice (:,:,:) = t_su(:,:,:)     ! initialisation of surface temp for coupled simu
-      t1_ice (:,:,:) = t_i (:,:,1,:)   ! initialisation of 1st layer temp for coupled simu
-      cnd_ice(:,:,:) = 0._wp           ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling)
       !
       !                                ! set max concentration in both hemispheres
@@ -415 +413 @@
 
       tau_icebfr(:,:) = 0._wp; ! landfast ice param only (clem: important to keep the init here)
-      cnd_ice(:,:,:) = 0._wp   ! effective conductivity at the top of ice/snow (Jules coupling)
+      cnd_ice(:,:,:) = 0._wp   ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling)
       
    END SUBROUTINE diag_set0