New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9271 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icectl.F90 – NEMO

Ignore:
Timestamp:
2018-01-19T18:56:15+01:00 (6 years ago)
Author:
clem
Message:

first steps for having more than 1 snow layers in the ice (in theory). There is still icethd_dh.F90 routine to change

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icectl.F90

    r9019 r9271  
    475475                  WRITE(numout,*) ' v_i           : ', v_i(ji,jj,jl) 
    476476                  WRITE(numout,*) ' v_s           : ', v_s(ji,jj,jl) 
    477                   WRITE(numout,*) ' e_s           : ', e_s(ji,jj,1,jl) 
     477                  WRITE(numout,*) ' e_s           : ', e_s(ji,jj,1:nlay_s,jl) 
    478478                  WRITE(numout,*) ' e_i           : ', e_i(ji,jj,1:nlay_i,jl) 
    479479                  WRITE(numout,*) ' t_su          : ', t_su(ji,jj,jl) 
    480                   WRITE(numout,*) ' t_snow        : ', t_s(ji,jj,1,jl) 
     480                  WRITE(numout,*) ' t_snow        : ', t_s(ji,jj,1:nlay_s,jl) 
    481481                  WRITE(numout,*) ' t_i           : ', t_i(ji,jj,1:nlay_i,jl) 
    482482                  WRITE(numout,*) ' s_i           : ', s_i(ji,jj,jl) 
    … …  
    524524                  WRITE(numout,*) ' h_i        : ', h_i(ji,jj,jl)              , ' h_s        : ', h_s(ji,jj,jl) 
    525525                  WRITE(numout,*) ' t_i        : ', t_i(ji,jj,1:nlay_i,jl) 
    526                   WRITE(numout,*) ' t_su       : ', t_su(ji,jj,jl)             , ' t_s        : ', t_s(ji,jj,1,jl) 
     526                  WRITE(numout,*) ' t_su       : ', t_su(ji,jj,jl)             , ' t_s        : ', t_s(ji,jj,1:nlay_s,jl) 
    527527                  WRITE(numout,*) ' s_i        : ', s_i(ji,jj,jl)              , ' o_i        : ', o_i(ji,jj,jl) 
    528528                  WRITE(numout,*) ' a_i        : ', a_i(ji,jj,jl)              , ' a_i_b      : ', a_i_b(ji,jj,jl)    
Note: See TracChangeset for help on using the changeset viewer.