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 4295 for branches/2013/dev_MERGE_2013/NEMOGCM – NEMO

Ignore:
Timestamp:
2013-11-20T18:11:45+01:00 (10 years ago)
Author:
clem
Message:

change nb of dimensions of fse3t_m

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r4205 r4295  
    221221            ! 
    222222            ! Energy needed to bring ocean surface layer until its freezing (qcmif, limflx) 
    223             qcmif  (ji,jj) =  rau0 * rcp * fse3t_m(ji,jj,1) * ( t_bo(ji,jj) - (sst_m(ji,jj) + rt0) ) 
     223            qcmif  (ji,jj) =  rau0 * rcp * fse3t_m(ji,jj) * ( t_bo(ji,jj) - (sst_m(ji,jj) + rt0) ) 
    224224            ! 
    225225            ! oceanic heat flux (limthd_dh) 
Note: See TracChangeset for help on using the changeset viewer.