- Timestamp:
- 2015-07-16T11:04:29+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r4990 r5601 143 143 144 144 IF( lk_vvl ) THEN 145 z3d(:,:,:) = tsn(:,:,:,jp_tem) * fse3t_n(:,:,:)145 z3d(:,:,:) = tsn(:,:,:,jp_tem) !cbr * fse3t_n(:,:,:) 146 146 CALL iom_put( "toce" , z3d ) ! heat content 147 147 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.