Changeset 4295


Ignore:
Timestamp:
2013-11-20T18:11:45+01:00 (8 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.