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 9068 – NEMO

Changeset 9068


Ignore:
Timestamp:
2017-12-15T10:33:52+01:00 (7 years ago)
Author:
clem
Message:

correct heat diffusion equation for nlayi=1

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r9019 r9068  
    383383                  IF( nlay_i == 1 ) THEN 
    384384                     ztrid   (ji,nlay_s+2,3) = 0._wp 
    385                      zindterm(ji,nlay_s+2)   = zindterm(ji,nlay_s+2) + zkappa_i(ji,1) * t_bo_1d(ji)  
     385                     zindterm(ji,nlay_s+2)   = zindterm(ji,nlay_s+2) + zeta_i(ji,1) * zkappa_i(ji,1) * t_bo_1d(ji)  
    386386                  ENDIF 
    387387                   
    … …  
    609609                  IF ( nlay_i == 1 ) THEN 
    610610                     ztrid   (ji,nlay_s+2,3) = 0._wp 
    611                      zindterm(ji,nlay_s+2)   = zindterm(ji,nlay_s+2) + zkappa_i(ji,1) * t_bo_1d(ji)  
     611                     zindterm(ji,nlay_s+2)   = zindterm(ji,nlay_s+2) + zeta_i(ji,1) * zkappa_i(ji,1) * t_bo_1d(ji)  
    612612                  ENDIF 
    613613                   
Note: See TracChangeset for help on using the changeset viewer.