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 3721 for trunk – NEMO

Changeset 3721 for trunk


Ignore:
Timestamp:
2012-12-05T07:23:56+01:00 (11 years ago)
Author:
gm
Message:

trunk: #1033 : diahth.F90, correct a bug in the computation of the 300m heat content

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

    r3294 r3721  
    313313      ! surface boundary condition 
    314314      IF( lk_vvl ) THEN   ;   zthick(:,:) = 0._wp       ;   htc3(:,:) = 0._wp                                    
    315       ELSE                ;   zthick(:,:) = sshn(:,:)   ;   htc3(:,:) = tsn(:,:,jk,jp_tem) * sshn(:,:) * tmask(:,:,jk)    
     315      ELSE                ;   zthick(:,:) = sshn(:,:)   ;   htc3(:,:) = tsn(:,:,1,jp_tem) * sshn(:,:) * tmask(:,:,1)    
    316316      ENDIF 
    317317      ! integration down to ilevel 
Note: See TracChangeset for help on using the changeset viewer.