Changeset 4295 for branches/2013/dev_MERGE_2013/NEMOGCM
- Timestamp:
- 2013-11-20T18:11:45+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r4205 r4295 221 221 ! 222 222 ! 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) ) 224 224 ! 225 225 ! oceanic heat flux (limthd_dh)
Note: See TracChangeset
for help on using the changeset viewer.