Changeset 9416


Ignore:
Timestamp:
2018-03-22T12:42:04+01:00 (2 years ago)
Author:
clem
Message:

debug icetsni output by initializing t_si in iceistate.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90

    r9169 r9416  
    113113      ! init surface temperature 
    114114      DO jl = 1, jpl 
    115          t_su  (:,:,jl) = rt0 * tmask(:,:,1) 
    116          tn_ice(:,:,jl) = rt0 * tmask(:,:,1) 
     115         t_su   (:,:,jl) = rt0 * tmask(:,:,1)  ! temp at the surface 
     116         t_si   (:,:,jl) = rt0 * tmask(:,:,1)  ! temp at the ice-snow interface 
     117         cnd_ice(:,:,jl) = 0._wp               ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 
    117118      END DO 
    118119      ! 
     
    355356         tn_ice (:,:,:) = t_su (:,:,:) 
    356357         t1_ice (:,:,:) = t_i (:,:,1,:)   ! initialisation of 1st layer temp for coupled simu 
    357          cnd_ice(:,:,:) = 0._wp           ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 
    358358 
    359359         ! Melt pond volume and fraction 
     
    393393         tn_ice (:,:,:) = t_i (:,:,1,:) 
    394394         t1_ice (:,:,:) = t_i (:,:,1,:)   ! initialisation of 1st layer temp for coupled simu 
    395          cnd_ice(:,:,:) = 0._wp           ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 
    396395          
    397396         a_ip(:,:,:)      = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.